home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / games / horses / !Horses / !Run < prev    next >
Text File  |  1995-04-16  |  1KB  |  50 lines
  1. | Run file for Horses simulator
  2.  
  3. SET Horse$Dir <Obey$Dir>
  4. SET HorseData$Dir <Horse$Dir>.Resources
  5.  
  6. | Set Software7 filetypes
  7.  
  8. SET File$Type_012 S7Data
  9. SET File$Type_021 S7Text
  10. SET File$Type_022 S7Sprite
  11. SET File$Type_023 S7Font
  12.  
  13. | Set load & Run types for the above files
  14.  
  15. Set Alias$@LoadType_022 SLoad %0
  16. Set Alias$@PrintType_022 <Alias$@PrintType_FF9>
  17. SetMacro Alias$@RunType_021 <Alias$@RunType_FFF>
  18. SetMacro Alias$@RunType_021 <Alias$@RunType_FF9>
  19. Set Alias$@RunType_012 Error 0 This file is saved data from a Software7 game. Load it from the game not the desktop. While loading  
  20. Set Alias$@PrintType_012 Echo <2>|MType %0
  21.  
  22. |Load the sprite for the desktop icons
  23. IconSprites <Horse$Dir>.!Sprites
  24.  
  25. |  Check the version of RiscOS
  26. Set <Risc$OS> "3"
  27. RMEnsure UtilityModule 3.00 Set Risc$OS "2"
  28. IF "<Risc$OS>"="3" THEN ChangeDynamicArea -fontsize 128k
  29. IF "<Risc$OS>"="3" THEN ChangeDynamicArea -spritesize 700k
  30. IF "<Risc$OS>"="2" THEN Error 0 The System sprite area is too small, increase and try again
  31.  
  32. | Slow down ARM 3 & 6's
  33. Set <ARM$Chip> "3"
  34. RmEnsure ARM 0 Set <ARM$Chip> "2"
  35. IF "<Arm$Chip>"="2" THEN RmEnsure ARM3Support 0 Set <ARM$Chip> "2"
  36.  
  37.  
  38. IF "<ARM$Chip>"="3" THEN Cache Off
  39.  
  40. | After all that, run the game
  41.  
  42. Run <Obey$Dir>.!RunImage
  43.  
  44. | Return to full speed
  45.  
  46. IF "<ARM$Chip>"="3" THEN Cache On
  47.  
  48.  
  49.  
  50.