home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
maksiu
/
games
/
vargolle.lha
/
Vargolle.AMOS
/
Vargolle.amosSourceCode
< prev
Wrap
AMOS Source Code
|
1980-12-12
|
7KB
|
191 lines
'Load "lilllo.abk"
'Load Iff "darf",1
Unpack 11 To 0
'Load "d.abk",1
Hide
Flash Off
Curs Off
Get Sprite Palette
Double Buffer
D=1
X=10
H=10
Music 1
J1=-100
J2=-35
J3=-200
J4=-300
KU=23
A:
Bob 2,X,Y,D+SID
Bob 14,M,N,19
Bob 3,M1,N1,20
Bob 4,M2,N2,20
Bob 5,M3,N3,20
Bob 6,M4,N4,21
Bob 7,T,R,7
Bob 8,Z,A,H
Bob 9,L,J,9
Bob 10,L1,J1,9
Bob 11,L2,J2,9
Bob 12,L3,J3,9
Bob 13,L4,J4,9
Bob 1,O,I,KU
If KU=26 and Fire(1) and X>O-5 and X<O+5 and Y>I-15 and Y<I+15 Then Wait 40 : Goto B
If Not RUT=1 or RUT=4 or RUT=6 or RUT=7 Then O=1000
If J>450 Then J=-220 : L=BEM : AW=0
If J1>770 Then J1=-200 : L1=BEM : AW1=0
If J2>370 Then J2=-110 : L2=BEM : AW2=0
If J3>600 Then J3=-90 : L3=BEM : AW3=0
If J4>530 Then J4=-10 : L4=BEM : AW4=0
J=J+AW
J1=J1+AW1
J2=J2+AW2
J3=J3+AW3
J4=J4+AW4
BEM=BEM+5
If BEM>300 Then BEM=0
ROLI=ROLI+1
If ROLI>3 Then H=11
If ROLI>6 Then H=10 : ROLI=0
If BONG=1 Then Z=Z-5
If BONG=0 Then Z=Z+5
If FLIPP=1 Then A=A-5
If FLIPP=0 Then A=A+5
If Z<1 Then BONG=0
If Z>300 Then BONG=1
If A>256 Then FLIPP=1
If A<1 Then FLIPP=0
T=T-1
HOPPI=HOPPI+1
If HOPPI>5 Then Q=Q+1 : AW=AW+1 : AW1=AW1+1 : AW2=AW2+1 : AW3=AW3+1 : AW4=AW4+1 : HOPPI=0
If T<1 Then T=300 : R=GOS : Q=1
GOS=GOS+3
If GOS>75 Then GOS=0
R=R+Q
If T>M-2 and T<M+100 and R>N-5 and R<N+5 Then Q=-5 : R=N
If T>M1-2 and T<M1+100 and R>N1-5 and R<N1+5 Then Q=-5 : R=N1
If T>M2-2 and T<M2+100 and R>N2-5 and R<N2+5 Then Q=-5 : R=N2
If T>M3-2 and T<M3+100 and R>N3-5 and R<N3+5 Then Q=-5 : R=N3
If T>M4-2 and T<M4+100 and R>N4-5 and R<N4+5 Then Q=-5 : R=N4
If Jleft(1) Then X=X-1 : P=1 : SID=3
If Jright(1) Then X=X+1 : P=1 : SID=0
If Jup(1) and STAND=1 Then HOPP=-5
TID=TID+1
If X>300 Then X=1 : RUT=RUT+1 : T=300 : R=GOS : Q=1
If X<1 Then X=300 : RUT=RUT-1 : R=GOS : T=300 : Q=1
If RUT=0 Then M=0 : N=180 : M1=100 : N1=100 : M2=200 : N2=50 : M3=20 : N3=20 : M4=200 : N4=180
If RUT=1 Then M1=0 : N1=100 : M=130 : N=100 : M2=50 : N2=240 : M3=180 : N3=90 : M4=250 : N4=100 : O=80 : I=240 : KU=26
If RUT=2 Then M=100 : N=150 : M1=0 : N1=170 : M3=110 : N3=150 : M2=200 : N2=120 : M4=200 : N4=150
If RUT=3 Then M=0 : N=200 : M1=50 : N1=200 : M2=100 : N2=100 : M3=200 : N3=80 : M4=100 : N4=180
If RUT=4 Then M=250 : N=180 : M1=100 : N1=150 : M2=50 : N2=170 : M3=120 : N3=200 : M4=140 : N4=10
If RUT=5 Then M=0 : N=180 : M1=160 : N1=180 : M2=200 : N2=150 : M3=120 : N3=210 : M4=200 : N4=180
If RUT=6 Then M=120 : N=10 : M1=170 : N1=150 : M2=0 : N2=150 : M3=220 : N3=100 : M4=100 : N4=100 : O=130 : I=100 : KU=27
If RUT=7 Then M=75 : N=78 : M1=130 : N1=100 : M2=250 : N2=150 : M3=20 : N3=220 : M4=120 : N4=80
If RUT=8 Then M=0 : N=180 : M1=100 : N1=100 : M2=200 : N2=150 : M3=20 : N3=20 : M4=200 : N4=180 : O=225 : I=150 : KU=28
If RUT=9 Then M=0 : N=180 : M1=100 : N1=100 : M2=200 : N2=50 : M3=20 : N3=20 : M4=200 : N4=180
Y=Y+HOPP
If TID>5 Then HOPP=HOPP+1 : TID=0
If STAND=0 Then D=3
If STAND=1 and P=1 Then G=G+1
If G>3 Then D=1
If G>6 Then D=2 : P=0 : G=0
STAND=0
If X>M-2 and X<M+100 and Y>N-5 and Y<N+5 Then STAND=1 : Y=N
If X>M1-2 and X<M1+100 and Y>N1-5 and Y<N1+5 Then STAND=1 : Y=N1
If X>M2-2 and X<M2+100 and Y>N2-5 and Y<N2+5 Then STAND=1 : Y=N2
If X>M3-2 and X<M3+100 and Y>N3-5 and Y<N3+5 Then STAND=1 : Y=N3
If X>M4-2 and X<M4+100 and Y>N4-5 and Y<N4+5 Then STAND=1 : Y=N4
If X>T-5 and X<T+5 and Y>R-15 and Y<R+15 Then Fade 9 : End
If STAND=1 Then HOPP=0
Wait 1
Goto A
B:
Bob 2,X,Y,D+SID
Bob 14,M,N,12
Bob 3,M1,N1,12
Bob 4,M2,N2,12
Bob 5,M3,N3,13
Bob 6,M4,N4,14
Bob 7,T,R,7
Bob 8,Z,A,H
Bob 9,L,J,9
Bob 10,L1,J1,9
Bob 11,L2,J2,9
Bob 12,L3,J3,9
Bob 13,L4,J4,9
Bob 1,O,I,KU
If KU=23 and Fire(1) and X>O-5 and X<O+5 and Y>I-15 and Y<I+15 Then Wait 40 : Goto B
L=1000
L1=1000
L2=1000
L3=1000
L4=1000
If Not RUT=1 or RUT=4 or RUT=6 or RUT=7 Then O=1000
If J>450 Then J=-220 : L=BEM : AW=0
If J1>770 Then J1=-200 : L1=BEM : AW1=0
If J2>370 Then J2=-110 : L2=BEM : AW2=0
If J3>600 Then J3=-90 : L3=BEM : AW3=0
If J4>530 Then J4=-10 : L4=BEM : AW4=0
J=J+AW
J1=J1+AW1
J2=J2+AW2
J3=J3+AW3
J4=J4+AW4
BEM=BEM+5
If BEM>300 Then BEM=0
ROLI=ROLI+1
If ROLI>3 Then H=11
If ROLI>6 Then H=10 : ROLI=0
If BONG=1 Then Z=Z-5
If BONG=0 Then Z=Z+5
If FLIPP=1 Then A=A-5
If FLIPP=0 Then A=A+5
If Z<1 Then BONG=0
If Z>300 Then BONG=1
If A>256 Then FLIPP=1
If A<1 Then FLIPP=0
T=T-1
HOPPI=HOPPI+1
If HOPPI>5 Then Q=Q+1 : AW=AW+1 : AW1=AW1+1 : AW2=AW2+1 : AW3=AW3+1 : AW4=AW4+1 : HOPPI=0
If T<1 Then T=300 : R=GOS : Q=1
GOS=GOS+3
If GOS>75 Then GOS=0
R=R+Q
If T>M-2 and T<M+100 and R>N-5 and R<N+5 Then Q=-5 : R=N
If T>M1-2 and T<M1+100 and R>N1-5 and R<N1+5 Then Q=-5 : R=N1
If T>M2-2 and T<M2+100 and R>N2-5 and R<N2+5 Then Q=-5 : R=N2
If T>M3-2 and T<M3+100 and R>N3-5 and R<N3+5 Then Q=-5 : R=N3
If T>M4-2 and T<M4+100 and R>N4-5 and R<N4+5 Then Q=-5 : R=N4
If Jleft(1) Then X=X-1 : P=1 : SID=3
If Jright(1) Then X=X+1 : P=1 : SID=0
If Jup(1) and STAND=1 Then HOPP=-5
TID=TID+1
If X>300 Then X=1 : RUT=RUT+1 : T=300 : R=GOS : Q=1
If X<1 Then X=300 : RUT=RUT-1 : R=GOS : T=300 : Q=1
If RUT=0 Then M=0 : N=180 : M1=100 : N1=180 : M2=200 : N2=180 : M3=300 : N3=180 : M4=200 : N4=120
If RUT=1 Then M1=0 : N1=180 : M=100 : N=180 : M2=200 : N2=180 : M3=180 : N3=130 : M4=150 : N4=90 : O=80 : I=240 : KU=23
If RUT=2 Then M=100 : N=50 : M1=0 : N1=70 : M3=110 : N3=100 : M2=210 : N2=200 : M4=200 : N4=180
If RUT=3 Then M=0 : N=200 : M1=50 : N1=200 : M2=130 : N2=90 : M3=150 : N3=180 : M4=100 : N4=180
If RUT=4 Then M=0 : N=180 : M1=150 : N1=90 : M2=150 : N2=70 : M3=170 : N3=100 : M4=140 : N4=10
If RUT=5 Then M=0 : N=180 : M1=160 : N1=180 : M2=200 : N2=150 : M3=120 : N3=210 : M4=200 : N4=180
If RUT=6 Then M=120 : N=10 : M1=170 : N1=150 : M2=0 : N2=150 : M3=220 : N3=100 : M4=100 : N4=100 : O=130 : I=100 : KU=26
If RUT=7 Then M=75 : N=78 : M1=130 : N1=100 : M2=250 : N2=150 : M3=20 : N3=220 : M4=120 : N4=80
If RUT=8 Then M=0 : N=180 : M1=100 : N1=100 : M2=200 : N2=150 : M3=20 : N3=20 : M4=200 : N4=180 : O=225 : I=150 : KU=28
If RUT=9 Then M=0 : N=180 : M1=100 : N1=100 : M2=200 : N2=50 : M3=20 : N3=20 : M4=200 : N4=180
Y=Y+HOPP
If TID>5 Then HOPP=HOPP+1 : TID=0
If STAND=0 Then D=3
If STAND=1 and P=1 Then G=G+1
If G>3 Then D=1
If G>6 Then D=2 : P=0 : G=0
STAND=0
If X>M-2 and X<M+100 and Y>N-5 and Y<N+5 Then STAND=1 : Y=N
If X>M1-2 and X<M1+100 and Y>N1-5 and Y<N1+5 Then STAND=1 : Y=N1
If X>M2-2 and X<M2+100 and Y>N2-5 and Y<N2+5 Then STAND=1 : Y=N2
If X>M3-2 and X<M3+100 and Y>N3-5 and Y<N3+5 Then STAND=1 : Y=N3
If X>M4-2 and X<M4+100 and Y>N4-5 and Y<N4+5 Then STAND=1 : Y=N4
If X>T-5 and X<T+5 and Y>R-15 and Y<R+15 Then Fade 9 : End
If STAND=1 Then HOPP=0
Wait 1
Goto B