home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 11 B / MM_TREND.ISO / prog / t_online / t_inter.dir / 00024.ls < prev    next >
Encoding:
Text File  |  1996-09-16  |  1.1 KB  |  60 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 rollOver(1) then
  10.     go("roll")
  11.   end if
  12.   if rollOver(2) then
  13.     go("r2")
  14.     repeat while rollOver(2)
  15.       if the mouseDown = 1 then
  16.         exit
  17.       end if
  18.     end repeat
  19.   end if
  20.   if rollOver(3) then
  21.     go("r3")
  22.     repeat while rollOver(3)
  23.       if the mouseDown = 1 then
  24.         exit
  25.       end if
  26.     end repeat
  27.   end if
  28.   if rollOver(4) then
  29.     go("r4")
  30.     repeat while rollOver(4)
  31.       if the mouseDown = 1 then
  32.         exit
  33.       end if
  34.     end repeat
  35.   end if
  36.   if rollOver(5) then
  37.     go("r5")
  38.     repeat while rollOver(5)
  39.       if the mouseDown = 1 then
  40.         exit
  41.       end if
  42.     end repeat
  43.   end if
  44.   if balkenges = 0 then
  45.     hauptroll(316, 9)
  46.   end if
  47.   if balkenT1 = 1 then
  48.     nebenroll1(370, 2)
  49.   end if
  50.   if BalkenT3 = 1 then
  51.     nebenroll3(355, 2)
  52.   end if
  53.   if balkenT4 = 1 then
  54.     nebenroll4(346, 3)
  55.   end if
  56.   if balkenT5 = 1 then
  57.     nebenroll5(365, 1)
  58.   end if
  59. end
  60.