Homer.Bas
From: studlee1100 · 8/28/1999 9:42 PM
Here's the Homer.Bas file we chatted about in Programming class:
DECLARE SUB win ()
DECLARE SUB ouch ()
CLS
SCREEN 12
' THE HOMER SIMPSON GAME
' Programmed by Chris McGowan
'
' -press F5 to start
' -press <ctrl> + <pause> to exit
' -TURN NUMBER LOCK ON TO PLAY
PLAY "mb"
PLAY "<C+ L6 f L6 g+ L10 a+ L4 g+ L6 f L6 c# L8 <a L10 g+ g# g L4 g+ L10 g+ G+ g L12G+p64 L4>a L10>C+ C+ c L6C+"
COLOR 14:
LOCATE 8, 29: PRINT "THE HOMER SIMPSON GAME"
COLOR 15:
LOCATE 10, 14: PRINT " "
LOCATE 11, 14: PRINT " The object of the HOMER SIMPSON GAME is to navigate "
LOCATE 12, 14: PRINT " Homer around the board, collecting as many potato "
LOCATE 13, 14: PRINT " chips as you can. You will not have a lot of time, "
LOCATE 14, 14: PRINT " so move Homer as quickly as you can, while making "
LOCATE 15, 14: PRINT " sure that you do not run into any walls, because "
LOCATE 16, 14: PRINT " Homer will die. To win, Homer must eat 50 chips "; ""
LOCATE 17, 14: PRINT " within the time limit. "
LOCATE 19, 14: PRINT " Note: To exit game, press <CTRL> + <PAUSE>"
LOCATE 20, 14: PRINT " Make sure NUMBER LOCK is on"
LOCATE 21, 14: PRINT " Use NUMBERED ARROWS to control Homer"
LOCATE 28, 28: INPUT "Press Enter to Continue", enter$
CLS
SCREEN 12
COLOR 3:
LOCATE 14, 4: PRINT "(The harder the game level, the less time homer has to collect the chips)"
COLOR 15:
LOCATE 12, 10: INPUT "Are you a Beginner(b), Intermediate(i), or Expert(e)"; level$
level$ = LCASE$(level$)
t1 = TIMER
lives = 5
firstmain:
t1 = TIMER
RANDOMIZE TIMER
x% = 100: y% = 200
x1% = 75: y1% = 200: z1% = 77: w1% = 215
x2% = 125: y2% = 198: z2% = 123: w2% = 215
x3% = 77: y3% = 216: z3% = 81: w3% = 230
x4% = 122.5: y4% = 216: z4% = 119.5: w4% = 232
x5% = 101: y5% = 233
x6% = 101: y6% = 232
x7% = 101: y7% = 236
x8% = 101: y8% = 234
x9% = 101: y9% = 235
x10% = 100: y10% = 241
x11% = 100: y11% = 200
x12% = 100: y12% = 175.5
x13% = 95: y13% = 178
x14% = 90: y14% = 207
x15% = 93.5: y15% = 207.5
x16% = 110: y16% = 207
x17% = 113.5: y17% = 207.5
x18% = 101: y18% = 218
x19% = 76: y19% = 215
x20% = 125: y20% = 215
TIMER ON
PLAY "p6<l32cdef p32 >cdef p32 >cdef.<"
main:
CLS
SCREEN 12
LINE (0, 0)-(635, 475), 11, B
LINE (0, 100)-(210, 102), 11, BF 'inner walls
LINE (200, 475)-(202, 270), 11, BF
LINE (400, 0)-(402, 250), 11, BF
LINE (540, 475)-(542, 200), 11, BF
potato = INT(RND * 600) + 15
chip = INT(RND * 430) + 15
CIRCLE (potato, chip), 10, 14, 0, 3.3, .5
CIRCLE (potato, chip + 3), 10, 14, 2.8, .6, .7
PAINT (potato, chip), 14
COLOR 10:
LOCATE , 55: PRINT "Your Score:"; score
LOCATE 1, 6: PRINT "Lives Remaining:"; lives
DO
LINE (0, 0)-(635, 475), 11, B
LINE (0, 100)-(210, 102), 11, BF 'inner walls
LINE (200, 475)-(202, 270), 11, BF
LINE (400, 0)-(402, 250), 11, BF
LINE (540, 475)-(542, 200), 11, BF
'draw the character here
CIRCLE (x%, y%), 30, 14, .1, 3.1, 1.2 'top of head
LINE (x1%, y1%)-(z1%, w1%), 14 'middle sides
LINE (x2%, y2%)-(z2%, w2%), 14
LINE (x3%, y3%)-(z3%, w3%), 14 'lower head sides
LINE (x4%, y4%)-(z4%, w4%), 14
CIRCLE (x5%, y5%), 20, 7, 0, 3.3, .5 'upper mouth
CIRCLE (x6%, y6%), 20, 14, 0, 3.3, .5 'upper mouth yellow
CIRCLE (x7%, y7%), 20, 7, 2.8, .6, .7 'lower mouth
PAINT (x8%, y8%), 7
CIRCLE (x9%, y9%), 20, 0, 3, 0, .3 'mouth line
CIRCLE (x10%, y10%), 9, 0, 3, 0, .4
PAINT (x11%, y11%), 14 'paint head yellow
CIRCLE (x12%, y12%), 11, 0, .1, 3.1, .35 'hair
CIRCLE (x13%, y13%), 10, 0, .7, 3.1, .3
CIRCLE (x14%, y14%), 10, 7 'left eye
PAINT (x14%, y14%), 15, 7
PAINT (x14%, y14%), 15
CIRCLE (x15%, y15%), 1.5, 0 'left eye black
PAINT (x15%, y15%), 0
CIRCLE (x16%, y16%), 10, 7 'right eye
PAINT (x16%, y16%), 15, 7
CIRCLE (x17%, y17%), 1.5, 0 'right eye black
PAINT (x17%, y17%), 0
CIRCLE (x18%, y18%), 4, 7 'nose
PAINT (x18%, y18%), 14, 7
CIRCLE (x19%, y19%), 6, 14, 1.4, 4.9, 1.7 'left ear
PAINT (x19%, y19%), 14
CIRCLE (x20%, y20%), 6, 14, 4, 2, 2.1 'right ear
PAINT (x20%, y20%), 14
'this is where it tells the computer to move you if you press a key
SELECT CASE INKEY$
CASE IS = "6"
LINE (x% - 20, y% - 20)-(x% + 20, y% + 20), 0, BF
LINE (x1% - 20, y1% - 20)-(x1% + 20, y1% + 20), 0, BF
LINE (z1% - 20, w1% - 20)-(z1% + 20, w1% + 20), 0, BF
LINE (x2% - 20, y2% - 20)-(x2% + 20, y2% + 20), 0, BF
LINE (z2% - 20, w2% - 20)-(z2% + 20, w2% + 20), 0, BF
LINE (x3% - 20, y3% - 20)-(x3% + 20, y3% + 20), 0, BF
LINE (z3% - 20, w3% - 20)-(z3% + 20, w3% + 20), 0, BF
LINE (x4% - 20, y4% - 20)-(x4% + 20, y4% + 20), 0, BF
LINE (z4% - 20, w4% - 20)-(z4% + 20, w4% + 20), 0, BF
LINE (x5% - 20, y5% - 20)-(x5% + 20, y5% + 20), 0, BF
LINE (x6% - 20, y6% - 20)-(x6% + 20, y6% + 20), 0, BF
LINE (x7% - 20, y7% - 20)-(x7% + 20, y7% + 20), 0, BF
LINE (x8% - 20, y8% - 20)-(x8% + 20, y8% + 20), 0, BF
LINE (x9% - 20, y9% - 20)-(x9% + 20, y9% + 20), 0, BF
LINE (x10% - 20, y10% - 20)-(x10% + 20, y10% + 20), 0, BF
LINE (x11% - 20, y11% - 20)-(x11% + 20, y11% + 20), 0, BF
LINE (x12% - 20, y12% - 20)-(x12% + 20, y12% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x14% - 20, y14% - 20)-(x14% + 20, y14% + 20), 0, BF
LINE (x15% - 20, y15% - 20)-(x15% + 20, y15% + 20), 0, BF
LINE (x16% - 20, y16% - 20)-(x16% + 20, y16% + 20), 0, BF
LINE (x17% - 20, y17% - 20)-(x17% + 20, y17% + 20), 0, BF
LINE (x18% - 20, y18% - 20)-(x18% + 20, y18% + 20), 0, BF
LINE (x19% - 20, y19% - 20)-(x19% + 20, y19% + 20), 0, BF
LINE (x20% - 20, y20% - 20)-(x20% + 20, y20% + 20), 0, BF
x% = x% + 20
x1% = x1% + 20
z1% = z1% + 20
x2% = x2% + 20
z2% = z2% + 20
x3% = x3% + 20
z3% = z3% + 20
x4% = x4% + 20
z4% = z4% + 20
x5% = x5% + 20
x6% = x6% + 20
x7% = x7% + 20
x8% = x8% + 20
x9% = x9% + 20
x10% = x10% + 20
x11% = x11% + 20
x12% = x12% + 20
x13% = x13% + 20
x14% = x14% + 20
x15% = x15% + 20
x16% = x16% + 20
x17% = x17% + 20
x18% = x18% + 20
x19% = x19% + 20
x20% = x20% + 20
CASE IS = "4"
LINE (x% - 20, y% - 20)-(x% + 20, y% + 20), 0, BF
LINE (x1% - 20, y1% - 20)-(x1% + 20, y1% + 20), 0, BF
LINE (z1% - 20, w1% - 20)-(z1% + 20, w1% + 20), 0, BF
LINE (x2% - 20, y2% - 20)-(x2% + 20, y2% + 20), 0, BF
LINE (z2% - 20, w2% - 20)-(z2% + 20, w2% + 20), 0, BF
LINE (x3% - 20, y3% - 20)-(x3% + 20, y3% + 20), 0, BF
LINE (z3% - 20, w3% - 20)-(z3% + 20, w3% + 20), 0, BF
LINE (x4% - 20, y4% - 20)-(x4% + 20, y4% + 20), 0, BF
LINE (z4% - 20, w4% - 20)-(z4% + 20, w4% + 20), 0, BF
LINE (x5% - 20, y5% - 20)-(x5% + 20, y5% + 20), 0, BF
LINE (x6% - 20, y6% - 20)-(x6% + 20, y6% + 20), 0, BF
LINE (x7% - 20, y7% - 20)-(x7% + 20, y7% + 20), 0, BF
LINE (x8% - 20, y8% - 20)-(x8% + 20, y8% + 20), 0, BF
LINE (x9% - 20, y9% - 20)-(x9% + 20, y9% + 20), 0, BF
LINE (x10% - 20, y10% - 20)-(x10% + 20, y10% + 20), 0, BF
LINE (x11% - 20, y11% - 20)-(x11% + 20, y11% + 20), 0, BF
LINE (x12% - 20, y12% - 20)-(x12% + 20, y12% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x14% - 20, y14% - 20)-(x14% + 20, y14% + 20), 0, BF
LINE (x15% - 20, y15% - 20)-(x15% + 20, y15% + 20), 0, BF
LINE (x16% - 20, y16% - 20)-(x16% + 20, y16% + 20), 0, BF
LINE (x17% - 20, y17% - 20)-(x17% + 20, y17% + 20), 0, BF
LINE (x18% - 20, y18% - 20)-(x18% + 20, y18% + 20), 0, BF
LINE (x19% - 20, y19% - 20)-(x19% + 20, y19% + 20), 0, BF
LINE (x20% - 20, y20% - 20)-(x20% + 20, y20% + 20), 0, BF
x% = x% - 20
x1% = x1% - 20
z1% = z1% - 20
x2% = x2% - 20
z2% = z2% - 20
x3% = x3% - 20
z3% = z3% - 20
x4% = x4% - 20
z4% = z4% - 20
x5% = x5% - 20
x6% = x6% - 20
x7% = x7% - 20
x8% = x8% - 20
x9% = x9% - 20
x10% = x10% - 20
x11% = x11% - 20
x12% = x12% - 20
x13% = x13% - 20
x14% = x14% - 20
x15% = x15% - 20
x16% = x16% - 20
x17% = x17% - 20
x18% = x18% - 20
x19% = x19% - 20
x20% = x20% - 20
CASE IS = "8"
LINE (x% - 20, y% - 20)-(x% + 20, y% + 20), 0, BF
LINE (x1% - 20, y1% - 20)-(x1% + 20, y1% + 20), 0, BF
LINE (z1% - 20, w1% - 20)-(z1% + 20, w1% + 20), 0, BF
LINE (x2% - 20, y2% - 20)-(x2% + 20, y2% + 20), 0, BF
LINE (z2% - 20, w2% - 20)-(z2% + 20, w2% + 20), 0, BF
LINE (x3% - 20, y3% - 20)-(x3% + 20, y3% + 20), 0, BF
LINE (z3% - 20, w3% - 20)-(z3% + 20, w3% + 20), 0, BF
LINE (x4% - 20, y4% - 20)-(x4% + 20, y4% + 20), 0, BF
LINE (z4% - 20, w4% - 20)-(z4% + 20, w4% + 20), 0, BF
LINE (x5% - 20, y5% - 20)-(x5% + 20, y5% + 20), 0, BF
LINE (x6% - 20, y6% - 20)-(x6% + 20, y6% + 20), 0, BF
LINE (x7% - 20, y7% - 20)-(x7% + 20, y7% + 20), 0, BF
LINE (x8% - 20, y8% - 20)-(x8% + 20, y8% + 20), 0, BF
LINE (x9% - 20, y9% - 20)-(x9% + 20, y9% + 20), 0, BF
LINE (x10% - 20, y10% - 20)-(x10% + 20, y10% + 20), 0, BF
LINE (x11% - 20, y11% - 20)-(x11% + 20, y11% + 20), 0, BF
LINE (x12% - 20, y12% - 20)-(x12% + 20, y12% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x14% - 20, y14% - 20)-(x14% + 20, y14% + 20), 0, BF
LINE (x15% - 20, y15% - 20)-(x15% + 20, y15% + 20), 0, BF
LINE (x16% - 20, y16% - 20)-(x16% + 20, y16% + 20), 0, BF
LINE (x17% - 20, y17% - 20)-(x17% + 20, y17% + 20), 0, BF
LINE (x18% - 20, y18% - 20)-(x18% + 20, y18% + 20), 0, BF
LINE (x19% - 20, y19% - 20)-(x19% + 20, y19% + 20), 0, BF
LINE (x20% - 20, y20% - 20)-(x20% + 20, y20% + 20), 0, BF
y% = y% - 20
y1% = y1% - 20
w1% = w1% - 20
y2% = y2% - 20
w2% = w2% - 20
y3% = y3% - 20
w3% = w3% - 20
y4% = y4% - 20
w4% = w4% - 20
y5% = y5% - 20
y6% = y6% - 20
y7% = y7% - 20
y8% = y8% - 20
y9% = y9% - 20
y10% = y10% - 20
y11% = y11% - 20
y12% = y12% - 20
y13% = y13% - 20
y14% = y14% - 20
y15% = y15% - 20
y16% = y16% - 20
y17% = y17% - 20
y18% = y18% - 20
y19% = y19% - 20
y20% = y20% - 20
CASE IS = "2"
LINE (x% - 20, y% - 20)-(x% + 20, y% + 20), 0, BF
LINE (x1% - 20, y1% - 20)-(x1% + 20, y1% + 20), 0, BF
LINE (z1% - 20, w1% - 20)-(z1% + 20, w1% + 20), 0, BF
LINE (x2% - 20, y2% - 20)-(x2% + 20, y2% + 20), 0, BF
LINE (z2% - 20, w2% - 20)-(z2% + 20, w2% + 20), 0, BF
LINE (x3% - 20, y3% - 20)-(x3% + 20, y3% + 20), 0, BF
LINE (z3% - 20, w3% - 20)-(z3% + 20, w3% + 20), 0, BF
LINE (x4% - 20, y4% - 20)-(x4% + 20, y4% + 20), 0, BF
LINE (z4% - 20, w4% - 20)-(z4% + 20, w4% + 20), 0, BF
LINE (x5% - 20, y5% - 20)-(x5% + 20, y5% + 20), 0, BF
LINE (x6% - 20, y6% - 20)-(x6% + 20, y6% + 20), 0, BF
LINE (x7% - 20, y7% - 20)-(x7% + 20, y7% + 20), 0, BF
LINE (x8% - 20, y8% - 20)-(x8% + 20, y8% + 20), 0, BF
LINE (x9% - 20, y9% - 20)-(x9% + 20, y9% + 20), 0, BF
LINE (x10% - 20, y10% - 20)-(x10% + 20, y10% + 20), 0, BF
LINE (x11% - 20, y11% - 20)-(x11% + 20, y11% + 20), 0, BF
LINE (x12% - 20, y12% - 20)-(x12% + 20, y12% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x14% - 20, y14% - 20)-(x14% + 20, y14% + 20), 0, BF
LINE (x15% - 20, y15% - 20)-(x15% + 20, y15% + 20), 0, BF
LINE (x16% - 20, y16% - 20)-(x16% + 20, y16% + 20), 0, BF
LINE (x17% - 20, y17% - 20)-(x17% + 20, y17% + 20), 0, BF
LINE (x18% - 20, y18% - 20)-(x18% + 20, y18% + 20), 0, BF
LINE (x19% - 20, y19% - 20)-(x19% + 20, y19% + 20), 0, BF
LINE (x20% - 20, y20% - 20)-(x20% + 20, y20% + 20), 0, BF
y% = y% + 20
y1% = y1% + 20
w1% = w1% + 20
y2% = y2% + 20
w2% = w2% + 20
y3% = y3% + 20
w3% = w3% + 20
y4% = y4% + 20
w4% = w4% + 20
y5% = y5% + 20
y6% = y6% + 20
y7% = y7% + 20
y8% = y8% + 20
y9% = y9% + 20
y10% = y10% + 20
y11% = y11% + 20
y12% = y12% + 20
y13% = y13% + 20
y14% = y14% + 20
y15% = y15% + 20
y16% = y16% + 20
y17% = y17% + 20
y18% = y18% + 20
y19% = y19% + 20
y20% = y20% + 20
CASE IS = "7"
LINE (x% - 20, y% - 20)-(x% + 20, y% + 20), 0, BF
LINE (x1% - 20, y1% - 20)-(x1% + 20, y1% + 20), 0, BF
LINE (z1% - 20, w1% - 20)-(z1% + 20, w1% + 20), 0, BF
LINE (x2% - 20, y2% - 20)-(x2% + 20, y2% + 20), 0, BF
LINE (z2% - 20, w2% - 20)-(z2% + 20, w2% + 20), 0, BF
LINE (x3% - 20, y3% - 20)-(x3% + 20, y3% + 20), 0, BF
LINE (z3% - 20, w3% - 20)-(z3% + 20, w3% + 20), 0, BF
LINE (x4% - 20, y4% - 20)-(x4% + 20, y4% + 20), 0, BF
LINE (z4% - 20, w4% - 20)-(z4% + 20, w4% + 20), 0, BF
LINE (x5% - 20, y5% - 20)-(x5% + 20, y5% + 20), 0, BF
LINE (x6% - 20, y6% - 20)-(x6% + 20, y6% + 20), 0, BF
LINE (x7% - 20, y7% - 20)-(x7% + 20, y7% + 20), 0, BF
LINE (x8% - 20, y8% - 20)-(x8% + 20, y8% + 20), 0, BF
LINE (x9% - 20, y9% - 20)-(x9% + 20, y9% + 20), 0, BF
LINE (x10% - 20, y10% - 20)-(x10% + 20, y10% + 20), 0, BF
LINE (x11% - 20, y11% - 20)-(x11% + 20, y11% + 20), 0, BF
LINE (x12% - 20, y12% - 20)-(x12% + 20, y12% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x14% - 20, y14% - 20)-(x14% + 20, y14% + 20), 0, BF
LINE (x15% - 20, y15% - 20)-(x15% + 20, y15% + 20), 0, BF
LINE (x16% - 20, y16% - 20)-(x16% + 20, y16% + 20), 0, BF
LINE (x17% - 20, y17% - 20)-(x17% + 20, y17% + 20), 0, BF
LINE (x18% - 20, y18% - 20)-(x18% + 20, y18% + 20), 0, BF
LINE (x19% - 20, y19% - 20)-(x19% + 20, y19% + 20), 0, BF
LINE (x20% - 20, y20% - 20)-(x20% + 20, y20% + 20), 0, BF
x% = x% - 20: y% = y% - 20
x1% = x1% - 20: y1% = y1% - 20
z1% = z1% - 20: w1% = w1% - 20
x2% = x2% - 20: y2% = y2% - 20
z2% = z2% - 20: w2% = w2% - 20
x3% = x3% - 20: y3% = y3% - 20
z3% = z3% - 20: w3% = w3% - 20
x4% = x4% - 20: y4% = y4% - 20
z4% = z4% - 20: w4% = w4% - 20
x5% = x5% - 20: y5% = y5% - 20
x6% = x6% - 20: y6% = y6% - 20
x7% = x7% - 20: y7% = y7% - 20
x8% = x8% - 20: y8% = y8% - 20
x9% = x9% - 20: y9% = y9% - 20
x10% = x10% - 20: y10% = y10% - 20
x11% = x11% - 20: y11% = y11% - 20
x12% = x12% - 20: y12% = y12% - 20
x13% = x13% - 20: y13% = y13% - 20
x14% = x14% - 20: y14% = y14% - 20
x15% = x15% - 20: y15% = y15% - 20
x16% = x16% - 20: y16% = y16% - 20
x17% = x17% - 20: y17% = y17% - 20
x18% = x18% - 20: y18% = y18% - 20
x19% = x19% - 20: y19% = y19% - 20
x20% = x20% - 20: y20% = y20% - 20
CASE IS = "9"
LINE (x% - 20, y% - 20)-(x% + 20, y% + 20), 0, BF
LINE (x1% - 20, y1% - 20)-(x1% + 20, y1% + 20), 0, BF
LINE (z1% - 20, w1% - 20)-(z1% + 20, w1% + 20), 0, BF
LINE (x2% - 20, y2% - 20)-(x2% + 20, y2% + 20), 0, BF
LINE (z2% - 20, w2% - 20)-(z2% + 20, w2% + 20), 0, BF
LINE (x3% - 20, y3% - 20)-(x3% + 20, y3% + 20), 0, BF
LINE (z3% - 20, w3% - 20)-(z3% + 20, w3% + 20), 0, BF
LINE (x4% - 20, y4% - 20)-(x4% + 20, y4% + 20), 0, BF
LINE (z4% - 20, w4% - 20)-(z4% + 20, w4% + 20), 0, BF
LINE (x5% - 20, y5% - 20)-(x5% + 20, y5% + 20), 0, BF
LINE (x6% - 20, y6% - 20)-(x6% + 20, y6% + 20), 0, BF
LINE (x7% - 20, y7% - 20)-(x7% + 20, y7% + 20), 0, BF
LINE (x8% - 20, y8% - 20)-(x8% + 20, y8% + 20), 0, BF
LINE (x9% - 20, y9% - 20)-(x9% + 20, y9% + 20), 0, BF
LINE (x10% - 20, y10% - 20)-(x10% + 20, y10% + 20), 0, BF
LINE (x11% - 20, y11% - 20)-(x11% + 20, y11% + 20), 0, BF
LINE (x12% - 20, y12% - 20)-(x12% + 20, y12% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x14% - 20, y14% - 20)-(x14% + 20, y14% + 20), 0, BF
LINE (x15% - 20, y15% - 20)-(x15% + 20, y15% + 20), 0, BF
LINE (x16% - 20, y16% - 20)-(x16% + 20, y16% + 20), 0, BF
LINE (x17% - 20, y17% - 20)-(x17% + 20, y17% + 20), 0, BF
LINE (x18% - 20, y18% - 20)-(x18% + 20, y18% + 20), 0, BF
LINE (x19% - 20, y19% - 20)-(x19% + 20, y19% + 20), 0, BF
LINE (x20% - 20, y20% - 20)-(x20% + 20, y20% + 20), 0, BF
x% = x% + 20: y% = y% - 20
x1% = x1% + 20: y1% = y1% - 20
z1% = z1% + 20: w1% = w1% - 20
x2% = x2% + 20: y2% = y2% - 20
z2% = z2% + 20: w2% = w2% - 20
x3% = x3% + 20: y3% = y3% - 20
z3% = z3% + 20: w3% = w3% - 20
x4% = x4% + 20: y4% = y4% - 20
z4% = z4% + 20: w4% = w4% - 20
x5% = x5% + 20: y5% = y5% - 20
x6% = x6% + 20: y6% = y6% - 20
x7% = x7% + 20: y7% = y7% - 20
x8% = x8% + 20: y8% = y8% - 20
x9% = x9% + 20: y9% = y9% - 20
x10% = x10% + 20: y10% = y10% - 20
x11% = x11% + 20: y11% = y11% - 20
x12% = x12% + 20: y12% = y12% - 20
x13% = x13% + 20: y13% = y13% - 20
x14% = x14% + 20: y14% = y14% - 20
x15% = x15% + 20: y15% = y15% - 20
x16% = x16% + 20: y16% = y16% - 20
x17% = x17% + 20: y17% = y17% - 20
x18% = x18% + 20: y18% = y18% - 20
x19% = x19% + 20: y19% = y19% - 20
x20% = x20% + 20: y20% = y20% - 20
CASE IS = "1"
LINE (x% - 20, y% - 20)-(x% + 20, y% + 20), 0, BF
LINE (x1% - 20, y1% - 20)-(x1% + 20, y1% + 20), 0, BF
LINE (z1% - 20, w1% - 20)-(z1% + 20, w1% + 20), 0, BF
LINE (x2% - 20, y2% - 20)-(x2% + 20, y2% + 20), 0, BF
LINE (z2% - 20, w2% - 20)-(z2% + 20, w2% + 20), 0, BF
LINE (x3% - 20, y3% - 20)-(x3% + 20, y3% + 20), 0, BF
LINE (z3% - 20, w3% - 20)-(z3% + 20, w3% + 20), 0, BF
LINE (x4% - 20, y4% - 20)-(x4% + 20, y4% + 20), 0, BF
LINE (z4% - 20, w4% - 20)-(z4% + 20, w4% + 20), 0, BF
LINE (x5% - 20, y5% - 20)-(x5% + 20, y5% + 20), 0, BF
LINE (x6% - 20, y6% - 20)-(x6% + 20, y6% + 20), 0, BF
LINE (x7% - 20, y7% - 20)-(x7% + 20, y7% + 20), 0, BF
LINE (x8% - 20, y8% - 20)-(x8% + 20, y8% + 20), 0, BF
LINE (x9% - 20, y9% - 20)-(x9% + 20, y9% + 20), 0, BF
LINE (x10% - 20, y10% - 20)-(x10% + 20, y10% + 20), 0, BF
LINE (x11% - 20, y11% - 20)-(x11% + 20, y11% + 20), 0, BF
LINE (x12% - 20, y12% - 20)-(x12% + 20, y12% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x14% - 20, y14% - 20)-(x14% + 20, y14% + 20), 0, BF
LINE (x15% - 20, y15% - 20)-(x15% + 20, y15% + 20), 0, BF
LINE (x16% - 20, y16% - 20)-(x16% + 20, y16% + 20), 0, BF
LINE (x17% - 20, y17% - 20)-(x17% + 20, y17% + 20), 0, BF
LINE (x18% - 20, y18% - 20)-(x18% + 20, y18% + 20), 0, BF
LINE (x19% - 20, y19% - 20)-(x19% + 20, y19% + 20), 0, BF
LINE (x20% - 20, y20% - 20)-(x20% + 20, y20% + 20), 0, BF
x% = x% - 20: y% = y% + 20
x1% = x1% - 20: y1% = y1% + 20
z1% = z1% - 20: w1% = w1% + 20
x2% = x2% - 20: y2% = y2% + 20
z2% = z2% - 20: w2% = w2% + 20
x3% = x3% - 20: y3% = y3% + 20
z3% = z3% - 20: w3% = w3% + 20
x4% = x4% - 20: y4% = y4% + 20
z4% = z4% - 20: w4% = w4% + 20
x5% = x5% - 20: y5% = y5% + 20
x6% = x6% - 20: y6% = y6% + 20
x7% = x7% - 20: y7% = y7% + 20
x8% = x8% - 20: y8% = y8% + 20
x9% = x9% - 20: y9% = y9% + 20
x10% = x10% - 20: y10% = y10% + 20
x11% = x11% - 20: y11% = y11% + 20
x12% = x12% - 20: y12% = y12% + 20
x13% = x13% - 20: y13% = y13% + 20
x14% = x14% - 20: y14% = y14% + 20
x15% = x15% - 20: y15% = y15% + 20
x16% = x16% - 20: y16% = y16% + 20
x17% = x17% - 20: y17% = y17% + 20
x18% = x18% - 20: y18% = y18% + 20
x19% = x19% - 20: y19% = y19% + 20
x20% = x20% - 20: y20% = y20% + 20
CASE IS = "3"
LINE (x% - 20, y% - 20)-(x% + 20, y% + 20), 0, BF
LINE (x1% - 20, y1% - 20)-(x1% + 20, y1% + 20), 0, BF
LINE (z1% - 20, w1% - 20)-(z1% + 20, w1% + 20), 0, BF
LINE (x2% - 20, y2% - 20)-(x2% + 20, y2% + 20), 0, BF
LINE (z2% - 20, w2% - 20)-(z2% + 20, w2% + 20), 0, BF
LINE (x3% - 20, y3% - 20)-(x3% + 20, y3% + 20), 0, BF
LINE (z3% - 20, w3% - 20)-(z3% + 20, w3% + 20), 0, BF
LINE (x4% - 20, y4% - 20)-(x4% + 20, y4% + 20), 0, BF
LINE (z4% - 20, w4% - 20)-(z4% + 20, w4% + 20), 0, BF
LINE (x5% - 20, y5% - 20)-(x5% + 20, y5% + 20), 0, BF
LINE (x6% - 20, y6% - 20)-(x6% + 20, y6% + 20), 0, BF
LINE (x7% - 20, y7% - 20)-(x7% + 20, y7% + 20), 0, BF
LINE (x8% - 20, y8% - 20)-(x8% + 20, y8% + 20), 0, BF
LINE (x9% - 20, y9% - 20)-(x9% + 20, y9% + 20), 0, BF
LINE (x10% - 20, y10% - 20)-(x10% + 20, y10% + 20), 0, BF
LINE (x11% - 20, y11% - 20)-(x11% + 20, y11% + 20), 0, BF
LINE (x12% - 20, y12% - 20)-(x12% + 20, y12% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x13% - 20, y13% - 20)-(x13% + 20, y13% + 20), 0, BF
LINE (x14% - 20, y14% - 20)-(x14% + 20, y14% + 20), 0, BF
LINE (x15% - 20, y15% - 20)-(x15% + 20, y15% + 20), 0, BF
LINE (x16% - 20, y16% - 20)-(x16% + 20, y16% + 20), 0, BF
LINE (x17% - 20, y17% - 20)-(x17% + 20, y17% + 20), 0, BF
LINE (x18% - 20, y18% - 20)-(x18% + 20, y18% + 20), 0, BF
LINE (x19% - 20, y19% - 20)-(x19% + 20, y19% + 20), 0, BF
LINE (x20% - 20, y20% - 20)-(x20% + 20, y20% + 20), 0, BF
x% = x% + 20: y% = y% + 20
x1% = x1% + 20: y1% = y1% + 20
z1% = z1% + 20: w1% = w1% + 20
x2% = x2% + 20: y2% = y2% + 20
z2% = z2% + 20: w2% = w2% + 20
x3% = x3% + 20: y3% = y3% + 20
z3% = z3% + 20: w3% = w3% + 20
x4% = x4% + 20: y4% = y4% + 20
z4% = z4% + 20: w4% = w4% + 20
x5% = x5% + 20: y5% = y5% + 20
x6% = x6% + 20: y6% = y6% + 20
x7% = x7% + 20: y7% = y7% + 20
x8% = x8% + 20: y8% = y8% + 20
x9% = x9% + 20: y9% = y9% + 20
x10% = x10% + 20: y10% = y10% + 20
x11% = x11% + 20: y11% = y11% + 20
x12% = x12% + 20: y12% = y12% + 20
x13% = x13% + 20: y13% = y13% + 20
x14% = x14% + 20: y14% = y14% + 20
x15% = x15% + 20: y15% = y15% + 20
x16% = x16% + 20: y16% = y16% + 20
x17% = x17% + 20: y17% = y17% + 20
x18% = x18% + 20: y18% = y18% + 20
x19% = x19% + 20: y19% = y19% + 20
x20% = x20% + 20: y20% = y20% + 20
CASE IS = "5"
CASE IS = "0"
CIRCLE (x% - 40, y% + 10), 2, 4
END SELECT
IF x% >= 620 THEN GOSUB die
IF x% <= 30 THEN GOSUB die
IF y% >= 430 THEN GOSUB die
IF y% <= 30 THEN GOSUB die
IF y% = 100 AND x% <= 220 THEN GOSUB die
IF y% > 200 AND x% = 200 THEN GOSUB die
IF y% < 300 AND x% = 400 THEN GOSUB die
IF y% > 140 AND x% = 540 THEN GOSUB die
IF level$ = "b" THEN GOSUB time1
IF level$ = "i" THEN GOSUB time2
IF level$ = "e" THEN GOSUB time3
LOOP UNTIL POINT(x%, y%) > POINT(potato, chip)
score = score + 5
PLAY "mb"
PLAY "l32cde"
PLAY "l32def"
IF score = 50 THEN
CALL win
ELSE GOTO main
END IF
time1:
IF TIMER - t1 > 50 THEN
GOSUB time
ELSE RETURN
END IF
time2:
IF TIMER - t1 > 40 THEN
GOSUB time
ELSE RETURN
END IF
time3:
IF TIMER - t1 > 30 THEN
GOSUB time
ELSE RETURN
END IF
die:
PLAY "l4dl6c"
COLOR 11
LOCATE 13, 26: PRINT "* * * * * * * * * * * * * *"
LOCATE 14, 26: PRINT "* HOMER HAS DIED *"
LOCATE 16, 26: PRINT "* * * * * * * * * * * * * *"
LOCATE 15, 26: INPUT "* Press enter to continue *", enter1$
LET score = 0
LET lives = lives - 1
IF lives = 0 THEN
GOSUB over1
ELSE GOTO firstmain
END IF
time:
PLAY "l4d16c"
COLOR 11
LOCATE 12, 26: PRINT "* * * * * * * * * * * * * *"
LOCATE 13, 26: PRINT "* Time's Up... *"
LOCATE 14, 26: PRINT "* HOMER HAS DIED * "
LOCATE 16, 26: PRINT "* * * * * * * * * * * * * *"
LOCATE 15, 26: INPUT "* Press enter to continue *", enter1$
CLS
LET score = 0
TIMER OFF
GOSUB firstmain
over1:
CLS
SCREEN 12
COLOR 10:
LOCATE 13, 26: PRINT "* * * * * * * * * * * * * *"
LOCATE 14, 26: PRINT "* Game Over *"
LOCATE 15, 26: PRINT "* * * * * * * * * * * * * *"
PLAY "mb"
PLAY "mb"
PLAY "<C+ L6 f L6 g+ L10 a+ L4 g+ L6 f L6 c# L8 <a L10 g+ g# g L4 g+ L10 g+ G+ g L12G+p64 L4>a L10>C+ C+ c L6C+"
FOR i = 1 TO 50000
NEXT i
RUN "A:\CASINO.BAS"
END
SUB ouch
PLAY "d 8"
score = score - 5
END SUB
SUB over
COLOR 10:
LOCATE 13, 26: PRINT "* * * * * * * * * * * * * *"
LOCATE 14, 26: PRINT "* Game Over *"
LOCATE 15, 26: PRINT "* * * * * * * * * * * * * *"
PLAY "mb"
PLAY "mb"
PLAY "<C+ L6 f L6 g+ L10 a+ L4 g+ L6 f L6 c# L8 <a L10 g+ g# g L4 g+ L10 g+ G+ g L12G+p64 L4>a L10>C+ C+ c L6C+"
FOR i = 1 TO 50000
NEXT i
END
END SUB
SUB scor
score = 0
COLOR 10:
LOCATE , 55: PRINT "Your Score:"; score
END SUB
SUB win
COLOR 10:
LOCATE 13, 26: PRINT "* * * * * * * * * * * * * *"
LOCATE 14, 26: PRINT "* YOU WIN!!! *"
LOCATE 15, 26: PRINT "* * * * * * * * * * * * * *"
PLAY "mb"
PLAY "p6<l32cdef p32 >cdef p32 >cdef"
FOR i = 1 TO 50000
NEXT i
END
END SUB