Code issues - GameCreators Forum

Author

Message

Veeds

16

Years of Service

User Offline

Joined: 1st Nov 2008

Location:

Posted: 4th Nov 2008 16:49

Link

Standing on top of the ground is the issue I've been having, whenever I load the .exe to test it, I run right through my terrain.

My terrain is loaded through 3D World Studio, that works fine, but I cant seem to get my "camera" or the First person to stand on top of the ground. I will attach my code below, and any help would be deepy appriciated.. Thanks guys for putting up with us newbs!

Sync On
Sync Rate 60
Autocam Off
hide mouse

Rem Make some fog
Fog On
fog distance 4000

Rem Load the Texture
Load image "C:\Documents and Settings\Compaq_Owner\Desktop\grassimage.bmp", 1
Load object "C:\Documents and Settings\Compaq_Owner\Desktop\test\worldtest.x", 1

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)

Position Camera X#,Y#+50,Z#

Rem Refresh Screen
   Sync
Loop

+ Code Snippet

Sync On
Sync Rate 60
Autocam Off
hide mouse


Rem Make some fog
Fog On
fog distance 4000

Rem Load the Texture
Load image "C:\Documents and Settings\Compaq_Owner\Desktop\grassimage.bmp", 1
Load object "C:\Documents and Settings\Compaq_Owner\Desktop\test\worldtest.x", 1


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)


   Position Camera X#,Y#+50,Z#

   Rem Refresh Screen
   Sync
Loop

Back to top

Profile PM

Twu Kai

19

Years of Service

User Offline

Joined: 2nd Oct 2005

Location:

Posted: 4th Nov 2008 18:35

Link

Well the value "Y#" isn't defined anywhere, so it will just position the camera at a positive 50 units up. If you're aiming for an RPG-style terrain interaction where the player is always aligned to the terrain, then have a look into the INTERSECT OBJECT command (for a loaded map). As I understand it, it will give the distance to intersection from the first xyz point you specify. If you're aiming for typical FPS interaction, with jumping et cetera, then you'll need to use some form of collision against the terrain. You could either develop your own collision system with the INTERSECT OBJECT command, or use an existing one.

Hope this has helped, and if I've said something that isn't correct, anyone please correct me.

I am sorry for my not replying to my last thread that asked for help..

I am active now and will try to reply to help!

Back to top

Profile PM

Veeds

16

Years of Service

User Offline

Joined: 1st Nov 2008

Location:

Posted: 5th Nov 2008 15:40

Link

could you possibly give me an example? I'm sorry im newbish.

Back to top

Profile PM

Twu Kai

19

Years of Service

User Offline

Joined: 2nd Oct 2005

Location:

Posted: 6th Nov 2008 14:09 Edited at: 6th Nov 2008 14:12

Link

Well, if it was an FPS style of collision then this would be a basic example:

+ Code Snippet

intersect#=intersect object(map_object,playerx,playery,playerz,playerx,playery-60,playerz)
if intersect#=>1
position object player,playerx,playery+gravity_force,playerz
endif

So it basically draws a line from the player to a position directly below the player, and checks to see if that line goes through the map object. If it does, then it pushes the player up. An alternative would be (if including gravity) to move the player down by a variable (symbolizing the gravity). If the line goes through the map object, then set the gravity variable to 0. If it doesn't, then increase the gravity variable for a smooth fall:

+ Code Snippet

intersect#=intersect object(map_object,playerx,playery,playerz,playerx,playery-60,playerz)
if intersect#=>1
gravity=0
endif

position object player,playerx,playery-gravity,playerz
inc gravity,1

Then if you're aiming for the RPG-style terrain interaction, then this method I saw on the forums should help (I'm sorry but I don't remember who posted the method):

+ Code Snippet

y#=2000-intersect object(map_object,playerx,2000,playerz,playerx,-2000,playerz)
position object player,playerx,y#,playerz

I hope this makes sense.

I am sorry for my not replying to my last thread that asked for help..

I am active now and will try to reply to help!

Back to top

Profile PM

Veeds

16

Years of Service

User Offline

Joined: 1st Nov 2008

Location:

Posted: 6th Nov 2008 15:08 Edited at: 6th Nov 2008 16:25

Link

It makes sense, it's just now that when i try to run it i get a runtime error every time.. =( Any ideas?

I also have darkbasic professional as well if that makes any sort of differece.

Thanks for the help to.

Back to top

Profile PM

Twu Kai

19

Years of Service

User Offline

Joined: 2nd Oct 2005

Location:

Posted: 7th Nov 2008 10:51 Edited at: 7th Nov 2008 10:58

Link

What's the runtime error? I'm using DBPro too, so that's fine.

Assuming you want the FPS-style collision and gravity, I've tried implementing it into your code (I hope you don't mind) to see if there was a problem for me. It runs fine for me, although I had to replace the map you load in for a box object.

Sync On
Sync Rate 60
Autocam Off
hide mouse

Rem Make some fog
Fog On
fog distance 4000

Rem Load the Texture
Load image "C:Documents and SettingsCompaq_OwnerDesktopgrassimage.bmp", 1
Load object "C:Documents and SettingsCompaq_OwnerDesktoptestworldtest.x", 1

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)

rem I've changed this a bit so it pushes the camera down by that "Gravity variable".
   Position Camera X#,(Y#+50)-gravity,Z#

rem Implementing this... I had to change the starting point for the intersection "line" to be a bit further up.
   intersect#=intersect object(1,X#,Y#+10,Z#,X#,Y#-10,Z#)
   if intersect#=>1
      gravity=0
   endif

rem I've also increased the speed of gravity a bit.
   inc gravity,4

Rem Refresh Screen
   Sync
Loop

+ Code Snippet

Sync On
Sync Rate 60
Autocam Off
hide mouse


Rem Make some fog
Fog On
fog distance 4000

Rem Load the Texture
Load image "C:Documents and SettingsCompaq_OwnerDesktopgrassimage.bmp", 1
Load object "C:Documents and SettingsCompaq_OwnerDesktoptestworldtest.x", 1


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)

   rem I've changed this a bit so it pushes the camera down by that "Gravity variable".
   Position Camera X#,(Y#+50)-gravity,Z#

   rem Implementing this... I had to change the starting point for the intersection "line" to be a bit further up.
   intersect#=intersect object(1,X#,Y#+10,Z#,X#,Y#-10,Z#)
   if intersect#=>1
      gravity=0
   endif

   rem I've also increased the speed of gravity a bit.
   inc gravity,4


   Rem Refresh Screen
   Sync
Loop

Edit: Also, if this is the method you need and it eventually works for you, hopefully you can imagine how the INTERSECT OBJECT command can do basically the same thing on the X and Z axies for collision. Just be aware though that it's a fairly slow command, so you might need an alternative to the DBPro command in the future depending on what type of game you're making.

I am sorry for my not replying to my last thread that asked for help..

I am active now and will try to reply to help!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Code issues