Beiträge von [TL]Haze

[TL]Haze · 27. April 2018

Hat jemand so etwas ähnliches in letzter Zeit irgendwo gesehen?

[TL]Haze · 27. Juni 2017

Es wird die neue Version runtergeladen, wenn sie dann gestartet werden soll, öffnet sich trotz aktuellster Version wieder das Update Fenster. Der Witz ist ja, dass die neue Version vom Binder dann sogar an ist und auch Ingame funktioniert, sich jedoch das Update fenster anstatt des eigentlichen guis öffnet

[TL]Haze · 26. Juni 2017

Geht trotzdem nicht..
Das hier ist von v1.01 -> https://pastebin.com/AJwscHXN

Das hier ist von v2 -> https://pastebin.com/FfTwptC0

Und das der Inhalt der version.ini
[Version]
Version=2
Dlink=http://spodergang.de/keybinder_version/Vagos-Keybinder/Vagos_v2

[TL]Haze · 26. Juni 2017

Nabend, ich habe folgende Updatefunktion in meinem Script.
Mein Problem ist, dass sich nach dem Update die neue Version öffnet, jedoch wieder das gui vom Updater auftaucht und nicht das vom Keybinder.

https://pastebin.com/QV5RfeVZ

Mit freundlichen Grüßen

[TL]Haze · 21. Juni 2017

Killzähler

C

; --------------------------------- wichtiges Zeugs
SendMode Input
SetWorkingDir %A_ScriptDir%




#IfWinActive, GTA:SA:MP
#Warn
#UseHook On
#Persistent
#NoEnv
#SingleInstance, force
#include %A_ScriptDir%\SAMP-API.ahk


SetTimer, KillTimer, 100


; --------------------------------- Gui
Gui, New


Gui, Add, Picture, x0 y0 h100 w500, %A_ScriptDir%\background.png


Gui, Show, x500 y500 w500 h250, haze killzähler v420.01


Gui, Add, Text, x10 y110, InGame Name:
IniRead, kzName, %A_ScriptDir%\killcounter.ini, Killcounter, Benutzername
Gui, Add, Edit, x10 y125 w480 r1 vuserName, %kzName%


Gui, Add, Text, x10 y160, Killnachricht:
IniRead, kzNachricht, %A_ScriptDir%\killcounter.ini, Killcounter, Killnachricht
Gui, Add, Edit, x10 y175 w480 r1 vuserNachricht, %kzNachricht%


Gui, Add, Button, x10 y210 w480, Speichern
Return


GuiClose:
ExitApp
; --------------------------------- Timer


