[SAMMELTHREAD] Kleine Coding Fragen

Inf1nity. · 2. Juni 2016

Code

SetTimer, Killzähler, 250 ;Oben im Script




Killzähler:
/*
Du hast ein Verbrechen begangen (Vorsätzlicher Mord). Reporter: Unbekannt    GetChatLine1
Momentanes Wantedlevel: GetChatLine0
*/
{
kills++
IniWrite, %kills%, Killzähler.ini, Kills, kills
SendChat("/f Ich habe mal wieder Zugeschlagen +1Kill ::: Gesamte Snacks::" %kills% "" kills)
IniRead, kills, Killzähler.ini, Kills, kills
}
return

Alles anzeigen

Hallo ich habe ein kleines Problem bei mein Killzähler er Spammt einfach die ganze zeit durch....

Andi_Miller · 2. Juni 2016

Kein Wunder wenn Timer nicht geprüft wird ob du jemanden getötet hast oder nicht. Arbeite am besten mit ,"GetChatLine" bzw nen Loop der den Chatlog ausliest und "instr".

Inf1nity. · 2. Juni 2016

Kannst du ein Beispiel machen wie ich das Mache? mit Loop

hier nochmal der Code

Code

SetTimer, Killzähler, 250 ;Oben im Script
Killzähler:
/*
Du hast ein Verbrechen begangen (Vorsätzlicher Mord). Reporter: Unbekannt    GetChatLine1
Momentanes Wantedlevel: GetChatLine0
*/
{
kills++
IniWrite, %kills%, Killzähler.ini, Kills, kills
SendChat("/f Ich habe mal wieder Zugeschlagen +1Kill ::: Gesamte Snacks::" %kills% "" kills)
IniRead, kills, Killzähler.ini, Kills, kills
}
return

Alles anzeigen

Wäre super nett

Andi_Miller · 2. Juni 2016

Du scheinst ja eine API zu benutzen (weil SendChat)

Beispielcode:

Code

SetTimer, autoheal, 100


autoheal:
GetChatLine(0, healchat) ;unterste Zeile auslesen und in "healchat" speichern
if(instr(healchat, "/accept heal")) ;wenn /accept heal in der zuvor ausgelesenen Zeile enthalten ist
{
	SendChat("/accept heal")
	SendChat("danke für den Heal")
}
return

Alles anzeigen

Jetzt kannst du ja mal versuchen das auf die Mordmeldung zu übertragen

staNleY. · 2. Juni 2016

Zitat von Inf1nity.

Code

