home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2001 December (Bonus) / HAWKING.ISO / 08.DIR / 00269.ls < prev    next >
Encoding:
Text File  |  1995-04-03  |  651 b   |  24 lines
  1. on checkMainRollover
  2.   global gLastRolledOn, gLastRolledCast
  3.   repeat with i = 1 to 8
  4.     if rollOver(i + 21) = 1 then
  5.       if gLastRolledOn = i then
  6.         exit
  7.       end if
  8.       if gLastRolledOn <> 0 then
  9.         set the castNum of sprite 32 to the number of cast "Null2"
  10.       end if
  11.       set lCastName to "LabelHL" & string(i)
  12.       set the castNum of sprite 32 to the number of cast lCastName
  13.       set gLastRolledOn to i
  14.       set gLastRolledCast to "Label" & string(i)
  15.       exit
  16.     end if
  17.   end repeat
  18.   if gLastRolledOn = 0 then
  19.     exit
  20.   end if
  21.   set the castNum of sprite 32 to the number of cast "Null2"
  22.   set gLastRolledOn to 0
  23. end
  24.