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