home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / acacia / start.dxr / 00071.ls < prev    next >
Encoding:
Text File  |  1996-11-13  |  1.3 KB  |  69 lines
  1. on exitFrame
  2.   RolloNorm()
  3.   go(the frame)
  4. end
  5.  
  6. on RolloNorm
  7.   global gAcaciaDown, gBiolDown, gChemDown, gPhysDown, gMathsDown, gQuitDown
  8.   if rollOver(2) then
  9.     if gAcaciaDown then
  10.       nothing()
  11.     else
  12.       set the castNum of sprite 2 to 3
  13.     end if
  14.   else
  15.     set the castNum of sprite 2 to 2
  16.     set gAcaciaDown to 0
  17.   end if
  18.   if rollOver(3) then
  19.     if gBiolDown then
  20.       nothing()
  21.     else
  22.       set the castNum of sprite 3 to 7
  23.     end if
  24.   else
  25.     set the castNum of sprite 3 to 6
  26.     set gBiolDown to 0
  27.   end if
  28.   if rollOver(4) then
  29.     if gChemDown then
  30.       nothing()
  31.     else
  32.       set the castNum of sprite 4 to 11
  33.     end if
  34.   else
  35.     set the castNum of sprite 4 to 10
  36.     set gChemDown to 0
  37.   end if
  38.   if rollOver(5) then
  39.     if gPhysDown then
  40.       nothing()
  41.     else
  42.       set the castNum of sprite 5 to 15
  43.     end if
  44.   else
  45.     set the castNum of sprite 5 to 14
  46.     set gPhysDown to 0
  47.   end if
  48.   if rollOver(6) then
  49.     if gMathsDown then
  50.       nothing()
  51.     else
  52.       set the castNum of sprite 6 to 19
  53.     end if
  54.   else
  55.     set the castNum of sprite 6 to 18
  56.     set gMathsDown to 0
  57.   end if
  58.   if rollOver(7) then
  59.     if gQuitDown then
  60.       nothing()
  61.     else
  62.       set the castNum of sprite 7 to 23
  63.     end if
  64.   else
  65.     set the castNum of sprite 7 to 22
  66.     set gQuitDown to 0
  67.   end if
  68. end
  69.