BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Grass and plant system. inifite.", by wingsoffury

This is a grass/plant system that i hacked in about 2 hours.
you can walk forever in this world. never reach it borders.
its about 200 grasses no more at once.
I hope some one like it. :)

Code

Global art$="D:\blitzbasic\art\sprites\"

Graphics3D 800,600,32,2
SetBuffer BackBuffer()
camera=CreateCamera()
CameraClsColor camera,0,127,255
CameraViewport camera,0,0,800,600
CameraFogMode camera,1
CameraFogRange camera,1,30
CameraFogColor camera,0,127,250
light=CreateLight()
RotateEntity light,0,-90,0

plane=CreatePlane()
EntityColor plane,0,128,255
PositionEntity camera,0,4,0

plant=LoadSprite(art$+"grass.bmp",4)
PositionEntity plant,0,1,10

Type grass
     Field mesh
     Field IDx
     Field IDZ
End Type

For I=1 To 200
     grasses.grass=New grass
     n=CopyEntity (plant)
     PositionEntity n,Rnd(50)-25,1,Rnd(50)-25
     EntityAutoFade n,30,40
     grasses\mesh=n
Next

X=EntityX(camera)
     z=EntityZ(camera)
     x=x/10
     z=z/10

ox=x
     oz=z

While Not KeyHit(1)

If 1 Then MoveEntity camera,0,0,0.2 ;W
     If KeyDown(31) Then MoveEntity camera,0,0,-0.2 ;S
     If KeyDown(30) Then TurnEntity camera,0,1,0 ;A
     If KeyDown(32) Then TurnEntity camera,0,-1,0 ;D

UpdateWorld()
     RenderWorld()
     
     
     
     X=EntityX(camera)
     z=EntityZ(camera)
     x=x/10
     z=z/10
     Locate 0,0
     Print x+","+z
     i=0
     For grases.grass=Each grass
          i=i+1
     Next
     Print "Nr of mesh "+i
     
     If ox<>x Or Oz<>z
          ;Erase old grass
          For grasses.grass = Each grass
               If EntityDistance(camera,grasses\mesh)>30
                    FreeEntity grasses\mesh
                    Delete grasses
               End If
          Next
          
          
          ;Create new grass at new position.
          For I=1 To 200
               grasses.grass=New grass
               n=CopyEntity (plant)
                              
               PositionEntity n,Rnd(50)+(x*10)-25,1,Rnd(50)+z*(10)-25
               EntityAutoFade n,20,30
               grasses\mesh=n
               
               ;Durty trick Undo it !
               If EntityDistance (camera,n)<25 
                    FreeEntity grasses\mesh
                    Delete grasses
               End If
          
          Next

End If
     
     ox=x
     oz=z
     
     
     Flip

Wend

Code software created by Krylar's Kreations