home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 6 / Amoszine 6 (Disk 2 of 2).adf / paul_nordovics.lha / P_Nordovics / amal_joy.AMOS / amal_joy.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-02-26  |  1.9 KB  |  84 lines
  1. ' ************************************************************** 
  2. '
  3. '       MOVING A BOB UNDER JOYSTICK CONTROL USING AMAL 
  4. '       ============================================== 
  5. '
  6. '                     /\/\/\/\/\/\/\/\/\ 
  7. '                     By: Paul Nordovics 
  8. '                     \/\/\/\/\/\/\/\/\/ 
  9. '
  10. ' ************************************************************** 
  11. '
  12. ' *************
  13. ' set up screen
  14. ' *************
  15. Hide : Curs Off : Flash Off 
  16. Get Sprite Palette 
  17. Cls 0
  18. Double Buffer : Bob Update Off : Autoback 0
  19. '
  20. ' *******************
  21. ' set up AMAL program
  22. ' *******************
  23. ' JOYSTICK FUNCTIONS:
  24. ' J1&1 =UP   
  25. ' J1&2 =DOWN   
  26. ' J1&4 =LEFT   
  27. ' J1&8 =RIGHT  
  28. ' J1&16=FIRE 
  29. '
  30. ' AMAL registers 
  31. ' R0=Speed 
  32. ' R1=Flag: When=1 FIRE has been pressed  
  33. '
  34. ' strictly speaking you should Pause before every jump 
  35. '
  36. A$="Let R0=4;"
  37. A$=A$+"A:Pause;"
  38. A$=A$+"B:If J1&1 Jump G;"
  39. A$=A$+"C:If J1&2 Jump H;"
  40. A$=A$+"D:If J1&4 Jump I;"
  41. A$=A$+"E:If J1&8 Jump J;"
  42. A$=A$+"F:If J1&16 Jump K;"
  43. A$=A$+"Jump A;"
  44. A$=A$+"G:Let Y=Y-R0;If Y<16 Jump L;Jump C;"
  45. A$=A$+"H:Let Y=Y+R0;If Y>184 Jump M;Jump D;"
  46. A$=A$+"I:Let X=X-R0;If X<0 Jump N;Jump E;"
  47. A$=A$+"J:Let X=X+R0;If X>304 Jump O;Jump F;"
  48. A$=A$+"K:Let R1=1;Jump A;"
  49. A$=A$+"L:Let Y=16;Jump A;"
  50. A$=A$+"M:Let Y=184;Jump A;"
  51. A$=A$+"N:Let X=0;Jump A;"
  52. A$=A$+"O:Let X=304;Jump A;"
  53. '
  54. ' ******** 
  55. ' init bob 
  56. ' ******** 
  57. Bob 0,96,96,1
  58. '
  59. ' ****************************** 
  60. ' assign AMAL channel 0 to bob 0 
  61. ' ****************************** 
  62. Channel 0 To Bob 0
  63. '
  64. ' ******************************** 
  65. ' load AMAL program into channel 0 
  66. ' ******************************** 
  67. Amal 0,A$
  68. '
  69. ' ****************** 
  70. ' turn it on - baby! 
  71. ' ****************** 
  72. Amal On 
  73. '
  74. ' ************************************ 
  75. ' and a loop until fire button pressed 
  76. ' ************************************ 
  77. Repeat 
  78.    Wait Vbl 
  79.    Bob Clear 
  80.    Bob Draw 
  81.    Screen Swap 
  82. Until Amreg(0,1)=1
  83. '
  84. Edit