YAY!
I finished the new AI.
here's the compressed
randomize timer():lines = 10:dim x#(2):dim y#(2):dim velocity#(2):size = 2:targets = 4:dim xvelocity#(2):dim yprev#(2):dim linesx(lines):dim linesx2(lines):dim linesy(lines):dim collision(2):dim points#(2):winner = 10:do:cls:finalscore# = 0.00:points#(1) = 0.00:points#(2) = 0.00:x#(1) = 340.00000:x#(2) =340.00000:y#(1) = 0.00000:y#(2) = 0.00000:velocity#(1) = 0.00000
velocity#(2) = 0.00000:ytop# = 0.00000:gravity# =0.00981:xvelocity#(1) = 0.00:xvelocity#(2) = 0.00:center text 320, 240, "Be the first to score " + str$(winner) + " points by hitting the blue circle":center text 320, 255, "Move with the arrow keys. Up and Down control how high you bounce.":center text 320, 270, "The 'R' key resets the map.":wait key:repeat:for n = 1 to lines:linesx(n) = rnd(600) + 20:repeat:linesx2(n) = rnd(600) + 20:until linesx2(n) > linesx(n):linesy(n) = rnd(440) + 20:next n:targetx = rnd(640 - (2*targets)) +targets:targety = rnd (480 - (2*targets)) +targets:collect = 0:repeat:cls:ink rgb(0,255,255),0:circle targetx, targety, targets:for z = 1 to 2
collision(z) = 0:ink rgb(255,255,255),0:if z = 2:ink rgb(255,0,0),0:endif:if y#(2) < ytop#:ytop# = y#(2):endif:print points#(z):circle x#(z), y#(z), size:velocity#(z) = velocity#(z) + gravity#:y#(z) = y#(z) + velocity#(z):if y#(z) > 480 - size:y#(z) = 480 - size:velocity#(z) = velocity#(z) * -0.7:collision(z) = 1:xvelocity#(z) = xvelocity#(z) * 0.6:endif:if y#(z) < 0 + size:y#(z) = 0 + size:velocity#(z) = velocity#(z) * -0.7:endif:for n = 1 to lines:if z = 1:line linesx(n),linesy(n),linesx2(n),linesy(n)
endif:if x#(z) > linesx(n) and x#(z) < linesx2(n):if yprev#(z) <= linesy(n) - size and y#(z) > linesy(n) - size:y#(z) = linesy(n) - size:velocity#(z) = velocity#(z) * -0.7:collision(z) = 1:xvelocity#(z) = xvelocity#(z) * 0.6:endif:endif:next n:yprev#(z) = y#(z):if x#(z) <= 0 + size or x#(z) >= 640 - size:xvelocity#(z) = xvelocity#(z) * -1:if x#(z) < 0:x#(z) = 0 + size:endif:if x#(z) > 640:x#(z) = 640 - size:endif:endif:if collision(1) = 1:if leftkey() = 1 and downkey() <> 1:xvelocity#(1) = xvelocity#(1) - 0.4:if upkey() <> 1:velocity#(1) = velocity#(1) - 0.09
endif:endif:if rightkey() = 1 and downkey() <> 1:xvelocity#(1) = xvelocity#(1) + 0.4:if upkey() <> 1:velocity#(1) = velocity#(1) - 0.09:endif:endif:if upkey() = 1:velocity#(1) = velocity#(1) - 0.4:endif:if downkey() = 1:velocity#(1) = velocity#(1) + 0.2:endif:endif:if collision(2) = 1:if x#(2) < targetx and y#(2) > targety:if x#(2) + xvelocity#(2) < targetx:xvelocity#(2) = xvelocity#(2) + 0.4:velocity#(2) = velocity#(2) - 0.09:endif:endif:if x#(2) > targetx and y#(2) > targety:if x#(2) - xvelocity#(2) > targetx:xvelocity#(2) = xvelocity#(2) - 0.4
velocity#(2) = velocity#(2) - 0.09:endif:endif:if y#(2) >= targety:if ytop# < targety:velocity#(2) = velocity#(2) + 0.2:endif:if ytop# > targety:velocity#(2) = velocity#(2) - 0.4:endif:endif:if y#(2) < targety:for n = 1 to lines:if y#(2) = linesy(n) - size:if abs(x#(2) - linesx(n)) + abs(linesx(n) - targetx) > abs(linesx2(n) - x#(2)) + abs(linesx(n) - targetx):xvelocity#(2) = xvelocity#(2) + 0.4:velocity#(2) = velocity#(2) - 0.09:endif:if abs(x#(2) - linesx(n)) + abs(linesx(n) - targetx) < abs(linesx2(n) - x#(2)) + abs(linesx(n) - targetx):xvelocity#(2) = xvelocity#(2) - 0.4:velocity#(2) = velocity#(2) - 0.09:endif:endif:next n:endif
ytop# = 480.00000:endif:x#(z) = x#(z) + xvelocity#(z):if x#(z) + size > targetx - targets and x#(z) - size < targetx + targets:if y#(z) + size > targety - targets and y#(z) - size < targety + targets:collect = 1:points#(z) = points#(z) + 1:endif:endif:next z:until collect = 1 or inkey$() = "r":if points#(1) = winner:cls:ink rgb(255,255,255),0:center text 320, 240, "Congratulations! You won!":wait key:endif:if points#(2) = winner:cls:center text 320, 240, "You lost...":wait key:endif:until points#(1) = 10 or points#(2) = 10:ink rgb(255,255,255),0:cls
finalscore# = points#(1)/(points#(2) + 1):repeat:center text 320, 240, "Final score: " + str$(finalscore#):input "Play again?(y/n)", yesno$:until yesno$ = "y" or yesno$ = "n":if yesno$ = "n":end:endif:loop
and here's the original
randomize timer()
lines = 10
dim x#(2)
dim y#(2)
dim velocity#(2)
size = 2
targets = 4
dim xvelocity#(2)
dim yprev#(2)
dim linesx(lines)
dim linesx2(lines)
dim linesy(lines)
dim collision(2)
dim points#(2)
winner = 10
do
cls
finalscore# = 0.00
points#(1) = 0.00
points#(2) = 0.00
x#(1) = 340.00000
x#(2) =340.00000
y#(1) = 0.00000
y#(2) = 0.00000
velocity#(1) = 0.00000
velocity#(2) = 0.00000
ytop# = 0.00000
gravity# =0.00981
xvelocity#(1) = 0.00
xvelocity#(2) = 0.00
center text 320, 240, "Be the first to score " + str$(winner) + " points by hitting the blue circle"
center text 320, 255, "Move with the arrow keys. Up and Down control how high you bounce."
center text 320, 270, "The 'R' key resets the map."
wait key
repeat
for n = 1 to lines
linesx(n) = rnd(600) + 20
repeat
linesx2(n) = rnd(600) + 20
until linesx2(n) > linesx(n)
linesy(n) = rnd(440) + 20
next n
targetx = rnd(640 - (2*targets)) +targets
targety = rnd (480 - (2*targets)) +targets
collect = 0
repeat
cls
ink rgb(0,255,255),0
circle targetx, targety, targets
for z = 1 to 2
collision(z) = 0
ink rgb(255,255,255),0
if z = 2
ink rgb(255,0,0),0
endif
if y#(2) < ytop#
ytop# = y#(2)
endif
print points#(z)
circle x#(z), y#(z), size
velocity#(z) = velocity#(z) + gravity#
y#(z) = y#(z) + velocity#(z)
if y#(z) > 480 - size
y#(z) = 480 - size
velocity#(z) = velocity#(z) * -0.7
collision(z) = 1
xvelocity#(z) = xvelocity#(z) * 0.6
endif
if y#(z) < 0 + size
y#(z) = 0 + size
velocity#(z) = velocity#(z) * -0.7
endif
for n = 1 to lines
if z = 1
line linesx(n),linesy(n),linesx2(n),linesy(n)
endif
if x#(z) > linesx(n) and x#(z) < linesx2(n)
if yprev#(z) <= linesy(n) - size and y#(z) > linesy(n) - size
y#(z) = linesy(n) - size
velocity#(z) = velocity#(z) * -0.7
collision(z) = 1
xvelocity#(z) = xvelocity#(z) * 0.6
endif
endif
next n
yprev#(z) = y#(z)
if x#(z) <= 0 + size or x#(z) >= 640 - size
xvelocity#(z) = xvelocity#(z) * -1
if x#(z) < 0
x#(z) = 0 + size
endif
if x#(z) > 640
x#(z) = 640 - size
endif
endif
if collision(1) = 1
if leftkey() = 1 and downkey() <> 1
xvelocity#(1) = xvelocity#(1) - 0.4
if upkey() <> 1
velocity#(1) = velocity#(1) - 0.09
endif
endif
if rightkey() = 1 and downkey() <> 1
xvelocity#(1) = xvelocity#(1) + 0.4
if upkey() <> 1
velocity#(1) = velocity#(1) - 0.09
endif
endif
if upkey() = 1
velocity#(1) = velocity#(1) - 0.4
endif
if downkey() = 1
velocity#(1) = velocity#(1) + 0.2
endif
endif
if collision(2) = 1
if x#(2) < targetx and y#(2) > targety
if x#(2) + xvelocity#(2) < targetx
xvelocity#(2) = xvelocity#(2) + 0.4
velocity#(2) = velocity#(2) - 0.09
endif
endif
if x#(2) > targetx and y#(2) > targety
if x#(2) - xvelocity#(2) > targetx
xvelocity#(2) = xvelocity#(2) - 0.4
velocity#(2) = velocity#(2) - 0.09
endif
endif
if y#(2) >= targety
if ytop# < targety
velocity#(2) = velocity#(2) + 0.2
endif
if ytop# > targety
velocity#(2) = velocity#(2) - 0.4
endif
endif
if y#(2) < targety
for n = 1 to lines
if y#(2) = linesy(n) - size
if abs(x#(2) - linesx(n)) + abs(linesx(n) - targetx) > abs(linesx2(n) - x#(2)) + abs(linesx(n) - targetx)
xvelocity#(2) = xvelocity#(2) + 0.4
velocity#(2) = velocity#(2) - 0.09
endif
if abs(x#(2) - linesx(n)) + abs(linesx(n) - targetx) < abs(linesx2(n) - x#(2)) + abs(linesx(n) - targetx)
xvelocity#(2) = xvelocity#(2) - 0.4
velocity#(2) = velocity#(2) - 0.09
endif
endif
next n
endif
ytop# = 480.00000
endif
x#(z) = x#(z) + xvelocity#(z)
if x#(z) + size > targetx - targets and x#(z) - size < targetx + targets
if y#(z) + size > targety - targets and y#(z) - size < targety + targets
collect = 1
points#(z) = points#(z) + 1
endif
endif
next z
until collect = 1 or inkey$() = "r"
if points#(1) = winner
cls
ink rgb(255,255,255),0
center text 320, 240, "Congratulations! You won!"
wait key
endif
if points#(2) = winner
cls
center text 320, 240, "You lost..."
wait key
endif
until points#(1) = 10 or points#(2) = 10
ink rgb(255,255,255),0
cls
finalscore# = points#(1)/(points#(2) + 1)
repeat
center text 320, 240, "Final score: " + str$(finalscore#)
input "Play again?(y/n)", yesno$
until yesno$ = "y" or yesno$ = "n"
if yesno$ = "n"
end
endif
loop
Enjoy!
And if you have any suggestions, please post.
And if anyone gets 10 points let me know, cause its near impossible
