#IfWinActive, GTA:SA:MP
#Include %A_ScriptDir%/API/SAMP.ahk
#SingleInstance, force
#UseHook
#NoEnv
#Persistent
Process, Priority, , High

global version 								:= 0.1
global chatTick								:= 0
global chatTimeout 							:= 700
global iRefreshObj 							:= 0
global iUpdateTickObj 						:= 1000
global oObjects 							:= []
global iRefreshPicks                        := 0
global iUpdateTickPicks                     := 1000
global oPickups	                            := []
global keyprefix							:= "{950505}[Triaden-Keybinder]{CCCCCC} "

if(!A_IsAdmin){
Run *RunAs "%A_ScriptFullPath%",, UseErrorLevel
if(ErrorLevel){
MsgBox, 21, Fehler!, Der Traiden-Keybinder muss als Administrator gestartet werden`, damit er komplett funktionsfähig ist!
IfMsgBox, Retry
Reload
else
ExitApp
}
return
}

IfExist update.bat
{
	FileDelete update.bat
}


UrlDownloadToFile http://ni1064718_2.vweb06.nitrado.net/Keybinder/Triaden/version.txt, version.txt
FileRead, NewestVersion, version.txt
FileDelete version.txt
if(NewestVersion > Version)
{
	MsgBox, 4,, Die neue Version %NewestVersion% ist verfügbar.`nMöchtest du das Programm aktualisieren?
	IfMsgBox, YES
	{
		SplashTextOn, 200, 50, Triaden Keybinder , Der Triaden Keybinder wird geupdated! Bitte warten...
		UrlDownloadToFile http://ni1064718_2.vweb06.nitrado.net/Keybinder/Triaden/Triaden-Keybinder.exe, %A_ScriptName%.new
		UpdateBat=
	    (
			Ping 127.0.0.1
			Del "%A_ScriptName%"
			Rename "%A_ScriptName%.new" "%A_ScriptName%"
			"%A_ScriptName%"
	     )
	     FileAppend, %UpdateBat%, update.bat
	     Run, update.bat
	     ExitApp
		 SplashTextOff
        }
}

FileCreateDir, %A_MyDocuments%\Triaden-Keybinder\
FileCreateDir, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste
FileCreateDir, %A_MyDocuments%\Triaden-Keybinder\Images
FileCreateDir, %A_MyDocuments%\Triaden-Keybinder\Sonstiges
FileInstall, Images\background.jpg, %A_MyDocuments%\Triaden-Keybinder\Images\background.jpg, 1
FileInstall, Sonstiges\Gangzone.mp3, %A_MyDocuments%\Triaden-Keybinder\Sonstiges\Gangzone.mp3, 1

SetTimer, AutoLoginTimer, on
SetTimer, HPCheck, 50
SetTimer, ArmorCheck, 50
SetTimer, CheckGegner, 5000
SetTimer, updateGUI, 1000
SetTimer, MoneyCheck, 100
SetTimer, AutoFunks, 100

ini = %A_MyDocuments%\Triaden-Keybinder\Keybinder.ini
If(!FileExist(ini))
{
	IniWrite, 0, %ini%, Einstellungen, Passwort
	IniWrite, 0, %ini%, Daten, LoginCounter
	IniWrite, 0, %ini%, Daten, Kills
	IniWrite, 0, %ini%, Daten, Deaths
	IniWrite, 0, %ini%, Daten, KillSpruch
	IniWrite, 0, %ini%, Daten, DeathSpruch
	IniWrite, 0, %ini%, Daten, PickSpruch
	IniWrite, 0, %ini%, Daten, ALotto
	IniWrite, 0, %ini%, Daten, AZoll

	IniWrite, 0, %ini%, Gangfight, GFKills
	IniWrite, 0, %ini%, Gangfight, GFDeaths

	ALPasswort := ""
	kspruch := ""
	dspruch := ""
	pspruch := ""
	IniWrite, %ALPasswort%, %ini%, Einstellungen , Passwort
	IniWrite, %kspruch%, %ini%, Daten , KillSpruch
	IniWrite, %dspruch%, %ini%, Daten , DeathSpruch
	IniWrite, %pspruch%, %ini%, Daten , PickSpruch
}
IniRead, ALPasswort, %ini%, Einstellungen, Passwort
IniRead, logincounter, %ini%, Daten, LoginCounter
IniRead, kills, %ini%, Daten, Kills
IniRead, deaths, %ini%, Daten, Deaths
IniRead, kspruch, %ini%, Daten, KillSpruch
IniRead, dspruch, %ini%, Daten, DeathSpruch
IniRead, pspruch, %ini%, Daten, PickSpruch
IniRead, alotto, %ini%, Daten, ALotto
IniRead, azoll, %ini%, Daten, AZoll

IniRead, gfkills, %ini%, Gangfight, GFKills
IniRead, gfdeaths, %ini%, Gangfight, GFDeaths


Gui, 2:Add, Picture, x-8 y-1 w670 h230 , %A_MyDocuments%\Triaden-Keybinder\Images\background.jpg
Gui, 2:Add, Button, x22 y19 w180 h40 gConnectSAMP, Auf LyD Server verbinden...
Gui, 2:Add, Button, x22 y69 w180 h40 gConnectTS, Auf LyD Teamspeak verbinden...
Gui, 2:Add, Button, x22 y119 w180 h40 gOpenForum, Forum öffnen...
Gui, 2:Add, Button, x22 y169 w180 h40 gOpenUCP, UCP öffnen...
Gui, 2:Add, Text, x232 y39 w200 h20 +Center +BackgroundTrans cWhite vkillsg, Morde: %kills%
Gui, 2:Add, Text, x232 y69 w200 h20 +Center +BackgroundTrans cWhite vdeathsg, Tode: %deaths%
Gui, 2:Add, Text, x232 y99 w200 h20 +Center +BackgroundTrans cWhite vgfkillsg, Gangfight Morde: %gfkills%
Gui, 2:Add, Text, x232 y129 w200 h20 +Center +BackgroundTrans cWhite vgfdeathsg, Gangfight Tode: %gfdeaths%
Gui, 2:Add, Text, x232 y159 w200 h20 +Center +BackgroundTrans cWhite vloginsg, Aktuelle Login's: %logincounter%
Gui, 2:Add, GroupBox, x222 y19 w220 h190 +Center cBlack, Statistiken
Gui, 2:Add, Button, x462 y19 w180 h40 gKeySettings, Einstellungen
Gui, 2:Add, Button, x462 y69 w180 h40 , Keybinder Hilfe
Gui, 2:Add, Button, x462 y119 w180 h40 gKeyBug, Keybinder Bug melden
Gui, 2:Add, Button, x462 y169 w180 h40 , Gegnerliste [ - Folgt noch - ]
Gui, 2:Show, w665 h232, Triaden - Keybinder | Version: %version%
Gui, 3:Add, Picture, x-8 y-1 w560 h220 , %A_MyDocuments%\Triaden-Keybinder\Images\background.jpg
Gui, 3:Add, Button, x12 y69 w170 h30 gSavePassword, Passwort Speichern
Gui, 3:Add, Text, x12 y19 w170 h20 +Center +BackgroundTrans cWhite, Passwort für das AutoLogin:
Gui, 3:Add, Edit, x12 y39 w170 h20 +Center vpass, %ALPasswort%
Gui, 3:Add, Text, x202 y19 w330 h20 +Center +BackgroundTrans cWhite, Killspruch:
Gui, 3:Add, Edit, x202 y39 w330 h20 +Center vks, %kspruch%
Gui, 3:Add, Text, x202 y69 w330 h20 +Center +BackgroundTrans cWhite, Deathspruch:
Gui, 3:Add, Edit, x202 y89 w330 h20 +Center vds, %dspruch%
Gui, 3:Add, Text, x202 y119 w330 h20 +Center +BackgroundTrans cWhite, Pickwaffenspruch:
Gui, 3:Add, Edit, x202 y139 w330 h20 +Center vps, %pspruch%
Gui, 3:Add, Button, x202 y169 w330 h30 gSaveSpruche, Speichern
return


KeySettings:
IniRead, ALPasswort, %ini%, Einstellungen, Passwort
IniRead, kspruch, %ini%, Daten, KillSpruch
IniRead, dspruch, %ini%, Daten, DeathSpruch2
IniRead, pspruch, %ini%, Daten, PickSpruch
Gui, 3:Show, w555 h220, Triaden - Keybinder | Einstellungen | %version%
return

SavePassword:
GuiControlGet,ALPasswort ,,Pass
IniWrite, %ALPasswort%, %ini%, Einstellungen , Passwort
MsgBox, 0, Passwort gespeichert!, Dein Passwort wurde erfolgreich gespeichert!
return

ConnectSAMP:
RegRead GTA_SA_EXE, HKEY_CURRENT_USER, Software\SAMP, gta_sa_exe
SplitPath, GTA_SA_EXE,, PFAD
Run %Pfad%\samp.exe server.lyd-roleplay.de:7777, %PFAD%
return

ConnectTS:
Run ts3server://teamspeak.lyd-roleplay.de/
return

OpenForum:
Run http://lyd-roleplay.de/forum/
return

OpenUCP:
Run http://ucp.lyd-roleplay.de/
return

SaveSpruche:
GuiControlGet,kspruch ,,Ks
IniWrite, %kspruch%, %ini%, Daten , KillSpruch

GuiControlGet,dspruch ,,Ds
IniWrite, %dspruch%, %ini%, Daten , DeathSpruch

GuiControlGet,pspruch ,,Ps
IniWrite, %pspruch%, %ini%, Daten , PickSpruch
MsgBox, 0, Sprüche gespeichert!, Dein Sprüche wurden erfolgreich gespeichert!
return

KeyBug:
run https://www.lyd-roleplay.de/forum/index.php/ConversationAdd/?userID=26129
return

GuiClose:
ExitApp


;==========================================================================================================================================
;==============================================================[ Timer ]===================================================================
AutoFunks:
GetChatLine(0, ChatLine0)
if(instr(ChatLine0, "Du bist nun im AFK-Modus. Deine Zahltag-Zeit läuft nun nichtmehr weiter."))
{
TimerSekunden := 0
TimerMinuten := 0
SetTimer, Counter, 1000
AddChatMessage(keyprefix "{FF6600}AFK: {AFAFAF}Deine AFK-Zeit wird gezählt!")
Sleep 100
}
GetChatLine(1, ChatLine1)
if(instr(ChatLine1, "Du bist nun nicht mehr im AFK-Modus."))
{
AddChatMessage(keyprefix "{FF6600}AFK: {AFAFAF}Du warst " TimerMinuten " Minute(n) und " TimerSekunden " Sekunden AFK.")
SetTimer, Counter, Off
}

GetChatLine(0, ChatLine0)
if(InStr(ChatLine0, "Gangfightkill an " GetPlayerName() ""))
{
	IniRead, deaths, %ini%, Gangfight, GFDeaths
	gfdeaths++
	sleep 500
	Iniwrite, %deaths%, %ini%, Daten, Deaths
	position := GetPlayerZone()
	stadt := GetPlayerCity()
	SendChat("/fc Ich bin gestorben. Ort: " stadt " - " position "")
}
GetChatLine(1, Chatline1)
if(InStr(Chatline1, "hat den Verbrecher " GetPlayerName() " getötet. <<")) {
	SendChat("/fc Ich bin im Gefängnis")
}

If(GetPlayerHealth() == 0)
{
	GetChatLine(0, ChatLine0)
	if(InStr(ChatLine0, "Gangfightkill an " GetPlayerName() ""))
	{
		return
	}
	else
	{
		GetChatLine(0, SendChatline0)
		if(InStr(SendChatline0,""))
		{
			IniRead, deaths, %ini%, Daten, Deaths
			deaths++
			sleep 500
			Iniwrite, %deaths%, %ini%, Daten, Deaths
			IniRead, gfdeaths, %ini%, Gangfight, GFDeaths
			IniRead, deaths, %ini%, Daten, Deaths
			globaldeaths := gfdeaths + deaths
			zone := GetPlayerZone()
			city := GetPlayerCity()
			SendChat("/fc Ich bin gestorben. Ort: " city " - " zone "")
			AddChatMessage(keyprefix "Du bist gestorben! Deine aktuellen Deaths: {00FFFF}" globaldeaths " !")
			if(dspruch == "") {
			} else {
				SendChat("/ic " dspruch "")
			}
			sleep 60000
		}
	}
}

GetChatLine(1, Chatline1)
if(InStr(Chatline1, "hat den Verbrecher " GetPlayerName() " getötet. <<")) {
	SendChat("/fc Ich bin im Gefängnis")
}

GetChatLine(1, line)
if(InStr(line, GetPlayerName() " Gangfightkill an"))
{
gfkills++
IniWrite, %gfkills%, %ini%, Gangfight, GFKills
IniRead, kspruch, %ini%, Daten, KillSpruch
globalKills := kills+gfkills
SendChat("/fc " kspruch " | Kill Nr. " globalKills " ")
Sleep, 100
ShowGameText("~g~+1 GANGZONE KILL", 1000, 3)
Soundplay %A_MyDocuments%\Triaden-Keybinder\Sonstiges\Gangzone.mp3
}
GetChatLine(1, line)
GetChatLine(2, line2)
if(InStr(line, "Du hast ein Verbrechen begangen! (Mord an einem Gangmitglied) Reporter: Polizeizentrale") || InStr(line1, "Du hast ein Verbrechen begangen! (Mord an einem Gangmitglied) Reporter: Polizeizentrale") || InStr(line, "Du hast ein Verbrechen begangen! (Beamten/Zivilisten Mord) Reporter: Polizeizentrale") || InStr(line1, "Du hast ein Verbrechen begangen! (Beamten/Zivilisten Mord) Reporter: Polizeizentrale"))
{
kills++
IniWrite, %kills%, %ini%, Daten, Kills
globalKills := kills+gfkills
IniRead, kspruch, %ini%, Daten, KillSpruch
SendChat("/ic " kspruch " | Kill Nr. " globalKills " ")
Sleep, 100
ShowGameText("~g~+1 STREETZONE KILL", 1000, 3)
}

IniRead, alotto, %ini%, Daten, ALotto
if(alotto == 1)
{
	GetChatLine(1, Chatline1)
	if(InStr(Chatline1, "Die Lottoziehung beginnt um ")) {
		random, alottonr, 1, 99
		if(GetPlayerMoney() < "1200") {
			AddChatMessage(keyprefix "Du hast zu wenig Geld für das automatische Lotto!")
		} else {
			SendChat("/lotto " alottonr)
		}
	}
}

GetChatLine(0, ChatLine0)
if(InStr(ChatLine0, "* " GetPlayerName() " nimmt Spice zu sich.")) {
	sleep 10000
	AddChatMessage(keyprefix "Du kannst wieder Spice nehmen!")
}

GetChatLine(0, SendChatline0)
if(InStr(SendChatline0,"Tippe nun '/Accept Anwalt' um die ")) {
		SendChat("/Accept anwalt")
		Sleep, 4000
}

GetChatLine(0, SendChatline0)
if(instr(SendChatline0,"Du hast die Befreiung von"))
{
	SendChat("/fc Ich bin aus dem Gefängniss wieder draussen!")
	sleep 10000
}

if(IsPlayerInRangeOfPoint(-381.9350,-1426.4290,26.0573, 2.0)){
	SendChat("/zerbrechen")
	sleep 10000
}

if(IsPlayerInRangeOfPoint(758.5164,375.0325,23.1956, 2.0)) {
	SendChat("/gheilen")
	sleep 1000
}

GetChatLine(0, SendChatline0)
if(InStr(SendChatline0,"hat dir angeboten, dein Fahrzeug für $100 zu reparieren.")) {
	SendChat("/Accept repair")
	sleep 4000
}

GetChatLine(0, SendChatline0)
if(InStr(SendChatline0,"hat dir angeboten, dein Fahrzeug für $1 aufzutanken.")) {
	SendChat("/Accept refill")
	sleep 4000
}

if(azoll == 1) {
	GetChatLine(0, SendChatline0)
	if(InStr(SendChatline0,"Sie stehen an einer Zollstation, der Zollübergang kostet $500! Befehl: /Zoll")) {
		If(IsPlayerDriver() == 1) {
			SendChat("/zoll")
			sleep 4000
		}
	}
}
return

Counter:
TimerSekunden++
if(TimerSekunden == 60)
{
TimerMinuten++
TimerSekunden := 0
}
return

updateGUI:
IniRead, logincounter, %ini%, Daten, LoginCounter
IniRead, kills, %ini%, Daten, Kills
IniRead, deaths, %ini%, Daten, Deaths
IniRead, gfkills, %ini%, Gangfight, GFKills
IniRead, gfdeaths, %ini%, Gangfight, GFDeaths

GuiControl, 2:, killsg, Morde: %kills%
GuiControl, 2:, deathsg, Tode: %deaths%
GuiControl, 2:, gfkillsg, Gangfight Morde: %gfkills%
GuiControl, 2:, gfdeathsg, Gangfight Tode: %gfdeaths%
GuiControl, 2:, loginsg, Aktuelle Login's: %logincounter%
return

MoneyCheck:
money  := getPlayerMoney()
if(money < oldmoney)
{
zwischensumme := Round(stringmath(oldmoney-money), 0)
if(zwischensumme == "ERROR" || zwischensumme == ERROR)
{
}
else
{
ShowGameText("~r~- " zwischensumme " $", 1000, 1)
}
}
if(money > oldmoney)
{
zwischensumme := Round(stringmath(money-oldmoney), 0)
if(zwischensumme == "ERROR" || zwischensumme == ERROR)
{
}
else
{
ShowGameText("~g~+ " zwischensumme " $", 1000, 1)
}
}
oldmoney := getPlayerMoney()
return

ArmorCheck:
armor := GetPlayerArmor()
{
if(armor < oldarmor AND oldarmor)
{
armorvar1 := armor
armorvar2 := oldarmor
endvar2 := armorvar1-armorvar2
if(endvar2 < -1)
{
AddChatMessage("{FFFFFF}Du hast soeben {B40226}" endvar2 " Armor {FFFFFF}verloren. Aktuelle Armor: {00FF38}" armor " ")
}
}
else if(armor > oldarmor AND oldarmor)
{
armorvar1 := armor
armorvar2 := oldarmor
endvar2 := armorvar1-armorvar2
if(endvar2 > 1)
{
AddChatMessage("{FFFFFF}Du hast soeben {00FF38}" endvar2 " Armor {FFFFFF}bekommen. Aktuelle Armor: {00FF38}" armor "{FFFFFF}.")
}
}
}
oldarmor := armor
return
HPCheck:
heal := GetPlayerHealth()
{
if(heal < oldheal AND oldheal)
{
healvar1 := heal
healvar2 := oldheal
endvar := healvar1-healvar2
if(endvar < -1)
{
AddChatMessage("{FFFFFF}Du hast soeben {B40226}" endvar " HP {FFFFFF}verloren. Aktuelle HP: {00FF38}" heal " ")
}
}
else if(heal > oldheal AND oldheal)
{
healvar1 := heal
healvar2 := oldheal
endvar := healvar1-healvar2
if(endvar > 1)
{
AddChatMessage("{FFFFFF}Du hast soeben {00FF38}" endvar " HP {FFFFFF}bekommen. Aktuelle HP: {00FF38}" heal "{FFFFFF}.")
}
}
}

CheckGegner:
Suspend Permit
callFuncForAllStreamedInPlayers("GegnerListe")
if (!WinExist("GTA:SA:MP") || GetPlayerState() != 14) {
	gegnerListe := []
	return
}
if (gegnerListe.Length() <= 0) {
	if (!FileExist("gegner.txt"))
		return
	Loop, Read, gegner.txt
		gegnerListe.Push(Object("NAME", A_LoopReadLine, "ID", getPlayerIdByName(A_LoopReadLine)))
}
if (!WinActive("GTA:SA:MP"))
	return
for i, o in gegnerListe {
	playerID := getPlayerIdByName(o.NAME)
	if (playerID != o.ID) {
		o.ID := playerID
		if (gegnerOfflineMsg && playerID == -1)
			AddChatMessage("[Gegnerliste] " o.NAME " hat sich {FF0000}ausgeloggt")
		else if (gegnerOnlineMsg && playerID != -1)
			AddChatMessage("[Gegnerliste] " o.NAME " (" playerID ") hat sich {00FF00}eingeloggt")
	}
}
return

AutoLoginTimer:
IniRead, ALPasswort, %ini%, Einstellungen, Passwort
if(ALPasswort == "")
{
	return
}
if(IsDialogOpen() && GetDialogID() == "1002")
{
SendInput, %ALPasswort%{enter}
sleep 500
AddChatMessage(keyprefix "Du wurdest erfolgreich mit dem Keybinder eingeloggt!")
AddChatMessage(keyprefix "Viel Spaß beim Spielen!")
IniRead, logincounter, %ini%, Daten, LoginCounter
logincounter++
IniWrite, %logincounter%, %ini%, Daten, LoginCounter
FormatTime, Zeit,%A_Now%,HH
if (Zeit > 5)
{
if (Zeit < 12)
{
sleep 1
AddChatMessage("{FF6600}WILLKOMMEN: {FFFFFF}Schönen guten Morgen " GetPlayerName() "!")
return
}
}
if (Zeit > 11)
{
if (Zeit < 18)
{
sleep 1
AddChatMessage("{FF6600}WILLKOMMEN: {FFFFFF}Schönen Tag noch " GetPlayerName() "!")
return
}
}
if (Zeit > 17)
{
if (Zeit < 22)
{
sleep 1
AddChatMessage("{FF6600}WILLKOMMEN: {FFFFFF}Schönen Abend noch " GetPlayerName() "!")
return
}
}
if (Zeit > 21)
{
if (Zeit < 25)
{
sleep 1
AddChatMessage("{FF6600}WILLKOMMEN: {FFFFFF}Schönen Nacht noch " GetPlayerName() "!")
return
}
}
if(Zeit=0)
{
sleep 1
AddChatMessage("{FF6600}WILLKOMMEN: {FFFFFF}Schönen Nacht noch " GetPlayerName() "!")
return
}
if (Zeit > 0)
{
if (Zeit < 6)
{
sleep 1
AddChatMessage("{FF6600}WILLKOMMEN: {FFFFFF}Schönen Nacht noch " GetPlayerName() "!")
return
}
}
else
{
sleep 1
AddChatMessage("{FF6600}WILLKOMMEN: {FFFFFF}Viel Spaß noch " GetPlayerName() "!")
return
}
}
return

;==========================================================================================================================================
;==============================================================[ Keybinds ]================================================================
~M::
if(IsInChat() || IsDialogOpen())
{
SendInput, {%A_ThisHotkey%}
return
}
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
}
else
{
if(IsPlayerInAnyVehicle() == 1)
{
if(IsPlayerDriver() == 1)
{
	FormatTime, Zeit, %A_Now%, HH
	if(GetVehicleEngineState() == 0)
{
SendChat("/Motor")
if(GetVehicleType() == 4)
{
	SendChat("/helm")
}
if(GetVehicleLightState() == 0)
{
	if (Zeit > "17")
{
	if (Zeit < "9")
{
SendChat("/Licht")
}
}
}
}
else
{
SendChat("/Motor")
if(GetVehicleType() == 4)
{
SendChat("/helm")
}
if(GetVehicleLightState() == 1)
{
SendChat("/licht")
}
}
}
else
{
AddChatMessage(keyprefix "Du befindest dich nicht auf dem Fahrersitz.")
return
}
}
else
{
AddChatMessage(keyprefix "Du befindest dich in keinem Fahrzeug.")
return
}
chatTick := A_TickCount
}
return

