Sorry your browser is not supported!

sync on
sync rate 0

type DragBoxType
    x1, y1, x2, y2 as integer
endtype

global mX, mY, mZ, mC, DBToggle
global DBox as DragBoxType

make object cube 1,1

do
    DragBox()
    HUD()
    sync
loop
end

function DragBox()
    Mouse()
    if mC 
        if DBToggle = 0
            DBox.x1 = mX: DBox.y1 = mY: DBToggle = 1
        endif
        Mouse()
        line DBox.x1, DBox.y1, mX, DBox.y1: line DBox.x1, mY, mX, mY: line DBox.x1, DBox.y1, DBox.x1, mY: line mX, DBox.y1, mX, mY
    else 
        DBToggle = 0
    endif  
endfunction

function HUD()
    Mouse()
    set cursor 0,0: print "FPS: "; screen fps(): print "Mouse X: "; mX: print "Mouse Y: "; mY: print "Mouse Z: "; mZ: print "Mouse C: "; mC
endfunction

function Mouse()
    mX = mousex()
    mY = mousey()
    mZ = mouseZ()
    mC = mouseClick()
endfunction

sync on
sync rate 8

make object cube 1, 10

type DragBoxVT
	sx as integer
	sy as integer
	ex as integer
	ey as integer
endtype

type MouseVt
	oldclick as integer
	currentclick as integer
	click as integer
	x as integer
	y as integer
endtype

global Dragbox as DragBoxVT
global Mouse as MouseVT

rem main loop
do
	
	rem get mouse input
	rem 0 - nothing
	rem 1 - positive edge
	rem 2 - pressing
	rem 3 - negative edge
	ControlMouse()
	
	rem set new box positions
	if Mouse.click = 1
		DragBox.sx = Mouse.x
		DragBox.sy = Mouse.y
	endif
	if Mouse.click = 2 or Mouse.click = 3
		DragBox.ex = Mouse.x
		DragBox.ey = Mouse.y
	endif
	
	rem draw drag box
	DrawDragBox()
	
	rem debugging
	set cursor 0 , 0
	print Mouse.click
	
	rem refresh screen
	sync
	
rem end of main loop
loop

rem end
end

function ControlMouse()
	
	rem process edge detection
	Mouse.oldclick = Mouse.currentclick
	Mouse.currentclick = mouseclick()
	if Mouse.oldclick = 0 and Mouse.currentclick = 0 then Mouse.click = 0
	if Mouse.oldclick = 0 and Mouse.currentclick = 1 then Mouse.click = 1
	if Mouse.oldclick = 1 and Mouse.currentclick = 1 then Mouse.click = 2
	if Mouse.oldclick = 1 and Mouse.currentclick = 0 then Mouse.click = 3
	
	rem mouse positions
	Mouse.x = mousex()
	Mouse.y = mousey()
	
endfunction

function DrawDragBox()
	
	rem draw box (uses advanced 2D)
	a2fillbox DragBox.sx , DragBox.sy , DragBox.ex , DragBox.ey , 0x5000FF00
	a2box DragBox.sx , DragBox.sy , DragBox.ex , DragBox.ey , 0xFF00FF00
	
endfunction