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