Need a little help with puting a object on the map.

Author

Message

Game Programming Beginner

20

Years of Service

User Offline

Joined: 18th Aug 2004

Location: USA VA

Posted: 19th Aug 2004 21:26

Link

Hi all,

I'm trying to put a tank on the map, as you would be looking at about mid-way to the front of the tank in a 3d person view. Right now you can use the arrow keys to move the Camera, but the tank will not show up in the view. I’m making a WW1 tank game that you would be playing the allies and you going after the axis tanks. So if someone can help me out with this I would appreciate the help vary much

I been going at this 4 hours now.

WindowsXP Professional, AMD Athlon 2.500+ GHz CPU, 512 MB of RAM, GEForce2 MX 64mb of RAM. Let the Game's Begin...

Back to top

Profile PM Email

Dodo

20

Years of Service

User Offline

Joined: 8th Aug 2004

Location: eating lunch

Posted: 19th Aug 2004 21:42

Link

here, try this:

Sync On
Sync Rate 30
Hide mouse
Backdrop on
Set camera range 1,5000

Fog on
Fog distance 4000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "c:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Marty\grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Randomize the matrix
randomize matrix 1,125
X#=5000
Z#=5000

Rem Make player spawn
Load object "c:\DarkBASIC Professional\Models\Military\Tanks\tank.x",2
Texture object 10,2
loop object 2
position object 10,100,0,100

Rem Main loop
Do
   OldCamAngleY# = CameraAngleY#
   OldCamAngleX# = CameraAngleX#
   CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)
   CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

Rem  Control input for camera
   If Upkey()=1
      XTest# = Newxvalue(X#,CameraAngleY#,10)
      ZTest# = Newzvalue(Z#,CameraAngleY#,10)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

If Downkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10)
      ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)
   Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)
   Yrotate object CurveAngle(CameraAngleY#,OldCamAngleY#,24)
   Xrotate object CurveAngle(CameraAngleX#,OldCamAngleX#,24)

Y# = Get ground height(1,X#,Z#)
   Position Camera X#,Y#+50,Z#
   position object 10,X#,Y#,Z#

If Leftkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)
      ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

If Rightkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)
      ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

Rem Refresh Screen
   Sync
Loop

+ Code Snippet

Sync On
Sync Rate 30
Hide mouse
Backdrop on
Set camera range 1,5000

Fog on
Fog distance 4000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "c:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Marty\grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Randomize the matrix
randomize matrix 1,125
X#=5000
Z#=5000

Rem Make player spawn
Load object "c:\DarkBASIC Professional\Models\Military\Tanks\tank.x",2
Texture object 10,2
loop object 2
position object 10,100,0,100


Rem Main loop
Do
   OldCamAngleY# = CameraAngleY#
   OldCamAngleX# = CameraAngleX#
   CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)
   CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)


   Rem  Control input for camera
   If Upkey()=1
      XTest# = Newxvalue(X#,CameraAngleY#,10)
      ZTest# = Newzvalue(Z#,CameraAngleY#,10)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   If Downkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10)
      ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)
   Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)
   Yrotate object CurveAngle(CameraAngleY#,OldCamAngleY#,24)
   Xrotate object CurveAngle(CameraAngleX#,OldCamAngleX#,24)
   

   Y# = Get ground height(1,X#,Z#)
   Position Camera X#,Y#+50,Z#
   position object 10,X#,Y#,Z#

   If Leftkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)
      ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   If Rightkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)
      ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   Rem Refresh Screen
   Sync
Loop

Back to top

Profile PM Email Website

Game Programming Beginner

20

Years of Service

User Offline

Joined: 18th Aug 2004

Location: USA VA

Posted: 19th Aug 2004 21:50

Link

Hey thank for the help but it a no go I get this msg. parameter for 'yrotate object' do not match object number, yangle' at line 61 but it was a good try

I'm been looking at code all night to get this

WindowsXP Professional, AMD Athlon 2.500+ GHz CPU, 512 MB of RAM, GEForce2 MX 64mb of RAM. Let the Game's Begin...

Back to top

Profile PM Email

Game Programming Beginner

20

Years of Service

User Offline

Joined: 18th Aug 2004

Location: USA VA

Posted: 19th Aug 2004 22:00

Link

This is the line in the code that has the bug.

