Jump to content

مود آلول هاك


Recommended Posts

آلسلام عليكم

انا عندي مود حملته من الكومينتي

آلمود ول هاك لما تلبس النظاره يطلع لك

انا آبيه بدون نظاره بس تكتب بآف8

آمر يضبط

حاولت آسويه لكن يجيني اخطاء دايم :‘(

هذآ آلكلنت

  
local sw,sh = guiGetScreenSize()
local osw = sw/1280
local osh = sh/1024
local maxdist = 200
local vis = 0
local currentUse = false
local infoTable = {{"Health",true,nil},{"Armor",true,nil},{"Weapon",true,nil},{"Vehicle",true,nil},{"Team",true,"player"}}
local colors = {window=tocolor(0,0,200,130),windowHead=tocolor(0,0,0,180),windowHeadText=tocolor(255,0,0,255),windowText=tocolor(255,0,0,255)}
 
--BONES--
local lvl1bones = {[54] = 53,[53] = 52,[52] = 51,[51] = 1,[44] = 43,[43] = 42,[42] = 41,[41] = 1,[1] = 2,[2] = 3,[3] = 4,[26] = 25,[25] = 24,[24] = 23,[23] = 22,[21] = 22,
[36] = 35,[35] = 34,[34] = 33,[33] = 32,[31] = 32,[4] = 6,[6] = 7,[7] = 4,[32] = 41,[22] = 51}
local lvl2bones = {[5] = 32, [22] = 5, [24] = 23, [23] = 22, [32] = 33, [33] = 34, [1] = 5, [51] = 1, [41] = 1, [52] = 51, [42] = 41, [6] = 5, [53] = 52, [43] = 42}
local lvl3bones = {[24] = 23, [23] = 5, [34] = 33, [33] = 5, [1] = 5, [52] = 1, [42] = 1, [53] = 52, [43] = 42}
--BONES--
 
function getType(element)
    if isElement(element) then
     return getElementType(element)
    else
     return type(element)
    end
end
 
function isNormalValue(value)
    if getType(value) ~= "table" then
    return false, "Argument must be 'table'"
    elseif getType(value[1]) ~= "string" or getType(value[2]) ~= "string" then
    return false, "Value should be like '{string showingName, string elementData, player/ped/nil workingElement, [{childValue1,childValue2,..}]}"
    end
    if value[4] then
        if getType(value[4]) ~= "table" then
        return false, "Child values must be 'table'"
        else
            for i,value in ipairs(value[4]) do
            local isNormal, debugMessage = isNormalValue(value)
                if not isNormal then
                return isNormal, debugMessage
                end
            end
        end
    end
return true
end
 
function addWindowInfo(value)
local isNormal, debugMessage = isNormalValue(value)
    if not isNormal then
    return isNormal, debugMessage
    end
infoTable[#infoTable+1] = value
return true
end
 
function removeWindowInfo(v1,v2,v3)
if v1 then
    for i,value in ipairs(infoTable) do
        if value[1] == v1 then
            if v2 then
                if value[2] == v2 then
                    if v3 then
                        if value[3] == v3 then
                        table.remove(infoTable,i)
                        return true
                        end
                    else
                    table.remove(infoTable,i)
                    return true
                    end
                end
            else
            table.remove(infoTable,i)
            return true
            end
        end
    end
end
return false
end
 
function table.ps(pl)
local scores = {}
local n = 0
local win = {}
    for k,v in pairs(pl) do
    table.insert(scores,v)
    end
table.sort(scores,function(a,b) return aend)
    for i,v in ipairs(scores) do
    n = n + 1
    local find = 0
        for e,r in pairs(pl) do
            if r == v and find ~= 1 then
            win[i] = e
            find = 1
            end
        end
    end
return win
end
 
function checkTarget(tab)
local target = table.ps(tab)[1]
    if target == getLocalPlayer() or target == nil then
    target = table.ps(tab)[2]
    end
    if target then
    drawInfoWindow(target)
    end
end
 
function getValue(ped,value,num)
local ret = getElementData(ped,value[2])
local space = " "
if ret then
    if value[4] then
        for i,value in ipairs(value[4]) do
        ret = tostring(ret).."\n"..space:rep(num+1)..value[1]..": "..tostring(getValue(ped,value,num+1))
        end
    end
end
return ret
end
 
function getStandartValue(ped,value)
local ret
    if value == "Health" then
    ret = math.floor(getElementHealth(ped))
    elseif value == "Armor" then
    ret = math.floor(getPedArmor(ped))
    elseif value == "Weapon" then
    local pedWeap = getPedWeapon(ped)
    ret = getWeaponNameFromID(pedWeap).." (ID: "..pedWeap..")"
    ret = ret.."\n Ammo: "..getPedTotalAmmo(ped)
    elseif value == "Vehicle" then
    local pedVeh = getPedOccupiedVehicle(ped)
    ret = "-"
        if pedVeh then
        local vModel = getElementModel(pedVeh)
        ret = getVehicleNameFromModel(vModel).." (ID: "..vModel..")\n Vehicle Health: "..math.ceil(getElementHealth(pedVeh))
            if getVehicleOccupant(pedVeh) == ped then
            ret = ret.."\n Seat: Driver"
            else
            ret = ret.."\n Seat: Passenger"
            end
        end
    elseif value == "Team" then
    local team = getPlayerTeam(ped)
    ret = team
        if team then
        ret = getTeamName(team)
        end
    end
 return ret
end
 
function drawInfoWindow(ped)
local pedType = getType(ped)
local color2 = tocolor(205,205,205,255)
local color3 = tocolor(50,50,50,255)
local txt = ""
local txtname = ""
local alltxt = ""
    if pedType == "player" then
    txtname = getPlayerName(ped)
    else
    txtname = string.upper(pedType)
    end
 
    if getElementHealth(ped) > 0 then
    txt = math.floor(getElementHealth(ped)) .. " HP"
    else
    txt = "DEAD"
    end
if getType(ped) == "player" then
local plteam = getPlayerTeam(ped)
    if (plteam) then
    local tr,tg,tb = getTeamColor(plteam)
    color2 = tocolor(255-tr,255-tg,255-tb,255)
    color3 = tocolor(tr,tg,tb,255)
    else
    color2 = tocolor(0,0,0,255)
    color3 = tocolor(255,255,255,255)
    end
end
local x8,y8,z8 = getPedBonePosition(ped,8)
local px8,py8 = getScreenFromWorldPosition(x8,y8,z8+0.3)
    if not px8 then
    x8,y8,z8 = getElementPosition(ped)
    px8,py8 = getScreenFromWorldPosition(x8,y8,z8)
    end
    for ind,value in ipairs(infoTable) do
    local vtxt = value[1]
        if not value[3] or value[3] == pedType then
            if value[2] == true then
            vtxt = vtxt..": "..tostring(getStandartValue(ped,vtxt))
            else
            vtxt = vtxt..": "..tostring(getValue(ped,value,0))
            end
            alltxt = alltxt..vtxt.."\n"
        end
    end
alltxt = alltxt:sub(1,alltxt:len()-1)
dxDrawText(txt,px8+1,py8-1,px8+1,py8-1,color2,1,"default-bold","center","center")
dxDrawText(txt,px8-1,py8+1,px8-1,py8+1,color2,1,"default-bold","center","center")
dxDrawText(txt,px8+1,py8+1,px8+1,py8+1,color2,1,"default-bold","center","center")
dxDrawText(txt,px8-1,py8-1,px8-1,py8-1,color2,1,"default-bold","center","center")
dxDrawText(txt,px8,py8,px8,py8,color3,1,"default-bold","center","center")
local _,amountOfN = string.gsub(alltxt,"\n","")
local windHeight = 35+15*(amountOfN+1)
 
dxDrawRectangle(sw-(osh*250+16),osh*650,osh*250,osh*windHeight,colors.window)
dxDrawRectangle(sw-(osh*250+16),osh*650,osh*250,osh*25,colors.windowHead)
dxDrawText(txtname,sw-(osh*250+16),osh*650,sw-6,osh*675,colors.windowHeadText,1,"default-bold","center","center")
dxDrawText(alltxt,sw-(osh*250+6),osh*680,sw-26,osh*850,colors.windowText,1 ,"default-bold","left","top",false,true)
end
 
function drawPedBones (ped)
local aList = {}
    if ped ~= getLocalPlayer() then
        local x,y,z = getCameraMatrix()
        local px,py,pz = getElementPosition(ped)
        local fDistance = getDistanceBetweenPoints3D(x,y,z,px,py,pz)
        if fDistance < 40 then
            aList = lvl1bones
        elseif fDistance < 90 and fDistance >= 40 then
            aList = lvl2bones
        elseif fDistance < maxdist and fDistance >= 90 then
            aList = lvl3bones
        end
        local playerTeam = nil
            if getType(ped) == "player" then
                playerTeam = getPlayerTeam( ped )
            end
        local red,green,blue = 200,200,200
            if playerTeam then
                red,green,blue = getTeamColor ( playerTeam )
            end
        local pedColor = tocolor(red,green,blue,255)
        for iFrom,iTo in pairs(aList) do
            local x1,y1,z1 = getPedBonePosition(ped,iFrom)
            local x2,y2,z2 = getPedBonePosition(ped,iTo)
                if not (x1 or x2) then
                    return
                end
            local screenX1, screenY1 = getScreenFromWorldPosition ( x1,y1,z1 )
            local screenX2, screenY2 = getScreenFromWorldPosition ( x2,y2,z2 )
            if screenX1 and screenX2 then
           
Link to comment
      
    local sw,sh = guiGetScreenSize()
    local osw = sw/1280
    local osh = sh/1024
    local maxdist = 200
    local vis = 0
    local currentUse = false
    local infoTable = {{"Health",true,nil},{"Armor",true,nil},{"Weapon",true,nil},{"Vehicle",true,nil},{"Team",true,"player"}}
    local colors = {window=tocolor(0,0,200,130),windowHead=tocolor(0,0,0,180),windowHeadText=tocolor(255,0,0,255),windowText=tocolor(255,0,0,255)}
     
    --BONES--
    local lvl1bones = {[54] = 53,[53] = 52,[52] = 51,[51] = 1,[44] = 43,[43] = 42,[42] = 41,[41] = 1,[1] = 2,[2] = 3,[3] = 4,[26] = 25,[25] = 24,[24] = 23,[23] = 22,[21] = 22,
    [36] = 35,[35] = 34,[34] = 33,[33] = 32,[31] = 32,[4] = 6,[6] = 7,[7] = 4,[32] = 41,[22] = 51}
    local lvl2bones = {[5] = 32, [22] = 5, [24] = 23, [23] = 22, [32] = 33, [33] = 34, [1] = 5, [51] = 1, [41] = 1, [52] = 51, [42] = 41, [6] = 5, [53] = 52, [43] = 42}
    local lvl3bones = {[24] = 23, [23] = 5, [34] = 33, [33] = 5, [1] = 5, [52] = 1, [42] = 1, [53] = 52, [43] = 42}
    --BONES--
     
    function getType(element)
        if isElement(element) then
         return getElementType(element)
        else
         return type(element)
        end
    end
     
    function isNormalValue(value)
        if getType(value) ~= "table" then
        return false, "Argument must be 'table'"
        elseif getType(value[1]) ~= "string" or getType(value[2]) ~= "string" then
        return false, "Value should be like '{string showingName, string elementData, player/ped/nil workingElement, [{childValue1,childValue2,..}]}"
        end
        if value[4] then
            if getType(value[4]) ~= "table" then
            return false, "Child values must be 'table'"
            else
                for i,value in ipairs(value[4]) do
                local isNormal, debugMessage = isNormalValue(value)
                    if not isNormal then
                    return isNormal, debugMessage
                    end
                end
            end
        end
    return true
    end
     
    function addWindowInfo(value)
    local isNormal, debugMessage = isNormalValue(value)
        if not isNormal then
        return isNormal, debugMessage
        end
    infoTable[#infoTable+1] = value
    return true
    end
     
    function removeWindowInfo(v1,v2,v3)
    if v1 then
        for i,value in ipairs(infoTable) do
            if value[1] == v1 then
                if v2 then
                    if value[2] == v2 then
                        if v3 then
                            if value[3] == v3 then
                            table.remove(infoTable,i)
                            return true
                            end
                        else
                        table.remove(infoTable,i)
                        return true
                        end
                    end
                else
                table.remove(infoTable,i)
                return true
                end
            end
        end
    end
    return false
    end
     
    function table.ps(pl)
    local scores = {}
    local n = 0
    local win = {}
        for k,v in pairs(pl) do
        table.insert(scores,v)
        end
    table.sort(scores,function(a,b) return aend)
        for i,v in ipairs(scores) do
        n = n + 1
        local find = 0
            for e,r in pairs(pl) do
                if r == v and find ~= 1 then
                win[i] = e
                find = 1
                end
            end
        end
    return win
    end
     
    function checkTarget(tab)
    local target = table.ps(tab)[1]
        if target == getLocalPlayer() or target == nil then
        target = table.ps(tab)[2]
        end
        if target then
        drawInfoWindow(target)
        end
    end
     
    function getValue(ped,value,num)
    local ret = getElementData(ped,value[2])
    local space = " "
    if ret then
        if value[4] then
            for i,value in ipairs(value[4]) do
            ret = tostring(ret).."\n"..space:rep(num+1)..value[1]..": "..tostring(getValue(ped,value,num+1))
            end
        end
    end
    return ret
    end
     
    function getStandartValue(ped,value)
    local ret
        if value == "Health" then
        ret = math.floor(getElementHealth(ped))
        elseif value == "Armor" then
        ret = math.floor(getPedArmor(ped))
        elseif value == "Weapon" then
        local pedWeap = getPedWeapon(ped)
        ret = getWeaponNameFromID(pedWeap).." (ID: "..pedWeap..")"
        ret = ret.."\n Ammo: "..getPedTotalAmmo(ped)
        elseif value == "Vehicle" then
        local pedVeh = getPedOccupiedVehicle(ped)
        ret = "-"
            if pedVeh then
            local vModel = getElementModel(pedVeh)
            ret = getVehicleNameFromModel(vModel).." (ID: "..vModel..")\n Vehicle Health: "..math.ceil(getElementHealth(pedVeh))
                if getVehicleOccupant(pedVeh) == ped then
                ret = ret.."\n Seat: Driver"
                else
                ret = ret.."\n Seat: Passenger"
                end
            end
        elseif value == "Team" then
        local team = getPlayerTeam(ped)
        ret = team
            if team then
            ret = getTeamName(team)
            end
        end
     return ret
    end
     
    function drawInfoWindow(ped)
    local pedType = getType(ped)
    local color2 = tocolor(205,205,205,255)
    local color3 = tocolor(50,50,50,255)
    local txt = ""
    local txtname = ""
    local alltxt = ""
        if pedType == "player" then
        txtname = getPlayerName(ped)
        else
        txtname = string.upper(pedType)
        end
     
        if getElementHealth(ped) > 0 then
        txt = math.floor(getElementHealth(ped)) .. " HP"
        else
        txt = "DEAD"
        end
    if getType(ped) == "player" then
    local plteam = getPlayerTeam(ped)
        if (plteam) then
        local tr,tg,tb = getTeamColor(plteam)
        color2 = tocolor(255-tr,255-tg,255-tb,255)
        color3 = tocolor(tr,tg,tb,255)
        else
        color2 = tocolor(0,0,0,255)
        color3 = tocolor(255,255,255,255)
        end
    end
    local x8,y8,z8 = getPedBonePosition(ped,8)
    local px8,py8 = getScreenFromWorldPosition(x8,y8,z8+0.3)
        if not px8 then
        x8,y8,z8 = getElementPosition(ped)
        px8,py8 = getScreenFromWorldPosition(x8,y8,z8)
        end
        for ind,value in ipairs(infoTable) do
        local vtxt = value[1]
            if not value[3] or value[3] == pedType then
                if value[2] == true then
                vtxt = vtxt..": "..tostring(getStandartValue(ped,vtxt))
                else
                vtxt = vtxt..": "..tostring(getValue(ped,value,0))
                end
                alltxt = alltxt..vtxt.."\n"
            end
        end
    alltxt = alltxt:sub(1,alltxt:len()-1)
    dxDrawText(txt,px8+1,py8-1,px8+1,py8-1,color2,1,"default-bold","center","center")
    dxDrawText(txt,px8-1,py8+1,px8-1,py8+1,color2,1,"default-bold","center","center")
    dxDrawText(txt,px8+1,py8+1,px8+1,py8+1,color2,1,"default-bold","center","center")
    dxDrawText(txt,px8-1,py8-1,px8-1,py8-1,color2,1,"default-bold","center","center")
    dxDrawText(txt,px8,py8,px8,py8,color3,1,"default-bold","center","center")
    local _,amountOfN = string.gsub(alltxt,"\n","")
    local windHeight = 35+15*(amountOfN+1)
     
    dxDrawRectangle(sw-(osh*250+16),osh*650,osh*250,osh*windHeight,colors.window)
    dxDrawRectangle(sw-(osh*250+16),osh*650,osh*250,osh*25,colors.windowHead)
    dxDrawText(txtname,sw-(osh*250+16),osh*650,sw-6,osh*675,colors.windowHeadText,1,"default-bold","center","center")
    dxDrawText(alltxt,sw-(osh*250+6),osh*680,sw-26,osh*850,colors.windowText,1 ,"default-bold","left","top",false,true)
    end
     
    function drawPedBones (ped)
    local aList = {}
        if ped ~= getLocalPlayer() then
            local x,y,z = getCameraMatrix()
            local px,py,pz = getElementPosition(ped)
            local fDistance = getDistanceBetweenPoints3D(x,y,z,px,py,pz)
            if fDistance < 40 then
                aList = lvl1bones
            elseif fDistance < 90 and fDistance >= 40 then
                aList = lvl2bones
            elseif fDistance < maxdist and fDistance >= 90 then
                aList = lvl3bones
            end
            local playerTeam = nil
                if getType(ped) == "player" then
                    playerTeam = getPlayerTeam( ped )
                end
            local red,green,blue = 200,200,200
                if playerTeam then
                    red,green,blue = getTeamColor ( playerTeam )
                end
            local pedColor = tocolor(red,green,blue,255)
            for iFrom,iTo in pairs(aList) do
                local x1,y1,z1 = getPedBonePosition(ped,iFrom)
                local x2,y2,z2 = getPedBonePosition(ped,iTo)
                    if not (x1 or x2) then
                        return
                    end
                local screenX1, screenY1 = getScreenFromWorldPosition ( x1,y1,z1 )
                local screenX2, screenY2 = getScreenFromWorldPosition ( x2,y2,z2 )
                if screenX1 and screenX2 then
               
Link to comment
      
    local sw,sh = guiGetScreenSize()
    local osw = sw/1280
    local osh = sh/1024
    local maxdist = 200
    local vis = 0
    local currentUse = false
    local infoTable = {{"Health",true,nil},{"Armor",true,nil},{"Weapon",true,nil},{"Vehicle",true,nil},{"Team",true,"player"}}
    local colors = {window=tocolor(0,0,200,130),windowHead=tocolor(0,0,0,180),windowHeadText=tocolor(255,0,0,255),windowText=tocolor(255,0,0,255)}
     
    --BONES--
    local lvl1bones = {[54] = 53,[53] = 52,[52] = 51,[51] = 1,[44] = 43,[43] = 42,[42] = 41,[41] = 1,[1] = 2,[2] = 3,[3] = 4,[26] = 25,[25] = 24,[24] = 23,[23] = 22,[21] = 22,
    [36] = 35,[35] = 34,[34] = 33,[33] = 32,[31] = 32,[4] = 6,[6] = 7,[7] = 4,[32] = 41,[22] = 51}
    local lvl2bones = {[5] = 32, [22] = 5, [24] = 23, [23] = 22, [32] = 33, [33] = 34, [1] = 5, [51] = 1, [41] = 1, [52] = 51, [42] = 41, [6] = 5, [53] = 52, [43] = 42}
    local lvl3bones = {[24] = 23, [23] = 5, [34] = 33, [33] = 5, [1] = 5, [52] = 1, [42] = 1, [53] = 52, [43] = 42}
    --BONES--
     
    function getType(element)
        if isElement(element) then
         return getElementType(element)
        else
         return type(element)
        end
    end
     
    function isNormalValue(value)
        if getType(value) ~= "table" then
        return false, "Argument must be 'table'"
        elseif getType(value[1]) ~= "string" or getType(value[2]) ~= "string" then
        return false, "Value should be like '{string showingName, string elementData, player/ped/nil workingElement, [{childValue1,childValue2,..}]}"
        end
        if value[4] then
            if getType(value[4]) ~= "table" then
            return false, "Child values must be 'table'"
            else
                for i,value in ipairs(value[4]) do
                local isNormal, debugMessage = isNormalValue(value)
                    if not isNormal then
                    return isNormal, debugMessage
                    end
                end
            end
        end
    return true
    end
     
    function addWindowInfo(value)
    local isNormal, debugMessage = isNormalValue(value)
        if not isNormal then
        return isNormal, debugMessage
        end
    infoTable[#infoTable+1] = value
    return true
    end
     
    function removeWindowInfo(v1,v2,v3)
    if v1 then
        for i,value in ipairs(infoTable) do
            if value[1] == v1 then
                if v2 then
                    if value[2] == v2 then
                        if v3 then
                            if value[3] == v3 then
                            table.remove(infoTable,i)
                            return true
                            end
                        else
                        table.remove(infoTable,i)
                        return true
                        end
                    end
                else
                table.remove(infoTable,i)
                return true
                end
            end
        end
    end
    return false
    end
     
    function table.ps(pl)
    local scores = {}
    local n = 0
    local win = {}
        for k,v in pairs(pl) do
        table.insert(scores,v)
        end
    table.sort(scores,function(a,b) return aend)
        for i,v in ipairs(scores) do
        n = n + 1
        local find = 0
            for e,r in pairs(pl) do
                if r == v and find ~= 1 then
                win[i] = e
                find = 1
                end
            end
        end
    return win
    end
     
    function checkTarget(tab)
    local target = table.ps(tab)[1]
        if target == getLocalPlayer() or target == nil then
        target = table.ps(tab)[2]
        end
        if target then
        drawInfoWindow(target)
        end
    end
     
    function getValue(ped,value,num)
    local ret = getElementData(ped,value[2])
    local space = " "
    if ret then
        if value[4] then
            for i,value in ipairs(value[4]) do
            ret = tostring(ret).."\n"..space:rep(num+1)..value[1]..": "..tostring(getValue(ped,value,num+1))
            end
        end
    end
    return ret
    end
     
    function getStandartValue(ped,value)
    local ret
        if value == "Health" then
        ret = math.floor(getElementHealth(ped))
        elseif value == "Armor" then
        ret = math.floor(getPedArmor(ped))
        elseif value == "Weapon" then
        local pedWeap = getPedWeapon(ped)
        ret = getWeaponNameFromID(pedWeap).." (ID: "..pedWeap..")"
        ret = ret.."\n Ammo: "..getPedTotalAmmo(ped)
        elseif value == "Vehicle" then
        local pedVeh = getPedOccupiedVehicle(ped)
        ret = "-"
            if pedVeh then
            local vModel = getElementModel(pedVeh)
            ret = getVehicleNameFromModel(vModel).." (ID: "..vModel..")\n Vehicle Health: "..math.ceil(getElementHealth(pedVeh))
                if getVehicleOccupant(pedVeh) == ped then
                ret = ret.."\n Seat: Driver"
                else
                ret = ret.."\n Seat: Passenger"
                end
            end
        elseif value == "Team" then
        local team = getPlayerTeam(ped)
        ret = team
            if team then
            ret = getTeamName(team)
            end
        end
     return ret
    end
     
    function drawInfoWindow(ped)
    local pedType = getType(ped)
    local color2 = tocolor(205,205,205,255)
    local color3 = tocolor(50,50,50,255)
    local txt = ""
    local txtname = ""
    local alltxt = ""
        if pedType == "player" then
        txtname = getPlayerName(ped)
        else
        txtname = string.upper(pedType)
        end
     
        if getElementHealth(ped) > 0 then
        txt = math.floor(getElementHealth(ped)) .. " HP"
        else
        txt = "DEAD"
        end
    if getType(ped) == "player" then
    local plteam = getPlayerTeam(ped)
        if (plteam) then
        local tr,tg,tb = getTeamColor(plteam)
        color2 = tocolor(255-tr,255-tg,255-tb,255)
        color3 = tocolor(tr,tg,tb,255)
        else
        color2 = tocolor(0,0,0,255)
        color3 = tocolor(255,255,255,255)
        end
    end
    local x8,y8,z8 = getPedBonePosition(ped,8)
    local px8,py8 = getScreenFromWorldPosition(x8,y8,z8+0.3)
        if not px8 then
        x8,y8,z8 = getElementPosition(ped)
        px8,py8 = getScreenFromWorldPosition(x8,y8,z8)
        end
        for ind,value in ipairs(infoTable) do
        local vtxt = value[1]
            if not value[3] or value[3] == pedType then
                if value[2] == true then
                vtxt = vtxt..": "..tostring(getStandartValue(ped,vtxt))
                else
                vtxt = vtxt..": "..tostring(getValue(ped,value,0))
                end
                alltxt = alltxt..vtxt.."\n"
            end
        end
    alltxt = alltxt:sub(1,alltxt:len()-1)
    dxDrawText(txt,px8+1,py8-1,px8+1,py8-1,color2,1,"default-bold","center","center")
    dxDrawText(txt,px8-1,py8+1,px8-1,py8+1,color2,1,"default-bold","center","center")
    dxDrawText(txt,px8+1,py8+1,px8+1,py8+1,color2,1,"default-bold","center","center")
    dxDrawText(txt,px8-1,py8-1,px8-1,py8-1,color2,1,"default-bold","center","center")
    dxDrawText(txt,px8,py8,px8,py8,color3,1,"default-bold","center","center")
    local _,amountOfN = string.gsub(alltxt,"\n","")
    local windHeight = 35+15*(amountOfN+1)
     
    dxDrawRectangle(sw-(osh*250+16),osh*650,osh*250,osh*windHeight,colors.window)
    dxDrawRectangle(sw-(osh*250+16),osh*650,osh*250,osh*25,colors.windowHead)
    dxDrawText(txtname,sw-(osh*250+16),osh*650,sw-6,osh*675,colors.windowHeadText,1,"default-bold","center","center")
    dxDrawText(alltxt,sw-(osh*250+6),osh*680,sw-26,osh*850,colors.windowText,1 ,"default-bold","left","top",false,true)
    end
     
    function drawPedBones (ped)
    local aList = {}
        if ped ~= getLocalPlayer() then
            local x,y,z = getCameraMatrix()
            local px,py,pz = getElementPosition(ped)
            local fDistance = getDistanceBetweenPoints3D(x,y,z,px,py,pz)
            if fDistance < 40 then
                aList = lvl1bones
            elseif fDistance < 90 and fDistance >= 40 then
                aList = lvl2bones
            elseif fDistance < maxdist and fDistance >= 90 then
                aList = lvl3bones
            end
            local playerTeam = nil
                if getType(ped) == "player" then
                    playerTeam = getPlayerTeam( ped )
                end
            local red,green,blue = 200,200,200
                if playerTeam then
                    red,green,blue = getTeamColor ( playerTeam )
                end
            local pedColor = tocolor(red,green,blue,255)
            for iFrom,iTo in pairs(aList) do
                local x1,y1,z1 = getPedBonePosition(ped,iFrom)
                local x2,y2,z2 = getPedBonePosition(ped,iTo)
                    if not (x1 or x2) then
                        return
                    end
                local screenX1, screenY1 = getScreenFromWorldPosition ( x1,y1,z1 )
               
Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...