Sorry your browser is not supported!

rem Init the game
print "Loading world..." : wait 1
sync on : sync rate 77
set window on : set display mode 1024, 768, 32
backdrop on : autocam off

rem Setup the world
make object sphere 1, 2000
make object sphere 2, 10

position object 1, 0, 0, 0
position object 2, 0, 2020, 0
point object 2, 1, 2020, 0

rem Updown
updown as integer

rem The main loop
repeat

  rem The text
  text 1, 1, "Move player with arrowkeys and the mouse." + str$( object angle x( 2 ) )
  text 1, 21, "Press backspace to end program." + str$( object angle y( 2 ) ) + " :z: " + str$( object angle z( 2 ) )

  rem The subrutines
  gosub sub_player
  gosub sub_gravity
  gosub sub_collision

  rem Position the camera
  position camera object position x( 2 ), object position y( 2 ), object position z( 2 )
  rotate camera object angle x( 2 ), object angle y( 2 ), object angle z( 2 )
  move camera -50

  sync

until keystate( 14 ) = 1

sub_gravity:

rem If there is no collision with the planet...
if object collision(1, 2) = 0 then gravity()

return

sub_player:

rem Rotate to the left and right
if leftkey() = 1 then turn object left 2, 1.5
if rightkey() = 1 then turn object right 2, 1.5

rem Rotate up and down
if downkey() = 1
  pitch object up 2, 1
  inc updown, 1
endif
if upkey() = 1
  pitch object down 2, 1
  dec updown, 1
endif

rem Movement
if keystate( 17 ) = 1 then move object 2, 3
if keystate( 31 ) = 1 then move object 2, -3

return

sub_collision:

rem The collision
if object collision(1, 2) = 1
  ax# = object angle x( 2 )
  ay# = object angle y( 2 )
  az# = object angle z( 2 )
  point object 2, 0, 0, 0
  move object 2, -3.1
  rotate object 2, ax#, ay#, az#
endif

return

end

function gravity()

rem Define variables
ax as float
ay as float
az as float

rem Store data
ax = object angle x( 2 )
ay = object angle y( 2 )
az = object angle z( 2 )

rem Perform gravity effect
point object 2, 0, 0, 0
move object 2, 3.5
rotate object 2, ax, ay, az

endfunction

distance as float
speed as float
speed =.1

sync on
autocam off
position camera 25,25,-25
point camera 0,0,0

`make planet
make object sphere 1,20
color object 1, rgb(128,128,128)
position object 1, 0,0,0

`make vehicle
make object cone 2,1
rotate object  2, -90,00,00
fix object pivot 2
color object 2, rgb(255,0,0)
SET OBJECT CULL 2,0

position object 2, 0,0,0



`land on the planet by picking a spot (x,y,z).
`point the vehicle toward that spot, then pitch down 90 degrees
point object 2, 25,25,-25
pitch object down 2, 90


do
text 5,5, "Use numeric keypad to move:  8,2: forward/reverse.  4,6: turn.  1,3: strafe"

`always start the vehicle at the center of the planet
position object 2, 0,0,0

`strafe vehicle
 if keystate(79) then roll object left 2,speed
 if keystate(81) then roll object right 2,speed

 `forward/reverse
  if keystate(72) then pitch object up 2,speed
  if keystate(80) then pitch object down 2,speed

`turn vehicle
  if keystate(75) then turn object left 2,speed
  if keystate(77) then turn object right 2,speed

`when finished rotating the vehicle, move it to the surface
move object up 2, 11
distance=intersect object(1, 0,0,0, object position x(2), object position y(2), object position z(2))
move object down 2, (10.5-distance)

sync
loop

distance as float
speed as float
speed =.1

sync on
autocam off
position camera 25,25,-25
point camera 0,0,0

`make planet
make object sphere 1,20
color object 1, rgb(128,128,128)
position object 1, 0,0,0

`make vehicle
make object cone 2,1
rotate object  2, -90,00,00
fix object pivot 2
color object 2, rgb(255,0,0)
SET OBJECT CULL 2,0

position object 2, 0,0,0



`land on the planet by picking a spot (x,y,z).
`point the vehicle toward that spot, then pitch down 90 degrees
point object 2, 25,25,-25
pitch object down 2, 90


do
text 5,5, "Use numeric keypad to move:  8,2: forward/reverse.  4,6: turn.  1,3: strafe"

`always start the vehicle at the center of the planet
position object 2, 0,0,0

`strafe vehicle
 if keystate(81) then roll object left 2,speed
 if keystate(79) then roll object right 2,speed

 `forward/reverse
  if keystate(72) then pitch object up 2,speed
  if keystate(80) then pitch object down 2,speed

`turn vehicle
  if keystate(75) then turn object left 2,speed
  if keystate(77) then turn object right 2,speed

`when finished rotating the vehicle, move it to the surface
move object up 2, 11

distance=intersect object(1, 0,0,0, object position x(2), object position y(2), object position z(2))
move object down 2, (10.5-distance)

position camera object position x(2)*2,object position y(2)*2,object position z(2)*2
set camera to object orientation 2
move camera 10
pitch camera up 30
turn camera left 180

sync
loop