home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 November / WPCNOV96.ISO / geswnov.dxr / 00031_GESPrinterInfo.ls < prev    next >
Encoding:
Text File  |  1996-09-17  |  7.3 KB  |  156 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.                 repeat with d = 1 to count(GESPrinterIntroScreenList)
  27.                   set the castNum of sprite getAt(getAt(GESPrinterIntroScreenList, d), 1) to getAt(getAt(GESPrinterIntroScreenList, d), 2)
  28.                   set the locH of sprite getAt(getAt(GESPrinterIntroScreenList, d), 1) to getAt(getAt(GESPrinterIntroScreenList, d), 3)
  29.                   set the locV of sprite getAt(getAt(GESPrinterIntroScreenList, d), 1) to getAt(getAt(GESPrinterIntroScreenList, d), 4)
  30.                   set the ink of sprite getAt(getAt(GESPrinterIntroScreenList, d), 1) to getAt(getAt(GESPrinterIntroScreenList, d), 5)
  31.                 end repeat
  32.                 updateStage()
  33.                 set TempWord to 8
  34.                 cursor(-1)
  35.                 addAt(GESMouseWordList, count(GESMouseWordList) + 1, TempWord)
  36.                 set GESDesOnStage to 1
  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 foreColor of line the mouseLine of field 302 to GESGreen
  54.               set TempWord to the mouseLine
  55.               cursor(-1)
  56.               setAt(getAt(TemPList, z), 3, 1)
  57.               repeat with s = 4 to count(getAt(TemPList, z))
  58.                 set TemPListThree to getAt(TemPList, z)
  59.                 if count(getAt(TemPListThree, s)) > 1 then
  60.                   case GESWhichPrinterChosen of
  61.                     1:
  62.                       set the castNum of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 2)
  63.                     2:
  64.                       set the castNum of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 6)
  65.                     3:
  66.                       set the castNum of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 7)
  67.                   end case
  68.                   set the locH of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 3)
  69.                   set the locV of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 4)
  70.                   set the ink of sprite getAt(getAt(TemPListThree, s), 1) to getAt(getAt(TemPListThree, s), 5)
  71.                   next repeat
  72.                 end if
  73.                 set the locH of sprite getAt(getAt(TemPListThree, s), 1) to 2000
  74.               end repeat
  75.               updateStage()
  76.               setAt(getAt(TemPList, z), 3, 1)
  77.               addAt(GESMouseWordList, count(GESMouseWordList) + 1, TempWord)
  78.               set GESDesOnStage to 1
  79.               if count(GESMouseWordList) > 1 then
  80.                 set the foreColor of line getAt(GESMouseWordList, 1) of field GESLastText to GESBrown
  81.                 updateStage()
  82.                 setAt(GESMouseWordList, 1, getAt(GESMouseWordList, 2))
  83.                 deleteAt(GESMouseWordList, 2)
  84.                 repeat with f = 2 to count(TemPList)
  85.                   if (getAt(getAt(TemPList, f), 3) = 1) and (z <> f) then
  86.                     setAt(getAt(TemPList, f), 3, 0)
  87.                   end if
  88.                 end repeat
  89.               end if
  90.             end if
  91.           end if
  92.         end repeat
  93.       end repeat
  94.     end if
  95.     if getAt(TemPList, 1) = GESThisDEScription then
  96.       repeat with z = 2 to count(TemPList)
  97.         repeat with x = 5 to count(getAt(TemPList, z))
  98.           if count(getAt(getAt(TemPList, z), x)) = 1 then
  99.             set TempWhichPic to 0
  100.             exit repeat
  101.             next repeat
  102.           end if
  103.           if count(getAt(getAt(TemPList, z), x)) = 6 then
  104.             set GESTempWhichPic to getAt(getAt(TemPList, z), x)
  105.           end if
  106.         end repeat
  107.         case GESWhichPrinterChosen of
  108.           1:
  109.             set ThisPrinter to 2
  110.           2:
  111.             set ThisPrinter to 6
  112.           3:
  113.             set ThisPrinter to 7
  114.         end case
  115.         if (the mouseCast = getAt(getAt(getAt(TemPList, z), 4), ThisPrinter)) and the mouseUp then
  116.           repeat while the mouseCast = getAt(getAt(getAt(TemPList, z), 4), ThisPrinter)
  117.             cursor([48, 49])
  118.             if the mouseDown then
  119.               set GESDesOnStage to 2
  120.               set the locH of sprite getAt(getAt(getAt(TemPList, z), 4), 1) to 2000
  121.               repeat with x = 5 to count(getAt(TemPList, z))
  122.                 if count(getAt(getAt(TemPList, z), x)) > 1 then
  123.                   set the locH of sprite getAt(getAt(getAt(TemPList, z), x), 1) to 2000
  124.                 end if
  125.               end repeat
  126.               set the foreColor of line getAt(GESMouseWordList, 1) of field GESLastText to GESBrown
  127.               repeat with f = 2 to count(TemPList)
  128.                 if getAt(getAt(TemPList, f), 3) = 1 then
  129.                   setAt(getAt(TemPList, f), 3, 0)
  130.                 end if
  131.               end repeat
  132.               updateStage()
  133.               set GESMouseWordList to list()
  134.             end if
  135.           end repeat
  136.           cursor(-1)
  137.         end if
  138.         if (the mouseCast = the castNum of sprite 22) and (the castNum of sprite 22 <> -1) then
  139.           cursor([48, 49])
  140.           updateStage()
  141.           repeat while rollOver(22)
  142.             if the mouseDown then
  143.               set the castNum of sprite 22 to -1
  144.               set the locH of sprite 2 to 2000
  145.               cursor(-1)
  146.               updateStage()
  147.             end if
  148.           end repeat
  149.           updateStage()
  150.           cursor(-1)
  151.         end if
  152.       end repeat
  153.     end if
  154.   end repeat
  155. end
  156.