If you need any help on figuring it out, just ask
Ok, I see something and I'm not sure if it was meant to behave this way (vers 2.37.6).
The following is part of the code for recieving a body shot:
Shell = rob(n).Shell * ShellEffectiveness
If power < Shell Then
rob(n).Shell = rob(n).Shell - power / ShellEffectiveness If rob(n).Shell < 0 Then rob(n).Shell = 0
Exit Sub
Else
Dim temp As Long
temp = rob(n).Shell
rob(n).Shell = rob(n).Shell - power / ShellEffectiveness
power = power - temp * ShellEffectiveness
If rob(n).Shell < 0 Then rob(n).Shell = 0
End If
The following is part of the code for recieving a venom shot:
If Shots(t).FromSpecie = rob(n).fname Then 'Robot is imune to venom from his own species
rob(n).venom = rob(n).venom + power 'Robot absorbs venom fired by conspec
rob(n).mem(825) = rob(n).venom
Else
If power < rob(n).Shell * ShellEffectiveness Then
rob(n).Shell = rob(n).Shell - power * ShellEffectiveness If rob(n).Shell < 0 Then rob(n).Shell = 0
Else
Dim temp As Long
temp = power
power = power - rob(n).Shell * ShellEffectiveness
rob(n).Shell = rob(n).Shell - temp / ShellEffectiveness
If rob(n).Shell < 0 Then rob(n).Shell = 0
End If
This is the behavior for 2.37.6, right?