~X::
if(IsInChat() || IsDialogOpen())
{
Send, {%A_ThisHotkey%}
}
else
{
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
}
else {
{
if(IsPlayerInRangeOfPoint(2324.5957,-1014.0305,1050.2109, 2.0) || IsPlayerInRangeOfPoint(-2655.9614,1416.1271,906.2734, 2.0)) {
SendChat("/clubwaffen")
}
if(IsPlayerInRangeOfPoint(2313.5081,-1008.7404,1050.2109, 2.0) || IsPlayerInRangeOfPoint(-2653.5667,1413.6112,906.2734, 2.0)) {
SendChat("/clubheal")
}
if(IsPlayerInRangeOfPoint(-2719.6331,-318.8333,7.8438, 2.0)) {
SendChat("/gangwaffen")
}
if(IsPlayerInRangeOfPoint(-2722.4104,-321.3080,7.8438, 2.0)) {
SendChat("/waffenlager")
}
if(IsPlayerInRangeOfPoint(-85.5106,2.5403,2.6930, 2.0)) {
SendChat("/getsamen")
}
if(IsPlayerInRangeOfPoint(660.1547,-1869.3678,5.5537, 2.0)) {
SendChat("/kampfstil")
}
if(IsPlayerInRangeOfPoint(673.3032,-1892.3392,4.2861, 7.0)) {
SendChat("/grillen")
}
if(IsPlayerInRangeOfPoint(-1510.5673,1975.2845,48.4219, 2.0)) {
SendChat("/wcodes")
sleep 1800000
AddChatMessage("{00FF00}[NineDemons - Keybinder]{CCCCCC} Du kannst wieder Wantedcodes holen!")
}
if(IsPlayerInRangeOfPoint(361.9383,173.5228,1008.3828, 2.0)) {
SendChat("/stadthalle")
}
if(IsPlayerInRangeOfPoint(1199.5741,-886.0266,43.4391, 2.0)) {
SendChat("/drivein")
}
dist := getDistanceToObj(2942)
if (dist < 2.0 && dist != -1) {
SendChat("/automat")
}
if(IsPlayerInRangeOfPoint(312.2440,-165.9505,999.6010, 2.0) || IsPlayerInRangeOfPoint(295.5446,-80.1187,1001.5156, 2.0) || IsPlayerInRangeOfPoint(296.5771,-37.9326,1001.5156, 2.0)) {
SendChat("/wmenu")
}
if(IsPlayerInRangeOfPoint(2320.4712,-1008.2040,1054.7188, 2.0)) {
SendChat("/automat")
}
dist := getDistanceToPickup(1650)
if(dist < 2.0 && dist != -1) {
SendChat("/snackshop")
sleep 100
SendInput, {enter}
}
dist := getDistanceToPickup(1275)
if(dist < 2.0 && dist != -1) {
SendChat("/jobkleidung")
}
if(IsPlayerInRangeOfPoint(207.3989,-106.3428,1005.1328, 30.0) || IsPlayerInRangeOfPoint(219.3809,-7.5742,1001.2109, 30.0)) {
SendChat("/kleidung")
}
if(IsPlayerInRangeOfPoint(2.1037,-28.9890,1003.5494, 2.0) || IsPlayerInRangeOfPoint(1.9459,-29.0145,1003.5494, 2.0) || IsPlayerInRangeOfPoint(1.9863,-28.9404,1003.5494, 2.0) || IsPlayerInRangeOfPoint(1.9775,-29.0142,1003.5494, 2.0)) {
SendChat("/supermarkt")
}
if(IsPlayerInRangeOfPoint(-2236.7659,130.4098,1035.4141, 2.0)) {
SendChat("/handyshop")
}
if(IsPlayerInRangeOfPoint(548.1861,-1285.3843,17.2212 ,2.0)) {
SendChat("/wartungen")
SendInput, {enter}
}
if(IsPlayerInRangeOfPoint(249.1411,67.5013,1003.6406, 2.0)) {
if(GetPlayerWanteds() == 1) {
	SendChat("/wantedticket")
	sleep 500
	SendInput, {enter}
} else if(GetPlayerWanteds() == 2) {
	SendChat("/wantedticket")
	sleep 500
	SendInput, {down} {enter}
}
else if(GetPlayerWanteds() == 3) {
	SendChat("/wantedticket")
	sleep 500
	SendInput, {down} {down} {enter}
} else if(GetPlayerWanteds() > 3) {
	AddChatMessage(keyprefix "Du hast zu viele Wanteds für ein Wantedticket!")
}
}
if(IsPlayerInRangeOfPoint(2349.7488,-1246.3859,22.5000, 2.0) || IsPlayerInRangeOfPoint(1685.7859,1746.3055,10.8251, 30.0)) {
SendInput, t/safebox{space}
}
if(IsPlayerInRangeOfPoint(2313.1011,-1013.3186,1050.2109, 2.0) || IsPlayerInRangeOfPoint(499.5332,-20.9066,1000.6797, 2.0) || IsPlayerInRangeOfPoint(2000.9357,1009.9331,994.4688, 2.0) || IsPlayerInRangeOfPoint(-2653.7085,1407.0455,906.2734, 2.0)) {
SendChat("/getraenk")
}
if(IsPlayerInRangeOfPoint(1310.1656,-1368.4080,13.5488, 2.0)) {
SendChat("/scheiden")
sleep 100
SendInput, t/heiraten{space}
}
if(IsPlayerInRangeOfPoint(1432.2330,-997.4605,1639.7911, 2.0) || IsPlayerInRangeOfPoint(292.4536,180.1510,1007.1794, 2.0)) {
SendChat("/bank")
}
if(IsPlayerInRangeOfPoint(1441.9370,-991.9668,1639.7843, 2.0)) {
SendChat("/ueberweisen")
}
if(IsPlayerInRangeOfPoint(1438.4084,-997.2498,1639.7911, 2.0) || IsPlayerInRangeOfPoint(298.9324,179.0212,1007.1719, 2.0)) {
SendChat("/kredit")
}
if(IsPlayerInRangeOfPoint(296.8056,188.3641,1007.1719, 2.0)) {
SendChat("/tresoraufbrechen")
}
if(IsPlayerInRangeOfPoint(1083.2622,-1233.8071,15.8203, 2.0)) {
SendInput, t/newsspenden{space}
}
if(IsPlayerInRangeOfPoint(822.3347,1.8946,1004.1797, 2.0)) {
SendChat("/post")
}
if(IsPlayerInRangeOfPoint(2013.6093,-1437.7383,13.5547, 2.0)) {
SendChat("/krankenversicherung")
}
if(IsPlayerInRangeOfPoint(1234.2764,-1823.8817,13.5910, 2.0)) {
SendChat("/fahrpruefung")
}
if(IsPlayerInRangeOfPoint(358.8116,180.4077,1008.3828, 2.0) || IsPlayerInRangeOfPoint(358.7967,184.3770,1008.3828, 2.0)) {
SendChat("/zulassungsstelle")
}
if(IsPlayerInRangeOfPoint(358.8393,167.5780,1008.3828, 2.0)) {
SendChat("/zollpass")
}
if(IsPlayerInRangeOfPoint(2143.8774,1641.5787,993.5761, 2.0)) {
SendChat("/bankausrauben")
}
if(IsPlayerInRangeOfPoint(359.0193,210.1899,1008.3828, 2.0)) {
SendChat("/rechtsschutz")
}
if(IsPlayerInRangeOfPoint(1993.3606,1014.4103,994.8906, 6.0) || IsPlayerInRangeOfPoint(1993.0372,1021.1268,994.8906, 6.0)) {
SendChat("/spielautomat")
}
if(IsPlayerInRangeOfPoint(1833.2791,-1402.6633,13.4297, 2.0)) {
SendChat("/haustiershop")
}
if(IsPlayerInRangeOfPoint(-224.8247,1404.7089,27.7734, 2.0)) {
SendChat("/angelshop")
}
if(IsPlayerInRangeOfPoint(1510.2080,-1847.7222,13.5260, 2.0)) {
SendChat("/illegalejobs")
}
if(IsPlayerInRangeOfPoint(371.4330,-2056.0347,7.9240, 4.0) || IsPlayerInRangeOfPoint(356.5282,-2149.6560,7.8949, 2.0) || IsPlayerInRangeOfPoint(377.2954,-67.6264,1001.5151, 2.0) || IsPlayerInRangeOfPoint(375.4734,-119.2037,1001.4995, 2.0) || IsPlayerInRangeOfPoint(-2035.9899,-98.4161,35.1641, 2.9)) {
SendChat("/ticketkaufen")
}
if(IsPlayerInRangeOfPoint(408.8119,-2065.0706,7.8359, 4.0) || IsPlayerInRangeOfPoint(408.7760,-2073.3977,7.8359, 2.0) || IsPlayerInRangeOfPoint(408.6625,-2078.1372,7.8359, 2.0) || IsPlayerInRangeOfPoint(408.5905,-2083.7053,7.8359, 2.0) || IsPlayerInRangeOfPoint(408.3341,-2087.3726,7.8359, 2.0) || IsPlayerInRangeOfPoint(408.2417,-2093.9336,7.8659, 2.0) || IsPlayerInRangeOfPoint(408.6141,-2100.1831,7.8663, 2.0) || IsPlayerInRangeOfPoint(408.4341,-2107.2837,7.8661, 2.0) || IsPlayerInRangeOfPoint(408.1996,-2116.0547,7.8659, 2.0)) {
SendChat("/angeln")
}
if(IsPlayerInRangeOfPoint(377.0964,-67.8239,1001.5151, 2.0) || IsPlayerInRangeOfPoint(369.9963,-6.1303,1001.8589, 2.0) || IsPlayerInRangeOfPoint(381.7270,-2165.9314,7.8514, 2.0) || IsPlayerInRangeOfPoint(396.2958,-2152.5627,7.8399, 2.0) || IsPlayerInRangeOfPoint(369.5510,-6.2668,1001.8589, 2.0) || IsPlayerInRangeOfPoint(375.4883,-119.0219,1001.4995, 2.0) || IsPlayerInRangeOfPoint(369.8234,-6.0924,1001.8589, 2.0) || IsPlayerInRangeOfPoint(375.4071,-119.2446,1001.4995, 2.0) || IsPlayerInRangeOfPoint(369.6609,-6.1272,1001.8589, 2.0) || IsPlayerInRangeOfPoint(375.6515,-119.0563,1001.4995, 2.0)) {
SendChat("/essen")
}
chatTick := A_TickCount
}
}
}
return