KillTimer:
	dateToday=%A_Now%
	FormatTime, v_current_date, %dateToday%, yyyyMMdd
	IniRead, kvLastDate, %A_ScriptDir%\killcounter.ini, Killcounter, LastDate
	if(v_current_date != kvLastDate) {
		IniWrite, %v_current_date%, %A_ScriptDir%\killcounter.ini, Killcounter, LastDate
		IniWrite, 0, %A_ScriptDir%\killcounter.ini, Killcounter, TKills
		IniWrite, 0, %A_ScriptDir%\killcounter.ini, Killcounter, TDeaths
	}
	GetChatLine(0, chat)
	if(InStr(chat, "Mit /quiz kannst du ein Quizduell starten oder mit /newquiz neue Fragen erstellen.")) {
		IniRead, kvDeaths, %A_ScriptDir%\killcounter.ini, Killcounter, Deaths
		IniRead, kvTDeaths, %A_ScriptDir%\killcounter.ini, Killcounter, TDeaths
		kvDeaths++
		kvTDeaths++
		IniWrite, %kvDeaths%, %A_ScriptDir%\killcounter.ini, Killcounter, Deaths
		IniWrite, %kvTDeaths%, %A_ScriptDir%\killcounter.ini, Killcounter, TDeaths	
		IniRead, kvKillstreak, %A_ScriptDir%\killcounter.ini, Killcounter, Killstreak
		kvKillstreak = 0
		IniWrite, %kvKillstreak%, %A_ScriptDir%\killcounter.ini, Killcounter, Killstreak
		IniRead, kvKills, %A_ScriptDir%\killcounter.ini, Killcounter, Kills
		IniRead, kvTKills, %A_ScriptDir%\killcounter.ini, Killcounter, TKills
		IniRead, kvDeaths, %A_ScriptDir%\killcounter.ini, Killcounter, Deaths
		IniRead, kvTDeaths, %A_ScriptDir%\killcounter.ini, Killcounter, TDeaths
		addChatMessage("{AB8FF2}[Haze-Killzähler] Gesamtkills: {ffffff}" kvKills " ({AB8FF2}Heute:{ffffff} " kvTKills ") - {AB8FF2}Tode: {ffffff}" kvDeaths " ({AB8FF2}Heute:{ffffff} " kvTDeaths ")")
		return
	}
	IniRead, kvUsername, %A_ScriptDir%\killcounter.ini, Killcounter, Benutzername
	if(InStr(chat, "Du hast gerade einen Mord begangen. Achtung") || InStr(chat, "Du hast ein Verbrechen begangen ( Vorsätzlicher Mord ). Reporter: Anonym.") || InStr(chat, "Du hast einen Feind ausgeschaltet.") || InStr(chat, kvUsername " hat") && InStr(chat, "getötet | Grund: Blacklisted"))
	{
		IniRead, kvNachricht, %A_ScriptDir%\killcounter.ini, Killcounter, Killnachricht
		IniRead, kvKills, %A_ScriptDir%\killcounter.ini, Killcounter, Kills
		IniRead, kvTKills, %A_ScriptDir%\killcounter.ini, Killcounter, TKills
		kvKills++
		kvTKills++
		IniRead, kvKillstreak, %A_ScriptDir%\killcounter.ini, Killcounter, Killstreak
		kvKillstreak++
		IniWrite, %kvKillstreak%, %A_ScriptDir%\killcounter.ini, Killcounter, Killstreak
		IniWrite, %kvKills%, %A_ScriptDir%\killcounter.ini, Killcounter, Kills	
		IniWrite, %kvTKills%, %A_ScriptDir%\killcounter.ini, Killcounter, TKills	
		IniRead, kvKills, %A_ScriptDir%\killcounter.ini, Killcounter, Kills
		IniRead, kvTKills, %A_ScriptDir%\killcounter.ini, Killcounter, TKills
		IniRead, kvTDeaths, %A_ScriptDir%\killcounter.ini, Killcounter, TDeaths
		IniRead, kvDeaths, %A_ScriptDir%\killcounter.ini, Killcounter, Deaths
		pos := GetPlayerCoordinates()
		hp := getPlayerHealth()
		ort := calculateZone(pos[1],pos[2],pos[3])
		if(InStr(kvNachricht, "[Kills]") || InStr(kvNachricht, "[Deaths]") || InStr(kvNachricht, "[Ort]") || InStr(kvNachricht, "[HP]") || InStr(kvNachricht, "[TKills]") || InStr(kvNachricht, "[TDeaths]")) {
			StringReplace, kvMsg, kvNachricht, [Kills], %kvKills%, All
			StringReplace, kvMsg2, kvMsg, [Deaths], %kvDeaths%, All
			StringReplace, kvMsg3, kvMsg2, [Ort], %ort%, All
			StringReplace, kvMsg4, kvMsg3, [HP], %hp%, All
			StringReplace, kvMsg5, kvMsg4, [TKills], %kvTKills%, All
			StringReplace, kvMsg6, kvMsg5, [TDeaths], %kvTDeaths%, All
		}
		sendChat(kvMsg6)
		if(kvKillstreak == 3 || kvKillstreak == 6 || kvKillstreak == 9 || kvKillstreak == 12 || kvKillstreak == 15 || kvKillstreak == 18 || kvKillstreak == 21 || kvKillstreak == 24) {
			if(kvKillstreak == 24) {
				sendChat("/gr Ich habe die maximale Anzahl an Killstreaks erreicht!")
			} else {
				sendChat("/gr Ich habe eine " kvKillstreak "er Killstreak erreicht!")
			}
		}
		sleep, 200
		addChatMessage("{AB8FF2}[Haze-Killzähler] Gesamtkills: {ffffff}" kvKills " ({AB8FF2}Heute:{ffffff} " kvTKills ") - {AB8FF2}Tode: {ffffff}" kvDeaths " ({AB8FF2}Heute:{ffffff} " kvTDeaths ")")
		return
	}
