home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / t_intro.dxr / 00001.ls next >
Encoding:
Text File  |  1996-11-25  |  531 b   |  25 lines
  1. on exitFrame
  2.   global balkenT1, balkenT2, balkenT3, balkenT4, balkenT5, balkenges
  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 balkenges = 0 then
  10.     hauptroll(316, 9)
  11.   end if
  12.   if balkenT1 = 1 then
  13.     nebenroll1(370, 2)
  14.   end if
  15.   if balkenT3 = 1 then
  16.     nebenroll3(355, 2)
  17.   end if
  18.   if balkenT4 = 1 then
  19.     nebenroll4(346, 3)
  20.   end if
  21.   if balkenT5 = 1 then
  22.     nebenroll5(365, 1)
  23.   end if
  24. end
  25.