home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 11 B / MM_TREND.ISO / prog / isdn / i_intro.dir / 00005.ls < prev    next >
Encoding:
Text File  |  1996-09-17  |  1.7 KB  |  76 lines
  1. on exitFrame
  2.   global posSlider, balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges, schalterT4, schnell, flexibel, wiegeht, kostet, fragen
  3.   set balkenges to balkenT1 + balkenT2 + BalkenT3 + balkenT4 + balkenT5
  4.   set the locH of sprite 33 to 533
  5.   set the locH of sprite 34 to 533
  6.   set the locH of sprite 38 to posSlider
  7.   set the locH of sprite 39 to 528
  8.   set the locH of sprite 41 to 1076 - 600
  9.   if schalterT4 = 0 then
  10.     go(the frame)
  11.   end if
  12.   if schalterT4 = 1 then
  13.     if schnell = 0 then
  14.       go("i2")
  15.     else
  16.       if flexibel = 0 then
  17.         go("i3")
  18.       else
  19.         if wiegeht = 0 then
  20.           go("i4")
  21.         else
  22.           if kostet = 0 then
  23.             go("i5")
  24.           else
  25.             if fragen = 0 then
  26.               go("i6")
  27.             else
  28.               if fragen = 1 then
  29.                 set flexibel to 0
  30.                 set schnell to 0
  31.                 set wiegeht to 0
  32.                 set kostet to 0
  33.                 set fragen to 0
  34.               end if
  35.             end if
  36.           end if
  37.         end if
  38.       end if
  39.     end if
  40.   end if
  41. end
  42.  
  43. on idle
  44.   global balkenT1, balkenT2, BalkenT3, balkenT4, balkenges, balkenT5
  45.   if rollOver(2) then
  46.     go("r2")
  47.   end if
  48.   if rollOver(3) then
  49.     go("r3")
  50.   end if
  51.   if rollOver(4) then
  52.     go("r4")
  53.   end if
  54.   if rollOver(5) and (balkenT1 = 0) then
  55.     go("r5")
  56.   end if
  57.   if rollOver(6) and (balkenT5 = 0) and (balkenT4 = 0) then
  58.     go("r6")
  59.   end if
  60.   if balkenges = 0 then
  61.     hauptroll(316, 9)
  62.   end if
  63.   if balkenT1 = 1 then
  64.     nebenroll1(370, 2)
  65.   end if
  66.   if BalkenT3 = 1 then
  67.     nebenroll3(355, 2)
  68.   end if
  69.   if balkenT4 = 1 then
  70.     nebenroll4(346, 3)
  71.   end if
  72.   if balkenT5 = 1 then
  73.     nebenroll5(365, 1)
  74.   end if
  75. end
  76.