home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / g / gamesuit / Examples / !OddBall / Code / Start < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.7 KB  |  62 lines
  1. | !Start file for Oddball
  2.  
  3. Run OddBall:Code.NoError Run OddBallPatch:Code.Patch2
  4. Run OddBall:Code.NoError RMEnsure GameModes 0.00 Run System:Modules.GameModes
  5. Run OddBall:Code.NoError RMEnsure GameModes 0.00 Run OddBall:Modules.GameModes
  6. Run OddBall:Code.Title
  7. SetMacro OddBall$LevelPath <OddBall$Path>Level.<Oddball$Maze>.
  8.  
  9. Set OddBall$Maze 1
  10. Set Oddball$No 1
  11. SetMacro OddBall$SavePath <OddBall$Path>Saved.<OddBall$No>.
  12. Set OddBall$DemoPath <OddBall$Path>Demo.
  13. Set OddBall$FilePath <Oddball$DemoPath>
  14. If OddBallSound=0 Then Audio Off
  15. If OddBallSound=1 Then Audio On
  16. RMLoad OddBall:Modules.Blitz
  17. RMLoad OddBall:Modules.Stasis
  18. StasisLink 1 1
  19. StasisLink 2 2
  20. StasisLink 3 3
  21. StasisLink 4 4
  22. StasisLink 5 5
  23. StasisLink 6 6
  24. StasisLink 7 7
  25. StasisLink 8 8
  26. RMLoad OddBall:Modules.StasisMod
  27. If OddBallMusic=1 Then PlayMod 0 OddBall:Sounds.Music
  28. RMLoad OddBall:Modules.Amnesia
  29. RMLoad OddBall:Modules.FastSpr
  30.  
  31. Set OddBall$Key1 <Key$1>
  32. Set OddBall$Key2 <Key$2>
  33. Set OddBall$Key3 <Key$3>
  34. Set OddBall$Key4 <Key$4>
  35. Set OddBall$Key5 <Key$5>
  36. Set OddBall$Key6 <Key$6>
  37. Set OddBall$Key7 <Key$7>
  38. Set OddBall$Key8 <Key$8>
  39. Set OddBall$Key9 <Key$9>
  40. Set OddBall$Key10 <Key$10>
  41. Set OddBall$Key11 <Key$11>
  42. Set OddBall$Key12 <Key$12>
  43.  
  44. Run OddBall:Code.NoError Run OddBall:Keys
  45.  
  46. StasisLoad 2 OddBall:Sounds.Blam
  47. StasisLoad 3 OddBall:Sounds.Bonus
  48. StasisLoad 4 OddBall:Sounds.Bounce
  49. StasisLoad 5 OddBall:Sounds.Clink
  50. StasisLoad 6 OddBall:Sounds.Crack
  51. StasisLoad 7 OddBall:Sounds.Explo
  52. StasisLoad 8 OddBall:Sounds.FallOff
  53. StasisLoad 9 OddBall:Sounds.Goodies
  54. StasisLoad 10 OddBall:Sounds.HollowPlop
  55. StasisLoad 11 OddBall:Sounds.Magnet
  56. StasisLoad 12 OddBall:Sounds.Throb
  57.  
  58. WimpSlot -min 576k -max 576k
  59. Set OddBall$Code <OddBall$Path>Code.LoadCode
  60. Run OddBall:Code.NoError Run OddBallPatch:Code.Patch3
  61. Run <OddBall$Code>
  62.