Advanced Terrain Error 4 - GameCreators Forum

Author

Message

Diablo 3D

21

Years of Service

User Offline

Joined: 23rd May 2005

Location:

Posted: 15th Mar 2011 16:10

Link

I've searched all through the forums and no-one seems to have the same problem I have. It's probably a simple solution, but here's the problem.

Using this code, I create my terrain:

+ Code Snippet

// Destroy Terrain should it Exist
If Object Exist( 9999 ) = 1
	Delete Object 9999
Endif
If Terrain Exist( 9999 ) = 1
	Destroy Terrain 9999
Endif

// Create Terrain
If Terrain Exist( 9999 ) = 0
	scaleFactor# = 100000 / textureResolution
	xScale# = scaleFactor#
	yScale# = scaleFactor#
	zScale# = scaleFactor# / 10
	Make Object Terrain 9999
	If File Exist( "Shared/Themes/" + TerrainMap + "_Height_" + textureDetail + ".png" ) = 1
		Set Terrain Heightmap 9999, "Shared/Themes/" + TerrainMap + "_Height_" + textureDetail + ".png"
	Endif
	Set Terrain Scale 9999, xScale#, yScale#, zScale#
	Set Terrain Split 9999, nTiles
	Set Terrain Tiling 9999, 16
	Build Terrain 9999
Endif

When I first call the function where this code sits, the terrain is created fine. The next time I call it, it crashes with the very cryptic "Error 4".

Does anyone know what the hell is happening here?

Self Destruction Computer Entertainment

Back to top

Profile PM

Mr Bigger

21

Years of Service

User Offline

Joined: 31st Jan 2005

Location: was here!

Posted: 15th Mar 2011 19:38

Link

If i remember correctly that error means that the terrain already exists.

All thats needed to delete a terrain is this..

+ Code Snippet

if object exist(9999) = 1 then destroy terrain 9999

AMD 2600+/1GB ram/GeForce 6600oc 256MB/W2KPro/DBPro 6.6.b

Back to top

Profile PM

Diablo 3D

21

Years of Service

User Offline

Joined: 23rd May 2005

Location:

Posted: 16th Mar 2011 10:23

Link

@Mr Bigger

Thanks for the suggestion, but that didn't seem to work. :\

Self Destruction Computer Entertainment

Back to top

Profile PM

Mr Bigger

21

Years of Service

User Offline

Joined: 31st Jan 2005

Location: was here!

Posted: 16th Mar 2011 12:20 Edited at: 16th Mar 2011 12:22

Link

Quote: "Thanks for the suggestion, but that didn't seem to work. :\"

That's not telling me much so i'll try again.

Don't use the delete command on terrains. It doesn't work.
Check if the terrain object exists and if it does use the destroy terrain command only.

Like this

+ Code Snippet

// Destroy Terrain should it Exist
If Object Exist( 9999 ) = 1 then Destroy Terrain 9999

// Create Terrain
If Terrain Exist( 9999 ) = 0
	scaleFactor# = 100000 / textureResolution
	xScale# = scaleFactor#
	yScale# = scaleFactor#
	zScale# = scaleFactor# / 10
	Make Object Terrain 9999
	If File Exist( "Shared/Themes/" + TerrainMap + "_Height_" + textureDetail + ".png" ) = 1
		Set Terrain Heightmap 9999, "Shared/Themes/" + TerrainMap + "_Height_" + textureDetail + ".png"
	Endif
	Set Terrain Scale 9999, xScale#, yScale#, zScale#
	Set Terrain Split 9999, nTiles
	Set Terrain Tiling 9999, 16
	Build Terrain 9999
Endif

If it still doesn't work you may have another problem.

AMD 2600+/1GB ram/GeForce 6600oc 256MB/W2KPro/DBPro 6.6.b

Back to top

Profile PM

Diablo 3D

21

Years of Service

User Offline

Joined: 23rd May 2005

Location:

Posted: 16th Mar 2011 12:33

Link

Thanks Mr Bigger.

I copied the code and pasted it into my program, but I still got the Error 4 when I called the function again.

I'm new to AT so not really sure what's going on here

Self Destruction Computer Entertainment

Back to top

Profile PM

Mr Bigger

21

Years of Service

User Offline

