home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / cv_mini_demo.amos / cv_mini_demo.amosSourceCode < prev    next >
AMOS Source Code  |  1992-02-09  |  3KB  |  100 lines
  1. Extension_4_04D6 "chaos:objects/"
  2.  Extension_4_0016 "vector"
  3.  Extension_4_0016 "chaos"
  4.  Extension_4_0548 
  5. MAIN
  6. Procedure MAIN
  7. Hide On : Led Off : Bob Update Off : Auto View Off 
  8. Screen Open 1,420,40,16,Lowres : Autoback 0 : Curs Off : Cls 0
  9. Music 1 : Tempo $17 : Mvolume 63
  10. Channel 0 To Screen Display 1
  11. Amal 0,"M:M 0,-10,70;M 0,10,70:J M"
  12. Amal On 
  13. BBAR
  14. Screen Open 2,320,200,2,Lowres : Curs Off : Cls 0
  15. Locate 0,7 : Ink 1,$FFF
  16. Centre "Angeldust Productions 1991" : Cdown : Cdown 
  17. Centre "Left & Right Ears to Zoom Vectors" : Cdown 
  18. Centre "Both Ears to Exit" : Cdown : Cdown 
  19. Centre "COMING SOON " : Cdown 
  20. Centre "DEF PIXEL DEMO" : Cdown 
  21. Centre "and" : Cdown 
  22. Centre "COMMUNE v0.01" : Cdown 
  23. Centre "and FIRE FLIGHT (a Shootemup)" : Cdown : Cdown : Cdown 
  24. Centre "Written in AMOS !!" : Cdown 
  25. Screen Open 0,320,200,16,Lowres
  26.    Double Buffer : Autoback 0 : Curs Off : Cls 0
  27.     Extension_4_0054 200
  28.     Extension_4_0036 1,"vector",0,0,5000,1000,-6500,7000
  29.     Extension_4_0036 2,"chaos",0,0,5000,-10000,-6500,7000
  30.     Extension_4_0318 
  31.    Z=3000
  32.    C=0
  33.     Extension_4_0164 1,"(1,-900,9)L"
  34.     Extension_4_0164 2,"(1,1000,9)L"
  35.     Extension_4_0178 1,"(1,900,9)L"
  36.     Extension_4_0178 2,"(1,-900,9)L"
  37.     Extension_4_00EC 1,0,-500,Z
  38.     Extension_4_00EC 2,0,500,Z
  39. Screen 1 : Screen To Front 1
  40.     No Mask 
  41.     Def Scroll 1,0,11 To 420,50,-4,0
  42. ST$=" COMING SOON - FIRE FLIGHT - A BASIC SHOOT EM UP .. + COMMUNE, DEF PIXEL DEMO, AND VIRTUAL REALITY RIP OFF DEMO   "
  43. ST$=ST$+"... PLUS CHAOS VECTOR BBS .. HOPEFULLY I'LL BE OPENING A BBS WITH AN AMOS USER SECTION (RESTRICTED .. MAYBE !!)"
  44. ST$=ST$+"CU ADT        "
  45. ST$=ST$+" "
  46. I=0 : P=0 : SWP=0
  47. SCOL:
  48.    If Mouse Key=3 : End : End If 
  49.    If Mouse Key=1 : Z=Z-300 : End If 
  50.    If Mouse Key=2 : Z=Z+300 : End If 
  51.    If P>0 : Inc P : Wait Vbl : If P=55 : P=0 : Inc I : View : End If 
  52.    Else 
  53.    Inc I : End If 
  54.    If I=Len(ST$)-1 : I=0 : Goto SCOL : End If 
  55.       Paste Bob 390,15,Asc(Mid$(ST$,I,1))-31
  56.       Scroll 1
  57.       Gosub CHANGE
  58.       Wait Vbl 
  59.       View 
  60.       For J=1 To 4
  61.          Scroll 1
  62.          Gosub CHANGE
  63.          Wait Vbl 
  64.          View 
  65.       Next J
  66. Goto SCOL
  67. CHANGE:
  68.  Screen 0
  69.     Extension_4_00EC 1,0,-500,Z
  70.     Extension_4_00EC 2,0,500,Z
  71.     Extension_4_053C 
  72.     Extension_4_0318 
  73.     Extension_4_049E 2,0,0,320,200 To 0,0
  74.  Screen 1
  75.    Bob Clear 
  76.    Bob Draw 
  77.    Screen Swap 
  78. Return 
  79. End Proc
  80. Procedure BBAR
  81. Set Rainbow 1,1,100,"(1,1,10)(1,-1,10)","",""
  82. Rainbow 1,0,80,200
  83. Set Rainbow 0,1,76,"","",""
  84. Rainbow 0,0,30,76
  85. Colour Back 0
  86. Restore RDATA
  87. For C=0 To 75 : Read CVA : Rain(0,C)=CVA
  88. Next C : View 
  89. RDATA:
  90. Data $0,$0,$0,$0,$0,$0,$0,$0
  91. Data $0,$1,$1,$2,$2,$3,$3,$4
  92. Data $4,$5,$5,$6,$6,$7,$7,$8
  93. Data $8,$9,$9,$A,$A,$B,$B,$C
  94. Data $C,$D,$D,$E,$E,$F,$F,$F
  95. Data $F,$E,$E,$D,$D,$C,$C,$B
  96. Data $B,$A,$A,$9,$9,$8,$8,$7
  97. Data $7,$6,$6,$5,$5,$4,$4,$3
  98. Data $3,$2,$2,$1,$1,$0,$0,$0
  99. Data $0,$0,$0,$0,$0,$0,$0,$0
  100. End Proc