Advanced KDR Calculator

[Grim]

I've been updating a few of my programs recently, and when i read bombs thread asking for ideas on a new useful tool to use with CA, a KDR Calculator was suggested. In mentioning that i still had my KDR Calculator script around for the math to create his own, i found it and realized that although the math for increasing KDR was perfect, however the math for decreasing KDR was way off. After quite some time of refreshing myself with the current math, i was able to correct the math for decreasing KDR and here it is.

I kept the GUI simple, nothing fancy, just a dark grey/silver background..

VirScan
VirusTotal

THE FOLLOWING CODE IS COPIED STRAIGHT FROM THE SOURCE OF THIS KDR CALCULATOR. THE CODE IS FOR AUTOIT v3, AND NO I WILL NOT TRANSLATE IT FOR YOU.. unless i know you AND consider you as a personal friend.

Func CurrentKDR()
	$K1 = GUICtrlRead($Kills)
	$D1 = GUICtrlRead($Deaths)
	$C1 = $K1 / $D1
	$F1 = StringLeft($C1, 4)
	If $K1 = 0 Or $D1 = 0 Then
		GUICtrlSetData($Current, "Try Again..")
		GUICtrlSetState($Desired, $GUI_DISABLE)
		GUICtrlSetState($Button2, $GUI_DISABLE)
	Else
		GUICtrlSetData($Current, $F1)
		GUICtrlSetState($Desired, $GUI_ENABLE)
		GUICtrlSetState($Button2, $GUI_ENABLE)
	EndIf
EndFunc
Func DesiredKDR()
	$K = GUICtrlRead($Kills)
	$D = GUICtrlRead($Deaths)
	$E = GUICtrlRead($Desired)
	$y = $D * $E
	$x = $K / $E
	$v = $y - $K
	$t = $x + $D
	$m = $v + $K
	$m2 = $t - $D
	$stringM2 = StringSplit($m2, ".")
	$stringM = StringSplit($m, ".")
	$stringV = StringSplit($v, ".")
	If GUICtrlRead($Desired) = 0 Then
		GUICtrlSetData($KillsToGo, "What Do You Want Your KDR To Be?")
	ElseIf GUICtrlRead($Desired) > 0 Then
		If $v >= 0 Then
			GUICtrlSetData($KillsToGo, $stringV[1] & " More Kills")
			GUICtrlSetData($KillsAfter, $stringM[1])
			GUICtrlSetData($DeathsAfter, $D)
		ElseIf $v < 0 Then
			GUICtrlSetData($KillsToGo, $stringM2[1] - $D & " More Deaths")
			GUICtrlSetData($KillsAfter, $K)
			GUICtrlSetData($DeathsAfter, $stringM2[1])
		EndIf
	ElseIf GUICtrlRead($Desired) < 0 Then
		GUICtrlSetData($KillsToGo, "Silly Noob.. No Such Thing As Negative KDR")
	EndIf
EndFunc

@bombs.. dont know if you actually wanted to do a KDR Calc.. however if you do i'd be glad to help you with the math of it.

[NOOB]

Hey do you mind if i convert this to vb.net for others?

Dim KD as String
KD = Kills.Text / Deaths.Text
Textbox1.Text = KD

[DeadLineHF]

CurrentKDR

Function currentKDR()
        Dim k1 As String = kills.Text
        Dim D1 As String = deaths.Text
        Dim C1 As String = k1 / D1
        Dim F1 As String = C1.Remove(4, (C1.Length - 1))
        If k1 = 0 Then
            TextBox3.Text = "Try Again.."
            Button2.Enabled = False
        Else
            TextBox3.Text = F1
            Button2.Enabled = True
        End If
    End Function

[pepsi233]

This is sick once again WPS u pwned all of us with ur beast skills nice job OFC?!

[coryster]

yea im pretty sure its not so advanced or even works here is a screenie of the epic failure of a KDR calculator

___________________________________
[IMG]https://s689.photobucke*****m/albums/vv252/coryster/?action=view&current=epicfail.png[/IMG]

now here is the screenie yall

____________________________
[IMG]https://s689.photobucke*****m/albums/vv252/coryster/?action=view&current=epicfail.png[/IMG]

now here is the screenie yall

____________________________
[IMG]https://s689.photobucke*****m/albums/vv252/coryster/?action=view&current=epicfail.png[/IMG]

w

wowo wtf srry about that here is the screenie

_________________________

wowo wtf srry about that here is the screenie

_________________________
[IMG]https://i689.photobucke*****m/albums/vv252/coryster/epicfail.png?t=1272594999[/IMG][/quote]

lol does this seem any where to the rite KDR nope

wow its not lol

[Synchromanica]

Wow this looks great!

[Grim]

w

wowo wtf srry about that here is the screenie

_________________________
[IMG]https://i689.photobucke*****m/albums/vv252/coryster/epicfail.png?t=1272594999[/IMG]

try using an actual KDR.. instead of forcing a fraction so small the numbers carry over.. but thanks for pointing that out to me and its Fixed!

go ahead, redownload...

[BossMan.]

Perfect size. Perfect GUI. Made from a perfect Minion. Maybe add a list of all the requirements specific servers need.

[041681]

wow looks nice but the concept seems a bit simple xD !!! ~just the way i like it !!

[[MPGH]AVGN]

i think this is the first ever WPS app that you dont have to press ctrl-alt-esc-F1 and all that stuff to close.. GJ