Suche automatischen Killzähler

global GAMETEXT_1					:= 0xBAAD40
global GAMETEXT_2					:= 0xBAADC0
global GAMETEXT_3					:= 0xBAAE40
global GAMETEXT_4					:= 0xBAAEC0
global GAMETEXT_5					:= 0xBAABC0


getGameText(type = 1, length = 12) {
	if (!checkHandles())
		return ""

	if (type == 1) {
		text := readString(hGTA, GAMETEXT_1, length)
	} else if (type == 2) {
		text := readString(hGTA, GAMETEXT_2, length)
	} else if (type == 3) {
		text := readString(hGTA, GAMETEXT_3, length)
	} else if (type == 4) {
		text := readString(hGTA, GAMETEXT_4, length)
	} else if (type == 5) {
		text := readString(hGTA, GAMETEXT_5, length)
	}

	return text
}


getKills() {
	if (!checkHandles()) {
		return false
	}

	pedLocal := readDWORD(hGTA, 0xB6F5F0)
	if (!pedLocal) {
		return false
	}

	peds := getPeds()
	if (!peds) {
		return false
	}

	data := []

	For index, object in peds {
		state := readMem(hGTA, object.PED + 0x530, 4, "UInt")
		if ((pedStates[object.PED] == 55 || pedStates[object.PED] == 54) == (state == 55 || state == 54)) {
			Continue
		}

		pedStates[object.PED] := state
		if (object.PED && !object.ISNPC && (state == 55 || state == 54)) {
			pedMurderer := readDWORD(hGTA, object.PED + 0x764)
			murderer := false

			For index2, object2 in peds
			{
				if (object2.PED == pedMurderer) {
					murderer := object2
					Break
				}
			}

			weapon := readMem(hGTA, object.PED + 0x760, 4, "UInt")
			skin := readMem(hGTA, object.PED + 0x22, 2, "UShort")

			if (!murderer) {
				data.Push({victim: object, weapon: weapon, skin: skin})
			} else {
				data.Push({victim: object, murderer: murderer, weapon: weapon, skin: skin})
			}
		}
	}

	return data
}


getPeds() {
	if (!checkHandles()) {
        return false
	}

    if (!updateScoreboardDataEx()) {
        return false
	}

	dwAddress := readDWORD(hGTA, dwSAMP + 0x21A0F8)
    dwAddress := readDWORD(hGTA, dwAddress + 0x3CD)
    dwAddress := readDWORD(hGTA, dwAddress + 0x18)

	data := []

	wID := readMem(hGTA, dwAddress + 0x4, 2, "UShort")
	dwPed := readDWORD(hGTA, 0xB6F5F0)

    if (readDWORD(hGTA, dwAddress + 0x1A) <= 16) {
        sName := readString(hGTA, dwAddress + 0xA, 16)
    } else {
        sName := readString(hGTA, readDWORD(hGTA, dwAddress + 0xA), 20)
    }

	data.Push({LOCAL: true, ID: wID, PED: dwPed, ISNPC: false, NAME: sName})
	Loop % 1000 {
		i := A_Index - 1
		dwRemotePlayer := readDWORD(hGTA, dwAddress + 0x2E + i * 4)

		if (!dwRemotePlayer) {
			Continue
		}

		dwRemotePlayerData := readDWORD(hGTA, dwRemotePlayer)
		dwRemotePlayerData := readDWORD(hGTA, dwRemotePlayerData)
		dwPed := readDWORD(hGTA, dwRemotePlayerData + 0x2A4)

		if (!dwPed) {
			Continue
		}

		dwIsNPC := readDWORD(hGTA, dwRemotePlayer + 0x4)
        if (readMem(hGTA, dwRemotePlayer + 0x1C, 4, "Int") <= 16) {
            sName := readString(hGTA, dwRemotePlayer + 0xC, 16)
        } else {
            sName := readString(hGTA, readDWORD(hGTA, dwRemotePlayer + 0xC), 20)
        }

		data.Push({LOCAL: false, ID: i, PED: dwPed, ISNPC: dwIsNPC, NAME: sName})
	}

	return data
}

