Release| Hit Simulator with Defense Calculation

The links for the Kortestanov's source and executable are in the first post of this thread, no need to hunt for it.

Dusk's version has str/7 and dex/7, original has str * 0.2857142857142857 and dex * 0.2857142857142857, which is whatever *2/7
Dusk's version has 'if level < 15', original has 'if (level < mobLevel)'
There may be other differences, i didn't look at it that long. Very hard to read dissassembled stuff.

The increase in damage when levelling to a multiple of 5 is only noticeable for low levels taking modest damage from low level monsters.

Isn't capped StandardPDD a good thing? If it went larger past level 100, then the reduction would be smaller, and the damage greater. But its all irrelevant for high level monsters anyway.

It's actually quite simple to shorten the code. Just rationalize the decimal-values, and you get that they all turn into real fractions.

 Spoiler

For me, the whole expression was turned into the following in LISP:

Code:

(defmacro +/ (&body l)
  `(+,@(mapcar(lambda(x)`(/,@x))(list-2 l))))
    
(defun exact-dmg (str int dex luk lvl def m-wat m-lvl random job)
  (let ((local8)(arg5)(s-pdd (s-pdd job lvl)))
    (setf local8 (/ (* (+ (/ (* m-wat 1/20 (mod random #x989680)) 10000000) (* m-wat 4/5)) m-wat) 100)
          def (max def 1999)
          arg5
          (* 2
             (if (eq job 'warrior)
                 (+/ (+ luk dex) 8 int 18 str 7)
                 (+/ luk 8 dex 7 str 5 int 18))))
    (max 1 (floor ; Returns the evaluation of this expression.
      (decf local8
        (if (>= def s-PDD)
            (let ((edi (+/ lvl 1300 arg5 900 7 25)))
              (* edi (+/ (- def s-PDD) 7/10 (+ (/ (floor arg5) 800) 7/25) (/ def))))

        (if (< lvl m-lvl)
            (+ (* (+/ lvl 1300 arg5 900 7 25) (- def s-PDD) 13/10)
               (* (+ (/ arg5 800) 7/25) def))
            (+ (/ (* (+/ (floor arg5) 800 lvl 1300 7 25) (- def s-PDD) 13) ; yay prefix
                              (- lvl m-lvl -13))
                (* (+ (/ (floor arg5) 800) 7/25) def)))))))))

Where the value s-pdd is found from an array by calling the function s-pdd (Don't mind that those have both the same name. It's Lisp, and weird like that.)

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