About as bad as it can be

[notquitehere188]

this is the bullet collide effects sub if you were wondering

Public Sub BulletCollideEffects(BulletNum As Integer, X As Integer, Y As Integer, WhoHit As Bltty, HitSide As Boolean)
 
With Bullet(BulletNum)
    .Top = Y
    .Left = X
    
    
    If WhoHit.Move = True Then
        WhoHit.Xinertia = WhoHit.Xinertia + (.Xinertia * GT(.Type).Weight)
        WhoHit.Yinertia = WhoHit.Yinertia + (.Yinertia * GT(.Type).Weight)
        WhoHit.Life = WhoHit.Life - GT(.Type).Power
        If .Type = 3 Then
            WhoHit.OnFire = True
            WhoHit.Firetime = 10
        End If
        KillBullet BulletNum
    ElseIf GT(.Type).Bounce = True And HitSide = True Then
        .Xinertia = .Xinertia * -1
        Moved = False
    ElseIf GT(.Type).Bounce = True Then
        .Yinertia = .Yinertia * -1
        Moved = False
    Else
        .Move = False
        KillBullet BulletNum
    End If
End With
        
 
End Sub