priser! - Stone Oakvalley Studios

, **********************
, * Bat And Ball By :
, * Oystein Fremmerlid *
,
**********************
Global N, L,XP#,YP#,XS#,
I YS# ,YB,YR,BP,RP,BL,RL,K
P_INSTALATION
LABEL1 :
IP_SCORE : For Y=91 To 12
Step -3
Bob 2,10,Y, 2 :Wait Vbl :Next
For Y=91 To 169 Step 3
Bob 3,302,Y,3 :Wait Vbl : Next
XP#=153 : YP#=106 : YS#=4
YB=12 : YR=168 : BP=1000
RP=1000
BL=5 : RL=5 : P_SPEED : XS#=K
For X=-20 To XP# Step 3
Bob 1,X,YP#,1 :Wait Vbl :Next
P_START
Rem * MAIN LOOP *
Do
Loop
P_KEYTEST
P_BALLMOVE
P_BATHITT
If BL=O or RL=O Then
P_GAME OVER : Goto LABEL1
Procedure P_INSTALATION
Screen Open
1,320,32,32,Lowres
Screen Hide 1 Curs Off
Flash Off
Paper 2 : Cls Pen O
Locate l, O
Print "Player : Points:
Balls: "
Screen Open
0,320,22 4,3 2,Lowres
Curs Off : Flash Off: Hide
P_SCORE : Colour Back $20
Screen Hide O:Paper O:Cls
Palette $20,$FFF,$FFO,
$990,$550, $110,$44,$731,
$5,$7,$9,$B,$D, $F,$500,
$700,$900,$BOO,$DOO,$FOO
Screen To Front l:Screen 1
Wait Vbl : Get Palette O
Screen Display 1"-2 0, ,
Screen Show 1 : Screen O
Wait Vbl
For Y=-20 To 280 Step 6
Screen Display 1" Y , ,
Wait Vbl : Next
For X=l To 4 : Ink Xt1
Circle 10,10,X : Next
For X=8 To 13 : Ink X
Draw 20tX,1 To 20tX, 41
Ink Xt5
Draw 60-X, 1 To 60-X, 41
Next
Ink 4 : Box 28,0 To 35,42
Box 46,0 To 53 ,42
Sp illet er innsendt av Øystein
Fremmerlid, Grendavegen 7,
6100 Volda.
Get Bob 1,4,4 To 15,15
Get Bob 2,28,0 To 36,43
Get Bob 3,46,0 To 54, 43
Cls O : Screen Show O
Locate ,10 : Centre
"PLAYER BLUE : A=UP Z=DOWN"
Locate ,12 : Centre
"PLAYER RED : #=UP /=DOWN"
Locate ,14 : Cent re "OR
JOY1 AND JOY2 "
Locate ,16 : Centre
"SPACE/FIRE=PAUSE"
Box 52,70 To 266,145
Wait Key
Screen Hide O Cls O
P_DRAWAREA
Screen Show O For Y=320
To 52 Step -4
Screen Display O" Y, ,
Wai t Vbl : Next
Double Buffer : Ink
Paper O
End Proc
Procedure P _DRAWAREA
Ink 6 : Circle 159,111,20
Circle 159,111,40
Ellipse 159,112,161,60
Box 7,12 To 312,211
Draw 7,12 To 312,211
Draw 7,211 To 312, 12
Draw 40,34 To 40,189
Draw 280,34 To 280,189
Draw 0,0 To 0,223
Draw 319,0 To 319,223
Ink 7
Bar 4,0 To 315,10
Bar 4,213 To 315,223
Paper 7 : Ink 6
Locate 1, O
24
OBS: Strekene i margen fo r­
teller hva som skal skrives
på en linje.
Print "Bat And Ball
Oystein Fremmerlid
End Proc
Procedure P_START
XP#=153 : YP#=106
XS#=XS#*-l
YS#=YS#*-l
Bob 1, XP# , YP# ,1
By :
92 "
Restore D_NR1 :For X=l To 5
Read N, L : P_PLAY4
For X1=0 To L
P_KEYTEST
Next : Next
D_NR1 :
Data 37,6,39,6,41,13,
44,11,44,11
End Pro c
Procedure P_SCORE
Screen 1 : Wait Vbl
Pen 13 : Locate 1,1
Print "Blue : " i
Print Using "###### "iBPi
Print Using "##"iBL
Pen 19 : Locate 1,2
Print "Red: "i
Print Using "###### "iRPi
Print Using "##"iRL
Screen O : Wait Vbl
End Pro c
Procedure P_GAMEOVER
Screen O : Wait Vbl
Locate 0,20 : Bob 1,-
20,0,1
Bob 2,10,91,2 : Bob
3,302 ,91,3
If BL=O Then Pen 19
Centre "Red Wins !" P=RP
If RL=O Then Pen 13
Centre "Blue Wins !" P=BP
Clear Key : P$=Str$(P)
Restore D_NR2
For X=l To 11
Next
Locate 0,22 : Centre
String$ (" ",6)
Locate 0,22 : Centre P$
Wait 4
Read N,L : P_PLAY4
For X1=0 To L*40 : Next
Clear Key : Wait Key
Locate 15,20 : Print
String$(" ",10)
Locate 16,22 : Print
String$ (" ",8)
D_NR2 :
Da ta 2 5 , 5 5 , 2 5 , 5 O , 2 5 ,
20,25,16,28,6 0,27
Data 16,27,18,25,13,25,
12 ,24,26,25,41
End Proc
Procedure P_KEYTEST
If Key State(32) or
Joy(l )=l Then If Not
YB=168 Then Add YB ,6
If Key State(42 ) or
Joy(O )=l Then If Not
YR=168 Then Add YR, 6
If Key State(64) or
Joy(0)=16 or Joy(1 )=16
Then P_PAUSE
Bob 1,XP#,YP# ,1 : Bob
2,10,YB,2
Bob 3,302,YR,3 : Wait Vbl
End Pro c
Procedure P_BATHITT
C=Bob Col(1 ,2 To 3)
If Col(2 )=-1 Then N3=Y
Bob (2 ) : Gosub LABEL2
Add BP,100 : XP#=17 : Play
1,10,1 : P_SCORE
If Col(3 )=-1 Then N3 =Y
Bob(3) : Gosub LABEL2 :
Add RP,100 : XP#=289 :
Play 1, 20,1 P_SCORE
Pop Pro c
LABEL2 :
XS#=XS#*-l : M=YP#t10 :
Y=YS#
If M=>N3 and MN3t5 and MN3 t10 and M