~L::
if(IsInChat() || IsDialogOpen())
{
	Send, {%A_ThisHotkey%}
} else {
	if (chatTick + chatTimeout > A_TickCount)  {
	AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
	} else {
	SendChat("/flock")
	}
	chatTick := A_TickCount
}
return

~K::
if(IsInChat() || IsDialogOpen())
{
	Send, {%A_ThisHotkey%}
} else {
	if (chatTick + chatTimeout > A_TickCount)  {
	AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
	} else {
	SendChat("/carlock")
	}
	chatTick := A_TickCount
}
return

1::
if(IsInChat() || IsDialogOpen())
{
	Send, {%A_ThisHotkey%}
} else {
	if(chatTick + chatTimeout > A_TickCount){
	AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
	} else {
		SendChat("/nimmspice")
	}
	chatTick := A_TickCount
}
return

2::
if(IsInChat() || IsDialogOpen())
{
SendInput, %A_ThisHotkey%
return
}
fID := PlayerInput("Bitte gib die ID ein: ")
If (fID = "")
{
AddChatMessage(keyprefix "Fehler: Keine ID eingegeben!")
}
else
{
loop
{
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
SendChat("/dfinden " fID)
if fID is number
{
ShowGameText("~w~ID: ~y~" FID "~w~ gesucht", 2000, 1)
}
else
{
AddChatMessage(keyprefix "Fehler: Keine gültige ID eingegeben!{FFFFFF}")
return
}
chatTick := A_TickCount
}
KeyWait, 2 , D T10
If !ErrorLevel
{
AddChatMessage(keyprefix "Info: Du hast die Suche abgebrochen!{FFFFFF}")
return
}
}
}
return

