Sorry your browser is not supported!

if keystate(17) = 1
  phy add rigid body local force objID,0,0,30,2
endif

phy set rigid body position objID,posX#,posY#,posZ#

sync on
sync rate 60
autocam off
PHY START

Make object sphere 1,10
phy make rigid body dynamic sphere 1

Make object box 2,100,10,100
position object 2,0,-100,0
phy make rigid body static box 2


do
if upkey() then Phy Add rigid body local force 1,0,0,50,-1
if rightkey() then phy set rigid body rotation 1,object angle x(1),object angle y(1)+1,object angle z(1)
if downkey() then Phy Add rigid body local force 1,0,0,-50,-1
if leftkey() then phy set rigid body rotation 1,object angle x(1),object angle y(1)-1,object angle z(1)

   rem Control the camera
   set camera to follow Object Position X(1),Object Position Y(1),Object Position Z(1),Object Angle Y(1),50,80,3.5,0
   point camera Object Position X(1),Object Position Y(1),Object Position Z(1)


phy update
sync
loop

sync on
sync rate 60
autocam off
PHY START

GLOBAL MyBall = 1
GLOBAL MyGround = 2
GLOBAL MyMode = 1
GLOBAL MyForce = 100

Make object sphere MyBall,10
phy make rigid body dynamic sphere MyBall

Make object box MyGround,100,10,100
position object MyGround,0,-100,0
phy make rigid body static box MyGround


do
if upkey() then Phy Add rigid body local force MyBall,0,0,MyForce,MyMode
if rightkey() then Phy Add rigid body local force MyBall,MyForce,0,0,MyMode
if downkey() then Phy Add rigid body local force MyBall,0,0,-MyForce,MyMode
if leftkey() then Phy Add rigid body local force MyBall,-MyForce,0,0,MyMode

   rem Control the camera
   set camera to follow Object Position X(MyBall),Object Position Y(MyBall),Object Position Z(MyBall),Object Angle Y(MyBall),50,80,3.5,0
   point camera Object Position X(MyBall),Object Position Y(MyBall),Object Position Z(MyBall)


phy update
sync
loop

sync on
sync rate 60
autocam off
PHY START

GLOBAL MyBall = 1
GLOBAL MyGround = 2
GLOBAL MyMode = 1
GLOBAL MyForce = 5000

Make object sphere MyBall,10
phy make rigid body dynamic sphere MyBall

Make object box MyGround,1000,10,1000
position object MyGround,0,-10,0
phy make rigid body static box MyGround

create bitmap 1,10,10
dot 5,5
get image 1,0,0,10,10
delete bitmap 1

texture object MyGround,1
scale object texture MyGround,60,60

do
if upkey() then Phy Add rigid body force MyBall,0,0,MyForce,MyMode
if rightkey() then Phy Add rigid body force MyBall,MyForce,0,0,MyMode
if downkey() then Phy Add rigid body force MyBall,0,0,-MyForce,MyMode
if leftkey() then Phy Add rigid body force MyBall,-MyForce,0,0,MyMode

   rem Control the camera
   set camera to follow Object Position X(MyBall),Object Position Y(MyBall),Object Position Z(MyBall),Object Angle Y(MyBall),50,80,3.5,0
   point camera Object Position X(MyBall),Object Position Y(MyBall),Object Position Z(MyBall)


phy update
sync
loop

sync on
sync rate 60
autocam off
PHY START

GLOBAL MyBall = 1
GLOBAL MyGround = 2
GLOBAL MyMode = 1
GLOBAL MyForce = 5000

Make object sphere MyBall,10
phy make rigid body dynamic sphere MyBall

Make object box MyGround,1000,10,1000
position object MyGround,0,-10,0
phy make rigid body static box MyGround

create bitmap 1,10,10
dot 5,5
get image 1,0,0,10,10
delete bitmap 1
texture object MyGround,1
scale object texture MyGround,60,60

create bitmap 1,5,5
ink RGB(0,0,0),RGB(255,255,255)
box 0,0,5,5
ink RGB(255,255,255),RGB(0,0,0)
box 2,2, 4,4
get image 2,0,0,5,5
delete bitmap 1

texture object MyBall,2
scale object texture MyBall,75,75

do
if upkey() then Phy Add rigid body force MyBall,0,0,MyForce,MyMode
if rightkey() then Phy Add rigid body force MyBall,MyForce,0,0,MyMode
if downkey() then Phy Add rigid body force MyBall,0,0,-MyForce,MyMode
if leftkey() then Phy Add rigid body force MyBall,-MyForce,0,0,MyMode

   rem Control the camera
   set camera to follow Object Position X(MyBall),Object Position Y(MyBall),Object Position Z(MyBall),30,50,10,35,0

phy update
sync
loop