SetTimer, KillTimer, 500


KillTimer:
{
	data := getKills()

	if (data) {
		for index, object in data 
		{
			if (object.victim.local) {
				IniRead, deaths, data/stats.ini, DM, deaths, 0
				IniRead, ddeaths, data/stats.ini, DM_%A_DD%%A_MM%%A_YYYY%, ddeaths, 0
				IniRead, mdeaths, data/stats.ini, DM_%A_MM%%A_YYYY%, mdeaths, 0
				IniRead, kills, data/stats.ini, DM, kills, 0
				IniRead, dkills, data/stats.ini, DM_%A_DD%%A_MM%%A_YYYY%, dkills, 0
				IniRead, mkills, data/stats.ini, DM_%A_MM%%A_YYYY%, mkills, 0 

				deaths ++
				ddeaths ++
				mdeaths ++

				IniWrite, %deaths%, data/stats.ini, DM, deaths
				IniWrite, %ddeaths%, data/stats.ini, DM_%A_DD%%A_MM%%A_YYYY%, ddeaths
				IniWrite, %mdeaths%, data/stats.ini, DM_%A_MM%%A_YYYY%, mdeaths

				if (deaths == 0) {
					kd := kills . ".000"
				} else {
					kd := round(kills / deaths, 3)
				}		


				if (ddeaths == 0) {
					dkd := dkills . ".000"
				} else {
					dkd := round(dkills / ddeaths, 3)
				}


				addChatMessage("{FFFFFF}Tode: {FFBF00}" . formatNumber(deaths) . " {FFFFFF}| Tode heute: {FFBF00}" . formatNumber(ddeaths) . " {FFFFFF}| K/D: {FFBF00}" . kd . " {FFFFFF}| K/D heute: {FFBF00}" . dkd)

				SendChat("/f TODESSPRUCH HIER EINTRAGEN | in " . getPlayerZone() . ", " . getPlayerCity() . " | " . formatNumber(deaths))
			} else {
				chat := readChatLine(0) . readChatLine(1)
				gameText := getGameText(3, 28)

				if (InStr(chat, "[Mord]") || InStr(gameText, "~g~Gang") || InStr(gameText, "~g~Team")) {
					IniRead, kills, data/stats.ini, DM, kills, 0
					IniRead, dkills, data/stats.ini, DM_%A_DD%%A_MM%%A_YYYY%, dkills, 0
					IniRead, mkills, data/stats.ini, DM_%A_MM%%A_YYYY%, mkills, 0
					IniRead, deaths, data/stats.ini, DM, deaths, 0
					IniRead, ddeaths, data/stats.ini, DM_%A_DD%%A_MM%%A_YYYY%, ddeaths, 0
					IniRead, mdeaths, data/stats.ini, DM_%A_MM%%A_YYYY%, mdeaths, 0

					kills ++
					dkills ++
					mkills ++

					IniWrite, %kills%, data/stats.ini, DM, kills
					IniWrite, %dkills%, data/stats.ini, DM_%A_DD%%A_MM%%A_YYYY%, dkills
					IniWrite, %mkills%, data/stats.ini, DM_%A_MM%%A_YYYY%, mkills

					addChatMessage("{FFFFFF}Kill in: {FFBF00}" . getPlayerZone() . " {FFFFFF}| Tages Kills: {FFBF00}" . formatNumber(dkills) . "{FFFFFF} | Aktuelle Kills: {FFBF00}" . formatNumber(kills))

					SendChat("/f KILLSPRUCH HIER EINTRAGEN | in " . getPlayerZone() . ", " . getPlayerCity() . " | " . formatNumber(kills))


					if (InStr(gameText, "~g~Gang") || InStr(gameText, "~g~Team")) {
						Sleep, 5000
					}
				}
			}
		}
	}
}
return