Chatlog auslesen - anschließend einen Befehl ausgeben - GTA SAMP

;#IfWinActive, GTA:SA:MP	Kann zu problemen führen, würde ich nicht mit einfügen.
#UseHook
#SingleInstance, Force ;Der Keybinder kann nur einmal gestartet werden.
#NoEnv
#include SAMP.ahk


global Status := 0 ;Setzt den Status auf 'ausgeschaltet'


SetTimer, Bestatter, 100


Bestatter:
if(Status == 0) ;Wenn der Status gleich Null ist, dann wird die Funktion nicht weiter durchgeführt und returnt
	return


Getchatline(0, Chatline) ;Es wird die neuste Nachricht im Chat ausgelesen.
if(InStr(Chatline, "ist gestorben und die Leiche muss beseitigt werden. Tippe: /accept corpse - Auftrag annehmen")) ;Wenn die Nachricht in der neusten Chatline ist, wird die IF-Abfrage fortgeführt.
{
	SendChat("/accept corpse") ;Wenn im Chat die oben angegebene Nachricht steht, wird '/accept corpse' in den Chat geschrieben
	AddChatMessage("'/accept corpse' wurde in den Chat geschrieben.") ;Eine weitere Nachricht in den Chat (AddChatMessage ist nur lokal zu sehen) ist deswegen sinnvoll, wenn z.B. keine neue Nachricht mehr kommt und die oben angegebene Abfrage nach einer Chatline dauerhaft '/accept corpse' in den Chat schreibt.
	;Sleep, 1000	Das Sleep kannst du dann wieder rein machen, wenn Du eine art Anti-Spam machen willst. Falls die Nachricht oben oft im Chat kommt, wäre es unklug hier kein Sleep hinzumachen, da man wegen Command-Spam gekickt werden kann.
}
return


F12::
Status := !Status ;Hier wird der Status von 0 auf 1 gestellt, bzw. von 1 auf 0, wenn man die Taste F12 gedrückt hat.
if(Status == 0)
{
	Status := 1
	AddChatMessage("Der Keybinder wurde eingeschaltet.")
}
else if (Status == 1)
{
	Status := 0
	AddChatMessage("Der Keybinder wurde ausgeschaltet.")
}
return

#UseHook
#SingleInstance, Force
#NoEnv
#include SAMP.ahk


Duty := 0


Bestatter:
If(WinActive, GTA:SA:MP)
FileRead,Chatlog, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
If InStr(Chatlog, "Tippe: /accept corpse - Auftrag annehmen")
{
	SendChat("/accept corpse") 
	FileRead,log_Backup, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
	Backup := log_Backup
	Filedelete, %A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog.txt
	FileAppEnd,`n%Backup%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\Chatlog_backup.txt	
}
return


:?:/duty::
Suspend Permit
If(Duty == 0)
{
	Duty := 1
	AddChatMessage("{FFFFFF}Du bist nun als Bestatter im Dienst! [Schleife Aktiv!]")
	SetTimer, Bestatter, on
}
else
{
	Duty := 0
	AddChatMessage("{FFFFFF}Du bist nun nicht mehr als Bestatter im Dienst! [Schleife Inaktiv!]")
	SetTimer, Bestatter, off
}
Suspend off
return