home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GESWDEC.DXR / 00031_GESPrinterInfo.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  7.7 KB  |  162 lines
  1. on GESPrinterInfo GESNum
  2.   global GESPrinterTextList, GESWhichPrinterChosen, GesPrinterIntro, GESPCTextList, GESMouseWordList, GESDesOnStage, GESLastText, GESTempWhichPic, GESPCTextListOne, GESPCTextListTwo, GESWhichXplor, GESReturnIcon, GESBrown, GESGreen, GESThisDEScription, GESPrinterIntroScreenList
  3.   repeat with d = 1 to count(GESPrinterTextList)
  4.     set TempWhichNum to getAt(getAt(GESPrinterTextList, d), 1)
  5.     set TemPList to getAt(GESPrinterTextList, d)
  6.     if (TempWhichNum = GESNum) and the mouseUp then
  7.       set GESThisDEScription to TempWhichNum
  8.       repeat while the mouseCast = TempWhichNum
  9.         repeat with z = 2 to count(TemPList)
  10.           if (GESLastText = 0) or (GESLastText <> TempWhichNum) then
  11.             set GESLastText to TempWhichNum
  12.           end if
  13.           if (getAt(getAt(TemPList, z), 2) = 1) and (line the mouseLine of field 302 <> getAt(getAt(TemPList, z), 1)) then
  14.             setAt(getAt(TemPList, z), 2, 0)
  15.             cursor(-1)
  16.           end if
  17.           set GESCurrentWord to line the mouseLine of field 302
  18.           if GESCurrentWord = getAt(getAt(TemPList, z), 1) then
  19.             if getAt(getAt(TemPList, z), 3) = 0 then
  20.               setAt(getAt(TemPList, z), 2, 1)
  21.               cursor([48, 49])
  22.               updateStage()
  23.             end if
  24.             if the mouseDown and (getAt(getAt(TemPList, z), 3) = 0) then
  25.               if line the mouseLine of field 302 = "Intro Screen" then
  26.                 set GESDesOnStage to 0
  27.                 repeat with d = 1 to count(GESPrinterIntroScreenList)
  28.                   set the castNum of sprite getAt(getAt(GESPrinterIntroScreenList, d), 1) to getAt(getAt(GESPrinterIntroScreenList, d), 2)
  29.                   set the locH of sprite getAt(getAt(GESPrinterIntroScreenList, d), 1) to getAt(getAt(GESPrinterIntroScreenList, d), 3)
  30.                   set the locV of sprite getAt(getAt(GESPrinterIntroScreenList, d), 1) to getAt(getAt(GESPrinterIntroScreenList, d), 4)
  31.                   set the ink of sprite getAt(getAt(GESPrinterIntroScreenList, d), 1) to getAt(getAt(GESPrinterIntroScreenList, d), 5)
  32.                 end repeat
  33.                 updateStage()
  34.                 set TempWord to 8
  35.                 cursor(-1)
  36.                 addAt(GESMouseWordList, count(GESMouseWordList) + 1, TempWord)
  37.                 if count(GESMouseWordList) > 1 then
  38.                   set the foreColor of line getAt(GESMouseWordList, 1) of field GESLastText to GESBrown
  39.                   updateStage()
  40.                   setAt(GESMouseWordList, 1, getAt(GESMouseWordList, 2))
  41.                   deleteAt(GESMouseWordList, 2)
  42.                   repeat with f = 2 to count(TemPList)
  43.                     if (getAt(getAt(TemPList, f), 3) = 1) and (z <> f) then
  44.                       setAt(getAt(TemPList, f), 3, 0)
  45.                     end if
  46.                   end repeat
  47.                 end if
  48.                 set GesPrinterIntro to 0
  49.                 repeat while the mouseDown
  50.                 end repeat
  51.                 next repeat
  52.               end if
  53.               set the locH of sprite 11 to 2000
  54.               set the locH of sprite 8 to 2000
  55.               set the foreColor of line the mouseLine of field 302 to GESGreen
  56.               set TempWord to the mouseLine
  57.               cursor(-1)
  58.               setAt(getAt(TemPList, z), 3, 1)
  59.               repeat with s = 4 to count(getAt(TemPList, z))
  60.                 set TemPListThree to getAt(TemPList, z)
  61.                 if count(getAt(TemPListThree, s)) > 1 then
  62.                   case GESWhichPrinterChosen of
  63.                     1:
  64.                       set the castNum of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 2)
  65.                     2:
  66.                       set the castNum of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 6)
  67.                     3:
  68.                       set the castNum of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 7)
  69.                   end case
  70.                   set the locH of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 3)
  71.                   set the locV of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 4)
  72.                   set the ink of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 5)
  73.                   next repeat
  74.                 end if
  75.                 set the locH of sprite getAt(getAt(TemPListThree, s), 1) to 2000
  76.               end repeat
  77.               updateStage()
  78.               setAt(getAt(TemPList, z), 3, 1)
  79.               addAt(GESMouseWordList, count(GESMouseWordList) + 1, TempWord)
  80.               set GESDesOnStage to 1
  81.               if count(GESMouseWordList) > 1 then
  82.                 set the foreColor of line getAt(GESMouseWordList, 1) of field GESLastText to GESBrown
  83.                 updateStage()
  84.                 setAt(GESMouseWordList, 1, getAt(GESMouseWordList, 2))
  85.                 deleteAt(GESMouseWordList, 2)
  86.                 repeat with f = 2 to count(TemPList)
  87.                   if (getAt(getAt(TemPList, f), 3) = 1) and (z <> f) then
  88.                     setAt(getAt(TemPList, f), 3, 0)
  89.                   end if
  90.                 end repeat
  91.               end if
  92.             end if
  93.           end if
  94.         end repeat
  95.       end repeat
  96.     end if
  97.     if getAt(TemPList, 1) = GESThisDEScription then
  98.       repeat with z = 2 to count(TemPList)
  99.         repeat with x = 5 to count(getAt(TemPList, z))
  100.           if count(getAt(getAt(TemPList, z), x)) = 1 then
  101.             set TempWhichPic to 0
  102.             exit repeat
  103.             next repeat
  104.           end if
  105.           if count(getAt(getAt(TemPList, z), x)) = 6 then
  106.             set GESTempWhichPic to getAt(getAt(TemPList, z), x)
  107.           end if
  108.         end repeat
  109.         case GESWhichPrinterChosen of
  110.           1:
  111.             set ThisPrinter to 2
  112.           2:
  113.             set ThisPrinter to 6
  114.           3:
  115.             set ThisPrinter to 7
  116.         end case
  117.         if (the mouseCast = getAt(getAt(getAt(TemPList, z), 4), ThisPrinter)) and the mouseUp then
  118.           repeat while the mouseCast = getAt(getAt(getAt(TemPList, z), 4), ThisPrinter)
  119.             cursor([48, 49])
  120.             if the mouseDown then
  121.               set the loc of sprite 11 to point(200, 200)
  122.               set the loc of sprite 8 to point(200, 229)
  123.               set GESDesOnStage to 2
  124.               set the locH of sprite getAt(getAt(getAt(TemPList, z), 4), 1) to 2000
  125.               set the castNum of sprite getAt(getAt(getAt(TemPList, z), 4), 1) to 50
  126.               repeat with x = 5 to count(getAt(TemPList, z))
  127.                 if count(getAt(getAt(TemPList, z), x)) > 1 then
  128.                   set the locH of sprite getAt(getAt(getAt(TemPList, z), x), 1) to 2000
  129.                   set the castNum of sprite getAt(getAt(getAt(TemPList, z), x), 1) to 50
  130.                 end if
  131.               end repeat
  132.               set the foreColor of line getAt(GESMouseWordList, 1) of field GESLastText to GESBrown
  133.               repeat with f = 2 to count(TemPList)
  134.                 if getAt(getAt(TemPList, f), 3) = 1 then
  135.                   setAt(getAt(TemPList, f), 3, 0)
  136.                 end if
  137.               end repeat
  138.               updateStage()
  139.               set GESMouseWordList to list()
  140.             end if
  141.           end repeat
  142.           cursor(-1)
  143.         end if
  144.         if (the mouseCast = the castNum of sprite 22) and (the castNum of sprite 22 <> -1) then
  145.           cursor([48, 49])
  146.           updateStage()
  147.           repeat while rollOver(22)
  148.             if the mouseDown then
  149.               set the castNum of sprite 22 to -1
  150.               set the locH of sprite 2 to 2000
  151.               cursor(-1)
  152.               updateStage()
  153.             end if
  154.           end repeat
  155.           updateStage()
  156.           cursor(-1)
  157.         end if
  158.       end repeat
  159.     end if
  160.   end repeat
  161. end
  162.