home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / t_intro.dxr / 00167.ls < prev    next >
Encoding:
Text File  |  1996-11-25  |  817 b   |  37 lines
  1. on exitFrame
  2.   global balkenT1, balkenT2, balkenT3, balkenT4, balkenT5, balkenges, schalterT4, ser, kostet, wie, fragen
  3.   set balkenges to balkenT1 + balkenT2 + balkenT3 + balkenT4 + balkenT5
  4.   go(the frame)
  5. end
  6.  
  7. on idle
  8.   global balkenT1, balkenT2, balkenT3, balkenT4, balkenT5, balkenges
  9.   if rollOver(5) or rollOver(15) then
  10.     repeat while rollOver(5) or rollOver(15)
  11.       go("r5")
  12.       updateStage()
  13.       preLoadCast(87, 97)
  14.       if the mouseDown = 1 then
  15.         exit
  16.       end if
  17.     end repeat
  18.   else
  19.     go("roll")
  20.   end if
  21.   if balkenges = 0 then
  22.     hauptroll(316, 9)
  23.   end if
  24.   if balkenT1 = 1 then
  25.     nebenroll1(370, 2)
  26.   end if
  27.   if balkenT3 = 1 then
  28.     nebenroll3(355, 2)
  29.   end if
  30.   if balkenT4 = 1 then
  31.     nebenroll4(346, 3)
  32.   end if
  33.   if balkenT5 = 1 then
  34.     nebenroll5(365, 1)
  35.   end if
  36. end
  37.