home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / geswaug.dxr / 00012_GESInsideSystem.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  6.2 KB  |  118 lines
  1. on GESInsideSystem
  2.   global GESReturnIcon, GESDesOnStage, GESPCBegin, GESSytemUnit, GESInsidSysList, GESPCList, GESPCLevelOneList, GESInsideLevelOneList, GESInsideTextIntroSprite, GESRollReturn, GESWhichXplor, GESInsThisDes, GESBrown, GESGreen, GESBlack
  3.   if GESDesOnStage = 4 then
  4.     if the mouseCast = the castNum of sprite GESInsideTextIntroSprite then
  5.       set GESRollReturn to 1
  6.       cursor([48, 49])
  7.       updateStage()
  8.     end if
  9.     if rollOver(17) or (rollOver(4) and the mouseUp) then
  10.       repeat while rollOver(17) or (rollOver(4) and not rollOver(46) and not rollOver(45) and not rollOver(40) and not rollOver(42) and not rollOver(38))
  11.         set test to the mouseLine
  12.         repeat with f = 1 to count(GESInsideLevelOneList)
  13.           if (test = getAt(getAt(GESInsideLevelOneList, f), 2)) or (the mouseCast = the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1)) then
  14.             if the mouseDown and (getAt(getAt(GESInsideLevelOneList, f), 4) = 0) then
  15.               repeat with z = 1 to count(GESInsideLevelOneList)
  16.                 if getAt(getAt(GESInsideLevelOneList, z), 4) = 1 then
  17.                   repeat with x = 5 to count(getAt(GESInsideLevelOneList, z))
  18.                     set GESTempListTwo to getAt(GESInsideLevelOneList, z)
  19.                     set the locH of sprite getAt(getAt(GESTempListTwo, x), 1) to 2000
  20.                   end repeat
  21.                   set the castNum of sprite getAt(getAt(GESInsideLevelOneList, z), 1) to the castNum of sprite getAt(getAt(GESInsideLevelOneList, z), 1) - 1
  22.                   set the foreColor of line getAt(getAt(GESInsideLevelOneList, z), 2) of field the castNum of sprite GESInsideTextIntroSprite to GESBrown
  23.                   setAt(getAt(GESInsideLevelOneList, z), 3, 0)
  24.                   setAt(getAt(GESInsideLevelOneList, z), 4, 0)
  25.                 end if
  26.               end repeat
  27.               repeat with x = 5 to count(getAt(GESInsideLevelOneList, f))
  28.                 set GESTempListTwo to getAt(GESInsideLevelOneList, f)
  29.                 if count(getAt(GESTempListTwo, x)) > 1 then
  30.                   set the castNum of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 2)
  31.                   set the locH of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 3)
  32.                   set the locV of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 4)
  33.                 end if
  34.               end repeat
  35.               set GESInsThisDes to getAt(getAt(GESTempListTwo, 5), 2)
  36.               set GESThisPos to f
  37.               setAt(getAt(GESInsideLevelOneList, f), 4, 1)
  38.             end if
  39.             if getAt(getAt(GESInsideLevelOneList, f), 3) = 0 then
  40.               set TestTwo to f
  41.               set the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) + 1
  42.               set the foreColor of line getAt(getAt(GESInsideLevelOneList, f), 2) of field the castNum of sprite GESInsideTextIntroSprite to GESBlack
  43.               updateStage()
  44.               setAt(getAt(GESInsideLevelOneList, f), 3, 1)
  45.             end if
  46.             next repeat
  47.           end if
  48.           if (getAt(getAt(GESInsideLevelOneList, f), 3) = 1) and (getAt(getAt(GESInsideLevelOneList, f), 4) = 0) then
  49.             set the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) - 1
  50.             set the foreColor of line getAt(getAt(GESInsideLevelOneList, f), 2) of field the castNum of sprite GESInsideTextIntroSprite to GESBrown
  51.             updateStage()
  52.             setAt(getAt(GESInsideLevelOneList, f), 3, 0)
  53.           end if
  54.         end repeat
  55.         updateStage()
  56.       end repeat
  57.       repeat with f = 1 to count(GESInsideLevelOneList)
  58.         if (getAt(getAt(GESInsideLevelOneList, f), 3) = 1) and (getAt(getAt(GESInsideLevelOneList, f), 4) = 0) then
  59.           set the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) - 1
  60.           set the foreColor of line getAt(getAt(GESInsideLevelOneList, f), 2) of field the castNum of sprite GESInsideTextIntroSprite to GESBrown
  61.           updateStage()
  62.           setAt(getAt(GESInsideLevelOneList, f), 3, 0)
  63.         end if
  64.       end repeat
  65.     end if
  66.   else
  67.     if (GESDesOnStage = 2) and the mouseUp then
  68.       set GESDesOnStage to 4
  69.     end if
  70.   end if
  71.   if GESRollReturn = 1 then
  72.     set GESRollReturn to 0
  73.     cursor(-1)
  74.   end if
  75.   if rollOver(GESReturnIcon) and the mouseUp then
  76.     set GESRollReturn to 1
  77.     set the castNum of sprite GESReturnIcon to the castNum of sprite GESReturnIcon + 1
  78.     updateStage()
  79.     repeat while rollOver(GESReturnIcon)
  80.       cursor([48, 49])
  81.       if the mouseDown then
  82.         set GESDesOnStage to 5
  83.         exit repeat
  84.       end if
  85.     end repeat
  86.     if GESDesOnStage <> 5 then
  87.       set the castNum of sprite GESReturnIcon to the castNum of sprite GESReturnIcon - 1
  88.       cursor(-1)
  89.       updateStage()
  90.     else
  91.       set GESDesOnStage to 0
  92.       repeat with x = 1 to count(GESInsidSysList)
  93.         if getAt(getAt(GESInsidSysList, x), 1) <> GESReturnIcon then
  94.           setAt(getAt(GESInsidSysList, x), 2, the castNum of sprite getAt(getAt(GESInsidSysList, x), 1))
  95.           setAt(getAt(GESInsidSysList, x), 3, the locH of sprite getAt(getAt(GESInsidSysList, x), 1))
  96.           setAt(getAt(GESInsidSysList, x), 4, the locV of sprite getAt(getAt(GESInsidSysList, x), 1))
  97.           setAt(getAt(GESInsidSysList, x), 5, the ink of sprite getAt(getAt(GESInsidSysList, x), 1))
  98.         end if
  99.         set the locH of sprite getAt(getAt(GESInsidSysList, x), 1) to 2000
  100.       end repeat
  101.       repeat with x = 1 to count(GESPCList)
  102.         set the castNum of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 2)
  103.         set the locH of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 3)
  104.         set the locV of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 4)
  105.         set the ink of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 5)
  106.       end repeat
  107.       set the locH of sprite 37 to 2000
  108.       cursor(-1)
  109.       updateStage()
  110.       set GESWhichXplor to 0
  111.       GESExplorePc()
  112.     end if
  113.   end if
  114.   set GESNum to the mouseCast
  115.   GESINSPCINFO(GESNum)
  116.   GESBuyingTips()
  117. end
  118.