home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 101-125 / apd124 / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1990-09-27  |  3KB  |  124 lines
  1. '------------------------------------- 
  2. '------------------------------------- 
  3. '--------- D E M O N S  I N T R O ---- 
  4. '---------         V 1.0          ---- 
  5. '------------------------------------- 
  6. '--------- Loader of the BOBS DEMO --- 
  7. '---------   Coding by Blue Max    --- 
  8. '---------      Music by Scott     --- 
  9. '------------------------------------- 
  10. '------------------------------------- 
  11. Close Editor 
  12. Close Workbench 
  13. Screen Open 0,320,256,32,Lowres
  14. Curs Off : Flash Off : Cls 0
  15. Hide : Led Off 
  16. TEST
  17. FIE
  18. FAST
  19. Procedure FIE
  20.    Screen Open 1,320,256,32,Lowres : Curs Off : Flash Off : Cls 0
  21.    Screen Hide 1 : Screen To Front 0
  22.    Data $0,$FD7,$FC6,$FB5,$FA4,$F93,$F82,$F70,$F60,$E40,$C20,$A00,$800,$600,$400,$50
  23.    For I=0 To 15 : Read A : Colour I,A : Next I
  24.    Colour 15,$0
  25.    Bob 7,30,50,5
  26.    Double Buffer 
  27.    Data 35,75,125,155,205,245
  28.    Data 80,75,90,76,78,74
  29.    Dim FX(6),FY(6)
  30.    For J=1 To 6
  31.       Read N
  32.       FX(J)=N
  33.    Next J
  34.    For J=1 To 6
  35.       Read N
  36.       FY(J)=N
  37.    Next J
  38.    Colour 16,$0
  39.    Pen 16 : Paper 0 : Ink 16,0
  40.    Locate 0,20 : Centre "Presents another production from"
  41.    Locate 0,21 : Centre "- POSITRON -"
  42.    Screen 0 : Get Palette 1
  43.    Screen 1
  44.    Screen Show 1 : Screen To Front 1
  45.    For I=0 To 15 : Colour I,$0 : Next I
  46.    Music 1
  47.    Fade 6 To 0
  48.    For J=1 To 2
  49.       For I=1 To 100
  50.          Bob 1,FX(1),FY(1),K
  51.          Bob 2,FX(2),FY(2),K
  52.          Bob 3,FX(3),FY(3),K
  53.          Bob 4,FX(4),FY(4),K
  54.          Bob 5,FX(5),FY(5),K
  55.          Bob 6,FX(6),FY(6),K
  56.          Wait Vbl 
  57.          Add K,1,1 To 4
  58.       Next I
  59.       Fade 5,,,,,,,,,,,,,,,,,$FFF
  60.    Next J
  61.    Fade 1,,,,,,,,,,,,,,,,,$0 : Tempo 1
  62.    For I=1 To 50
  63.       Bob 1,FX(1),FY(1),K
  64.       Bob 2,FX(2),FY(2),K
  65.       Bob 3,FX(3),FY(3),K
  66.       Bob 4,FX(4),FY(4),K
  67.       Bob 5,FX(5),FY(5),K
  68.       Bob 6,FX(6),FY(6),K
  69.       Wait Vbl 
  70.       Add K,1,1 To 4
  71.    Next I
  72.    Fade 8
  73.    For I=1 To 40
  74.       Bob 1,FX(1),FY(1),K
  75.       Bob 2,FX(2),FY(2),K
  76.       Bob 3,FX(3),FY(3),K
  77.       Bob 4,FX(4),FY(4),K
  78.       Bob 5,FX(5),FY(5),K
  79.       Bob 6,FX(6),FY(6),K
  80.       Wait Vbl 
  81.       Add K,1,1 To 4
  82.       Mvolume 40-I
  83.    Next I
  84.    Screen 0 : Cls 0
  85.    Music Off : Mvolume 63
  86.    Screen Close 1
  87.    Erase 3
  88. End Proc
  89. Procedure FAST
  90.    Screen Open 1,400,256,32,Lowres : Curs Off : Flash Off : Cls 0
  91.    Screen Hide 1
  92.    For I=3 To 31 : Add C,128
  93.       Colour I,C
  94.       Ink I : Draw 0,100+I To 400,100+I
  95.    Next I
  96.    For I=31 To 3 Step -1 : Ink I : Draw 0,162-I To 400,162-I : Next I
  97.    Screen Show 1
  98.    Screen 0 : Ink 1,0 : Colour 1,$0
  99.    Text 10,10,"Fast loading..." : Get Bob 20,0,0 To 16*8,15 : Cls 0
  100.    Screen 1
  101.    Bob Draw : Colour 1,$FFF : For Y=90 To 120 : Bob 1,105,Y,20 : Wait Vbl : Next Y
  102.    A$="df0:Positron.amos"
  103.    Erase 1
  104.    Run A$
  105. End Proc
  106. Procedure TEST
  107.    C=Chip Free
  108.    F=Fast Free
  109.    If F=0
  110.       Colour 1,$FFF : Ink 1,0,1
  111.       Cls 0
  112.       Text 10,10,"Oh shit ! I need more memory "
  113.       Text 10,20,"Please Buy a extension..."
  114.       C$="Chip memory : "+Str$(C)
  115.       F$="Fast memory : "+Str$(F)
  116.       Text 10,40,C$
  117.       Text 10,50,F$
  118.       Wait 250
  119.       Fade 5 : Wait 5*15
  120.       FIE
  121.       End 
  122.    End If 
  123.    Load "df0:msic.abk"
  124. End Proc