home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / defintro.amos / defintro.amosSourceCode < prev    next >
AMOS Source Code  |  1993-01-08  |  5KB  |  182 lines
  1. ' Small Intro  
  2. ' Logo Sway Routine by Daisy (Ya know the dudes dog !!)
  3. ' Takes a while to set up .. 
  4. '
  5. ' See Def Intro II for a quick version (pre calculated)
  6. PART_7
  7. Procedure PART_7
  8.    Gosub PIXELLED
  9.    Screen Open 3,320,200,4,Lowres
  10.    Get Sprite Palette : Double Buffer 
  11.    Curs Off : Cls 0 : Flash Off 
  12.    Wait Vbl 
  13.    Dual Playfield 3,0
  14.    Wait Vbl 
  15.    Screen To Back 3
  16.    Screen Hide 3
  17.    B=1
  18.    Repeat 
  19.       X=Rnd(310) : Y=Rnd(200)
  20.       Bob B,X,Y,114
  21.       Inc B
  22.    Until B=15
  23.    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;"
  24.    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;"
  25.    B=1 : C=1
  26.    Repeat 
  27.       Channel C To Bob B
  28.       If B<8
  29.          Amal C,C$
  30.       Else 
  31.          Amal C,V$
  32.       End If 
  33.       Wait 2 : Amal On C
  34.       Inc C : Inc B
  35.    Until C=14
  36.    Amal On 15
  37.    Screen Open 2,320,200,2,Lowres
  38.    Screen Display 2,140,200,,100
  39.    Get Sprite Palette 
  40.    Screen 3
  41.    Colour 2,$F
  42.    Colour 9,$FFF
  43.    Screen 2
  44.    Curs Off : Cls 0 : Flash Off 
  45.    Def Scroll 1,0,0 To 320,96+48,,-1
  46.    Def Scroll 2,0,20 To 320,60,,-1
  47.    Gosub RBOW
  48.    Screen Show 3
  49.    Rainbow 1,0,199,119
  50.    Restore TXT
  51.    Screen 2
  52.    Do 
  53.       Read TX$
  54.       If TX$="end" Then Restore TXT : Read TX$
  55.       MID=(Len(TX$)*16)/2 : MID=160-MID
  56.       For S=0 To 31
  57.          If Mouse Key=1 Then Goto ENND
  58.          If S<Len(TX$)
  59.             BN=Asc(Mid$(TX$,S+1,1))
  60.             BN=BN+12
  61.             Paste Bob S*16+MID,64-S+48,BN
  62.          End If 
  63.          Screen 2
  64.          Wait Vbl 
  65.          Scroll 1
  66.          Scroll 2
  67.       Next S
  68.    Loop 
  69.    TXT:
  70.    Data ""
  71.    Data "-------------"
  72.    Data "DEF PIXEL / TUF"
  73.    Data "-------------"
  74.    Data "CRAZY LOGO"
  75.    Data "INTRO"
  76.    Data ""
  77.    Data "CODE & GFX"
  78.    Data "ANGELDUST"
  79.    Data ""
  80.    Data "DEF PIXEL / TUF"
  81.    Data "ARE"
  82.    Data ""
  83.    Data "ANGELDUST"
  84.    Data "SHOCK G"
  85.    Data "KBYTE"
  86.    Data "GLENN"
  87.    Data ""
  88.    Data "JUST SOME"
  89.    Data "UNKNOWN"
  90.    Data "PERSONS"
  91.    Data ""
  92.    Data "HOPE YOU"
  93.    Data "LIKE"
  94.    Data "THIS"
  95.    Data "PIECE"
  96.    Data "OF"
  97.    Data "GARBAGE"
  98.    Data ""
  99.    Data "GREETS TO ALL !!"
  100.    Data ""
  101.    Data "WRITTEN IN"
  102.    Data "AMOS"
  103.    Data "(BIG DEAL)"
  104.    BYE:
  105.    Data ""
  106.    Data ""
  107.    Data "DEF PIXEL / TUF"
  108.    Data "(C)1992"
  109.    Data ""
  110.    Data "MOUSE TO EXIT"
  111.    Data "end"
  112.    RBOW:
  113.    Set Rainbow 1,1,120,"","",""
  114.    Restore RN
  115.    For F=0 To 119
  116.       Read A
  117.       Rain(1,F)=A
  118.    Next F
  119.    Return 
  120.    RN:
  121.    Data $0,$101,$202,$313,$414,$525,$626,$737,$838,$949,$A4A,$B5B,$C5C,$D6D,$E6E,$F7F
  122.    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
  123.    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
  124.    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
  125.    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
  126.    '   Data $F7F,$E6E,$D6D,$C5C,$B5B,$A4A,$949,$838,$737,$626,$525,$414,$313,$202,$101,$0,0,0,0 
  127.    Data $100,$200,$300,$400,$500,$600,$700,$800,$900,$A00,$B00,$C00,$D00,$E00,$F00
  128.    PIXELLED:
  129.    NPAS=16
  130.    NSCREEN=NPAS : SX=320 : SY=200
  131.    AMPX1#=16 : AMPY1#=0.05
  132.    AMPX2#=16 : AMPY2#=0.04
  133.    Reserve As Chip Work 8,10000
  134.    SIZE=SX/8*SY
  135. '
  136. '  Chnage this to a data bankand don't erase 
  137. '  for a precalculated movement
  138.    Reserve As Chip Work 7,SIZE*NSCREEN
  139.    Erase 8
  140.    Unpack 6 To 0
  141.    Colour 1,$EEE
  142.    If Logbase(0)>Start(7) : Stop : End If 
  143.    Screen Open 1,SX,SY,2,Lowres
  144.    Curs Off : Screen Hide 1
  145.    Screen Open 2,SX,SY,2,Lowres
  146.    Curs Off : Screen Hide 2
  147.    STP#=2*Pi#/NPAS
  148.    For N=0 To NPAS-1
  149.       P#=P#+STP#
  150.       Screen 1 : Cls 0 : Screen 2 : Cls 0
  151.       For Y=1 To SY-1
  152.          X=AMPX1#*Sin(Y*AMPY1#-P#)
  153.          Screen Copy 0,0,Y,SX,Y+1 To 2,X,Y
  154.       Next 
  155.       For Y=1 To SX-1
  156.          X=AMPY2#*Sin(X*AMPX2#-P#)
  157.          Screen Copy 1,X,0,X+1,SY To 2,X,Y
  158.       Next 
  159.       Copy Logbase(0),Logbase(0)+SIZE To Start(7)+N*SIZE
  160.    Next 
  161.    Screen Close 1 : Screen Close 2
  162.    Screen 0 : Cls 0
  163.    TL=SX/8
  164.    D=Start(7)-Logbase(0)
  165.    OY=D/TL : OX=(D mod TL)*8
  166.    Amreg(0)=OX : Amreg(1)=OY : Amreg(2)=SY : Amreg(3)=NPAS
  167.    Channel 15 To Screen Offset 0
  168.    A$=A$+"L: For R0=0 To RD;"
  169.    A$=A$+"   Let X=RA;"
  170.    A$=A$+"   Let Y=R0*RC+RB;"
  171.    A$=A$+"   Next R0; "
  172.    A$=A$+"   J L;"
  173.    Amal 15,A$
  174.    Return 
  175.    ENND:
  176.    Rainbow Del 
  177.    Fade 3 : Wait 50
  178.    Screen Close 0
  179.    '   Screen Close 1 
  180.    Erase 7
  181.    Screen Close 3
  182. End Proc