home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 November / WPCNOV96.ISO / geswnov.dxr / 00028_GESRolloverDesIcon.ls < prev    next >
Encoding:
Text File  |  1996-09-17  |  2.2 KB  |  55 lines
  1. on GESRolloverDesIcon
  2.   global GESRollReturn, GESReturnIcon, GESDesOnStage, GESPCList, GESSytemUnit, GESWhichXplor
  3.   if rollOver(GESReturnIcon) and the mouseUp then
  4.     set GESRollReturn to 1
  5.     set the castNum of sprite GESReturnIcon to the castNum of sprite GESReturnIcon + 1
  6.     updateStage()
  7.     repeat while rollOver(GESReturnIcon)
  8.       cursor([48, 49])
  9.       if the mouseDown then
  10.         repeat while the mouseDown
  11.         end repeat
  12.         set GESDesOnStage to 5
  13.         exit repeat
  14.       end if
  15.     end repeat
  16.     if GESDesOnStage <> 5 then
  17.       set the castNum of sprite GESReturnIcon to the castNum of sprite GESReturnIcon - 1
  18.       cursor(-1)
  19.       updateStage()
  20.     else
  21.       set GESDesOnStage to 0
  22.       repeat with x = 1 to count(GESPrinterList)
  23.         if getAt(getAt(GESPrinterList, x), 1) <> GESReturnIcon then
  24.           setAt(getAt(GESPrinterList, x), 2, the castNum of sprite getAt(getAt(GESPrinterList, x), 1))
  25.           setAt(getAt(GESPrinterList, x), 3, the locH of sprite getAt(getAt(GESPrinterList, x), 1))
  26.           setAt(getAt(GESPrinterList, x), 4, the locV of sprite getAt(getAt(GESPrinterList, x), 1))
  27.           setAt(getAt(GESPrinterList, x), 5, the ink of sprite getAt(getAt(GESPrinterList, x), 1))
  28.         end if
  29.         if getAt(getAt(GESPrinterList, x), 1) <> 3 then
  30.           set the locH of sprite getAt(getAt(GESPrinterList, x), 1) to 2000
  31.         end if
  32.       end repeat
  33.       set the locH of sprite 37 to 2000
  34.       cursor(-1)
  35.       updateStage()
  36.       set the locH of sprite 22 to 2000
  37.       set the locH of sprite 20 to 2000
  38.       updateStage()
  39.       repeat with x = 1 to count(GESPCList)
  40.         set the castNum of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 2)
  41.         set the locH of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 3)
  42.         set the locV of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 4)
  43.         set the ink of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 5)
  44.       end repeat
  45.       if GESSytemUnit = 0 then
  46.         set the locH of sprite 12 to 2000
  47.       end if
  48.       updateStage()
  49.       cursor(-1)
  50.       set GESWhichXplor to 0
  51.       GESExplorePc()
  52.     end if
  53.   end if
  54. end
  55.