[AHK]Freundesliste, Keybinder

#IfWinActive, GTA:SA:MP
#UseHook
#SingleInstance, Force


pw := "test"
InputBox, pass, Passwortabfrage - Keybinder by Gerasim, Herzlich Willkommen bitte geben sie das Passwort ein.   	   Sie haben genau 3 Versuche!, HIDE
if (pass!=pw)
 
InputBox, pass, Passwortabfrage - Keybinder by Gerasim, Ihr eingegebenes Passwort war leider Falsch.                   	   Sie haben noch 2 Versuche!, Hide
if (pass!=pw)
 
InputBox, pass, Passwortabfrage - Keybinder by Gerasim, Ihr eingegebenes Passwort war leider Falsch.                   	   Sie haben noch 1 Versuch!, Hide
if (pass!=pw)
{
MsgBox,, Keybinder wird geschlossen, Das Programm schließt sich nun von Automatisch, das sie das Passwort falsch eingegeben haben!
Exitapp
}


Hotkey, Enter, Off
Hotkey, Escape, Off


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


~NumpadEnter::
~Enter::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return


~Escape::
Suspend Permit
Suspend Off
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return


F1::
SendInPut, t/m Polizei - Sofort anhalten{!}{enter}
return


F2::
SendInPut, tSie sind vorläufig festgenommen{!} Bitte steigen Sie mit der Taste 'G' in den Polizei-Wagen.{enter}
return


F3::
SendInPut, tAllgemeine Verkehrskontrolle. Zeigen Sie mir ihre Personalien und Lizenzen mit /zeigperso und /zeiglizenzen.{enter}
return


F4::
SendInPut, t/m Polizei - Sofort die Straße räumen{!}{enter}




:*?:/fhilfe::
Suspend, Permit
SendInput, {Enter}
ShowDialog(0, ">>Freundesliste Hilfe<<", "Folgende Befehle für die Freundesliste sind vorhanden`n`n/flist Zeigt euch die Freundesliste`n/fadd Fügt ein Freund anhand des Namens hinzu `n/fidadd Fügt ein freund anhand der ID hinzu`n/fdel löscht ein Freund anhand des Names`n/fiddel Löscht ein freund anhand der ID", "OK")
Suspend, Off
return
 
:?:/flist::
Suspend, Permit
GetPlayerData()
SendInput, {Enter}
Sleep, 250
VarSetCapacity(final, 256, 0)
Loop, read, Freunde.ini
{
    StringSplit, OutputArr, A_LoopReadLine, =
    id := GetPlayerIdByName(OutputArr1)
    if( A_LoopReadLine != "[Freunde]") {
		if(id == -1)
		{
			final = %final%->{FF0000}Offline`t{FFFFFF}%OutputArr1%`n
		}
		else
		{
            if(id == 0)
              id := GetPlayerIdByName(OutputArr1)
			score := GetPlayerScoreByName(OutputArr1)
			if(Score == 0)
				score := GetPlayerScoreByName(OutputArr1)
			Score := feldlänge(score,3)
			id := feldlänge(id,3)
			OutputArr1 := feldlänge(OutputArr1,24)
			final = %final%->{00FF00}Online`t{FFFFFF}%OutputArr1%
			if(strlen(OutputArr2) != 0)
			{
				OutputArr2 := feldlänge(OutputArr2,5)
				final = %final%`tTel.: %OutputArr2%`tLevel: %score%`tID: %id%`n
			}
			else
			{
				final = %final%`tLevel: %score%`tID: %id%`n
			}
			final = %final%
		}
	}
}
if(final == "")
	Final := "Keine Freunde"
Sort, Final
ShowDialog(1, "Freundesliste", final, "Verlassen")
Suspend, Off
return
 
:?:/fadd::
Suspend, Permit
AddChatMessage(0xFF0000, "Eingabe: {FFFFFF}Gebe bitte den Namen ein")
sleep, 300
SendInput, {Enter}
SendInput, t{Space}
Suspend, On
Hotkey, Enter, On
Input, NeuerFreund, V I M T10,{Enter}
Keywait, Enter, D, T20
If errorlevel
{
AddChatMessage(0xFF0000, "Fehler: {FFFFFF}Sie brauchten zu lange")
} 
else
{
	Sleep, 300
	AddChatMessage(0xFF0000, "Eingabe: {FFFFFF}Gebe bitte Handynummer ein")
	Suspend, On
	Sleep, 300
	SendInput, t{Space}
	Input, NeueNummer, V I M ,{Enter}
	Keywait, Enter, D, T20
	If ErrorLevel
	{
		AddChatMessage(0xFF0000, "Fehler: {FFFFFF}Sie brauchten zu lange")
	}
	else
	{
		IniWrite, %NeueNummer%, Freunde.ini, Freunde, %NeuerFreund%
		return
	}
	Suspend, Off
}
return
 
:?:/fidadd::
Suspend, Permit
GetPlayerData()
AddChatMessage(0xFF0000, "Eingabe: {FFFFFF}Gebe bitte die ID ein")
sleep, 300
SendInput, {Enter}
SendInput, t{Space}
Suspend, On
Hotkey, Enter, On
Input, NeuerFreundID, V I M T10,{Enter}
Keywait, Enter, D, T20
If errorlevel
{
	AddChatMessage(0xFF0000, "Fehler: {FFFFFF}Sie brauchten zu lange")
} 
else
{
	Sleep, 300
	AddChatMessage(0xFF0000, "Eingabe: {FFFFFF}Gebe bitte Handynummer ein")
	Suspend, On
	Sleep, 300
	SendInput, t{Space}
	Input, NeueNummer, V I M ,{Enter}
	Keywait, Enter, D, T20
	If ErrorLevel
	{
		AddChatMessage(0xFF0000, "Fehler: {FFFFFF}Sie brauchten zu lange")
	}
	else
	{
		GetPlayerNameById(NeuerFreundID, NeuerFreund)
		IniWrite, %NeueNummer%, Freunde.ini, Freunde, %NeuerFreund%
		return
	}
	Suspend, Off
}
return
 
 
:?:/fdel::
Suspend, Permit
AddChatMessage(0xFF0000, "Eingabe: {FFFFFF}Gebe bitte den Namen ein")
sleep, 300
SendInput, {Enter}
SendInput, t{Space}
Suspend, On
Hotkey, Enter, On
Input, NeuerFreund, V I M T10,{Enter}
Keywait, Enter, D, T20
If errorlevel
{
	AddChatMessage(0xFF0000, "Fehler: {FFFFFF}Sie brauchten zu lange")
} 
else
{
	IniDelete, Freunde.ini, Freunde, %NeuerFreund%
}
Suspend, Off
return
 
:?:/fiddel::
Suspend, Permit
GetPlayerData()
AddChatMessage(0xFF0000, "Eingabe: {FFFFFF}Gebe bitte die ID ein")
sleep, 300
SendInput, {Enter}
SendInput, t{Space}
Suspend, On
Hotkey, Enter, On
Input, FreundwegID, V I M T10,{Enter}
Keywait, Enter, D, T20
If errorlevel
{
	AddChatMessage(0xFF0000, "Fehler: {FFFFFF}Sie brauchten zu lange")
} 
else
{
	GetPlayerNameById(FreundwegID, NeuerFreund)
	IniDelete, Freunde.ini, Freunde, %NeuerFreund%
}
Suspend, Off
return
 
feldlänge(str, länge = 15, zeichen = " ")
{
  l := länge - StrLen(SubStr(str, 1, länge))
    Loop, %l%
      ID := ID zeichen
    Result := SubStr(str, 1, länge) ID
    Return Result
}