home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
amos
/
kuoppatiputus.amos
/
kuoppatiputus.amosSourceCode
< prev
next >
Wrap
AMOS Source Code
|
1995-03-16
|
2KB
|
83 lines
VERSION$="0.2"
Degree : Make Mask : Hide : Flash Off
'
ALKUDEMO
ALOITUSRUUTU
'
Global Z,X,Y,I,S,SIIRT,LEVMIN,LEVMAX
'
X=160 : Y=128
S=2
SIIRT=120
'
Do
TAUSTA
ALUS
Screen Swap : Wait Vbl
Loop
'*************************
Procedure ALKUDEMO
Unpack 7 To 0
Repeat
Repeat
X=Rnd(319) : Y=Rnd(255)
Until Point(X,Y)>0
For I=22 To 26
Bob 1,X,Y,I
Wait 3
Next
For I=26 To 22 Step -1
Bob 1,X,Y,I
Wait 3
Next
Until Fire(0) or Fire(1)
Fade 3 : Wait 50
End Proc
Procedure ALOITUSRUUTU
I=0 : Z=0 : X=0 : Y=0
Unpack 6 To 0 : Double Buffer
Wait 50
For Y=-20 To 290
Inc Z : If Z>2 Then Z=0
If Z=0
Inc I
If I>8
I=1
End If
End If
Bob 1,160,Y,I
Bob 2,160,Y-8,9+Rnd(2)
Wait Vbl : Wait Vbl
Next
Wait 50 : Fade 4 : Wait 70
Paper 0 : Curs Off : Cls 0 : Print : Cls 0 : Get Sprite Palette
End Proc
Procedure ALUS
Inc Z
If Z>8 Then Z=1
If Z=1 Then
If Jleft(1)
Add X,-3
If Z=1
Dec I
End If
End If
If Jright(1)
Add X,3
If Z=1
Inc I
End If
End If
If Jdown(1) Then Add Y,3
If Jup(1) Then Add Y,-3
If I>8 Then I=1
If I<1 Then I=8
If X<0 Then X=0
If X>320 Then X=320
If Y<30 Then Y=30
If Y>220 Then Y=220
Sprite 8,X Hard(0,X),Y Hard(0,Y),I
Sprite 9,X Hard(0,X),Y Hard(0,Y-8),9+Rnd(2)
End Proc
Procedure TAUSTA
End Proc