home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / demos.dxr / 00127.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  1.1 KB  |  32 lines
  1. global hydrolijst, entert, Revoltlijst
  2.  
  3. on exitFrame
  4.   if entert = "<1" then
  5.     maakDeRevoltActief("ho0")
  6.     entert = ">1"
  7.     setcurrentSW(getAt(hydrolijst, 1), "b1 id")
  8.     setcurrentSW(getAt(hydrolijst, 2), "b2 md")
  9.     setcurrentSW(getAt(hydrolijst, 3), "b3 id")
  10.     setcurrentSW(getAt(hydrolijst, 4), "b4 id")
  11.     setcurrentSz(getAt(Revoltlijst, 1), "Revolt1 id")
  12.     setcurrentSz(getAt(Revoltlijst, 2), "Revolt2 md")
  13.     setcurrentSz(getAt(Revoltlijst, 3), "Revolt3 id")
  14.     setcurrentSz(getAt(Revoltlijst, 4), "Revolt4 id")
  15.     setcurrentSz(getAt(Revoltlijst, 5), "Revolt5 id")
  16.     setcurrentSz(getAt(Revoltlijst, 6), "Revolt6 id")
  17.     setcurrentSz(getAt(Revoltlijst, 7), "Revolt7 id")
  18.   end if
  19.   back = new(script("cb"), 10, "back id", "back hi", "back md", "bck")
  20.   cbbtn2(getAt(Revoltlijst, 1))
  21.   cbbtn2(getAt(Revoltlijst, 3))
  22.   cbbtn2(getAt(Revoltlijst, 4))
  23.   cbbtn2(getAt(Revoltlijst, 5))
  24.   cbbtn2(getAt(Revoltlijst, 6))
  25.   cbbtn2(getAt(Revoltlijst, 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.