Sorry your browser is not supported!

remstart
------------------------------------------------------------------
program name: Shoot the green box ;-) YEA!
------------------------------------------------------------------
written by:Mika J Olausse
date: 14-12-05
------------------------------------------------------------------
comments:I dont got any thing else to do :( . hehe
------------------------------------------------------------------
remend
sync on
randomize timer()
hide mouse
rem score/hit variable
score= 0
hit= 0
rem circle variables
x= 320
y= 240
speedx= 2
speedy= 2
ox= x+speedx
oy= y+speedy
rem box variables
restart_box:
x1= 10
y1= 10
x2= 20
y2= 20
speedx1= rnd(6)+3
speedy1= rnd(6)+3
speedx2= speedx1
speedy2= speedy1
ox1= x1+speedx1
ox2= x2+speedx2
oy1= y1+speedy1
oy2= y2+speedy2
return
false= 0
true= 1
Do
cls
``--
rem move the box
ox1= ox1 + speedx1
oy1= oy1 + speedy1
ox2= ox2 + speedx2
oy2= oy2 + speedy2
if oy1>480 and oy2>480:oy1=y1:oy2=y2:ox1=x1:ox2=x2:score=score-2:endif
if hit= true:score= score+1:gosub restart_box:endif
box ox1,oy1,ox2,oy2
rem control the circle
ox= mousex()
oy= mousey()
ox= ox + speedx
oy= oy + speedy
line ox-5,oy-5,ox+5,oy+5
line ox+5,oy-5,ox-5,oy+5
circle ox,oy,10
rem change the color of the box if mouse point is over it
if mouseclick()=1 and ox > ox1-x1 and ox < ox1+x1 and oy > oy1-y1 and oy < oy1+y1
ink RGB(0,255,0),0
hit= true
else
ink RGB(0,128,0),0
hit= false
endif
rem print the score
text 620,10,str$(score)
``--
sync
loop

remstart
   -------------------------------------------------------------------
   program name: Shoot the green box ;-) YEA! version 1.5.
   -------------------------------------------------------------------
   written by:Mika J Olausse(vind AzZ)
   date: 14-12-05
   -------------------------------------------------------------------
   comments:I dont got any thing else to do :( . hehe
   -------------------------------------------------------------------
remend
sync on:randomize timer():hide mouse
DIM x1(5)
DIM y1(5)
DIM x2(5)
DIM y2(5)
DIM speedx1(5)
DIM speedy1(5)
DIM speedx2(5)
DIM speedy2(5)
DIM ox1(5)
DIM ox2(5)
DIM oy1(5)
DIM oy2(5)
rem box variables
for n= 1 to 5
x1(n)= 10
y1(n)= 10
x2(n)= 20
y2(n)= 20
speedx1(n)= rnd(5)+1
speedy1(n)= rnd(4)+2
speedx2(n)= speedx1(n)
speedy2(n)= speedy1(n)
ox1(n)= x1(n)+speedx1(n)
ox2(n)= x2(n)+speedx2(n)
oy1(n)= y1(n)+speedy1(n)
oy2(n)= y2(n)+speedy2(n)
next n
rem initialize score/hit variable
score= 0
hit= 0
rem circle variables
x= 320
y= 240
speedx= 2
speedy= 2
ox= x+speedx
oy= y+speedy
REM initialize false or true "command"
false= 0
true= 1
Do
cls
for n2= 1 to 5
``--
rem move the box
ox1(n2)= ox1(n2) + speedx1(n2)
oy1(n2)= oy1(n2) + speedy1(n2)
ox2(n2)= ox2(n2) + speedx2(n2)
oy2(n2)= oy2(n2) + speedy2(n2)
if oy1(n2)>480 and oy2(n2)>480:gosub reset_n2_box:score=score-10:endif
box ox1(n2),oy1(n2),ox2(n2),oy2(n2)
rem control the circle
ox= mousex()
oy= mousey()
ox= ox + speedx
oy= oy + speedy
line ox-5,oy-5,ox+5,oy+5
line ox+5,oy-5,ox-5,oy+5
circle ox,oy,10
rem change the color of the box if mouse point is over it
if mouseclick()=1 and ox > ox1(n2)-x1(n2) and ox < ox1(n2)+x1(n2) and oy > oy1(n2)-y1(n2) and oy < oy1(n2)+y1(n2)
ink RGB(0,255,0),0
hit= 1:score= score+1
gosub reset_n2_box
REM MISSING CODE.
else
ink RGB(0,128,0),0
hit= false
endif
rem print the score
textypo=text width(str$(score))
text 620-textypo,10,str$(score)
``--
next n2
sync
loop
reset_n2_box:
oy1(n2)=y1(n2):oy2(n2)=y2(n2):ox1(n2)=x1(n2):ox2(n2)=x2(n2)
return