home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / t_inter.dxr / 00029.ls < prev    next >
Encoding:
Text File  |  1996-11-25  |  604 b   |  34 lines
  1. on exitFrame
  2.   global schalterT4, inter
  3.   if schalterT4 = 0 then
  4.     go(the frame)
  5.   end if
  6.   if schalterT4 = 1 then
  7.     if soundBusy(2) then
  8.       go(the frame)
  9.     else
  10.       set inter to 1
  11.       go("roll", "T_4ser.dir")
  12.     end if
  13.   end if
  14. end
  15.  
  16. on idle
  17.   global balkenT1, balkenT2, balkenT3, balkenT4, balkenT5, balkenges
  18.   if balkenges = 0 then
  19.     hauptroll(316, 9)
  20.   end if
  21.   if balkenT1 = 1 then
  22.     nebenroll1(370, 2)
  23.   end if
  24.   if balkenT3 = 1 then
  25.     nebenroll3(355, 2)
  26.   end if
  27.   if balkenT4 = 1 then
  28.     nebenroll4(346, 3)
  29.   end if
  30.   if balkenT5 = 1 then
  31.     nebenroll5(365, 1)
  32.   end if
  33. end
  34.