home *** CD-ROM | disk | FTP | other *** search
/ Treasure Mathstorm / TMSWINCD.ISO / pc / install / com.mps < prev    next >
Text File  |  1996-10-15  |  5KB  |  239 lines
  1. ;com.mps
  2.  
  3. ;include globals.mps
  4.  
  5. false=0
  6. true=1
  7. fidgetAnim=7
  8. characterAnim=8
  9. aoCoord=-1
  10. spCoord=-2
  11. trueType=0
  12. nfnt=1
  13.  
  14. ;tools
  15. purpleSneezeberryTool=0
  16. greenSneezeberryTool=1
  17. redSneezeberryTool=2
  18. blueSneezeberryTool=3
  19. goldSneezeberryTool=4
  20. purpleBeetleBagTool=5
  21. greenBeetleBagTool=6
  22. redBeetleBagTool=7
  23. blueBeetleBagTool=8
  24. goldBeetleBagTool=9
  25. purpleSnagnetTool=10
  26. greenSnagnetTool=11
  27. redSnagnetTool=12
  28. blueSnagnetTool=13
  29. goldSnagnetTool=14
  30. keyATool=15
  31. keyBTool=16
  32. cupTool=17
  33. sneezeberryTool=18
  34. carvingTool=19
  35. mathraTool=20
  36. ringTool=21
  37.  
  38. ;categories
  39. math=0
  40. logic=1
  41. langArts=2
  42. science=3
  43. geography=4
  44.  
  45. ;cursors
  46. deadCursor=1924
  47. liveCursor=1925
  48. fingerCursor=1926
  49. northCursor=1929
  50. northWestCursor=1930
  51. westCursor=1931
  52. southWestCursor=1932
  53. southCursor=1933
  54. southEastCursor=1934
  55. eastCursor=1935
  56. northEastCursor=1936
  57.  
  58. False=0
  59. True=1
  60.  
  61. ;background music
  62. loopAMusicId=1900
  63. ;loopA2MusicId=1904
  64. loopBMusicId=0
  65. ;loopB2MusicId=0
  66. ;loopCMusicId=0
  67. ;loopDMusicId=0
  68.  
  69. ;z values
  70. openLaptrapZ=1000
  71.  
  72. procedure addQMoveActions joniMoveId santiagoMoveId laptrapMoveId HidePoseAfterAnim
  73. [
  74.   ;going to happen once
  75.   play joni setAnim joniMoveId -1 -1
  76.   play santiago setAnim santiagoMoveId -1 -1
  77.   play laptrap setAnim laptrapMoveId -1 -1
  78.  
  79.   if HidePoseAfterAnim=1
  80.   [
  81.           play joni hideSettled joniMoveId true
  82.         play santiago hideSettled santiagoMoveId true
  83.         play laptrap hideSettled laptrapMoveId true
  84.   ]
  85.  
  86.   joniMove=CharacterAction "joni" characterAnim joniMoveId
  87.   santiagoMove=CharacterAction "santiago" characterAnim santiagoMoveId
  88.   laptrapMove=CharacterAction "laptrap" characterAnim laptrapMoveId
  89.  
  90.   moveCAct=CompositeAction
  91.   play moveCAct add "joniMove"
  92.   play moveCAct add "santiagoMove"
  93.   play moveCAct add "laptrapMove"
  94.  
  95.   play scene addToQueueBack "moveCAct"
  96. ]
  97.  
  98. procedure initPuzzleC
  99. [
  100.   ;create puzzle objects
  101.   call addToPuzzle
  102.   ;create data sets
  103. ;  call setLevel+level
  104.  
  105.   call setLevel1
  106.   set puzzle snapSound answerSnapSfxId
  107.   set puzzle goHomeSound answerGoHomeSfxId
  108.   set puzzle pickupSound answerPickUpSfxId
  109.  
  110.   set puzzle puzzleSolved playerSolved
  111.   set puzzle puzzleWrong playerWrong
  112. ]
  113.  
  114. procedure addAnimsJoniC
  115. [
  116.   ;bod
  117.   play joni setHead joniLipsId -1 -1
  118.   play joni setArms joniArmsId -1 -1
  119.   play joni setBody joniBodId -1 -1
  120.   ;fidgets
  121.   play joni setAnim joniFidgetsId.1 -2 -2
  122.   play joni setAnim joniFidgetsId.2 -2 -2
  123.   play joni setAnim joniFidgetsId.3 -2 -2
  124.   ;light
  125.   play joni setAnim backpackLightId -2 -2
  126. ]
  127.  
  128. procedure addAnimsSantiagoC
  129. [
  130.   ;bod
  131.   play santiago setHead santiagoLipsId -1 -1
  132.   play santiago setArms santiagoArmsId -1 -1
  133.   play santiago setBody santiagoBodId -1 -1
  134.   ;fidgets
  135.   play santiago setAnim santiagoFidgetsId.1 -2 -2
  136.   play santiago setAnim santiagoFidgetsId.2 -2 -2
  137.   play santiago setAnim santiagoFidgetsId.3 -2 -2
  138.   ;light
  139.   play santiago setAnim radioLightId -2 -2
  140. ]
  141.  
  142. procedure addAnimsLaptrapC
  143. [
  144.   ;light
  145.   play laptrap setAnim laptrapLightId -2 -2
  146. ]
  147.  
  148. procedure setCharClicksC
  149. [
  150.   set joni clicked joniClicked
  151.   set santiago clicked santiagoClicked
  152. ;  set laptrap clicked laptrapClicked
  153. ]
  154.  
  155. procedure setCharCursorsC
  156. [
  157.   set joni cursor liveCursor
  158.   set santiago cursor liveCursor
  159.   set laptrap cursor deadCursor
  160. ]
  161.  
  162. procedure showBackpackSpot x1 y1 x2 y2
  163. [
  164.   backpackSpot=RCHotSpot x1 y1 x2 y2
  165.   set backpackSpot zOrder backpackSpotZ
  166.   set backpackSpot cursor fingerCursor
  167.   set backpackSpot hit backpackClicked
  168. ]
  169.  
  170. procedure showRadioSpot x1 y1 x2 y2
  171. [
  172.   radioSpot=RCHotSpot x1 y1 x2 y2
  173.   set radioSpot zOrder radioSpotZ
  174.   set radioSpot cursor fingerCursor
  175.   set radioSpot hit radioClicked
  176. ]
  177.  
  178. procedure setupBackpack
  179. [
  180.   play scene setToolkitZ toolkitZ
  181.   play scene setToolkitCharacter "joni"
  182.   play scene setToolkitLightAnim backpackLightId
  183.   play scene setToolkitHotspot "backpackSpot"
  184. ]
  185.  
  186. procedure backpackClicked
  187. [
  188.     backpackLight=CharacterAction "joni" characterAnim backpackLightId
  189.     backpackLightSfx=SoundAction backpackSfxId
  190.  
  191.     backpackLightCAct=CompositeAction
  192.     play backpackLightCAct add "backpackLight"
  193.     play backpackLightCAct add "backpackLightSfx"
  194.  
  195.     play scene addToQueueBack "backpackLightCAct"
  196.  
  197.     set scene queueFinished openKit
  198.     play scene startQueue
  199. ]
  200.  
  201. procedure laptrapClicked
  202. [
  203.   laptrapLight=CharacterAction "laptrap" characterAnim laptrapLightId
  204.  
  205.   play scene addToQueueBack "laptrapLight"
  206.  
  207.   set scene queueFinished openLT
  208.   play scene startQueue
  209. ]
  210.  
  211. procedure openKit
  212. [
  213.   play scene toggleToolkit toolkitZ whichPouch
  214. ]
  215.  
  216. procedure openLT
  217. [
  218.   play laptrap hidePose
  219.  
  220.   play scene openLaptrap openLaptrapZ
  221. ]
  222.  
  223. procedure laptrapDone
  224. [
  225.   play laptrap showPose
  226. ]
  227.  
  228. procedure exitToSignin
  229. [
  230.   call leaving
  231.  
  232.   relay "signin.mps"
  233. ]
  234.  
  235. procedure nothing
  236. [
  237.  
  238. ]
  239.