home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / imdemo.amos / imdemo.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-02-09  |  5.0 KB  |  221 lines
  1. ' Just another Demo
  2. ' Nothing new
  3. '             by Angeldust 
  4. RBOW
  5. SCROL
  6. Procedure SCROL
  7. '
  8. SETUP:
  9.    Bob Update Off 
  10.    Autoback 1
  11.    Hide On : Led Off : Close Editor : Curs Off : 
  12.    Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4)
  13.    SCNT=1
  14.    CNT=31
  15.    SC$=" ANGELDUST PRODUCTIONS PRESENTS - INTRO III - THE ALMIGHTY ADT - RING CHAOS MATRIX / VECTOR 4 WHQ FOR SYSTEM 5 - 0 MEGS ONLINE PART-TIME USELESS SON-of-a-BITCH !!! "
  16.    SC$=SC$+" PRODUCTION FROM   - SYSTEM 5 -       THE CREDITS GO OUT TO :                     "
  17.    Unpack 5 To 0
  18.    Unpack 9 To 3
  19.    Shift Down 1,4,15,1
  20.    Screen Open 2,320,256,4,Lowres
  21.    Screen Display 2,130,,,155
  22.    Cls 0 : STARS
  23.    Screen Open 1,360,330,8,Lowres
  24.    Screen Display 1,134,40,329,155
  25.    Cls 0 : Curs Off 
  26.    Dual Playfield 1,2
  27.    Def Scroll 1,1,125 To 353,155,-4,0
  28.    Cls 0
  29.    Get Palette 0
  30.    IMBOB
  31.    Get Sprite Palette 
  32.    Colour 9,$FFF
  33.    Flash 1,"(111,2)(333,2)(555,2)(777,2)(999,2)(777,2)(555,2)(333,2)"
  34.    SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-()#{} "
  35.    Gosub PIXD
  36. ' Music Turn on
  37. '   Music 1 : Tempo 1 : Mvolume 63 
  38. '   Wait Vbl 
  39.    Flash 1,"(111,2)(333,2)(555,2)(777,2)(999,2)(777,2)(555,2)(333,2)"
  40. ROO:
  41.    Gosub STEXT
  42.    Bob Clear 
  43.    Bob Draw : Screen Swap 1
  44.    Wait Vbl 
  45.    Goto ROO
  46. PIXD:
  47.    For F=1 To 51
  48.       Read X$(F),X(F),Y(F)
  49.    Next F
  50.    Return 
  51.    Data "0",0,0
  52.    Data "1",32,0
  53.    Data "2",64,0
  54.    Data "3",96,0
  55.    Data "4",128,0
  56.    Data "5",160,0
  57.    Data "6",192,0
  58.    Data "7",224,0
  59.    Data "8",256,0
  60.    Data "9",288,0
  61.    Data "A",0,32
  62.    Data "B",32,32
  63.    Data "C",64,32
  64.    Data "D",96,32
  65.    Data "E",128,32
  66.    Data "F",160,32
  67.    Data "G",192,32
  68.    Data "H",224,32
  69.    Data "I",256,32
  70.    Data "J",288,32
  71.    Data "K",0,64
  72.    Data "L",32,64
  73.    Data "M",64,64
  74.    Data "N",96,64
  75.    Data "O",128,64
  76.    Data "P",160,64
  77.    Data "Q",192,64
  78.    Data "R",224,64
  79.    Data "S",256,64
  80.    Data "T",288,64
  81.    Data "U",0,96
  82.    Data "V",32,96
  83.    Data "W",64,96
  84.    Data "X",96,96
  85.    Data "Y",128,96
  86.    Data "Z",160,96
  87.    Data "@",192,96
  88.    Data ",",224,96
  89.    Data "!",256,96
  90.    Data ".",288,96
  91.    Data ":",0,128
  92.    Data "?",32,128
  93.    Data "/",64,128
  94.    Data "+",96,128
  95.    Data "-",128,128
  96.    Data "(",160,128
  97.    Data ")",192,128
  98.    Data "#",224,128
  99.    Data "{",256,128
  100.    Data "}",288,128
  101.    Data " ",288,223
  102. STEXT:
  103.    Bob Draw : Wait Vbl 
  104.    Scroll 1
  105.    Add CNT,4
  106.    If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  107.    SCOL
  108.    If Mouse Key=1 Then Goto EXIDEMO
  109.    Return 
  110. NCHAR:
  111.    E$=Mid$(SC$,SCNT,1)
  112.    E=Instr(SCRL$,E$)
  113.    Screen Copy 0,X(E),Y(E),X(E)+31,Y(E)+31 To 1,320,125
  114.    Bob Clear 
  115.    Bob Draw : Screen Swap 1
  116.    Wait Vbl 
  117.    Return 
  118. EXIDEMO:
  119.    FFF:
  120.    Cls 0
  121.    Screen 1
  122.    Fade 3
  123.    Wait 40
  124.    Screen 3
  125.    Fade 2
  126.    Wait 30 : Cls 0
  127.    P=63
  128. ' Music Fade !!!! Turn on
  129. '   Repeat 
  130. '     Mvolume P
  131. '     Dec P
  132. '     Wait Vbl 
  133. '  Until P=0 
  134.    End 
  135. End Proc
  136. Procedure RBOW
  137.    '
  138.    Set Rainbow 1,6,72,"","",""
  139.    Rainbow 1,0,40,70
  140.    Colour Back 175
  141.    Restore RDATA1
  142.    For C=0 To 71 : Read CVA : Rain(1,C)=CVA
  143.    Next C : View 
  144.    RDATA1:
  145.    Data $B,$C,$B,$C,$B,$B,$B,$A
  146.    Data $B,$A,$B,$A,$A,$A,$A,$9
  147.    Data $9,$A,$9,$A,$9,$9,$9,$8
  148.    Data $9,$8,$8,$9,$8,$8,$8,$7
  149.    Data $8,$7,$8,$7,$7,$7,$7,$6
  150.    Data $7,$6,$7,$6,$6,$6,$6,$5
  151.    Data $6,$5,$5,$6,$5,$5,$5,$4
  152.    Data $4,$5,$4,$5,$4,$4,$4,$3
  153.    Data $3,$4,$3,$3,$4,$3,$3,$2
  154.    Data $2,$3,$2,$2,$3,$2,$2,$1
  155.    '
  156.    ' Rainbow for Scroll 
  157.    '
  158.    Set Rainbow 0,2,77,"","",""
  159.    Rainbow 0,0,123,77
  160.    Colour Back 0
  161.    Restore RDATA
  162.    For C=0 To 76 : Read CVA : Rain(0,C)=CVA
  163.    Next C : View 
  164.    RDATA:
  165.    Data $0,$0,$0,$0,$0,$0,$0,$0
  166.    Data $111,$111,$222,$222,$333,$333,$444,$444
  167.    Data $555,$555,$666,$666,$777,$777,$888,$888
  168.    Data $999,$999,$AAA,$AAA,$BBB,$BBB,$CCC,$CCC
  169.    Data $DDD,$DDD,$EEE,$EEE,$FFF,$FFF,$FFF,$FFF
  170.    Data $EEE,$EEE,$DDD,$DDD,$CCC,$CCC,$BBB,$BBB
  171.    Data $AAA,$AAA,$999,$999,$888,$888,$777,$777
  172.    Data $666,$666,$555,$555,$444,$444,$333,$333
  173.    Data $222,$222,$111,$111,$0,$0,$0,$0,$0
  174.    Data $0,$0,$0,$0,$0,$0,$0,$0
  175.    Data $0,$0,$0
  176.    Rem
  177. End Proc
  178. Procedure STARS
  179.    Rem KBYTE starscrolly routine 1.1
  180.    Screen 2
  181.    Colour 9,$FFF
  182.    Def Scroll 2,1,0 To 339,32,2,0
  183.    Def Scroll 3,1,32 To 339,48,3,0
  184.    Def Scroll 4,1,48 To 339,64,2,0
  185.    Def Scroll 5,1,64 To 339,80,2,0
  186.    Def Scroll 6,1,80 To 339,96,3,0
  187.    Def Scroll 7,1,96 To 339,112,2,0
  188.    Def Scroll 8,1,112 To 339,128,3,0
  189.    Def Scroll 9,1,128 To 339,144,2,0
  190.    Def Scroll 10,1,144 To 339,155,3,0
  191. End Proc
  192. Procedure SCOL
  193.    Screen 2
  194.    M=155-(B*2)
  195.    Y=Rnd(M)
  196.    Plot 5,(B+Y),9
  197.    Scroll 2 : Scroll 3 : Scroll 4 : Scroll 5 : Scroll 6
  198.    Scroll 7 : Scroll 8
  199.    Scroll 9 : Scroll 10
  200.    Screen 1
  201. End Proc
  202. Procedure IMBOB
  203. I=1 : Y=15 : N=3
  204. Repeat 
  205.    Set Bob I,1,%111,%11100000
  206.    Bob I,67,Y,N
  207.    No Mask I
  208.    I=I+1 : Y=Y+2 : N=N+1
  209. Until N=29
  210. T=26
  211. While T>0
  212.    Synchro Off 
  213.    Channel T To Bob T
  214.    Amal T,"J:For R3=1 To 5;P,1;M 2,0,5;P,1;M -4,0,5;P,1;M 4,0,5;P,1;M -2,0,5;For R0=1 To 25;Next R0:M 10,0,5;For R1=1 To 100;Next R1;M -10,0,5;P,1;Next R3;For R2=1 To 25;M 1,0,3;P,1;M -2,0,3;P,1;M 1,0,3;Next R2;P,1;J J:"
  215. '   Amal T,"J:M 1,0,3;P,1;M -2,0,3;P,1;M 1,0,3;P,1;J J:" 
  216.    Amal On T
  217.    Synchro On 
  218.    Wait 3
  219.    T=T-1
  220. Wend 
  221. End Proc