3::
if(IsInChat() || IsDialogOpen())
{
SendInput, %A_ThisHotkey%
return
}
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
SendInput, t/suche{space}
}
chatTick := A_TickCount
return

4::
if(IsInChat() || IsDialogOpen())
{
SendInput, %A_ThisHotkey%
return
}
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
if(getPlayerHealth() > 90)
{
AddChatMessage(keyprefix "Du hast über 89 HP und kannst somit keine Kekse essen!")
}
else if(getPlayerHealth() == 89)
{
SendChat("/isskeks")
AddChatMessage(keyprefix "Du hast 1 Keks gegessen!")
}
else if(getPlayerHealth() == 88)
{
SendChat("/isskeks")
AddChatMessage(keyprefix "Du hast 1 Keks gegessen!")
}
else if(getPlayerHealth() == 87)
{
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
AddChatMessage(keyprefix "Du hast 2 Kekse gegessen!")
}
else if(getPlayerHealth() == 86)
{
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
AddChatMessage(keyprefix "Du hast 2 Kekse gegessen!")
}
else if(getPlayerHealth() == 85)
{
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
AddChatMessage(keyprefix "Du hast 3 Kekse gegessen!")
}
else if(getPlayerHealth() == 84)
{
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
AddChatMessage(keyprefix "Du hast 3 Kekse gegessen!")
}
else if(getPlayerHealth() == 83)
{
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
AddChatMessage(keyprefix "Du hast 4 Kekse gegessen!")
}
else if(getPlayerHealth() == 82)
{
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
AddChatMessage(keyprefix "Du hast 4 Kekse gegessen!")
}
else if(getPlayerHealth() == 81)
{
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
AddChatMessage(keyprefix "Du hast 5 Kekse gegessen!")
}
else if(getPlayerHealth() == 80)
{
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
AddChatMessage(keyprefix "Du hast 5 Kekse gegessen!")
}
else if(getPlayerHealth() == 79)
{
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
AddChatMessage(keyprefix "Du hast 6 Kekse gegessen!")
}
else if(getPlayerHealth() == 78)
{
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
AddChatMessage(keyprefix "Du hast 6 Kekse gegessen!")
}
else if(getPlayerHealth() < 78)
{
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
SendChat("/isskeks")
Sleep, 200
AddChatMessage(keyprefix "Du hast 6 Kekse gegessen!")
}
}
chatTick := A_TickCount
return

