Okay, I havent gone away yet
. Is this close to what you're asking?
rem Initial settings
sync on : sync rate 60
backdrop on : hide mouse
autocam off
position camera 0,100,-500
Rem Create Objects
make object cube 1,100
position object 1,0,500,0
make object box 2,1000,10,1000
position object 2,0,-10,0
rem Game loop
do
Controls()
`Bizar guys gravity
posx#=object position x(1)
posy#=object position y(1)
posz#=object position z(1)
playergrav#=playergrav#-0.26
posy#=posy#+playergrav#
position object 1,posx#,posy#,posz#
`my dumb attemp to make it stop falling
if object collision(1,2)
posy#=40
playergrav#=0
position object 1,posx#,posy#,posz#
endif
`jump
if spacekey() then position object 1,posx#,posy#+10,posz#
Rem Display Info
ox#=object position x(1)
oy#=object position y(1)
oz#=object position z(1)
Set Cursor 0,0
Print "ObjectPos X:",posx#," Y:",posy#," Z:",posz#
sync
loop
end
Function Controls()
If Keystate(17)=1 Then Move Object 1,2
If Keystate(31)=1 Then Move Object 1,-2
If Keystate(30)=1 Then Move Object Left 1,2
If Keystate(32)=1 Then Move Object Right 1,2
If Upkey()=1 Then Move Object Up 1,2
If Downkey()=1 Then Move Object Down 1,2
Yrotate object 1,Object Angle y (1)+MouseMoveX()/4
EndFunction
!
