Here's a function and how to use it:
rem draw unfilled box
rem by TheComet
rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
show mouse
rem main loop
click=0
do
rem check if mouse is pressed
if mouseclick()=1
rem set start positions
if click=0
startx=mousex()
starty=mousey()
click=1
endif
rem get end positions
endx=mousex()
endy=mousey()
rem draw box
empty_box(startx,starty,endx,endy,255,255,0)
else
click=0
endif
rem refresh screen
sync
rem end of main loop
loop
rem Functions ------------------------------------------------------------
function empty_box(x1,y1,x2,y2,r,g,b)
rem set ink colour
ink rgb(r,g,b),0
rem draw box
line x1,y1,x2,y1
line x2,y1,x2,y2
line x2,y2,x1,y2
line x1,y2,x1,y1
rem print how big the box is
cx=(x1+x2)/2
cy=(y1+y2)/2
center text cx,cy,str$(x2-x1)+"*"+str$(y2-y1)
endfunction
TheComet
Make the path of your enemies easier with Waypoint Pro!
