😎 Code for CBL Checker & KDR Calculator-

This will be great codes for Multi-Tool, or just a simple tool.....

Code for KDR Calculator-

Code:

Function FKDR(ByVal Kills As String, ByVal Deaths As String, ByVal KDR As String)
        Dim Result As Double
        If KDR = 0 Then
            Result = Kills / Deaths
        Else
            Result = KDR * Kills - Deaths
        End If
        If KDR < 1 Then
            Return Format(Result, "0.00")
        Else
            Return Format(Result, "0")
        End If
    End Function

Code for CBL Checker

Code:

Public Sub CBLDirty(ByVal player As String)
        Try
            Dim Strings As String
            Dim wc As New WebClient

            Strings = wc.DownloadString("http://thecaconline.net/cbl/player/" + person + ".html") 
            wc.Dispose() 
            If Strings.Contains("http://thecaconline.net/cbl/images/dirty.png") Then
                'PLAYER IS CBL DIRTY
                return true
            Else
                'PLAYER IS CBL CLEAN
                return false
            End If
            

        Catch ex As Exception
            MsgBox("Error!")
            'error
        End Try
    End Sub

Credit
Jusmaid "Main Coder
Ultahackers "Edits

Click Thanks Button if like them codes:*&