home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GESWDEC.DXR / 00022_GESExploreNoteBook.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  9.7 KB  |  214 lines
  1. on GESExploreNoteBook
  2.   global GESReturnIcon, GESDesOnStage, GESPCBegin, GESInsidSysList, GESPCList, GESPCLevelOneList, GESInsideLevelOneList, GESInsideTextIntroSprite, GESRollReturn, GESWhichXplor, GESInsThisDes, GESBrown, GESGreen, GESBlack, GESSytemUnit, GESNoteAllBlue, GESHeadList, IFLSpriteDifference, GTSLASTRolledover, GESPrinterfirst, GESPrinterList, GESPrinterIntroScreenList, GESNoteLevelOneList, GESNotefirst
  3.   if GESDesOnStage = 0 then
  4.     if rollOver(4) and the mouseUp then
  5.       set GESLeaveNote to 0
  6.       repeat while rollOver(4) and not rollOver(GESReturnIcon) and not rollOver(16)
  7.         repeat with t = 37 to 48
  8.           if rollOver(t) then
  9.             set GESLeaveNote to 1
  10.             exit repeat
  11.           end if
  12.         end repeat
  13.         if GESLeaveNote = 1 then
  14.           set GESLeaveNote to 0
  15.           exit repeat
  16.         end if
  17.         repeat with t = 39 to 47
  18.           set WHICHHEADING to getAt(GESHeadList, t - IFLSpriteDifference)
  19.           if (getAt(WHICHHEADING, 5) = 1) and not rollOver(t) then
  20.             setAt(WHICHHEADING, 5, 0)
  21.             if GTSLASTRolledover = t then
  22.               set the castNum of sprite 31 to -1
  23.               set the locH of sprite 31 to 2000
  24.               updateStage()
  25.               set the castNum of sprite 31 to 50
  26.               updateStage()
  27.               set GTSLASTRolledover to 0
  28.               if the castNum of sprite getAt(WHICHHEADING, 7) <> the number of member "ALLNAmesGTS" then
  29.                 set the locH of sprite getAt(WHICHHEADING, 7) to 2000
  30.               end if
  31.             end if
  32.           end if
  33.         end repeat
  34.         repeat with f = 1 to count(GESNoteLevelOneList)
  35.           if the mouseCast = the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) then
  36.             if the mouseDown and (getAt(getAt(GESNoteLevelOneList, f), 4) = 0) then
  37.               if GESNotefirst = 0 then
  38.                 set GESNotefirst to 1
  39.                 set the ink of sprite 15 to 36
  40.                 updateStage()
  41.               end if
  42.               repeat with z = 1 to count(GESNoteLevelOneList)
  43.                 if getAt(getAt(GESNoteLevelOneList, z), 4) = 1 then
  44.                   repeat with x = 5 to count(getAt(GESNoteLevelOneList, z))
  45.                     set GESTempListTwo to getAt(GESNoteLevelOneList, z)
  46.                     set the locH of sprite getAt(getAt(GESTempListTwo, x), 1) to 2000
  47.                   end repeat
  48.                   set the castNum of sprite getAt(getAt(GESNoteLevelOneList, z), 1) to the castNum of sprite getAt(getAt(GESNoteLevelOneList, z), 1) - 1
  49.                   setAt(getAt(GESNoteLevelOneList, z), 3, 0)
  50.                   setAt(getAt(GESNoteLevelOneList, z), 4, 0)
  51.                 end if
  52.               end repeat
  53.               repeat with x = 5 to count(getAt(GESNoteLevelOneList, f))
  54.                 set GESTempListTwo to getAt(GESNoteLevelOneList, f)
  55.                 if count(getAt(GESTempListTwo, x)) > 1 then
  56.                   set the castNum of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 2)
  57.                   set the locH of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 3)
  58.                   set the locV of sprite getAt(getAt(GESTempListTwo, x), 1) to getAt(getAt(GESTempListTwo, x), 4)
  59.                 end if
  60.               end repeat
  61.               setAt(getAt(GESNoteLevelOneList, f), 4, 1)
  62.             end if
  63.             if getAt(getAt(GESNoteLevelOneList, f), 3) = 0 then
  64.               set TestTwo to f
  65.               set the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) + 1
  66.               updateStage()
  67.               setAt(getAt(GESNoteLevelOneList, f), 3, 1)
  68.             end if
  69.             next repeat
  70.           end if
  71.           if (getAt(getAt(GESNoteLevelOneList, f), 3) = 1) and (getAt(getAt(GESNoteLevelOneList, f), 4) = 0) then
  72.             set the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) - 1
  73.             updateStage()
  74.             setAt(getAt(GESNoteLevelOneList, f), 3, 0)
  75.           end if
  76.         end repeat
  77.         updateStage()
  78.       end repeat
  79.       repeat with f = 1 to count(GESNoteLevelOneList)
  80.         if (getAt(getAt(GESNoteLevelOneList, f), 3) = 1) and (getAt(getAt(GESNoteLevelOneList, f), 4) = 0) then
  81.           set the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) to the castNum of sprite getAt(getAt(GESNoteLevelOneList, f), 1) - 1
  82.           updateStage()
  83.           setAt(getAt(GESNoteLevelOneList, f), 3, 0)
  84.         end if
  85.       end repeat
  86.     end if
  87.   else
  88.     if (GESDesOnStage = 2) and the mouseUp then
  89.       set GESDesOnStage to 0
  90.       set the loc of sprite 11 to point(200, 200)
  91.       set the loc of sprite 16 to point(200, 229)
  92.     end if
  93.   end if
  94.   if GESRollReturn = 1 then
  95.     set GESRollReturn to 0
  96.     cursor(-1)
  97.   end if
  98.   if rollOver(GESReturnIcon) and the mouseUp then
  99.     set GESRollReturn to 1
  100.     set the locH of sprite 28 to 2000
  101.     set the locH of sprite 31 to 2000
  102.     set the castNum of sprite GESReturnIcon to the castNum of sprite GESReturnIcon + 1
  103.     updateStage()
  104.     repeat while rollOver(GESReturnIcon)
  105.       cursor([48, 49])
  106.       if the mouseDown then
  107.         repeat while the mouseDown
  108.         end repeat
  109.         set GESDesOnStage to 5
  110.         exit repeat
  111.       end if
  112.     end repeat
  113.     if GESDesOnStage <> 5 then
  114.       set the castNum of sprite GESReturnIcon to the castNum of sprite GESReturnIcon - 1
  115.       cursor(-1)
  116.       updateStage()
  117.     else
  118.       set GESDesOnStage to 0
  119.       repeat with x = 1 to count(GESNotebookList)
  120.         if getAt(getAt(GESNotebookList, x), 1) <> GESReturnIcon then
  121.           setAt(getAt(GESNotebookList, x), 2, the castNum of sprite getAt(getAt(GESNotebookList, x), 1))
  122.           setAt(getAt(GESNotebookList, x), 3, the locH of sprite getAt(getAt(GESNotebookList, x), 1))
  123.           setAt(getAt(GESNotebookList, x), 4, the locV of sprite getAt(getAt(GESNotebookList, x), 1))
  124.           setAt(getAt(GESNotebookList, x), 5, the ink of sprite getAt(getAt(GESNotebookList, x), 1))
  125.         end if
  126.         if getAt(getAt(GESNotebookList, x), 1) <> 3 then
  127.           set the locH of sprite getAt(getAt(GESNotebookList, x), 1) to 2000
  128.         end if
  129.       end repeat
  130.       set the locH of sprite 37 to 2000
  131.       cursor(-1)
  132.       set the castNum of sprite 3 to 431
  133.       cursor(4)
  134.       updateStage()
  135.       puppetPalette("GESMASTER")
  136.       repeat with x = 1 to count(GESPCList)
  137.         set the castNum of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 2)
  138.         set the locH of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 3)
  139.         set the locV of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 4)
  140.         set the ink of sprite getAt(getAt(GESPCList, x), 1) to getAt(getAt(GESPCList, x), 5)
  141.       end repeat
  142.       if GESSytemUnit = 0 then
  143.         set the locH of sprite 12 to 2000
  144.       end if
  145.       updateStage()
  146.       cursor(-1)
  147.       set GESWhichXplor to 0
  148.       GESExplorePc()
  149.     end if
  150.   end if
  151.   if rollOver(16) and the mouseUp then
  152.     set GESRollReturn to 1
  153.     set the castNum of sprite 16 to the castNum of sprite 16 + 1
  154.     updateStage()
  155.     repeat while rollOver(16)
  156.       cursor([48, 49])
  157.       if the mouseDown then
  158.         repeat while the mouseDown
  159.         end repeat
  160.         set GESDesOnStage to 15
  161.         exit repeat
  162.       end if
  163.     end repeat
  164.     if GESDesOnStage <> 15 then
  165.       set the castNum of sprite 16 to the castNum of sprite 16 - 1
  166.       cursor(-1)
  167.       updateStage()
  168.     else
  169.       set GESDesOnStage to 0
  170.       repeat with x = 1 to count(GESNotebookList)
  171.         if getAt(getAt(GESNotebookList, x), 1) <> 16 then
  172.           setAt(getAt(GESNotebookList, x), 2, the castNum of sprite getAt(getAt(GESNotebookList, x), 1))
  173.           setAt(getAt(GESNotebookList, x), 3, the locH of sprite getAt(getAt(GESNotebookList, x), 1))
  174.           setAt(getAt(GESNotebookList, x), 4, the locV of sprite getAt(getAt(GESNotebookList, x), 1))
  175.           setAt(getAt(GESNotebookList, x), 5, the ink of sprite getAt(getAt(GESNotebookList, x), 1))
  176.         end if
  177.         if getAt(getAt(GESNotebookList, x), 1) <> 3 then
  178.           set the locH of sprite getAt(getAt(GESNotebookList, x), 1) to 2000
  179.         end if
  180.       end repeat
  181.       set the locH of sprite 37 to 2000
  182.       cursor(-1)
  183.       set the castNum of sprite 3 to 431
  184.       cursor(4)
  185.       updateStage()
  186.       puppetPalette("GESMASTER")
  187.       if GESPrinterfirst = 1 then
  188.         repeat with x = 1 to count(GESPrinterList)
  189.           set the castNum of sprite getAt(getAt(GESPrinterList, x), 1) to getAt(getAt(GESPrinterList, x), 2)
  190.           set the locH of sprite getAt(getAt(GESPrinterList, x), 1) to getAt(getAt(GESPrinterList, x), 3)
  191.           set the locV of sprite getAt(getAt(GESPrinterList, x), 1) to getAt(getAt(GESPrinterList, x), 4)
  192.           set the ink of sprite getAt(getAt(GESPrinterList, x), 1) to getAt(getAt(GESPrinterList, x), 5)
  193.         end repeat
  194.       else
  195.         set GESPrinterfirst to 1
  196.         repeat with x = 1 to count(GESPrinterIntroScreenList)
  197.           set the castNum of sprite getAt(getAt(GESPrinterIntroScreenList, x), 1) to getAt(getAt(GESPrinterIntroScreenList, x), 2)
  198.           set the locH of sprite getAt(getAt(GESPrinterIntroScreenList, x), 1) to getAt(getAt(GESPrinterIntroScreenList, x), 3)
  199.           set the locV of sprite getAt(getAt(GESPrinterIntroScreenList, x), 1) to getAt(getAt(GESPrinterIntroScreenList, x), 4)
  200.           set the ink of sprite getAt(getAt(GESPrinterIntroScreenList, x), 1) to getAt(getAt(GESPrinterIntroScreenList, x), 5)
  201.         end repeat
  202.       end if
  203.       updateStage()
  204.       cursor(-1)
  205.       set GESDesOnStage to 0
  206.       set GESWhichXplor to 2
  207.       GESExplorePrinters()
  208.     end if
  209.   end if
  210.   set GESNum to the mouseCast
  211.   GESNOTEINFO(GESNum)
  212.   GESBuyingNoteTips()
  213. end
  214.