December 04, 2020, 11:53:00 AM

Author Topic: [bb] Impact of bombs on the ground. by Yue [ 11 months ago ]  (Read 606 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
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...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal