[AHK] Gegnerliste

Marschl · 18. Mai 2018

Guten Abend miteinander,

ich brauche Hilfe bei einer Gegnerliste. Ich kann grundlegend Keybinder schreiben. (API etc.)
Leider habe ich nicht genug Kenntnisse mir solch eine Gegnerliste zu schreiben.
Ich hatte mir vorgestellt mit 3 Befehlen(" /add {Name/ID} {Fraktion] " /del {Name/ID} " /gegner ").
Ich benutze die SAMP-UDF API von Suchty112.
Ich hoffe ihr könnt mir helfen.

Vielen Dank im vorraus
Grüße

Renz · 19. Mai 2018

Wie hast du angefangen bisher?
Benutz mal die Suchfunktion hier wurde diese Frage schon öfter gestellt.
Gruß

Marschl · 19. Mai 2018

Spoiler anzeigen

Code

:?:/add::suspend permit <- Damit der Befehl auch bei geöffneter Chatbox funktioniertSendInput /add{Space} <- Nach dem eingeben von /add, wird /add in den Chat geschrieben, sieht schöner ausInput, name, V I M, {enter} <- Alles was man nun selbst eingibt, wird in der Variable %name% gespeichert, bis man Enter drücktSendInput {end}+{home}{Del}{Esc} <- Textbox nach Enter leeren und schließen.getplayerdata() <- Spielerdaten laden (API)if name is not number <- Wenn die Variable keine Nummer, also ID enthält{ addchatmessage(0xFFFFFF, "{FF0000}Achtung: {FFFFFF}Bitte gültige eine ID eingeben!") <- Meldung ausgeben (API) return <- Script beenden}getplayernamebyid(name, text) <- Spielername der angegebenen ID laden (API)getplayername(myname) <- Eigenen Spielernamen laden (API)if (text=myname) <- Wenn die eingegebene ID deine eigene ist{ addchatmessage(0xFFFFFF, "{FF0000}Achtung: {FFFFFF}Du kannst dich nicht selbst zur Gegnerliste hinzufügen!") <- Meldung ausgeben (API)	return}if (text == -1) <- Die API gibt den Wert -1 zurück, wenn der Spieler nicht online ist (bspw. ID 1000){ addchatmessage(0xFFFFFF, "{FF0000}Achtung: {FFFFFF}Dieser Spieler ist nicht online!") <- Meldung ausgeben return <- Script beenden}FileRead, Liste, Gegnerliste.txt <- Gesammte Gegnerliste lesenIf InStr(Liste, text) <- Wenn der Name in der Gegnerliste schon existiert{	Addchatmessage(0xFFFFFF, "{FF0000}Achtung: {FFFFFF}" text " ist bereits vorhanden!")}else <- Wenn nicht{	 FileAppend, `nName=%text%, Gegnerliste.txt <- Name der Gegnerliste hinzufügen	addChatmessage(0xE39F22, text " {FFFFFF}erfolgreich zur Gegnerliste hinzugefügt!")}return
:?:/del::suspend permit <- Damit der Befehl auch bei geöffneter Chatbox funktioniertSendInput /del{space} <- s.o.Input, name, V I M, {enter} <- s.o.sendinput {end}+{home}{Del}{esc} <- s.o.getplayerdata() <- s.o.if name is not number <- s.o.{	addchatmessage(0xFFFFFF, "{FF0000}Achtung: {FFFFFF}Bitte gültige eine ID eingeben!")	return}getplayernamebyid(name, textdel) <- Name der angegebenen ID laden (APIif (textdel == -1) <- Wenn Spieler nicht online (API Wert ist -1){	addchatmessage(0xFFFFFF, "{FF0000}Achtung: {FFFFFF}Dieser Spieler ist nicht online!")	return}FileRead, Liste, Gegnerliste.txt <- Gesamte Gegnerliste ladenIf not InStr(Liste, textdel) <- Wenn der Name nicht vorhanden ist{ Addchatmessage(0xFFFFFF, "{FF0000}Achtung: {FFFFFF}" textdel " ist nicht in der Gegnerliste vorhanden!") <- Meldung ausgeben	return}else <- Wenn der Name vorhanden ist{	  	Loop, read, Gegnerliste.txt <- Jede einzelne Zeile der Gegnerliste hinzufügen	{ 	IfInString, A_Loopreadline, %textdel% <- Wenn der Name in einer Zeile gefunden wurde		continue <- Zeile überspringen 		if(A_LoopReadLine!="") <- Wenn die Zeile nicht leer ist		{ 		FileAppend, %a_loopreadline%`n, Gegnerlisteneu.txt <- Die gelesene Zeile der neuen Gegnerliste hinzufügen 	}} FileDelete, Gegnerliste.txt <- Alte Gegnerliste löschen FileMove, Gegnerlisteneu.txt, Gegnerliste.txt, 1 <- Neue umbenennenaddchatmessage(0xE39F22, textdel "{FFFFFF} wurde erfolgreich aus der Gegnerliste gelöscht!")}return
:?:/gegner::suspend permit <- Damit der Befehl auch bei geöffneter Chatbox funktioniertSendInput {enter} <- Textbox schließengetplayerdata() <- Alle Spielerdaten laden (API)addchatmessage(0xFFFFFF, "|___________________ {E39F22}Gegnerliste {FFFFFF}___________________|") <- Text am Anfang der GegnerlisteLoop, read, Gegnerliste.txt <- Jede Zeile der Liste lesen{ If (A_LoopReadLine = "") <- Wenn eine Zeile leer ist 	continue <- Durchgang überspringen IfNotInString, A_LoopReadLine, name <- Wenn der String "name" nicht in der Zeile vorhanden ist (Format: name=Jonas_Garcia) 	continue <- Zeile überspringen StringSplit, wort, A_LoopReadLine, = <- Zeile beim = splitten (name=Jonas Garcia -> wort1=name -> wort2=Jonas_Garcia) id := GetPlayerIdByName(wort2) <- Id des Namens laden (API) if (id != -1) <- Wenn Spieler online (API wert nicht -1, also online){ 	score := getplayerscorebyid(id) <- Spieler Level laden 	ping := getplayerpingbyid(id) <- Spieler Ping laden 	addchatmessage(0xFFFFFF, "{00FF00}Online: {E39F22}" wort2 "{FFFFFF}, ID: {E39F22}" id "{FFFFFF}, Level: {E39F22}" score "{FFFFFF}, Ping: {E39F22}" ping) <- Informationen im Chat ausgeben	}}return

Ich hatte dies Umgeschrieben soweit es geht. Leider hates nicht funktioniert.

ryano · 24. Mai 2018

@Chiller.502

Sehr alt, aber dennoch funktionstüchtig.

Code

global firstcolor := "FFFFFF"
global secondcolor := "FFFFFF"


:?:/add::
{
    Organizer("/add [{" firstcolor "}ID/Name{FFFFFF}] ||| [{" firstcolor "}Fraktion{FFFFFF}]")
    sleep 100
    SendInput, /add{Space}
    Input, user, V I M, {Space}
    Input, GangMafia, V I M, {Enter}
    SendInput {end}+{home}{Del}{Esc}
    updateOScoreboardData()
    if(user == "" || GangMafia == "")
    {
        Organizer("{DF0101}FEHLER! Der User konnte nicht gespeichert werden.")
    } else {
        if user is integer
        {
            username := getPlayerNameById(user)
        } else {
            username := GetPlayerNameById(GetPlayerIdByName(user))
        }
        if(username == "")
        {
            Organizer("{DF0101}FEHLER! Der User konnte nicht gefunden werden.")
        } else {
            FileAppend, %username%|%GangMafia%`n, Listen\Crew.txt
            Organizer("» Der User {" firstcolor "}" username "{FFFFFF} wurde auf die Crewliste gesetzt. {" firstcolor "}«")
        }
    }
}
return


:?:/del::
{
    Organizer("/del [{" firstcolor "}ID/Name{FFFFFF}]")
    SendInput, /del{Space}
    Input, user, V I M, {Enter}
    SendInput {end}+{home}{Del}{Esc}
    updateOScoreboardData()
    if(user == "")
    {
        Organizer("{DF0101}FEHLER! Der User konnte nicht gefunden werden.")
    } else {
        If user is integer
        {
            username := getPlayerNameById(user)
        } else {
            username := GetPlayerNameById(GetPlayerIdByName(user))
        }
        if(username == "")
        {
            Organizer("{DF0101}FEHLER! Der User konnte nicht gefunden werden.")
        } else {
            Loop, Read, Listen\Crew.txt
            {
                StringSplit, split, A_LoopReadLine, |
                if(InStr(split1, username))
                {
                    Organizer("» Der User {" firstcolor "}" split1 "{FFFFFF} wurde von der Crewliste entfernt. {" firstcolor "}«")
                } else {
                    FileAppend, %split1%|%split2%`n, Listen\Crew2.txt
                }
            }
            FileDelete, Listen\Crew.txt
            FileMove, Listen\Crew2.txt, Listen\Crew.txt
        }
    }
}
return


