home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GESWDEC.DXR / 00029_GESExplorePrinters.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  2.6 KB  |  61 lines
  1. on GESExplorePrinters
  2.   global GESRollReturn, GESReturnIcon, GESDesOnStage, GESPCList, GESSytemUnit, GESWhichXplor, GesPrinterIntro, GESPrinterIntroList, GESBrown, GESGreen
  3.   if GESRollReturn = 1 then
  4.     set GESRollReturn to 0
  5.     cursor(-1)
  6.   end if
  7.   repeat with t = 1 to count(GESPrinterIntroList)
  8.     if rollOver(getAt(getAt(GESPrinterIntroList, t), 1)) then
  9.       set the castNum of sprite getAt(getAt(GESPrinterIntroList, t), 1) to the castNum of sprite getAt(getAt(GESPrinterIntroList, t), 1) + 1
  10.       set the foreColor of word getAt(getAt(GESPrinterIntroList, t), 2) of field 301 to GESGreen
  11.       cursor([48, 49])
  12.       updateStage()
  13.       repeat while rollOver(getAt(getAt(GESPrinterIntroList, t), 1))
  14.         if the mouseDown then
  15.           set whichPrinter to getAt(getAt(GESPrinterIntroList, t), 1)
  16.           GESSelectPrinter(whichPrinter)
  17.           set GesPrinterIntro to 1
  18.           repeat while the mouseDown
  19.           end repeat
  20.           exit repeat
  21.         end if
  22.       end repeat
  23.       set the castNum of sprite getAt(getAt(GESPrinterIntroList, t), 1) to the castNum of sprite getAt(getAt(GESPrinterIntroList, t), 1) - 1
  24.       set the foreColor of word getAt(getAt(GESPrinterIntroList, t), 2) of field 301 to GESBrown
  25.       cursor(-1)
  26.       updateStage()
  27.     end if
  28.     if GesPrinterIntro = 0 then
  29.       if rollOver(13) then
  30.         if the mouseWord = getAt(getAt(GESPrinterIntroList, t), 2) then
  31.           set the castNum of sprite getAt(getAt(GESPrinterIntroList, t), 1) to the castNum of sprite getAt(getAt(GESPrinterIntroList, t), 1) + 1
  32.           set the foreColor of word getAt(getAt(GESPrinterIntroList, t), 2) of field 301 to GESGreen
  33.           cursor([48, 49])
  34.           updateStage()
  35.           repeat while the mouseWord = getAt(getAt(GESPrinterIntroList, t), 2)
  36.             if the mouseDown then
  37.               set whichPrinter to getAt(getAt(GESPrinterIntroList, t), 1)
  38.               GESSelectPrinter(whichPrinter)
  39.               set GesPrinterIntro to 1
  40.               repeat while the mouseDown
  41.               end repeat
  42.               exit repeat
  43.             end if
  44.           end repeat
  45.           set the castNum of sprite getAt(getAt(GESPrinterIntroList, t), 1) to the castNum of sprite getAt(getAt(GESPrinterIntroList, t), 1) - 1
  46.           set the foreColor of word getAt(getAt(GESPrinterIntroList, t), 2) of field 301 to GESBrown
  47.           cursor(-1)
  48.           updateStage()
  49.         end if
  50.       end if
  51.     end if
  52.   end repeat
  53.   if GesPrinterIntro = 1 then
  54.     set GESNum to the mouseCast
  55.     GESPrinterInfo(GESNum)
  56.   end if
  57.   GESBuyingPrinterTips()
  58.   GESRolloverDesIcon()
  59.   GESRolloverNoteIcon()
  60. end
  61.