home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GESWDEC.DXR / 00030_GESSelectPrinter.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  2.8 KB  |  57 lines
  1. on GESSelectPrinter whichPrinter
  2.   global GESPrintDotList, GESPrintLaserList, GESPrintInktList, GESWhichPrinterChosen, GESPrinterTextList
  3.   case whichPrinter of
  4.     4:
  5.       set GESWhichPrinterChosen to 1
  6.       repeat with d = 1 to count(GESPrinterTextList)
  7.         set TemPList to getAt(GESPrinterTextList, d)
  8.         repeat with z = 2 to count(TemPList)
  9.           if getAt(getAt(TemPList, z), 3) = 1 then
  10.             set tempTwoList to getAt(getAt(TemPList, z), 4)
  11.             set the castNum of sprite getAt(tempTwoList, 1) to getAt(tempTwoList, 2)
  12.           end if
  13.         end repeat
  14.       end repeat
  15.       repeat with d = 1 to count(GESPrintDotList)
  16.         set the castNum of sprite getAt(getAt(GESPrintDotList, d), 1) to getAt(getAt(GESPrintDotList, d), 2)
  17.         set the loc of sprite getAt(getAt(GESPrintDotList, d), 1) to point(getAt(getAt(GESPrintDotList, d), 3), getAt(getAt(GESPrintDotList, d), 4))
  18.         set the ink of sprite getAt(getAt(GESPrintDotList, d), 1) to getAt(getAt(GESPrintDotList, d), 5)
  19.         updateStage()
  20.       end repeat
  21.     5:
  22.       repeat with d = 1 to count(GESPrinterTextList)
  23.         set TemPList to getAt(GESPrinterTextList, d)
  24.         repeat with z = 2 to count(TemPList)
  25.           if getAt(getAt(TemPList, z), 3) = 1 then
  26.             set tempTwoList to getAt(getAt(TemPList, z), 4)
  27.             set the castNum of sprite getAt(tempTwoList, 1) to getAt(tempTwoList, 6)
  28.           end if
  29.         end repeat
  30.       end repeat
  31.       repeat with d = 1 to count(GESPrintInktList)
  32.         set the castNum of sprite getAt(getAt(GESPrintInktList, d), 1) to getAt(getAt(GESPrintInktList, d), 2)
  33.         set the loc of sprite getAt(getAt(GESPrintInktList, d), 1) to point(getAt(getAt(GESPrintInktList, d), 3), getAt(getAt(GESPrintInktList, d), 4))
  34.         set the ink of sprite getAt(getAt(GESPrintInktList, d), 1) to getAt(getAt(GESPrintInktList, d), 5)
  35.         updateStage()
  36.       end repeat
  37.       set GESWhichPrinterChosen to 2
  38.     6:
  39.       repeat with d = 1 to count(GESPrinterTextList)
  40.         set TemPList to getAt(GESPrinterTextList, d)
  41.         repeat with z = 2 to count(TemPList)
  42.           if getAt(getAt(TemPList, z), 3) = 1 then
  43.             set tempTwoList to getAt(getAt(TemPList, z), 4)
  44.             set the castNum of sprite getAt(tempTwoList, 1) to getAt(tempTwoList, 7)
  45.           end if
  46.         end repeat
  47.       end repeat
  48.       repeat with d = 1 to count(GESPrintLaserList)
  49.         set the castNum of sprite getAt(getAt(GESPrintLaserList, d), 1) to getAt(getAt(GESPrintLaserList, d), 2)
  50.         set the loc of sprite getAt(getAt(GESPrintLaserList, d), 1) to point(getAt(getAt(GESPrintLaserList, d), 3), getAt(getAt(GESPrintLaserList, d), 4))
  51.         set the ink of sprite getAt(getAt(GESPrintLaserList, d), 1) to getAt(getAt(GESPrintLaserList, d), 5)
  52.         updateStage()
  53.       end repeat
  54.       set GESWhichPrinterChosen to 3
  55.   end case
  56. end
  57.