home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Turri.AMOS / Turri.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1994-03-12  |  3.1 KB  |  100 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *     Turrican Sprite Demo V1.1     *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. ' Turrican Sprite Struktur:
  9. '  1-   Leer   
  10. '  2-   Schau nach links       
  11. '  3-   Schau nach rechts      
  12. '  4-   Geduckt nach links     
  13. '  5-   Geduckt nach rechts      
  14. '  6-19 Anim Laufen nach links 
  15. ' 20-33 Anim Laufen nach rechts
  16. ' 34-   Sprung nach links  
  17. ' 35-   Sprung nach rechts 
  18. ' 36-39 Anim Rad nach rechts 
  19. ' 40-47 Anim Shield
  20. ' 48-77 Anim Superstrahl   
  21. '
  22. Screen Open 0,336,200,2,0
  23. Curs Off : Flash Off : Cls 0
  24. Screen Display 0,128,50,320,200
  25. Get Sprite Palette 
  26. For A=0 To 15 : Colour A+16,Colour(A) : Next 
  27. Palette 0,$FFF
  28. Hide 
  29. Draw 0,199 To 320,199
  30. A$="L R0=1; L R1=0; L A=3; L R9=0; "
  31. A$=A$+"A: P; L R5=0; I J1&4 J R; "
  32. A$=A$+"   I J1&8 J L; "
  33. A$=A$+"   A 1,(R0+2,0); L R1=0; L R4=R0*16+47"
  34. A$=A$+"B: I R9=1 J F; I J1&2 J D; "
  35. A$=A$+"   I J1&1 J J; "
  36. A$=A$+"C: I J1&16 J G; J A; "
  37. A$=A$+"R: L X=X-2; L R0=0; L R4=47; I R1=1 J B; L R1=1; "
  38. A$=A$+"   A 0,(6,2)(7,2)(8,2)(9,2)(10,2)(11,2)(12,2)(13,2)(14,2)(15,2)(16,2)(17,2)(18,2)(19,2); J B; "
  39. A$=A$+"L: L X=X+2; L R0=1; L R4=63; I R1=1 J B: L R1=1; "
  40. A$=A$+"   A 0,(20,2)(21,2)(22,2)(23,2)(24,2)(25,2)(26,2)(27,2)(28,2)(29,2)(30,2)(31,2)(32,2)(33,2); J B; "
  41. A$=A$+"D: L R4=R0*16+47; A 1,(R0+4,0); L R1=0; I J1&2 J D; J C;"
  42. A$=A$+"J: L R1=1; L R9=1; L R2=0-16; L R5=R5+1; "
  43. A$=A$+"E: A 1,(R0+34,0);  P; L Y=R2/3+Y; L R2=R2+1; "
  44. A$=A$+"   I J1&4 J R; "
  45. A$=A$+"   I J1&8 J L; "
  46. A$=A$+"F: I R2>0 J Y; I J1&1 J Y; L R2=0; "
  47. A$=A$+"Y: L R6=R5<15; L R7=J1&1; I R6&R7 J J; L R5=99; "
  48. A$=A$+"   I Y<212 J E; L Y=212; L R1=0; L R9=0; J C; "
  49. A$=A$+"G: I J1&4 J S; "
  50. A$=A$+"   I J1&8 J T; "
  51. A$=A$+"   I J1&2 J D; "
  52. A$=A$+"U: I R4>78 J H; "
  53. A$=A$+"   I R4<47 J I; "
  54. A$=A$+"K: L R3=2; I R4>63 J M; "
  55. A$=A$+"   I R4=63 J O; "
  56. A$=A$+"   I R4>47 J P; "
  57. A$=A$+"Q: I R4>71 J W; "
  58. A$=A$+"   I R4>55 J X; "
  59. A$=A$+"   L R0=0; "
  60. A$=A$+"V: A 1,(R3,1); PP; I J1&16 J G; L R1=0; J A; "
  61. A$=A$+"H: L R4=47; J K; "
  62. A$=A$+"I: L R4=78; J K; "
  63. A$=A$+"M: L R3=R4-1; J Q; "
  64. A$=A$+"O: L R3=3; J Q; "
  65. A$=A$+"P: L R3=R4; J Q; "
  66. A$=A$+"S: L R4=R4-1; J U; "
  67. A$=A$+"T: L R4=R4+1; J U; "
  68. A$=A$+"W: L R0=0; J V; "
  69. A$=A$+"X: L R0=1; J V; "
  70. Sprite 0,100,212,2
  71. Channel 0 To Sprite 0
  72. Amal 0,A$ : B=38 : C=0
  73. X=100 : XSP=4 : TIME=0 : D=2
  74. Repeat 
  75.   If(TIME and D) Then Sprite 4,X,212,40+C/2 Else Sprite Off 4
  76.   Sprite 0,X,212,B : Wait Vbl 
  77.   If TIME=40 or TIME=70 or TIME=140 Then XSP=-XSP
  78.   If TIME=80 Then D=4
  79.   If TIME=140 Then D=256
  80.   Add B,-Sgn(XSP),36 To 39 : Add C,1,0 To 15
  81.   Add X,XSP : Inc TIME
  82. Until TIME>100 and X=260
  83. Sprite Off 4
  84. A=1
  85. A$="HOTSOFT PRESENTS: --- TURRICAN SPRITE DEMO ---   "
  86. A$=A$+"SPRITES GRABBED AND CONVERTED BY HOD ROD OF HOTSOFT.      "
  87. A$=A$+"NOTE: TURRICAN IS AN AMAL PROGRAM! TRY GOING INTO DIRECT-"
  88. A$=A$+"MODE...      BYEEEEE!          "
  89. Amal On 
  90. Def Scroll 1,0,0 To 336,8,-3,0
  91. Do 
  92.   Add X,1,0 To 3
  93.   If X=0
  94.     Locate 40,0 : Print Mid$(A$,A,1)
  95.     Add A,1,1 To Len(A$)
  96.   End If 
  97.   Wait Vbl 
  98.   While Peek($DFF006)<60 : Wend 
  99.   Scroll 1
  100. Loop