heres my V2(no longer entry)
EDIT:
try this smartguy it needs to be set display mode 640,480,16
it won't work in 32 bit because i used point() in 16 bit
restart:
restore first
set display mode 640,480,16
score=0
sync on : sync rate 0
gosub cross:cls
gosub circle
gosub menu:cls
dim x(8)
dim y(8)
oldtime=timer()
do
ink rgb(255,255,225),rgb(20,20,20)
text 260,20, "SCORE>"+str$(score)
text 260,200, "GET READY!"
sleep 3000
Rx=rnd(550)
Ry=rnd(415)
gosub circle
for x=1 to 8
read x(x)
read y(x)
x(x)=x(x)*65-65
y(x)=y(x)*65-65
next x
while forever=0
time=(timer()-oldtime)/1000
ink rgb(255,255,225),rgb(20,20,20)
mx=mousex()
my=mousey()
cls
text 260,20, "SCORE>"+str$(score)
if time>42 and time<50
x(1)=x(1)+1
x(2)=x(2)+1
x(3)=x(3)+1
x(4)=x(4)+1
x(5)=x(5)-1
x(6)=x(6)-1
x(7)=x(7)-1
endif
if time>51 and time<59
if time>53 then t=+1
if time<=53 then t=-1
x(1)=x(1)+t
x(2)=x(2)+t
x(3)=x(3)+t
x(4)=x(4)+t
x(5)=x(5)+t
x(6)=x(6)+t
x(7)=x(7)+t
x(8)=x(8)+t
endif
for x=1 to 8
if time>30 and time<41
y(x)=y(x)+1
endif
if image exist(x)=1 then paste image x,x(x),y(x),1
next x
if mouseclick()=0 then press=0
if mouseclick()=1 and press=0
press=1
if point(mx,my)=222 then score=score+10:gosub check
if point(mx,my)=44544 then score=score+20:gosub check
if point(mx,my)=14605824 then score=score+30:gosub check
if point(mx,my)=14548992 then score=score+50:gosub check
endif
if time=10 then exit
if time=19 then exit
if time=30 then exit
if time=40 then exit
if time=49 then exit
if time=58 then goto win
sync
endwhile
sync
cls
loop
END
` ~SUB FILES~
win:
cls
oldfont$=text font$()
oldsize=text size()
set text size 100
set text font "verdana"
text 50,195, "SCORE:"+str$(score)
sleep 500
repeat
text 50,195, "SCORE:"+str$(score)
sync
cls
until mouseclick()=1
set text size oldsize
set text font oldfont$
sync
goto restart
cross:
ink rgb(255,255,225),0
line 8,0,8,16
line 0,8,16,8
get image 11,0,0,16,16
return
menu:
ny=220
nx=-100
do
cls
paste image 1,nx,ny,1
ink rgb(255,255,225),rgb(20,20,20)
text 190,190, "Get points by shooting the targets"
ink rgb(0,0,225),rgb(20,20,20)
text 190,210, "BLUE:10"
ink rgb(0,175,0),rgb(20,20,20)
text 190,230, "GREEN:20"
ink rgb(225,225,0),rgb(20,20,20)
text 190,250, "YELLOW:30"
ink rgb(225,0,0),rgb(20,20,20)
text 190,270, "RED:50"
if nx<100 then nx=nx+1
ink rgb(255,255,225),rgb(20,20,20)
if nx=100 then text 190,290, "Click to continue"
if nx=100 and mouseclick()=1 then exit
sync
loop
return
check:
for x=1 to 8
if mx>=x(x) and mx<=x(x)+50 and my>=y(x) and my<=y(x)+50 then delete image x
next x
return
` That1Smart Guy's circlemaker
circle:
ink rgb(0,0,225),0
for x=0 to 49
for y=0 to 49
if distance#(x,y,25,25)<=24
dot x,y
endif
next y
next x
```````
ink rgb(0,175,0),0
for x=0 to 49
for y=0 to 49
if distance#(x,y,25,25)<=18
dot x,y
endif
next y
next x
```````````
ink rgb(225,225,0),0
for x=0 to 49
for y=0 to 49
if distance#(x,y,25,25)<=12
dot x,y
endif
next y
next x
`````````
ink rgb(225,0,0),0
for x=0 to 49
for y=0 to 49
if distance#(x,y,25,25)<=6
dot x,y
endif
next y
next x
for x=1 to 10
get image x,0,0,60,60
next x
return
`````````````````````
function distance#(x1,y1,x2,y2)
dist#=sqrt(((x2-x1)*(x2-x1))+((y2-y1)*(y2-y1)))
dist#=abs(dist#)
endfunction dist#
`````````````````````
` ~DATA~
` X,Y
first:
data 2,2, 2,6, 5,3, 5,5, 9,2, 9,6, 0,0, 0,0
data 0,0, 10,1, 1,7, 0,0, 5,3, 5,4, 5,5, 5,6
data 1,1, 2,1, 9,7, 10,7, 5,1, 5,7, 1,6, 10,2
data 1,1, 3,2, 4,3, 5,4, 6,4, 7,3, 8,2, 10,1
data 1,1, 1,3, 1,5, 1,7, 10,6, 10,4, 10,2, 0,0
data 3,1, 3,3, 3,5, 3,7, 9,1, 9,3, 9,5, 9,7If at first you don't succeed-Pause-Go to last checkpoint
