home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / t_intro.dxr / 00129.ls < prev    next >
Encoding:
Text File  |  1996-11-25  |  1.4 KB  |  62 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(2) or rollOver(12) then
  10.     repeat while rollOver(2) or rollOver(12)
  11.       go("r2")
  12.       updateStage()
  13.       preLoadCast(15, 25)
  14.       if the mouseDown = 1 then
  15.         exit
  16.       end if
  17.     end repeat
  18.   end if
  19.   if rollOver(3) or rollOver(13) then
  20.     repeat while rollOver(3) or rollOver(13)
  21.       go("r3")
  22.       updateStage()
  23.       preLoadCast(55, 65)
  24.       if the mouseDown = 1 then
  25.         exit
  26.       end if
  27.     end repeat
  28.   end if
  29.   if rollOver(4) or rollOver(14) then
  30.     go("r4")
  31.     preLoadCast(70, 78)
  32.     if the mouseDown = 1 then
  33.       exit
  34.     end if
  35.   end if
  36.   if rollOver(5) or rollOver(15) then
  37.     repeat while rollOver(5) or rollOver(15)
  38.       go("r5")
  39.       updateStage()
  40.       preLoadCast(87, 97)
  41.       if the mouseDown = 1 then
  42.         exit
  43.       end if
  44.     end repeat
  45.   end if
  46.   if balkenges = 0 then
  47.     hauptroll(316, 9)
  48.   end if
  49.   if balkenT1 = 1 then
  50.     nebenroll1(370, 2)
  51.   end if
  52.   if balkenT3 = 1 then
  53.     nebenroll3(355, 2)
  54.   end if
  55.   if balkenT4 = 1 then
  56.     nebenroll4(346, 3)
  57.   end if
  58.   if balkenT5 = 1 then
  59.     nebenroll5(365, 1)
  60.   end if
  61. end
  62.