mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-19 23:44:48 +00:00
b586eafd3b
LINE INPUT will now use the faster method if passed a file handle that has been opened FOR BINARY. As such, the _BLINEINPUT command has been removed. qb64.bas now takes advantage of this for reading from '$include files, at least in Include Manager 1. Some tweaking of internal/source/main.txt was required to get things into a sane state, so I'm holing off changing the compiler any further so the auto-builder can make sure everything's smoothed over. Note: Everything should still compile as normal; I'm just being overcautious.
737 lines
21 KiB
QBasic
737 lines
21 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
|
|
|