AD Calc

[mrbloody369]

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).

expandcollapse popup

While 1
    Switch GUIGetMsg()
                    
        Case $OK
            $AD = GUICtrlRead($ADLVL)
            $PLINT = GUICtrlRead($PLYINT) 
            $MBVIT = GUICtrlRead($MOBVIT) 
            $MHP = GUICtrlRead($MOBHP) 
            
            
            $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 ($ADLVL, $xxx)
            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)
    $4total = $3total * $AD
    $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

Read_Me_.txt

AD_Calc.au3

AD_Program.rar