[AHK] Chat auslesen = Spam?

Wie führst du AutoTogHi: aus?

Ich seh da spontan keinen Fehler... spamt es nach der Abfrage permanent "/f Hallo c:" weiter oder hört es wieder auf?

Du musst schon ordentlich Klammern setzen:

AutoTogHi:
   GetChatLine(0, Chatline1)
   if (InStr(Chatline1, "[NACHRICHT] Der Spieler")) {
      sleep 500
      SendChat("/f Hallo c:")
   }
return

Zitat von .Shifty

Hey, ich habe folgendes Problem:

Wenn eine Zeile aus dem Chat in meinem Keybinder ausgelesen wird, Spammt der Keybinder meinen ganzen Chat voll.

Code:

AutoTogHi:

GetChatLine(0, Chatline1)

if(InStr(Chatline1, "[NACHRICHT] Der Spieler"))

sleep 500

SendChat("/f Hallo c:")

return

Alles anzeigen

Ursache deines Fehlers:

Settimer, AutoTogHi, 1000 ; Beispiel[tt][/tt]
Das Label AutoTogHi wird jede Sekunde (1000 Millisekunden) aufgerufen...
GetChatLine() liest somit alle X Sekunden den SAMP Chatlog aus,
heisst sollange sich Zeile 0 (Definiert als Parameter) nicht ändert, wird er immer wieder die If() bedingung ausführen.
Nach einem If() muss immer ein Block {} folgen, wenn mehr als 1 Zeile Code folgt.

Falsch:

if(InStr(Chatline1, "[NACHRICHT] Der Spieler"))
sleep 500
SendChat("/f Hallo c:")
return

Dies bewirkt, Ist in Chatline1, "[NACHRICHT] Der Spieler" zufinden... ruht das Skript 500 Millisekunden da es sich direkt unter if(InStr(Chatline1, "[NACHRICHT] Der Spieler")) befindet
und gibt anschliessend die NAchricht aus SendChat("/f Hallo c:") egal ob die If() bedingung erfüllt wurde oder nicht.

Richtig:

if(InStr(Chatline1, "[NACHRICHT] Der Spieler"))
{
 sleep 500
 SendChat("/f Hallo c:")
 LastLine := Chatline1
}
return

So wird der ganze Block {} ausgeführt sollte die If() bedingung wahr sein...

Kleiner Tip:
Speichere dir die Letzte ausgelesene Zeile als Variable zwischen und frage am anfang ab ob sie gleich == der letzten aktuell gelesenen Chatlog zeile ist.
Sollte sie gleich sein, kannst du dir den ganzen durchlauf des Labels sparen... Kann bei grossen Keybindern sehr ressourcenschonend sein, jenachdem wie lang der "Baum" wird^^

AutoTogHi:
GetChatLine(0, Chatline1)
if(LastLine == Chatline1)
	return


if(InStr(Chatline1, "[NACHRICHT] Der Spieler"))
{
	sleep 500
	SendChat("/f Hallo c:")
	LastLine := Chatline1
}
return

Ps.: Da war der Madd92 wohl schneller!

Die bessere Variante ist meiner Meinung nach, einfach auf GetChatLine zu verzichten und mit FileOpen und dem File Object Interface zu arbeiten. Dadurch liest man 1. jede Zeile nur einmal aus, 2. liest wirklich jede Nachricht aus, auch wenn viele auf einmal geschrieben werden und 3. spart Performance, da nicht jedes Mal das gesamte Chatlog ausgelesen wird.

SetTimer, AutoTogHi, 1000

AutoTogHi:
{
    chat := GetChatLine(0)
    if(InStr(chat, "[Spieler]Der Spieler"
    sleep, 5000
    SendChat("Hallo.")
}
return

Hab es nicht gestestet, müsste aber so gehen

Zitat von _Max

SetTimer, AutoTogHi, 1000

PHP

AutoTogHi:
{
    chat := GetChatLine(0)
    if(InStr(chat, "[Spieler]Der Spieler"
    sleep, 5000
    SendChat("Hallo.")
}
return

Hab es nicht gestestet, müsste aber so gehen

Deine Klammer ergibt einfach keinen Sinn.

Zitat von Madd92

Die bessere Variante ist meiner Meinung nach, einfach auf GetChatLine zu verzichten und mit FileOpen und dem File Object Interface zu arbeiten. Dadurch liest man 1. jede Zeile nur einmal aus, 2. liest wirklich jede Nachricht aus, auch wenn viele auf einmal geschrieben werden und 3. spart Performance, da nicht jedes Mal das gesamte Chatlog ausgelesen wird.

Ich benutze immer diese Funktion, da ich es genau so wie du sehe,
Bin mit der immer besser gefahren als mit GetChatline, vorallem weil man Zeilen Bereiche überwachen kann...

ReadSAMPLog(SearchFor,Params*)
{
	local RSL_OBJECT := Object()
	RSL_LOGPATH := A_MyDocuments . "/GTA San Andreas User Files/SAMP/chatlog.txt"
	FileGetSize, RSL_NEWFILESIZE , % RSL_LOGPATH
	If(RSL_OLDFILESIZE < RSL_NEWFILESIZE)
	{
		RSL_SAMPLOG := FileOpen(RSL_LOGPATH,"r")
		Loop{
			RSL_ROW := RSL_SAMPLOG.ReadLine()
			RSL_ROW := RegExReplace(RSL_ROW, RegExTimeStamp)
			RSL_ROW := RegExReplace(RSL_ROW, RegExColor, "")
			RSL_ROW := StrReplace(RSL_ROW, "`r`n")
			RSL_ROW := StrReplace(RSL_ROW, "`r")
			if(RSL_ROW != "")
				RSL_OBJECT.Push(RSL_ROW)
		}Until RSL_SAMPLOG.AtEOF


		if(Params.MaxIndex() == 1 && Params[1] < 0){
			While(A_Index <= StrReplace(Params[1], "-")){
				if(FoundIT := RegExMatch("(.*) " RSL_OBJECT[ RSL_OBJECT.MaxIndex()-A_Index ] " (.*)", SearchFor)){
					FileGetSize, RSL_OLDFILESIZE , % RSL_LOGPATH
					RSL_SAMPLOG.Close()
					break
				}
			}
		}else{
			for _i,linenr in Params {
				if(FoundIT := RegExMatch("(.*) " RSL_OBJECT[RSL_OBJECT.MaxIndex()-linenr] " (.*)", SearchFor)){
					FileGetSize, RSL_OLDFILESIZE , % RSL_LOGPATH
					RSL_SAMPLOG.Close()
					break
				}
			}
		}
		return FoundIT ? True : False
	}
}

Zitat von _Max

SetTimer, AutoTogHi, 1000

PHP

AutoTogHi:
{
    chat := GetChatLine(0)
    if(InStr(chat, "[Spieler]Der Spieler"
    sleep, 5000
    SendChat("Hallo.")
}
return

Hab es nicht gestestet, müsste aber so gehen

Da is genau der selbe fehler drin wie vom Thread ersteller + GetChatline() falsch angewendet....