home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / demos.dxr / 00128.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 id")
  13.     setcurrentSz(getAt(Revoltlijst, 3), "Revolt3 md")
  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, 2))
  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.