5::
if(IsInChat() || IsDialogOpen())
{
	SendInput, %A_ThisHotkey%
} else {
	if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
	SendChat("/nimmdrogen")
	sleep 10000
	AddChatMessage(keyprefix "Du kannst wieder Drogen nehmen!")
}
}
chatTick := A_TickCount
return

6::
if(IsInChat() || IsDialogOpen())
{
	SendInput, %A_ThisHotkey%
} else {
	if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
	SendChat("/handystatus aus")
}
}
chatTick := A_TickCount
return

7::
if(IsInChat() || IsDialogOpen())
{
	SendInput, %A_ThisHotkey%
} else {
		if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
	SendChat("/handystatus an")
}
}
chatTick := A_TickCount
return

8::
if(IsInChat() || IsDialogOpen())
{
	SendInput, %A_ThisHotkey%
} else {
		if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
	SendInput, t/fc{space}
}
}
chatTick := A_TickCount
return

~P::
if(IsInChat() || IsDialogOpen())
{
	Send, {%A_ThisHotkey%}
} else {
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
SendChat("/pickwaffe")
SendChat("/ic " pspruch "")
}
}
chatTick := A_TickCount
return

F3::
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
}
else {
AddChatMessage("")
SendChat("/tottime")
SendChat("/jailtime")
SendChat("/mutetime")
AddChatMessage("")
chatTick := A_TickCount
}
return

F4::
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
}
else {
zone := GetPlayerZone()
city := GetPlayerCity()
SendChat("/fc Meine HP: " GetPlayerHealth() " | Armor: " GetPlayerArmor() "")
SendChat("/fc Wanteds: " GetPlayerWanteds() " | Standort: " zone " | Stadt: " city "")
SendChat("/fc Ich bitte um sofortige Unterstützung!")
chatTick := A_TickCount
}
return

!F9::
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
}
Suspend Permit
restart()
chatTick := A_TickCount
return

F9::
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
SendChat("/mitglieder")
}
chatTick := A_TickCount
return

F10::
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
SendChat("/s Verlassen Sie sofort das Gelände oder wir werden das Feuer eröffnen!")
SendChat("/s >>> 10 <<<")
Sleep, 5000
SendChat("/s >>> 5 <<<")
Sleep 1000
SendChat("/s >>> 4 <<<")
Sleep 1000
SendChat("/s >>> 3 <<<")
Sleep 1000
SendChat("/s >>> 2 <<<")
Sleep 1000
SendChat("/s >>> 1 <<<")
Sleep 1000
SendChat("/s >>> 0 <<<")
SendChat("/s Wir eröffnen nun das Feuer auf Sie!")
}
chatTick := A_TickCount
return

