|GDM| German-Deathmatch

#include api.ahk
#SingleInstance, Force
#UseHook, On
#IfWinActive, GTAA:MP
#NoEnv

SetTimer, KillScript, 100

iniread, Autokill, Killscript.ini, Funktionen, Autokill
iniread, AutoSpruch, Killscript.ini, Funktionen, AutoSpruch
iniread, Spruch1, KillScript.ini, Sprüche, spruch1
iniread, Spruch2, KillScript.ini, Sprüche, spruch2
iniread, Spruch3, KillScript.ini, Sprüche, spruch3
iniread, Spruch4, KillScript.ini, Sprüche, spruch4
iniread, gangwarkillSpruch, KillScript.ini, Sprüche, Gangwarkillspruch


Gui, Add, Checkbox, vAutoKill Checked%AutoKill%, Automatisch Gangwarkill senden?
Gui, Add, Checkbox, vAutoSpruch Checked%AutoSpruch%, Automatisch Spruch senden?
Gui, Add, Text, x200 y5 , | /kills = /f Aktuelle Kills: | /clearkill = Letzten kill löschen`n| /setkills = Kill zahl festlegen | /gwar = Gangwarkill Kill. Nr
Gui, Add, Text, x5 y55 , Spruch1:
Gui, Add, Text,x5 y85 , Spruch2:
Gui, Add, Text,x5 y115, Spruch3:
Gui, Add, Text, x5 y145, Spruch4:
Gui, Add, Text, x5 y175, GangwarkillSpruch:
Gui, Add, Text, x5 y205 vGspruch w500, Gangwarkillspruch: /f %Gangwarkillspruch% - Kill Nr. 1337
Gui, Add, Edit, x50 y50 vSpruch1 h22 w430, %Spruch1%
Gui, Add, Edit, x50 y80 vSpruch2 h22 w430, %Spruch2%
Gui, Add, Edit, x50 y110 vSpruch3 h22 w430, %Spruch3%
Gui, Add, Edit, x50 y140 vSpruch4 h22 w430, %Spruch4%
Gui, Add, Edit, x100 y170 vGangwarkillspruch h22 w290, %GangwarkillSpruch%
Gui, Add, Button,x50 y230 gSpeichern, Speichern
Gui, Add, Text, x115 y230, Alle 4 Felder sollten mit einem Satz beleg sein,`n sonst sendet er manchmal nichts oder "Error".
Gui, Show, h270 w500
return

GuiClose:
ExitApp

Speichern:
Gui, Submit, Nohide
iniwrite, %AutoKill%, KillScript.ini, Funktionen, AutoKill
iniwrite, %AutoSpruch%, KillScript.ini, Funktionen, AutoSpruch
iniwrite, %Spruch1%, KillScript.ini, Sprüche, Spruch1
iniwrite, %Spruch2%, KillScript.ini, Sprüche, Spruch2
iniwrite, %Spruch3%, KillScript.ini, Sprüche, Spruch3
iniwrite, %Spruch4%, KillScript.ini, Sprüche, Spruch4
iniwrite, %Gangwarkillspruch%, KillScript.ini, Sprüche, Gangwarkillspruch
GuiControl, ,Gspruch, Gangwarkillspruch: /f %Gangwarkillspruch% - Kill Nr. 1337
Traytip, GangWarkill Script, Einstellungen wurden Gespeichert!, 3 , 1
return

KillScript:
if(!WinActive("GTAA:MP"))
return
GetChatLine(1, Chatline1)
GetChatLine(0, Chatline)
if(instr(Chatline1, "Du hast folgendes Verbrechen begangen:"))
{
Regexmatch(Chatline1, "i)Du hast folgendes Verbrechen begangen: \[Mord\], Zeuge: (.*)", Kill)
if(AutoKill = 1) AND (AutoSpruch = 1){
IniRead, Kills, KillScript.ini, Optionen, Kills
Kills = %Kills%
Kills++
Iniwrite, %Kills%, KillScript.ini, Optionen, Kills
Sendchat("/f " GangwarkillSpruch " - Kill Nr. " Kills "")
Suspend On
Random, Zahl, 1 , 6
GoSub, Spruch%Zahl%
Suspend Off
return
}else if(AutoKill = 1) AND (AutoSpruch = 0){
IniRead, Kills, KillScript.ini, Optionen, Kills
Kills = %Kills%
Kills++
Iniwrite, %Kills%, KillScript.ini, Optionen, Kills
Sendchat("/f " GangwarkillSpruch " - Kill Nr. " Kills "")
}
}
return

Spruch1:
Sendchat("" Spruch1 "")
return

Spruch2:
Sendchat("" Spruch2 "")
return

Spruch3:
Sendchat("" Spruch3 "")
return

Spruch4:
Sendchat("" Spruch4 "")
return

Spruch5:
Sendchat("" Spruch5 "")
return

Spruch6:
Sendchat("" Spruch6 "")
return

/Kills::
Suspend Permit
IniRead, Kills, KillScript.ini, Optionen, Kills ;
Kills = %Kills%
Sendchat("/f Aktuelle Kills: " Kills "")
Hotkey, T, On
Suspend Off
return

/clearkill::
Suspend Permit
IniRead, Kills, KillScript.ini, Optionen, Kills ;
Kills = %Kills%
Kills--
Iniwrite, %Kills%, KillScript.ini, Optionen, Kills
Sendchat("/f 1 Kill Gecleart - Aktuell: " Kills "")
Hotkey, T, On
Suspend Off
return

/setkills::
Suspend Permit
Sendinput, Kills:{space}
Input Kills,V I M,{enter}
SendInput t{end}+{home}{esc}
Sendinput t{del}{enter}
if Kills is not number
{
Sleep, 200
Addchatmessage(0xFF6600, "Bitte gebe eine gültige Zahl ein!")
return
}else{
Addchatmessage(0x66FF00, "Kills auf: " Kills " geändert!")
Iniwrite, %Kills%, KillScript.ini, Optionen, Kills
}
return

/gwar::
Suspend, permit
Sendinput, {enter}
IniRead, Kills, KillScript.ini, Optionen, Kills
Kills = %Kills%
Kills++
Iniwrite, %Kills%, KillScript.ini, Optionen, Kills
Sendchat("/f " GangwarkillSpruch " - Kill Nr. " Kills "")
return

{ ;______GTABASIERT____;

~+T::
~t::
Label_T:
Suspend, On
Hotkey, Enter, On
Hotkey, NumPadEnter, On
Hotkey, Escape, On
Hotkey, t, Off
Hotkey, +T, Off
return


~NumpadEnter::
~Enter::
~Escape::
Label_Enter:
Suspend, Permit
Suspend, Off
Hotkey, t, On
Hotkey, +T, On
Hotkey, Enter, Off
Hotkey, NumPadEnter, Off
Hotkey, Escape, Off
return

}