i disagree, but i seem to be outnumbered so next challenge shall be decreased to 1 week
and IVE never had a problem with time, i dont usually enter because i spend most of my coding time learning and making small programs to test stuff
i will have more time now cuz schools out for us so ill try to enter more often
i already have v1 of my game done so here it is:
sync on : hide mouse
ink rgb(0,255,0),0 : box 0,450,639,479
GroundImg=1 : get image GroundImg,0,450,640,480
cls
new_shot:
do
paste image GroundImg,0,450
ink rgb(255,255,255),0
circle 5,445,5
mx=mousex()
my=mousey()
angle=atanfull(mx-5,my-445)
line 5,445,5+sin(angle)*50,445+(cos(angle)*50)
text 10,10,"Space to Fire"
sync
cls
if spacekey()=1 then goto FIRE
loop
FIRE:
forward#=(sin(angle)*15)
up#=(cos(180-angle)*15)
originalup#=up#
posx=5 : posy=445 : dist#=0.0
do
if dist#<=550
circle posx,posy,5
else
circle 550,posy,5
endif
paste image GroundImg,0,450
text 10,10,str$(dist#)+"ft"
sync
cls
dec posy,up#
inc posx,forward#
dist#=posx
dec up#,.5
if posy>=445
if originalup#<=.5
goto end_bounce
else
posy=445
originalup#=originalup#*(3/4.0)
up#=originalup#
endif
endif
loop
end_bounce:
circle posx,445,5
do
paste image GroundImg,0,450
text 10,10,str$(dist#)+"ft"
text 10,40,"Click to Fire Again"
if mouseclick()=1 then goto new_shot
sync
loop
and PLEASE dont give me crap about my use of goto's here, I know i shouldnt use them but I chose to here because they seemed more logical here to me
There are only 10 kinds of people in the world, those who understand binary and those who dont
