Release| Hit Simulator with Defense Calculation

 Spoiler

If you want to shorten it even more, you could always just use J. Compresses everything insanely much.

Not particularly.

 Spoiler

Code:

NB. arguments to damage: PA, PD, StdPD, warrior?, str, dex, int, luk, level, mob level

damage =: ((base @: (0&{)) - (1&{) * A) - ((1&{) - (2&{)) * B

base =: (0.008 0.0085) * *:

mod_war  =: +/ @ (] % 2800 3200 7200 3200 " _)
mod_else =: +/ @ (] % 2000 2800 7200 3200 " _)
mod =: (mod_else @: (4 5 6 7 & {)) ` (mod_war @: (4 5 6 7 &{)) @. (3&{)

A =: 0.28 + mod

B_high =: (28r45 * mod) + (7r13000 * (8&{)) + 0.196 " _
B_low =: (mod + (8&{) % (550 " _) + (0.28 " _)) * (8&{) C (9&{)
B =: B_high ` B_low @. ((1&{) < (2&{))

C =: (1.3 " _) ` (1 % 1 + - % (13 " _)) @. >:

(Done as an exercise more than anything else, really. I think there are probably much better/straightforward/READABLE ways to code this in J rather than recklessly chain together a whole bunch of functions like I did, but I'm not really familiar with it so I brainpineapple'd myself doing it this way. Nevertheless, considering that the number of operations needed to be performed is the same, syntax differences won't change the length too much.)