#IfWinActive GTA:SA:MP
#SingleInstance force
#Persistent
#UseHook
#MaxHotkeysPerInterval 1000
#NoEnv
#Include API.ahk

SetTimer, Timer, 500

Gui, Add, Text, x12 y9 w450 h140 , Y - /lock`n3 - /Buygun & /ausrüsten`n/setkills - Kills setzen`n/setdeaths - Tode setzen
Gui, Show, w163 h77, GCT GUI
return

GuiClose:
exitapp


Timer:
if (!WinActive("GTA:SA:MP"))
    return

DeathState := 0

getChatLine(0, Chat0)
getChatLine(1, Chat1)
getChatLine(2, Chat2)

IniRead, GKills, Settings.ini, GCT, GKills
IniRead, GDeaths, Settings.ini, GCT, GDeaths
IniRead, Verbrecher, Settings.ini, GCT, Verbrecher
IniRead, GDKills, Settings.ini, GCT, K_%A_DD%%A_MM%%A_Year%
IniRead, GDKills, Settings.ini, GCT, D_%A_DD%%A_MM%%A_Year%

GKD := Round(GKills/GDeaths, 3)

Name := GetUserName()
Zone := GetPlayeRZone()
City := GetPlayerCity()
HP := GetPlayerHealth()


if(instr(Chat1, "* Du hast ") && instr(Chat1, " getötet")){
    GKills++
    GDKills++
    IniWrite, %GKills%, Settings.ini, GCT, GKills
    IniWrite, %GDKills%, Settings.ini, GCT, K_%A_DD%%A_MM%%A_Year%
    AddChatMessage("{FFFFFF}|{0489B1}GCT-Binder{FFFFFF}| Kills: {FFBF00}" GKills "{FFFFFF}, Tages Kills: {FFBF00}" GDKills "{FFFFFF}, KD: {FFBF00}" GKD)
    Sleep, 100
    if (instr(Chat0, "* Polizist " Name " hat Verbrecher ") && instr(Chat0, " festgenommen.")){
        RegExMatch(Chat0, "\* Polizist " name " hat Verbrecher (.*) festgenommen\.", Var_)
        Verbrecher++
        IniWrite, %Verbrecher%, Settings.ini, GCT, Verbrecher
        SendChat("/d HQ: Die Strafakte von " Var_1 " wurde gesäubert | gesamte Verhaftungen: " Verbrecher)
    }
    if (instr(Chat0, "Du hast 1 Wanted erhalten, Verbrechen: Mord. Derzeitige Wantedstufe: ")){
        RegExMatch(Chat0, "Du hast 1 Wanted erhalten, Verbrechen\: Mord\. Derzeitige Wantedstufe: (.*)", Wanteds)
        RegExMatch(Chat1, "\* Du hast (.*) getötet \( \+(.*) EXP\)\.", Opfer)
        SendChat("/g » " Opfer1 " wurde in " Zone " getötet | Gesamte Kills: " GKills " | Aktuelle Wanteds: " Wanteds1)
    }
    Sleep, 1000
    SendChat("Danke für den Freekill. Snack <3")
}

if(GetPlayerHealth() < 1 && DeathState = 0){
    sleep, 3000
    if (IsPlayerInRangeOfPoint(1133.0504,-2038.4034,69.1000, 50))
        return
    if (instr(Chat0, "Anwalt David Boies bietet dir überteuert eine Kaution") || instr(Chat1, "Anwalt David Boies bietet dir überteuert eine Kaution"))
        return
    if (getPlayerInteriorID() != 0)
        return
    DeathState := 1
    GDeaths ++
    GDDeaths ++
    IniWrite, %GDeaths%, Settings.ini, GCT, GDeaths
    IniWrite, %GDDeaths%, Settings.ini, GCT, D_%A_DD%%A_MM%%A_Year%
    AddChatMessage("{FFFFFF}|{0489B1}GCT-Binder{FFFFFF}| Tode: {FFBF00}" GDeaths "{FFFFFF} | Tages Tode: {FFBF00}" GDDeaths "{FFFFFF} | KD: {FFBF00} " GKD)
    Sleep, 15000
}else if(DeathState = 1 && GetPlayerHealth() > 0){
    DeathState := 0
}
return


:?:/setkills::
Suspend, Permit
GKIlls := PlayerInput("Kills: ")
if (GKills = "" || GKills is not number)
    return
IniWrite, %GKills%, Settings.ini, GCT, GKills
return

:?:/setdeaths::
Suspend, Permit
GDeaths := PlayerInput("Tode: ")
if (GDeaths = "" || GDeaths is not number)
    return
IniWrite, %GDeaths%, Settings.ini, GCT, GDeaths
return


~y::
if (IsInChat())
    return
if(IsPlayerInAnyVehicle()){
    if (IsPlayerDriver()){
        SendChat("/lock")
    }
}else{
    SendChat("/carlock")
}
return

~3::
if (isInChat())
    return
SendChat("/ausrüsten")
SendChat("/buygun")
Sleep, 125
SendInput {ENTER}
Sleep, 125
SendInput {down} {ENTER}
Sleep, 125
SendInput {down} {down} {ENTER}
Sleep, 125
SendInput {down} {down} {down} {ENTER}
Sleep, 125
SendInput {ESCAPE}}
return

~2::
if (isInChat())
	return
SendChat("/buygun")
return

~1::
if (isInChat())
	return
SendChat("/equip")
return


FormatNumber(_number){
    StringReplace _number, _number, -
    IfEqual ErrorLevel,0, SetEnv Sign,-
        Loop Parse, _number, .
        If (A_Index = 1)
        {
            len := StrLen(A_LoopField)
            Loop Parse, A_LoopField
            If (Mod(len-A_Index,3) = 0 and A_Index != len)
                x .= A_LoopField "."
            Else
                x .= A_LoopField
        }
        Else
            Return Sign x "." A_LoopField
        Return Sign x
}
return