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