Sorry your browser is not supported!

if upkey()=1; move object up 50,1
endif

rem startup
cls
sync on
sync rate 20
maximize window
set display mode 800,600,32
hide mouse

autocam off
POSITION CAMERA 0,50,-50
POINT CAMERA 0,0,0

make matrix 1,64,64,64,64

make object cube 1,10
position object 1,0,0,0
texture object 1,2

rem main game loop
do

if upkey()=1 then move object 1, 0.5
if downkey()=1 then move object 1, -0.3
if leftkey()=1 then turn object left 1,1
if rightkey()=1 then turn object right 1,1

sync
loop

Rem Example For DBPro With Keyboard Cursor Keys Steering
Sync On
CLS 0
Hide Mouse
Make Matrix 1,500,900,20,20
rem load object "C:Program FilesThe Game CreatorsFPS CreatorFilesentitybankeai_crownvicCrownvic.X", 1
make object box 1, 50, 50, 50
scale object 1, 55 ,55,55
Position Object 1,250,Get Ground Height(1,250,250)+1.0,250
Camdist# = 250.0
TrackAngle = 0: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 5.0
Camsmooth = 200
ColFlag = 0
Speed#=0.0

Do
If keystate(46)=1 then camdist# = 140.0
If keystate(45)=1 then camdist# = 250.0
if keystate(44)=1 then trackangle = 360
if keystate(44)=0 then trackangle = 180
  rem  MMx = MouseMoveX()
  rem Y# = WrapValue(Object Angle Y(1)+MMx): Yrotate Object 1,Y#
  If LeftKey()=1 Then Y# = WrapValue(Object Angle Y(1)-.15): Yrotate Object 1,Y#
  If RightKey()=1 Then Y# = WrapValue(Object Angle Y(1)+.15): Yrotate Object 1,Y#
if upkey()=1 then move object 1, 1
if Downkey()=1 then move object 1, -0.8

  ObjX# = Object Position X(1): ObjZ# = Object Position Z(1)
  ObjHeight# = Get Ground Height(1,ObjX#,ObjZ#)+100
  Position Object 1,ObjX#,ObjHeight#+1.0,ObjZ#
  Camheight# = ObjHeight#+ReqCamHeight#
  Set Camera To Follow ObjX#,ObjHeight#,ObjZ#,WrapValue(Object Angle Y(1)+TrackAngle),Camdist#,Camheight#,Camsmooth,ColFlag

  Sync
Loop

REM Project: car2
REM Created: 6/17/2008 5:10:45 PM
REM
REM ***** Main Source File *****
REM
REM ***** Main Source File *****
REM