return
; --------------------------------- Befehle
:?:/kztest::
	IniRead, kvNachricht, %A_ScriptDir%\killcounter.ini, Killcounter, Killnachricht
	IniRead, kvKills, %A_ScriptDir%\killcounter.ini, Killcounter, Kills
	IniRead, kvTKills, %A_ScriptDir%\killcounter.ini, Killcounter, TKills
	IniRead, kvTDeaths, %A_ScriptDir%\killcounter.ini, Killcounter, TDeaths
	IniRead, kvDeaths, %A_ScriptDir%\killcounter.ini, Killcounter, Deaths
	pos := GetPlayerCoordinates()
	hp := getPlayerHealth()
	ort := calculateZone(pos[1],pos[2],pos[3])
	if(InStr(kvNachricht, "[Kills]") || InStr(kvNachricht, "[Deaths]") || InStr(kvNachricht, "[Ort]") || InStr(kvNachricht, "[HP]") || InStr(kvNachricht, "[TKills]") || InStr(kvNachricht, "[TDeaths]")) {
		StringReplace, kvMsg, kvNachricht, [Kills], %kvKills%, All
		StringReplace, kvMsg2, kvMsg, [Deaths], %kvDeaths%, All
		StringReplace, kvMsg3, kvMsg2, [Ort], %ort%, All
		StringReplace, kvMsg4, kvMsg3, [HP], %hp%, All
		StringReplace, kvMsg5, kvMsg4, [TKills], %kvTKills%, All
		StringReplace, kvMsg6, kvMsg5, [TDeaths], %kvTDeaths%, All
	}
	sendChat(kvMsg6 "(TEST)")
	sleep, 200
	addChatMessage("{AB8FF2}[Haze-Killzähler] Gesamtkills: {ffffff}" kvKills " ({AB8FF2}Heute:{ffffff} " kvTKills ") - {AB8FF2}Tode: {ffffff}" kvDeaths " ({AB8FF2}Heute:{ffffff} " kvTDeaths ")")
return


:?:/ort::
	AddZone("LCN Base", -2266.0442,-502.5166,66.6609,-2804.8403,-197.9738,7.0313)
	ort := getPlayerZone()
	if(ort == "LCN Base") {
		sendChat("/gr Ich befinde mich an der LCN Base")
	} else {
		sendChat("/gr Ich befinde mich in " ort)
	}
return


:?:/hp::
	playerhp := getPlayerHealth()
	sendChat("(( " playerhp " HP ))")
return


:?:/dailystats::
	IniRead, kvTKills, %A_ScriptDir%\killcounter.ini, Killcounter, TKills
	IniRead, kvTDeaths, %A_ScriptDir%\killcounter.ini, Killcounter, TDeaths
	kvKDRatio := kvTKills/kvTDeaths
	If(kvTDeaths == 0){
	kvKDRatio := kvTKills/1
	}
	sendChat("/r Tägliche Kills: [" kvTKills "] - Tägliche Tode: [" kvTDeaths "] - Tägliche KD: [" Round(kvKDRatio,2) "]")
return


:?:/kzstats::
	IniRead, kvKills, %A_ScriptDir%\killcounter.ini, Killcounter, Kills
	IniRead, kvDeaths, %A_ScriptDir%\killcounter.ini, Killcounter, Deaths
	kvKDRatio := kvKills/kvDeaths
	If(kvDeaths == 0){
	kvKDRatio := kvKills/1
	}
	sendChat("/r Kills: [" kvKills "] - Tode: [" kvDeaths "] - KD: [" Round(kvKDRatio,2) "]")
return


; --------------------------------- Speicherfunktion


ButtonSpeichern: 
{
GuiControlGet, userName
GuiControlGet, userNachricht
IniWrite, %userName%, %A_ScriptDir%\killcounter.ini, Killcounter, Benutzername	
IniWrite, %userNachricht%, %A_ScriptDir%\killcounter.ini, Killcounter, Killnachricht	
MsgBox, 0, Haze - Killzähler v420.01, Die Einstellungen wurden erfolgreich gespeichert.
Return
}

Alles anzeigen

InGame funktioniert der Killzähler nicht und bei /kzstats kommt diese Fehlermeldung.
Bitte um Hilfe.

[TL]Haze · 21. Juni 2017

Zitat von .cs

Stell deine Frage doch am besten direkt hier.
So spielst du mit offenen Karten!

Wenn du meinst

Ich habe wenig Ahnung von AHK und versuche gerade einen Killzähler zu scripten, bei dem bearbeitet werden kann,
bei welcher Mordmeldung im Chat der Killzähler reagieren soll (damit er auf mehreren Servern benutzbar ist) und natürlich der Killtext an sich soll auch editierbard sein.

Außerdem soll der Killzähler ein aus und an schaltbares Laufscript beinhalten.
Das habe ich bis jetzt, funktioniert leider nicht..

Beim Killzähler habe ich noch nicht angefangen, weil ich nicht weiß, wie ich den Killtext usw editierbar mache, also mit GUI

Laufscript

[TL]Haze · 21. Juni 2017

Hallo liebe Community.
Ich bin auf der Suche nach einem AHK Scripter, der sich gut auskennt und mir beim Scripten eines Keybinders helfen kann.

Beiträge von [TL]Haze

GMod Modus "DarkRP" in SA:MP

Update Funktion

Update Funktion

Update Funktion

[SAMMELTHREAD] Kleine Coding Fragen

Hilfe gesucht

Hilfe gesucht