backdrop on : autocam off : sync on : hide mouse

make matrix 1,2000,2000,10,10
position camera 0,1000,1000
point camera 1000,0,1000
make object cube 1,50
make object cube 2,200
position object 1,100,0,1000
position object 2,100,10,800
hide object 2

do
if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-3)
if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+3)

if upkey()=1 then zrotate camera wrapvalue(camera angle z()-3)
if downkey()=1 then zrotate camera wrapvalue(camera angle z()+3)

yrotate object 1,wrapvalue(camera angle y()-90)
yrotate object 2,wrapvalue(camera angle y()-90)

sync
osx=object screen x(1)
if (osx<mousex())
	ktx=mousex()-osx
	move object 1,-10
	mozg=mozg+1
	osx=object screen x(1)
	ktx2=mousex()-osx
	if ktx-ktx2<>0 then hossz=int(ktx2/(ktx-ktx2))*10 else hossz=1
	if (ktx-ktx2)>ktx2 then hossz=1
	move object 1,0-hossz
	endif
osx=object screen x(1)
if (osx>mousex())
	ktx=osx-mousex()
	move object 1,10
	mozg=mozg+1
	osx=object screen x(1)
	ktx2=osx-mousex()
	if ktx-ktx2<>0 then hossz=int(ktx2/(ktx-ktx2))*10 else hossz=1
	move object 1,hossz
	endif

yrotate object 1,wrapvalue(camera angle y())
yrotate object 2,wrapvalue(camera angle y())

osy=object screen y(1)
if (osy<mousey())
	kty=mousey()-osy
	move object 1,-10
	mozg=mozg+1
	osy=object screen y(1)
	kty2=mousey()-osy
	if kty-kty2<>0 then hossz=int(kty2/(kty-kty2))*10 else hossz=1
	if (kty-kty2)>kty2 then hossz=1
	move object 1,0-hossz
	endif
osy=object screen y(1)
if (osy>mousey())
	kty=osy-mousey()
	move object 1,10
	mozg=mozg+1
	osy=object screen y(1)
	kty2=osy-mousey()
	if kty-kty2<>0 then hossz=int(kty2/(kty-kty2))*10 else hossz=1
	move object 1,hossz
	endif
if osy=mousey()
	position object 2,object position x(1),object position y(1),object position z(1)
	endif
loop