Sorry your browser is not supported!

sync on:sync rate 0

rem turn the automatic camera off - it sucks big time :)
autocam off

rem make the object that we're going to use as our 'building'
make object box 1,10,5,6
rem colour the object red
color object 1, rgb( 255,0,0 )

rem create the object that we're going to use as the ground
make object box 2,1000,0.1,1000
rem colour the ground green
color object 2, rgb( 0,255,0 )

rem position the camera so we can see
position camera -30, 50, -30
point camera 0,0,0

do 

rem if the W key is held
if keystate(17) =  1
	
	rem get the object picked, only if the object picked is the ground, therefore the start and end values of the command 
	` are the ground id, assign it to a temporary variable, as the data is not actually needed
	temp = pick object( mousex(), mousey(), 2, 2 )
	
	rem position the object at the camera position + the vectors of the pick object
	position object 1, get pick vector x() + camera position x(), get pick vector y() + camera position y(), get pick vector z() + camera position z()

endif
	
	rem sync the screen!
	sync
	
loop

make matrix 1,1000,1000,25,25
autocam off
position camera 0,50,0
point camera 20,0,20

make object sphere 1,5

sync on
sync rate 0
angle# = 0

do
gosub camera
gosub texta
gosub move_cursor

if mouseclick()= 1 and mouseflag = 0
	mouseflag = 1
	new_build = find free object()
	make object cube new_build,1
	position object new_build,object position x(1),object position y(1),object position z(1)
endif
if mouseclick()= 0 and mouseflag = 1
	mouseflag = 0
endif

sync
loop

camera:
if leftkey()=1 
angle# = wrapvalue(angle# - 1)
endif
if rightkey()=1
angle# = wrapvalue(angle# + 1)
endif
yrotate camera angle#
return


move_cursor:
if angle# < 70
if mousex() < object screen x(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
if mousex() > object screen x(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
if mousey() > object screen y(1)
	move object 1,-1
endif
if mousey() < object screen y(1)
	move object 1,1
endif
endif
if angle# >= 70 and angle# < 170
if mousex() < object screen x(1)
	move object 1,1
endif
if mousex() > object screen x(1)
	move object 1,-1
endif
if mousey() > object screen y(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
if mousey() < object screen y(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
endif
if angle# >= 170 and angle# < 260
if mousex() < object screen x(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
if mousex() > object screen x(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
if mousey() > object screen y(1)
	move object 1,1
endif
if mousey() < object screen y(1)
	move object 1,-1
endif
endif
if angle# >= 260
if mousex() < object screen x(1)
	move object 1,-1
endif
if mousex() > object screen x(1)
	move object 1,1
endif
if mousey() > object screen y(1)
	position object 1,object position x(1)+1,object position y(1),object position z(1)
endif
if mousey() < object screen y(1)
	position object 1,object position x(1)-1,object position y(1),object position z(1)
endif
endif
return


text:
set cursor 0,0
print "camera angle y: ",camera angle y()
print "object angle y: ",object angle y(1)
return