random generate terrain

Blitz3D Forums/Blitz3D Beginners Area/random generate terrain

Braden

(Posted 2009) [#1]

how would I use the rnd or rand code to randomly attach a texture to a plane? I have a plane, and I have all the textures loaded in but I can't make it randomly choose which texture to assign... any help?

_PJ_	(Posted 2009) [#2]

Well it may help for you to post what you DO have so we know what we're dealing with, but In theory, the textures you have loaded in would need to be 'indexed' in some way so they can be selected at random. Perhaps something similar to the following example:

Local Textures[10]
Local RandomTexture=Rand(0,9)

Local IterTextures
For IterTextures = 0 To 9
	Textures[IterTextures]=LoadTexture("Texture "+Str(IterTextures)+".bmp")
Next

Local Terrain=LoadTerrain("Terrain.bmp")
EntityTexture Terrain,Textures[RandomTexture]

Braden

(Posted 2009) [#3]

oh sorry, here is what I have.... I'm not sure how i would incorperate the above code into the project...

Graphics3D 640,480
SetBuffer BackBuffer()

Type_camera=1
type_month=2


camera=CreateCamera()
PositionEntity camera,0,10,-133
EntityType camera,type_camera
CameraClsColor camera,0,255,255
light=CreateLight()

Dim door(100)
For p=0 To 100
door(p)=LoadMesh("door.3ds")

ScaleEntity door(p),.1,.1,.1
PositionEntity door(p),Rnd(-150,150),6,Rnd(-100,100)

EntityColor door(p),Rnd(0,255),Rnd(0,255),Rnd(0,255)

EntityType door(p), type_month
Next

plane=CreatePlane()
PositionEntity plane,0,999,0
spring=LoadTexture("spring.jpg")

winter=LoadTexture("winter.bmp")
fall=LoadTexture("fall.jpg")
summer=LoadTexture("summer.jpg")
skyt=LoadTexture("sky.jpg")
EntityTexture plane,fall ;Rand(spring,winter,fall,summer)
;sky=CreatePlane()
;PositionEntity sky,0,1020,0
;EntityTexture sky,skyt



;rooms
month=CreateCube()
FitMesh month,-250,0,-250,500,500,500
FlipMesh month
mon_tex=LoadTexture("wood//wood01.jpg")
ScaleTexture mon_tex,.5,.5
EntityTexture month,mon_tex
EntityFX month,1






Collisions type_camera,type_month,2,2
While Not KeyDown(1)



If KeyHit(50) Then PositionEntity camera,5,500,5
If KeyDown(208) Then MoveEntity camera,0,0,-1
If KeyDown(200) Then MoveEntity camera,0,0,1
If KeyDown(203) Then MoveEntity camera,-1,0,0
If KeyDown(205) Then MoveEntity camera,1,0,0

If EntityCollided(camera,type_month) PositionEntity camera,0,1000,0

;camera code
TurnEntity camera, 0, -MouseXSpeed()/5.0,0,1	;rotate player Pivot according to mouse X movement
;TurnEntity camera, MouseYSpeed()/5.0, 0,0,0

If EntityPitch(camera) < -45					;don't allow camera to look below -45 degrees
 RotateEntity camera, -45, EntityYaw(camera), EntityRoll(camera)
EndIf 
If EntityPitch(camera) > 45					;don't allow camera to look above 45 degrees
 RotateEntity camera, 45, EntityYaw(camera), EntityRoll(camera)
EndIf
MoveMouse GraphicsWidth()/2, GraphicsHeight()/2	;reset mouse position to middle of screen
;------------------------------------------

RenderWorld
UpdateWorld




;positioning code
Text 200,0,EntityX(camera,True)
 Text 200,15,EntityY(camera,True)
 Text 200,30,EntityZ(camera,True) 
;---------------
Flip
Wend
End

Stevie G

(Posted 2009) [#4]

This will work.

plane=CreatePlane()
PositionEntity plane,0,999,0
spring=LoadTexture("spring.jpg")
winter=LoadTexture("winter.bmp")
fall=LoadTexture("fall.jpg")
summer=LoadTexture("summer.jpg")
skyt=LoadTexture("sky.jpg")

Select Rand(0,3)
	Case 0 EntityTexture plane, spring
	Case 1 EntityTexture plane, winter
	Case 2 EntityTexture plane, fall
	Case 3 EntityTexture plane, summer
End Select

;EntityTexture plane,fall ;Rand(spring,winter,fall,summer)

You may want to put

seedrnd millisecs()

at the top of your code to avoid getting the same random sequence.

Braden

(Posted 2009) [#5]

Thanks Steve, it worked out great!