Fallout RPG Excel Tool for Bursts

[zergnase]

BIG GUN, BIG FUN !!!

thats how it should be... but then...

i startet recently my Fallout RPG campaign and the first two sessions were pretty good (from my point of view). one of my players doesnt like his .22 caliber five shot revolver he will be surely happy when he gets a 10mm pistol or so... but then... how will he look when they (in many many sessions away) get their first gattling gun...

but then... rolling two times 40d100 to first check if that round hits or not and then if it is perhapse a critical or a mishappen... sounds like a game flow killer, so... i started my new excel project.

[zergnase]

so here is the first (proper) working version of the code, if you have any comments please let me know. not sure if i could use "case" here and there, i use if for determination of effect since the ranges arent the same size...

Sub Burst()
'Reading in values
    BTH = Range("A3").Value 'Base to Hit
    D = Range("B3").Value   'Distance
    RoF = Range("C3").Value 'Rate of Fire
    L = Range("D3").Value   'Weapon Damage Lower Limit
    U = Range("E3").Value   'Weapon Damage Upper Limit
    cc = Range("F3").Value  'Critical Chance
    CTM = Range("G3").Value 'Critical Table Modifier
    ADP = Range("H3").Value 'Ammo percentil Modifier to Damage
    ADS = Range("I3").Value 'Ammo Static Modifier to Damage
    AR = Range("J3").Value  'Ammo Modifier to Resistance
    AAC = Range("K3").Value 'Ammo Modifier to Armor Class
    AC = Range("l3").Value  'Armor Class of the Target
    DT = Range("M3").Value  'Damage Threshold
    DR = Range("N3").Value  'Damage Resistance

'Creation of variables and assignment of values
    Hits = 0   'Numbers of hits caused by the burst
    Crits = 0  'Number of Criticals
    Dmg = 0    'Damage dealed
    CKD = 0   'Chance of Knock Down
    KO = 0     'Knock Out
    ID = 0     'Instand Death"
    IA = 0     'Ignores Armor
    CB = 0     'Chance to cause Blindness
    B = 0      'Blindness
    LT = 0     'Lose Turn
    CCA = 0    'Chance Crippled Arm
    CA = 0     'Crippled Arm
    CCL = 0    'Chance Crippled Leg
    CL = 0     'Crippled Leg
    HHead = 0  'Number of shots which hit the Head
    HEyes = 0  'Number of shots which hit the Eyes
    HTorso = 0 'Number of shots which hit the Torso
    HGroin = 0 'Number of shots which hit the Groin
    HArms = 0  'Number of shots which hit the Arms
    HLegs = 0  'Number of shots which hit the Legs
    Shot = 0    'Shot fired
    Multi = 1   'Critical Hit Damage Multiplier
    RM = 1      'Damage Modifier due Armor and Weapon for internal calculations
    CHL = 0     'Critical Hit Location
    CHE = 0     'Critical Hit Effect
    CIA = False 'Current Critical Hit ignores armor
    OneM = False 'One in a Million Trait
    OneMC = True 'Critical confirmation variable for One in a Million Trait

'Definition of Critical Hit allocation; Cummulated
    CHead = 11  '11% Chance to hit the Head
    CEyes = 17  '6% Chance to hit the Eyes
    CTorso = 50 '33% Chance to hit the Torso
    CGroin = 65 '15% Chance to hit the Groin
    CArms = 80  '15% Chance to hit the Arms
    CLegs = 100 '20% Chance to hit the Legs

'Calculating and capping Hit Chance at 95%
    BTH = BTH - D * 4 + AAC - AC
    If BTH > 95 Then
        BTH = 95
    End If

'Calculating Resistance Modifier
    RM = 1 - DR / 100 + AR
    If RM > 1 Then
        RM = 1
    End If

'Check if attacker has One in a Million Trait
    If Range("o3").Value = "" Then
    Else
        OneM = True
    End If

