home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 September / macformat-004.iso / DEMO / DATA / WINO.MMM / meta.txt < prev    next >
Encoding:
Text File  |  1993-07-21  |  4.3 KB  |  39 lines
  1. Name
  2. ----
  3. WINOHellCab;:HCDEMO:DEMO:DATA:
  4.  
  5. Strings
  6. ------
  7. Stambul Sounds
  8. Macromedia Director
  9.  
  10. stxt
  11. ----
  12. --
  13. macro sharestart
  14. put 0 into pacoRefNum
  15. if the machineType <>256 then openXlib string(GoUpALevel(the pathName)&"XCMDS")
  16.  
  17. macro locSprite n
  18.   put (the left of sprite n) into Where
  19.   put ", "&(the top of sprite n) after Where
  20.   return Where
  21. end locSprite
  22.  
  23. macro GetPath whatKind
  24.   set theFile = fileIO(mNew, "?read", string(whatKind))
  25.   if not objectp(theFile) then 
  26.     if theFile = -43 then     
  27.       return ""
  28.       exit
  29.     else
  30.       alert "Sorry, movie couldn't be opened."&return&return &"Error: "&string(theFile)
  31.       return ""
  32.       exit
  33.     end if
  34.   end if
  35.   return theFile(mFileName)
  36.   theFile(mDispose)
  37. end GetPath
  38.  
  39. macro GoUpALevel Path
  40.   delete char (the number of chars in Path) of Path
  41.   put (the number of chars in Path) into x
  42.   repeat while x > 0                    
  43.     if charToNum(char x of Path) = 58 then exit repeat   
  44.     delete char x of Path
  45.     put x - 1 into x
  46.   end repeat
  47.   return Path
  48. end goupalevel
  49.  
  50. macro GoOtherMovie folderName, moviesName
  51.   return string(GoUpALevel(the pathName))&string(folderName)&":"&string(moviesName)
  52. end goothermovie
  53.  
  54. macro StartPACO fileName, whereAt, preload, center
  55. global pacoRefNum,command
  56. updatestage
  57.    when mousedown then nothing
  58. put word 1 of fileName&word 2 of fileName&word 3 of fileName&word 4 of fileName&word 5 of fileName into fileName
  59. put (chars(fileName,1,3)&chars(fileName,length(fileName)-3,length(fileName)))&".cv" into filename
  60. if the machineType=256 then startpaco2 (fileName, whereAt, preload)
  61. if the machineType=256 then exit
  62.   put XPlayPACo("openfile",string(GoUpALevel(the pathName))&"PACOS:"&string(fileName)) into pacoRefNum
  63.   if pacoRefNum contains "error" then exit
  64.   XPlayPACo("set",pacoRefNum,"posX", integer(value((item 1 of whereAt) + (the stageLeft))),"posY",integer(value((item 2 of whereAt) + (the stageTop))),√Ç
  65. "centering", 0, "loopCount", 1)
  66.     XPlayPACo("set",pacoRefNum,"clearscreen",0,"nudgeposition",0,"redrawscreen",1, "window",0)
  67.   if preload = 1 then
  68.      unload
  69.     XPlayPACo("allocate",pacoRefNum)
  70.     XPlayPACo("load",pacoRefNum)
  71.   end if
  72. playpaco
  73. ClosePaco
  74. if preload=1 then
  75.     cursor -1 
  76. end if
  77.  
  78. macro Startpaco2 fileName, whereAt, preload
  79.   global pacoRefNum,command
  80. put char 1 of the pathname into drive
  81. if preload<>1 then put 0 into preload
  82. put 1 into ni
  83. put xwin(mnew) into winx
  84. put winx(mhwnd) into windowhandle
  85. put "playfile"&&drive&":\HCDEMO\DEMO\PACOS\"&chars(fileName,1,length(filename)-2)&"bk"&&"-ctr 0 -posx"&&integer(value((item 1 of whereAt) + (the stageLeft)))&&"-posy"&&integer(value((item 2 of whereAt) + (the stageTop)))&&"-ni "&ni&" -pfd"&&(abs(preload-1))&&"-acm 1 -window"&&windowhandle into command
  86. paco(mnew,command)
  87. put "playfile"&&drive&":\HCDEMO\DEMO\PACOS\"&(fileName)&&"-ctr 0 -posx"&&integer(value((item 1 of whereAt) + (the stageLeft)))&&"-posy"&&integer(value((item 2 of whereAt) + (the stageTop)))&&"-ni "&ni&" -pfd"&&(abs(preload-1))&&"-acm 1 -window"&&-1 into command
  88. paco(mnew,command)
  89. winx(mdispose)
  90. exit
  91.  
  92. macro PLayPACO
  93.      global pacoRefNum
  94.   if pacoRefNum contains "error" then exit
  95.   XPlayPACo("play",pacoRefNum)
  96.  
  97. macro ClosePACO
  98.   global pacoRefNum
  99.   if pacoRefNum contains "error" then exit
  100.   XPlayPACo("set",pacoRefNum,"redrawScreen",0)
  101.   XPlayPACo("deallocate",pacoRefNum)
  102.   XPlayPACo("close",pacoRefNum)
  103.   put 0 into pacoRefNum
  104.   
  105. macro playaiff2 filename
  106. put filename&".wav" into filename
  107. sound playFile 1, string(GoUpALevel(the pathName))&"SFX:DemoSFX:"&string(filename)
  108.  
  109. macro PlayAIFF fileName
  110. global path,filen
  111. put the pathname into path
  112. put word 1 of fileName&word 2 of fileName&word 3 of fileName&word 4 of fileName&word 5 of fileName into fileName
  113. put (chars(filename,1,7)) into fileName
  114.  sound playFile 1, string(GoUpALevel(path))&"SFX:DemoSFX:"&string(fileName)
  115. end playaiff
  116.  
  117. Script Channel Commands
  118. --------------------
  119. go "Jun,7,N"
  120. put "Jun,7,N" into currentViewgo movie "ESB"preload
  121.  
  122. vwci
  123. ----
  124. 1025:     Palette 1
  125. 1027: triceratops TV1
  126. 1030: bum 3
  127. 1034: blast
  128. 1035: Blast
  129. 1036:  bother again
  130. 1473: on mouseUp
  131.   
  132. end mouseUpmm1
  133. 1479: on mouseUp
  134.   
  135. end mouseUpmm1
  136. 1480: on mouseUp
  137.   
  138. end mouseUpmm1
  139. 1481: on mouseUp
  140.   
  141. end mouseUpflagDown
  142. 1482: on mouseUp
  143.   showSoulOmeter
  144. end mouseUp
  145. smallmeter
  146. 1483: on mouseUp
  147.   
  148. end mouseUp
  149. 1485: on mouseUp
  150.   
  151. end mouseUpmm1
  152.  
  153. Fonts
  154. -----
  155. Geneva
  156. Times
  157.