mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 07:37:47 +00:00
9ee89d6ff4
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
737 lines
20 KiB
QBasic
737 lines
20 KiB
QBasic
' **** ***** * ***** **** *** * * * *
|
|
' * * * * * * * * * * * * ** *
|
|
' * * * * * * * * * * * * ** *
|
|
' **** **** ***** * * * * * * * * * * *
|
|
' * * * * * * * * * * * * * * * *
|
|
' * * * * * * * * * * * * * * **
|
|
' **** ***** * * * **** *** ***** * **
|
|
' Beat Down
|
|
' 1998 MicroTrip
|
|
' V1.1 Origanally availible on
|
|
' 12-14-98
|
|
'
|
|
' Visit our Web Site At
|
|
' At
|
|
' http://www.geocities.com/SiliconValley/Platform/8409/qbasic.html
|
|
' E-Mail me at microtrip@geocities.com
|
|
' ***Hit `F5' to play!!***
|
|
|
|
|
|
|
|
|
|
|
|
title:
|
|
'Beat Down Title Screen
|
|
'By Brian Murphy of MicroTrip
|
|
|
|
SCREEN 8
|
|
CLS
|
|
LINE (50, 50)-(50, 100), 14
|
|
LINE (50, 50)-(70, 50), 14
|
|
LINE (50, 100)-(70, 100), 14
|
|
LINE (70, 50)-(80, 55), 14
|
|
LINE (70, 100)-(80, 95), 14
|
|
LINE (80, 55)-(80, 70), 14
|
|
LINE (80, 95)-(80, 80), 14
|
|
LINE (80, 70)-(75, 75), 14
|
|
LINE (80, 80)-(75, 75), 14
|
|
LINE (75, 75)-(50, 75), 14
|
|
|
|
'**************E*************
|
|
LINE (90, 50)-(90, 100), 14
|
|
LINE (90, 50)-(120, 50), 14
|
|
LINE (90, 75)-(110, 75), 14
|
|
LINE (90, 100)-(120, 100), 14
|
|
|
|
'**************A*************
|
|
LINE (145, 50)-(130, 100), 14
|
|
LINE (145, 50)-(160, 100), 14
|
|
LINE (137.5, 75)-(152.5, 75), 14
|
|
|
|
'*************T**************
|
|
LINE (170, 50)-(200, 50), 14
|
|
LINE (185, 50)-(185, 100), 14
|
|
|
|
'***************D************
|
|
LINE (260, 50)-(260, 100), 14
|
|
LINE (260, 50)-(280, 50), 14
|
|
LINE (260, 100)-(280, 100), 14
|
|
LINE (280, 50)-(290, 55), 14
|
|
LINE (280, 100)-(290, 95), 14
|
|
LINE (290, 55)-(290, 95), 14
|
|
|
|
'***************O************
|
|
LINE (300, 55)-(300, 95), 14
|
|
LINE (300, 55)-(310, 50), 14
|
|
LINE (300, 95)-(310, 100), 14
|
|
LINE (330, 55)-(330, 95), 14
|
|
LINE (320, 50)-(330, 55), 14
|
|
LINE (320, 100)-(330, 95), 14
|
|
LINE (320, 100)-(310, 100), 14
|
|
LINE (310, 50)-(320, 50), 14
|
|
|
|
'**************W*************
|
|
LINE (340, 50)-(340, 100), 14
|
|
LINE (370, 50)-(370, 100), 14
|
|
LINE (340, 100)-(355, 75), 14
|
|
LINE (370, 100)-(355, 75), 14
|
|
|
|
'**************N*************
|
|
LINE (380, 50)-(380, 100), 14
|
|
LINE (410, 50)-(410, 100), 14
|
|
LINE (380, 50)-(410, 100), 14
|
|
|
|
'************************All done
|
|
|
|
|
|
COLOR 14
|
|
LOCATE 24, 32: PRINT "Beat Down V1.1"
|
|
|
|
|
|
FOR i = 1 TO 2
|
|
FOR x = 550 TO 37 STEP -5
|
|
SOUND x + 5, .2
|
|
a$ = INKEY$: IF a$ <> "" THEN LET d = 1: EXIT FOR
|
|
NEXT x
|
|
IF d = 1 THEN EXIT FOR
|
|
FOR x = 37 TO 550 STEP 5
|
|
SOUND x + 5, .2
|
|
a$ = INKEY$: IF a$ <> "" THEN LET d = 1: EXIT FOR
|
|
NEXT x
|
|
IF d = 1 THEN EXIT FOR
|
|
NEXT i
|
|
IF d = 1 THEN GOTO you
|
|
|
|
'/Title
|
|
|
|
|
|
GOSUB intro
|
|
IF nn = 0 GOTO you
|
|
IF nn = 1 GOTO title
|
|
|
|
you:
|
|
'Main Menu
|
|
snd$ = "on"
|
|
speed$ = "normal"
|
|
num = 9
|
|
oldnum = 9
|
|
colour1 = 1
|
|
colour2 = 1
|
|
mainmenu:
|
|
COLOR 14
|
|
CLS
|
|
LINE (50, 45)-(550, 150), 14, B
|
|
LOCATE 5, 33: PRINT "Main Menu"
|
|
LINE (60, 55)-(540, 140), 14, B
|
|
PAINT (51, 46), 10, 14
|
|
LOCATE 9, 15: PRINT "Start Game"
|
|
LOCATE 10, 15: PRINT "Veiw Controls"
|
|
LOCATE 11, 15: PRINT "Speed"
|
|
LOCATE 12, 15: PRINT "Sound"
|
|
LOCATE 13, 15: PRINT "Credits"
|
|
LOCATE 14, 15: PRINT "Color of player 1"
|
|
LOCATE 15, 15: PRINT "Color of player 2"
|
|
LOCATE 16, 15: PRINT "Quit"
|
|
|
|
LISTEN$ = "mb T180 o2 P2 P8 L8 GGG L2 E-"
|
|
FATE$ = "mb P24 P8 L8 FFF L2 D"
|
|
PLAY LISTEN$ + FATE$
|
|
|
|
mm2:
|
|
LOCATE 11, 21: PRINT " ": LOCATE 11, 21: PRINT speed$
|
|
LOCATE 12, 21: PRINT " ": LOCATE 12, 21: PRINT snd$; ""
|
|
LOCATE 14, 33: PRINT " ": LOCATE 14, 33: COLOR colour1: PRINT colour1
|
|
LOCATE 15, 33: PRINT " ": LOCATE 15, 33: COLOR colour2: PRINT colour2
|
|
COLOR 14
|
|
IF oldnum <> num THEN LOCATE 14, 13: PRINT " ": LOCATE 9, 13: PRINT " ": LOCATE 10, 13: PRINT " ": LOCATE 11, 13: PRINT " ": LOCATE 12, 13: PRINT " ": LOCATE 13, 13: PRINT " ": LOCATE 15, 13: PRINT " ": LOCATE 16, 13: PRINT " ": oldnum = num
|
|
LOCATE num, 13: PRINT "o"
|
|
DO
|
|
a$ = INKEY$
|
|
LOOP UNTIL a$ <> ""
|
|
IF a$ = "" THEN GOTO mm2
|
|
IF a$ = "8" AND num = 9 THEN num = 16: GOTO mm2
|
|
IF a$ = "8" THEN num = num - 1: GOTO mm2
|
|
IF a$ = "2" AND num = 16 THEN num = 9: GOTO mm2
|
|
IF a$ = "2" THEN num = num + 1: GOTO mm2
|
|
IF a$ = "5" AND num = 9 THEN GOTO start
|
|
IF a$ = "4" AND num = 12 THEN
|
|
IF snd$ = "on" THEN snd$ = "off": GOTO mm2
|
|
IF snd$ = "off" THEN snd$ = "on": GOTO mm2
|
|
END IF
|
|
IF a$ = "6" AND num = 12 THEN
|
|
IF snd$ = "on" THEN snd$ = "off": GOTO mm2
|
|
IF snd$ = "off" THEN snd$ = "on": GOTO mm2
|
|
END IF
|
|
IF a$ = "4" AND num = 11 THEN
|
|
IF speed$ = "fastest" THEN speed$ = "mid-fast": GOTO mm2
|
|
IF speed$ = "mid-fast" THEN speed$ = "normal": GOTO mm2
|
|
IF speed$ = "normal" THEN speed$ = "mid-slow": GOTO mm2
|
|
IF speed$ = "mid-slow" THEN speed$ = "slow": GOTO mm2
|
|
IF speed$ = "slow" THEN speed$ = "fastest": GOTO mm2
|
|
END IF
|
|
IF a$ = "6" AND num = 11 THEN
|
|
IF speed$ = "fastest" THEN speed$ = "slow": GOTO mm2
|
|
IF speed$ = "mid-fast" THEN speed$ = "fastest": GOTO mm2
|
|
IF speed$ = "normal" THEN speed$ = "mid-fast": GOTO mm2
|
|
IF speed$ = "mid-slow" THEN speed$ = "normal": GOTO mm2
|
|
IF speed$ = "slow" THEN speed$ = "mid-slow": GOTO mm2
|
|
END IF
|
|
IF a$ = "6" AND num = 14 THEN
|
|
IF colour1 = 15 THEN colour1 = 0: GOTO mm2
|
|
IF colour1 = 10 THEN colour1 = 12: GOTO mm2
|
|
colour1 = colour1 + 1
|
|
END IF
|
|
IF a$ = "4" AND num = 14 THEN
|
|
IF colour1 = 0 THEN colour1 = 15: GOTO mm2
|
|
IF colour1 = 12 THEN colour1 = 10: GOTO mm2
|
|
colour1 = colour1 - 1
|
|
END IF
|
|
IF a$ = "6" AND num = 15 THEN
|
|
IF colour2 = 15 THEN colour2 = 0: GOTO mm2
|
|
IF colour2 = 10 THEN colour2 = 12: GOTO mm2
|
|
colour2 = colour2 + 1
|
|
END IF
|
|
IF a$ = "4" AND num = 15 THEN
|
|
IF colour2 = 0 THEN colour2 = 15: GOTO mm2
|
|
IF colour2 = 12 THEN colour2 = 10: GOTO mm2
|
|
colour2 = colour2 - 1
|
|
END IF
|
|
IF a$ = "5" AND num = 13 THEN GOTO credits
|
|
IF a$ = "5" AND num = 10 THEN GOTO controls
|
|
IF a$ = "5" AND num = 16 THEN GOTO 666
|
|
GOTO mm2
|
|
|
|
'***********Credits**************
|
|
credits:
|
|
CLS
|
|
PRINT "Graphics Director...........Jacob Suckow"
|
|
PRINT " Title Screen Picture......Brian Murphy"
|
|
PRINT " Main Menu.................Brian Murphy"
|
|
PRINT " Fighting Section..........Brian Murphy"
|
|
PRINT " Ending (Circle)...........Brian Murphy"
|
|
PRINT "Programming Director........Brian Murphy"
|
|
PRINT " Engine....................Brian Murphy"
|
|
PRINT " Menu System...............Brian Murphy"
|
|
PRINT " Other.....................Brian Murphy"
|
|
PRINT "Sound Director..............Jeremy Suckow"
|
|
PRINT " Title Screen..............Brian Murphy"
|
|
PRINT " MicroTrip Screen..........Brian Murphy"
|
|
PRINT " Fighting..................Brian Murphy"
|
|
PRINT
|
|
PRINT " 1998 MicroTrip"
|
|
PRINT " Any key to continue..."
|
|
WHILE INKEY$ = "": WEND
|
|
GOTO mainmenu
|
|
'***********/Credits*************
|
|
|
|
'***********Controls*************
|
|
controls:
|
|
CLS
|
|
PRINT "Player One"
|
|
PRINT "Move left.....a"
|
|
PRINT "Move right....s"
|
|
PRINT "Punch.........q"
|
|
PRINT "High Punch....z"
|
|
PRINT "Kick..........w"
|
|
PRINT "Low Kick.....x"
|
|
PRINT
|
|
PRINT "Player Two"
|
|
PRINT "Move Left.....4"
|
|
PRINT "Move Right....6"
|
|
PRINT "Punch.........8"
|
|
PRINT "High Punch..../"
|
|
PRINT "Kick..........2"
|
|
PRINT "Low Kick......0"
|
|
PRINT
|
|
PRINT "To quit.....Esc"
|
|
PRINT
|
|
PRINT "Any key to continue..."
|
|
WHILE INKEY$ = "": WEND
|
|
GOTO mainmenu
|
|
'************/Controls*************
|
|
|
|
start:
|
|
IF speed$ = "slow" THEN speed = 100000
|
|
IF speed$ = "mid-slow" THEN speed = 50000
|
|
IF speed$ = "normal" THEN speed = 25000
|
|
IF speed$ = "mid-fast" THEN speed = 10000
|
|
IF speed$ = "fastest" THEN speed = 1000
|
|
|
|
IF snd$ = "on" THEN snd = 1
|
|
IF snd$ = "off" THEN snd = 0
|
|
|
|
CLS
|
|
SCREEN 8
|
|
|
|
LET a = 50
|
|
LET B = 50
|
|
LET c = 20
|
|
LET d = c
|
|
LET e = 600
|
|
LET f = e
|
|
|
|
COLOR 15
|
|
|
|
'********Ground********
|
|
LINE (0, 151)-(640, 161), 2, BF
|
|
LINE (0, 161)-(640, 171), 10, BF
|
|
LINE (0, 171)-(640, 200), 6, BF
|
|
'********/Ground*******
|
|
|
|
'********Top Thing*****
|
|
LINE (0, 0)-(640, 20), 13, B
|
|
PAINT (2, 2), 13, 13
|
|
'********/Top Thing****
|
|
'********Background****
|
|
LINE (0, 150)-(640, 21), 11, BF
|
|
'********/BackGround***
|
|
|
|
1
|
|
10 IF a <= 0 THEN GOTO 600
|
|
20 IF B <= 0 THEN GOTO 610
|
|
|
|
30 LINE (c, 110)-(c, 130), colour1 'body
|
|
LINE (c, 130)-(c - 20, 150), colour1 'leg
|
|
LINE (c, 130)-(c + 20, 150), colour1 'other leg
|
|
IF c < e THEN LINE (c, 120)-(c + 15, 110), colour1'arm
|
|
IF c > e THEN LINE (c, 120)-(c - 15, 110), colour1'arm other
|
|
CIRCLE (c, 105), 10, colour1 'head
|
|
60 LINE (e, 110)-(e, 130), colour2
|
|
LINE (e, 130)-(e - 20, 150), colour2
|
|
LINE (e, 130)-(e + 20, 150), colour2
|
|
IF e > c THEN LINE (e, 120)-(e - 15, 110), colour2
|
|
IF e < c THEN LINE (e, 120)-(e + 15, 110), colour2
|
|
CIRCLE (e, 105), 10, colour2
|
|
|
|
90 LINE (5, 4)-((a * 5) + 5, 10), 14, BF 'Life Bar
|
|
IF a <> 50 THEN LINE ((a * 5) + 1 + 5, 4)-(255, 10), 4, BF
|
|
LINE (4, 3)-((a * 5) + 6, 11), 14, B
|
|
|
|
LINE (390, 4)-((B * 5) + 390, 10), 14, BF 'Life Bar P2
|
|
LINE ((B * 5) + 390 + 1, 4)-(640, 10), 4, BF
|
|
LINE (389, 3)-((B * 5) + 390 + 1, 11), 14, B
|
|
|
|
130 a$ = INKEY$
|
|
140 IF a$ = "" THEN GOTO 1
|
|
150 IF a$ = "q" THEN GOTO 200 'punch 1
|
|
155 IF a$ = "z" THEN GOTO highpunch1
|
|
160 IF a$ = "w" THEN GOTO 210 'kick 1
|
|
165 IF a$ = "x" THEN GOTO highkick1
|
|
170 IF a$ = "a" THEN GOTO 220 'left 1
|
|
175 IF a$ = "s" THEN GOTO 270 'right 1
|
|
180 IF a$ = "4" THEN GOTO 230 'left 2
|
|
185 IF a$ = "6" THEN GOTO 240 'right 2
|
|
190 IF a$ = "8" THEN GOTO 250 'punch 2
|
|
IF a$ = "/" THEN GOTO highpunch2
|
|
195 IF a$ = "2" THEN GOTO 260 'kick 2
|
|
IF a$ = "0" THEN GOTO highkick2
|
|
196 IF a$ = CHR$(27) THEN GOTO 616
|
|
197 GOTO 1
|
|
|
|
200 IF c > e THEN GOTO 205
|
|
LINE (c, 120)-(c + 15, 110), 11
|
|
LINE (c, 120)-(c + 30, 120), colour1
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (c, 120)-(c + 15, 110), colour1
|
|
LINE (c, 120)-(c + 30, 120), 11
|
|
GOTO 209
|
|
205 LINE (c, 120)-(c - 30, 120), colour1
|
|
LINE (c, 120)-(c - 15, 110), 11
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (c, 120)-(c - 15, 110), colour1
|
|
LINE (c, 120)-(c - 30, 120), 11
|
|
GOTO 209
|
|
209 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN
|
|
B = B - 2
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN
|
|
B = B - 3
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN
|
|
B = B - 1
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
GOTO 1
|
|
|
|
|
|
|
|
highkick1:
|
|
IF c > e THEN GOTO hk1
|
|
LINE (c, 130)-(c + 20, 150), 11
|
|
LINE (c, 130)-(c + 30, 140), colour1
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (c, 130)-(c + 20, 150), colour1
|
|
LINE (c, 130)-(c + 30, 140), 11
|
|
GOTO hk1x
|
|
hk1:
|
|
LINE (c, 130)-(c - 20, 150), 11
|
|
LINE (c, 130)-(c - 30, 140), colour1
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (c, 130)-(c - 20, 150), colour1
|
|
LINE (c, 130)-(c - 30, 140), 11
|
|
GOTO hk1x
|
|
hk1x:
|
|
IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN
|
|
B = B - 2
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN
|
|
B = B - 3
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN
|
|
B = B - 1
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
GOTO 1
|
|
|
|
|
|
highpunch1:
|
|
IF c > e THEN GOTO hp1
|
|
LINE (c, 120)-(c + 15, 110), 11
|
|
LINE (c, 120)-(c + 30, 110), colour1
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (c, 120)-(c + 15, 110), colour1
|
|
LINE (c, 120)-(c + 30, 110), 11
|
|
GOTO hp1x
|
|
hp1:
|
|
LINE (c, 120)-(c - 15, 110), 11
|
|
LINE (c, 120)-(c - 30, 110), colour1
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (c, 120)-(c - 15, 110), colour1
|
|
LINE (c, 120)-(c - 30, 110), 11
|
|
GOTO hp1x
|
|
hp1x:
|
|
IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN
|
|
B = B - 2
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN
|
|
B = B - 3
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN
|
|
B = B - 1
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
GOTO 1
|
|
|
|
|
|
210 IF c > e THEN GOTO 215
|
|
LINE (c, 130)-(c + 20, 150), 11
|
|
LINE (c, 130)-(c + 30, 130), colour1
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (c, 130)-(c + 20, 150), colour1
|
|
LINE (c, 130)-(c + 30, 130), 11
|
|
GOTO 219
|
|
215 LINE (c, 130)-(c - 20, 150), 11
|
|
LINE (c, 130)-(c - 30, 130), colour1
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (c, 130)-(c - 20, 150), colour1
|
|
LINE (c, 130)-(c - 30, 130), 11
|
|
GOTO 219
|
|
219 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN
|
|
B = B - 2
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN
|
|
B = B - 3
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN
|
|
B = B - 1
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
GOTO 1
|
|
|
|
220 IF c < 6 THEN GOTO 1
|
|
221 c = c - 5
|
|
222 LINE (d, 110)-(d, 130), 11
|
|
LINE (d, 130)-(d - 20, 150), 11
|
|
LINE (d, 130)-(d + 20, 150), 11
|
|
223 LINE (d, 120)-(d - 15, 110), 11
|
|
LINE (d, 120)-(d + 15, 110), 11
|
|
224 CIRCLE (d, 105), 10, 11
|
|
225 d = c
|
|
226 GOTO 1
|
|
|
|
270 IF c > 595 THEN GOTO 1
|
|
271 c = c + 5
|
|
272 LINE (d, 110)-(d, 130), 11
|
|
LINE (d, 130)-(d - 20, 150), 11
|
|
LINE (d, 130)-(d + 20, 150), 11
|
|
273 CIRCLE (d, 105), 10, 11
|
|
274 LINE (d, 120)-(d - 15, 110), 11
|
|
LINE (d, 120)-(d + 15, 110), 11
|
|
275 d = c
|
|
276 GOTO 1
|
|
|
|
230 IF e < 5 THEN GOTO 1
|
|
231 e = e - 5
|
|
232 LINE (f, 110)-(f, 130), 11
|
|
LINE (f, 130)-(f - 20, 150), 11
|
|
LINE (f, 130)-(f + 20, 150), 11
|
|
233 CIRCLE (f, 105), 10, 11
|
|
234 LINE (f, 120)-(f - 15, 110), 11
|
|
LINE (f, 120)-(f + 15, 110), 11
|
|
235 f = e
|
|
236 GOTO 1
|
|
|
|
240 IF e > 595 THEN GOTO 1
|
|
241 e = e + 5
|
|
242 LINE (f, 110)-(f, 130), 11
|
|
LINE (f, 130)-(f - 20, 150), 11
|
|
LINE (f, 130)-(f + 20, 150), 11
|
|
243 CIRCLE (f, 105), 10, 11
|
|
244 LINE (f, 120)-(f - 15, 110), 11
|
|
LINE (f, 120)-(f + 15, 110), 11
|
|
245 f = e
|
|
246 GOTO 1
|
|
|
|
250 IF c < e THEN GOTO 255
|
|
LINE (e, 120)-(e + 15, 110), 11
|
|
LINE (e, 120)-(e + 30, 120), colour2
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (e, 120)-(e + 15, 110), colour2
|
|
LINE (e, 120)-(e + 30, 120), 11
|
|
GOTO 259
|
|
255 LINE (e, 120)-(e - 30, 120), colour2
|
|
LINE (e, 120)-(e - 15, 110), 11
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (e, 120)-(e - 30, 120), colour2
|
|
LINE (e, 120)-(e - 30, 120), 11
|
|
GOTO 259
|
|
259 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN
|
|
a = a - 2
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN
|
|
a = a - 3
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 25 = e THEN
|
|
a = a - 1
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
GOTO 1
|
|
|
|
260 IF c < e THEN GOTO 265
|
|
LINE (e, 130)-(e + 20, 150), 11
|
|
LINE (e, 130)-(e + 30, 130), colour2
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (e, 130)-(e + 20, 150), colour2
|
|
LINE (e, 130)-(e + 30, 130), 11
|
|
GOTO 269
|
|
265 LINE (e, 130)-(e - 20, 150), 11
|
|
LINE (e, 130)-(e - 30, 130), colour2
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (e, 130)-(e - 20, 150), colour2
|
|
LINE (e, 130)-(e - 30, 130), 11
|
|
GOTO 269
|
|
269 IF c + 29 = e OR c - 29 = e OR c + 30 = e OR c - 30 = e THEN
|
|
a = a - 2
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 24 = e OR c - 24 = e OR c + 25 = e OR c - 25 = e THEN
|
|
a = a - 3
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF c + 19 = e OR c - 19 = e OR c + 20 = e OR c - 20 = e THEN
|
|
a = a - 1
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
GOTO 1
|
|
|
|
|
|
highkick2:
|
|
IF c < e THEN GOTO hk2
|
|
LINE (e, 130)-(e + 20, 150), 11
|
|
LINE (e, 130)-(e + 30, 140), colour2
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (e, 130)-(e + 20, 150), colour2
|
|
LINE (e, 130)-(e + 30, 140), 11
|
|
GOTO hk2x
|
|
hk2:
|
|
LINE (e, 130)-(e - 20, 150), 11
|
|
LINE (e, 130)-(e - 30, 140), colour2
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (e, 130)-(e - 20, 150), colour1
|
|
LINE (e, 130)-(e - 30, 140), 11
|
|
GOTO hk2x
|
|
hk2x:
|
|
IF e + 29 = c OR e - 29 = c OR e + 30 = c OR e - 30 = c THEN
|
|
a = a - 2
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF e + 24 = c OR e - 24 = c OR e + 25 = c OR e - 25 = c THEN
|
|
a = a - 3
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF e + 19 = c OR e - 19 = c OR e + 20 = c OR e - 20 = c THEN
|
|
a = a - 1
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
GOTO 1
|
|
|
|
|
|
highpunch2:
|
|
IF c < e THEN GOTO hp2
|
|
LINE (e, 120)-(e + 15, 110), 11
|
|
LINE (e, 120)-(e + 30, 110), colour1
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (e, 120)-(e + 15, 110), colour1
|
|
LINE (e, 120)-(e + 30, 110), 11
|
|
GOTO hp2x
|
|
hp2:
|
|
LINE (e, 120)-(e - 15, 110), 11
|
|
LINE (e, 120)-(e - 30, 110), colour1
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
LINE (e, 120)-(e - 15, 110), colour1
|
|
LINE (e, 120)-(e - 30, 110), 11
|
|
GOTO hp2x
|
|
hp2x:
|
|
IF e + 29 = c OR e - 29 = c OR e + 30 = c OR e - 30 = c THEN
|
|
a = a - 2
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF e + 24 = c OR e - 24 = c OR e + 25 = c OR e - 25 = c THEN
|
|
a = a - 3
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
IF e + 19 = c OR e - 19 = c OR e + 20 = c OR e - 20 = c THEN
|
|
a = a - 1
|
|
IF snd = 1 THEN SOUND 50, 1
|
|
END IF
|
|
GOTO 1
|
|
|
|
|
|
|
|
600 FOR iii = 1 TO 8000
|
|
LOCATE 12, 32: PRINT "Player 1 Losses!"
|
|
NEXT iii
|
|
FOR ii = 10 TO 1 STEP -1
|
|
CIRCLE (c, 105), ii + 1, 11
|
|
CIRCLE (c, 105), ii, colour1
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
NEXT ii
|
|
GOTO 615
|
|
610 FOR iii = 1 TO 8000
|
|
LOCATE 12, 32: PRINT "Player 2 Losses!"
|
|
NEXT iii
|
|
FOR ii = 10 TO 1 STEP -1
|
|
CIRCLE (e, 105), ii + 1, 11
|
|
CIRCLE (e, 105), ii, colour2
|
|
FOR i = 1 TO speed
|
|
NEXT i
|
|
NEXT ii
|
|
GOTO 615
|
|
|
|
615
|
|
FOR i = 400 TO 1 STEP -1
|
|
CIRCLE (320, 100), i
|
|
PAINT (1, 1), 11
|
|
CIRCLE (320, 100), i + 1, 11
|
|
FOR ii = 1 TO speed / 10
|
|
NEXT ii
|
|
NEXT i
|
|
|
|
616 GOTO mainmenu
|
|
|
|
intro:
|
|
|
|
'MicroTrip
|
|
CLS
|
|
SCREEN 8
|
|
COLOR 15
|
|
LOCATE 12, 35: PRINT "MicroTrip"
|
|
LINE (260, 85)-(350, 97), 1, B
|
|
PAINT (259, 84), 9, 1
|
|
PLAY "mb L16 ed L4 e P64 L4 <a P4 > L16 fe L32 f P8 e P8 L4 d P4"
|
|
PLAY "mb L16 ed L4 e P64 L4 <a P4 > L17 fe L32 f P8 e P8 L4 d P4"
|
|
IF a$ <> "" THEN RETURN
|
|
|
|
'Move Guy
|
|
|
|
c = 5
|
|
e = 1000
|
|
moveguy:
|
|
LINE (c, 110)-(c, 130) 'body
|
|
LINE (c, 130)-(c - 20, 150) 'leg
|
|
LINE (c, 130)-(c + 20, 150) 'other leg
|
|
IF c < e THEN LINE (c, 120)-(c + 15, 110)'arm
|
|
IF c > e THEN LINE (c, 120)-(c - 15, 110)'arm other
|
|
CIRCLE (c, 105), 10 'head
|
|
FOR i = 1 TO 9000
|
|
NEXT i
|
|
LINE (c, 110)-(c, 130), 9 'body
|
|
LINE (c, 130)-(c - 20, 150), 9 'leg
|
|
LINE (c, 130)-(c + 20, 150), 9 'other leg
|
|
IF c < e THEN LINE (c, 120)-(c + 15, 110), 9'arm
|
|
IF c > e THEN LINE (c, 120)-(c - 15, 110), 9'arm other
|
|
CIRCLE (c, 105), 10, 9 'head
|
|
c = c + 1
|
|
a$ = INKEY$
|
|
IF a$ <> "" THEN LET nn = 0: RETURN
|
|
IF c >= 595 THEN LET nn = 1: RETURN
|
|
GOTO moveguy
|
|
|
|
'****I have to fill this in later. It won't work right.****
|
|
story:
|
|
CLS
|
|
fart = 0
|
|
PAINT (1, 1), 0
|
|
COLOR 4
|
|
LOCATE 1, 1: PRINT "It was the year 1998 when you and Jake decided to start your"
|
|
GOTO yeah
|
|
first:
|
|
PRINT "own 'wrestling' association. You were sick of how fake all of the "
|
|
GOTO yeah
|
|
second:
|
|
PRINT "others including WCW, WWF and NWO, were. Then, simoultaniously, you both"
|
|
GOTO yeah
|
|
third:
|
|
PRINT "had a good idea. What if your 'wrestling' association wasn't fake? What"
|
|
GOTO yeah
|
|
fourth:
|
|
PRINT "if you had all of the 'wrestlers' sign a Beat Down contract saying that "
|
|
GOTO yeah
|
|
fifth:
|
|
PRINT "they would fight to the death? This was gonna' be a kick @$$ 'fighting'"
|
|
GOTO yeah
|
|
sixth:
|
|
PRINT "association! It would be known as the Beat Down Fighting Association!(BDFA)"
|
|
GOTO yeah
|
|
|
|
endofstory:
|
|
IF nn = 0 THEN RETURN
|
|
LET nn = 1: RETURN
|
|
|
|
yeah:
|
|
a$ = INKEY$
|
|
IF a$ <> "" THEN nn = 0: GOTO endofstory
|
|
FOR i = 1 TO 1000000
|
|
NEXT i
|
|
fart = fart + 1
|
|
ON poop GOTO first, second, third, fourth, fifth, sixth
|
|
|
|
666
|
|
|