home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / t_4ser.dxr / 00047.ls < prev    next >
Encoding:
Text File  |  1996-11-25  |  1.3 KB  |  63 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(3) then
  38.     go("r3")
  39.     repeat while rollOver(3)
  40.       if the mouseDown = 1 then
  41.         exit
  42.       end if
  43.     end repeat
  44.   else
  45.     go("roll")
  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.