SetTimer, Killzähler, 250 ;Oben im Script
Killzähler:
GetChatLine(1, Chatline1)
GetChatLine(0, Chatline2)
if(inStr(Chatline1, "Du hast ein Verbrechen begangen (Vorsätzlicher Mord). Reporter: Unbekannt") AND inStr(Chatline2, "Momentanes Wantedlevel: ")){
{
{
kills++
IniWrite, %kills%, Killzähler.ini, Kills, kills
SendChat("/f Ich habe mal wieder Zugeschlagen +1Kill ::: Gesamte Snacks::" %kills% "" kills)
IniRead, kills, Killzähler.ini, Kills, kills
}
return

Alles anzeigen

No Problem :)= falls es nicht geht schreib mich an

Inf1nity. · 2. Juni 2016

Zitat von staNleY.

Spammt immernoch weiter

Andi_Miller · 2. Juni 2016

So wie der Code da steht wird der Compiler meckern.
Entferne die 2 unnötigen öffnenden Klammern, dann sollte das ganze nicht mehr gespamt werden.

Inf1nity. · 2. Juni 2016

hab ich geht trzd nicht Spammt immernoch voll durch

Andi_Miller · 2. Juni 2016

Magst du dein Script mal posten, das ganze?

Whice · 2. Juni 2016

Sollte so gehen, war eine {-Klammer zu viel

Bash

SetTimer, Killzähler, 250 ;Oben im Script






Killzähler:
GetChatLine(1, Chatline1)
GetChatLine(0, Chatline2)
if(inStr(Chatline1, "Du hast ein Verbrechen begangen (Vorsätzlicher Mord). Reporter: Unbekannt") AND inStr(Chatline2, "Momentanes Wantedlevel: ")){
{
	kills++
	IniWrite, %kills%, Killzähler.ini, Kills, kills
	SendChat("/f Ich habe mal wieder Zugeschlagen +1Kill ::: Gesamte Snacks:: " kills)
	IniRead, kills, Killzähler.ini, Kills, kills
}
return

Alles anzeigen

Inf1nity. · 3. Juni 2016

Funktioniert nicht mit den Klammern!
Hier mein Script

Code

#Include API.ahk
#UseHook
#SingleInstance Force
#Persistent
#IfWinActive GTA:SA:MP


SetTimer, AutoMats, On
SetTimer, Killzähler, 250


~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
SendInput {Escape}
Hotkey, t, On
Hotkey, Enter, Off
Hotkey, Escape, Off
return


;###################################################################################################################################################################
;###################################################################################################################################################################


; Hotkeys
U::
FormatTime,Uhrzeit, HH:mm:ss
SendInput t/me schaut auf die Uhrzeit. (%Uhrzeit%) {Enter}
return


F12::
Suspend
if ( A_IsSuspended )
    {
        AddChatMessage(0xFFFFFF,"{FF0000}Du hast den Keybinder deaktiviert...")
    }
if ( !A_IsSuspended )
    {
        AddChatMessage(0xFFFFFF,"{00FF00}Du hast den Keybinder aktiviert...")
    }
return


1::
hp := GetPlayerHealth()
armor := GetPlayerArmor()
Sendchat("/f " " Ich habe " hp " hp ::::: " armor " armor ")
return


2::
SendChat("/htor 16")
AddChatMessage(0xFFFFFF,"{00FF00} Du hast dein Haustor geöffnet")
return


3::
SendChat("/hiexit")
sLeep 3000
SendChat("/hienter")
return


4::
SendChat("/enter")
sLeep 3000
SendChat("/exit")
return


Z::
SendChat("/Motor")
SendChat("/Licht")
return


5::
SendChat("/carlock")
return




;###################################################################################################################################################################
;###################################################################################################################################################################


; Eigene Binds ;


; countdown starten ;
:?:/cd::
Suspend Permit
SendChat("/s >>3<<")
sLeep 1000
SendChat("/s >>2<<")
sLeep 1000
SendChat("/s >>1<<")
sLeep 1000
Sendchat("/s >>Gooo<<")
return


; Telefon Gehen ;
:?:/p::
Suspend Permit
GetPlayerName(name)
Suspend Permit
Sendchat("/p") ; damit er Ingame abhebt
SendChat("Guten Tag sie sprechen mit " name "") ; Satz 1
Sendchat("Wie kann ich ihnen behilflich sein?") ; Satz 2
return


; Anrufbeantworter ;
:?:/ab::
Suspend Permit
GetPlayerName(name)
Suspend Permit
SendChat("/p")
SendChat("tGuten Tag, das ist der Anrufbeantworter von " name ",")
SendChat("leider bin ich gerade nicht erreichtbar bitte rufen sie später nochmal an.")
SendChat("Vielen Dank und Schönen Tag noch wünscht ihnen " name "")
SendChat("/h")
return


; Hilfe Ruf ;
:?:/hp::
Suspend Permit
GetZoneName(MyZone)
GetCityName(MyCity)
GetPlayerName(Name)
id := GetPlayerID()
Sendchat("/f "" Ich benötige Hilfe in  " MyCity " :::: " MyZone " :::: Meine ID ist "  id "  ::::  Mein Name ist "   "" Name "")
return


; Aktuelle Position ;
:?:/pos::
Suspend Permit
GetZoneName(MyZone)
GetCityName(MyCity)
GetPlayerName(Name)
id := GetPlayerID()
SendChat("/f Meine Aktuelle Position " MyCity " ::: " MyZone " ::: Meine ID ist " id "  :::  Mein Name ist " "" Name "")
return


; Ammu Ausrüsten ;
:?:/bg::
Suspend Permit
SendInput /buygun{enter}
sLeep 100
Send, {enter}
sLeep 150
SendInput t/buygun{enter}
sLeep 100
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 100
Send, {enter}
sLeep 100
SendInput 150
sLeep 100
Send, {enter}
sLeep 150
SendInput t/buygun{enter}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {Down}
sLeep 50
Send, {enter}
sLeep 100
SendInput 50
sLeep 50
Send, {enter}
sLeep 150
SendInput t/buygun{enter}
sLeep 100
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 20
Send, {Down}
sLeep 50
Send, {enter}
sLeep 100
SendInput 1200
Send, {enter}
sLeep 100
return


:?:/hotkeys::
Suspend Permit
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} U = Uhrzeit")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} F12 = Keybinder An/Aus")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} /cd = Countdown")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} /hp = Hilfe Ruf")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} /p = Ans Telefon gehen")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} /ab = Anrufbeantworter")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} /pos = Meine Postion")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} 1 = HP&Armor")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} 2 = Htor Öffnen")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} 3 = Hitman Base Enter & Exit")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} 4 = Enter & Exit")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} 5 = Carlock")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} Z = Motor&Licht")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} /bg = Equip im Ammu")
AddChatMessage(0xFFFFFF,"{FFFFFF} [Hotkeys] {00FF00} /kills = Aktuelle Kills")
return


