home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / digi.dxr / 00087.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  1.0 KB  |  31 lines
  1. global sliderlijst, entert, switcheslijst
  2.  
  3. on exitFrame
  4.   if switcheslijst = [] then
  5.     maakDeSwitchesActief(EMPTY)
  6.   end if
  7.   if entert = "<1" then
  8.     entert = ">1"
  9.     setcurrentSW(getAt(switcheslijst, 1), "sw1 txt", "sw1 1d")
  10.     setcurrentSW(getAt(switcheslijst, 2), "sw1 txt", "sw2 id")
  11.     setcurrentSW(getAt(switcheslijst, 3), "sw1 txt", "sw3 id")
  12.     setcurrentC(getAt(sliderlijst, 1), "ho3", "s1 id")
  13.     setcurrentC(getAt(sliderlijst, 2), "ho3", "s2 id")
  14.     setcurrentC(getAt(sliderlijst, 3), "ho3", "s3 md")
  15.     setcurrentC(getAt(sliderlijst, 4), "ho3", "s4 id")
  16.     setcurrentC(getAt(sliderlijst, 5), "ho3", "s5 id")
  17.     setcurrentC(getAt(sliderlijst, 6), "ho3", "s6 id")
  18.   end if
  19.   back = new(script("cb"), 18, "back id", "back hi", "back md", "bck")
  20.   slid(getAt(sliderlijst, 1))
  21.   slid(getAt(sliderlijst, 2))
  22.   slid(getAt(sliderlijst, 4))
  23.   slid(getAt(sliderlijst, 5))
  24.   slid(getAt(sliderlijst, 6))
  25.   switch(getAt(switcheslijst, 1))
  26.   switch(getAt(switcheslijst, 2))
  27.   switch(getAt(switcheslijst, 3))
  28.   cbbtn(back)
  29.   go(the frame)
  30. end
  31.