Yrotate object CurveAngle(CameraAngleY#,OldCamAngleY#,24)

any help I do appreciate it

WindowsXP Professional, AMD Athlon 2.500+ GHz CPU, 512 MB of RAM, GEForce2 MX 64mb of RAM. Let the Game's Begin...

Back to top

Profile PM Email

Game Programming Beginner

20

Years of Service

User Offline

Joined: 18th Aug 2004

Location: USA VA

Posted: 20th Aug 2004 00:11

Link

I can get a box to show up but not the tank hear is the code that I'm using for it. If anyone knows what I'm doing wrong and would like to help out I would apppreciate it

I made a web site this it should be up today or tonight.

WindowsXP Professional, AMD Athlon 2.500+ GHz CPU, 512 MB of RAM, GEForce2 MX 64mb of RAM. Let the Game's Begin...

Back to top

Profile PM Email

Dodo

20

Years of Service

User Offline

Joined: 8th Aug 2004

Location: eating lunch

Posted: 20th Aug 2004 00:36

Link

sorry GPB, I got the syntax wrong (i was in a hurry). your code should read like this (based on your new code):

sync On
Sync Rate 30
Backdrop on

Set camera range 1,5000
Fog on
Fog distance 4000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "c:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Marty\grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

Rem Make player pawn
Load object "c:\DarkBASIC Professional\Models\Military\Tanks\tank.x",10
texture object 10,2
position object 10,100,0,100

Rem Randomize the matrix
randomize matrix 1,125
update matrix 1

Rem Main loop
Do
   Rem Store Object angle
   AngleY# = object angle Y(10)

Rem Control input for camera
   If Upkey()=1
      XTest# = Newxvalue(X#,AngleY#,20)
      ZTest# = Newzvalue(Z#,AngleY#,20)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         Move object 10,10
      Endif
   Endif

If Leftkey()=1 then Yrotate object 10,Wrapvalue(AngleY#-5)
   If Rightkey()=1 then Yrotate object 10,Wrapvalue(AngleY#+5)
   X# = Object position x(10)
   Z# = Object position z(10)
   Y# = Get Ground Height(1,X#,Z#)
   Position object 10,X#,Y#+12.5,Z#
   CameraZ# = Newzvalue(Z#,AngleY#-180,100)
   CameraX# = Newxvalue(X#,AngleY#-180,100)
   Position camera CameraX#,Y#+50,CameraZ#
   Point camera X#,Y#+12.5,Z#

Rem Refresh Screen
   Sync
Loop

+ Code Snippet

sync On
Sync Rate 30
Backdrop on

Set camera range 1,5000
Fog on
Fog distance 4000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "c:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Marty\grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

Rem Make player pawn
Load object "c:\DarkBASIC Professional\Models\Military\Tanks\tank.x",10
texture object 10,2
position object 10,100,0,100

Rem Randomize the matrix
randomize matrix 1,125
update matrix 1

Rem Main loop
Do
   Rem Store Object angle
   AngleY# = object angle Y(10)

   Rem Control input for camera
   If Upkey()=1
      XTest# = Newxvalue(X#,AngleY#,20)
      ZTest# = Newzvalue(Z#,AngleY#,20)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         Move object 10,10
      Endif
   Endif

   If Leftkey()=1 then Yrotate object 10,Wrapvalue(AngleY#-5)
   If Rightkey()=1 then Yrotate object 10,Wrapvalue(AngleY#+5)
   X# = Object position x(10)
   Z# = Object position z(10)
   Y# = Get Ground Height(1,X#,Z#)
   Position object 10,X#,Y#+12.5,Z#
   CameraZ# = Newzvalue(Z#,AngleY#-180,100)
   CameraX# = Newxvalue(X#,AngleY#-180,100)
   Position camera CameraX#,Y#+50,CameraZ#
   Point camera X#,Y#+12.5,Z#

   Rem Refresh Screen
   Sync
Loop

hope that works

if it doesn't then providing a link to download your media would be helpful

Back to top

Profile PM Email Website

Game Programming Beginner

20

Years of Service

User Offline

Joined: 18th Aug 2004

Location: USA VA

Posted: 20th Aug 2004 03:41

Link

Oh Thank you

This has been driving me up the wall trying to get this to wrok

WindowsXP Professional, AMD Athlon 2.500+ GHz CPU, 512 MB of RAM, GEForce2 MX 64mb of RAM. Let the Game's Begin...

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Need a little help with puting a object on the map.