SC033::
if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
if(IsInChat() || IsDialogOpen())
{
	Send, {%A_ThisHotkey%}
} else {
	SendChat("/carkey")
}
}
chatTick := A_TickCount
return

NumpadMult::
if(IsInChat() || IsDialogOpen())
{
	Send, {%A_ThisHotkey%}
} else {
	if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
	SendChat("/essen")
}
}
chatTick := A_TickCount
return

~-::
if(IsInChat() || IsDialogOpen())
{
	Send, {%A_ThisHotkey%}
} else {
	if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
	SendChat("/stats")
}
}
chatTick := A_TickCount
return

Numpad0::
if(IsInChat() || IsDialogOpen())
{
	Send, {%A_ThisHotkey%}
} else {
		if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
	SendChat("/gangfightinfo")
}
}
chatTick := A_TickCount
return

.::
if(IsInChat() || IsDialogOpen())
{
SendInput, %A_ThisHotkey%
return
}
	if (chatTick + chatTimeout > A_TickCount)  {
AddChatMessage("{FF0000}[Anti-Spam] {CCCCCC}Die Nachricht wurde blockiert.")
} else {
fID := PlayerInput("Bitte gib die ID ein: ")
If (fID = "") {
	AddChatMessage(keyprefix "Fehler: Keine ID eingegeben!")
} else
{
	loop
	{
		SendChat("/nachtanken " fID " 1")
		KeyWait, . ,D T23
		If !ErrorLevel
		{
			AddChatMessage(keyprefix "Info: Du hast den Baserefill abgebrochen!{FFFFFF}")
			return
		}
	}
}
}
chatTick := A_TickCount
return

F12::
Suspend
if(A_IsSuspended)
{
    AddChatMessage(keyprefix "Du hast den Keybinder {FF0000}deaktiviert!")
	showGameText("~y~]~r~Triaden ~w~- ~w~Keybinder~y~]~n~~r~AUS", 2500, 3)
	SetTimer, AutoLoginTimer, off
	SetTimer, HPCheck, off
	SetTimer, ArmorCheck, off
}
if(!A_IsSuspended)
{
    AddChatMessage(keyprefix "Du hast den Keybinder {00FF00}aktiviert!")
	showGameText("~y~]~r~Triaden ~w~- ~w~Keybinder~y~]~n~~g~AN", 2500, 3)
	SetTimer, AutoLoginTimer, on
	SetTimer, HPCheck, 100
	SetTimer, ArmorCheck, 100
}
return
;==========================================================================================================================================
;==============================================================[ Befehle ]=================================================================
:?:/alotto::
Suspend Permit
if(alotto == 0) {
	alotto := 1
	IniWrite, %alotto%, %ini%, Daten, ALotto
	AddChatMessage(keyprefix "Du hast das automatische Lotto {00FF00}aktiviert!")
} else {
	alotto := 0
	IniWrite, %alotto%, %ini%, Daten, ALotto
	AddChatMessage(keyprefix "Du hast das automatische Lotto {FF0000}deaktiviert!")
}
return

:?:/inv::
Suspend Permit
SendInput, /inventar{space}
return

:?:/arzt::
Suspend Permit
SendChat("/service")
sleep 500
SendInput {down} {enter}
sleep 500
SendChat("Ich brauche einen Sanitäter! Es geht um Leben und Tod.")
return

:?:/Meinfo::
Suspend Permit
varName := GetPlayerName()
updateScoreboardDataEx()
varID := GetPlayerIdByName(varName)
ping := GetPlayerPingById(varID)
AddChatMessage("")
AddChatMessage(keyprefix "Name: {FF4600}" GetPlayerName() "{CCCCCC} | Leben: {FF4600}" GetPlayerHealth() "{CCCCCC} | Rüstung: {FF4600}" GetPlayerArmor() "")
AddChatMessage(keyprefix "Ping: {FF4600}" ping "{CCCCCC} | Standort: {FF4600}" GetPlayerCity() "{CCCCCC} - {FF4600}" GetPlayerZone() "")
AddChatMessage(keyprefix "Bargeld: {FF4600}" GetPlayerMoney() "")
return

:?:/Clear::
Suspend Permit
AddChatMessage("")
AddChatMessage("")
AddChatMessage("")
AddChatMessage("")
AddChatMessage("")
AddChatMessage("")
AddChatMessage("")
AddChatMessage("")
AddChatMessage("")
AddChatMessage("")
AddChatMessage("")
return

:?:/Uhr::
Suspend Permit
FormatTime, Uhrzeit, HH:mm:ss
Sleep 100
SendInput, t/me schaut auf seine Rolex Uhr. (%Uhrzeit%){enter}
return

:?:/tr::
rechnung := PlayerInput("Rechne: ")
AddChatMessage(keyprefix "Das Ergebnis lautet: " Evaluate(rechnung))
return

:?:/azoll::
Suspend Permit
if(azoll == 0) {
	azoll := 1
	IniWrite, %azoll%, %ini%, Daten, AZoll
	AddChatMessage(keyprefix "Du hast den automatischen Zoll {00FF00}aktiviert!")
} else {
	azoll := 0
	IniWrite, %azoll%, %ini%, Daten, AZoll
	AddChatMessage(keyprefix "Du hast den automatischen Zoll {FF0000}deaktiviert!")
}
return

:?:/ab::
Suspend Permit
SendChat("/abnehmen")
SendChat("Guten Tag, mein Name ist " GetPlayerName() ". Wie kann ich Ihnen helfen?")
return

:?:/auf::
Suspend Permit
SendChat("Ich wünsche ihnen noch einen angenehmen Tag.")
SendChat("/auflegen")
return

:?:/mailbox::
Suspend Permit
SendChat("/abnehmen")
SendChat("Hallo, " GetPlayerName() " ist gerade nicht erreichbar. Sie haben 15 Sekunden Zeit eine Nachricht zu hinterlassen.")
sleep 15000
SendChat("Die Nachricht wurde an " GetPlayerName() " übermittelt.")
SendChat("/auflegen")
return

:?:/Fin::
Suspend Permit
SendChat("/finanzen")
Sleep 300
Getchatline(1, Chatline1)
RegExMatch(Chatline1, "Kontostand\: (.*)\$", kontostand)
Getchatline(2, Chatline2)
RegExMatch(Chatline2, "Bargeld\: (.*)\$", bargeld)
gesamt := stringMath(kontostand1+bargeld1)
Round(gesamt, 0)
AddChatMessage("{FFFF00}Dein Gesamtes Geld: " gesamt "$")
AddChatMessage("{009D00}==============================")
return

:?:/yakuza::
Suspend Permit
sleep, 100
text := colorWhite "ID`tName`tStatus`n"
count := 0
Loop, Read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Yakuza.txt
{
if (StrLen(A_LoopReadLine) < 1) {
continue
}
id := getPlayerIdByName(A_LoopReadLine)
if (id != -1) {
count ++
text .= colorSecond id "`t" A_LoopReadLine "`t" colorGreen "online`n"
}
}
ShowDialog(5, colorSecond "Yakuza Mafia (" count " online)", text, "Schliesen")
return
:?:/gsf::
Suspend Permit
sleep, 100
text := colorWhite "ID`tName`tStatus`n"
count := 0
Loop, Read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\GSF.txt
{
if (StrLen(A_LoopReadLine) < 1) {
continue
}
id := getPlayerIdByName(A_LoopReadLine)
if (id != -1) {
count ++
text .= colorSecond id "`t" A_LoopReadLine "`t" colorGreen "online`n"
}
}
ShowDialog(5, colorSecond "Grove Street Family (" count " online)", text, "Schliesen")
return
:?:/Ballas::
Suspend Permit
sleep, 100
text := colorWhite "ID`tName`tStatus`n"
count := 0
Loop, Read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Ballas.txt
{
if (StrLen(A_LoopReadLine) < 1) {
continue
}
id := getPlayerIdByName(A_LoopReadLine)
if (id != -1) {
count ++
text .= colorSecond id "`t" A_LoopReadLine "`t" colorGreen "online`n"
}
}
ShowDialog(5, colorSecond "Ballas Family (" count " online)", text, "Schliesen")
return
:?:/Vagos::
Suspend Permit
sleep, 100
text := colorWhite "ID`tName`tStatus`n"
count := 0
Loop, Read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Vagos.txt
{
if (StrLen(A_LoopReadLine) < 1) {
continue
}
id := getPlayerIdByName(A_LoopReadLine)
if (id != -1) {
count ++
text .= colorSecond id "`t" A_LoopReadLine "`t" colorGreen "online`n"
}
}
ShowDialog(5, colorSecond "Los Santos Vagos (" count " online)", text, "Schliesen")
return

