## Recommended Posts

Ad Calc (Acid Demonstration (AKA:Acid Bomb))

Is a program I've written on request from a friend that I've decide to share ,since I believe to be 98% correct (math wise any ways). This is for people that don't have time to make/look-at at spreed sheet wile trying to figure out how many AD is needed to kill a pacific mob based of their stats in the game RO wile playing a Creator

Damage formula per hit is: (0.7 * Target's VIT * Creator's INT^2) / (Target's VIT + Creator's INT).

```While 1
Switch GUIGetMsg()

Case \$OK

\$t = _Dtotal()
\$tt = _total()

Sleep(200)
While 2
If \$AD <= 0  Or \$PLINT <= 0 Or \$MBVIT <= 0 Or \$MHP <= 0  or \$AD >= 11 Then
MsgBox(1,"ERROR","Please enter an number  in all input boxes & not only 10 LVL's in AD ^_^")
ExitLoop
Else
\$t = _Dtotal()
GUICtrlSetData(\$Label4, \$t)
\$tt = _total()
if \$tt <= 1 Then \$tt = 1
GUICtrlSetData(\$Label5, \$tt)
ExitLoop

EndIf
WEnd
Case \$reset
\$xxx = 0
GUICtrlSetData (\$PLYINT, \$xxx)
GUICtrlSetData (\$MOBVIT, \$xxx)
GUICtrlSetData (\$MOBHP, \$xxx)

Case \$GUI_EVENT_CLOSE, \$Button2
ExitLoop
EndSwitch
Wend

Func _Dtotal()
\$1total = (0.7 * \$MBVIT * (\$PLINT * \$PLINT))
\$2total = (\$MBVIT + \$PLINT)
\$3total = (\$1total / \$2total)
\$t = \$4total
Return  \$t
EndFunc

Func _total()
\$total6 = (\$MHP / \$t)
\$x=0
If \$MHP <= \$t  Then
\$tt = 1
Else
If \$total6 > Round(\$total6, 0) Or Round(\$total6, 0) = 0 Then
\$x = Round(\$total6, 0) + 1

EndIf
EndIf
\$tt = \$x
Return \$tt
EndFunc```

~will edit lator for spelling and grammar~

Come Enjoy Ro with us GRevIllusion

Favorite Quotes"If you apply your mind you can create any thing you can dream of" "Any thing can get done by simply click of a button"

## Create an account

Register a new account

×

• Wiki

• Back

• Git