Кода уже дофига
вот declarations:
Dim surf(640) As Single
Dim Terr(640, 480) As Long
Dim ir As New iR_Engine
Dim interface As New iR_Interface
Dim control As New iR_Control
Dim tex As New iR_TextureFactory
Private Type Explosion_Smoke
Sp(20) As iR_Sprite
Angle(20) As Single
Color(2) As Single
Size As Single
End Type
Dim Explosion_Smoke(10) As Explosion_Smoke
Private Type Explosion
Sp As iR_Sprite
Flag As Byte 'expl
PosX As Integer
Size As Single
MaxSize As Single
Fall As iR_Sprite
FallL As Single
FallT As Single
TerFlag As Byte
Fire As iR_Sprite
Color(2) As Single
End Type
Dim Explosion(10) As Explosion
Private Type Player1
Sp As iR_Sprite
St As iR_Sprite
PosX As Integer
Angle As Single
Power As Single
HP As Integer
FallingFlag As Byte
End Type
Dim Player1 As Player1
Dim sprite_terrain As iR_Sprite
Dim sprite_background As iR_Sprite
Dim sprite_player1 As iR_Sprite