'Shot RoF times
Do While Shot < RoF
    Shot = Shot + 1

    'Check is Shot hits
    If Int(100 * Rnd + 1) < (BTH + 1) Then
        Hits = Hits + 1

        'One in A Million Trait Test
        If OneM = True Then
            If Int(100 * Rnd + 1) < ((cc * 5) + 1) Then
                OneMC = True
            Else
                OneMC = False
            End If
        Else
            OneMC = True
        End If

        'Check if Critical Hit
        If Int(100 * Rnd + 1) < (cc + 1) And OneMC = True Then
            Crits = Crits + 1
            
            'Determine Bodypart hit by the Critical
            CHL = Int(100 * Rnd + 1)
            
            'Determine the severeness of the Critical
            CHE = Int(100 * Rnd + 1) + CTM
            
            'Determining the effect of the Critical Hit
            If CHL < (CHead + 1) Then   'Check if Critical hits the Head
                HHead = HHead + 1
                If CHE < 21 Then
                    Multi = 2
                Else
                If CHE < 46 Then
                    Multi = 2
                Else
                If CHE < 71 Then
                    Multi = 2.5
                    CKD = CKD + 1
                Else
                If CHE < 91 Then
                    Multi = 2.5
                    CKD = CKD + 1
                Else
                If CHE < 101 Then
                    Multi = 3
                    KO = KO + 1
                Else    'CHL = 101+
                    Multi = 3
                    ID = ID + 1
                End If
                End If
                End If
                End If
                End If
            Else
            If CHL < (CEyes + 1) Then   'Check if Critical hits the Eyes
                HEyes = HEyes + 1
                If CHE < 21 Then
                    Multi = 2
                Else
                If CHE < 46 Then
                    Multi = 2
                    CB = CB + 1
                    CIA = True
                Else
                If CHE < 71 Then
                    Multi = 3
                    CB = CB + 1
                    CIA = True
                Else
                If CHE < 91 Then
                    Multi = 3
                    B = B + 1
                    LT = LT + 1
                    CIA = True
                Else
                If CHE < 101 Then
                    Multi = 4
                    B = B + 1
                    ID = ID + 1
                    CIA = True
                Else    'CHL = 101+
                    Multi = 4
                    ID = ID + 1
                End If
                End If
                End If
                End If
                End If
            Else
            If CHL < (CTorso + 1) Then  'Check if Critical hits the Torso
                HTorso = HTorso + 1
                If CHE < 21 Then
                    Multi = 1.5
                Else
                If CHE < 46 Then
                    Multi = 1.5
                Else
                If CHE < 71 Then
                    Multi = 2
                Else
                If CHE < 91 Then
                    Multi = 2
                    CIA = True
                Else
                If CHE < 101 Then
                    Multi = 2
                    CIA = True
                Else    'CHL = 101+
                    Multi = 3
                    ID = ID + 1
                End If
                End If
                End If
                End If
                End If
            Else
            If CHL < (CGroin + 1) Then  'Check if Critical hits the Groin
                HGroin = HGroin + 1
                If CHE < 21 Then
                    Multi = 1.5
                Else
                If CHE < 46 Then
                    Multi = 1.5
                    CIA = True
                Else
                If CHE < 71 Then
                    Multi = 1.5
                    CIA = True
                Else
                If CHE < 91 Then
                    Multi = 2
                    CIA = True
                Else
                If CHE < 101 Then
                    Multi = 2
                    CIA = True
                Else    'CHL = 101+
                    Multi = 3
                    CIA = True
                End If
                End If
                End If
                End If
                End If
            Else
            If CHL < (CArms + 1) Then   'Check if Critical hits the Arms
                HArms = HArms + 1
                If CHE < 21 Then
                    Multi = 1.5
                Else
                If CHE < 46 Then
                    Multi = 1.5
                Else
                If CHE < 71 Then
                    Multi = 2
                    CCA = CCA + 1
                Else
                If CHE < 91 Then
                    Multi = 2
                    CCA = CCA + 1
                Else
                If CHE < 101 Then
                    Multi = 2
                    CA = CA + 1
                Else    'CHL = 101+
                    Multi = 2
                    CA = CA + 1
                End If
                End If
                End If
                End If
                End If
            Else 'Critical hits the Legs
                HLegs = HLegs + 1
                If CHE < 21 Then
                    Multi = 1.5
                Else
                If CHE < 46 Then
                    Multi = 1.5
                Else
                If CHE < 71 Then
                    Multi = 2
                    CCL = CCL + 1
                Else
                If CHE < 91 Then
                    Multi = 2
                    CCL = CCL + 1
                Else
                If CHE < 101 Then
                    Multi = 2
                    CL = CL + 1
                Else    'CHL = 101+
                    Multi = 2
                    CL = CL + 1
                End If
                End If
                End If
                End If
                End If
            End If
            End If
            End If
            End If
            End If
        End If

        'Calculating and accumulating Damage
        If CIA = True Then
            Dmg = Dmg + Int(Int((U - L + 1) * Rnd + L) + ADS) * Multi * (1 - ADP / 100)
        Else
            Dmg = Dmg + Int(((Int((U - L + 1) * Rnd + L) + ADS) * Multi * (1 - ADP / 100) - DT) * RM)
        End If

        'Clean up
        Multi = 1
        CIA = False
    End If
Loop

'Writing Results of the Burst
    Range("B8") = Hits
    Range("B9") = Crits
    Range("B10") = Dmg
    Range("B11") = CKD
    Range("B12") = KO
    Range("B13") = ID
    Range("B14") = IA
    Range("B15") = CB
    Range("B16") = B
    Range("B17") = LT
    Range("B18") = CCA
    Range("B19") = CA
    Range("B20") = CCL
    Range("B21") = CL
End Sub