home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 11 B / MM_TREND.ISO / prog / t_online / t_sintro.dir / 00145.ls < prev    next >
Encoding:
Text File  |  1996-09-19  |  1.3 KB  |  63 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.   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 wie = 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.             end if
  26.           end if
  27.         end if
  28.       end if
  29.     end if
  30.   end if
  31. end
  32.  
  33. on idle
  34.   global schalterT4, ser, kostet, wie, fragen, balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges
  35.   if rollOver(2) then
  36.     go("r2")
  37.   end if
  38.   if rollOver(3) then
  39.     go("r3")
  40.   end if
  41.   if rollOver(4) then
  42.     go("r4")
  43.   end if
  44.   if rollOver(5) then
  45.     go("r5")
  46.   end if
  47.   if balkenges = 0 then
  48.     hauptroll(316, 9)
  49.   end if
  50.   if balkenT1 = 1 then
  51.     nebenroll1(370, 2)
  52.   end if
  53.   if BalkenT3 = 1 then
  54.     nebenroll3(355, 2)
  55.   end if
  56.   if balkenT4 = 1 then
  57.     nebenroll4(346, 3)
  58.   end if
  59.   if balkenT5 = 1 then
  60.     nebenroll5(365, 1)
  61.   end if
  62. end
  63.