Sorry your browser is not supported!

`My first dbp application ever
`Paul Drage 22/02/2008

`hiding mouse because i can
hide mouse

`camera making
`make camera 1
`set camera view 1, 100,100,100,100

`load image
load image "C:\Program Files\Dark Basic Software\Dark Basic Professional\media\water.bmp",1

`setup light
make light 1 : set directional light 1, 90, 90, 0 : show light 1

`make a plain
make object plain 1, 1000, 1000
rotate object 1,90,90,0
`texture the plain
texture object 1,1

`make/load an object that will be my character / player
load object "C:\Program Files\Dark Basic Software\Dark Basic Professional\media\models\model.dbo",2
`position the object/player
position object 2, 0,35,0
`face the character/object in a direction. x(accross hoz) y(vertical) z(front back axis)
`point object 2, 90, 0, 90


`main program loop
do

`just for purposes of programming so i know
`which scancode is which physical keypress
`print scancode()

`get players current xyz for camera follow function
Player_posX=object position x(1)
Player_posY=object position y(1)
Player_posZ=object position z(1)

camx = camera position x(0)
camy = camera position y(0)
camz = camera position z(0)

   `forwards and backwards
   if keystate (200) = 1 then move object 2, 0.5
   if keystate (208) = 1 then move object 2, -0.5
   `turn left or right
   if keystate (203) = 1 then turn object left 2, 0.5
   if keystate (205) = 1 then turn object right 2, 0.5

`point camera Player_posX,Player_posY,Player_posZ
position camera player_posx+10,player_posy+40,player_posz+10

`set camera to follow Player_posX,Player_posY,Player_posZ,0,10,2,0,1


loop

`wait for a key press then..
`wait key

`My first dbp application ever
`Paul Drage 22/02/2008

`hiding mouse because i can
hide mouse

sync on

`camera setup variables
Camdist# = 35.0
TrackAngle = 0: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 80.0

`load image
`load image "C:Program FilesDark Basic SoftwareDark Basic Professionalmediawater.bmp",1

`setup light
make light 1 : set directional light 1, 90, 90, 0 : show light 1

`make a plain
`make object plain 1, 1000, 1000
`rotate object 1,90,90,0
`texture the plain
`texture object 1,1
Make Matrix 1,500,500,20,20

`make/load an object that will be my character / player
load object "C:Program FilesDark Basic SoftwareDark Basic Professionalmediamodelsmodel.dbo",1
`position the object/player
`position object 1, 0,35,0
Position Object 1,250,Get Ground Height(1,250,250)+25.0,250
`face the character/object in a direction. x(accross hoz) y(vertical) z(front back axis)
`point object 2, 90, 0, 90


`main program loop
do

`just for purposes of programming so i know
`which scancode is which physical keypress
`print scancode()

`get players current xyz for camera follow function
Player_posX=object position x(1)
Player_posY=object position y(1)
Player_posZ=object position z(1)



   `forwards and backwards
   if keystate (200) = 1 then move object 1, 0.5
   if keystate (208) = 1 then move object 1, -0.5
   `turn left or right
   if keystate (203) = 1 then turn object left 1, 0.5
   if keystate (205) = 1 then turn object right 1, 0.5

`point camera Player_posX,Player_posY,Player_posZ
`position camera player_posx+10,player_posy+40,player_posz+10
ObjHeight# = Get Ground Height(1,Player_posX,Player_posZ)
Camheight# = ObjHeight#+ReqCamHeight#
set camera to follow Player_posX,ObjHeight#,Player_posZ,WrapValue(Object Angle Y(1)+TrackAngle),50,Camheight#,10,0
rotate camera 0, 35, WrapValue(Object Angle Y(1)), 0
sync

loop

`wait for a key press then..
`wait key

`forwards and backwards
   if keystate (200) = 1 then move object 1, 0.5
   if keystate (208) = 1 then move object 1, -0.5
   `turn left or right
   if keystate (203) = 1 then turn object left 1, 0.5
   if keystate (205) = 1 then turn object right 1, 0.5

Sync On
CLS 0
Hide Mouse
Make Matrix 1,500,500,20,20
Make Object Cube 1,1
Color Object 1,RGB(255,0,0)
Position Object 1,250,Get Ground Height(1,250,250)+1.0,250
Camdist# = 15.0
TrackAngle = 0: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 5.0
Camsmooth = 200
ColFlag = 0
Do
  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)-.3): Yrotate Object 1,Y#
  If RightKey()=1 Then Y# = WrapValue(Object Angle Y(1)+.3): Yrotate Object 1,Y#
  Move Object 1,.05
  ObjX# = Object Position X(1): ObjZ# = Object Position Z(1)
  ObjHeight# = Get Ground Height(1,ObjX#,ObjZ#)
  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
  Center Text 320,0,"Steer The Cube With The Mouse"
Loop