QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-08 07:55:14 +00:00
Code Releases Wiki Activity
qb64/programs/samples/pete/beatdown/beatdown.bas

738 lines
21 KiB
QBasic
Raw Blame History

' **** ***** * ***** **** *** * * * *
' * * * * * * * * * * * * ** *
' * * * * * * * * * * * * ** *
' **** **** ***** * * * * * * * * * * *
' * * * * * * * * * * * * * * * *
' * * * * * * * * * * * * * * **
' **** ***** * * * **** *** ***** * **
' 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
View git blame Copy permalink