home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / demos.dxr / 00136.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  1.1 KB  |  32 lines
  1. global hydrolijst, entert, Shadowslijst
  2.  
  3. on exitFrame
  4.   if entert = "<1" then
  5.     maakDeShadowsActief("ho0")
  6.     entert = ">1"
  7.     setcurrentSW(getAt(hydrolijst, 1), "b1 id")
  8.     setcurrentSW(getAt(hydrolijst, 2), "b2 id")
  9.     setcurrentSW(getAt(hydrolijst, 3), "b3 id")
  10.     setcurrentSW(getAt(hydrolijst, 4), "b4 md")
  11.     setcurrentSz(getAt(Shadowslijst, 1), "Shadow1 id")
  12.     setcurrentSz(getAt(Shadowslijst, 2), "Shadow2 id")
  13.     setcurrentSz(getAt(Shadowslijst, 3), "Shadow3 id")
  14.     setcurrentSz(getAt(Shadowslijst, 4), "Shadow4 id")
  15.     setcurrentSz(getAt(Shadowslijst, 5), "Shadow5 md")
  16.     setcurrentSz(getAt(Shadowslijst, 6), "Shadow6 id")
  17.     setcurrentSz(getAt(Shadowslijst, 7), "Shadow7 id")
  18.   end if
  19.   back = new(script("cb"), 10, "back id", "back hi", "back md", "bck")
  20.   cbbtn2(getAt(Shadowslijst, 1))
  21.   cbbtn2(getAt(Shadowslijst, 2))
  22.   cbbtn2(getAt(Shadowslijst, 3))
  23.   cbbtn2(getAt(Shadowslijst, 4))
  24.   cbbtn2(getAt(Shadowslijst, 6))
  25.   cbbtn2(getAt(Shadowslijst, 7))
  26.   cbbtn(getAt(hydrolijst, 1))
  27.   cbbtn(getAt(hydrolijst, 2))
  28.   cbbtn(getAt(hydrolijst, 3))
  29.   cbbtn(back)
  30.   go(the frame)
  31. end
  32.