ReWritting by evilbunnnie!

    'Check if they are hacking
    If HasItem(Index, 1) < 10000 Then
        HackingAttempt Index, "Packet Modification/Source Modification"
        Exit Sub
    End If

    'Check if the player is online
    If FindChar(Name) = False Then
        Call PlayerMsg(Index, "This player does not exist!", White)
        Exit Sub
    End If

    'Check if they have enough gold!
    If HasItem(Index, 1) < Bounty Then
        Call PlayerMsg(Index, "You don't have enough gold!", White)
        Exit Sub
    End If

    If GetVar(App.Path & "\data\Bounty.ini", Name, "CurrentBounty") = 0 Then
        Call TakeInvItem(Index, Player(Index).Inv(m).Num, Bounty)
        Call PutVar(App.Path & "\data\Bounty.ini", Name, "CurrentBounty", CStr(Bounty))
        Call SendBounty(Index, Bounty, Name)
        Call PlayerMsg(Index, "Your bounty of " & Bounty & " gold on " & Name & " has been set!", White)
        Call GlobalMsg("A bounty of " & Bounty & " gold has been set on " & Name & ". Kill on sight!", White)
    Else
        Call PlayerMsg(Index, "This player already has a bounty upon their head!", White)
    End If