:?:/kills::
Suspend Permit
IniRead, kills, Killzähler.ini, Kills, kills
AddChatMessage(0xFFFFFF,"{FFFFFF} [Killzähler] Deine Kills= " kills)
return


;####################################################################################################################################################################
;####################################################################################################################################################################


; Automatische ;


Automats: ; Automatisch Mats Farmen ;
if(IsPlayerInRangeOfPoint( 592.8731,-1248.4691,17.7235,2.5)) ;LS-Punkt
{
sleep 50
SendChat("/materials Get 20")
sleep, 3000
}
if(IsPlayerInRangeOfPoint( -1825.9231,42.2985,14.6811,2.5)) ;SF-Punkt
{
SendChat("/materials Deliver")
sleep, 3000
}
return




Killzähler:
GetChatLine(1, Chatline1)
GetChatLine(0, Chatline2)
if(inStr(Chatline1, "Du hast ein Verbrechen begangen (Vorsätzlicher Mord). Reporter: Unbekannt") AND inStr(Chatline2, "Momentanes Wantedlevel: ")){
	kills++
	IniWrite, %kills%, Killzähler.ini, Kills, kills
	SendChat("/f Ich habe mal wieder Zugeschlagen +1Kill ::: Gesamte Snacks:: " kills)
	IniRead, kills, Killzähler.ini, Kills, kills
}
return

Alles anzeigen

Whice · 3. Juni 2016

Und Ingame kommt die Nachricht´mit dem Wanted Level und so?
Bzw. wird die kills Variable ja hoch gesetzt aber warum ließt du sie am Ende aus und nicht am Anfang?

Inf1nity. · 3. Juni 2016

Zitat von Whice.

Und Ingame kommt die Nachricht´mit dem Wanted Level und so?
Bzw. wird die kills Variable ja hoch gesetzt aber warum ließt du sie am Ende aus und nicht am Anfang?

[14:17:09] Du hast ein Verbrechen begangen ( Vorsätzlicher Mord ). Reporter: Unbekannt.

[14:17:09] Momentanes Wantedlevel: 2

So kommt das denn

staNleY. · 3. Juni 2016

Zitat von Inf1nity.

[14:17:09] Du hast ein Verbrechen begangen ( Vorsätzlicher Mord ). Reporter: Unbekannt.
[14:17:09] Momentanes Wantedlevel: 2

So kommt das denn

Hast du schon meins versucht was im Postfach war?

Code

Killzähler:
GetChatLine(1, Chatline1)
GetChatLine(0, Chatline2)
if(inStr(Chatline1, "Du hast ein Verbrechen begangen (Vorsätzlicher Mord). Reporter: Unbekannt.") AND inStr(Chatline2, "Momentanes Wantedlevel: ")){
	IniRead, kills, Killzähler.ini, Kills, kills
	kills++
	IniWrite, %kills%, Killzähler.ini, Kills, kills
	SendChat("/f Ich habe mal wieder Zugeschlagen +1Kill ::: Gesamte Snacks:: " kills)
        sleep 3000
}
return

Alles anzeigen

so klappt es immer bei mir^^

Inf1nity. · 3. Juni 2016

Funktioniert nicht

dewey · 4. Juni 2016

Zitat von Inf1nity.

Funktioniert nicht

Auf welchen Post bezogen?
Was genau funktioniert nicht? (Fehlermeldungen etc.)

Wenn es auf diesen Post bezogen war:
[SAMMELTHREAD] Kleine Coding Fragen

dann kann es eigentlich nur funktionieren. Wenn du aber keinen Timer gestartet hast, der den Label Aufruft, ist es kein Wunder.
Einfach mit:

Code

SetTimer, Killzähler, 100

am Scriptstart probieren.

MfG

Inf1nity. · 4. Juni 2016

ich habe doch einen Timer

SetTimer, Killzähler, 250??

Ich bekomme keine Fehlermeldung garnichts ist zienlich komisch...

Whice · 4. Juni 2016

Versuch es mal ohne Umlaute

Andi_Miller · 4. Juni 2016

Funktioniert denn der Automats Timer so wie er soll?
Hast du die ansi 32 Bit Version von Autohotkey installiert?
Funktionieren fremde Keybinder mit so einem Killzähler bei dir?
Schonmal als Admin gestartet?

Sind nur Ideen^^
Am Script liegt das Problem jedenfalls nicht. Label welche Umlaute enthalten sind normalerweise kein Problem.

Renz · 4. Juni 2016

GetChatline() würde ich nicht verwenden nutze lieber FileRead und mach ein Backup vom Chatlog, is wesentlich effektiver... Hatte in Großen scripts nur Probleme mit GetChatline...