home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / geswaug.dxr / 00011_GESExplorePc.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  8.3 KB  |  194 lines
  1. on GESExplorePc
  2.   global GESPCLevelOneList, IFLGettingSNameSprite, GESPCBegin, GESPCTextList, GESDesOnStage, GESSytemUnit, GESPCList, GESInsidSysList, GESWhichXplor, GESBrown, GESGreen, 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.     end if
  98.   end if
  99.   if GESSytemUnit = 1 then
  100.     if rollOver(12) then
  101.       set the castNum of sprite 12 to the castNum of sprite 12 + 1
  102.       updateStage()
  103.       repeat while rollOver(12)
  104.         cursor([48, 49])
  105.         if the mouseDown then
  106.           set GESDesOnStage to 3
  107.           exit repeat
  108.         end if
  109.       end repeat
  110.       if GESDesOnStage <> 3 then
  111.         set the castNum of sprite 12 to the castNum of sprite 12 - 1
  112.       end if
  113.       updateStage()
  114.     end if
  115.   end if
  116.   if GESDesOnStage = 3 then
  117.     cursor(4)
  118.     updateStage()
  119.     set GESDesOnStage to 4
  120.     repeat with x = 1 to count(GESPCList)
  121.       if getAt(getAt(GESPCList, x), 1) <> 12 then
  122.         setAt(getAt(GESPCList, x), 2, the castNum of sprite getAt(getAt(GESPCList, x), 1))
  123.         setAt(getAt(GESPCList, x), 3, the locH of sprite getAt(getAt(GESPCList, x), 1))
  124.         setAt(getAt(GESPCList, x), 4, the locV of sprite getAt(getAt(GESPCList, x), 1))
  125.         setAt(getAt(GESPCList, x), 5, the ink of sprite getAt(getAt(GESPCList, x), 1))
  126.       end if
  127.       set the locH of sprite getAt(getAt(GESPCList, x), 1) to 2000
  128.     end repeat
  129.     repeat with x = 1 to count(GESInsidSysList)
  130.       set the castNum of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 2)
  131.       set the locH of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 3)
  132.       set the locV of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 4)
  133.       set the ink of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 5)
  134.     end repeat
  135.     updateStage()
  136.     cursor(-1)
  137.   end if
  138.   if GESDesOnStage = 4 then
  139.     set GESWhichXplor to 1
  140.     GESInsideSystem()
  141.   end if
  142.   if rollOver(33) then
  143.     set the castNum of sprite 33 to the castNum of sprite 33 + 1
  144.     updateStage()
  145.     repeat while rollOver(33)
  146.       cursor([48, 49])
  147.       if the mouseDown then
  148.         set GESDesOnStage to 8
  149.         repeat while the mouseDown
  150.         end repeat
  151.         exit repeat
  152.       end if
  153.     end repeat
  154.     if GESDesOnStage <> 8 then
  155.       set the castNum of sprite 33 to the castNum of sprite 33 - 1
  156.     end if
  157.     cursor(-1)
  158.     updateStage()
  159.   end if
  160.   if GESDesOnStage = 8 then
  161.     set GESDesOnStage to 9
  162.     repeat with x = 1 to count(GESPCList)
  163.       if (getAt(getAt(GESPCList, x), 1) <> 12) and (getAt(getAt(GESPCList, x), 1) <> 33) then
  164.         setAt(getAt(GESPCList, x), 2, the castNum of sprite getAt(getAt(GESPCList, x), 1))
  165.         setAt(getAt(GESPCList, x), 3, the locH of sprite getAt(getAt(GESPCList, x), 1))
  166.         setAt(getAt(GESPCList, x), 4, the locV of sprite getAt(getAt(GESPCList, x), 1))
  167.         setAt(getAt(GESPCList, x), 5, the ink of sprite getAt(getAt(GESPCList, x), 1))
  168.       end if
  169.       if getAt(getAt(GESPCList, x), 1) <> 3 then
  170.         set the locH of sprite getAt(getAt(GESPCList, x), 1) to 2000
  171.       end if
  172.     end repeat
  173.     cursor(4)
  174.     updateStage()
  175.     puppetPalette("NoteGes")
  176.     repeat with x = 1 to count(GESNotebookList)
  177.       set the castNum of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 2)
  178.       set the locH of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 3)
  179.       set the locV of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 4)
  180.       set the ink of sprite getAt(getAt(GESNotebookList, x), 1) to getAt(getAt(GESNotebookList, x), 5)
  181.     end repeat
  182.     updateStage()
  183.     cursor(-1)
  184.   end if
  185.   if GESDesOnStage = 9 then
  186.     set GESDesOnStage to 0
  187.     set GESWhichXplor to 2
  188.     GESExploreNoteBook()
  189.   end if
  190.   set GESNum to the mouseCast
  191.   GESPCINFO(GESNum)
  192.   GESBuyingTips()
  193. end
  194.