:?:/triaden::
Suspend Permit
sleep, 100
text := colorWhite "ID`tName`tStatus`n"
count := 0
Loop, Read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Triaden.txt
{
if (StrLen(A_LoopReadLine) < 1) {
continue
}
id := getPlayerIdByName(A_LoopReadLine)
if (id != -1) {
count ++
text .= colorSecond id "`t" A_LoopReadLine "`t" colorGreen "online`n"
}
}
ShowDialog(5, colorSecond "Triaden Mafia (" count " online)", text, "Schliesen")
return
:?:/lcn::
Suspend Permit
sleep, 100
text := colorWhite "ID`tName`tStatus`n"
count := 0
Loop, Read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\LCN.txt
{
if (StrLen(A_LoopReadLine) < 1) {
continue
}
id := getPlayerIdByName(A_LoopReadLine)
if (id != -1) {
count ++
text .= colorSecond id "`t" A_LoopReadLine "`t" colorGreen "online`n"
}
}
ShowDialog(5, colorSecond "La Cosa Nostra (" count " online)", text, "Schliesen")
return

:?:/aztecas::
Suspend Permit
sleep, 100
text := colorWhite "ID`tName`tStatus`n"
count := 0
Loop, Read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Aztecas.txt
{
if (StrLen(A_LoopReadLine) < 1) {
continue
}
id := getPlayerIdByName(A_LoopReadLine)
if (id != -1) {
count ++
text .= colorSecond id "`t" A_LoopReadLine "`t" colorGreen "online`n"
}
}
ShowDialog(5, colorSecond "Varrios Los Aztecas (" count " online)", text, "Schliesen")
return

:?:/cop::
Suspend Permit
sleep, 100
text := colorWhite "ID`tName`tStatus`n"
count := 0
Loop, Read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\LSPD.txt
{
if (StrLen(A_LoopReadLine) < 1) {
continue
}
id := getPlayerIdByName(A_LoopReadLine)
if (id != -1) {
count ++
text .= colorSecond id "`t" A_LoopReadLine "`t" colorGreen "online`n"
}
}
ShowDialog(5, colorSecond "Los Santos Police Department (" count " online)", text, "Schliesen")
return

:?:/bl::
Suspend Permit
sleep, 100
text := colorWhite "ID`tName`tStatus`n"
count := 0
Loop, Read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Blacklist.txt
{
if (StrLen(A_LoopReadLine) < 1) {
continue
}
id := getPlayerIdByName(A_LoopReadLine)
if (id != -1) {
count ++
text .= colorSecond id "`t" A_LoopReadLine "`t" colorGreen "online`n"
}
}
ShowDialog(5, colorSecond "Blacklist (" count " online)", text, "Schliesen")
return

GegnerListe(o)
{
global
if(!o)
return
PlayerID:= o.ID
PlayerSkin := getTargetPlayerSkinIdById(PlayerID)
PlayerName := o.Name
if(Playerskin=228 or Playerskin=186 or Playerskin=203 or Playerskin=204 or Playerskin=122 or Playerskin=123 or Playerskin=169)
{
Gegnerfound := 0
Yakuza_Zeile := 0
Loop, read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Yakuza.txt
{
If (Yakuza_Zeile >= A_Index)
{
Continue
}
else
{
if instr(A_Loopreadline,PlayerName)
{
Gegnerfound := 1
}
Yakuza_Zeile := A_Index
}
}
if(Gegnerfound = 0)
{
fileappend, %Playername%`n, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Yakuza.txt
AddChatMessage("{2E9AFE}* " Playername " wurde als Yakuza eingetragen.")
}
}
if(Playerskin=108 or Playerskin=109 or Playerskin=110 or Playerskin=292 or Playerskin=298)
{
Gegnerfound := 0
Vagos_Zeile := 0
Loop, read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Vagos.TXT
{
If (Vagos_Zeile >= A_Index)
{
Continue
}
else
{
if instr(A_Loopreadline,PlayerName)
{
Gegnerfound := 1
}
Vagos_Zeile := A_Index
}
}
if(Gegnerfound = 0)
{
fileappend, %Playername%`n, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Vagos.txt
AddChatMessage("{2E9AFE}* " Playername " wurde als Vagos eingetragen.")
}
}
if(Playerskin=111 or Playerskin=117 or Playerskin=118 or Playerskin=120 or Playerskin=208)
{
Gegnerfound := 0
Triaden_Zeile := 0
Loop, read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Triaden.txt
{
If (Triaden_Zeile >= A_Index)
{
Continue
}
else
{
if instr(A_Loopreadline,PlayerName)
{
Gegnerfound := 1
}
Triaden_Zeile := A_Index
}
}
if(Gegnerfound = 0)
{
fileappend, %Playername%`n, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Triaden.txt
AddChatMessage("{2E9AFE}* " Playername " wurde als Triaden eingetragen.")
}
}
if(Playerskin=112 or Playerskin=113 or Playerskin=124 or Playerskin=125 or Playerskin=126 or Playerskin=127 or Playerskin=223 or Playerskin=263)
{
Gegnerfound := 0
LCN_Zeile := 0
Loop, read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\LCN.txt
{
If (LCN_Zeile >= A_Index)
{
Continue
}
else
{
if instr(A_Loopreadline,PlayerName)
{
Gegnerfound := 1
}
LCN_Zeile := A_Index
}
}
if(Gegnerfound = 0)
{
fileappend, %Playername%`n, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\LCN.txt
AddChatMessage("{2E9AFE}* " Playername " wurde als LCN eingetragen.")
}
}
if(Playerskin=114 or Playerskin=115 or Playerskin=116 or Playerskin=173 or Playerskin=174 or Playerskin=175)
{
Gegnerfound := 0
Aztecas_Zeile := 0
Loop, read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Aztecas.txt
{
If (Aztecas_Zeile >= A_Index)
{
Continue
}
else
{
if instr(A_Loopreadline,PlayerName)
{
Gegnerfound := 1
}
Aztecas_Zeile := A_Index
}
}
if(Gegnerfound = 0)
{
fileappend, %Playername%`n, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Aztecas.txt
AddChatMessage("{2E9AFE}* " Playername " wurde als Aztecas eingetragen.")
}
}
if(Playerskin=102 or Playerskin=103 or Playerskin=104 or Playerskin=13 or Playerskin=195 or Playerskin=293)
{
Gegnerfound := 0
Ballas_Zeile := 0
Loop, read, %A_ScriptDir%\Gegnerliste\Ballas.TXT
{
If (Ballas_Zeile >= A_Index)
{
Continue
}
else
{
if instr(A_Loopreadline,PlayerName)
{
Gegnerfound := 1
}
Ballas_Zeile := A_Index
}
}
if(Gegnerfound = 0)
{
fileappend, %Playername%`n, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\Ballas.txt
AddChatMessage("{2E9AFE}* " Playername " wurde als Ballas eingetragen.")
}
}
if(Playerskin=265 or Playerskin=266 or Playerskin=267 or Playerskin=280 or Playerskin=284 or Playerskin=285 or Playerskin=300 or Playerskin=301 or Playerskin=306 or Playerskin=303 or Playerskin=304)
{
Gegnerfound := 0
LSPD_Zeile := 0
Loop, read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\LSPD.txt
{
If (LSPD_Zeile >= A_Index)
{
Continue
}
else
{
if instr(A_Loopreadline,PlayerName)
{
Gegnerfound := 1
}
LSPD_Zeile := A_Index
}
}
if(Gegnerfound = 0)
{
fileappend, %Playername%`n, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\LSPD.txt
AddChatMessage("{2E9AFE}* " Playername " wurde als LSPD eingetragen.")
}
}
if(Playerskin=105 or Playerskin=106 or Playerskin=107 or Playerskin=269 or Playerskin=270 or Playerskin=271 or Playerskin=65)
{
Gegnerfound := 0
GSF_Zeile := 0
Loop, read, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\GSF.txt
{
If (GSF_Zeile >= A_Index)
{
Continue
}
else
{
if instr(A_Loopreadline,PlayerName)
{
Gegnerfound := 1
}
GSF_Zeile := A_Index
}
}
if(Gegnerfound = 0)
{
fileappend, %Playername%`n, %A_MyDocuments%\Triaden-Keybinder\Gegnerliste\GSF.txt
AddChatMessage("{2E9AFE}* " Playername " wurde als GSF eingetragen.")
}
}
}
return
;==========================================================================================================================================
;==============================================================[ Funktionen ]==============================================================
stringMath(string)
{
	while(position := RegExMatch(string, "\(([^\(\)]+)\)", regex_)) {
	string := RegExReplace(string, "\(([^\(\)]+)\)", stringMath(regex_1), blahblah, 1, position)
	}
	while(position := RegExMatch(string, "(\+|-)? *((?:\+|-)?\d+)\^((?:\+|-)?\d+)", regex_)) {
	string := RegExReplace(string, "(\+|-)? *((?:\+|-)?\d+)\^((?:\+|-)?\d+)", regex_1 . regex_2**regex_3, blahblah, 1, position)
	}
	while(position := RegExMatch(string, "(\+|-)? *((?:\+|-)?\d+(?:[\.\,]\d+)?) *(\*|/) *((?:\+|-)?\d+(?:[\.\,]\d+)?) *", regex_)) {
	if(regex_3 == "*")
	string := RegExReplace(string, "(\+|-)? *((?:\+|-)?\d+(?:[\.\,]\d+)?) *\* *((?:\+|-)?\d+(?:[\.\,]\d+)?) *", regex_1 . regex_2*regex_4, blahblah, 1, position)
	if(regex_3 == "/")
	string := RegExReplace(string, "(\+|-)? *((?:\+|-)?\d+(?:[\.\,]\d+)?) */ *((?:\+||)?\d+(?:[\.\,]\d+)?) *", regex_1 . regex_2/regex_4, blahblah, 1, position)
	}
	while(position := RegExMatch(string, " *((?:\+|-)?\d+(?:[\.\,]\d+)?) *(\+|-) *((?:\+|-)?\d+(?:[\.\,]\d+)?) *", regex_)) {
	if(regex_2 == "+")
	string := RegExReplace(string, " *((?:\+|-)?\d+(?:[\.\,]\d+)?) *\+ *((?:\+|-)?\d+(?:[\.\,]\d+)?) *", regex_1+regex_3, blahblah, 1, position)
	if(regex_2 == "-")
	string := RegExReplace(string, " *((?:\+|-)?\d+(?:[\.\,]\d+)?) *- *((?:\+|-)?\d+(?:[\.\,]\d+)?) *", regex_1-regex_3, blahblah, 1, position)
	}
	if(RegExMatch(string, "^-?\d+(?:\.\d+)?$"))
	return string
	return "ERROR"
}

