QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 06:30:24 +00:00
Code Releases Wiki Activity
qb64/programs/samples/qb45com/action/4pong.bas

1910 lines
62 KiB
QBasic
Raw Blame History

SCREEN 12
RANDOMIZE TIMER
GOSUB title
WIDTH 80, 60
DIM tx(2 TO 16) AS INTEGER
DIM ty(2 TO 16) AS INTEGER
DIM itemx(1, 15) AS INTEGER
DIM itemy(1, 15) AS INTEGER
DIM demoitemx(1, 15) AS INTEGER
DIM demoitemy(1, 15) AS INTEGER
DIM symbolx(1 TO 30) AS INTEGER
DIM symboly(1 TO 30) AS INTEGER
DIM symbolt(1 TO 30) AS INTEGER
DIM symbolc(1 TO 30) AS INTEGER
DIM stime(1 TO 30) AS INTEGER
FOR i = 1 TO 15
demoitemx(1, i) = INT(RND * 74) + 14
demoitemy(1, i) = INT(RND * 74) + 14
NEXT i
speed& = 1
pad& = 1
scoret& = 4
max& = 100
dir& = 1
it1& = 1
it2& = 1
it3& = 1
it4& = 1
it5& = 1
it6& = 1
it7& = 1
it8& = 1
ballx& = 50
bally& = 10
ballxs& = INT(RND * 2) + 1
ballys& = INT(RND * 2) + 1
pad1& = 50
pad2& = 50
pad3& = 50
pad4& = 50
p1& = 1
p2& = 1
p3& = 1
p4& = 1
co& = 1
items& = 1
it& = 15
GOTO start
new:
x& = 240
y& = 240
xs& = 0
ys& = 0
a& = speed&
IF p1& = 0 THEN ly1& = 57 ELSE ly1& = 1
IF p2& = 0 THEN lx1& = 57 ELSE lx1& = 1
IF p3& = 0 THEN ly2& = 423 ELSE ly2& = 479
IF p4& = 0 THEN lx2& = 423 ELSE lx2& = 479
started& = 1
IF items& = 0 THEN it& = 0
IF p1& = 7 THEN p1& = INT(RND * 5) + 2
IF p2& = 7 THEN p2& = INT(RND * 5) + 2
IF p3& = 7 THEN p3& = INT(RND * 5) + 2
IF p4& = 7 THEN p4& = INT(RND * 5) + 2
p1hyper& = 0
p2hyper& = 0
p3hyper& = 0
p4hyper& = 0
p1descore& = 0
p2descore& = 0
p3descore& = 0
p4descore& = 0
IF scoret& = 3 OR scoret& = 6 THEN
p1descore& = max&
p2descore& = max&
p3descore& = max&
p4descore& = max&
END IF
IF p1& = 0 THEN p1descore& = -2000000000
IF p2& = 0 THEN p2descore& = -2000000000
IF p3& = 0 THEN p3descore& = -2000000000
IF p4& = 0 THEN p4descore& = -2000000000
p1score& = p1descore&
p2score& = p2descore&
p3score& = p3descore&
p4score& = p4descore&
p1des& = 240
p2des& = 240
p3des& = 240
p4des& = 240
p1pad& = 240
p2pad& = 240
p3pad& = 240
p4pad& = 240
p1size& = 0
p2size& = 0
p3size& = 0
p4size& = 0
p1desize& = 25
p2desize& = 25
p3desize& = 25
p4desize& = 25
p1dir& = 0
p2dir& = 0
p3dir& = 0
p4dir& = 0
p1scores& = 0
p2scores& = 0
p3scores& = 0
p4scores& = 0
p1speed& = pad& * 7
p2speed& = pad& * 7
p3speed& = pad& * 7
p4speed& = pad& * 7
center& = 0
serve& = 5
colo& = INT(RND * 5) + 1
FOR i = 1 TO it&
itemx(1, i) = INT(RND * 340) + 70
itemy(1, i) = INT(RND * 340) + 70
NEXT i
retrylast:
lasthit& = INT(RND * 4) + 1
IF lasthit& = 1 AND p1& = 0 THEN GOTO retrylast
IF lasthit& = 2 AND p2& = 0 THEN GOTO retrylast
IF lasthit& = 3 AND p3& = 0 THEN GOTO retrylast
IF lasthit& = 4 AND p4& = 0 THEN GOTO retrylast
finished& = 0
subtract& = 0
startedd& = TIMER
FOR i = 1 TO 30
stime(i) = 0
NEXT i
restart:
CLS
IF p1& > 1 THEN p1com& = 1 ELSE p1com& = 0
IF p1& > 1 THEN p1ac& = (6 - p1&) * 20
IF p1& > 1 THEN p1ai& = p1& * 80
IF p2& > 1 THEN p2com& = 1 ELSE p2com& = 0
IF p2& > 1 THEN p2ac& = (6 - p2&) * 20
IF p2& > 1 THEN p2ai& = p2& * 80
IF p3& > 1 THEN p3com& = 1 ELSE p3com& = 0
IF p3& > 1 THEN p3ac& = (6 - p3&) * 20
IF p3& > 1 THEN p3ai& = p3& * 80
IF p4& > 1 THEN p4com& = 1 ELSE p4com& = 0
IF p4& > 1 THEN p4ac& = (6 - p4&) * 20
IF p4& > 1 THEN p4ai& = p4& * 80
GOSUB draww
scombo& = 0
CLS
VIEW SCREEN (lx1&, ly1&)-(lx2&, ly2&)
DO
'IF delay& < 0 THEN delay& = 0
'FOR i = 1 TO delay&
'NEXT i
_DELAY 0.03 + DELAY& / 10000
finished& = TIMER
IF max& > 0 AND (scoret& = 3 OR scoret& = 6) THEN
IF p1& > 0 THEN players& = players& + 1
IF p2& > 0 THEN players& = players& + 1
IF p3& > 0 THEN players& = players& + 1
IF p4& > 0 THEN players& = players& + 1
IF p1descore& < 1 AND p1& > 0 THEN
p1& = 0
p1descore& = -players&
ly1& = 57
serve& = 5
GOSUB centerserve
VIEW
CLS
GOSUB draww
ELSEIF p2descore& < 1 AND p2& > 0 THEN
p2& = 0
p2descore& = -players&
lx1& = 57
serve& = 5
GOSUB centerserve
VIEW
CLS
GOSUB draww
ELSEIF p3descore& < 1 AND p3& > 0 THEN
p3& = 0
p3descore& = -players&
ly2& = 423
serve& = 5
GOSUB centerserve
VIEW
CLS
GOSUB draww
ELSEIF p4descore& < 1 AND p4& > 0 THEN
p4& = 0
p4descore& = -players&
lx2& = 423
serve& = 5
GOSUB centerserve
VIEW
CLS
GOSUB draww
END IF
IF players& = 1 THEN GOTO theend
players& = 0
ELSE
IF (p1descore& > max& - 1 OR p2descore& > max& - 1 OR p3descore& > max& - 1 OR p4descore& > max& - 1) AND max& > 0 THEN GOTO theend
END IF
IF p1score& <> p1descore& AND p1& > 0 THEN
FOR i = 1 TO CLNG(ABS(p1descore& - p1score&) / 10) + 1
IF p1descore& - p1score& > 0 THEN p1score& = p1score& + 1
IF p1descore& - p1score& < 0 THEN p1score& = p1score& - 1
NEXT i
SOUND 1000, .1
GOSUB draww
ELSEIF p2score& <> p2descore& AND p2& > 0 THEN
FOR i = 1 TO CLNG(ABS(p2descore& - p2score&) / 10) + 1
IF p2descore& - p2score& > 0 THEN p2score& = p2score& + 1
IF p2descore& - p2score& < 0 THEN p2score& = p2score& - 1
NEXT i
SOUND 1000, .1
GOSUB draww
ELSEIF p3score& <> p3descore& AND p3& > 0 THEN
FOR i = 1 TO CLNG(ABS(p3descore& - p3score&) / 10) + 1
IF p3descore& - p3score& > 0 THEN p3score& = p3score& + 1
IF p3descore& - p3score& < 0 THEN p3score& = p3score& - 1
NEXT i
SOUND 1000, .1
GOSUB draww
ELSEIF p4score& <> p4descore& AND p4& > 0 THEN
FOR i = 1 TO CLNG(ABS(p4descore& - p4score&) / 10) + 1
IF p4descore& - p4score& > 0 THEN p4score& = p4score& + 1
IF p4descore& - p4score& < 0 THEN p4score& = p4score& - 1
NEXT i
SOUND 1000, .1
GOSUB draww
END IF
IF p1size& > p1desize& THEN p1size& = p1size& - 1
IF p1size& < p1desize& THEN p1size& = p1size& + 1
IF p2size& > p2desize& THEN p2size& = p2size& - 1
IF p2size& < p2desize& THEN p2size& = p2size& + 1
IF p3size& > p3desize& THEN p3size& = p3size& - 1
IF p3size& < p3desize& THEN p3size& = p3size& + 1
IF p4size& > p4desize& THEN p4size& = p4size& - 1
IF p4size& < p4desize& THEN p4size& = p4size& + 1
IF scombo& > -1 THEN
IF scombo& > 0 THEN COLOR 3 ELSE COLOR 0
LOCATE 30, 30: PRINT combo&
scombo& = scombo& - 1
END IF
IF ABS(xs&) < 8 AND ABS(ys&) < 8 AND serve& = 0 THEN
IF ABS(xs&) > ABS(ys&) THEN
IF xs& > 0 THEN
IF ys& > 0 THEN ys& = ys& + (8 / xs&)
IF ys& < 0 THEN ys& = ys& - xs&
xs& = 8
ELSEIF xs& < 0 THEN
IF ys& > 0 THEN ys& = ys& + (8 / ABS(xs&))
IF ys& < 0 THEN ys& = ys& - (8 / ABS(xs&))
xs& = -8
END IF
ELSEIF ABS(xs&) < ABS(ys&) THEN
IF ys& > 0 THEN
IF xs& > 0 THEN xs& = xs& + (8 / ys&)
IF xs& < 0 THEN xs& = xs& - (8 / ys&)
ys& = 8
ELSEIF ys& < 0 THEN
IF xs& > 0 THEN xs& = xs& + (8 / ABS(ys&))
IF xs& < 0 THEN xs& = xs& - (8 / ABS(ys&))
ys& = -8
END IF
ELSEIF ABS(xs&) = ABS(ys&) AND xs& <> 0 THEN
IF xs& > 0 THEN xs& = 8
IF xs& < 0 THEN xs& = -8
IF ys& > 0 THEN ys& = 8
IF ys& < 0 THEN ys& = -8
END IF
END IF
FOR ba = 1 TO a&
IF x& < 65 AND xs& = 0 THEN xs& = -1
IF x& > 415 AND xs& = 0 THEN xs& = 1
IF y& < 65 AND ys& = 0 THEN ys& = -1
IF y& > 415 AND ys& = 0 THEN ys& = 1
IF serve& = 1 THEN
x& = p1pad&
y& = 13
ELSEIF serve& = 2 THEN
x& = 13
y& = p2pad&
ELSEIF serve& = 3 THEN
x& = p3pad&
y& = 467
ELSEIF serve& = 4 THEN
x& = 467
y& = p4pad&
END IF
IF serve& > 0 THEN xs& = 0
IF serve& > 0 THEN ys& = 0
x& = x& + xs&
y& = y& + ys&
IF x& < 60 AND y& < 60 AND p1& > 0 AND p2& > 0 THEN
FOR i = 1 TO 60
IF (x& - 3) < i AND y& - 3 < (60 - i) THEN
SWAP xs&, ys&
xs& = -xs&
ys& = -ys&
IF ABS(xs&) = ABS(ys&) THEN xs& = xs& + 1
x& = i + 3
y& = 63 - i
SOUND 750, .1
END IF
NEXT i
END IF
IF x& < 60 AND y& > 420 AND p2& > 0 AND p3& > 0 THEN
FOR i = 1 TO 60
IF (x& - 3) < i AND (y& + 3) > (420 + i) THEN
SWAP xs&, ys&
IF ABS(xs&) = ABS(ys&) THEN xs& = xs& + 1
x& = i + 3
y& = 417 + i
SOUND 750, .1
END IF
NEXT i
END IF
IF x& > 420 AND y& < 60 AND p4& > 0 AND p1& > 0 THEN
FOR i = 1 TO 60
IF (x& + 3) > (480 - i) AND (y& - 3) < (60 - i) THEN
SWAP xs&, ys&
IF ABS(xs&) = ABS(ys&) THEN xs& = xs& + 1
x& = 477 - i
y& = 63 - i
SOUND 750, .1
END IF
NEXT i
END IF
IF x& > 420 AND y& > 420 AND p3& > 0 AND p4& > 0 THEN
FOR i = 1 TO 60
IF (x& + 3) > (480 - i) AND (y& + 3) > (420 + i) THEN
SWAP xs&, ys&
xs& = -xs&
ys& = -ys&
IF ABS(xs&) = ABS(ys&) THEN xs& = xs& + 1
x& = 477 - i
y& = 417 + i
SOUND 750, .1
END IF
NEXT i
END IF
IF countdown& > 0 THEN countdown& = countdown& - 1
FOR i = 1 TO it&
IF it1& = 0 AND it2& = 0 AND it3& = 0 AND it4& = 0 AND it5& = 0 AND it6& = 0 AND it7& = 0 AND it8& = 0 THEN EXIT FOR
IF x& < itemx(1, i) + 9 AND x& > itemx(1, i) - 9 AND y& < itemy(1, i) + 9 AND y& > itemy(1, i) - 9 THEN
IF hit& = i AND countdown& > 0 THEN GOTO endder
hit& = i
countdown& = 20
GOSUB item
END IF
endder:
NEXT i
IF y& < 60 AND p1& = 0 THEN
ys& = -ys&
IF ys& = 0 THEN ys& = 1
y& = 60
SOUND 500, .1
ELSEIF x& < 60 AND p2& = 0 THEN
xs& = -xs&
IF xs& = 0 THEN xs& = 1
x& = 60
SOUND 500, .1
ELSEIF y& > 420 AND p3& = 0 THEN
ys& = -ys&
IF ys& = 0 THEN ys& = -1
y& = 420
SOUND 500, .1
ELSEIF x& > 420 AND p4& = 0 THEN
xs& = -xs&
IF xs& = 0 THEN xs& = -1
x& = 420
SOUND 500, .1
END IF
IF y& < 8 AND ((x& > (p1pad& - p1size&) AND x& < (p1pad& + p1size&)) OR p1hyper& > 0) THEN
ys& = INT(RND * 8) + 1
IF xs& = 0 THEN xs& = INT(RND * 17) - 8
lasthit& = 1
IF p1hyper& = 1 THEN p1hyper& = 0
y& = 8
GOSUB universal
ELSEIF x& < 8 AND ((y& > (p2pad& - p2size&) AND y& < (p2pad& + p2size&)) OR p2hyper& > 0) THEN
xs& = INT(RND * 8) + 1
IF ys& = 0 THEN ys& = INT(RND * 17) - 8
lasthit& = 2
IF p2hyper& = 1 THEN p2hyper& = 0
x& = 8
GOSUB universal
ELSEIF y& > 472 AND ((x& > (p3pad& - p3size&) AND x& < (p3pad& + p3size&)) OR p3hyper& > 0) THEN
ys& = -(INT(RND * 8) + 1)
IF xs& = 0 THEN xs& = INT(RND * 17) - 8
lasthit& = 3
IF p3hyper& = 1 THEN p3hyper& = 0
y& = 472
GOSUB universal
ELSEIF x& > 472 AND ((y& > (p4pad& - p4size&) AND y& < (p4pad& + p4size&)) OR p4hyper& > 0) THEN
xs& = -(INT(RND * 8) + 1)
IF ys& = 0 THEN ys& = INT(RND * 17) - 8
lasthit& = 4
IF p4hyper& = 1 THEN p4hyper& = 0
x& = 472
GOSUB universal
END IF
IF y& < 0 AND p1& > 0 THEN GOSUB score1
IF x& < 0 AND p2& > 0 THEN GOSUB score2
IF y& > 480 AND p3& > 0 THEN GOSUB score3
IF x& > 480 AND p4& > 0 THEN GOSUB score4
NEXT ba
PSET (tx(16), ty(16)), 0
PSET (tx(15), ty(15)), 8
PSET (tx(14), ty(14)), 8
PSET (tx(13), ty(13)), 7
PSET (tx(12), ty(12)), 7
PSET (tx(11), ty(11)), 4
CIRCLE (tx(10), ty(10)), 1, 0
PSET (tx(10), ty(10)), 4
CIRCLE (tx(9), ty(9)), 1, 4
CIRCLE (tx(8), ty(8)), 1, 4
CIRCLE (tx(7), ty(7)), 1, 4
CIRCLE (tx(6), ty(6)), 1, 12
CIRCLE (tx(5), ty(5)), 1, 12
CIRCLE (tx(4), ty(4)), 2, 0
CIRCLE (tx(4), ty(4)), 1, 12
CIRCLE (tx(3), ty(3)), 2, 4
CIRCLE (tx(3), ty(3)), 1, 14
CIRCLE (tx(2), ty(2)), 3, 0
CIRCLE (tx(2), ty(2)), 2, 4
CIRCLE (tx(2), ty(2)), 1, 14
PSET (tx(2) - 1, ty(2) - 1), 0
PSET (tx(2) + 1, ty(2) - 1), 0
PSET (tx(2) - 1, ty(2) + 1), 0
PSET (tx(2) + 1, ty(2) + 1), 0
LINE (x& - 1, y& - 1)-(x& + 1, y& + 1), 14, BF
CIRCLE (x&, y&), 2, 12
CIRCLE (x&, y&), 3, 4
FOR i = 16 TO 3 STEP -1
tx(i) = tx(i - 1)
ty(i) = ty(i - 1)
NEXT i
tx(2) = x&
ty(2) = y&
IF p1& > 0 AND p1dir& = 2 THEN p1pad& = p1pad& - p1speed&
IF p1& > 0 AND p1dir& = 1 THEN p1pad& = p1pad& + p1speed&
IF p2& > 0 AND p2dir& = 2 THEN p2pad& = p2pad& - p2speed&
IF p2& > 0 AND p2dir& = 1 THEN p2pad& = p2pad& + p2speed&
IF p3& > 0 AND p3dir& = 2 THEN p3pad& = p3pad& - p3speed&
IF p3& > 0 AND p3dir& = 1 THEN p3pad& = p3pad& + p3speed&
IF p4& > 0 AND p4dir& = 2 THEN p4pad& = p4pad& - p4speed&
IF p4& > 0 AND p4dir& = 1 THEN p4pad& = p4pad& + p4speed&
IF p1hyper& > 0 THEN
IF serve& = 0 AND p1hyper& > 1 THEN p1hyper& = p1hyper& - 1
IF ys& < 0 THEN p1pad& = x&
END IF
IF p2hyper& > 0 THEN
IF serve& = 0 AND p2hyper& > 1 THEN p2hyper& = p2hyper& - 1
IF xs& < 0 THEN p2pad& = y&
END IF
IF p3hyper& > 0 THEN
IF serve& = 0 AND p3hyper& > 1 THEN p3hyper& = p3hyper& - 1
IF ys& > 0 THEN p3pad& = x&
END IF
IF p4hyper& > 0 THEN
IF serve& = 0 AND p4hyper& > 1 THEN p4hyper& = p4hyper& - 1
IF xs& > 0 THEN p4pad& = y&
END IF
IF (p1pad& - p1size&) < 60 THEN p1pad& = (60 + p1size&)
IF (p1pad& + p1size&) > 420 THEN p1pad& = (420 - p1size&)
IF (p2pad& - p2size&) < 60 THEN p2pad& = (60 + p2size&)
IF (p2pad& + p2size&) > 420 THEN p2pad& = (420 - p2size&)
IF (p3pad& - p3size&) < 60 THEN p3pad& = (60 + p3size&)
IF (p3pad& + p3size&) > 420 THEN p3pad& = (420 - p3size&)
IF (p4pad& - p4size&) < 60 THEN p4pad& = (60 + p4size&)
IF (p4pad& + p4size&) > 420 THEN p4pad& = (420 - p4size&)
FOR i = 1 TO it&
IF it1& = 0 AND it2& = 0 AND it3& = 0 AND it4& = 0 AND it5& = 0 AND it6& = 0 AND it7& = 0 AND it8& = 0 THEN EXIT FOR
IF items& = 0 THEN EXIT FOR
LINE (itemx(1, i) - 2, itemy(1, i) - 2)-(itemx(1, i) + 2, itemy(1, i) + 2), colo&, B
LINE (itemx(1, i) - 1, itemy(1, i) - 1)-(itemx(1, i) + 1, itemy(1, i) + 1), colo& + 8, B
PSET (itemx(1, i), itemy(1, i)), 15
NEXT i
FOR i = 1 TO 30
IF stime(i) > 0 THEN
IF symbolt(i) = 3 OR symbolt(i) = 4 OR symbolt(i) = 5 OR symbolt(i) = 8 OR symbolt(i) = 9 OR symbolt(i) = 12 OR symbolt(i) = 13 THEN symbolc(i) = 0
PSET (symbolx(i), symboly(i)), symbolc(i)
stime(i) = stime(i) - 1
IF symbolt(i) = 1 THEN DRAW "M-2,0 R4 U L4 BL2 C4 D BL2 U Bl2 D BR12 NE NR3 NF"
IF symbolt(i) = 2 THEN DRAW "M-2,0 R4 U L4 BL2 C2 D BL2 U Bl2 D BR15 NH NL3 NG"
IF symbolt(i) = 3 THEN DRAW "C4 E F C14 L1 C4 BD E BR2 NR3 NE NF BL5 L BR C0 U BL2 C8 G BE C0 L"
IF symbolt(i) = 4 THEN DRAW "C4 E F C14 L1 C4 BD E C2 BR5 NL3 NH NG C4 BL8 L BR C0 U BL2 C8 G BE C0 L"
IF symbolt(i) = 5 THEN DRAW "BD2 C8 F BU C0 L1 BM-2,-1 C12 R BG C0 U2 C4 U1 BD C0 L BU3 BR2 C14 R BR C4 G H E"
IF symbolt(i) = 8 THEN DRAW "C3 BL H2 BD2 E2 BM+3,-1 E R F D G3 R3"
IF symbolt(i) = 9 THEN DRAW "BM-1,-4 C14 R4 D L4 G R4 D L4 G R7 G L3 D R2 G L2 D R G L D"
IF symbolt(i) = 10 THEN DRAW "BL2 R4 U1 L4 BM-5,1 C2 NR3 NF NE BR14 NL3 NG NH"
IF symbolt(i) = 11 THEN DRAW "BL2 R4 U1 L4 BM-2,1 C4 NL3 NG NH BR8 NR3 NF NE"
IF symbolt(i) = 12 THEN DRAW "C3 BM-3,-1 R2 H D2 BR4 F R E U H L2 U2 R3"
IF symbolt(i) = 13 THEN DRAW "C3 BM-3,-1 R2 H D2 BR4 BU4 R F D G L D3 BE C0 L"
IF stime(i) < 5 THEN LINE (symbolx(i) - 10, symboly(i) - 10)-(symbolx(i) + 10, symboly(i) + 10), 0, BF
END IF
NEXT i
IF lasthit& = 1 THEN c& = 1
IF lasthit& = 2 THEN c& = 4
IF lasthit& = 3 THEN c& = 2
IF lasthit& = 4 THEN c& = 6
LINE (lx1&, ly1&)-(lx2&, ly2&), c&, B
LINE (lx1& + 1, ly1& + 1)-(lx2& - 1, ly2& - 1), c& + 8, B
IF p1& = 0 OR p2& = 0 THEN GOTO skip1:
LINE (3, 3)-(3, 60), 1
LINE (3, 3)-(60, 3), 1
LINE (60, 3)-(3, 60), 1
LINE (4, 4)-(4, 59), 1
LINE (4, 4)-(59, 4), 1
LINE (59, 3)-(3, 59), 1
skip1:
IF p4& = 0 OR p1& = 0 THEN GOTO skip2:
LINE (477, 3)-(477, 60), 14
LINE (477, 3)-(420, 3), 14
LINE (420, 3)-(477, 60), 14
LINE (476, 4)-(476, 59), 14
LINE (476, 4)-(421, 4), 14
LINE (421, 3)-(477, 59), 14
skip2:
IF p2& = 0 OR p3& = 0 THEN GOTO skip3:
LINE (3, 477)-(3, 420), 4
LINE (3, 477)-(60, 477), 4
LINE (60, 477)-(3, 420), 4
LINE (4, 476)-(4, 421), 4
LINE (4, 476)-(59, 476), 4
LINE (59, 477)-(3, 421), 4
skip3:
IF p3& = 0 OR p4& = 0 THEN GOTO skip4:
LINE (477, 477)-(477, 420), 2
LINE (477, 477)-(420, 477), 2
LINE (420, 477)-(477, 420), 2
LINE (476, 476)-(476, 421), 2
LINE (476, 476)-(421, 476), 2
LINE (421, 477)-(477, 421), 2
skip4:
IF p1& > 0 THEN LINE (p1pad& - (p1size& - 1), 5)-(p1pad& + (p1size& - 1), 7), 1, BF
IF p1hyper& = 0 AND p1& > 0 THEN LINE (p1pad& - p1size&, 4)-(p1pad& + p1size&, 8), 1, B
IF p1& > 0 THEN LINE (p1pad& - (p1size& + 1), 3)-(61, 9), 0, BF
IF p1& > 0 THEN LINE (p1pad& + (p1size& + 1), 3)-(419, 9), 0, BF
IF p2& > 0 THEN LINE (5, p2pad& - (p2size& - 1))-(7, p2pad& + (p2size& - 1)), 4, BF
IF p2hyper& = 0 AND p2& > 0 THEN LINE (4, p2pad& - p2size&)-(8, p2pad& + p2size&), 4, B
IF p2& > 0 THEN LINE (3, p2pad& - (p2size& + 1))-(9, 61), 0, BF
IF p2& > 0 THEN LINE (3, p2pad& + (p2size& + 1))-(9, 419), 0, BF
IF p3& > 0 THEN LINE (p3pad& - (p3size& - 1), 475)-(p3pad& + (p3size& - 1), 473), 2, BF
IF p3hyper& = 0 AND p3& > 0 THEN LINE (p3pad& - p3size&, 476)-(p3pad& + p3size&, 472), 2, B
IF p3& > 0 THEN LINE (p3pad& - (p3size& + 1), 477)-(61, 471), 0, BF
IF p3& > 0 THEN LINE (p3pad& + (p3size& + 1), 477)-(419, 471), 0, BF
IF p4& > 0 THEN LINE (475, p4pad& - (p4size& - 1))-(473, p4pad& + (p4size& - 1)), 14, BF
IF p4hyper& = 0 AND p4& > 0 THEN LINE (476, p4pad& - p4size&)-(472, p4pad& + p4size&), 14, B
IF p4& > 0 THEN LINE (477, p4pad& - (p4size& + 1))-(471, 61), 0, BF
IF p4& > 0 THEN LINE (477, p4pad& + (p4size& + 1))-(471, 419), 0, BF
a$ = INKEY$
IF p1com& = 1 THEN GOTO player1
IF a$ = "v" THEN p1dir& = 2
IF a$ = "b" THEN p1dir& = 0
IF a$ = "n" THEN p1dir& = 1
IF a$ = "g" AND serve& = 1 THEN GOSUB serve
p2:
IF p2com& = 1 THEN GOTO player2
IF a$ = "q" THEN p2dir& = 2
IF a$ = "a" THEN p2dir& = 0
IF a$ = "z" THEN p2dir& = 1
IF a$ = "s" AND serve& = 2 THEN GOSUB serve
p3:
IF p3com& = 1 THEN GOTO player3
IF a$ = CHR$(0) + "K" THEN p3dir& = 2
IF a$ = CHR$(0) + "P" THEN p3dir& = 0
IF a$ = CHR$(0) + "M" THEN p3dir& = 1
IF a$ = CHR$(0) + "H" AND serve& = 3 THEN GOSUB serve
p4:
IF p4com& = 1 THEN GOTO player4
IF a$ = "]" THEN p4dir& = 2
IF a$ = "'" THEN p4dir& = 0
IF a$ = "/" THEN p4dir& = 1
IF a$ = ";" AND serve& = 4 THEN GOSUB serve
finish:
IF a$ = "=" THEN delay& = delay& - 100
IF a$ = "-" THEN delay& = delay& + 100
IF a$ = CHR$(27) THEN
subtract& = TIMER
GOTO start
ELSEIF a$ = "p" THEN
subtract& = TIMER
COLOR 3
LOCATE 29, 29
PRINT "PAUSED"
SLEEP
DO
c$ = INKEY$
LOOP UNTIL c$ <> "~"
CLS
subtract& = TIMER - subtract&
startedd& = startedd& + subtract&
END IF
IF serve& = 5 THEN GOSUB centerserve
LOOP
universal:
IF p1& > 1 THEN p1ac2& = INT(RND * (p1ac& * 2)) - p1ac&
IF p2& > 1 THEN p2ac2& = INT(RND * (p2ac& * 2)) - p2ac&
IF p3& > 1 THEN p3ac2& = INT(RND * (p3ac& * 2)) - p3ac&
IF p4& > 1 THEN p4ac2& = INT(RND * (p4ac& * 2)) - p4ac&
combo& = combo& + 1
scombo& = 50
p1serve& = 0
p2serve& = 0
p3serve& = 0
p4serve& = 0
SOUND 700, .1
RETURN
serve:
IF serve& = 1 THEN
IF p1dir& = 1 THEN
xs& = 8
ys& = 8
ELSEIF p1dir& = 2 THEN
xs& = -8
ys& = 8
END IF
IF p1dir& = 0 THEN ys& = 8
p1serve& = p1serve& + 1
ELSEIF serve& = 2 THEN
IF p2dir& = 1 THEN
xs& = 8
ys& = 8
ELSEIF p2dir& = 2 THEN
xs& = 8
ys& = -8
END IF
IF p2dir& = 0 THEN xs& = 8
p2serve& = p2serve& + 1
ELSEIF serve& = 3 THEN
IF p3dir& = 1 THEN
xs& = 8
ys& = -8
ELSEIF p3dir& = 2 THEN
xs& = -8
ys& = -8
END IF
IF p3dir& = 0 THEN ys& = -8
p3serve& = p3serve& + 1
ELSEIF serve& = 4 THEN
IF p4dir& = 1 THEN
xs& = -8
ys& = 8
ELSEIF p4dir& = 2 THEN
xs& = -8
ys& = -8
END IF
IF p4dir& = 0 THEN xs& = -8
p4serve& = p4serve& + 1
END IF
serve& = 0
scombo& = 50
RETURN
centerserve:
x& = 240
y& = 240
xs& = 0
ys& = 0
center& = center& + 1
IF center& = 25 THEN
scombo& = 50
combo& = 5
ELSEIF center& = 50 THEN
scombo& = 50
combo& = 4
ELSEIF center& = 75 THEN
scombo& = 50
combo& = 3
ELSEIF center& = 100 THEN
scombo& = 50
combo& = 2
ELSEIF center& = 125 THEN
scombo& = 50
combo& = 1
ELSEIF center& = 150 THEN
retry:
xs& = INT(RND * 17) - 8
ys& = INT(RND * 17) - 8
IF xs& = 0 AND ys& = 0 THEN GOTO retry
IF xs& = 0 AND p1& = 0 AND p3& = 0 THEN GOTO retry
IF ys& = 0 AND p2& = 0 AND p4& = 0 THEN GOTO retry
DO
lasthit& = INT(RND * 4) + 1
IF lasthit& = 1 AND p1& > 0 THEN EXIT DO
IF lasthit& = 2 AND p2& > 0 THEN EXIT DO
IF last7hit& = 3 AND p3& > 0 THEN EXIT DO
IF lasthit& = 4 AND p4& > 0 THEN EXIT DO
LOOP
serve& = 0
center& = 0
END IF
RETURN
score1:
IF scoret& < 4 THEN combo& = 1
IF scoret& = 1 OR scoret& = 4 THEN
IF lasthit& = 2 THEN p2descore& = p2descore& + combo&
IF lasthit& = 3 THEN p3descore& = p3descore& + combo&
IF lasthit& = 4 THEN p4descore& = p4descore& + combo&
IF lasthit& = 1 THEN p1descore& = p1descore& - combo&
ELSEIF scoret& = 2 OR scoret& = 5 THEN
p2descore& = p2descore& + combo&
p3descore& = p3descore& + combo&
p4descore& = p4descore& + combo&
ELSEIF scoret& = 3 OR scoret& = 6 THEN
p1descore& = p1descore& - combo&
END IF
IF lasthit& = 2 THEN p2scores& = p2scores& + 1
IF lasthit& = 3 THEN p3scores& = p3scores& + 1
IF lasthit& = 4 THEN p4scores& = p4scores& + 1
IF lose& = 1 THEN
p1desize& = 25
p1speed& = 4 + pad& * 3
END IF
GOSUB score
RETURN
score2:
IF scoret& < 4 THEN combo& = 1
IF scoret& = 1 OR scoret& = 4 THEN
IF lasthit& = 2 THEN p2descore& = p2descore& - combo&
IF lasthit& = 3 THEN p3descore& = p3descore& + combo&
IF lasthit& = 4 THEN p4descore& = p4descore& + combo&
IF lasthit& = 1 THEN p1descore& = p1descore& + combo&
ELSEIF scoret& = 2 OR scoret& = 5 THEN
p1descore& = p1descore& + combo&
p3descore& = p3descore& + combo&
p4descore& = p4descore& + combo&
ELSEIF scoret& = 3 OR scoret& = 6 THEN
p2descore& = p2descore& - combo&
END IF
IF lasthit& = 1 THEN p1scores& = p1scores& + 1
IF lasthit& = 3 THEN p3scores& = p3scores& + 1
IF lasthit& = 4 THEN p4scores& = p4scores& + 1
IF lose& = 1 THEN
p2desize& = 25
p2speed& = 4 + pad& * 3
END IF
GOSUB score
RETURN
score3:
IF scoret& < 4 THEN combo& = 1
IF scoret& = 1 OR scoret& = 4 THEN
IF lasthit& = 2 THEN p2descore& = p2descore& + combo&
IF lasthit& = 3 THEN p3descore& = p3descore& - combo&
IF lasthit& = 4 THEN p4descore& = p4descore& + combo&
IF lasthit& = 1 THEN p1descore& = p1descore& + combo&
ELSEIF scoret& = 2 OR scoret& = 5 THEN
p1descore& = p1descore& + combo&
p2descore& = p2descore& + combo&
p4descore& = p4descore& + combo&
ELSEIF scoret& = 3 OR scoret& = 6 THEN
p3descore& = p3descore& - combo&
END IF
IF lasthit& = 1 THEN p1scores& = p1scores& + 1
IF lasthit& = 2 THEN p2scores& = p2scores& + 1
IF lasthit& = 4 THEN p4scores& = p4scores& + 1
IF lose& = 1 THEN
p3desize& = 25
p3speed& = 4 + pad& * 3
END IF
GOSUB score
RETURN
score4:
IF scoret& < 4 THEN combo& = 1
IF scoret& = 1 OR scoret& = 4 THEN
IF lasthit& = 2 THEN p2descore& = p2descore& + combo&
IF lasthit& = 3 THEN p3descore& = p3descore& + combo&
IF lasthit& = 4 THEN p4descore& = p4descore& - combo&
IF lasthit& = 1 THEN p1descore& = p1descore& + combo&
ELSEIF scoret& = 2 OR scoret& = 5 THEN
p1descore& = p1descore& + combo&
p2descore& = p2descore& + combo&
p3descore& = p3descore& + combo&
ELSEIF scoret& = 3 OR scoret& = 6 THEN
p4descore& = p4descore& - combo&
END IF
IF lasthit& = 1 THEN p1scores& = p1scores& + 1
IF lasthit& = 2 THEN p2scores& = p2scores& + 1
IF lasthit& = 3 THEN p3scores& = p3scores& + 1
IF lose& = 1 THEN
p4desize& = 25
p4speed& = 4 + pad& * 3
END IF
GOSUB score
RETURN
score:
combo& = 1
scombo& = 0
serve& = lasthit&
IF p1serve& >= 5 OR p2serve& >= 5 OR p3serve& >= 5 OR p4serve& >= 5 THEN
p1serve& = 0
p2serve& = 0
p3serve& = 0
p4serve& = 0
serve& = 5
GOSUB centerserve
END IF
IF serve& = 1 THEN
x& = p1pad&
y& = 13
ELSEIF serve& = 2 THEN
x& = 13
y& = p2pad&
ELSEIF serve& = 3 THEN
x& = p3pad&
y& = 467
ELSEIF serve& = 4 THEN
x& = 467
y& = p4pad&
END IF
waits& = 100
GOSUB draww
IF p1& > 1 THEN p1ac2& = INT(RND * (p1ac& * 2)) - p1ac&
IF p2& > 1 THEN p2ac2& = INT(RND * (p2ac& * 2)) - p2ac&
IF p3& > 1 THEN p3ac2& = INT(RND * (p3ac& * 2)) - p3ac&
IF p4& > 1 THEN p4ac2& = INT(RND * (p4ac& * 2)) - p4ac&
COLOR 0: LOCATE 30, 30: PRINT combo&
RETURN
draww:
VIEW
p1loc& = 1
p2loc& = 1
p3loc& = 1
p4loc& = 1
IF p1descore& <= p2descore& THEN p1loc& = p1loc& + 1
IF p1descore& <= p3descore& THEN p1loc& = p1loc& + 1
IF p1descore& <= p4descore& THEN p1loc& = p1loc& + 1
IF p2descore& <= p1descore& THEN p2loc& = p2loc& + 1
IF p2descore& <= p3descore& THEN p2loc& = p2loc& + 1
IF p2descore& <= p4descore& THEN p2loc& = p2loc& + 1
IF p3descore& <= p1descore& THEN p3loc& = p3loc& + 1
IF p3descore& <= p2descore& THEN p3loc& = p3loc& + 1
IF p3descore& <= p4descore& THEN p3loc& = p3loc& + 1
IF p4descore& <= p1descore& THEN p4loc& = p4loc& + 1
IF p4descore& <= p2descore& THEN p4loc& = p4loc& + 1
IF p4descore& <= p3descore& THEN p4loc& = p4loc& + 1
DO
IF p1loc& = p2loc& OR p1loc& = p3loc& OR p1loc& = p4loc& THEN p1loc& = p1loc& - 1
IF p2loc& = p1loc& OR p2loc& = p3loc& OR p2loc& = p4loc& THEN p2loc& = p2loc& - 1
IF p3loc& = p1loc& OR p3loc& = p2loc& OR p3loc& = p4loc& THEN p3loc& = p3loc& - 1
IF p4loc& = p1loc& OR p4loc& = p2loc& OR p4loc& = p3loc& THEN p4loc& = p4loc& - 1
LOOP UNTIL (p1loc& <> p2loc& AND p2loc& <> p3loc& AND p3loc& <> p4loc& AND p4loc& <> p1loc& AND p2loc& <> p4loc& AND p3loc& <> p1loc&)
LOCATE ((p1loc& - 1) * 15) + 2, 62
COLOR 1
IF p1& = 0 THEN COLOR 0
PRINT "Score:"; p1score&; " "
LOCATE ((p1loc& - 1) * 15) + 3, 62
IF p1com& = 1 THEN
IF p1& = 2 THEN PRINT "Computer Easiest"
IF p1& = 3 THEN PRINT "Computer Easy "
IF p1& = 4 THEN PRINT "Computer Medium "
IF p1& = 5 THEN PRINT "Computer Hard "
IF p1& = 6 THEN PRINT "Computer Hardest"
LOCATE ((p1loc& - 1) * 15) + 4, 62: PRINT " "
LOCATE ((p1loc& - 1) * 15) + 5, 62: PRINT " "
LOCATE ((p1loc& - 1) * 15) + 6, 62: PRINT " "
LOCATE ((p1loc& - 1) * 15) + 7, 62: PRINT " "
LOCATE ((p1loc& - 1) * 15) + 8, 62: PRINT " "
END IF
IF p1com& = 1 THEN GOTO ppp2
PRINT "Human "
LOCATE ((p1loc& - 1) * 15) + 4, 62: PRINT "Keys:"
LOCATE ((p1loc& - 1) * 15) + 5, 62: PRINT "G -Serve "
LOCATE ((p1loc& - 1) * 15) + 6, 62: PRINT "V -Left "
LOCATE ((p1loc& - 1) * 15) + 7, 62: PRINT "B -Stop "
LOCATE ((p1loc& - 1) * 15) + 8, 62: PRINT "N -Right "
ppp2:
LOCATE ((p2loc& - 1) * 15) + 2, 62
COLOR 4
IF p2& = 0 THEN COLOR 0
PRINT "Score:"; p2score&; " "
LOCATE ((p2loc& - 1) * 15) + 3, 62
IF p2com& = 1 THEN
IF p2& = 2 THEN PRINT "Computer Easiest"
IF p2& = 3 THEN PRINT "Computer Easy "
IF p2& = 4 THEN PRINT "Computer Medium "
IF p2& = 5 THEN PRINT "Computer Hard "
IF p2& = 6 THEN PRINT "Computer Hardest"
LOCATE ((p2loc& - 1) * 15) + 4, 62: PRINT " "
LOCATE ((p2loc& - 1) * 15) + 5, 62: PRINT " "
LOCATE ((p2loc& - 1) * 15) + 6, 62: PRINT " "
LOCATE ((p2loc& - 1) * 15) + 7, 62: PRINT " "
LOCATE ((p2loc& - 1) * 15) + 8, 62: PRINT " "
END IF
IF p2com& = 1 THEN GOTO ppp3
PRINT "Human "
LOCATE ((p2loc& - 1) * 15) + 4, 62: PRINT "Keys:"
LOCATE ((p2loc& - 1) * 15) + 5, 62: PRINT "S -Serve "
LOCATE ((p2loc& - 1) * 15) + 6, 62: PRINT "Q -Up "
LOCATE ((p2loc& - 1) * 15) + 7, 62: PRINT "A -Stop "
LOCATE ((p2loc& - 1) * 15) + 8, 62: PRINT "Z -Down "
ppp3:
LOCATE ((p3loc& - 1) * 15) + 2, 62
COLOR 2
IF p3& = 0 THEN COLOR 0
PRINT "Score:"; p3score&; " "
LOCATE ((p3loc& - 1) * 15) + 3, 62
IF p3com& = 1 THEN
IF p3& = 2 THEN PRINT "Computer Easiest"
IF p3& = 3 THEN PRINT "Computer Easy "
IF p3& = 4 THEN PRINT "Computer Medium "
IF p3& = 5 THEN PRINT "Computer Hard "
IF p3& = 6 THEN PRINT "Computer Hardest"
LOCATE ((p3loc& - 1) * 15) + 4, 62: PRINT " "
LOCATE ((p3loc& - 1) * 15) + 5, 62: PRINT " "
LOCATE ((p3loc& - 1) * 15) + 6, 62: PRINT " "
LOCATE ((p3loc& - 1) * 15) + 7, 62: PRINT " "
LOCATE ((p3loc& - 1) * 15) + 8, 62: PRINT " "
END IF
IF p3com& = 1 THEN GOTO ppp4
PRINT "Human "
LOCATE ((p3loc& - 1) * 15) + 4, 62: PRINT "Keys:"
LOCATE ((p3loc& - 1) * 15) + 5, 62: PRINT CHR$(24); " -Serve "
LOCATE ((p3loc& - 1) * 15) + 6, 62: PRINT CHR$(17); " -Left "
LOCATE ((p3loc& - 1) * 15) + 7, 62: PRINT CHR$(25); " -Stop "
LOCATE ((p3loc& - 1) * 15) + 8, 62: PRINT CHR$(16); " -Right "
ppp4:
LOCATE ((p4loc& - 1) * 15) + 2, 62
COLOR 14
IF p4& = 0 THEN COLOR 0
PRINT "Score:"; p4score&; " "
LOCATE ((p4loc& - 1) * 15) + 3, 62
IF p4com& = 1 THEN
IF p4& = 2 THEN PRINT "Computer Easiest"
IF p4& = 3 THEN PRINT "Computer Easy "
IF p4& = 4 THEN PRINT "Computer Medium "
IF p4& = 5 THEN PRINT "Computer Hard "
IF p4& = 6 THEN PRINT "Computer Hardest"
LOCATE ((p4loc& - 1) * 15) + 4, 62: PRINT " "
LOCATE ((p4loc& - 1) * 15) + 5, 62: PRINT " "
LOCATE ((p4loc& - 1) * 15) + 6, 62: PRINT " "
LOCATE ((p4loc& - 1) * 15) + 7, 62: PRINT " "
LOCATE ((p4loc& - 1) * 15) + 8, 62: PRINT " "
END IF
IF p4com& = 1 THEN GOTO fff
PRINT "Human "
LOCATE ((p4loc& - 1) * 15) + 4, 62: PRINT "Keys:"
LOCATE ((p4loc& - 1) * 15) + 5, 62: PRINT "; -Serve "
LOCATE ((p4loc& - 1) * 15) + 6, 62: PRINT "] -Up "
LOCATE ((p4loc& - 1) * 15) + 7, 62: PRINT "' -Stop "
LOCATE ((p4loc& - 1) * 15) + 8, 62: PRINT "/ -Down "
fff:
col1& = 0
col2& = 0
col3& = 0
col4& = 0
IF p1& > 0 THEN
IF p1loc& = 1 THEN col1& = 1
IF p1loc& = 2 THEN col2& = 1
IF p1loc& = 3 THEN col3& = 1
IF p1loc& = 4 THEN col4& = 1
END IF
IF p2& > 0 THEN
IF p2loc& = 1 THEN col1& = 4
IF p2loc& = 2 THEN col2& = 4
IF p2loc& = 3 THEN col3& = 4
IF p2loc& = 4 THEN col4& = 4
END IF
IF p3& > 0 THEN
IF p3loc& = 1 THEN col1& = 2
IF p3loc& = 2 THEN col2& = 2
IF p3loc& = 3 THEN col3& = 2
IF p3loc& = 4 THEN col4& = 2
END IF
IF p4& > 0 THEN
IF p4loc& = 1 THEN col1& = 6
IF p4loc& = 2 THEN col2& = 6
IF p4loc& = 3 THEN col3& = 6
IF p4loc& = 4 THEN col4& = 6
END IF
LINE (481, 0)-(639, 118), col1&, B
IF col1& = 0 THEN col1& = -8
LINE (482, 1)-(638, 117), col1& + 8, B
LINE (481, 121)-(639, 239), col2&, B
IF col2& = 0 THEN col2& = -8
LINE (482, 122)-(638, 238), col2& + 8, B
LINE (481, 241)-(639, 359), col3&, B
IF col3& = 0 THEN col3& = -8
LINE (482, 242)-(638, 358), col3& + 8, B
LINE (481, 361)-(639, 479), col4&, B
IF col4& = 0 THEN col4& = -8
LINE (482, 362)-(638, 478), col4& + 8, B
VIEW SCREEN (lx1& - 1, ly1& - 1)-(lx2&, ly2&)
RETURN
item:
startitem:
FOR j = 1 TO 30
IF stime(j) = 0 THEN symbol& = j
NEXT j
item& = INT(RND * 9) + 1
symbolt(symbol&) = item&
IF item& = 1 THEN
IF it2& = 0 THEN GOTO startitem
IF lasthit& = 1 THEN p1speed& = p1speed& - 1
IF p1speed& < 1 THEN p1speed& = 1
IF lasthit& = 2 THEN p2speed& = p2speed& - 1
IF p2speed& < 1 THEN p2speed& = 1
IF lasthit& = 3 THEN p3speed& = p3speed& - 1
IF p3speed& < 1 THEN p3speed& = 1
IF lasthit& = 4 THEN p4speed& = p4speed& - 1
IF p4speed& < 1 THEN p4speed& = 1
ELSEIF item& = 2 THEN
IF it2& = 0 THEN GOTO startitem
IF lasthit& = 1 THEN p1speed& = p1speed& + 1
IF p1speed& > 30 THEN p1speed& = 30
IF lasthit& = 2 THEN p2speed& = p2speed& + 1
IF p2speed& > 30 THEN p2speed& = 30
IF lasthit& = 3 THEN p3speed& = p3speed& + 1
IF p3speed& > 30 THEN p3speed& = 30
IF lasthit& = 4 THEN p4speed& = p4speed& + 1
IF p4speed& > 30 THEN p4speed& = 30
ELSEIF item& = 3 THEN
IF it1& = 0 THEN GOTO startitem
a& = a& - 1
IF a& < 1 THEN a& = 1
ELSEIF item& = 4 THEN
IF it1& = 0 THEN GOTO startitem
a& = a& + 1
IF a& > 4 THEN a& = 4
ELSEIF item& = 5 THEN
IF it4& = 0 THEN GOTO startitem
rann:
DO
xs& = INT(RND * 17) - 8
ys& = INT(RND * 17) - 8
LOOP UNTIL (xs& <> 0 OR ys& <> 0)
IF xs& = 0 AND p1& = 0 AND p3& = 0 THEN GOTO rann
IF ys& = 0 AND p2& = 0 AND p4& = 0 THEN GOTO rann
ELSEIF item& = 6 THEN
IF it3& = 0 THEN GOTO startitem
rand& = INT(RND * 18) + 1
padsize& = (rand& * 5) + 10
IF lasthit& = 1 THEN
IF padsize& > p1desize& THEN symbolt(symbol&) = 10 ELSE symbolt(symbol&) = 11
p1desize& = padsize&
ELSEIF lasthit& = 2 THEN
IF padsize& > p2desize& THEN symbolt(symbol&) = 10 ELSE symbolt(symbol&) = 11
p2desize& = padsize&
ELSEIF lasthit& = 3 THEN
IF padsize& > p3desize& THEN symbolt(symbol&) = 10 ELSE symbolt(symbol&) = 11
p3desize& = padsize&
ELSEIF lasthit& = 4 THEN
IF padsize& > p4desize& THEN symbolt(symbol&) = 10 ELSE symbolt(symbol&) = 11
p4desize& = padsize&
END IF
ELSEIF item& = 7 THEN
IF INT(RND * 5) + 1 = 1 THEN
IF it8& = 0 THEN GOTO startitem
points& = INT(RND * 50) + 1
symbolt(symbol&) = 13
ELSE
IF it5& = 0 THEN GOTO startitem
symbolt(symbol&) = 12
points& = 5
END IF
IF lasthit& = 1 THEN p1descore& = p1descore& + points&
IF lasthit& = 2 THEN p2descore& = p2descore& + points&
IF lasthit& = 3 THEN p3descore& = p3descore& + points&
IF lasthit& = 4 THEN p4descore& = p4descore& + points&
GOSUB draww
ELSEIF item& = 8 THEN
IF it6& = 0 THEN GOTO startitem
IF INT(RND * 5) + 1 <> 1 THEN GOTO startitem
IF combo& < 50000 THEN combo& = combo& * 2
scombo& = 50
ELSEIF item& = 9 THEN
IF it7& = 0 THEN GOTO startitem
IF INT(RND * 3) + 1 <> 1 THEN GOTO startitem
CLS
IF lasthit& = 1 THEN p1hyper& = INT(RND * 1001) + 500
IF lasthit& = 2 THEN p2hyper& = INT(RND * 1001) + 500
IF lasthit& = 3 THEN p3hyper& = INT(RND * 1001) + 500
IF lasthit& = 4 THEN p4hyper& = INT(RND * 1001) + 500
END IF
iitemx& = itemx(1, hit&)
iitemy& = itemy(1, hit&)
symbolx(symbol&) = iitemx&
symboly(symbol&) = iitemy&
IF re& = 1 THEN
symbolx(symbol&) = iitemx& + 10
symboly(symbol&) = iitemy& + 10
END IF
stime(symbol&) = 100
IF lasthit& = 1 THEN symbolc(symbol&) = 1
IF lasthit& = 2 THEN symbolc(symbol&) = 4
IF lasthit& = 3 THEN symbolc(symbol&) = 2
IF lasthit& = 4 THEN symbolc(symbol&) = 14
LINE (iitemx& - 2, iitemy& - 2)-(iitemx& + 2, iitemy& + 2), 0, BF
IF re& = 1 THEN RETURN
iitemx& = INT(RND * 340) + 70
iitemy& = INT(RND * 340) + 70
itemx(1, hit&) = iitemx&
itemy(1, hit&) = iitemy&
RETURN
player1:
IF y& < p1ai& AND ys& < 0 THEN
p1des& = x& - xs& * (y& / ys&)
p1des& = p1des& + p1ac2&
ELSE
IF serve& = 0 AND p1& > 2 THEN p1des& = 240 ELSE p1des& = p1pad&
END IF
IF serve& = 2 AND p1& > 3 THEN
p1des& = p2pad&
ELSEIF serve& = 3 AND p1& > 3 THEN
p1des& = p3pad&
ELSEIF serve& = 4 AND p1& > 3 THEN
p1des& = 480 - p4pad&
END IF
IF serve& = 1 THEN
IF p2descore& < p4descore& THEN p1des& = 0
IF p4descore& < p2descore& THEN p1des& = 480
IF p2descore& = p4descore& THEN p1des& = 240
END IF
IF p1des& > p1pad& THEN p1dir& = 1
IF p1des& < p1pad& THEN p1dir& = 2
IF p1des& > (p1pad& - p1speed&) AND p1des& < (p1pad& + p1speed&) THEN p1dir& = 0
IF waits& > 0 THEN waits& = waits& - 1
IF serve& = 1 AND waits& = 0 THEN GOSUB serve
GOTO p2
player2:
IF x& < p2ai& AND xs& < 0 THEN
p2des& = y& - ys& * (x& / xs&)
p2des& = p2des& + p2ac2&
ELSE
IF serve& = 0 AND p2& > 2 THEN p2des& = 240 ELSE p2des& = p2pad&
END IF
IF serve& = 1 AND p2& > 3 THEN
p2des& = p1pad&
ELSEIF serve& = 3 AND p2& > 3 THEN
p2des& = 480 - p3pad&
ELSEIF serve& = 4 AND p2& > 3 THEN
p2des& = p4pad&
END IF
IF serve& = 2 THEN
IF p1descore& < p3descore& THEN p2des& = 0
IF p3descore& < p1descore& THEN p2des& = 480
IF p1descore& = p3descore& THEN p2des& = 240
END IF
IF p2des& > p2pad& THEN p2dir& = 1
IF p2des& < p2pad& THEN p2dir& = 2
IF p2des& > (p2pad& - p2speed&) AND p2des& < (p2pad& + p2speed&) THEN p2dir& = 0
IF waits& > 0 THEN waits& = waits& - 1
IF serve& = 2 AND waits& = 0 THEN GOSUB serve
GOTO p3
player3:
IF y& > (480 - p3ai&) AND ys& > 0 THEN
p3des& = x& - xs& * ((480 - y&) / -ys&)
p3des& = p3des& + p3ac2&
ELSE
IF serve& = 0 AND p3& > 2 THEN p3des& = 240 ELSE p3des& = p3pad&
END IF
IF serve& = 1 AND p3& > 3 THEN
p3des& = p1pad&
ELSEIF serve& = 2 AND p3& > 3 THEN
p3des& = 480 - p2pad&
ELSEIF serve& = 4 AND p3& > 3 THEN
p3des& = p4pad&
END IF
IF serve& = 3 THEN
IF p2descore& < p4descore& THEN p3des& = 0
IF p4descore& < p2descore& THEN p3des& = 480
IF p2descore& = p4descore& THEN p3des& = 240
END IF
IF p3des& > p3pad& THEN p3dir& = 1
IF p3des& < p3pad& THEN p3dir& = 2
IF p3des& > (p3pad& - p3speed&) AND p3des& < (p3pad& + p3speed&) THEN p3dir& = 0
IF waits& > 0 THEN waits& = waits& - 1
IF serve& = 3 AND waits& = 0 THEN GOSUB serve
GOTO p4
player4:
IF x& > (480 - p4ai&) AND xs& > 0 THEN
p4des& = y& - ys& * ((480 - x&) / -xs&)
p4des& = p4des& + p4ac2&
ELSE
IF serve& = 0 AND p4& > 2 THEN p4des& = 240 ELSE p4des& = p4pad&
END IF
IF serve& = 1 AND p4& > 3 THEN
p4des& = 480 - p1pad&
ELSEIF serve& = 2 AND p4& > 3 THEN
p4des& = p2pad&
ELSEIF serve& = 3 AND p4& > 3 THEN
p4des& = p3pad&
END IF
IF serve& = 4 THEN
IF p1descore& < p3descore& THEN p4des& = 0
IF p3descore& < p1descore& THEN p4des& = 480
IF p1descore& = p3descore& THEN p4des& = 240
END IF
IF p4des& > p4pad& THEN p4dir& = 1
IF p4des& < p4pad& THEN p4dir& = 2
IF p4des& > (p4pad& - p4speed&) AND p4des& < (p4pad& + p4speed&) THEN p4dir& = 0
IF waits& > 0 THEN waits& = waits& - 1
IF serve& = 4 AND waits& = 0 THEN GOSUB serve
GOTO finish
title:
WIDTH 80, 30
COLOR 4
LOCATE 1, 1: COLOR 8: PRINT "4 Player Pong"
FOR x = 0 TO 64
FOR y = 0 TO 15
LINE ((x * 5) + 160, (y * 5) + 160)-((x * 5) + 165, (y * 5) + 165), POINT(x, y) / 2, B
NEXT y
NEXT x
FOR x = 0 TO 40
FOR y = 0 TO 15
LINE ((x * 5) + 240, (y * 5) + 235)-((x * 5) + 245, (y * 5) + 240), POINT(x + 72, y) / 2, B
NEXT y
NEXT x
LOCATE 1, 1
PRINT " "
LINE (153, 149)-(481, 316), 14, B
LINE (152, 148)-(482, 317), 6, B
COLOR 3: LOCATE 21, 31: PRINT " By Matthew "
COLOR 11
LINE (640, 327)-(353, 327)
LINE (0, 327)-(269, 327)
LINE (269, 334)-(269, 320)
LINE (353, 334)-(353, 320)
LINE (353, 334)-(269, 334)
LINE (353, 320)-(269, 320)
DO
changeword& = changeword& + 1
IF changeword& = 2000 THEN changeword& = 0
IF changeword& < 1001 THEN COLOR 1
IF changeword& > 1000 THEN COLOR 0
LOCATE 27, 34: PRINT "Press any key"
a$ = INKEY$
LOOP UNTIL (a$ <> "")
CLS
RETURN
theend:
VIEW
started& = 0
CLS
p1pl& = 1
p2pl& = 1
p3pl& = 1
p4pl& = 1
IF p1descore& <= p2descore& OR p1& = 0 THEN p1pl& = p1pl& + 1
IF p1descore& <= p3descore& OR p1& = 0 THEN p1pl& = p1pl& + 1
IF p1descore& <= p4descore& OR p1& = 0 THEN p1pl& = p1pl& + 1
IF p2descore& <= p1descore& OR p2& = 0 THEN p2pl& = p2pl& + 1
IF p2descore& <= p3descore& OR p2& = 0 THEN p2pl& = p2pl& + 1
IF p2descore& <= p4descore& OR p2& = 0 THEN p2pl& = p2pl& + 1
IF p3descore& <= p1descore& OR p3& = 0 THEN p3pl& = p3pl& + 1
IF p3descore& <= p2descore& OR p3& = 0 THEN p3pl& = p3pl& + 1
IF p3descore& <= p4descore& OR p3& = 0 THEN p3pl& = p3pl& + 1
IF p4descore& <= p1descore& OR p4& = 0 THEN p4pl& = p4pl& + 1
IF p4descore& <= p2descore& OR p4& = 0 THEN p4pl& = p4pl& + 1
IF p4descore& <= p3descore& OR p4& = 0 THEN p4pl& = p4pl& + 1
tie& = 0
IF p1pl& = 1 THEN
IF p1pl& = p2pl& OR p1pl& = p3pl& OR p1pl& = p4pl& THEN tie& = 1
END IF
IF p2pl& = 1 THEN
IF p2pl& = p3pl& OR p2pl& = p4pl& THEN tie& = 1
END IF
IF p3pl& = 1 THEN
IF p3pl& = p4pl& THEN tie& = 1
END IF
IF p1pl& = 1 THEN co1& = 1
IF p2pl& = 1 THEN co1& = 4
IF p3pl& = 1 THEN co1& = 2
IF p4pl& = 1 THEN co1& = 14
IF tie& = 1 THEN co1& = 15
IF p1pl& = 1 THEN co2& = 9
IF p2pl& = 1 THEN co2& = 12
IF p3pl& = 1 THEN co2& = 10
IF p4pl& = 1 THEN co2& = 6
IF tie& = 1 THEN co2& = 8
co& = co1&
ch& = 0
FOR i = 1 TO 240
ch& = ch& + 1
IF ch& = 10 AND co& = co1& THEN
co& = co2&
ELSEIF ch& = 10 AND co& = co2& THEN
co& = co1&
END IF
IF ch& = 10 THEN ch& = 0
LINE (320 - i, 240 - i)-(320 + i, 240 + i), co&, B
NEXT i
FOR i = 1 TO 100
FOR d = 1 TO 500
NEXT d
LINE (320 - i, 240)-(320 + i, 240), 15
LINE (319 - i, 239)-(321 + i, 241), 7, B
NEXT i
FOR i = 1 TO 100
FOR d = 1 TO 200
NEXT d
LINE (220, 240 - i)-(420, 240 + i), 15, B
LINE (221, 241 - i)-(419, 239 + i), 7, B
LINE (219, 239 - i)-(421, 241 + i), 7, B
LINE (222, 242 - i)-(418, 238 + i), 0, BF
NEXT i
COLOR 3: LOCATE 20, 36: PRINT "Game Stats"
LINE (279, 160)-(359, 160), 3
COLOR co1&
LOCATE 22, 30
IF tie& = 1 THEN PRINT " Tie Game " ELSE IF p1pl& = 1 THEN PRINT "Player 1 is the winner!" ELSE IF p2pl& = 1 THEN PRINT "Player 2 is the winner!" ELSE IF p3pl& = 1 THEN PRINT "Player 3 is the winner!" ELSE IF p4pl& = 1 THEN PRINT _
"Player 4 is the winner!"
IF p1& > 1 THEN p1t$ = "Com " ELSE IF p1& = 1 THEN p1t$ = "Human" ELSE IF p1& = 0 THEN p1t$ = "Off "
IF p2& > 1 THEN p2t$ = "Com " ELSE IF p2& = 1 THEN p2t$ = "Human" ELSE IF p2& = 0 THEN p2t$ = "Off "
IF p3& > 1 THEN p3t$ = "Com " ELSE IF p3& = 1 THEN p3t$ = "Human" ELSE IF p3& = 0 THEN p3t$ = "Off "
IF p4& > 1 THEN p4t$ = "Com " ELSE IF p4& = 1 THEN p4t$ = "Human" ELSE IF p4& = 0 THEN p4t$ = "Off "
DO
IF p1pl& = p2pl& OR p1pl& = p3pl& OR p1pl& = p4pl& THEN p1pl& = p1pl& - 1
IF p2pl& = p1pl& OR p2pl& = p3pl& OR p2pl& = p4pl& THEN p2pl& = p2pl& - 1
IF p3pl& = p1pl& OR p3pl& = p2pl& OR p3pl& = p4pl& THEN p3pl& = p3pl& - 1
IF p4pl& = p1pl& OR p4pl& = p2pl& OR p4pl& = p3pl& THEN p4pl& = p4pl& - 1
LOOP UNTIL (p1pl& <> p2pl& AND p2pl& <> p3pl& AND p3pl& <> p4pl& AND p4pl& <> p1pl& AND p2pl& <> p4pl& AND p3pl& <> p1pl&)
IF p1& = 0 THEN p1descore& = 0
IF p2& = 0 THEN p2descore& = 0
IF p3& = 0 THEN p3descore& = 0
IF p4& = 0 THEN p4descore& = 0
COLOR 3: LOCATE 24, 30: PRINT "Player Score Goals"
COLOR 1: LOCATE 24 + p1pl&, 31: PRINT "P1-"; p1t$
LOCATE 24 + p1pl&, 39: PRINT p1descore&
LOCATE 24 + p1pl&, 46: PRINT p1scores&
COLOR 4: LOCATE 24 + p2pl&, 31: PRINT "P2-"; p2t$
LOCATE 24 + p2pl&, 39: PRINT p2descore&
LOCATE 24 + p2pl&, 46: PRINT p2scores&
COLOR 2: LOCATE 24 + p3pl&, 31: PRINT "P3-"; p3t$
LOCATE 24 + p3pl&, 39: PRINT p3descore&
LOCATE 24 + p3pl&, 46: PRINT p3scores&
COLOR 14: LOCATE 24 + p4pl&, 31: PRINT "P4-"; p4t$
LOCATE 24 + p4pl&, 39: PRINT p4descore&
LOCATE 24 + p4pl&, 46: PRINT p4scores&
gts& = finished& - startedd&
DO
IF gts& >= 60 THEN
gts& = gts& - 60
gtm& = gtm& + 1
ELSE
EXIT DO
END IF
LOOP
DO
IF gtm& >= 60 THEN
gtm& = gtm& - 60
gth& = gth& + 1
ELSE
EXIT DO
END IF
LOOP
COLOR 3: LOCATE 30, 30: PRINT "Game time:"
LOCATE 31, 30: IF gts& > -1 THEN PRINT gts&; "sec" ELSE PRINT "Error"
LOCATE 31, 30: IF gtm& > 0 THEN PRINT gtm&; "min"; gts&; "sec"
LOCATE 31, 30: IF gth& > 0 THEN PRINT gth&; "hr"; gtm&; "min"; gts&; "sec"
LOCATE 33, 31: PRINT "ontinue"
COLOR 11: LOCATE 33, 30: PRINT "C"
DO WHILE a$ <> "c"
a$ = INKEY$
SWAP co1&, co2&
FOR i = 102 TO 240
ch& = ch& + 1
IF ch& = 10 AND co& = co1& THEN
co& = co2&
ELSEIF ch& = 10 AND co& = co2& THEN
co& = co1&
END IF
IF ch& = 10 THEN ch& = 0
LINE (320 - i, 240 - i)-(320 + i, 240 + i), co&, B
NEXT i
LOOP
gts& = 0
gtm& = 0
gth& = 0
GOTO start
switch:
COLOR 5
a$ = INKEY$
IF a$ = CHR$(0) + "P" THEN
arrow& = arrow& + 1
ELSEIF a$ = CHR$(0) + "H" THEN
arrow& = arrow& - 1
ELSEIF a$ = " " THEN
IF arrow& = 1 THEN it1& = it1& + 1
IF arrow& = 2 THEN it2& = it2& + 1
IF arrow& = 3 THEN it3& = it3& + 1
IF arrow& = 4 THEN it4& = it4& + 1
IF arrow& = 5 THEN it5& = it5& + 1
IF arrow& = 6 THEN it8& = it8& + 1
IF arrow& = 7 THEN it6& = it6& + 1
IF arrow& = 8 THEN it7& = it7& + 1
END IF
IF it1& = 2 THEN it1& = 0
IF it2& = 2 THEN it2& = 0
IF it3& = 2 THEN it3& = 0
IF it4& = 2 THEN it4& = 0
IF it5& = 2 THEN it5& = 0
IF it6& = 2 THEN it6& = 0
IF it7& = 2 THEN it7& = 0
IF it8& = 2 THEN it8& = 0
IF arrow& = 9 THEN arrow& = 1
IF arrow& = 0 THEN arrow& = 8
DRAW "BM583,130 C4 E F C14 L1 C4 BD E BR2 NR3 NE NF BL5 L BR C0 U BL2 C8 G BE C0 L"
DRAW "BM583,134 C4 E F C14 L1 C4 BD E C2 BR5 NL3 NH NG C4 BL8 L BR C0 U BL2 C8 G BE C0 L"
DRAW "BM578,138 C1 M-2,0 R4 U L4 BL2 C4 D BL2 U Bl2 D BR12 NE NR3 NF"
DRAW "BM578,142 C1 M-2,0 R4 U L4 BL2 C2 D BL2 U Bl2 D BR15 NH NL3 NG"
DRAW "BM585,146 C1 BL2 R4 U1 L4 BM-5,1 C2 NR3 NF NE BR14 NL3 NG NH"
DRAW "BM585,150 C1 BL2 R4 U1 L4 BM-2,1 C4 NL3 NG NH BR8 NR3 NF NE"
DRAW "BM574,156 BD2 C8 F BU C0 L1 BM-2,-1 C12 R BG C0 U2 C4 U1 BD C0 L BU3 BR2 C14 R BR C4 G H E"
DRAW "BM583,164 C3 BM-3,-1 R2 H D2 BR4 F R E U H L2 U2 R3"
DRAW "BM574,172 C3 BM-3,-1 R2 H D2 BR4 BU4 R F D G L D3 BE C0 L"
DRAW "BM583,180 C3 BL H2 BD2 E2 BM+3,-1 E R F D G3 R3"
DRAW "BM575,187 BM-1,-4 C14 R4 D L4 G R4 D L4 G R7 G L3 D R2 G L2 D R G L D"
COLOR 4
IF arrow& = 1 THEN COLOR 12 ELSE COLOR 4
LOCATE 17, 42
PRINT "Change Ball Speed -"
IF arrow& = 2 THEN COLOR 12 ELSE COLOR 4
LOCATE 18, 42
PRINT "Change Pad Speed -"
IF arrow& = 3 THEN COLOR 12 ELSE COLOR 4
LOCATE 19, 42
PRINT "Change Pad Size -"
IF arrow& = 4 THEN COLOR 12 ELSE COLOR 4
LOCATE 20, 42
PRINT "Change Ball Direction -"
IF arrow& = 5 THEN COLOR 12 ELSE COLOR 4
LOCATE 21, 42
PRINT "5 Point Bonus -"
IF arrow& = 6 THEN COLOR 12 ELSE COLOR 4
LOCATE 22, 42
PRINT "Major Point Bonus -"
IF arrow& = 7 THEN COLOR 12 ELSE COLOR 4
LOCATE 23, 42
PRINT "Combo Double -"
IF arrow& = 8 THEN COLOR 12 ELSE COLOR 4
LOCATE 24, 42
PRINT "Hyper Mode -"
IF it1& = 1 THEN COLOR 12 ELSE COLOR 4
LOCATE 17, 66
PRINT "On "
IF it1& = 0 THEN COLOR 12 ELSE COLOR 4
LOCATE 17, 69
PRINT "Off"
IF it2& = 1 THEN COLOR 12 ELSE COLOR 4
LOCATE 18, 66
PRINT "On "
IF it2& = 0 THEN COLOR 12 ELSE COLOR 4
LOCATE 18, 69
PRINT "Off"
IF it3& = 1 THEN COLOR 12 ELSE COLOR 4
LOCATE 19, 66
PRINT "On "
IF it3& = 0 THEN COLOR 12 ELSE COLOR 4
LOCATE 19, 69
PRINT "Off"
IF it4& = 1 THEN COLOR 12 ELSE COLOR 4
LOCATE 20, 66
PRINT "On "
IF it4& = 0 THEN COLOR 12 ELSE COLOR 4
LOCATE 20, 69
PRINT "Off"
IF it5& = 1 THEN COLOR 12 ELSE COLOR 4
LOCATE 21, 66
PRINT "On "
IF it5& = 0 THEN COLOR 12 ELSE COLOR 4
LOCATE 21, 69
PRINT "Off"
IF it8& = 1 THEN COLOR 12 ELSE COLOR 4
LOCATE 22, 66
PRINT "On "
IF it8& = 0 THEN COLOR 12 ELSE COLOR 4
LOCATE 22, 69
PRINT "Off"
IF it6& = 1 THEN COLOR 12 ELSE COLOR 4
LOCATE 23, 66
PRINT "On "
IF it6& = 0 THEN COLOR 12 ELSE COLOR 4
LOCATE 23, 69
PRINT "Off"
IF it7& = 1 THEN COLOR 12 ELSE COLOR 4
LOCATE 24, 66
PRINT "On "
IF it7& = 0 THEN COLOR 12 ELSE COLOR 4
LOCATE 24, 69
PRINT "Off"
IF a$ = "d" THEN
CLS
switch& = 0
END IF
GOTO skip
start:
IF it& = 0 THEN it& = 15
fic& = INT(RND * 5) + 1
IF p1r& = 1 THEN p1m& = p1&
IF p2r& = 1 THEN p2m& = p2&
IF p3r& = 1 THEN p3m& = p3&
IF p4r& = 1 THEN p4m& = p4&
IF p1r& = 1 THEN p1& = 7
IF p2r& = 1 THEN p2& = 7
IF p3r& = 1 THEN p3& = 7
IF p4r& = 1 THEN p4& = 7
VIEW
CLS
DO
COLOR 14: LOCATE 1, 15: PRINT "Game Setup"
LINE (111, 8)-(191, 8)
COLOR 2: LOCATE 3, 15: PRINT "Players ("
LOCATE 3, 31: PRINT ")"
COLOR 10: LOCATE 3, 24: PRINT "1,2,3,4"
COLOR 1: LOCATE 4, 16: PRINT "P1 -"
LOCATE 4, 21
IF p1& = 0 THEN PRINT "Off "
IF p1& = 1 THEN PRINT "Human "
IF p1& = 2 THEN PRINT "Computer (Easiest)"
IF p1& = 3 THEN PRINT "Computer (Easy) "
IF p1& = 4 THEN PRINT "Computer (Medium) "
IF p1& = 5 THEN PRINT "Computer (Hard) "
IF p1& = 6 THEN PRINT "Computer (Hardest)"
IF p1& = 7 THEN PRINT "Computer (Random) "
COLOR 4: LOCATE 5, 16: PRINT "P2 -"
LOCATE 5, 21
IF p2& = 0 THEN PRINT "Off "
IF p2& = 1 THEN PRINT "Human "
IF p2& = 2 THEN PRINT "Computer (Easiest)"
IF p2& = 3 THEN PRINT "Computer (Easy) "
IF p2& = 4 THEN PRINT "Computer (Medium) "
IF p2& = 5 THEN PRINT "Computer (Hard) "
IF p2& = 6 THEN PRINT "Computer (Hardest)"
IF p2& = 7 THEN PRINT "Computer (Random) "
COLOR 2: LOCATE 6, 16: PRINT "P3 -"
LOCATE 6, 21
IF p3& = 0 THEN PRINT "Off "
IF p3& = 1 THEN PRINT "Human "
IF p3& = 2 THEN PRINT "Computer (Easiest)"
IF p3& = 3 THEN PRINT "Computer (Easy) "
IF p3& = 4 THEN PRINT "Computer (Medium) "
IF p3& = 5 THEN PRINT "Computer (Hard) "
IF p3& = 6 THEN PRINT "Computer (Hardest)"
IF p3& = 7 THEN PRINT "Computer (Random) "
COLOR 14: LOCATE 7, 16: PRINT "P4 -"
LOCATE 7, 21
IF p4& = 0 THEN PRINT "Off "
IF p4& = 1 THEN PRINT "Human "
IF p4& = 2 THEN PRINT "Computer (Easiest)"
IF p4& = 3 THEN PRINT "Computer (Easy) "
IF p4& = 4 THEN PRINT "Computer (Medium) "
IF p4& = 5 THEN PRINT "Computer (Hard) "
IF p4& = 6 THEN PRINT "Computer (Hardest)"
IF p4& = 7 THEN PRINT "Computer (Random) "
COLOR 4
IF items& = 1 THEN
COLOR 12: LOCATE 9, 48: PRINT "l"
COLOR 4: LOCATE 9, 40: PRINT "Items Re"
LOCATE 9, 49: PRINT "ocate when Hit"
LOCATE 10, 41
IF re& = 1 THEN PRINT "No "
IF re& = 0 THEN PRINT "Yes"
COLOR 12: LOCATE 12, 45: PRINT "U"
COLOR 4: LOCATE 12, 40: PRINT "Lose "
LOCATE 12, 46: PRINT "pgrades when Scored On"
LOCATE 13, 41
IF lose& = 0 THEN PRINT "No "
IF lose& = 1 THEN PRINT "Yes"
LOCATE 15, 40: PRINT "Item Switch"
COLOR 12
IF switch& = 1 THEN COLOR 4
LOCATE 15, 46: PRINT "w"
IF switch& = 1 THEN
COLOR 4: LOCATE 15, 51: PRINT "(Press "
LOCATE 15, 60: PRINT "when done)"
COLOR 12: LOCATE 15, 58: PRINT "D"
END IF
END IF
COLOR 12: LOCATE 3, 40: PRINT "I"
COLOR 4: LOCATE 3, 41: PRINT "tems"
LOCATE 4, 41
IF items& = 1 THEN PRINT "On "
IF items& = 0 THEN PRINT "Off"
IF items& = 1 THEN
COLOR 12: LOCATE 6, 40: PRINT "N"
COLOR 4: LOCATE 6, 41: PRINT "umber of Items"
LOCATE 7, 40: PRINT it&
END IF
COLOR 11: LOCATE 9, 15: PRINT "B"
COLOR 3: LOCATE 9, 16: PRINT "all Speed"
LOCATE 10, 16
IF speed& = 1 THEN PRINT "Normal "
IF speed& = 2 THEN PRINT "Fast "
IF speed& = 3 THEN PRINT "Very Fast"
IF speed& = 4 THEN PRINT "Too Fast "
COLOR 11: LOCATE 12, 15: PRINT "P"
COLOR 3: LOCATE 12, 16: PRINT "ad Speed"
LOCATE 13, 16
IF pad& = 1 THEN PRINT "Normal "
IF pad& = 2 THEN PRINT "Fast "
IF pad& = 3 THEN PRINT "Very Fast"
IF pad& = 4 THEN PRINT "Too Fast "
COLOR 9: LOCATE 15, 23: PRINT "M"
COLOR 1: LOCATE 15, 15: PRINT "Scoring"
LOCATE 15, 24: PRINT "ode"
LOCATE 16, 16
IF scoret& = 1 THEN PRINT "Basic "
IF scoret& = 2 THEN PRINT "All Gain "
IF scoret& = 3 THEN PRINT "One Lose "
IF scoret& = 4 THEN PRINT "Combo "
IF scoret& = 5 THEN PRINT "All Gain (Combo)"
IF scoret& = 6 THEN PRINT "One Lose (Combo)"
IF scoret& = 3 OR scoret& = 6 THEN
COLOR 1: LOCATE 18, 15: PRINT "Start S"
LOCATE 19, 15: PRINT max&
LOCATE 18, 23: PRINT "ore 0 = No End "
COLOR 9: LOCATE 18, 22: PRINT "c"
ELSE
COLOR 1: LOCATE 18, 15: PRINT "Ma"
LOCATE 19, 15: PRINT max&
LOCATE 18, 19: PRINT "Score 0 = Unlimited"
COLOR 9: LOCATE 18, 17: PRINT "x "
END IF
COLOR 13: LOCATE 15, 2: PRINT "S"
LOCATE 17, 2: PRINT "R"
LOCATE 19, 2: PRINT "Q"
COLOR 5: LOCATE 15, 3: PRINT "tart"
LOCATE 17, 3: PRINT "eturn"
LOCATE 19, 3: PRINT "uit"
o& = 0
IF p1& > 0 THEN o& = o& + 1
IF p2& > 0 THEN o& = o& + 1
IF p3& > 0 THEN o& = o& + 1
IF p4& > 0 THEN o& = o& + 1
IF switch& = 1 THEN GOTO switch
a$ = INKEY$
IF a$ = "q" THEN END
IF a$ = "r" THEN EXIT DO
IF a$ = "s" THEN
started& = 0
EXIT DO
ELSEIF a$ = "l" THEN
re& = -re& + 1
ELSEIF a$ = "u" THEN
lose& = -lose& + 1
ELSEIF a$ = "x" OR a$ = "c" THEN
LOCATE 19, 16
PRINT " "
COLOR 1
LOCATE 19, 16
INPUT "", max&
IF max& > 500000 THEN max& = 500000
CLS
ELSEIF a$ = "m" THEN
scoret& = scoret& + 1
IF scoret& = 7 THEN scoret& = 1
ELSEIF a$ = "w" AND items& = 1 THEN
arrow& = 1
switch& = 1
ELSEIF a$ = "b" THEN
speed& = speed& + 1
IF speed& > 4 THEN speed& = 1
ELSEIF a$ = "p" THEN
pad& = pad& + 1
IF pad& = 5 THEN pad& = 1
ELSEIF a$ = "n" THEN
it& = it& + 1
IF it& > 15 THEN it& = 1: CLS
ELSEIF a$ = "i" THEN
items& = -items& + 1
CLS
ELSEIF a$ = "1" THEN
p1& = p1& + 1
IF p1& = 8 AND o& > 1 THEN p1& = 0
IF p1& = 8 AND o& < 2 THEN p1& = 1
started& = 0
CLS
ELSEIF a$ = "2" THEN
p2& = p2& + 1
IF p2& = 8 AND o& > 1 THEN p2& = 0
IF p2& = 8 AND o& < 2 THEN p2& = 1
started& = 0
CLS
ELSEIF a$ = "3" THEN
p3& = p3& + 1
IF p3& = 8 AND o& > 1 THEN p3& = 0
IF p3& = 8 AND o& < 2 THEN p3& = 1
started& = 0
CLS
ELSEIF a$ = "4" THEN
p4& = p4& + 1
IF p4& = 8 AND o& > 1 THEN p4& = 0
IF p4& = 8 AND o& < 2 THEN p4& = 1
started& = 0
CLS
END IF
skip:
VIEW SCREEN (0, 0)-(102, 102)
IF items& = 1 THEN
FOR i = 1 TO it&
IF ABS(ballx& - demoitemx(1, i)) < 2 AND ABS(bally& - demoitemy(1, i)) < 2 AND re& = 0 THEN
CLS
demoitemx(1, i) = INT(RND * 74) + 14
demoitemy(1, i) = INT(RND * 74) + 14
END IF
LINE (demoitemx(1, i), demoitemy(1, i))-(demoitemx(1, i) + 1, demoitemy(1, i) + 1), fic&, BF
NEXT i
END IF
x1& = 0
y1& = 0
x2& = 102
y2& = 102
IF p1& = 0 THEN y1& = 12
IF p2& = 0 THEN x1& = 12
IF p3& = 0 THEN y2& = 90
IF p4& = 0 THEN x2& = 90
LINE (x1&, y1&)-(x2&, y2&), co&, B
IF p1& > 0 AND p2& > 0 THEN
LINE (2, 2)-(2, 14), 1
LINE (2, 2)-(14, 2), 1
LINE (14, 2)-(2, 14), 1
END IF
IF p2& > 0 AND p3& > 0 THEN
LINE (2, 100)-(2, 88), 4
LINE (2, 100)-(14, 100), 4
LINE (14, 100)-(2, 88), 4
END IF
IF p3& > 0 AND p4& > 0 THEN
LINE (100, 100)-(100, 88), 2
LINE (100, 100)-(88, 100), 2
LINE (88, 100)-(100, 88), 2
END IF
IF p4& > 0 AND p1& > 0 THEN
LINE (100, 2)-(100, 14), 14
LINE (100, 2)-(88, 2), 14
LINE (88, 2)-(100, 14), 14
END IF
IF p1& > 0 THEN LINE (pad1& - 5, 2)-(pad1& + 5, 3), 1, BF
IF p2& > 0 THEN LINE (2, pad2& - 5)-(3, pad2& + 5), 4, BF
IF p3& > 0 THEN LINE (pad3& - 5, 100)-(pad3& + 5, 99), 2, BF
IF p4& > 0 THEN LINE (100, pad4& - 5)-(99, pad4& + 5), 14, BF
IF p1& > 0 THEN LINE (pad1& - 6, 2)-(15, 4), 0, BF
IF p1& > 0 THEN LINE (pad1& + 6, 2)-(87, 4), 0, BF
IF p2& > 0 THEN LINE (2, pad2& - 6)-(4, 15), 0, BF
IF p2& > 0 THEN LINE (2, pad2& + 6)-(4, 87), 0, BF
IF p3& > 0 THEN LINE (pad3& - 6, 100)-(15, 98), 0, BF
IF p3& > 0 THEN LINE (pad3& + 6, 100)-(87, 98), 0, BF
IF p4& > 0 THEN LINE (100, pad4& - 6)-(98, 15), 0, BF
IF p4& > 0 THEN LINE (100, pad4& + 6)-(98, 87), 0, BF
IF (bally& < 15 OR bally& > 87) AND ballxs& = 0 THEN ballxs& = 1
IF (ballx& < 15 OR ballx& > 87) AND ballys& = 0 THEN ballys& = 1
IF ballx& < 14 AND bally& < 14 THEN
SWAP ballxs&, ballys&
ballxs& = -ballxs&
ballys& = -ballys&
IF ABS(ballxs&) = ABS(ballys&) THEN ballxs& = ballxs& + 1
LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 0, B
bally& = 13
ballx& = 13
SOUND 750, .1
END IF
IF ballx& < 14 AND bally& > 88 THEN
SWAP ballxs&, ballys&
IF ABS(ballxs&) = ABS(ballys&) THEN ballxs& = ballxs& + 1
LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 0, B
bally& = 89
ballx& = 13
SOUND 750, .1
END IF
IF ballx& > 88 AND bally& < 14 THEN
SWAP ballxs&, ballys&
IF ABS(ballxs&) = ABS(ballys&) THEN ballxs& = ballxs& + 1
LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 0, B
bally& = 13
ballx& = 89
SOUND 750, .1
END IF
IF ballx& > 88 AND bally& > 88 THEN
SWAP ballxs&, ballys&
ballxs& = -ballxs&
ballys& = -ballys&
IF ABS(ballxs&) = ABS(ballys&) THEN ballxs& = ballxs& + 1
LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 0, B
bally& = 89
ballx& = 89
SOUND 750, .1
END IF
LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 0, B
PSET (ballx2&, bally2&), 0
PSET (ballx3&, bally3&), 0
PSET (ballx4&, bally4&), 0
bally4& = bally3&
bally3& = bally2&
bally2& = bally&
ballx4& = ballx3&
ballx3& = ballx2&
ballx2& = ballx&
bally& = bally& + ballys&
ballx& = ballx& + ballxs&
LINE (ballx& - 1, bally& - 1)-(ballx&, bally&), 4, B
PSET (ballx&, bally&), 14
PSET (ballx2&, bally2&), 12
PSET (ballx3&, bally3&), 12
PSET (ballx4&, bally4&), 8
IF bally& < 1 OR (bally& < 14 AND p1& = 0) THEN
IF p1& > 0 THEN co& = 1
ballys& = INT(RND * 3) + 1
SOUND 500, .1
ELSEIF ballx& < 1 OR (ballx& < 14 AND p2& = 0) THEN
IF p2& > 0 THEN co& = 4
ballxs& = INT(RND * 3) + 1
SOUND 500, .1
ELSEIF ballx& > 100 OR (ballx& > 88 AND p4& = 0) THEN
IF p4& > 0 THEN co& = 14
ballxs& = -(INT(RND * 3) + 1)
SOUND 500, .1
ELSEIF bally& > 100 OR (bally& > 88 AND p3& = 0) THEN
IF p3& > 0 THEN co& = 2
ballys& = -(INT(RND * 3) + 1)
SOUND 500, .1
END IF
IF ballys& < 0 THEN
IF ballx& > pad1& THEN pad1& = pad1& + 3
IF ballx& < pad1& THEN pad1& = pad1& - 3
IF pad1& > 82 THEN pad1& = 82
IF pad1& < 20 THEN pad1& = 20
END IF
IF ballxs& < 0 THEN
IF bally& > pad2& THEN pad2& = pad2& + 3
IF bally& < pad2& THEN pad2& = pad2& - 3
IF pad2& > 82 THEN pad2& = 82
IF pad2& < 20 THEN pad2& = 20
END IF
IF ballys& > 0 THEN
IF ballx& > pad3& THEN pad3& = pad3& + 3
IF ballx& < pad3& THEN pad3& = pad3& - 3
IF pad3& > 82 THEN pad3& = 82
IF pad3& < 20 THEN pad3& = 20
END IF
IF ballxs& > 0 THEN
IF bally& > pad4& THEN pad4& = pad4& + 3
IF bally& < pad4& THEN pad4& = pad4& - 3
IF pad4& > 82 THEN pad4& = 82
IF pad4& < 20 THEN pad4& = 20
END IF
VIEW
LOOP
IF (scoret& = 3 OR scoret& = 6) AND o& = 1 THEN GOTO start
IF p1& = 7 THEN p1r& = 1 ELSE p1r& = 0
IF p2& = 7 THEN p2r& = 1 ELSE p2r& = 0
IF p3& = 7 THEN p3r& = 1 ELSE p3r& = 0
IF p4& = 7 THEN p4r& = 1 ELSE p4r& = 0
IF started& = 1 THEN
IF p1r& = 1 THEN p1& = p1m&
IF p2r& = 1 THEN p2& = p2m&
IF p3r& = 1 THEN p3& = p3m&
IF p4r& = 1 THEN p4& = p4m&
END IF
IF started& = 1 THEN startedd& = startedd& + subtract&
IF started& = 0 THEN GOTO new ELSE GOTO restart
View git blame Copy permalink