home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / demos.dxr / 00133.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 md")
  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, 1))
  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, 2))
  28.   cbbtn(getAt(hydrolijst, 3))
  29.   cbbtn(back)
  30.   go(the frame)
  31. end
  32.