home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GESWDEC.DXR / 00011_GESExplorePc.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  11.0 KB  |  255 lines
  1. on GESExplorePc
  2.   global GESPCLevelOneList, IFLGettingSNameSprite, GESPCBegin, GESPCTextList, GESDesOnStage, GESSytemUnit, GESPCList, GESInsidSysList, GESWhichXplor, GESBrown, GESGreen, GESPrinterList, GESPrinterfirst, GESNotebookList
  3.   if GESDesOnStage = 0 then
  4.     if GESPCBegin = 0 then
  5.       if not rollOver(5) then
  6.         set GESPCBegin to 1
  7.       end if
  8.     else
  9.       repeat with f = 1 to count(GESPCLevelOneList)
  10.         if rollOver(getAt(getAt(GESPCLevelOneList, f), 1)) or rollOver(getAt(getAt(GESPCLevelOneList, f), 2)) then
  11.           if (f = 2) and (the mouseV > 252) then
  12.             set f to 3
  13.           end if
  14.           if (f = 3) and (the mouseV < 252) then
  15.             set f to 2
  16.           end if
  17.           if (f = 4) and rollOver(8) then
  18.             set f to 5
  19.           end if
  20.           if (f = 4) and (rollOver(9) or rollOver(4)) then
  21.             set f to 1
  22.           end if
  23.           if the mouseDown and (getAt(getAt(GESPCLevelOneList, f), 4) = 0) then
  24.             if f = 3 then
  25.               set GESSytemUnit to 1
  26.             else
  27.               set GESSytemUnit to 0
  28.             end if
  29.             repeat with z = 1 to count(GESPCLevelOneList)
  30.               if getAt(getAt(GESPCLevelOneList, z), 4) = 1 then
  31.                 repeat with x = 5 to count(getAt(GESPCLevelOneList, z))
  32.                   set GESTempListTwo to getAt(GESPCLevelOneList, z)
  33.                   set the locH of sprite getAt(getAt(GESTempListTwo, x), 1) to 2000
  34.                 end repeat
  35.                 setAt(getAt(GESPCLevelOneList, z), 4, 0)
  36.               end if
  37.               if getAt(getAt(GESPCLevelOneList, z), 3) = 1 then
  38.                 set the castNum of sprite getAt(getAt(GESPCLevelOneList, z), 1) to the castNum of sprite getAt(getAt(GESPCLevelOneList, z), 1) - 1
  39.                 if z = 1 then
  40.                   set the castNum of sprite getAt(getAt(GESPCLevelOneList, z), 2) to the castNum of sprite getAt(getAt(GESPCLevelOneList, z), 2) - 1
  41.                 end if
  42.                 setAt(getAt(GESPCLevelOneList, z), 3, 0)
  43.               end if
  44.             end repeat
  45.             setAt(getAt(GESPCLevelOneList, f), 4, 1)
  46.             repeat with x = 5 to count(getAt(GESPCLevelOneList, f))
  47.               set GESTempListTwo to getAt(GESPCLevelOneList, f)
  48.               if count(getAt(GESTempListTwo, x)) > 1 then
  49.                 set the castNum of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 2)
  50.                 set the locH of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 3)
  51.                 set the locV of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 4)
  52.               end if
  53.             end repeat
  54.           end if
  55.           if (getAt(getAt(GESPCLevelOneList, f), 3) = 0) or (GESPCBegin = 1) then
  56.             if GESPCBegin = 2 then
  57.               set the castNum of sprite getAt(getAt(GESPCLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESPCLevelOneList, f), 1) + 1
  58.               if f = 1 then
  59.                 set the castNum of sprite getAt(getAt(GESPCLevelOneList, f), 2) to the castNum of sprite getAt(getAt(GESPCLevelOneList, f), 2) + 1
  60.               end if
  61.               updateStage()
  62.             end if
  63.             set GESPCBegin to 2
  64.             repeat with d = 1 to count(GESPCLevelOneList)
  65.               if (getAt(getAt(GESPCLevelOneList, d), 3) = 1) and (d <> f) then
  66.                 if getAt(getAt(GESPCLevelOneList, d), 4) = 0 then
  67.                   set the castNum of sprite getAt(getAt(GESPCLevelOneList, d), 1) to the castNum of sprite getAt(getAt(GESPCLevelOneList, d), 1) - 1
  68.                   if d = 1 then
  69.                     set the castNum of sprite getAt(getAt(GESPCLevelOneList, d), 2) to the castNum of sprite getAt(getAt(GESPCLevelOneList, d), 2) - 1
  70.                   end if
  71.                   updateStage()
  72.                   setAt(getAt(GESPCLevelOneList, d), 3, 0)
  73.                 end if
  74.               end if
  75.             end repeat
  76.             setAt(getAt(GESPCLevelOneList, f), 3, 1)
  77.           end if
  78.           next repeat
  79.         end if
  80.         if GESPCBegin = 2 then
  81.           if (getAt(getAt(GESPCLevelOneList, f), 3) = 1) and (getAt(getAt(GESPCLevelOneList, f), 4) = 0) then
  82.             set the castNum of sprite getAt(getAt(GESPCLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESPCLevelOneList, f), 1) - 1
  83.             if f = 1 then
  84.               set the castNum of sprite getAt(getAt(GESPCLevelOneList, f), 2) to the castNum of sprite getAt(getAt(GESPCLevelOneList, f), 2) - 1
  85.             end if
  86.             updateStage()
  87.             setAt(getAt(GESPCLevelOneList, f), 3, 0)
  88.           end if
  89.         end if
  90.       end repeat
  91.     end if
  92.   else
  93.     if (GESDesOnStage = 2) and the mouseUp then
  94.       set GESDesOnStage to 0
  95.       set the locH of sprite 33 to 200
  96.       set the locV of sprite 33 to 200
  97.       set the locH of sprite 35 to 200
  98.       set the locV of sprite 35 to 229
  99.     end if
  100.   end if
  101.   if GESSytemUnit = 1 then
  102.     if rollOver(12) then
  103.       set the castNum of sprite 12 to the castNum of sprite 12 + 1
  104.       updateStage()
  105.       repeat while rollOver(12)
  106.         cursor([48, 49])
  107.         if the mouseDown then
  108.           set GESDesOnStage to 3
  109.           exit repeat
  110.         end if
  111.       end repeat
  112.       if GESDesOnStage <> 3 then
  113.         set the castNum of sprite 12 to the castNum of sprite 12 - 1
  114.       end if
  115.       updateStage()
  116.     end if
  117.   end if
  118.   if GESDesOnStage = 3 then
  119.     cursor(4)
  120.     updateStage()
  121.     set GESDesOnStage to 4
  122.     repeat with x = 1 to count(GESPCList)
  123.       if getAt(getAt(GESPCList, x), 1) <> 12 then
  124.         setAt(getAt(GESPCList, x), 2, the castNum of sprite getAt(getAt(GESPCList, x), 1))
  125.         setAt(getAt(GESPCList, x), 3, the locH of sprite getAt(getAt(GESPCList, x), 1))
  126.         setAt(getAt(GESPCList, x), 4, the locV of sprite getAt(getAt(GESPCList, x), 1))
  127.         setAt(getAt(GESPCList, x), 5, the ink of sprite getAt(getAt(GESPCList, x), 1))
  128.       end if
  129.       set the locH of sprite getAt(getAt(GESPCList, x), 1) to 2000
  130.     end repeat
  131.     repeat with x = 1 to count(GESInsidSysList)
  132.       set the castNum of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 2)
  133.       set the locH of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 3)
  134.       set the locV of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 4)
  135.       set the ink of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 5)
  136.     end repeat
  137.     updateStage()
  138.     cursor(-1)
  139.   end if
  140.   if GESDesOnStage = 4 then
  141.     set GESWhichXplor to 1
  142.     GESInsideSystem()
  143.   end if
  144.   if rollOver(33) then
  145.     set the locH of sprite 28 to 2000
  146.     set the locH of sprite 31 to 2000
  147.     set the castNum of sprite 33 to the castNum of sprite 33 + 1
  148.     updateStage()
  149.     repeat while rollOver(33)
  150.       cursor([48, 49])
  151.       if the mouseDown then
  152.         set GESDesOnStage to 8
  153.         repeat while the mouseDown
  154.         end repeat
  155.         exit repeat
  156.       end if
  157.     end repeat
  158.     if GESDesOnStage <> 8 then
  159.       set the castNum of sprite 33 to the castNum of sprite 33 - 1
  160.     end if
  161.     cursor(-1)
  162.     updateStage()
  163.   end if
  164.   if GESDesOnStage = 8 then
  165.     set GESDesOnStage to 9
  166.     repeat with x = 1 to count(GESPCList)
  167.       if (getAt(getAt(GESPCList, x), 1) <> 12) and (getAt(getAt(GESPCList, x), 1) <> 33) and (getAt(getAt(GESPCList, x), 1) <> 35) then
  168.         setAt(getAt(GESPCList, x), 2, the castNum of sprite getAt(getAt(GESPCList, x), 1))
  169.         setAt(getAt(GESPCList, x), 3, the locH of sprite getAt(getAt(GESPCList, x), 1))
  170.         setAt(getAt(GESPCList, x), 4, the locV of sprite getAt(getAt(GESPCList, x), 1))
  171.         setAt(getAt(GESPCList, x), 5, the ink of sprite getAt(getAt(GESPCList, x), 1))
  172.       end if
  173.       if getAt(getAt(GESPCList, x), 1) <> 3 then
  174.         set the locH of sprite getAt(getAt(GESPCList, x), 1) to 2000
  175.       end if
  176.     end repeat
  177.     cursor(4)
  178.     updateStage()
  179.     if GESPrinterfirst = 1 then
  180.       repeat with x = 1 to count(GESPrinterList)
  181.         set the castNum of sprite getAt(getAt(GESPrinterList, x), 1) to getAt(getAt(GESPrinterList, x), 2)
  182.         set the locH of sprite getAt(getAt(GESPrinterList, x), 1) to getAt(getAt(GESPrinterList, x), 3)
  183.         set the locV of sprite getAt(getAt(GESPrinterList, x), 1) to getAt(getAt(GESPrinterList, x), 4)
  184.         set the ink of sprite getAt(getAt(GESPrinterList, x), 1) to getAt(getAt(GESPrinterList, x), 5)
  185.       end repeat
  186.     else
  187.       set GESPrinterfirst to 1
  188.       repeat with x = 1 to count(GESPrinterIntroScreenList)
  189.         set the castNum of sprite getAt(getAt(GESPrinterIntroScreenList, x), 1) to getAt(getAt(GESPrinterIntroScreenList, x), 2)
  190.         set the locH of sprite getAt(getAt(GESPrinterIntroScreenList, x), 1) to getAt(getAt(GESPrinterIntroScreenList, x), 3)
  191.         set the locV of sprite getAt(getAt(GESPrinterIntroScreenList, x), 1) to getAt(getAt(GESPrinterIntroScreenList, x), 4)
  192.         set the ink of sprite getAt(getAt(GESPrinterIntroScreenList, x), 1) to getAt(getAt(GESPrinterIntroScreenList, x), 5)
  193.       end repeat
  194.     end if
  195.     updateStage()
  196.     cursor(-1)
  197.   end if
  198.   if GESDesOnStage = 9 then
  199.     set GESDesOnStage to 0
  200.     set GESWhichXplor to 2
  201.     GESExplorePrinters()
  202.   end if
  203.   if rollOver(35) then
  204.     set the castNum of sprite 35 to the castNum of sprite 35 + 1
  205.     updateStage()
  206.     repeat while rollOver(35)
  207.       cursor([48, 49])
  208.       if the mouseDown then
  209.         set GESDesOnStage to 14
  210.         repeat while the mouseDown
  211.         end repeat
  212.         exit repeat
  213.       end if
  214.     end repeat
  215.     if GESDesOnStage <> 14 then
  216.       set the castNum of sprite 35 to the castNum of sprite 35 - 1
  217.     end if
  218.     cursor(-1)
  219.     updateStage()
  220.   end if
  221.   if GESDesOnStage = 14 then
  222.     set GESDesOnStage to 15
  223.     repeat with x = 1 to count(GESPCList)
  224.       if (getAt(getAt(GESPCList, x), 1) <> 12) and (getAt(getAt(GESPCList, x), 1) <> 33) and (getAt(getAt(GESPCList, x), 1) <> 35) then
  225.         setAt(getAt(GESPCList, x), 2, the castNum of sprite getAt(getAt(GESPCList, x), 1))
  226.         setAt(getAt(GESPCList, x), 3, the locH of sprite getAt(getAt(GESPCList, x), 1))
  227.         setAt(getAt(GESPCList, x), 4, the locV of sprite getAt(getAt(GESPCList, x), 1))
  228.         setAt(getAt(GESPCList, x), 5, the ink of sprite getAt(getAt(GESPCList, x), 1))
  229.       end if
  230.       if getAt(getAt(GESPCList, x), 1) <> 3 then
  231.         set the locH of sprite getAt(getAt(GESPCList, x), 1) to 2000
  232.       end if
  233.     end repeat
  234.     cursor(4)
  235.     updateStage()
  236.     puppetPalette("NoteGes")
  237.     repeat with x = 1 to count(GESNotebookList)
  238.       set the castNum of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 2)
  239.       set the locH of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 3)
  240.       set the locV of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 4)
  241.       set the ink of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 5)
  242.     end repeat
  243.     updateStage()
  244.     cursor(-1)
  245.   end if
  246.   if GESDesOnStage = 15 then
  247.     set GESDesOnStage to 0
  248.     set GESWhichXplor to 3
  249.     GESExploreNoteBook()
  250.   end if
  251.   set GESNum to the mouseCast
  252.   GESPCINFO(GESNum)
  253.   GESBuyingTips()
  254. end
  255.