getDistanceToObj(modelID) {
	if (!updateObjects())
		return -1
	dist := -1
	for i, o in oObjects {
		if (o.MODELID == modelID) {
			playerPos := GetPlayerCoordinates()
			newDist := getDist([o.XPOS, o.YPOS, o.ZPOS], playerPos)
			if (dist == -1 || newDist < dist) {
				dist := newDist
			}
		}
	}
	return dist
}
updateObjects() {
	if (!checkHandles())
		return false
	if (iRefreshObj + iUpdateTickObj > A_TickCount)
		return true
	oObjects := []
	iRefreshObj := A_TickCount
	dwAddress := readDWORD(hGTA, readDWORD(hGTA, readDWORD(hGTA, dwSAMP + SAMP_INFO_OFFSET) + SAMP_PPOOLS_OFFSET) + 0x4)
	if (ErrorLevel || !dwAddress)
		return false

	objCount := readMem(hGTA, dwAddress, 4, "Int")
	Loop, % 1000
	{
		i := A_Index - 1

		listed := readMem(hGTA, dwAddress + i * 4 + 0x4, 4, "Int")

		if (!listed)
			continue
		objCount--
		dwObject := readDWORD(hGTA, dwAddress + i * 0x4 + 0xFA4)
		objModelID := readDWORD(hGTA, dwObject + 0x4E)
		objX := readMem(hGTA, dwObject + 0x5C, 4, "Float")
		objY := readMem(hGTA, dwObject + 0x60, 4, "Float")
		objZ := readMem(hGTA, dwObject + 0x64, 4, "Float")
		oObjects.Push(Object("MODELID", objModelID, "XPOS", objX, "YPOS", objY, "ZPOS", objZ))
		if (objCount <= 0)
			break
	}
	return true
}

getClosestPickupModel() {
	if (!updatePickups())
		return -1
	dist := -1
	model := 0
	for i, o in oPickups {
		playerPos := GetPlayerCoordinates()
		newDist := getDist([o.XPOS, o.YPOS, o.ZPOS], playerPos)
		if (dist == -1 || newDist < dist) {
			dist := newDist
			model := o.MODELID
		}
	}
	return model
}
getDistanceToPickup(modelID) {
	if (!updatePickups())
		return -1
	dist := -1
	for i, o in oPickups {
		if (o.MODELID == modelID) {
			playerPos := GetPlayerCoordinates()
			newDist := getDist([o.XPOS, o.YPOS, o.ZPOS], playerPos)
			if (dist == -1 || newDist < dist) {
				dist := newDist
			}
		}
	}
	return dist
}
updatePickups() {
	if (!checkHandles())
		return false

	if (iRefreshPicks + iUpdateTickPicks > A_TickCount)
		return true
	oPickups := []
	iRefreshPicks := A_TickCount

	dwAddress := readDWORD(hGTA, readDWORD(hGTA, readDWORD(hGTA, dwSAMP + SAMP_INFO_OFFSET) + SAMP_PPOOLS_OFFSET) + 0x20)
	if (ErrorLevel || !dwAddress)
		return false
	pickupCount := readDWORD(hGTA, dwAddress)
	Loop, % 4096
	{
		i := A_Index - 1

		pickupID := readMem(hGTA, dwAddress + i * 4 + 0x4004, 4, "Int")

		if (pickupID < 0)
			continue
		pickupCount--
		pickupModelID := readMem(hGTA, dwAddress + i * 0x14 + 0xF004, 4, "Int")
		pickupType := readMem(hGTA, dwAddress + i * 0x14 + 0xF008, 4, "Int")
		pickupX := readMem(hGTA, dwAddress + i * 0x14 + 0xF00C, 4 , "Float")
		pickupY := readMem(hGTA, dwAddress + i * 0x14 + 0xF010, 4 , "Float")
		pickupZ := readMem(hGTA, dwAddress + i * 0x14 + 0xF014, 4 , "Float")
		oPickups.Push(Object("ID", pickupID, "MODELID", pickupModelID, "TYPE", pickupType, "XPOS", pickupX, "YPOS", pickupY, "ZPOS", pickupZ))
		if (pickupCount <= 0)
			break
	}
	return true
}

PlayerInput(text){
s := A_IsSuspended
Suspend On
KeyWait Enter
SendInput t^a{backspace}%text%
Input, var, v, {enter}
SendInput ^a{backspace 100}{enter}
Sleep, 20
if(!s)
Suspend Off
return var
}

Evaluate(string) {
	static sc := ComObjCreate("ScriptControl")
	sc.Language := "JScript"
	string := "a = " string ";"
	sc.ExecuteStatement(string)
	new := sc.Eval("a")
	return new
}

setrestart()
{
VarSetCapacity(old, 4, 0)
dwAddress := readDWORD(hGTA, dwSAMP + SAMP_INFO_OFFSET)
if(ErrorLevel || dwAddress==0) {
ErrorLevel := ERROR_READ_MEMORY
return 0
}
NumPut(9,old,0,"Int")
writeRaw(hGTA, dwAddress + 957, &old, 4)
}
restart()
{
AddChatMessage(keyprefix "Du führst nun einen Relog durch!")
setrestart()
}