Tree Party users?

Blitz3D Forums/Blitz3D Programming/Tree Party users?

A51M15X

(Posted 2009) [#1]

I am having a bit of trouble getting Treeparty BE to work on Blitz3d. Heres what i have so far. Any help would be greatly appreciated.

Include "Include_treeParty.bb"
tpMaxTrees=numTrees+3000 ;--- call this before initalizing the engine
tpLoadEngine() 
tpLodRange#=400              	  ;- lets set some custom LOD ranges (billboard pop in range)
tpMaxRange#=800                          ;-- dissappear range

 tpAMBRed=80
 tpAMBGreen=80
 tpAMBBlue=80

;Setup the collision
Const type_tree=100
SeedRnd MilliSecs()


;-- load some trees
	For k=1 To numTrees
		Repeat
			tx#=Rnd(-1700,1700)
			tz#=Rnd(-1700,1700)
			ty#=TerrainY( land,tx,0,tz )-2.5
		Until ty>water_level
		
		If opt=1 Then rr=Rand(1,1)
		If opt=2 Then rr=Rand(3,5)
		Select rr
			Case 1 : treename$="tree2.tp"
			Case 2 : treename$="tree4.tp"
			Case 3 : treename$="tree5.tp"
			Case 4 : treename$="tree8.tp"
			Case 5 : treename$="tree10.tp"
			Case 6 : treename$="tree9.tp"
		End Select
		
		tree=tpLoadtree(treename$, type_tree)
		PositionEntity tree, tx, ty, tz
		RotateEntity tree, Rnd(-50,50),Rnd(-180,180),Rnd(50,50)
		scale#=Rnd(100,700)
		tpScaleTree(tree, scale, scale, scale)
		cs=Rand(150,255)
		tptreecolor (tree, cs,cs,cs)
	Next

Charrua

(Posted 2009) [#2]

hi!

if you didn't define or assign a value to Water_level and opt the code may not work properly. water_level isn't much important, but if opt=0 then rr isn't initialized and so, Select rr didn`t initizlize treename$

water_level exclude the random placement of trees under the water, and with opt you can select how many types of tress you will have.
let water_level=0 and opt=1, 2 or whatever <> 0.

hope it help's

Juan