Joined: 31st Jan 2005

Location: was here!

Posted: 16th Mar 2011 12:54

Link

Ok.

Make sure you use the update terrain command between calls to the function and sync.

AMD 2600+/1GB ram/GeForce 6600oc 256MB/W2KPro/DBPro 6.6.b

Back to top

Profile PM

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 16th Mar 2011 13:08

Link

I doubt that has anything to do with it.

The following snippet works fine for me:

nTiles = 8
// Destroy Terrain should it Exist
If Object Exist( 9999 ) = 1
  Destroy Terrain 9999
Endif

// Create Terrain
If Terrain Exist( 9999 ) = 0
  scaleFactor# = 3 `100000 / textureResolution
  xScale# = scaleFactor#
  yScale# = scaleFactor#
  zScale# = scaleFactor# / 10
  Make Object Terrain 9999
  If File Exist( "basemap1_16.bmp" ) = 1
    Set Terrain Heightmap 9999, "basemap1_16.bmp"
  Endif
  Set Terrain Scale 9999, xScale#, yScale#, zScale#
  Set Terrain Split 9999, nTiles
  Set Terrain Tiling 9999, 16
  Build Terrain 9999
Endif

repeat
until spacekey()

while spacekey()
endwhile

` now destroy terrain and build a second copy
// Destroy Terrain should it Exist
If Object Exist( 9999 ) = 1
  Destroy Terrain 9999
Endif

// Create Terrain
If Terrain Exist( 9999 ) = 0
  scaleFactor# = 3 `100000 / textureResolution
  xScale# = scaleFactor#
  yScale# = scaleFactor# / 10 ` changed this so you can see the new terrain has changed
  zScale# = scaleFactor# / 10
  Make Object Terrain 9999
  If File Exist( "basemap1_16.bmp" ) = 1
    Set Terrain Heightmap 9999, "basemap1_16.bmp"
  Endif
  Set Terrain Scale 9999, xScale#, yScale#, zScale#
  Set Terrain Split 9999, nTiles
  Set Terrain Tiling 9999, 16
  Build Terrain 9999
Endif

wait key

+ Code Snippet

nTiles = 8
// Destroy Terrain should it Exist
If Object Exist( 9999 ) = 1
  Destroy Terrain 9999
Endif

// Create Terrain
If Terrain Exist( 9999 ) = 0
  scaleFactor# = 3 `100000 / textureResolution
  xScale# = scaleFactor#
  yScale# = scaleFactor#
  zScale# = scaleFactor# / 10
  Make Object Terrain 9999
  If File Exist( "basemap1_16.bmp" ) = 1
    Set Terrain Heightmap 9999, "basemap1_16.bmp"
  Endif
  Set Terrain Scale 9999, xScale#, yScale#, zScale#
  Set Terrain Split 9999, nTiles
  Set Terrain Tiling 9999, 16
  Build Terrain 9999
Endif

repeat
until spacekey()

while spacekey()
endwhile

` now destroy terrain and build a second copy
// Destroy Terrain should it Exist
If Object Exist( 9999 ) = 1
  Destroy Terrain 9999
Endif

// Create Terrain
If Terrain Exist( 9999 ) = 0
  scaleFactor# = 3 `100000 / textureResolution
  xScale# = scaleFactor#
  yScale# = scaleFactor# / 10 ` changed this so you can see the new terrain has changed
  zScale# = scaleFactor# / 10
  Make Object Terrain 9999
  If File Exist( "basemap1_16.bmp" ) = 1
    Set Terrain Heightmap 9999, "basemap1_16.bmp"
  Endif
  Set Terrain Scale 9999, xScale#, yScale#, zScale#
  Set Terrain Split 9999, nTiles
  Set Terrain Tiling 9999, 16
  Build Terrain 9999
Endif

wait key

I'd guess the problem is elsewhere in the code.

Back to top

Profile PM Email

Diablo 3D

21

Years of Service

User Offline

Joined: 23rd May 2005

Location:

Posted: 16th Mar 2011 13:23

Link

@Mr Bigger

Thanks for the tip. But again, Error 4.

@Green Gandalf

This code worked for me too... I'll look around and see if there's anything else in my code that could be causing the problem.

Self Destruction Computer Entertainment

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Advanced Terrain Error 4