home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / geswaug.dxr / 00022_GESExploreNoteBook.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  6.4 KB  |  143 lines
  1. on GESExploreNoteBook
  2.   global GESReturnIcon, GESDesOnStage, GESPCBegin, GESInsidSysList, GESPCList, GESPCLevelOneList, GESInsideLevelOneList, GESInsideTextIntroSprite, GESRollReturn, GESWhichXplor, GESInsThisDes, GESBrown, GESGreen, GESBlack, GESSytemUnit, GESNoteAllBlue, GESNoteLevelOneList, GESNotefirst
  3.   if GESNoteAllBlue = 0 then
  4.     if rollOver(6) then
  5.       set GESNoteAllBlue to 1
  6.       set the locH of sprite 19 to 2000
  7.       updateStage()
  8.     end if
  9.   else
  10.     if GESDesOnStage = 0 then
  11.       if rollOver(4) and the mouseUp then
  12.         set GESLeaveNote to 0
  13.         repeat while rollOver(4) and not rollOver(GESReturnIcon)
  14.           repeat with t = 37 to 48
  15.             if rollOver(t) then
  16.               set GESLeaveNote to 1
  17.               exit repeat
  18.             end if
  19.           end repeat
  20.           if GESLeaveNote = 1 then
  21.             set GESLeaveNote to 0
  22.             exit repeat
  23.           end if
  24.           repeat with f = 1 to count(GESNoteLevelOneList)
  25.             if the mouseCast = the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) then
  26.               if the mouseDown and (getAt(getAt(GESNoteLevelOneList, f), 4) = 0) then
  27.                 if GESNotefirst = 0 then
  28.                   set GESNotefirst to 1
  29.                   set the ink of sprite 15 to 36
  30.                   updateStage()
  31.                 end if
  32.                 repeat with z = 1 to count(GESNoteLevelOneList)
  33.                   if getAt(getAt(GESNoteLevelOneList, z), 4) = 1 then
  34.                     repeat with x = 5 to count(getAt(GESNoteLevelOneList, z))
  35.                       set GESTempListTwo to getAt(GESNoteLevelOneList, 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(GESNoteLevelOneList, z), 1) to the castNum of sprite getAt(getAt(GESNoteLevelOneList, z), 1) - 1
  39.                     setAt(getAt(GESNoteLevelOneList, z), 3, 0)
  40.                     setAt(getAt(GESNoteLevelOneList, z), 4, 0)
  41.                   end if
  42.                 end repeat
  43.                 repeat with x = 5 to count(getAt(GESNoteLevelOneList, f))
  44.                   set GESTempListTwo to getAt(GESNoteLevelOneList, f)
  45.                   if count(getAt(GESTempListTwo, x)) > 1 then
  46.                     set the castNum of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 2)
  47.                     set the locH of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 3)
  48.                     set the locV of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 4)
  49.                   end if
  50.                 end repeat
  51.                 setAt(getAt(GESNoteLevelOneList, f), 4, 1)
  52.               end if
  53.               if getAt(getAt(GESNoteLevelOneList, f), 3) = 0 then
  54.                 set TestTwo to f
  55.                 set the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) + 1
  56.                 updateStage()
  57.                 setAt(getAt(GESNoteLevelOneList, f), 3, 1)
  58.               end if
  59.               next repeat
  60.             end if
  61.             if (getAt(getAt(GESNoteLevelOneList, f), 3) = 1) and (getAt(getAt(GESNoteLevelOneList, f), 4) = 0) then
  62.               set the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) - 1
  63.               updateStage()
  64.               setAt(getAt(GESNoteLevelOneList, f), 3, 0)
  65.             end if
  66.           end repeat
  67.           updateStage()
  68.         end repeat
  69.         repeat with f = 1 to count(GESNoteLevelOneList)
  70.           if (getAt(getAt(GESNoteLevelOneList, f), 3) = 1) and (getAt(getAt(GESNoteLevelOneList, f), 4) = 0) then
  71.             set the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) - 1
  72.             updateStage()
  73.             setAt(getAt(GESNoteLevelOneList, f), 3, 0)
  74.           end if
  75.         end repeat
  76.       end if
  77.     else
  78.       if (GESDesOnStage = 2) and the mouseUp then
  79.         set GESDesOnStage to 0
  80.         set the locH of sprite 11 to 200
  81.       end if
  82.     end if
  83.     if GESRollReturn = 1 then
  84.       set GESRollReturn to 0
  85.       cursor(-1)
  86.     end if
  87.     if rollOver(GESReturnIcon) and the mouseUp then
  88.       set GESRollReturn to 1
  89.       set the castNum of sprite GESReturnIcon to the castNum of sprite GESReturnIcon + 1
  90.       updateStage()
  91.       repeat while rollOver(GESReturnIcon)
  92.         cursor([48, 49])
  93.         if the mouseDown then
  94.           repeat while the mouseDown
  95.           end repeat
  96.           set GESDesOnStage to 5
  97.           exit repeat
  98.         end if
  99.       end repeat
  100.       if GESDesOnStage <> 5 then
  101.         set the castNum of sprite GESReturnIcon to the castNum of sprite GESReturnIcon - 1
  102.         cursor(-1)
  103.         updateStage()
  104.       else
  105.         set GESDesOnStage to 0
  106.         repeat with x = 1 to count(GESNotebookList)
  107.           if getAt(getAt(GESNotebookList, x), 1) <> GESReturnIcon then
  108.             setAt(getAt(GESNotebookList, x), 2, the castNum of sprite getAt(getAt(GESNotebookList, x), 1))
  109.             setAt(getAt(GESNotebookList, x), 3, the locH of sprite getAt(getAt(GESNotebookList, x), 1))
  110.             setAt(getAt(GESNotebookList, x), 4, the locV of sprite getAt(getAt(GESNotebookList, x), 1))
  111.             setAt(getAt(GESNotebookList, x), 5, the ink of sprite getAt(getAt(GESNotebookList, x), 1))
  112.           end if
  113.           if getAt(getAt(GESNotebookList, x), 1) <> 3 then
  114.             set the locH of sprite getAt(getAt(GESNotebookList, x), 1) to 2000
  115.           end if
  116.         end repeat
  117.         set the locH of sprite 37 to 2000
  118.         cursor(-1)
  119.         set the castNum of sprite 3 to 341
  120.         cursor(4)
  121.         updateStage()
  122.         puppetPalette(998)
  123.         repeat with x = 1 to count(GESPCList)
  124.           set the castNum of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 2)
  125.           set the locH of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 3)
  126.           set the locV of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 4)
  127.           set the ink of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 5)
  128.         end repeat
  129.         if GESSytemUnit = 0 then
  130.           set the locH of sprite 12 to 2000
  131.         end if
  132.         updateStage()
  133.         cursor(-1)
  134.         set GESWhichXplor to 0
  135.         GESExplorePc()
  136.       end if
  137.     end if
  138.   end if
  139.   set GESNum to the mouseCast
  140.   GESNOTEINFO(GESNum)
  141.   GESBuyingNoteTips()
  142. end
  143.