:?:/crewinfo::
{
    SendInput {end}+{home}{Del}{Esc}
    updateOScoreboardData()
    sleep 200
    runner := 0
    runner_on := 0
    Organizer("{" firstcolor "}» » » » » {FFFFFF}C R E W L I S T E {" firstcolor "}« « « « «")
    Loop, Read, Listen\Crew.txt
    {
        runner++
        if(A_LoopReadLine = "")
        continue
        StringSplit, splitted, A_LoopReadLine, |
        idname := GetPlayerIdByName(splitted1)
        CrewPing := getPlayerPingById(idname)
        if(CrewPing < 40)
        {
            color_ping := "00FF00"
        }
        else if(CrewPing < 100) {
            color_ping := "F7FE2E"
        }
        else if(CrewPing > 100) {
            color_ping := "DF0101"
        }
        if(idname != -1)
        {
            Organizer("{" firstcolor "}" splitted1 "{FFFFFF} ({" firstcolor "}" IDname "{FFFFFF}) - {" firstcolor "}" splitted2 "{FFFFFF} - Ping: {" color_ping "}" CrewPing)
            runner_on++
        }
    }
    sleep 100
    Organizer("» Es sind {" firstcolor "}" runner_on "{FFFFFF} / {" firstcolor "}" runner "{FFFFFF} Crewmitglieder online. {" firstcolor "}«")
}
return


:?:/crewcinfo::
{
    SendInput {end}+{home}{Del}{Esc}
    updateOScoreboardData()
    sleep 200
    runner := 0
    runner_on := 0
    SendChat("/crew » » » » » C R E W L I S T E « « « « «")
    sleep 1100
    Loop, Read, Listen\Crew.txt
    {
        runner++
        if(A_LoopReadLine = "")
        continue
        StringSplit, splitted, A_LoopReadLine, |
        idname := GetPlayerIdByName(splitted1)
        CrewPing := getPlayerPingById(idname)
        if(CrewPing < 40)
        {
            color_ping := "00FF00"
        }
        else if(CrewPing < 100) {
            color_ping := "F7FE2E"
        }
        else if(CrewPing > 100) {
            color_ping := "DF0101"
        }
        if(idname != -1)
        {
            SendChat("/crew " splitted1 " (" IDname ") - " splitted2 " - Ping: " CrewPing)
            runner_on++
            sleep 1100
        }
    }
    SendChat("/crew » Es sind " runner_on " / " runner " Crewmitglieder online. «")
}
return

Alles anzeigen

Code

Organizer(message) {
    AddChatMessage("{" secondcolor "}[{" firstcolor "}jkee{" secondcolor "}] {FFFFFF}" message "")
    return res
}

Marschl · 24. Mai 2018

Dankeschön

Maho · 15. Juni 2018

hallo wie mache ich das wenn sich jemand einloggt das ich eine message bekomme ?

TheDivine · 15. Juni 2018

Zitat von Lukas_freiman

hallo wie mache ich das wenn sich jemand einloggt das ich eine message bekomme ?

Was genau hat das jetzt mit dem Thema hier zutun?

Maho · 15. Juni 2018

ne nur so eine neben frage
kb immer neue Themen zu starten er hat ja jetzt was er will

Canna · 15. Juni 2018

Zitat von Lukas_freiman

ne nur so eine neben frage
kb immer neue Themen zu starten er hat ja jetzt was er will

Dient jedoch der Übersichtlichkeit, wenn man für ein anderes Thema einen neuen Thread aufmacht.

[AHK] Gegnerliste

breadfish.de 12. März 2022

Ähnliche Themen

Keybinder suche

Gegnerlogin hilfe