[bb] Impact of bombs on the ground. by Yue [ 11 months ago ]

[BlitzBot]

Title : Impact of bombs on the ground.
Author : Yue
Posted : 11 months ago

Description : This simple code to open holes on the ground, the impact of a bomb dropped from a plane , hata the impact of a meteorite. .

Code :

Code: BlitzBasic

1. : by Yue 2016
2.  
3. Graphics3D 800, 600, 32, 2
4. SetBuffer ( BackBuffer())
5.  
6. Local camara%   = CreateCamera()
7. Local luz%              = CreateLight()
8. Local terreno%  = LoadTerrain("Terreno.png")
9. Local bomba%    = LoadMesh("Bomba.b3d")
10.  
11. Local texturaT% = LoadTexture("Tierra.jpg")
12. ScaleTexture (texturaT%, 4,4 )
13. EntityTexture ( terreno%, texturaT%)
14. PositionEntity terreno%, -128, 0, -128
15. ScaleEntity terreno%, 1, 40, 1
16. ScaleEntity bomba%, .2, .2, .2
17.  
18. PositionEntity camara%, 0, 25,10
19. PositionEntity bomba%, 0, 60, 30
20.  
21.  
22. EntityType bomba%, 1
23. EntityType terreno, 2
24.  
25. Collisions 1, 2,2, 2
26.  
27. TerrainShading terreno,True
28. TerrainDetail terreno,2000
29.  
30. ModifyTerrain(terreno%,128, 128, 500,True)
31.  
32.  
33. WireFrame False
34.  
35. While Not KeyHit(1)
36.        
37.         For  c% = 1 To CountCollisions(terreno%)
38.                
39.                 colisionBomba% = GetEntityType(bomba%)
40.                
41.                
42.                 If c% = colisionbomba% Then
43.                        
44.                        
45.                         x# = EntityX(bomba%)
46.                         y# = EntityY(bomba%)
47.                         z# = EntityZ(bomba%)
48.                         TFormPoint (x#, y#, z#,  0, terreno%  )
49.                        
50.                        
51.                        
52.                        
53.                         h# = TerrainHeight(terreno,TFormedX(),TFormedY())
54.                        
55.                        
56.                        
57.                         If h > 0 Then
58.                                 h = h -.1
59.                                 If h < .5  Then  h = .5
60.                                
61.                                
62.                                
63.                                 ModifyTerrain ( terreno%, TFormedX()+ Rnd(-2,2), TFormedZ()+Rnd(-2,2),h#,True) 
64.                                
65.                                
66.                         End If  
67.                        
68.                        
69.                        
70.                 End If
71.                
72.                
73.                
74.                
75.                
76.         Next
77.        
78.        
79.        
80.        
81.                
82.    ; gravity
83.         TranslateEntity bomba%, 0, -.5, 0
84.        
85.        
86.         UpdateWorld()
87.         RenderWorld()
88.        
89.         Text 0, 0, TFormedY()
90.         Flip()
91.        
92.        
93.        
94.        
95. Wend

Comments : none...