Sorry your browser is not supported!

make object cube 1,1
y=1
do
if upkey()=1 and mouseclick()=0 then position object 1,0,y,0 : inc y
if downkey()=1 and mouseclick()=0 then position object 1,0,y,0 : dec y
if upkey()=1 and mouseclick()=1 then move object 1,5
if downkey()=1 and mouseclick()=1 then move object 1,-5
if rightkey()=1 then turn object right 1,5
if leftkey()=1 then turn object left 1,5
if spacekey()=1 then position object 1,0,0,0 : rotate object 1,0,0,0
sync
loop

Sync On : Sync Rate 0
Hide Mouse

Make Matrix 1,1000,1000,20,20
Make Object Sphere 1,5 : Position Object 1,500,0,500

Do

CAy#=WrapValue(CAy#+(MouseMoveX()*.5))
CAx#=WrapValue(CAx#+(MouseMoveY()*.5))
Rotate Camera CAx#,CAy#,0
YRotate Object 1,CAy#

If DownKey()=1 Then Move Object 1,-10
If UpKey()=1 Then Move Object 1,10

Px=Object Position X(1)
Py=Object Position Y(1)
Pz=Object Position Z(1)

If Py>Get Ground Height(1,Px,Pz) Then Dec Py
If MouseClick()=2 Then Dec Py,5
If MouseClick()=1 Then Inc Py,5

If RightKey()=1
Px=NewXValue(Px,CAy#+90,10)
Pz=NewZValue(Pz,CAy#+90,10)
EndIf
If LeftKey()=1
Px=NewXValue(Px,CAy#-90,10)
Pz=NewZValue(Pz,CAy#-90,10)
EndIf

Position Object 1,Px,Py,Pz

Cx=NewXValue(Px,CAy#,-20)
Cz=NewZValue(Pz,CAy#,-20)
Position Camera Cx,Py+5,Cz

Sync
Loop

Sync On : Sync Rate 0
Hide Mouse

Make Matrix 1,1000,1000,20,20
Load Object "Idle.x",1 : Scale Object 1,10,10,10
YRotate Object 1,180 : Fix Object Pivot 1
Position Object 1,500,0,500

Do

CAy#=WrapValue(CAy#+(MouseMoveX()*.5))
CAx#=WrapValue(CAx#+(MouseMoveY()*.5))
Rotate Camera CAx#,CAy#,0
YRotate Object 1,CAy#

If DownKey()=1 Then Move Object 1,-10
If UpKey()=1 Then Move Object 1,10

Px=Object Position X(1)
Py=Object Position Y(1)
Pz=Object Position Z(1)

If Py>Get Ground Height(1,Px,Pz) Then Dec Py
If MouseClick()=2 Then Dec Py,5
If MouseClick()=1 Then Inc Py,5

If RightKey()=1
Px=NewXValue(Px,CAy#+90,10)
Pz=NewZValue(Pz,CAy#+90,10)
EndIf
If LeftKey()=1
Px=NewXValue(Px,CAy#-90,10)
Pz=NewZValue(Pz,CAy#-90,10)
EndIf

Position Object 1,Px,Py,Pz

Cx=NewXValue(Px,CAy#,-20)
Cz=NewZValue(Pz,CAy#,-20)
Position Camera Cx,Py+5,Cz

Sync
Loop