home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / decoder / formular.dir / 00054.ls < prev    next >
Encoding:
Text File  |  1997-02-10  |  1.1 KB  |  49 lines
  1. on exitFrame
  2.   global angekreuzt
  3.   if rollOver(45) then
  4.     go("act")
  5.   else
  6.     if rollOver(46) then
  7.       go("adr")
  8.     else
  9.       nothing()
  10.     end if
  11.   end if
  12.   if rollOver(14) then
  13.     set the castNum of sprite 14 to 86
  14.   else
  15.     if rollOver(15) then
  16.       set the castNum of sprite 15 to 90
  17.     else
  18.       if rollOver(16) then
  19.         set the castNum of sprite 16 to 94
  20.       else
  21.         if rollOver(25) then
  22.           set the castNum of sprite 25 to 121
  23.         else
  24.           set the castNum of sprite 14 to 85
  25.           set the castNum of sprite 15 to 89
  26.           set the castNum of sprite 16 to 93
  27.           set the castNum of sprite 25 to 120
  28.         end if
  29.       end if
  30.     end if
  31.   end if
  32.   repeat with n = 17 to 23
  33.     if rollOver(n) then
  34.       set the castNum of sprite n to 98
  35.       next repeat
  36.     end if
  37.     set the castNum of sprite n to 97
  38.   end repeat
  39.   if angekreuzt = 1 then
  40.     set the castNum of sprite 24 to 101
  41.     put "Kostenlos!" into field "Kostenlos!"
  42.   else
  43.     set the castNum of sprite 24 to 100
  44.     set angekreuzt to 0
  45.     put " " into field "Kostenlos!"
  46.   end if
  47.   go(the frame)
  48. end
  49.