home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 1 / sauce-n-code-01.adf / AMOS_Source / cannoncontrol-M.amos / cannoncontrol-M.amosSourceCode < prev    next >
AMOS Source Code  |  1995-05-06  |  3KB  |  90 lines
  1. ' Cannon Fodder Type Control System - All Under Interrupt! 
  2. ' cODED bY ï¿½udda/NFA 
  3. ' StARtEd : in the year of 1994  
  4. ' FiNiSHed: a few days after that... 
  5.  
  6. Screen Open 0,320,250,16,Lowres
  7. Double Buffer 
  8. Show On 
  9. Curs Off 
  10. Flash Off 
  11. Get Bob Palette 
  12. Cls 0
  13.  
  14. ' -* Player Stats *- 
  15. P1X_START=100 : P1Y_START=100
  16. P2X_START=150 : P2Y_START=100
  17. '------------------------------------------------------------------- 
  18. ' AMAL Registers hold... 
  19. '                        R0 - Target X co-ordinate (where to go) 
  20. '                        R1 - Target Y co-ordinate (where to go) 
  21. '                        R2 - Flag  ~|     
  22. '                        R3 - Animation Flag 
  23. '                        R7 - Animation Frame 1
  24. '                        R8 - Animation Frame 2  
  25. '                        R9 - Animation Frame 3  
  26. '------------------------------------------------------------------- 
  27. MOV$=""
  28. MOV1$=""
  29. MOV2$=""
  30.  
  31. MOV$=MOV$+"A:If K1=-1 then Jump X;"
  32. MOV$=MOV$+"  Let R0=XS(0,XM);" : Rem Get TARGET X co-ordinate 
  33. MOV$=MOV$+"  Let R1=YS(0,YM);" : Rem Get TARGET Y co-ordinate 
  34. MOV$=MOV$+"  If R0<X then Jump J;"
  35. MOV$=MOV$+"  If R0>X then Jump K;"
  36. MOV$=MOV$+"  If R1<Y then Jump L;"
  37. MOV$=MOV$+"  If R1>Y then Jump M;"
  38. MOV$=MOV$+"  Jump A;"
  39. MOV$=MOV$+"B:Let R2=1;Pause;" : Rem Set FLAG 
  40. MOV$=MOV$+"  If K1=-1 then Jump N;"
  41. MOV$=MOV$+"  If R0>X then Jump D;"
  42. MOV$=MOV$+"  If R0<X then Jump E;"
  43. MOV$=MOV$+"C:If R1>Y then Jump F;"
  44. MOV$=MOV$+"  If R1<Y then Jump G;"
  45. MOV$=MOV$+"  If X=R0 then Jump H;"
  46. MOV$=MOV$+"R:If Y=R1 then Jump I;"
  47. MOV$=MOV$+"  Jump B;"
  48. MOV$=MOV$+"D:Let X=X+1;If R3=1 then Jump V else Jump C;"
  49. MOV$=MOV$+"E:Let X=X-1;If R3=1 then Jump U else Jump C;"
  50. MOV$=MOV$+"F:Let Y=Y+1;If R3=1 then Jump S else Jump B;"
  51. MOV$=MOV$+"G:Let Y=Y-1;If R3=1 then Jump T else Jump B;"
  52. MOV$=MOV$+"H:If Y=R1 then Jump Y else Jump B;"
  53. MOV$=MOV$+"I:If X=R0 then Jump Y else Jump B;"
  54. MOV$=MOV$+"N:Let R0=XS(0,XM);Let R1=YS(0,YM);Let R3=1;Jump B;"
  55. MOV$=MOV$+"W:Anim 0,(R7,4)(R8,4)(R9,4)(R8,4);Let R3=0;Jump B"
  56. MOV$=MOV$+"X:Let R3=1;Jump B;"
  57. MOV$=MOV$+"Y:Let R2=0;Anim 0,(R7,0);Jump A;" : Rem Clear FLAG 
  58.  
  59. MOV1$=MOV1$+"J:Let A=$8007;Jump A;" : Rem LEFT 
  60. MOV1$=MOV1$+"K:Let A=$0007;Jump A;" : Rem RIGHT
  61. MOV1$=MOV1$+"L:Let A=$0004;Jump A;" : Rem UP 
  62. MOV1$=MOV1$+"M:Let A=$0001;Jump A;" : Rem DOWN 
  63. MOV1$=MOV1$+"S:Let R7=1;Let R8=2;Let R9=3;Jump W;" : Rem Animate DOWN 
  64. MOV1$=MOV1$+"T:Let R7=4;Let R8=5;Let R9=6;Jump W;" : Rem Animate UP 
  65. MOV1$=MOV1$+"U:Let R7=$8007:Let R8=$8008;Let R9=$8009;Jump W;" : Rem Animate LEFT 
  66. MOV1$=MOV1$+"V:Let R7=7;Let R8=8;Let R9=9;Jump W;" : Rem Animate RIGHT
  67.  
  68. MOV2$=MOV2$+"J:Let A=$8007;Jump A;" : Rem LEFT 
  69. MOV2$=MOV2$+"K:Let A=$0007;Jump A;" : Rem RIGHT
  70. MOV2$=MOV2$+"L:Let A=$0004;Jump A;" : Rem UP 
  71. MOV2$=MOV2$+"M:Let A=$0001;Jump A;" : Rem DOWN 
  72. MOV2$=MOV2$+"S:Let R7=1;Let R8=2;Let R9=3;Jump W;" : Rem Animate DOWN 
  73. MOV2$=MOV2$+"T:Let R7=4;Let R8=5;Let R9=6;Jump W;" : Rem Animate UP 
  74. MOV2$=MOV2$+"U:Let R7=$8007:Let R8=$8008;Let R9=$8009;Jump W;" : Rem Animate LEFT 
  75. MOV2$=MOV2$+"V:Let R7=7;Let R8=8;Let R9=9;Jump W;" : Rem Animate RIGHT
  76.  
  77.  
  78. Bob 1,P1X_START,P1Y_START,1
  79. 'Bob 2,P2X_START,P2Y_START,1 
  80. Channel 1 To Bob 1
  81. 'Channel 2 To Bob 2
  82. Amal 1,MOV$+MOV1$
  83. 'Amal 2,MOV$+MOV2$ 
  84. Amal On 
  85.  
  86. Do 
  87.    Exit If Inkey$=Chr$(27)
  88.    Wait Vbl 
  89.    If Mouse Key=2 Then Edit 
  90. Loop