home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
126-150
/
apd138
/
autoexec.bak
/
autoexec.amosSourceCode
Wrap
AMOS Source Code
|
1991-05-03
|
4KB
|
192 lines
Screen Open 0,320,256,32,Lowres
Curs Off : Flash Off : Hide On : Cls 0
Load Iff "Df0:Logo"
Wait 200
Load Iff "Df0:Logo2"
Wait 200
Screen Close 0
Screen Open 0,320,256,16,Lowres
Cls 0
Flash Off : Curs Off : Hide On
Load Iff "Df0:S/Title.Pic"
Load "Df0:Title.Abk"
Music 1
Repeat
Until Mouse Key=1
Do
ERMEDIATE
Load "Df0:Anim1_Sprites.Abk"
Get Sprite Palette : Cls 0
Load Iff "Df0:S/Anim1.Pic"
Double Buffer
Bob 3,250,50,2
Channel 1 To Bob 3
Amal 1,"A 0,(2,10)(3,10)"
Amal On 1
Wait 50
For F=0 To 100
Bob 1,F,100,1
Wait 1
Wait 2 : Next F
For F=0 To 90
Bob 2,130,F,4
Wait 1
Next F
N=90
For F=130 To 150
Bob 2,F,N,5
N=N-1
Wait 1
Next F
For F=150 To 200
Bob 2,F,70,6
Wait 1
Next F
For F=200 To 256
Bob 2,F,70,7
Wait 1
Next F
Bob 2,256,70,8
Bob Off 2
Wait 100
Amal Off 1 : Bob Off : Bob Clear
Fade 3 : Wait 10*3
ERMEDIATE
Load "Df0:Anim2_Sprites.Abk",1
Load Iff "Df0:S/Anim2.Pic"
Double Buffer
Bob 1,220,-10,1
Wait 100
N=220
For F=-10 To -40 Step -1
Bob 1,N,F,2
N=N-1
Wait 1
Next F
For F=-40 To 50
Bob 1,194,F,4
Wait 1
Next F
For F=1 To 10
Bob 1,180,60,5
Wait 10
Bob 1,180,60,6
Wait 10
Next F
Wait 50
Bob 1,180,60,7
Wait 10
Bob 1,180,60,8
Wait 10
Bob 1,180,60,9
Wait 10
Bob 1,180,60,10
Wait 100
Bob Off : Bob Clear
Fade 3 : Wait 10*3
Erase 1
ERMEDIATE
Load "Df0:Anim3_Sprites.Abk",1
Load Iff "Df0:S/Anim3.Pic"
Double Buffer
Bob 1,120,130,1
Wait 100
For F=1 To 5
Bob 1,120,130,2
Wait 50
Bob 1,120,130,1
Wait 50
Next F
Bob 1,120,130,2
Wait 50
Bob 1,120,130,3
Wait 4
Bob 1,120,130,4
Wait 4
Bob 1,120,130,5
Wait 50
Bob 1,120,130,6
Wait 200
Bob Off : Bob Clear : Fade 3 : Wait 10*3
Erase 1
ERMEDIATE
Load "Df0:Anim4_Sprites.Abk",1
Load Iff "Df0:s/Anim4.Pic"
Double Buffer
For F=400 To 50 Step -1
Bob 1,F,100,1
Wait 1
Next F
For F=100 To 300
Bob 1,50,F,2
Wait 1
Next F
Bob Off : Bob Clear
Screen Close 0
Load Iff "df0:s/Anim4b.Pic",0
Double Buffer
For F=0 To 150
Bob 1,50,F,2
Wait 1
Next F
Bob 1,50,150,3
Wait 100
Bob Off : Bob Clear : Fade 3 : Wait 10*3
Erase 1
ERMEDIATE
Load "df0:Anim5_Sprites.Abk",1
Load Iff "Df0:s/Anim5.Pic"
Double Buffer
Bob 2,120,53,1
Bob 3,130,53,1
Bob 4,140,53,2
Bob 5,150,53,2
Channel 0 To Bob 2 : Channel 1 To Bob 3 : Channel 2 To Bob 4 : Channel 3 To Bob 5
Amal 0,"L:M -3,0,3;M 3,0,3;J L" : Amal 1,"L:M -3,0,3;M 3,0,3;J L" : Amal 2,"L:M 3,0,3;M -3,0,3;J L" : Amal 3,"L:M 3,0,3;M -3,0,3;J L"
Amal On
For F=0 To 160
Bob 1,F,0,3
Wait 1 : Next F
Bob 1,160,0,4
Wait 10
For F=0 To 60
Bob 1,160,F,4
Wait 1
Next F
Wait 100
Bob Off : Bob Clear : Fade 3 : Wait 10*3
Erase 1
Screen Close 0
Screen Open 0,320,256,2,LORES
Colour 1,$FFF
Cls 0 : Hide On : Curs Off : Flash Off : Cls 0
Centre At(,0)+"THE END"
Centre At(,2)+"Yes,it is a pity is'nt it! "
Centre At(,4)+"Thanks to the following people... "
Print At(0,6)+"Jake for adding a touch here and there! "
Print At(0,8)+"M.T. for doing Animation, number 5! "
Print At(0,10)+"Dad for actually liking it ! "
Print At(0,12)+"And you lot for actually getting it! "
Print At(0,14)+"Hi to:Tom,Nick,Simon,Steve,Damien,Paul"
Print At(0,16)+" Lucy,Nancy,Walshe,Giuseppi..... "
Centre At(,18)+"Press ANYTHING to continue"
Repeat
If Inkey$<>"" Then Goto HI
Until Mouse Key=1 or Fire(1) or Fire(0)
HI:
Fade 3 : Wait 10*3
Loop
Procedure ERMEDIATE
Erase 1
Screen Close 0
Screen Open 0,320,256,16,Lowres
Colour 1,$FFF
Cls 0 : Hide On : Curs Off : Flash Off
Cls 0 : Pen 1 : Paper 0
Centre At(,10)+"Loading animation...."
End Proc
' By the way,also,if you load workbench,you will find a DOC on this disk
' which is surprisingly called DOC,it just sums up this program,says HI
' to more people and gives you the lowdown on whats available from....
' TOP SPRITE software
' ---------------------