home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 11 D / MM_TREND.ISO / prog / t_online / t_intro.dir / 00101.ls < prev    next >
Encoding:
Text File  |  1996-09-18  |  1.4 KB  |  64 lines
  1. on exitFrame
  2.   global balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges, schalterT4, ser, kostet, wiegeht, fragen
  3.   set balkenges to balkenT1 + balkenT2 + BalkenT3 + balkenT4 + balkenT5
  4.   if schalterT4 = 0 then
  5.     go(the frame)
  6.   end if
  7.   if schalterT4 = 1 then
  8.     if ser = 0 then
  9.       go("4s")
  10.     else
  11.       if kostet = 0 then
  12.         go("kosten")
  13.       else
  14.         if wiegeht = 0 then
  15.           go("wiegeht")
  16.         else
  17.           if fragen = 0 then
  18.             go("fragen")
  19.           else
  20.             if fragen = 1 then
  21.               set ser to 0
  22.               set kostet to 0
  23.               set wie to 0
  24.               set fragen to 0
  25.               set schalterT4 to 0
  26.             end if
  27.           end if
  28.         end if
  29.       end if
  30.     end if
  31.   end if
  32. end
  33.  
  34. on idle
  35.   global schalterT4, ser, kostet, wie, fragen, balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges
  36.   if rollOver(2) or rollOver(12) then
  37.     go("r2")
  38.   end if
  39.   if rollOver(3) or rollOver(13) then
  40.     go("r3")
  41.   end if
  42.   if rollOver(4) or rollOver(14) then
  43.     go("r4")
  44.   end if
  45.   if rollOver(5) or (rollOver(15) and (balkenT1 = 0)) then
  46.     go("r5")
  47.   end if
  48.   if balkenges = 0 then
  49.     hauptroll(316, 9)
  50.   end if
  51.   if balkenT1 = 1 then
  52.     nebenroll1(370, 2)
  53.   end if
  54.   if BalkenT3 = 1 then
  55.     nebenroll3(355, 2)
  56.   end if
  57.   if balkenT4 = 1 then
  58.     nebenroll4(346, 3)
  59.   end if
  60.   if balkenT5 = 1 then
  61.     nebenroll5(365, 1)
  62.   end if
  63. end
  64.