home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / GESFINJ.DXR / 00011_GESExplorePc.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  6.3 KB  |  142 lines
  1. on GESExplorePc
  2.   global GESPCLevelOneList, IFLGettingSNameSprite, GESPCBegin, GESPCTextList, GESDesOnStage, GESSytemUnit, GESPCList, GESInsidSysList, GESWhichXplor, GESBrown, GESGreen
  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.     end if
  96.   end if
  97.   if GESSytemUnit = 1 then
  98.     if rollOver(12) then
  99.       set the castNum of sprite 12 to the castNum of sprite 12 + 1
  100.       updateStage()
  101.       repeat while rollOver(12)
  102.         cursor([48, 49])
  103.         if the mouseDown then
  104.           set GESDesOnStage to 3
  105.           exit repeat
  106.         end if
  107.       end repeat
  108.       if GESDesOnStage <> 3 then
  109.         set the castNum of sprite 12 to the castNum of sprite 12 - 1
  110.       end if
  111.       cursor(-1)
  112.       updateStage()
  113.     end if
  114.   end if
  115.   if GESDesOnStage = 3 then
  116.     set GESDesOnStage to 4
  117.     repeat with x = 1 to count(GESPCList)
  118.       if getAt(getAt(GESPCList, x), 1) <> 12 then
  119.         setAt(getAt(GESPCList, x), 2, the castNum of sprite getAt(getAt(GESPCList, x), 1))
  120.         setAt(getAt(GESPCList, x), 3, the locH of sprite getAt(getAt(GESPCList, x), 1))
  121.         setAt(getAt(GESPCList, x), 4, the locV of sprite getAt(getAt(GESPCList, x), 1))
  122.         setAt(getAt(GESPCList, x), 5, the ink of sprite getAt(getAt(GESPCList, x), 1))
  123.       end if
  124.       set the locH of sprite getAt(getAt(GESPCList, x), 1) to 2000
  125.     end repeat
  126.     repeat with x = 1 to count(GESInsidSysList)
  127.       set the castNum of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 2)
  128.       set the locH of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 3)
  129.       set the locV of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 4)
  130.       set the ink of sprite getAt(getAt(GESInsidSysList, x), 1) to getAt(getAt(GESInsidSysList, x), 5)
  131.     end repeat
  132.     updateStage()
  133.   end if
  134.   if GESDesOnStage = 4 then
  135.     set GESWhichXplor to 1
  136.     GESInsideSystem()
  137.   end if
  138.   set GESNum to the mouseCast
  139.   GESPCINFO(GESNum)
  140.   GESBuyingTips()
  141. end
  142.