home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GESWDEC.DXR / 00025_GESRolloverNoteIcon.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  2.3 KB  |  54 lines
  1. on GESRolloverNoteIcon
  2.   global GESRollReturn, GESReturnIcon, GESDesOnStage, GESPCList, GESSytemUnit, GESWhichXplor, GESNoteIcon
  3.   if rollOver(GESNoteIcon) and the mouseUp then
  4.     set GESRollReturn to 1
  5.     set the castNum of sprite GESNoteIcon to the castNum of sprite GESNoteIcon + 1
  6.     updateStage()
  7.     repeat while rollOver(GESNoteIcon)
  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 GESNoteIcon to the castNum of sprite GESNoteIcon - 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) and (getAt(getAt(GESPrinterList, x), 1) <> GESNoteIcon) 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.       puppetPalette("NoteGes")
  40.       updateStage()
  41.       repeat with x = 1 to count(GESNotebookList)
  42.         set the castNum of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 2)
  43.         set the locH of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 3)
  44.         set the locV of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 4)
  45.         set the ink of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 5)
  46.       end repeat
  47.       updateStage()
  48.       cursor(-1)
  49.       set GESWhichXplor to 3
  50.       GESExploreNoteBook()
  51.     end if
  52.   end if
  53. end
  54.