Sorry your browser is not supported!

xrotate camera mousey()
yrotate camera mousex()

if leftkey()=1 then move camera camera position x()-5

make object cube 1,10
do
position object 1,camera position x(),camera position y(),camera position z()+80
sync:loop

rotate camera cameranumber#,0,90,0:move camera cameranumber#,10:rotate camera cameranumber#,0,-90,0

x#=object position x(player)
y#=object position y(player)
x#=oldx#
y#=oldy#
do
if object collision(player,house)>0
 oldx#=x#
 oldy#=y#
endif
loop

do
gosub collision
gosub controller
loop

collision:
if object collision(player,pistol)
yrotate object pistol mousex()
glue object to limb pistol,player,0
position object pistol x#+50,y#-10,z#
endif
return

controller:
rotate object pistol,mousex()
randomize matrix water,rnd(5)
return

    speed#=10.0

    rem /* mouse movements */
    mx#=wrapvalue(mx#+mousemovey()/3)
    my#=wrapvalue(my#+mousemovex()/3)
    mz#=wrapvalue(mz#+mousemovez()/3)

    rem /* smooth angle rotation */
    ca#=wrapvalue(curveangle(mx#,ca#,2.5))
    cb#=wrapvalue(curveangle(my#,cb#,2.5))
    cc#=wrapvalue(curveangle(mz#,cc#,2.5))

    rem /* player controls */
    if upkey()=1 then x#=x#+sin(my#)*speed#:z#=z#+cos(my#)*speed#
    if downkey()=1 then x#=x#-sin(my#)*speed#:z#=z#-cos(my#)*speed#
    if leftkey()=1 then x#=x#+sin(my#-90)*speed#:z#=z#+cos(my#-90)*speed#
    if rightkey()=1 then x#=x#+sin(my#+90)*speed#:z#=z#+cos(my#+90)*speed#

    rem /* smooth positioning */
    cx#=curvevalue(x#,cx#,5.0)
    cz#=curvevalue(z#,cz#,5.0)

    rem /* camera movement */
    rotate camera ca#,cb#,cc#
    position camera cx#,y#,cz#