home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / defintroii.amos / defintroii.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-02-05  |  3.9 KB  |  146 lines
  1. PART_7
  2. Procedure PART_7
  3.    Gosub PIXELLED
  4.    Screen Open 3,320,200,4,Lowres
  5.    Get Sprite Palette : Double Buffer 
  6.    Curs Off : Cls 0 : Flash Off 
  7.    Wait Vbl 
  8.    Dual Playfield 3,0
  9.    Wait Vbl 
  10.    Screen To Back 3
  11.    Screen Hide 3
  12.    B=1
  13.    Repeat 
  14.       X=Rnd(310) : Y=Rnd(200)
  15.       Bob B,X,Y,114
  16.       Inc B
  17.    Until B=15
  18.    C$="Anim 0,(115,2)(114,2)(113,2)(112,2)(111,2)(110,2)(109,2)(108,2)(107,2)(106,2)(105,2)(104,2);H:L X=Z(1000);L Y=Z(90);M 0,0,0;F RY=1 To 300;Next RY;J H;"
  19.    V$="Anim 0,(115,4)(114,4)(113,4)(112,4)(111,4)(110,4)(109,4)(108,4)(107,4)(106,4)(105,4)(104,4);J:L X=Z(1000);L Y=Z(90);M 0,0,0;F RZ=1 To 500;Next RZ;J J;"
  20.    B=1 : C=1
  21.    Repeat 
  22.       Channel C To Bob B
  23.       If B<8
  24.          Amal C,C$
  25.       Else 
  26.          Amal C,V$
  27.       End If 
  28.       Wait 2 : Amal On C
  29.       Inc C : Inc B
  30.    Until C=15
  31.    Amal On 15
  32.    Screen Open 2,320,200,2,Lowres
  33.    Screen Display 2,140,200,,100
  34.    Get Sprite Palette 
  35.    Screen 3
  36.    Colour 2,$F
  37.    Colour 9,$FFF
  38.    Screen 2
  39.    Curs Off : Cls 0 : Flash Off 
  40.    Def Scroll 1,0,0 To 320,96+48,,-1
  41.    Def Scroll 2,0,20 To 320,60,,-3
  42.    Def Scroll 3,0,50 To 320,80,,-1
  43.    Gosub RBOW
  44.    Screen Show 3
  45.    Set Rainbow 2,9,120,"(5,2,25)(5,-2,25)","",""
  46.    Rainbow 2,0,45,119
  47.    Rainbow 1,0,199,119
  48.    Restore TXT
  49.    Screen 2
  50.    Do 
  51.       Read TX$
  52.       If TX$="end" Then Restore TXT : Read TX$
  53.       MID=(Len(TX$)*16)/2 : MID=160-MID
  54.       For S=0 To 31
  55.          If Mouse Key=1 Then Goto ENND
  56.          If S<Len(TX$)
  57.             BN=Asc(Mid$(TX$,S+1,1))
  58.             BN=BN+12
  59.             Paste Bob S*16+MID,64-S+48,BN
  60.          End If 
  61.          Screen 2
  62.          Wait Vbl 
  63.          Scroll 1
  64.          Scroll 2
  65.          Scroll 3
  66.          Wait Vbl 
  67.       Next S
  68.    Loop 
  69.    TXT:
  70.    Data "-------------"
  71.    Data "DEF PIXEL / TUF"
  72.    Data "-------------"
  73.    Data "CRAZY LOGO"
  74.    Data "INTRO II"
  75.    Data ""
  76.    Data "CODE & GFX"
  77.    Data "ANGELDUST"
  78.    Data ""
  79.    Data "DEF PIXEL / TUF"
  80.    Data "ARE"
  81.    Data ""
  82.    Data "ANGELDUST"
  83.    Data "SHOCK G"
  84.    Data "KBYTE"
  85.    Data "GLENN"
  86.    Data ""
  87.    Data "GREETS"
  88.    Data "TO"
  89.    Data "EVERYONE"
  90.    Data ""
  91.    Data "WRITTEN IN"
  92.    Data "! AMOS !"
  93.    Data "(BIG DEAL)"
  94.    BYE:
  95.    Data ""
  96.    Data ""
  97.    Data "DEF PIXEL / TUF"
  98.    Data "(C)1992"
  99.    Data ""
  100.    Data "MOUSE TO EXIT"
  101.    Data "end"
  102.    RBOW:
  103.    Set Rainbow 1,1,120,"","",""
  104.    Restore RN
  105.    For F=0 To 119
  106.       Read A
  107.       Rain(1,F)=A
  108.    Next F
  109.    Return 
  110.    RN:
  111.    Data $0,$101,$202,$313,$414,$525,$626,$737,$838,$949,$A4A,$B5B,$C5C,$D6D,$E6E,$F7F
  112.    Data $F7F,$F8F,$F8F,$F9F,$F9F,$FAF,$FAF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FAF,$FAF,$F9F,$F9F,$F9F,$F9F,$F8F
  113.    Data $F7F,$F8F,$F8F,$F9F,$F9F,$FAF,$FAF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FAF,$FAF,$F9F,$F9F,$F9F,$F9F,$F8F
  114.    Data $F7F,$F8F,$F8F,$F9F,$F9F,$FAF,$FAF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FAF,$FAF,$F9F,$F9F,$F9F,$F9F,$F8F
  115.    Data $F7F,$F8F,$F8F,$F9F,$F9F,$FAF,$FAF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FBF,$FAF,$FAF,$F9F,$F9F,$F9F,$F9F,$F8F
  116.    '   Data $F7F,$E6E,$D6D,$C5C,$B5B,$A4A,$949,$838,$737,$626,$525,$414,$313,$202,$101,$0,0,0,0 
  117.    Data $100,$200,$300,$400,$500,$600,$700,$800,$900,$A00,$B00,$C00,$D00,$E00,$F00
  118.    PIXELLED:
  119.    NPAS=8
  120.    NSCREEN=NPAS : SX=320 : SY=200
  121.    AMPX1#=8 : AMPY1#=0.05
  122.    AMPX2#=8 : AMPY2#=0.04
  123.    Reserve As Chip Work 8,10000
  124.    Erase 8
  125.    Unpack 6 To 0
  126.    Colour 1,$EEE
  127.    Screen 0 : Cls 0
  128.    TL=SX/8
  129.    D=Start(7)-Logbase(0)
  130.    OY=D/TL : OX=(D mod TL)*8
  131.    Amreg(0)=OX : Amreg(1)=OY : Amreg(2)=SY : Amreg(3)=NPAS
  132.    Channel 15 To Screen Offset 0
  133.    A$=A$+"L: For R0=0 To RD;"
  134.    A$=A$+"   Let X=RA;"
  135.    A$=A$+"   Let Y=R0*RC+RB;"
  136.    A$=A$+"   Next R0; "
  137.    A$=A$+"   J L;"
  138.    Amal 15,A$
  139.    Return 
  140.    ENND:
  141.    Rainbow Del 1
  142.    Fade 3 : Wait 50
  143.    Screen Close 0
  144.    '   Screen Close 1 
  145.    Screen Close 3
  146. End Proc