#IfWinActive, GTA:SA:MP
#SingleInstance, Force
#Persistent
#UseHook
#NoEnv
#include SAMP.ahk
#include overlay.ahk

initZonesAndCities()
DestroyAllVisual()

settimer, all, 50

SetParam("use_window", "1")
SetParam("window", "GTA:SA:MP")

allplayersbox := BoxCreate(3, 250, 120, 100, 0x90000000, true)
nextidov := TextCreate("Arial", 6, true, true, 5, 200, 0xFFFFFFFF, "", true, true)
allplayersov := TextCreate("Arial", 6, true, true, 5, 250, 0xFFFFFFFF, "", true, true)
aiminfoov := TextCreate("Arial", 6, true, true, 450, 260, 0xFFFFFFFF, "", true, true)
myposov := TextCreate("Arial", 10, true, true, 450, 1, 0xFFFFFFFF, "", true, true)
return

all:
;Nächster Spieler
        {
        nextid := getClosestPlayerId()
        nextidpos := getPlayerPos(nextid)
        mypos := getCoordinates()
        nextiddistance := getDist(nextidpos, mypos)
        if(nextid == "-1")
                {
                TextSetString(nextidov, "Niemand in der Naehe")
                }
        else
                {
                TextSetString(nextidov, "Naechster Spieler: " GetPlayerNamebyID(nextid) " (ID: " nextid ") Distanz: " Round(nextiddistance) "m")
                }
        }
;Aim Infos
        {
        ped := getTargetPed()
                {
                if(ped)
                        {
                        targetid := getidbyped(ped)
                        targetname := GetPlayerNamebyID(targetid)
                        targetpos := getPlayerPos(targetid)
                        targetdis := getDist(targetpos, mypos)
                        targetping := getPlayerPingById(targetid)
                        targethp :=
                    if(!IsPlayerInAnyVehicle())
                    TextSetString(aiminfoov,"Name: " targetname " (ID: " targetid ")`nDistanz: " Round(targetdis) "`nPing: ~" targetping)
                        }
                else
                        {
                        TextSetString(aiminfoov,"")
                        }
                }
        }
;allplayers
        {
        callFuncForAllStreamedInPlayers("foo", 150)
                foo(o)
                        {
                        sad := "{FFFFFF}" o.NAME " (ID: " o.ID ") HP: {FF0000}" Round(o.HP) "{FFFFFF} [Armor:{00FF00} " Round(o.ARMOR) "{FFFFFF}]"
                        FileAppend, %sad%|, text.txt
                        }
                FileRead, allplayers, text.txt
                StringSplit, player, allplayers, |
                FileDelete, text.txt
                TextSetstring(allplayersov,"Spieler in der Naehe`n" player1 "`n" player2 "`n" player3 "`n" player4 "`n" player5 "`n" player6 "`n" player7 "`n" player8 "`n" player9 "`n" player10)
                Loop, 10
                player%A_Index% := ""
        }
return

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

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

;getPlayerPos(dwId)
;getPedById(dwId)
;getIdByPed(dwPed)
;getStreamedInPlayersInfo()
;getClosestPlayerId()
;callFuncForAllStreamedInPlayers(func,dist=0x7fffffff)
;getDist(pos1,pos2)
;getPedCoordinates(dwPED)
;getPedCarInfo(dwPED)
;getTargetPed()
;sendDeath()
;restart()