home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / demos.dxr / 00140.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 md")
  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 id")
  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, 2))
  21.   cbbtn2(getAt(Shadowslijst, 3))
  22.   cbbtn2(getAt(Shadowslijst, 4))
  23.   cbbtn2(getAt(Shadowslijst, 5))
  24.   cbbtn2(getAt(Shadowslijst, 6))
  25.   cbbtn2(getAt(Shadowslijst, 7))
  26.   cbbtn(getAt(hydrolijst, 1))
  27.   cbbtn(getAt(hydrolijst, 3))
  28.   cbbtn(getAt(hydrolijst, 4))
  29.   cbbtn(back)
  30.   go(the frame)
  31. end
  32.