home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / search.dir / 00028_Script_28 < prev    next >
Text File  |  1996-03-11  |  10KB  |  194 lines
  1. on startMovie
  2.   global InSub,Chapter,StartSprite,CurrSound
  3.   
  4.   sound Stop 1
  5.   sound Stop 2
  6.   
  7.   put FALSE into InSub
  8.   put " " into field "subSubList"
  9.   put EMPTY into Chapter
  10.   put 1 into StartSprite
  11.   put EMPTY into CurrSound
  12. end
  13.  
  14. on stopMovie
  15.   global Chapter
  16.   
  17.   if Chapter <> EMPTY then put field "tempText" into field string(Chapter&&"HeadLines")
  18. end
  19.  
  20. on hiliteSprite theSprite
  21.   repeat with i=2 to 9
  22.     if (the castNum of sprite i) mod 2 then
  23.       set the castNum of sprite i to (the castNum of sprite i) - 1
  24.     end if
  25.   end repeat
  26.   set the castNum of sprite theSprite to (the castNum of sprite theSprite) + 1
  27.   updateStage
  28. end
  29.  
  30. on placeArrow fieldSprite,ArrowSprite
  31.   set the locH of sprite ArrowSprite to (the left of sprite fieldSprite) + ((the right of sprite fieldSprite) - (the left of sprite fieldSprite)) / 2
  32.   set the locV of sprite ArrowSprite to (the top of sprite fieldSprite) - 10
  33.   set the locH of sprite (ArrowSprite + 1) to the locH of sprite ArrowSprite
  34.   set the locV of sprite (ArrowSprite + 1) to (the bottom of sprite fieldSprite) + 7
  35. end
  36.  
  37. on rollOvers
  38.   if rollOver(20) then roll 20
  39.   else if rollOver(21) then roll 21
  40. end
  41.  
  42. on roll theSprite
  43.   set the castNum of sprite theSprite to (the castNum of sprite theSprite) + 1
  44.   updateStage
  45.   repeat while rollOver(theSprite) and not the mouseDown
  46.     nothing
  47.   end repeat
  48.   set the castNum of sprite theSprite to (the castNum of sprite theSprite) - 1
  49.   updateStage
  50. end
  51.  
  52. on xx
  53.   put field "7 sub a" into temp
  54.   put field "timeLine text" into temp2
  55.   put 1 into i
  56.   repeat while i <= the number of lines of temp
  57.     if char 1 of line i of temp <> "@" then
  58.       if charToNum(char 2 of line i of temp) > 90 or charToNum(char 2 of line i of temp) < 65 then
  59.         put line (i-1) of temp2&RETURN before line i of temp2
  60.       end if
  61.     end if
  62.     put i+1 into i
  63.   end repeat
  64.   delete line (i+1) to the number of lines of temp2 of temp2
  65.   beep 2
  66.   put temp2 into field "timeLine text"
  67.   put field "timeLine text"
  68. end
  69.  
  70. on PlacePict
  71.   global StartSprite,NextFrame
  72.   
  73.   set the castNum of sprite 13 to the number of cast ("page"&StartSprite)
  74.   updateStage
  75. end
  76.  
  77. on chaptersLists theChapter,theSprite
  78.   global ItemDel,StartSprite,Status,SavedPos,ToGo,Person,GoTo,NextFrame,LastFrame,CurrFrame
  79.   
  80.   put FALSE into out
  81.   if theChapter = "body" then
  82.     
  83.     put string("makers"&ItemDel&"makers"&ItemDel&"body"&ItemDel&"bodyMain.dir") into thePath
  84.     set MakersList = ["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]
  85.     
  86.     put getPropAt(MakersList, (theSprite - 16)) into prevGoTo
  87.     put getAt(MakersList, (theSprite - 16))  into temp
  88.     put item 1 of prevGoTo into NextFrame
  89.     put NextFrame into LastFrame
  90.     put NextFrame into CurrFrame
  91.     put value(item 2 of prevGoTo) into GoTo
  92.     if temp = 2 then
  93.       go frame "fade" of movie string(thePath)
  94.     else
  95.       go frame "fade2" of movie string(thePath)
  96.     end if
  97.     
  98.   else if theChapter = "power" then
  99.     
  100.     put string("makers"&ItemDel&"makers"&ItemDel&"power") into thePath
  101.     set MakersList =  ["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"]
  102.     
  103.     if StartSprite = 2 then
  104.       put getAt(MakersList, (theSprite - 16))  into ToGo
  105.       put getPropAt(MakersList, (theSprite - 16)) into addPath
  106.     else
  107.       put getAt(MakersList, (theSprite + 12)) into ToGo
  108.       put getPropAt(MakersList, (theSprite + 12)) into addPath
  109.     end if
  110.     
  111.     go frame "fade" of movie string(thePath&ItemDel&addPath)
  112.     
  113.   else if theChapter = "design" then
  114.     
  115.     put string("makers"&ItemDel&"makers"&ItemDel&"design") into thePath
  116.     set MakersList = ["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]
  117.     
  118.     if StartSprite = 7 then
  119.       put getAt(MakersList, (theSprite - 30)) into spriteToMove
  120.       put getPropAt(MakersList, (theSprite - 30)) into addPath
  121.     else
  122.       put getAt(MakersList, (theSprite - 2)) into spriteToMove
  123.       put getPropAt(MakersList, (theSprite - 2)) into addPath
  124.     end if
  125.     set Status = [SpriteToMove]
  126.     go frame "fade" of movie string(thePath&ItemDel&addPath)
  127.     
  128.   else if theChapter = "discovery" then
  129.     
  130.     put string("makers"&ItemDel&"makers"&ItemDel&"discover.dir") into thePath
  131.     set MakersList = [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]
  132.     
  133.     if StartSprite = 5 then
  134.       put getAt(MakersList, (theSprite - 30)) into theX
  135.       put getPropAt(MakersList, (theSprite - 30)) into theY
  136.     else
  137.       put getAt(MakersList, (theSprite - 2)) into theX
  138.       put getPropAt(MakersList, (theSprite - 2)) into theY
  139.     end if
  140.     openXlib "SetMouse XCMD"
  141.     SetMouse(theY,theX)
  142.     go movie string(thePath)
  143.     closeXlib "SetMouse XCMD"
  144.     
  145.   else if theChapter = "mind" then
  146.     
  147.     put string("makers"&ItemDel&"makers"&ItemDel&"mind.dir") into thePath
  148.     set MakersList =["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"]
  149.     
  150.     if StartSprite = 6 then
  151.       put item 2 of getAt(MakersList, (theSprite - 30)) into ToGo
  152.       put item 1 of getAt(MakersList, (theSprite - 30)) into Person
  153.     else
  154.       put item 2 of getAt(MakersList, (theSprite - 2)) into ToGo
  155.       put item 1 of getAt(MakersList, (theSprite - 2)) into Person
  156.     end if
  157.     go frame "fade" of movie string(thePath)
  158.     
  159.   else if theChapter = "senses" then
  160.     
  161.     put string("makers"&ItemDel&"makers"&ItemDel&"senses.dir") into thePath
  162.     set MakersList = ["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"]
  163.     
  164.     if StartSprite = 4 then
  165.       put getPropAt(MakersList, (theSprite - 16)) into x
  166.       put getAt(MakersList, (theSprite - 16)) into x2
  167.     else
  168.       put getPropAt(MakersList, (theSprite + 11)) into x
  169.       put getAt(MakersList, (theSprite + 11)) into x2
  170.     end if
  171.     put "shuffle ""E&x"E into line 1 of SavedPos
  172.     put x2 into line 2 of SavedPos
  173.     go frame "fade" of movie thePath
  174.     
  175.   else
  176.     beep
  177.     put TRUE into out
  178.   end if
  179. end
  180.  
  181. on SetLists
  182.   global FullList
  183.   
  184.   set FullList = [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,,,,,,,,,"]
  185. end
  186.  
  187. on temp
  188.   put 1901 into i
  189.   repeat while i < 1952
  190.     put i&RETURN after line (i-1900) of field "7 headLines"
  191.     put i + 1 into i
  192.   end repeat
  193. end
  194.