Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
408 lines (407 sloc) 16.1 KB
'******* MAY & YAM ********
'******* por David ********
'******* Gavilan . ********
Dir$="May_&_Yam:"
Hide : Break Off
presentacion
Procedure presentacion
Load "Pres1.abk",8
Load "Pres2.abk",9
Load "Pres3.abk",10
Unpack 8 To 0
For i=1 To 20 : Colour 2,$fff : Colour 3,$f00 : Wait 15 : Colour 2,$f00 : Colour $3,$fff : Wait 15 : Next
Unpack 9 To 0 : Wait 100 : Sam Play 15,4,8000 : Wait 100
Unpack 10 To 0 : Wait 100 : Sam Play 15,1,20000
Fade 5 : Wait 100
End Proc
Load "Bono.abk",8 : Load "Good.abk",9 : Load "Screen.abk",10
game:
Cls 0 : Flash Off : Curs Off : Cls 0
Unpack 10 To 0
St Play 3
Repeat : Until Fire(1) or Fire(0)
Fade 5 : Wait 300 : Cls 0
St Stop
Get Sprite Palette
r=3
Global p$,p,m
p$="I" : p=1 : m=1 : l=5 : ll=5 : x1=50 : x2=100 : x3=150 : y1=30 : y2=30 : y3=30 : a1=12 : a2=12 : a3=12
s1=Rnd(5)+1 : s2=Rnd(5)+1 : s3=Rnd(5)+1 : t1=Rnd(5)+1 : t2=Rnd(5)+1 : t3=Rnd(5)+1
level
a$="Main: Let RA=X ; If X<140 Jump V ;"
a$=a$+" If X>409 Jump Q ;"
a$=a$+" If J1=8 Jump Der ;"
a$=a$+" If J1=4 Jump Iz ;"
a$=a$+" If J1=16 Jump Fire ;"
a$=a$+"Jump Main ;"
a$=a$+"Der: Anim 1,(4,2)(2,2)(3,2) ; Move 8,0,4 ; Jump Main ;"
a$=a$+"Iz: Anim 1,(7,2)(5,2)(6,2) ; Move -8,0,4 ; Jump Main ;"
a$=a$+"Fire: Anim 1,(8,4)(9,4)(10,4) ; Jump Main ; "
a$=a$+"V: Let X=140 ; Jump Main ; "
a$=a$+"Q: Let X=409 ; Jump Main "
b$="Main: Let RB=X ; If X<10 Jump V ;"
b$=b$+" If X>280 Jump Q ;"
b$=b$+" If J0=8 Jump Der ;"
b$=b$+" If J0=4 Jump Iz ;"
b$=b$+" If J0=16 Jump Fire ;"
b$=b$+"Jump Main ;"
b$=b$+"Der: Anim 1,(17,2)(18,2)(16,2) ; Move 8,0,4 ; Jump Main ;"
b$=b$+"Iz: Anim 1,(20,2)(21,2)(19,2) ; Move -8,0,4 ; Jump Main ;"
b$=b$+"Fire: Anim 1,(22,4)(23,4)(24,4) ; Jump Main ; "
b$=b$+"V: Let X=10 ; Jump Main ; "
b$=b$+"Q: Let X=280 ; Jump Main "
Bob 6,180,161,25 : xx=185 : yy=170 : aa=50 : bola2=0
Channel 2 To Bob 6
Sprite 1,250,203,1
x=160 : y=170 : a=50 : score=0 : bonus=0 : bola1=0
Amal 1,a$
Amal 2,b$
Amal On
Make Mask
Repeat
k$=Inkey$
If k$="p" Then Amal Freeze : Wait Key : Amal On
If bonus=0 Then bollo=Rnd(100) : bx=Rnd(280)+20 : ba=Rnd(15)+27 : by=0
If bollo=50 and by<175 Then bonus=1 : Add by,2 : Bob 8,bx,by,ba
If a1<15 Then x1=x1+s1 : y1=y1+t1
If a2<15 Then x2=x2+s2 : y2=y2+t2
If a3<15 Then x3=x3+s3 : y3=y3+t3
If (x1>300 or x1<10) and a1<15 Then s1=-s1 : Sam Play 15,2,8136
If (x2>250 or x2<10) and a2<15 Then s2=-s2 : Sam Play 15,2,8136
If (x3>250 or x3<10) and a3<15 Then s3=-s3 : Sam Play 15,2,8136
If (y1>140 or y1<5) and a1<15 Then t1=-t1 : Sam Play 15,2,8136
If (y2>140 or y2<5) and a2<15 Then t2=-t2 : Sam Play 15,2,8136
If (y3>140 or y3<5) and a3<15 Then t3=-t3 : Sam Play 15,2,8136
Bob 3,x1,y1,a1
Bob 4,x2,y2,a2
Bob 5,x3,y3,a3
If Fire(1) and l>0 and bola1=0 Then bola1=1 : a=11 : x=Amreg(0)-114 : y=170
If bola1=1
y=y-5
If y<15 : y=170 : a=50 : bola1=0 : End If
Bob 2,x,y,a
End If
If Fire(0) and ll>0 and bola2=0 Then bola2=1 : aa=26 : xx=Amreg(1) : yy=170
If bola2=1
yy=yy-5
If yy<15 : yy=170 : aa=50 : bola2=0 : End If
Bob 7,xx,yy,aa
End If
If Spritebob Col(1,3 To 5)
Dec l : Home : Locate 2,27 : Print l : x=160 : y=170 : Amal Freeze 1
Sam Play 15,1,30000
Wait 100
y1=30 : y2=30 : y3=30 : bola1=0 : bola2=0
Sprite 1,250,203,1
Boom
Wait 200
Amal On 1
If l<1 and ll<1 : Fade 5 : Wait 250 : Sprite Off 1 : Rainbow Del 0 : Cls 0 : Goto game : End If
If l<1 : Sprite Off 1 : Amal Off 1 : End If
End If
If Bob Col(6,3 To 5)
Dec ll : Home : Locate 26,27 : Print ll : xx=185 : yy=170 : Amal Freeze 2
Sam Play 15,1,30000
Wait 100
y1=30 : y2=30 : y3=30 : bola2=0 : bola1=0
Bob 6,180,161,25
Boom
Wait 200
Amal On 2
If l<1 and ll<1 : Fade 5 : Wait 250 : Bob Off 6 : Rainbow Del 0 : Cls 0 : Goto game : End If
If ll<1 : Bob Off 6 : Amal Off 2 : End If
End If
If Bob Col(2,3 To 3) and a=11 and a1<15 Then Inc a1 : a=50 : bola1=0 : Bob 2,x,y,a : Sam Play 15,3,8136 : y=170 : a=50 : Bob 2,x,y,a : Add score,10 : Locate 10,30 : Print "SCORE: ";score
If Bob Col(2,4 To 4) and a=11 and a2<15 Then Inc a2 : a=50 : bola1=0 : Bob 2,x,y,a : Sam Play 15,3,8136 : y=170 : a=50 : Bob 2,x,y,a : Add score,10 : Locate 10,30 : Print "SCORE: ";score
If Bob Col(2,5 To 5) and a=11 and a3<15 Then Inc a3 : a=50 : bola1=0 : Bob 2,x,y,a : Sam Play 15,3,8136 : y=170 : a=50 : Bob 2,x,y,a : Add score,10 : Locate 10,30 : Print "SCORE: ";score
If Bob Col(7,3 To 3) and aa=26 and a1<15 Then Inc a1 : aa=50 : bola2=0 : Bob 7,xx,yy,aa : Sam Play 15,3,8136 : yy=170 : aa=50 : Bob 7,xx,yy,aa : Add score,10 : Locate 10,30 : Print "SCORE: ";score
If Bob Col(7,4 To 4) and aa=26 and a2<15 Then Inc a2 : aa=50 : bola2=0 : Bob 7,xx,yy,aa : Sam Play 15,3,8136 : yy=170 : aa=50 : Bob 7,xx,yy,aa : Add score,10 : Locate 10,30 : Print "SCORE: ";score
If Bob Col(7,5 To 5) and aa=26 and a3<15 Then Inc a3 : aa=50 : bola2=0 : Bob 7,xx,yy,aa : Sam Play 15,3,8136 : yy=170 : aa=50 : Bob 7,xx,yy,aa : Add score,10 : Locate 10,30 : Print "SCORE: ";score
If Bobsprite Col(8) and ba=27 Then Inc l : Locate 2,27 : Print l : bonus=0 : Bob Off 8
If Bob Col(8,6 To 6) and ba=28 Then Inc ll : Locate 26,27 : Print ll : bonus=0 : Bob Off 8
If Bobsprite Col(8) and ba=29 Then r=Rnd(4)+1 : bonus=0 : Bob Off 8
If Bob Col(8,6 To 6) and ba=29 Then r=Rnd(4)+1 : bonus=0 : Bob Off 8
If Bobsprite Col(8) and ba=30
Dec l : Sam Play 15,1,30000 : Locate 2,27 : Print l : bonus=0 : Bob Off 8
If l<1 and ll<1 : Fade 5 : Wait 250 : Sprite Off 1 : Rainbow Del 0 : Cls 0 : Goto game : End If
If l<1 : Sprite Off 1 : Amal Off 1 : End If
End If
If Bob Col(8,6 To 6) and ba=30
Dec ll : Sam Play 15,1,30000 : Locate 26,27 : Print ll : bonus=0 : Bob Off 8
If l<1 and ll<1 : Fade 5 : Wait 250 : Bob Off 6 : Rainbow Del 0 : Cls 0 : Goto game : End If
If ll<1 : Bob Off 6 : Amal Off 2 : End If
End If
If Bobsprite Col(8) and ba>30 and ba<41 Then Add score,50 : Locate 10,30 : Print "SCORE: ";score : bonus=0 : Bob Off 8 : Sam Play 15,5,4000 : Wait 20
If Bob Col(8,6 To 6) and ba>30 and ba<41 Then Add score,50 : Locate 10,30 : Print "SCORE: ";score : bonus=0 : Bob Off 8 : Sam Play 15,5,4000 : Wait 20
If Bobsprite Col(8) and ba=41 Then a1=12 : a2=12 : a3=12 : bonus=0 : Bob Off 8 : Sam Play 15,5,4000 : Wait 20
If Bob Col(8,6 To 6) and ba=41 Then a1=12 : a2=12 : a3=12 : bonus=0 : Bob Off 8 : Sam Play 15,5,4000 : Wait 20
If Bobsprite Col(8) and ba=42 Then a1=14 : a2=14 : a3=14 : bonus=0 : Bob Off 8 : Sam Play 15,5,4000 : Wait 20
If Bob Col(8,6 To 6) and ba=42 Then a1=14 : a2=14 : a3=14 : bonus=0 : Bob Off 8 : Sam Play 15,5,4000 : Wait 20
If score=1000 or score=10000 or score=50000 or score=100000 Then Inc l : Inc ll : Add score,100 : Locate 2,27 : Print l : Locate 26,27 : Print ll : Locate 10,30 : Print "SCORE: ";score
If a1>14 and a2>14 and a3>14
If p$="IIIIIIIIIIII" and m=4 : Gosub bonus_level : End If
If p$="IIIIII" and m=4 : Gosub bonus_level : End If
m=m+1
If l>0 : Sprite 1,250,400,1 : End If
If ll>0 : Bob 6,180,400,25 : End If
Unpack 9 To 0 : Wait 200
level
If l>0 : Sprite 1,250,203,1 : Amal 1,a$ : Amal On 1 : End If
If ll>0 : Bob 6,180,161,25 : Channel 2 To Bob 6 : Amal 2,b$ : Amal On 2 : End If
a1=12 : a2=12 : a3=12 : r=3 : bonus=0
Locate 2,27 : Print l : Locate 26,27 : Print ll : Locate 10,30 : Print "SCORE: ";score
s1=Rnd(5)+1 : s2=Rnd(5)+1 : s3=Rnd(5)+1 : t1=Rnd(5)+1 : t2=Rnd(5)+1 : t3=Rnd(5)+1
y1=30 : y2=30 : y3=30 : x1=Rnd(200)+40 : x2=Rnd(200)+40 : x3=Rnd(200)+40
End If
Wait r
Until p$="IIIIIIIIIIIIIII"
'
Get Sprite Palette
Bob Off 4 : Bob Off 5 : malo=0 : x1=80 : y1=20 : a1=43
Set Rainbow 0,15,193,"","",""
Rainbow 0,0,20,192
Restore _rainbdata
For c=0 To 192
Read cva
Rain(0,c)=cva
Next c
Rainbow 0,0,20,192
Channel 3 To Rainbow 0
Bob 3,x1,y1,a1
Wait 200
Repeat
If a1<47 Then x1=x1+s1 : y1=y1+t1
If (x1>300 or x1<10) and a1<47 Then s1=-s1 : Sam Play 15,2,8136
If (y1>140 or y1<5) and a1<47 Then t1=-t1 : Sam Play 15,2,8136
Bob 3,x1,y1,a1
If Jright(1) and l>0 Then x=x+2 : a=50 : Bob 2,x,y,a
If Jleft(1) and l>0 Then x=x-2 : a=50 : Bob 2,x,y,a
If Fire(1) and l>0
y=y-5 : a=11
If y<15 : y=170 : End If
If x<15 or x>305 : x=160 : End If
Bob 2,x,y,a
End If
If Jright(0) and ll>0 Then xx=xx+2 : aa=50 : Bob 7,xx,yy,aa
If Jleft(0) and ll>0 Then xx=xx-2 : aa=50 : Bob 7,xx,yy,aa
If Fire(0) and ll>0
yy=yy-5 : aa=26
If yy<15 : yy=170 : End If
If xx<15 or xx>305 : xx=160 : End If
Bob 7,xx,yy,aa
End If
If Spritebob Col(1,3 To 3)
Dec l : Home : Locate 2,27 : Print l : x=160 : y=170 : Amal Freeze 1
Sam Play 15,1,30000
Wait 100
y1=30 : y2=30 : y3=30
Sprite 1,250,203,1
Boom
Wait 200
Amal On 1
If l<1 and ll<1 : Fade 5 : Wait 250 : Sprite Off 1 : Rainbow Del 0 : Cls 0 : Goto game : End If
If l<1 : Sprite Off 1 : Amal Off 1 : End If
End If
If Bob Col(6,3 To 3)
Dec ll : Home : Locate 26,27 : Print ll : xx=185 : yy=170 : Amal Freeze 2
Sam Play 15,1,30000
Wait 100
y1=30 : y2=30 : y3=30
Bob 6,180,161,25
Boom
Wait 200
Amal On 2
If l<1 and ll<1 : Fade 5 : Wait 250 : Bob Off 6 : Rainbow Del 0 : Cls 0 : Goto game : End If
If ll<1 : Bob Off 6 : Amal Off 2 : End If
End If
If Bob Col(2,3 To 3) and a=11 and a1<47
Inc malo : Sam Play 15,3,8136 : y=170 : a=50 : Bob 2,x,y,a : Add score,10 : Locate 10,30 : Print "SCORE: ";score
If malo>10 : Inc a1 : malo=0 : End If
End If
If Bob Col(7,3 To 3) and aa=26 and a1<47
Inc malo : Sam Play 15,3,8136 : yy=170 : aa=50 : Bob 7,xx,yy,aa : Add score,10 : Locate 10,30 : Print "SCORE: ";score
If malo>10 : Inc a1 : malo=0 : End If
End If
If Jup(1) or Jup(0) Then Amal 3,"Move 1,0,1" : Amal On 3
If Jdown(1) or (0) Then Amal 3,"Move -1,0,1" : Amal On 3
Wait 1
Until a1>46
Wait 100 : Fade 5 : Wait 150
Rainbow Del 0 : Amal Off
If l>0 Then Sprite Off 1
If ll>0 Then Bob Off 6
Cls 0
Unpack 7 To 0 : Colour 15,0
Bob 1,156,0,49 : Bob 2,7,130,49 : Bob 3,156,130,49 : Wait 200
Bob 1,7,0,49 : Wait 200
Bob 2,156,0,49 : Wait 5 : Sam Play 15,3,5000 : Wait 200
Bob 3,7,130,49 : Wait 20 : Sam Play 15,1,20000 : Wait 200
Fade 5 : Wait 200
Repeat : Until Fire(1) or Fire(0)
despedida
Wait 100 : End
'
bonus_level:
Amal Off
If l>0 Then Sprite Off 1
If ll>0 Then Bob Off 1
Cls 0
Screen Open 0,320,256,16,Lowres
Get Sprite Palette
Global score1,score2,won
Curs Off : Hide
Set Rainbow 0,0,193,"","",""
Rainbow 0,0,40,192
Curs Off : Flash Off : Hide : Cls 15
Set Rainbow 0,15,193,"","",""
Rainbow 0,0,45,192
Restore _rainbdata
For c=0 To 192
Read cva
Rain(0,c)=cva
Next c
View : Cls 15
Unpack 8 To 0
St Play 3 : Wait 50
Repeat : Until Fire(1) or Fire(0)
Fade 1 : Wait 50
p=Rnd(5)+1 : Cls 0
For i=1 To 4
Paste Bob 2,100+(i*12),27
Next i
Ink 6 : Box 1,110 To 12,159
Get Sprite 47,0,100 To 40,160 : Cls 0
For i=1 To 4
Paste Bob 2,100+(i*12),28
Next i
Ink 14 : Box 1,110 To 12,159
Get Sprite 48,0,100 To 40,160 : Cls 0
Ink 15 : Bar 0,15 To 320,200
Ink 0 : Bar 0,0 To 20,200 : Bar 300,0 To 320,200
For i=1 To 20
Paste Icon i*16-16,0,p
Paste Icon i*16-16,192,p
Next i
won=0 : score1=0 : score2=0
Double Buffer : Get Sprite Palette
'
restart:
If won=1
If score1>score2 : l=l+3 : ll=ll+1 : End If
If score2>score1 : ll=ll+3 : l=l+1 : End If
score=(score1+score2)*1000 : p=6
Wait 100
St Stop
Return
End If
Pen 2 : Locate 0,0 : Print "P1";score1 : Locate 34,0 : Print "P2";score2;" "
x=150 : y=100 : y1=50 : y2=50
dx=Rnd(4)+2 : dy=Rnd(2)+1
r1=Rnd(10) : If r1>5 Then dx=-dx
r2=Rnd(10) : If r2>5 Then dy=-dy
main:
Add x,dx : Add y,dy : If y<=t or y>=160 Then dy=-dy
z1=Bob Col(1) : z2=Bob Col(2) : If Bob Col(4) Then dx=-dx
If x>=320 Then losep2 : Goto restart
If x<=-60 Then losep1 : Goto restart
If z1<>0 Then dx=-dx : dx=Rnd(8)+8 : Sam Play 15,2,8136
If z2<>0 Then dx=Rnd(8)+8 : dx=-dx : Sam Play 15,2,8136
If Joy(1) and 2 Then y1=y1+6 : If y1>130 Then y1=130
If Joy(1) and 1 Then y1=y1-6 : If y1<5 Then y1=5
If Joy(0) and 2 Then y2=y2+6 : If y2>130 Then y2=130
If Joy(0) and 1 Then y2=y2-6 : If y2<5 Then y2=5
Bob 1,5,y1,47
Bob 2,307,y2,48
Bob 3,x,y,14 : Wait 1
Goto main
'
Procedure losep1
Inc score2
If score2=>10 Then win
Repeat : Until Fire(1) or Fire(0)
End Proc
Procedure losep2
Inc score1
If score1=>10 Then win
Repeat : Until Fire(1) or Fire(0)
End Proc
'
Procedure win
Pen 3 : Locate 0,0 : Centre " Game Over "
Pen 2 : Locate 0,0 : Print "P1";score1 : Locate 34,0 : Print "P2";score2;" "
won=1
End Proc
Procedure noise
For l=79 To 0 Step -1
Play 96-(20+(l/2)),0
Wait 1
Next l
End Proc
Return
_rainbdata:
Data $f00,$f00,$f00,$f10,$f10,$f10,$f20,$f20,$f20,$f30,$f30,$f30
Data $f40,$f40,$f40,$f50,$f50,$f50,$f60,$f60,$f60,$f70,$f70,$f70
Data $f80,$f80,$f80,$f90,$f90,$f90,$fa0,$fa0,$fa0,$fb0,$fb0,$fb0
Data $fc0,$fc0,$fc0,$fd0,$fd0,$fd0,$fe0,$fe0,$fe0,$ff0,$ff0,$ff0
Data $ff0,$ff0,$ef0,$ef0,$df0,$df0,$cf0,$cf0,$bf0,$bf0,$af0,$af0
Data $9f0,$9f0,$8f0,$8f0,$7f0,$7f0,$6f0,$6f0,$5f0,$5f0,$4f0,$4f0
Data $3f0,$3f0,$2f0,$2f0,$1f0,$1f0,$f0,$f0
Data $f0,$f0,$f1,$f1,$f2,$f2,$f3,$f3,$f4,$f4,$f5,$f5,$f6,$f6
Data $f7,$f7,$f8,$f8,$f9,$f9,$fa,$fa,$fb,$fb,$fc,$fc,$fd,$fd
Data $fe,$fe,$ff,$ff,$ef,$ef,$df,$df,$cf,$cf,$bf,$bf
Data $bf,$bf,$af,$af,$9f,$9f,$8f,$8f,$7f,$7f,$6f,$6f,$5f,$5f
Data $4f,$4f,$3f,$3f,$2f,$2f,$1f,$1f,$f,$f
Data $f,$f,$10f,$10f,$20f,$20f,$30f,$30f,$40f,$40f,$50f,$50f
Data $60f,$60f,$70f,$70f,$80f,$80f,$90f,$90f,$a0f,$a0f,$b0f,$b0f
Data $c0f,$c0f,$d0f,$d0f,$e0f,$e0f,$f0f,$f0f,$f0f,$f0f,$f0e,$f0e
Data $f0d,$f0d,$f0c,$f0c,$f0b,$f0b,$f0a,$f0a,$f09,$f09,$f08,$f08
Data $f07,$f07,$f06,$f06,$f05,$f05,$f04,$f04,$f03,$f03,$f02,$f02
Data $f01,$f01,$f00,$f00
'
Procedure level
If m>4 Then m=1 : p=p+1 : p$=p$+"I"
If m=1 Then r$="" : g$="(4,1,15)(4,-1,15)" : b$="(4,1,15)(4,-1,15)"
If m=2 Then r$="(4,1,15)(4,-1,15)" : g$="" : b$=""
If m=3 Then r$="(4,1,15)(4,-1,15)" : g$="" : b$="(4,1,15)(4,-1,15)"
If m=4 Then r$="" : g$="" : b$="(4,1,15)(4,-1,15)"
Set Rainbow 0,15,150,r$,g$,b$
Rainbow 0,1,40,200
If p>6 Then p=1
Load p$+".abk",11
Unpack 11 To 0
Goto Rnd(9)+1
1:Colour 4,$b : Colour 5,$aa : Goto main
2:Colour 4,$800 : Colour 5,$f55 : Goto main
3:Colour 4,$50 : Colour 5,$6b0 : Goto main
4:Colour 4,$880 : Colour 5,$dd0 : Goto main
5:Colour 4,$b80 : Colour 5,$fb0 : Goto main
6:Colour 4,$707 : Colour 5,$f0f : Goto main
7:Colour 4,$0 : Colour 5,$555 : Goto main
8:Colour 4,$404 : Colour 5,$b5b : Goto main
9:Colour 4,$bbb : Colour 5,$fff : Goto main
10:Colour 4,$a75 : Colour 5,$fd5 : Goto main
main:
For i=1 To 20
If p$<>"IIIIIIIIIIIIIII" Then Paste Icon i*16-16,0,p
Paste Icon i*16-16,192,p
Next i
For i=1 To 13
If p$<>"IIIIIIIIIIIIIII" Then Paste Icon 0,(i*16)-16,p
If p$<>"IIIIIIIIIIIIIII" Then Paste Icon 305,(i*16)-16,p
Next i
Paste Bob 2,212,27 : Paste Bob 200,212,28 : Paper 0 : Pen 6
Double Buffer
End Proc
Procedure despedida
Get Sprite Palette : Curs Off : Flash Off : Hide : Cls 0 : Home : Locate 0,13 : Paper 0 : Pen 3
Centre " M A Y & Y A M " : Wait 200 : Fade 3 : Wait 50 : Get Sprite Palette
Centre " an AMOS game by " : Wait 200 : Fade 3 : Wait 50 : Get Sprite Palette
Centre " AYDA GAMES " : Wait 200 : Fade 3 : Wait 50 : Get Sprite Palette
Centre " made by " : Wait 200 : Fade 3 : Wait 50 : Get Sprite Palette
Centre " David Gavilan. " : Wait 200 : Fade 3 : Wait 50 : Get Sprite Palette
Centre " THANKS TO: " : Wait 200 : Fade 3 : Wait 50 : Get Sprite Palette
Centre " Olga Gavilan (Ah!)" : Wait 200 : Fade 3 : Wait 50 : Get Sprite Palette
Centre " for her screams " : Wait 200 : Fade 3 : Wait 50 : Get Sprite Palette
Centre " July 1993 " : Wait 200 : Fade 3 : Wait 50 : Get Sprite Palette
Cls 0
End Proc