home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / GESFINJ.DXR / 00012_GESInsideSystem.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  6.3 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.                   updateStage()
  24.                   setAt(getAt(GESInsideLevelOneList, z), 3, 0)
  25.                   setAt(getAt(GESInsideLevelOneList, z), 4, 0)
  26.                 end if
  27.               end repeat
  28.               repeat with x = 5 to count(getAt(GESInsideLevelOneList, f))
  29.                 set GESTempListTwo to getAt(GESInsideLevelOneList, f)
  30.                 if count(getAt(GESTempListTwo, x)) > 1 then
  31.                   set the castNum of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 2)
  32.                   set the locH of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 3)
  33.                   set the locV of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 4)
  34.                 end if
  35.                 updateStage()
  36.               end repeat
  37.               set GESInsThisDes to getAt(getAt(GESTempListTwo, 5), 2)
  38.               set GESThisPos to f
  39.               setAt(getAt(GESInsideLevelOneList, f), 4, 1)
  40.             end if
  41.             if getAt(getAt(GESInsideLevelOneList, f), 3) = 0 then
  42.               set TestTwo to f
  43.               set the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) + 1
  44.               set the foreColor of line getAt(getAt(GESInsideLevelOneList, f), 2) of field the castNum of sprite GESInsideTextIntroSprite to GESBlack
  45.               updateStage()
  46.               setAt(getAt(GESInsideLevelOneList, f), 3, 1)
  47.             end if
  48.             next repeat
  49.           end if
  50.           if (getAt(getAt(GESInsideLevelOneList, f), 3) = 1) and (getAt(getAt(GESInsideLevelOneList, f), 4) = 0) then
  51.             set the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) - 1
  52.             set the foreColor of line getAt(getAt(GESInsideLevelOneList, f), 2) of field the castNum of sprite GESInsideTextIntroSprite to GESBrown
  53.             updateStage()
  54.             setAt(getAt(GESInsideLevelOneList, f), 3, 0)
  55.           end if
  56.         end repeat
  57.       end repeat
  58.       repeat with f = 1 to count(GESInsideLevelOneList)
  59.         if (getAt(getAt(GESInsideLevelOneList, f), 3) = 1) and (getAt(getAt(GESInsideLevelOneList, f), 4) = 0) then
  60.           set the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESInsideLevelOneList, f), 1) - 1
  61.           set the foreColor of line getAt(getAt(GESInsideLevelOneList, f), 2) of field the castNum of sprite GESInsideTextIntroSprite to GESBrown
  62.           updateStage()
  63.           setAt(getAt(GESInsideLevelOneList, f), 3, 0)
  64.         end if
  65.       end repeat
  66.     end if
  67.   else
  68.     if (GESDesOnStage = 2) and the mouseUp then
  69.       set GESDesOnStage to 4
  70.     end if
  71.   end if
  72.   if GESRollReturn = 1 then
  73.     set GESRollReturn to 0
  74.     cursor(-1)
  75.   end if
  76.   if rollOver(GESReturnIcon) and the mouseUp then
  77.     set GESRollReturn to 1
  78.     set the castNum of sprite GESReturnIcon to the castNum of sprite GESReturnIcon + 1
  79.     updateStage()
  80.     repeat while rollOver(GESReturnIcon)
  81.       cursor([48, 49])
  82.       if the mouseDown then
  83.         set GESDesOnStage to 5
  84.         exit repeat
  85.       end if
  86.     end repeat
  87.     if GESDesOnStage <> 5 then
  88.       set the castNum of sprite GESReturnIcon to the castNum of sprite GESReturnIcon - 1
  89.       cursor(-1)
  90.       updateStage()
  91.     else
  92.       set GESDesOnStage to 0
  93.       repeat with x = 1 to count(GESInsidSysList)
  94.         if getAt(getAt(GESInsidSysList, x), 1) <> GESReturnIcon then
  95.           setAt(getAt(GESInsidSysList, x), 2, the castNum of sprite getAt(getAt(GESInsidSysList, x), 1))
  96.           setAt(getAt(GESInsidSysList, x), 3, the locH of sprite getAt(getAt(GESInsidSysList, x), 1))
  97.           setAt(getAt(GESInsidSysList, x), 4, the locV of sprite getAt(getAt(GESInsidSysList, x), 1))
  98.           setAt(getAt(GESInsidSysList, x), 5, the ink of sprite getAt(getAt(GESInsidSysList, x), 1))
  99.         end if
  100.         set the locH of sprite getAt(getAt(GESInsidSysList, x), 1) to 2000
  101.       end repeat
  102.       repeat with x = 1 to count(GESPCList)
  103.         set the castNum of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 2)
  104.         set the locH of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 3)
  105.         set the locV of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 4)
  106.         set the ink of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 5)
  107.       end repeat
  108.       set the locH of sprite 37 to 2000
  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.