home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / angeldemo.amos / angeldemo.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-02-09  |  7.2 KB  |  263 lines
  1. '
  2. '                   AngelDemo 91 By Angeldust (Andrew Welsh)   
  3. '                             Released 
  4. '
  5. SET_UP_SCREEN
  6. LIZER
  7. SCROL_MAIN[N,TX$]
  8. Procedure SET_UP_SCREEN
  9.    Led Off 
  10. '   DISP_PIC 
  11. Auto View Off 
  12.    Led On : Hide On 
  13.    Set Sprite Buffer 100
  14.    Hide On 
  15.    Screen Open 2,360,256,2,
  16.    Screen Open 0,360,130,2,
  17.    Screen Display 0,120,100,,
  18.    Screen Display 2,121,101,,
  19.    Dual Playfield 0,2
  20.    Screen 2 : Cls 0 : Curs Off 
  21.    Flash 1,"(111,2)(333,2)(555,2)(777,2)(555,2)(333,4)"
  22.    Cdown : Cdown : Cdown : Cdown : Cdown : Cdown : Cdown : Cdown : Cdown : Cdown : Cdown : Cdown 
  23.    Cdown 
  24.    Cdown : Cdown : Cdown : Cdown : Cdown : Centre "Angeldemo '91" : Cdown 
  25.    Centre "-------------" : Cdown 
  26.    Centre "Credits to :" : Cdown : Cdown 
  27.    Centre "Code : Angeldust" : Cdown : Cdown 
  28.    Centre "Music : Kbyte" : Cdown : Cdown 
  29.    Centre "Graphics : Angeldust"
  30.    Screen 0
  31.    Cls 0 : Hide On 
  32.    Unpack 16 To 1
  33.    Double Buffer 
  34.    Screen To Front 0
  35.    Priority On 
  36.    STARS
  37.    Screen 1
  38.    View 
  39.    Auto View On 
  40.    '
  41.    ' Rainbow 0 is for the scroller --> bob scroller !!
  42.    '
  43.    Set Rainbow 0,0,64,"","","" : Rainbow 0,0,220,64 : Colour Back 0 : Restore RDATA
  44.    For C=0 To 63 : Read CVA : Rain(0,C)=CVA : Next C : View 
  45.    RDATA:
  46.    Data $0,$0,$0,$0,$0,$100,$200,$300
  47.    Data $400,$501,$602,$703,$804,$905,$A06,$A06
  48.    Data $A06,$A06,$A06,$A06,$A06,$A06,$A06,$A06
  49.    Data $A06,$A06,$A06,$A06,$A06,$A06,$A06,$A06
  50.    Data $A06,$A06,$A06,$A06,$A06,$A06,$A06,$A06
  51.    Data $A06,$A06,$A06,$A06,$A06,$A06,$A06,$A06
  52.    Data $A06,$A06,$A06,$A06,$A06,$A06,$905,$804
  53.    Data $703,$602,$501,$400,$300,$200,$100,$0
  54.    Data $0,$0,$0,$0,$0,$0,$0,$0
  55.    ' End * Rainbow 0 *
  56.    Set Rainbow 1,0,64,"","","(1,1,10)(1,-1,10)"
  57.    Rainbow 1,0,85,20
  58.    Set Rainbow 2,0,64,"","","(1,1,10)(1,-1,10)"
  59.    Rainbow 2,0,5,20
  60. End Proc
  61. Procedure SCROL_MAIN[N,TX$]
  62.    Shared N,TX$
  63.    SPRITS
  64.    Randomize Timer
  65.    Update Every 2
  66.    Music 1 : Tempo 17
  67.    Update Every 2
  68.    SCROL[TX$]
  69.    BOPA:
  70.    STARS_SCROLL
  71.    Inc N : If N>11 : N=1 : End If : Inc POS
  72.    LET$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789s      "
  73.    STARS_SCROLL
  74.    If POS>Len(TX$) Then POS=1
  75.    If Mouse Key=1
  76.       CLD
  77.    End If 
  78.    STARS_SCROLL
  79.    E$=Mid$(TX$,POS,1) : E=Instr(LET$,E$)
  80.    Channel N To Bob N : Bob N,336,192,E
  81.    STARS_SCROLL
  82.    MO[N]
  83.    Amal On 
  84.    STARS_SCROLL
  85.    Repeat 
  86.       X1=X Bob(N)
  87.       STARS_SCROLL
  88.    Until X1<315
  89.    STARS_SCROLL
  90.    Wait Vbl 
  91.    Goto BOPA
  92. End Proc
  93. Procedure MO[N]
  94.    Shared N
  95.    Amal N,"L:M -100,6,80;M 20,0,10;M -20,0,10;M -100,-6,80;J L:"
  96.    Wait Vbl 
  97. End Proc
  98. Procedure SCROL[TX$]
  99.    Shared TX$
  100.    TX$=" WELCOME TO s ANGELDEMO 91 s THE FINAL RELEASE ss LIKE MY STAR ROUTINE ss IT WILL FEATURE IN MY UP AND COMING GAME sYET TO BE NAMEDs AND DON'T HOLD YOUR BREATH EITHER ss"
  101.    TX$=TX$+""
  102.    TX$=TX$+"GREETS GO OUT TO sss T E X ss THE BLADE ss MARK WARD ss "
  103.    TX$=TX$+"BATMAN ss CENTAUR ss KBYTE ss MARLS ss GLENN ss AND ALL OTHERS "
  104.    TX$=TX$+"C U L8R  ANGELDUST                    "
  105. End Proc
  106. Procedure CLD
  107.    Screen 0
  108.    Fade 3
  109.    Wait 50
  110.    Screen 1
  111.    Fade 2
  112.    Wait 20
  113.    Screen Hide 1
  114.    Screen Close 1
  115.    Rainbow Del 
  116.    Y=17 : G=50
  117.    Repeat 
  118.       Tempo Y
  119.       Mvolume G
  120.       Inc Y
  121.       Dec G
  122.       Wait 3
  123.    Until G=0
  124.    Led On 
  125.    End 
  126. End Proc
  127. Procedure STARS
  128.    '
  129.    ' KBYTE STARSCROLLY ROUTINE 1.1 (1990) -- ADT IMPROVED 91
  130.    ' Bi-Directional StarScrolly Routine 2.1 (June 91) 
  131.    '
  132.    Screen 0
  133.    Colour 1,$999 : Flash Off 
  134.    Colour 7,$FFF : Colour 8,$FFF : Colour 9,$FFF
  135.    Def Scroll 1,1,1 To 359,16,-1,0
  136.    Def Scroll 2,1,16 To 359,32,-2,0
  137.    Def Scroll 3,1,32 To 359,48,-1,0
  138.    Def Scroll 4,1,48 To 359,64,-3,0
  139.    Def Scroll 5,1,64 To 359,80,-2,0
  140.    Def Scroll 6,1,80 To 359,96,-1,0
  141.    Def Scroll 7,1,96 To 359,112,-2,0
  142.    Def Scroll 8,1,112 To 359,128,-3,0
  143.    ' Set up Right Star Scrolling !! 
  144.    Screen 2
  145.    Def Scroll 9,1,1 To 339,16,2,0
  146.    Def Scroll 10,1,16 To 339,32,3,0
  147.    Def Scroll 11,1,32 To 339,48,2,0
  148.    Def Scroll 12,1,48 To 339,64,3,0
  149.    Def Scroll 13,1,64 To 339,80,2,0
  150.    Def Scroll 14,1,80 To 339,96,3,0
  151.    Def Scroll 15,1,96 To 339,112,2,0
  152.    Def Scroll 16,1,112 To 339,128,3,0
  153.    Pop Proc
  154. End Proc
  155. Procedure STARS_SCROLL
  156.    '
  157.    ' Scroll Stars from Text Scroller !! By Angeldust
  158.    ' Needs Stars to define scrolls
  159.    '
  160.    Screen 0
  161.    Randomize Timer
  162.    M=138-(B*2)
  163.    Y=Rnd(M)
  164.    Plot 340,(B+Y),1
  165.    ' Left Stars 
  166.    Scroll 1 : Scroll 2 : Scroll 3 : Scroll 4 : Scroll 5 : Scroll 6
  167.    Scroll 7 : Scroll 8
  168.    ' Right Scrolling of Stars 
  169.    Screen 2
  170.    M=128-(B/2)
  171.    Y=Rnd(M)
  172.    Plot 4,(B+Y),1
  173.    Scroll 9 : Scroll 10 : Scroll 11 : Scroll 12 : Scroll 13 : Scroll 14
  174.    Scroll 15 : Scroll 16
  175.    Screen 1
  176. End Proc
  177. Procedure LIZER
  178.    '  
  179.    ' ADTLIZER V1.1
  180.    '
  181.    Synchro Off 
  182.    A$=A$+"       AUtotest(Let R1=Vu(R0); If R1=0 eXit else Direct Start)"
  183.    A$=A$+"Start: Let R2=R1 Anim 1,(46,2)(47,2)(48,2)(49,2)(50,2)(51,2)(52,2)(53,2)(54,2)(55,2)(56,2)(57,2)(58,2)(59,2)(60,2)(61,2);Pause,1"
  184.    A$=A$+"Wait 1"
  185.    Amreg(0)=200 : Amreg(1)=50
  186.    Bob 22,5,15,19
  187.    Channel 20 To Bob 22
  188.    Amal 20,"Let R0="+Str$(1)+A$
  189.    Amal On 20
  190.    Bob 23,5,195,19
  191.    Channel 19 To Bob 23
  192.    Amal 19,"Let R0="+Str$(2)+A$
  193.    Amal On 19
  194.    Bob 24,310,195,19
  195.    Channel 17 To Bob 24
  196.    Amal 17,"Let R0="+Str$(3)+A$
  197.    Amal On 17
  198.    Bob 25,310,15,19
  199.    Channel 18 To Bob 25
  200.    Amal 18,"let R0="+Str$(4)+A$
  201.    Amal On 18
  202.    Synchro On 
  203.    Wait 100
  204. End Proc
  205. Procedure SPRITS
  206.    Screen 1
  207.    Synchro Off 
  208.    Bob 26,100,20,63
  209.    Channel 21 To Bob 26
  210.    Amal 21,"A 0,(63,2)(64,2)(65,2);K:M 100,0,100;M -100,0,100:J K:"
  211.    Bob 27,330,210,118
  212.    Channel 22 To Bob 27
  213.    W$="J:A 0,(118,5)(119,5)(120,5)(121,5)(122,5)(123,5)(124,5)(125,5)(126,5)(127,5)(128,5)(129,5)(130,5)(131,5)(132,5);Let X=330;M -350,0,450;L X=330;M -120,0,450;"
  214.    W$=W$+"Anim 1,(103,3)(104,3)(105,3)(106,3)(107,3)(108,3)(109,3)(110,3)(110,3)(111,3)(112,3)(113,2)(114,3)(115,3)(116,3)(117,3);"
  215.    W$=W$+"For R4=1 To 55;Next R4;L X=330:J J:"
  216.    Amal 22,W$
  217.    Channel 28 To Screen Offset 2
  218.    Amal 28,"L:For RA=1 To 600;Next RA;M 0,120,100;For RD=1 To 200;Next RD;M 0,-120,100;P:J L:"
  219.    Amal On 
  220.    Synchro On 
  221.    Screen 2
  222.    Synchro Off 
  223.    Sprite 8,0,120,67
  224.    Channel 59 To Sprite 8
  225.    H$="Anim 0,(67,2)(68,2)(69,2)(70,2);H:M 200,0,200;M 0,20,100;M 0,-40,100;M 0,20,100;M 250,0,50;M 200,-20,150;M 200,40,150;M 100,-20,150;M 250,0,200;M 100,0,300;M -100,0,200;M 200,0,20;"
  226.    H$=H$+"Anim 1,(70,2)(71,2)(72,2)(73,2)(74,2)(75,2)(76,2)(77,2)(78,2)(79,2)(80,2)(81,8)(83,8)(84,8)(85,8)(86,8)(87,8)(88,8)(89,8)(90,8)(91,8)(92,8);For R6=1 To 180;Next R6;Anim 0,(67,2)(68,2)(69,2)(70,2);L X=0;J H:"
  227.    Amal 59,H$
  228.    Sprite 50,0,233,95
  229.    Channel 60 To Sprite 50
  230.    F$="Anim 0,(95,9)(96,9)(97,9)(98,9)(99,9)(100,9)(101,9)(102,9);J:M 500,0,200;Let X=0:J J:"
  231.    Amal 60,F$
  232.    Amal On 
  233.    Synchro On 
  234.    Screen 1
  235. End Proc
  236. '
  237. Procedure DISP_PIC
  238. Screen Open 7,320,266,32,Lowres : Flash Off : Cls 0
  239. Screen Open 6,320,266,32,Lowres : Flash Off : Curs Off : Cls 0
  240.    Screen 7 : Unpack 15 To 7
  241.    Screen 6 : Get Palette(7) : Hide 
  242.    Screen To Front 6 : B=30 : Autoback 0
  243. For A=0 To 190
  244.    Get Bob 7,150,0,A To 320,A+1
  245.    Get Bob 7,151,0,A+15 To 320,A+B
  246.    No Mask 
  247.    Paste Bob 0,A,150
  248.    Paste Bob 0,A+2,Vrev(151)
  249. Next A
  250. Locate ,25
  251.    Ink 2 : Paper 0
  252.    Centre "What Y'all Think of Demos" : Cdown 
  253.    Centre "** T R A S H **"
  254.    Wait 100
  255.    Screen Close 7
  256.    Fade 3
  257.    Wait 50
  258.    Screen Close 6
  259.    Bob Clear 
  260.    Cls 0
  261.    Make Mask 
  262.    Pop Proc
  263. End Proc