sync on
sync rate 60
make camera 1
position camera 1,0,150,0
backdrop on
color backdrop RGB(0,150,255)
make object box 2,200,1,200
position object 2,0,-1,0
make object cube 3,20
position object 3,50,0,0
make object cube 4,20
position object 4,-50,0,0
make object cube 5,50
position object 4,0,0,100
color object 2,RGB(50,0,0)
color object 3,RGB(0,255,0)
color object 4,RGB(255,50,0)
camX = 0
camY = 150
camZ = 0
point camera 1,object position x(2), 0, object position z(2)
do
camX = camera position x(1)
camY = camera position y(1)
camZ = camera position z(1)
if keystate(208) = 1
camZ = camZ - 3
ENDIF
if keystate(200) = 1
camZ = camZ + 3
ENDIF
if keystate(203) = 1
camX = camx - 3
ENDIF
if keystate(205) = 1
camX = camx + 3
ENDIF
if mouseclick() = 1
i = -100
while i <= 200
h = -100
if mousex() = i
while h <= 200
if mousez() = h
delete object 2
break
endif
h = h + 1
endwhile
endif
i = i + 1
ENDWHILE
endif
position camera 1,camX,camY,camZ
sync
LOOP
I'm trying to get if the mouse clicks on this object then delete it, though no errors get ran it doesn't seem to work.
Always program as if the person maintaining your program is a psychopath that knows where you live
