home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / search.dir / 00028.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  10.2 KB  |  186 lines
  1. on startMovie
  2.   global InSub, Chapter, StartSprite, CurrSound
  3.   sound stop 1
  4.   sound stop 2
  5.   set InSub to 0
  6.   put " " into field "subSubList"
  7.   set Chapter to EMPTY
  8.   set StartSprite to 1
  9.   set CurrSound to EMPTY
  10. end
  11.  
  12. on stopMovie
  13.   global Chapter
  14.   if Chapter <> EMPTY then
  15.     put field "tempText" into field string(Chapter && "HeadLines")
  16.   end if
  17. end
  18.  
  19. on hiliteSprite theSprite
  20.   repeat with i = 2 to 9
  21.     if the castNum of sprite i mod 2 then
  22.       set the castNum of sprite i to the castNum of sprite i - 1
  23.     end if
  24.   end repeat
  25.   set the castNum of sprite theSprite to the castNum of sprite theSprite + 1
  26.   updateStage()
  27. end
  28.  
  29. on placeArrow fieldSprite, ArrowSprite
  30.   set the locH of sprite ArrowSprite to the left of sprite fieldSprite + ((the right of sprite fieldSprite - the left of sprite fieldSprite) / 2)
  31.   set the locV of sprite ArrowSprite to the top of sprite fieldSprite - 10
  32.   set the locH of sprite (ArrowSprite + 1) to the locH of sprite ArrowSprite
  33.   set the locV of sprite (ArrowSprite + 1) to the bottom of sprite fieldSprite + 7
  34. end
  35.  
  36. on rollOvers
  37.   if rollOver(20) then
  38.     roll(20)
  39.   else
  40.     if rollOver(21) then
  41.       roll(21)
  42.     end if
  43.   end if
  44. end
  45.  
  46. on roll theSprite
  47.   set the castNum of sprite theSprite to the castNum of sprite theSprite + 1
  48.   updateStage()
  49.   repeat while rollOver(theSprite) and not (the mouseDown)
  50.     nothing()
  51.   end repeat
  52.   set the castNum of sprite theSprite to the castNum of sprite theSprite - 1
  53.   updateStage()
  54. end
  55.  
  56. on xx
  57.   set temp to field "7 sub a"
  58.   set temp2 to field "timeLine text"
  59.   set i to 1
  60.   repeat while i <= the number of lines in temp
  61.     if char 1 of line i of temp <> "@" then
  62.       if (charToNum(char 2 of line i of temp) > 90) or (charToNum(char 2 of line i of temp) < 65) then
  63.         put line i - 1 of temp2 & RETURN before line i of temp2
  64.       end if
  65.     end if
  66.     set i to i + 1
  67.   end repeat
  68.   delete line i + 1 to the number of lines in temp2 of temp2
  69.   beep(2)
  70.   put temp2 into field "timeLine text"
  71.   put field "timeLine text"
  72. end
  73.  
  74. on PlacePict
  75.   global StartSprite, NextFrame
  76.   set the castNum of sprite 13 to the number of cast ("page" & StartSprite)
  77.   updateStage()
  78. end
  79.  
  80. on chaptersLists theChapter, theSprite
  81.   global ItemDel, StartSprite, status, SavedPos, ToGo, Person, goto, NextFrame, lastFrame, CurrFrame
  82.   set out to 0
  83.   if theChapter = "body" then
  84.     set thePath to string("makers" & ItemDel & "makers" & ItemDel & "body" & ItemDel & "bodyMain.dir")
  85.     set MakersList to ["ali,337": 1, "bannister,438": 1, "banting,2289": 2, "barnard,2308": 2, "chanel,1541": 1, "crick,2513": 2, "valois,2005": 1, "duncan,1743": 1, "ehrlich,2321": 2, "fleming,2547": 2, "montagnier,2402": 2, "grahamm,1852": 1, "jordan,885": 1, "korbut,1423": 1, "montagnier,2402": 2, "navratilova,1001": 1, "nureyev,2137": 1, "owens,1144": 1, "pele,1320": 1, "pincus,2518": 2, "ruth,656": 1, "sanger,2397": 2, "spok,2362": 2, "steptoe,2467": 2, "crick,2513": 2]
  86.     set prevGoTo to getPropAt(MakersList, theSprite - 16)
  87.     set temp to getAt(MakersList, theSprite - 16)
  88.     set NextFrame to item 1 of prevGoTo
  89.     set lastFrame to NextFrame
  90.     set CurrFrame to NextFrame
  91.     set goto to value(item 2 of prevGoTo)
  92.     if temp = 2 then
  93.       go("fade", string(thePath))
  94.     else
  95.       go("fade2", string(thePath))
  96.     end if
  97.   else
  98.     if theChapter = "power" then
  99.       set thePath to string("makers" & ItemDel & "makers" & ItemDel & "power")
  100.       set MakersList to ["AE.DIR": "016", "AE.DIR": "011", "UE.DIR": "030", "ASE.DIR": "win2", "EE.DIR": "011", "RE.DIR": "047", "UE.DIR": "059", "EE.DIR": "152", "Terror.DIR": "043", "EE.DIR": "109", "UE.DIR": "056", "ASE.DIR": "038", "TERROR.DIR": "pab", "EE.DIR": "093", "UE.DIR": "056", "ASE.DIR": "015", "ASE.DIR": "null", "RE.DIR": "059", "AE.DIR": "024", "UE.DIR": "104", "ASE.DIR": "078", "EE.DIR": "153", "ASE.DIR": "100", "UE.DIR": "048", "AE.DIR": "099", "RE.DIR": "021", "UE.DIR": "014", "EE.DIR": "023", "RE.DIR": "072", "UE.DIR": "015", "AE.DIR": "088", "ASE.DIR": "082", "TERROR.DIR": "034", "UE.DIR": "054", "EE.DIR": "100", "AE.DIR": "033", "UE.DIR": "048", "TERROR.DIR": "009", "UE.DIR": "017", "UE.DIR": "047", "UE.DIR": "078", "EE.DIR": "075", "UE.DIR": "046", "TERROR.DIR": "034", "RE.DIR": "038", "EE.DIR": "154", "EE.DIR": "108", "EE.DIR": "042", "UE.DIR": "100", "AE.DIR": "win2"]
  101.       if StartSprite = 2 then
  102.         set ToGo to getAt(MakersList, theSprite - 16)
  103.         set addPath to getPropAt(MakersList, theSprite - 16)
  104.       else
  105.         set ToGo to getAt(MakersList, theSprite + 12)
  106.         set addPath to getPropAt(MakersList, theSprite + 12)
  107.       end if
  108.       go("fade", string(thePath & ItemDel & addPath))
  109.     else
  110.       if theChapter = "design" then
  111.         set thePath to string("makers" & ItemDel & "makers" & ItemDel & "design")
  112.         set MakersList to ["design3.dir": 2, "design2.dir": 5, "design3.dir": 6, "design3.dir": 9, "design4.dir": 5, "design2.dir": 2, "design4.dir": 6, "design2.dir": 4, "design3.dir": 4, "design3.dir": 5, "design1.dir": 4, "design2.dir": 3, "design1.dir": 7, "design3.dir": 7, "design2.dir": 8, "design4.dir": 8, "design1.dir": 3, "design1.dir": 8, "design1.dir": 2, "design1.dir": 9, "design4.dir": 7, "design1.dir": 11, "design4.dir": 4, "design3.dir": 3, "design2.dir": 6, "design2.dir": 7, "design3.dir": 8, "design4.dir": 2, "design1.dir": 5, "design1.dir": 6, "design1.dir": 10, "design4.dir": 8, "design4.dir": 3]
  113.         if StartSprite = 7 then
  114.           set spriteToMove to getAt(MakersList, theSprite - 30)
  115.           set addPath to getPropAt(MakersList, theSprite - 30)
  116.         else
  117.           set spriteToMove to getAt(MakersList, theSprite - 2)
  118.           set addPath to getPropAt(MakersList, theSprite - 2)
  119.         end if
  120.         set status to [spriteToMove]
  121.         go("fade", string(thePath & ItemDel & addPath))
  122.       else
  123.         if theChapter = "discovery" then
  124.           set thePath to string("makers" & ItemDel & "makers" & ItemDel & "discover.dir")
  125.           set MakersList to [35: 116, 604: 163, 35: 215, 533: 35, 248: 444, 248: 35, 461: 444, 106: 35, 106: 444, 320: 447, 354: 35, 604: 233, 35: 308, 604: 92, 177: 444, 532: 444, 35: 378, 177: 35, 604: 373, 604: 303, 390: 444, 462: 35]
  126.           if StartSprite = 5 then
  127.             set theX to getAt(MakersList, theSprite - 30)
  128.             set theY to getPropAt(MakersList, theSprite - 30)
  129.           else
  130.             set theX to getAt(MakersList, theSprite - 2)
  131.             set theY to getPropAt(MakersList, theSprite - 2)
  132.           end if
  133.           openXLib("SetMouse XCMD")
  134.           SetMouse(theY, theX)
  135.           go(1, string(thePath))
  136.           closeXLib("SetMouse XCMD")
  137.         else
  138.           if theChapter = "mind" then
  139.             set thePath to string("makers" & ItemDel & "makers" & ItemDel & "mind.dir")
  140.             set MakersList to ["AUDEN,136", "DE BEAUVOIR,056", "CHOMSKY,143", "FREUD,107", "FRIEDAN,fridan", "GRAHAM,076", "GREER,033", "BROWN,082", "HEMINGWAY,094", "HUXLEY,166", "JOYCE,050", "JUNG,111", "KAFKA,172", "TERESA,150", "ORWELL,157", "OWEN,063", "PASTERNAK,129", "PIAGET,115", "RUSSELL,069", "SARTRE,122", "DE SAUSSURE,087", "SOLZHENITSYN,021", "VARAH,044", "WILSON,wilson", "WOOLF,100"]
  141.             if StartSprite = 6 then
  142.               set ToGo to item 2 of getAt(MakersList, theSprite - 30)
  143.               set Person to item 1 of getAt(MakersList, theSprite - 30)
  144.             else
  145.               set ToGo to item 2 of getAt(MakersList, theSprite - 2)
  146.               set Person to item 1 of getAt(MakersList, theSprite - 2)
  147.             end if
  148.             go("fade", string(thePath))
  149.           else
  150.             if theChapter = "senses" then
  151.               set thePath to string("makers" & ItemDel & "makers" & ItemDel & "senses.dir")
  152.               set MakersList to ["B": "454,464", "A": "219,229", "A": "221,231", "B": "458,468", "D": "565,575", "B": "455,465", "C": "11,21", "B": "456,466", "A": "217,227", "C": "9,19", "B": "452,462", "C": "13,23", "C": "15,25", "A": "218,228", "D": "566,576", "C": "6,16", "C": "12,22", "C": "8,18", "A": "220,230", "D": "567,577", "B": "459,469", "A": "222,232", "A": "223,233", "D": "570,580", "B": "453,463", "D": "563:573", "A": "215,225", "D": "571,581", "C": "7,17", "D": "569,579", "D": "568,578", "D": "564,574", "B": "457,467", "C": "14,24", "A": "216,226", "C": "10,20"]
  153.               if StartSprite = 4 then
  154.                 set x to getPropAt(MakersList, theSprite - 16)
  155.                 set x2 to getAt(MakersList, theSprite - 16)
  156.               else
  157.                 set x to getPropAt(MakersList, theSprite + 11)
  158.                 set x2 to getAt(MakersList, theSprite + 11)
  159.               end if
  160.               put "shuffle " & QUOTE & x & QUOTE into line 1 of SavedPos
  161.               put x2 into line 2 of SavedPos
  162.               go("fade", thePath)
  163.             else
  164.               beep()
  165.               set out to 1
  166.             end if
  167.           end if
  168.         end if
  169.       end if
  170.     end if
  171.   end if
  172. end
  173.  
  174. on SetLists
  175.   global fullList
  176.   set fullList to [1: ",body,body,body,body,body,body,body,body,body,body,body,body,body,body,body,body,body,body,body,body,body,body,body,body,body,,", 2: ",power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power", 3: "power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,power,,,,,", 4: ",senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses,senses", 5: "senses,senses,senses,senses,senses,senses,senses,senses,senses,,,,,,,discovery,discovery,discovery,discovery,discovery,discovery,discovery,discovery,discovery,discovery,discovery,discovery,discovery", 6: "discovery,discovery,discovery,discovery,discovery,discovery,discovery,discovery,discovery,,,,,,,mind,mind,mind,mind,mind,mind,mind,mind,mind,mind,mind,mind,mind", 7: "mind,mind,mind,mind,mind,mind,mind,mind,mind,mind,mind,mind,,,,design,design,design,design,design,design,design,design,design,design,design,design,design", 8: "design,design,design,design,design,design,design,design,design,design,design,design,design,design,design,design,design,design,design,,,,,,,,,"]
  177. end
  178.  
  179. on temp
  180.   set i to 1901
  181.   repeat while i < 1952
  182.     put i & RETURN after line i - 1900 of field "7 headLines"
  183.     set i to i + 1
  184.   end repeat
  185. end
  186.