Set Weapon Property

R41N · February 5, 2017

[10:43:18] WARNING: [RZDayZ]/DayZ/survivorSystem.lua:2392: Bad argument @ 'setWeaponProperty' [Expected weapon-type at argument 1, got string 'M249 SAW']
[10:43:18] WARNING: [RZDayZ]/DayZ/survivorSystem.lua:2393: Bad argument @ 'setWeaponProperty' [Expected weapon-type at argument 1, got string 'M249 SAW']
[10:43:18] WARNING: [RZDayZ]/DayZ/survivorSystem.lua:2394: Bad argument @ 'setWeaponProperty' [Expected weapon-type at argument 1, got string 'M249 SAW']
[10:43:18] WARNING: [RZDayZ]/DayZ/survivorSystem.lua:2395: Bad argument @ 'setWeaponProperty' [Expected weapon-type at argument 1, got string 'M240']
[10:43:18] WARNING: [RZDayZ]/DayZ/survivorSystem.lua:2396: Bad argument @ 'setWeaponProperty' [Expected weapon-type at argument 1, got string 'M240']
[10:43:18] WARNING: [RZDayZ]/DayZ/survivorSystem.lua:2397: Bad argument @ 'setWeaponProperty' [Expected weapon-type at argument 1, got string 'M240']
[10:43:18] WARNING: [RZDayZ]/DayZ/survivorSystem.lua:2398: Bad argument @ 'setWeaponProperty' [Expected weapon-type at argument 1, got string 'MK48']
[10:43:18] WARNING: [RZDayZ]/DayZ/survivorSystem.lua:2399: Bad argument @ 'setWeaponProperty' [Expected weapon-type at argument 1, got string 'MK48']
[10:43:18] WARNING: [RZDayZ]/DayZ/survivorSystem.lua:2400: Bad argument @ 'setWeaponProperty' [Expected weapon-type at argument 1, got string 'MK48']

Can you help me?

..:D&G:.. · February 5, 2017

If you don't show the code, how are we supposed to know what you've done??

Mr.Loki · February 5, 2017

Those are not real weapons.

What you are trying to do is impossible because an M240 is just an M4 with a mod.

setWeaponProperty is a server sided script meaning it will change for every weapon type.

For example if someone has M4 and another person has M240 they will both have 100 rounds in their clip.

R41N · February 5, 2017

--[[
#---------------------------------------------------------------#
----   DayZ MTA Script survivorSystem.lua   ----
----* This Script is owned by TioSaam, you are not allowed to use or own it.
----* Owner: TioSaam
----* Skype: colombiano.colombiano3
----*              *----
#---------------------------------------------------------------#
]]

local vehicleDataTableForTent = {
{"vaga"},
{"Toxic"},
{"M1911"},
{"ACR"},
{"M9 SD"},
{"Benelli M3"},
{"PDW"},
{"Hunting knife"},
{"Axe"},
{"Grenade"},
{"Desert Deagle"},
{"Sawn-Off Shotgun"},
{"SPAZ-12"},
{"G36K"},
{"Lee Enfield"},
{"PDW"},
{"FN SCAR"},
{"Crossbow"},
{"M136 Rocket"},
{"M4A1 Holo"},
{"ACR"},
--{"M4"},
{"AK-107"},
{"MK48"},
{"G36C SD"},
{"AKS"},
{"AS50"},
{"SVD Camo"},
{"CZ 550"},
{"DMR"},
{"KVSK"},
{"M24"},
{"M249 SAW"},
{"M107"},
{"M4A03"},
{"M14"},
{"JNG-90"},
{"SA-58 ACOG"},
{"M240"},
--{"AKM GP"},
{"Baseball bat"},
{"Shovel"},
{"Golf club"},
{"Watch"},
{"Radio"},
{"Parachute"},
{"Radio"},
{"Satchel"},
{"Infared goggles"},
{"Night vision goggles"},
{"Toolbox"},
{"Tear Gas"},
{"Binoculars"},
{"GPS"},
{"Map"},
{"M1911 Mag"},
{"M9 SD Mag"},
{"Desert Deagle Mag"},
{"ACR Mag"},
{"PDW Mag"},
{"G36K Mag"},
{"FN SCAR Mag"},
--{"M4 Mag"},
{"AK-107 Mag"},
{"AKS Mag"},
{"MK48 Mag"},
{"G36C SD Mag"},
{"AS50 Mag"},
{"SVD Camo Mag"},
{"M4A1 Holo Mag"},
{"ACR Mag"},
{"CZ 550 Mag"},
{"DMR Mag"},
{"KVSK Mag"},
{"M24 Mag"},
{"M249 SAW Mag"},
{"M107 Mag"},
{"M4A03 Mag"},
{"M14 Mag"},
{"JNG-90 Mag"},
{"SA-58 ACOG Mag"},
{"M240 Mag"},
--{"AKM GP Mag"},
{"Lee Enfield Mag"},
{"Benelli M3 Mag"},
{"2Rnd. Slug"},
{"SPAZ-12 Mag"},
{"Wood Pile"},
{"Box of Matches"},
{"Roadflare"},
{"Empty Soda Bottle"},
{"scrap"},
{"Painkiller"},
{"Medic Kit"},
{"Heat Pack"},
{"Blood Bag"},
{"Bandage"},
{"Morphine"},
{"Pizza"},
{"Soda Bottle"},
{"Canteen"},
{"Pasta Can"},
{"Beans Can"},
{"Burger"},
{"Cooked Meat"},
{"Raw meat"},
{"Milk"},
{"Empty Canteen"},
{"Wire Fence"},
{"Tent"},
{"Anti-tank hedgehog"},
{"Sandbags"},
{"Mine"},
{"Empty Gas Canister"},
{"Full Gas Canister"},
{"Tire"},
{"Engine"},
{"Tank Parts"},
{"Survivor Clothing"},
{"Ghillie Suit"},
{"Army Clothing"},
{"Ghilli Suit Woman"},
{"BAT Clothing"},
{"Army[F] Clothing"},
{"Bag"},
{"Drybag Backpack (Black)"},
{"Drybag Backpack (Blue)"},
{"Drybag Backpack (Green)"},
{"Drybag Backpack (Red)"},
{"Drybag Backpack (White)"},
{"Drybag Backpack (Yellow)"},
{"Coyote Backpack"},
{"Coyote Camo Backpack"},
{"Coyote Desert Backpack"},
{"Mountain Backpack (Green)"},
{"Mountain Backpack (Blue)"},
{"Mountain Backpack (Red)"},
{"Alone Backpack"},
}
weaponAmmoTable = {

["M1911 Mag"] = {
{"M1911",22},
},

["M9 SD Mag"] = {
{"M9 SD",23},
},

["Desert Deagle Mag"] = {
{"Desert Deagle",24},
},

["PDW Mag"] = {
{"PDW",28},
},

["AKS Mag"] = {
{"AKS",30},
},

["G36K Mag"] = {
{"G36K",30},
},

["FN SCAR Mag"] = {
{"FN SCAR",30},
},

["Arrow"] = {
{"Crossbow",33},
},

["MK48 Mag"] = {
{"MK48",31},
},

["M4 Mag"] = {
{"M4",31},
},

["AK-107 Mag"] = {
{"AK-107",30},
},

["Benelli M3 Mag"] = {
{"Benelli M3",25},
},

["2Rnd. Slug"] = {
{"Sawn-Off Shotgun",26},
},

["SPAZ-12 Mag"] = {
{"SPAZ-12",27},
},

["AS50 Mag"] = {
{"AS50",34},
},

["ACR Mag"] = {
{"ACR",30},
},

["G36C SD Mag"] = {
{"G36C SD",30},
},

["M4A1 Holo Mag"] = {
{"M4A1 Holo",30},
},

["SA-58V ACOG Mag"] = {
{"SA-58V ACOG",30},
}, 

["SVD Camo Mag"] = {
{"SVD Camo",34},
},

["CZ 550 Mag"] = {
{"CZ 550",34},
},

["DMR Mag"] = {
{"DMR",34},
},

["KVSK Mag"] = {
{"KVSK",34},
},

["M24 Mag"] = {
{"M24",34},
},

["M249 SAW Mag"] = {
{"M249 SAW",31},
},

["M107 Mag"] = {
{"M107",34},
},

["M4A03 Mag"] = {
{"M4A03",34},
},

["M14 Mag"] = {
{"M14",33},
},

["JNG-90 Mag"] = {
{"JNG-90",33},
},

["M240 Mag"] = {
{"M240",31},
},

["Lee Enfield Mag"] = {
{"Lee Enfield",33},
},

["G17 Mag"] = {
{"G17",23},
},

["MP5A5 Mag"] = {
{"MP5A5",29},
},

["others"] = {
{"Parachute",46},
{"Satchel",39},
{"Tear Gas",17},
{"Grenade",16},
{"Hunting knife",4},
{"Axe",8},
{"Binoculars",43},
{"Baseball bat",5},
{"Shovel",6},
{"Golf club",2},
{"Radio",1},
},
}


function getWeaponAmmoType (weaponName,notOthers)
    if not notOthers then
        for i,weaponData in ipairs(weaponAmmoTable["others"]) do
            if weaponName == weaponData[1] then
                return weaponData[1],weaponData[2]
            end
        end
    end 
        for i,weaponData in ipairs(weaponAmmoTable["M1911 Mag"]) do
        if weaponName == weaponData[1] then
            return "M1911 Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["M9 SD Mag"]) do
        if weaponName == weaponData[1] then
            return "M9 SD Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["Desert Deagle Mag"]) do
        if weaponName == weaponData[1] then
            return "Desert Deagle Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["PDW Mag"]) do
        if weaponName == weaponData[1] then
            return "PDW Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["G36K Mag"]) do
        if weaponName == weaponData[1] then
            return "G36K Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["FN SCAR Mag"]) do
        if weaponName == weaponData[1] then
            return "FN SCAR Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["Arrow"]) do
        if weaponName == weaponData[1] then
            return "Arrow",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["M4 Mag"]) do
        if weaponName == weaponData[1] then
            return "M4 Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["MK48 Mag"]) do
        if weaponName == weaponData[1] then
            return "MK48 Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["AKS Mag"]) do
        if weaponName == weaponData[1] then
            return "AKS Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["AK-107 Mag"]) do
        if weaponName == weaponData[1] then
            return "AK-107 Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["Benelli M3 Mag"]) do
        if weaponName == weaponData[1] then
            return "Benelli M3 Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["2Rnd. Slug"]) do
        if weaponName == weaponData[1] then
            return "2Rnd. Slug",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["SPAZ-12 Mag"]) do
        if weaponName == weaponData[1] then
            return "SPAZ-12 Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["AS50 Mag"]) do
        if weaponName == weaponData[1] then
            return "AS50 Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["ACR Mag"]) do
        if weaponName == weaponData[1] then
            return "ACR Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["G36C SD Mag"]) do
        if weaponName == weaponData[1] then
            return "G36C SD Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["G17 Mag"]) do
        if weaponName == weaponData[1] then
            return "G17 Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["MP5A5 Mag"]) do
        if weaponName == weaponData[1] then
            return "MP5A5 Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["M4A1 Holo Mag"]) do
        if weaponName == weaponData[1] then
            return "M4A1 Holo Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["SA-58V ACOG Mag"]) do
        if weaponName == weaponData[1] then
            return "SA-58V ACOG Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["SVD Camo Mag"]) do
        if weaponName == weaponData[1] then
            return "SVD Camo Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["CZ 550 Mag"]) do
        if weaponName == weaponData[1] then
            return "CZ 550 Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["DMR Mag"]) do
        if weaponName == weaponData[1] then
            return "DMR Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["KVSK Mag"]) do
        if weaponName == weaponData[1] then
            return "KVSK Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["M24 Mag"]) do
        if weaponName == weaponData[1] then
            return "M24 Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["M249 SAW Mag"]) do
        if weaponName == weaponData[1] then
            return "M249 SAW Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["M107 Mag"]) do
        if weaponName == weaponData[1] then
            return "M107 Mag",weaponData[2]
        end
    end
        for i,weaponData in ipairs(weaponAmmoTable["M4A03 Mag"]) do
        if weaponName == weaponData[1] then
            return "M4A03 Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["M14 Mag"]) do
        if weaponName == weaponData[1] then
            return "M14 Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["JNG-90 Mag"]) do
        if weaponName == weaponData[1] then
            return "JNG-90 Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["M240 Mag"]) do
        if weaponName == weaponData[1] then
            return "M240 Mag",weaponData[2]
        end
    end
    for i,weaponData in ipairs(weaponAmmoTable["Lee Enfield Mag"]) do
        if weaponName == weaponData[1] then
            return "Lee Enfield Mag",weaponData[2]
        end
    end
    return false
end

function rearmPlayerWeapon (weaponName,slot)
    takeAllWeapons (source)
    local ammoData,weapID = getWeaponAmmoType (weaponName)
    if getElementData(source,ammoData) <= 0 then triggerClientEvent (source, "displayClientInfo", source,"Rearm",shownInfos["nomag"],89, 161, 58, 255) return end
    setElementData(source,"currentweapon_"..slot,weaponName)
    local weapon = getElementData(source,"currentweapon_1") 
    if weapon then 
        local ammoData,weapID = getWeaponAmmoType (weapon) 
        giveWeapon(source,weapID,getElementData(source,ammoData), false ) 
    end
    local weapon = getElementData(source,"currentweapon_2")
    if weapon then
        local ammoData,weapID = getWeaponAmmoType (weapon)
        giveWeapon(source,weapID,getElementData(source,ammoData), false )
    end
    local weapon = getElementData(source,"currentweapon_3")
    if weapon then
        local ammoData,weapID = getWeaponAmmoType (weapon)
        giveWeapon(source,weapID,getElementData(source,ammoData), false )
    end
    if elementWeaponBack[source] then
        detachElementFromBone(elementWeaponBack[source])
        destroyElement(elementWeaponBack[source])
        elementWeaponBack[source] = false
    end 
    if elementWeaponBackM[source] then
        detachElementFromBone(elementWeaponBackM[source])
        destroyElement(elementWeaponBackM[source])  
        elementWeaponBackM[source] = false
    end
    setElementModel(source, getElementData(source,"skin"))
end
addEvent("onPlayerRearmWeapon",true)
addEventHandler("onPlayerRearmWeapon",getRootElement(),rearmPlayerWeapon)

weaponIDtoObjectID = {
{30,355},
{31,356},
{25,349},
{26,350},
{27,351},
{33,357},
{34,358},
{36,360},
{35,359},
{2,333},
{5,336},
{6,337},
}

function getWeaponObjectID (weaponID)
    for i,weaponData in ipairs(weaponIDtoObjectID) do
        if weaponID == weaponData[1] then
            return weaponData[2]
        end
    end
end 

elementBackpack = {}
function backPackBack (dataName,oldValue)
    if getElementType(source) == "player" and dataName =="vaga" then
        local newValue = getElementData(source,dataName)
        if elementBackpack[source] then
            detachElementFromBone(elementBackpack[source])
            destroyElement(elementBackpack[source])
            elementBackpack[source] = false
        end
        local x,y,z = getElementPosition(source)
        local rx,ry,rz = getElementRotation(source)
        if newValue == 1 then
            elementBackpack[source] = createObject(1248,x,y,z)
        elseif newValue == 2 then
            elementBackpack[source] = createObject(1575,x,y,z)
        elseif newValue == 3 then
            elementBackpack[source] = createObject(1830,x,y,z)
        elseif newValue == 4 then
            elementBackpack[source] = createObject(1831,x,y,z)
        elseif newValue == 5 then
            elementBackpack[source] = createObject(1832,x,y,z)
        elseif newValue == 6 then
            elementBackpack[source] = createObject(1252,x,y,z)  
        elseif newValue == 7 then
            elementBackpack[source] = createObject(2410,x,y,z)  
        elseif newValue == 8 then
            elementBackpack[source] = createObject(2000,x,y,z)  
        elseif newValue == 9 then
            elementBackpack[source] = createObject(2405,x,y,z)  
        elseif newValue == 10 then
            elementBackpack[source] = createObject(2406,x,y,z)      
        elseif newValue == 11 then
            elementBackpack[source] = createObject(1833,x,y,z)          
        elseif newValue == 12 then
            elementBackpack[source] = createObject(1834,x,y,z)  
        elseif newValue == 13 then
            elementBackpack[source] = createObject(1835,x,y,z)      
        elseif newValue == 14 then
            elementBackpack[source] = createObject(1836,x,y,z)      
        elseif newValue == 15 then
            elementBackpack[source] = createObject(1837,x,y,z)
        elseif newValue == 16 then
            elementBackpack[source] = createObject(1838,x,y,z)  
        elseif newValue == 17 then
            elementBackpack[source] = createObject(3918,x,y,z)  
        elseif newValue == 18 then
            elementBackpack[source] = createObject(1934,x,y,z)
        elseif newValue == 19 then
            elementBackpack[source] = createObject(1935,x,y,z)
        elseif newValue == 20 then
            elementBackpack[source] = createObject(1661,x,y,z)
        elseif newValue == 21 then
            elementBackpack[source] = createObject(1937,x,y,z)
        elseif newValue == 22 then
            elementBackpack[source] = createObject(1938,x,y,z)
        elseif newValue == 23 then
            elementBackpack[source] = createObject(1939,x,y,z)
        elseif newValue == 24 then
            elementBackpack[source] = createObject(1940,x,y,z)
        elseif newValue == 25 then
            elementBackpack[source] = createObject(1942,x,y,z) 
        elseif newValue == 26 then
            elementBackpack[source] = createObject(1751,x,y,z) 
        elseif newValue == 27 then
            elementBackpack[source] = createObject(1781,x,y,z) 
        elseif newValue == 28 then
            elementBackpack[source] = createObject(1782,x,y,z) 
        elseif newValue == 29 then
            elementBackpack[source] = createObject(1783,x,y,z) 
        elseif newValue == 30 then
            elementBackpack[source] = createObject(1785,x,y,z) 
        elseif newValue == 31 then
            elementBackpack[source] = createObject(1786,x,y,z) 
        elseif newValue == 32 then
            elementBackpack[source] = createObject(1787,x,y,z) 
        elseif newValue == 33 then
            elementBackpack[source] = createObject(1788,x,y,z) 
        elseif newValue == 34 then
            elementBackpack[source] = createObject(1790,x,y,z) 
        elseif newValue == 35 then
            elementBackpack[source] = createObject(1791,x,y,z) 
        elseif newValue == 36 then
            elementBackpack[source] = createObject(1792,x,y,z) 

        elseif newValue == 8 then
            return
        end
        if newValue == 1 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0) 
        elseif newValue == 2 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0) 
        elseif newValue == 3 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.21,0.05,90,0,0) 
        elseif newValue == 4 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)
        elseif newValue == 5 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0) 
        elseif newValue == 6 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0) 
        elseif newValue == 7 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)
        elseif newValue == 8 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0) 
        elseif newValue == 9 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0) 
        elseif newValue == 10 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0) 
        elseif newValue == 11 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)
        elseif newValue == 12 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0) 
        elseif newValue == 13 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0) 
        elseif newValue == 14 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0) 
        elseif newValue == 15 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0) 
        elseif newValue == 16 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 17 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 18 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)
        elseif newValue == 19 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)
        elseif newValue == 20 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 21 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 22 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 23 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 24 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 25 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)
        elseif newValue == 26 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 27 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 28 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 29 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 30 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.21,0.05,270,0,180)    
        elseif newValue == 31 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.21,0.05,270,0,180)    
        elseif newValue == 32 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.21,0.05,270,0,180)    
        elseif newValue == 33 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.21,0.05,270,0,180)    
        elseif newValue == 34 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 35 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)  
        elseif newValue == 36 then 
            attachElementToBone(elementBackpack[source],source,3,0,-0.225,0.05,90,0,0)              
        else 
            attachElementToBone(elementBackpack[source],source,3,0,-0.21,0.05,270,0,180) 
        end
    end 
   if getElementType(source) == "player" and dataName == "ColeteOn" then 
      if getElementData ( source, dataName ) then 
        local x, y, z = getElementPosition(source) 
        local colete = createObject(1516, x, y, z) 
        setElementData ( source, "coleteObject", colete ) 
        local skin = getElementModel ( source ) 
        if skin == 0 then
        -- Parte,Largura,Frente Traz,Altura,Z,ROTX,ROTY,ROT-- 
          attachElementToBone(colete, source, 3, 0, -0.00, -0.550, -1, 0, 90) 
        elseif skin == 287 then 
          attachElementToBone(colete, source, 3, 0, -0.01, -0.500, -1, 0, 90)
        end 
   else 
        if isElement ( getElementData ( source, "coleteObject" ) )  then 
         detachElementFromBone( getElementData ( source, "coleteObject" ) ) 
         destroyElement ( getElementData ( source, "coleteObject" ) ) 
         setElementData ( source, "coleteObject", false ) 
        end 
      end
    end    
    if getElementType(source) == "player" and dataName == "Colete3On" then 
      if getElementData ( source, dataName ) then 
        local x, y, z = getElementPosition(source) 
        local Colete3 = createObject(1313, x, y, z) 
        setElementData ( source, "Colete3Object", Colete3 ) 
        local skin = getElementModel ( source ) 
        if skin == 0 then
        -- Parte,Largura,Frente Traz,Altura,Z,ROTX,ROTY,ROT-- 
          attachElementToBone(Colete3, source, 3, 0, 0.030, -0.50, 0, 0, 90)
        elseif skin == 287 then 
          attachElementToBone(Colete3, source, 3, 0, 0.030, -0.50, 0, 0, 90)
        end 
   else 
        if isElement ( getElementData ( source, "Colete3Object" ) )  then 
         detachElementFromBone( getElementData ( source, "Colete3Object" ) ) 
         destroyElement ( getElementData ( source, "Colete3Object" ) ) 
         setElementData ( source, "Colete3Object", false ) 
        end 
      end
    end    
    if getElementType(source) == "player" and dataName == "Colete4On" then 
      if getElementData ( source, dataName ) then 
        local x, y, z = getElementPosition(source) 
        local Colete4 = createObject(2033, x, y, z) 
        setElementData ( source, "Colete4Object", Colete4 ) 
        local skin = getElementModel ( source ) 
        if skin == 0 then
        -- Parte,Largura,Frente Traz,Altura,Z,ROTX,ROTY,ROT-- 
          attachElementToBone(Colete4, source, 3, 0, 0.020, -0.50, 0, 0, 90)
        elseif skin == 287 then 
          attachElementToBone(Colete4, source, 3, 0, 0.020, -0.50, 0, 0, 90)
        end 
   else 
        if isElement ( getElementData ( source, "Colete4Object" ) )  then 
         detachElementFromBone( getElementData ( source, "Colete4Object" ) ) 
         destroyElement ( getElementData ( source, "Colete4Object" ) ) 
         setElementData ( source, "Colete4Object", false ) 
        end 
      end
    end  
    if getElementType(source) == "player" and dataName == "Colete2On" then 
      if getElementData ( source, dataName ) then 
        local x, y, z = getElementPosition(source) 
        local Colete2 = createObject(1643, x, y, z) 
        setElementData ( source, "Colete2Object", Colete2 ) 
        local skin = getElementModel ( source ) 
        if skin == 0 then
        -- Parte,Largura,Frente Traz,Altura,Z,ROTX,ROTY,ROT-- 
          attachElementToBone(Colete2, source, 3, 0, 0.035, -0.50, 0, 0, 90)
        elseif skin == 287 then 
          attachElementToBone(Colete2, source, 3, 0, 0.035, -0.50, 0, 0, 90)
        end 
   else 
        if isElement ( getElementData ( source, "Colete2Object" ) )  then 
         detachElementFromBone( getElementData ( source, "Colete2Object" ) ) 
         destroyElement ( getElementData ( source, "Colete2Object" ) ) 
         setElementData ( source, "Colete2Object", false ) 
        end 
      end
    end   
    if getElementType(source) == "player" and dataName == "HelmetOn" then 
      if getElementData ( source, dataName ) then 
        local x, y, z = getElementPosition(source) 
        local Helmet = createObject(902, x, y, z) 
        setElementData ( source, "HelmetObject", Helmet ) 
        local skin = getElementModel ( source ) 
        if skin == 0 then 
          attachElementToBone(Helmet, source, 1, 0.00, 0.06, -0.570, -1, 0, 90) 
        elseif skin == 287 then 
          attachElementToBone(Helmet, source, 1, 0.02, 0.06, -0.520, -1, 0, 90)
        end 
   else 
    if isElement ( getElementData ( source, "HelmetObject" ) )  then 
         detachElementFromBone( getElementData ( source, "HelmetObject" ) ) 
         destroyElement ( getElementData ( source, "HelmetObject" ) ) 
         setElementData ( source, "HelmetObject", false ) 
        end 
      end
    end    
    if getElementType(source) == "player" and dataName == "CapaceteOn" then 
      if getElementData ( source, dataName ) then 
        local x, y, z = getElementPosition(source) 
        local Capacete = createObject(1852, x, y, z) 
        setElementData ( source, "CapaceteObject", Capacete ) 
        local skin = getElementModel ( source ) 
        if skin == 0 then 
          attachElementToBone(Capacete, source, 1, 0, -0.040, -0.690, 0, 0, 90)
        elseif skin == 287 then 
          attachElementToBone(Capacete, source, 1, 0, -0.040, -0.630, 0, 0, 90)
        end 
   else 
    if isElement ( getElementData ( source, "CapaceteObject" ) )  then 
         detachElementFromBone( getElementData ( source, "CapaceteObject" ) ) 
         destroyElement ( getElementData ( source, "CapaceteObject" ) ) 
         setElementData ( source, "CapaceteObject", false ) 
        end 
      end
    end    
    if getElementType(source) == "player" and dataName == "Mascara1On" then 
      if getElementData ( source, dataName ) then 
        local x, y, z = getElementPosition(source) 
        local Mascara1 = createObject(2043, x, y, z) 
        setElementData ( source, "Mascara1Object", Mascara1 ) 
        local skin = getElementModel ( source ) 
        if skin == 0 then 
          attachElementToBone(Mascara1, source, 1, 0, 0.014, -0.550, 0, 1, 90) 
        elseif skin == 287 then 
          attachElementToBone(Mascara1, source, 1, 0, 0.014, -0.550, 0, 1, 90) 
        end 
   else 
    if isElement ( getElementData ( source, "Mascara1Object" ) )  then 
         detachElementFromBone( getElementData ( source, "Mascara1Object" ) ) 
         destroyElement ( getElementData ( source, "Mascara1Object" ) ) 
         setElementData ( source, "Mascara1Object", false ) 
        end 
      end
    end     
    if getElementType(source) == "player" and dataName == "Mascara2On" then 
      if getElementData ( source, dataName ) then 
        local x, y, z = getElementPosition(source) 
        local Mascara2 = createObject(1851, x, y, z) 
        setElementData ( source, "Mascara2Object", Mascara2 ) 
        local skin = getElementModel ( source ) 
        if skin == 0 then 
          attachElementToBone(Mascara2, source, 1, 0, -0.016, -0.597, 0, 0, 90) 
        elseif skin == 287 then 
          attachElementToBone(Mascara2, source, 1, 0, 0, -0.597, 0, 0, 90) 
        end 
   else 
    if isElement ( getElementData ( source, "Mascara2Object" ) )  then 
         detachElementFromBone( getElementData ( source, "Mascara2Object" ) ) 
         destroyElement ( getElementData ( source, "Mascara2Object" ) ) 
         setElementData ( source, "Mascara2Object", false ) 
        end 
      end
    end    
    if getElementType(source) == "player" and dataName == "MusgoOn" then 
      if getElementData ( source, dataName ) then 
        local x, y, z = getElementPosition(source) 
        local Musgo = createObject(1518, x, y, z) 
        setElementData ( source, "MusgoObject", Musgo ) 
        local skin = getElementModel ( source ) 
        if skin == 0 then 
          attachElementToBone(Musgo, source, 1, 0.01, 0.01, -0.580, -1, 0, 90)
        elseif skin == 287 then 
          attachElementToBone(Musgo, source, 1, 0.01, 0.01, -0.580, -1, 0, 90)
        end 
   else 
    if isElement ( getElementData ( source, "MusgoObject" ) )  then 
         detachElementFromBone( getElementData ( source, "MusgoObject" ) ) 
         destroyElement ( getElementData ( source, "MusgoObject" ) ) 
         setElementData ( source, "MusgoObject", false ) 
        end 
      end
    end    
    if getElementType(source) == "player" and dataName == "RespiradorOn" then 
      if getElementData ( source, dataName ) then 
        local x, y, z = getElementPosition(source) 
        local Respirador = createObject(1521, x, y, z) 
        setElementData ( source, "RespiradorObject", Respirador ) 
        local skin = getElementModel ( source ) 
        if skin == 0 then 
        attachElementToBone(Respirador, source, 1, 0, -0.015, -0.589, 0, 0, 90)
        elseif skin == 287 then 
          attachElementToBone(Respirador, source, 1, 0, -0.015, -0.589, 0, 0, 90)
        end 
   else 
    if isElement ( getElementData ( source, "RespiradorObject" ) )  then 
         detachElementFromBone( getElementData ( source, "RespiradorObject" ) ) 
         destroyElement ( getElementData ( source, "RespiradorObject" ) ) 
         setElementData ( source, "RespiradorObject", false ) 
        end 
      end
    end
   if getElementType(source) == "player" and dataName == "MonkeyOn" then 
      if getElementData ( source, dataName ) then 
        local x, y, z = getElementPosition(source) 
        local Monkey = createObject(1517, x, y, z) 
        setElementData ( source, "MonkeyObject", Monkey ) 
        local skin = getElementModel ( source ) 
        if skin == 0 then 
        attachElementToBone(Monkey, source, 1, 0, -0.01, -0.600, -1, 0, 90)
        elseif skin == 287 then 
          attachElementToBone(Monkey, source, 1, 0, -0.01, -0.600, -1, 0, 90)
        end 
   else 
    if isElement ( getElementData ( source, "MonkeyObject" ) )  then 
         detachElementFromBone( getElementData ( source, "MonkeyObject" ) ) 
         destroyElement ( getElementData ( source, "MonkeyObject" ) ) 
         setElementData ( source, "MonkeyObject", false ) 
        end 
      end
    end
end
addEventHandler ( "onElementDataChange", getRootElement(), backPackBack )

function backpackRemoveQuit ()
     if  elementWeaponRaplace[source] then 
        detachElementFromBone(elementWeaponRaplace[source]) 
        destroyElement(elementWeaponRaplace[source])          
        elementWeaponRaplace[source] = false 
    end
    if elementBackpack[source] then
        detachElementFromBone(elementBackpack[source])
        destroyElement(elementBackpack[source])
    end
    if elementWeaponBack[source] then
        detachElementFromBone(elementWeaponBack[source])
        destroyElement(elementWeaponBack[source])   
        elementWeaponBack[source] = false
    end 
    if getElementData ( source, "coleteObject" ) then 
       local colete = getElementData ( source, "coleteObject" ) 
       if isElement ( colete ) then 
         destroyElement ( colete ) 
       end
    end 
    if getElementData ( source, "Colete2Object" ) then 
       local Colete2 = getElementData ( source, "Colete2Object" ) 
       if isElement ( Colete2 ) then 
         destroyElement ( Colete2 ) 
       end
    end 
    if getElementData ( source, "Colete3Object" ) then 
       local Colete3 = getElementData ( source, "Colete3Object" ) 
       if isElement ( Colete3 ) then 
         destroyElement ( Colete3 ) 
       end
    end 
    if getElementData ( source, "Colete4Object" ) then 
       local Colete4 = getElementData ( source, "Colete4Object" ) 
       if isElement ( Colete4 ) then 
         destroyElement ( Colete4 ) 
       end
    end 
    if getElementData ( source, "HelmetObject" ) then 
       local Helmet = getElementData ( source, "HelmetObject" ) 
       if isElement ( Helmet ) then 
         destroyElement ( Helmet ) 
       end
    end
    if getElementData ( source, "MusgoObject" ) then 
       local Musgo = getElementData ( source, "MusgoObject" ) 
       if isElement ( Musgo ) then 
         destroyElement ( Musgo ) 
       end
    end
    if getElementData ( source, "CapaceteObject" ) then 
       local Capacete = getElementData ( source, "CapaceteObject" ) 
       if isElement ( Capacete ) then 
         destroyElement ( Capacete ) 
       end
    end
    if getElementData ( source, "Mascara1Object" ) then 
       local Mascara1 = getElementData ( source, "Mascara1Object" ) 
       if isElement ( Mascara1 ) then 
         destroyElement ( Mascara1 ) 
       end
    end
    if getElementData ( source, "Mascara2Object" ) then 
       local Mascara2 = getElementData ( source, "Mascara2Object" ) 
       if isElement ( Mascara2 ) then 
         destroyElement ( Mascara2 ) 
       end
    end
    if getElementData ( source, "RespiradorObject" ) then 
       local Respirador = getElementData ( source, "RespiradorObject" ) 
       if isElement ( Respirador ) then 
         destroyElement ( Respirador ) 
       end
    end
    if getElementData ( source, "MonkeyObject" ) then 
       local Monkey = getElementData ( source, "MonkeyObject" ) 
       if isElement ( Monkey ) then 
         destroyElement ( Monkey ) 
       end
    end
end
addEventHandler ( "onPlayerQuit", getRootElement(), backpackRemoveQuit )
elementWeaponRaplace = {} 
function weaponReplace ( previousWeaponID, currentWeaponID ) 
local weapon1 = getElementData(source,"currentweapon_1") 
if not weapon1 then return end 
local ammoData1,weapID1 = getWeaponAmmoType(weapon1) 
local x,y,z = getElementPosition(source) 
local rx,ry,rz = getElementRotation(source) 
          if currentWeaponID == weapID1 then 
           if elementWeaponRaplace[source] then 
            detachElementFromBone(elementWeaponRaplace[source]) 
            destroyElement(elementWeaponRaplace[source]) 
            elementWeaponRaplace[source] = false 
           end 
           if weapon1 == "M14" then 
           elementWeaponRaplace[source] = createObject(2726,x,y,z) 
           elseif weapon1 == "SVD Camo" then 
           elementWeaponRaplace[source] = createObject(2730,x,y,z) 
           elseif weapon1 == "AS50" then 
           elementWeaponRaplace[source] = createObject(2731,x,y,z)
           elseif weapon1 == "CZ 550" then 
           elementWeaponRaplace[source] = createObject(2732,x,y,z)
           elseif weapon1 == "DMR" then 
           elementWeaponRaplace[source] = createObject(2733,x,y,z)
           elseif weapon1 == "KVSK" then 
           elementWeaponRaplace[source] = createObject(2734,x,y,z)
           elseif weapon1 == "M24" then 
           elementWeaponRaplace[source] = createObject(2735,x,y,z)
           elseif weapon1 == "M249 SAW" then 
           elementWeaponRaplace[source] = createObject(2748,x,y,z)
           elseif weapon1 == "M107" then 
           elementWeaponRaplace[source] = createObject(2737,x,y,z)
           elseif weapon1 == "M4A03" then 
           elementWeaponRaplace[source] = createObject(2738,x,y,z)
           elseif weapon1 == "JNG-90" then 
           elementWeaponRaplace[source] = createObject(2729,x,y,z) 
           elseif weapon1 == "M240" then 
           elementWeaponRaplace[source] = createObject(2728,x,y,z)  
           elseif weapon1 == "AK-107" then 
           elementWeaponRaplace[source] = createObject(2725,x,y,z) 
           elseif weapon1 == "AKS" then 
           elementWeaponRaplace[source] = createObject(3000,x,y,z) 
           elseif weapon1 == "G36K" then 
           elementWeaponRaplace[source] = createObject(2708,x,y,z) 
           elseif weapon1 == "M4" then 
           elementWeaponRaplace[source] = createObject(2468,x,y,z) 
           elseif weapon1 == "Lee Enfield" then 
           elementWeaponRaplace[source] = createObject(2562,x,y,z) 
           elseif weapon1 == "FN SCAR" then 
           elementWeaponRaplace[source] = createObject(2644,x,y,z) 
           elseif weapon1 == "MK48" then 
           elementWeaponRaplace[source] = createObject(2571,x,y,z) 
           elseif weapon1 == "Crossbow" then 
           elementWeaponRaplace[source] = createObject(2565,x,y,z) 
           elseif weapon1 == "ACR" then 
           elementWeaponRaplace[source] = createObject(2747,x,y,z)
           elseif weapon1 == "G36C SD" then 
           elementWeaponRaplace[source] = createObject(2751,x,y,z)
           elseif weapon1 == "G17" then 
           elementWeaponRaplace[source] = createObject(2749,x,y,z)    
           elseif weapon1 == "M4A1 Holo" then 
           elementWeaponRaplace[source] = createObject(2742,x,y,z) 
           elseif weapon1 == "SA-58V ACOG" then 
           elementWeaponRaplace[source] = createObject(2745,x,y,z) 
           elseif weapon1 == "M9 SD" then 
           elementWeaponRaplace[source] = createObject(2766,x,y,z) 
           elseif weapon1 == "M1911" then 
           elementWeaponRaplace[source] = createObject(2767,x,y,z) 
           end 
           if elementBackpack[source] then 
            attachElementToBone(elementWeaponRaplace[source],source,12,0,0,0,179,90,180) 
           else 
            attachElementToBone(elementWeaponRaplace[source],source,12,0,0,0,179,90,180) 
           end 
          elseif previousWeaponID == weapID1 then 
           detachElementFromBone(elementWeaponRaplace[source]) 
           destroyElement(elementWeaponRaplace[source]) 
           elementWeaponRaplace[source] = false 
          end 
end 
addEventHandler ( "onPlayerWeaponSwitch", getRootElement(), weaponReplace )
elementWeaponBack = {}
elementWeaponBackM = {}
function weaponSwitchBack ( previousWeaponID, currentWeaponID ) 
local weapon1 = getElementData(source,"currentweapon_1")
local weapon2 = getElementData(source,"currentweapon_2") 
if not weapon1 and not weapon2 then return end
local ammoData1,weapID1 = getWeaponAmmoType(weapon1)
local ammoData2,weapID2 = getWeaponAmmoType(weapon2) 
local x,y,z = getElementPosition(source)
local rx,ry,rz = getElementRotation(source) 
            if currentWeaponID == weapID2 then
                setElementData ( source, "selectedWeapon",weapon2)
            elseif currentWeaponID == weapID1 then
                setElementData ( source, "selectedWeapon",weapon1)
            elseif currentWeaponID == weapID3 then
                setElementData ( source, "selectedWeapon",weapon3)
            end
            if getElementData ( source, "usingGrenadeThrower" ) then
                toggleControl ( source, 'fire', true )
                setElementData ( source, "usingGrenadeThrower", false )
            end
            
    if previousWeaponID == weapID1 then
        ----------- Destruir Arma Quando Morrer ou Deslogar Sen�o Ela Fica no Ar -------------
        if elementWeaponBack[source] then
            detachElementFromBone(elementWeaponBack[source])
            destroyElement(elementWeaponBack[source])
            elementWeaponBack[source] = false
        end
          if weapon1 == "M14" then 
           elementWeaponBack[source] = createObject(2726,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "SVD Camo" then 
           elementWeaponBack[source] = createObject(2730,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875)
           elseif weapon1 == "AS50" then 
           elementWeaponBack[source] = createObject(2731,x,y,z)
           setObjectScale(elementWeaponBack[source],0.875)
           elseif weapon1 == "CZ 550" then 
           elementWeaponBack[source] = createObject(2732,x,y,z)
           setObjectScale(elementWeaponBack[source],0.875)
           elseif weapon1 == "DMR" then 
           elementWeaponBack[source] = createObject(2733,x,y,z)
           setObjectScale(elementWeaponBack[source],0.875)
           elseif weapon1 == "KVSK" then 
           elementWeaponBack[source] = createObject(2734,x,y,z)
           setObjectScale(elementWeaponBack[source],0.875)
           elseif weapon1 == "M24" then 
           elementWeaponBack[source] = createObject(2735,x,y,z)
           setObjectScale(elementWeaponBack[source],0.875)
           elseif weapon1 == "M249 SAW" then 
           elementWeaponBack[source] = createObject(2748,x,y,z)
           setObjectScale(elementWeaponBack[source],0.875)
           elseif weapon1 == "M107" then 
           elementWeaponBack[source] = createObject(2737,x,y,z)
           setObjectScale(elementWeaponBack[source],0.875)
           elseif weapon1 == "M4A03" then 
           elementWeaponBack[source] = createObject(2738,x,y,z)
           setObjectScale(elementWeaponBack[source],0.875)
           elseif weapon1 == "JNG-90" then 
           elementWeaponBack[source] = createObject(2729,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875)
           elseif weapon1 == "M240" then 
           elementWeaponBack[source] = createObject(2728,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875)
           elseif weapon1 == "AK-107" then 
           elementWeaponBack[source] = createObject(2725,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "AKS" then 
           elementWeaponBack[source] = createObject(3000,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "MK48" then 
           elementWeaponBack[source] = createObject(2571,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "M4" then 
           elementWeaponBack[source] = createObject(2468,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "Lee Enfield" then 
           elementWeaponBack[source] = createObject(2562,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "G36K" then 
           elementWeaponBack[source] = createObject(2708,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "FN SCAR" then 
           elementWeaponBack[source] = createObject(2644,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "Crossbow" then 
           elementWeaponBack[source] = createObject(2565,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "ACR" then 
           elementWeaponBack[source] = createObject(2747,x,y,z)
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "G36C SD" then 
           elementWeaponBack[source] = createObject(2751,x,y,z)
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "G17" then 
           elementWeaponBack[source] = createObject(2749,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875)        
           elseif weapon1 == "M4A1 Holo" then 
           elementWeaponBack[source] = createObject(2742,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "SA-58V ACOG" then 
           elementWeaponBack[source] = createObject(2745,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "M9 SD" then 
           elementWeaponBack[source] = createObject(2766,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           elseif weapon1 == "M1911" then 
           elementWeaponBack[source] = createObject(2767,x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           else 
           elementWeaponBack[source] = createObject(getWeaponObjectID(weapID1),x,y,z) 
           setObjectScale(elementWeaponBack[source],0.875) 
           end 
           if elementBackpack[source] then 
            attachElementToBone(elementWeaponBack[source],source,3,0.19,-0.31,-0.1,0,270,-90)
           else 
            attachElementToBone(elementWeaponBack[source],source,3,0.19,-0.11,-0.1,0,270,10) 
           end 
          elseif currentWeaponID == weapID1 then 
           detachElementFromBone(elementWeaponBack[source]) 
           destroyElement(elementWeaponBack[source]) 
           elementWeaponBack[source] = false  
          end 
end
addEventHandler ( "onPlayerWeaponSwitch", getRootElement(), weaponSwitchBack )

function removeBackWeaponOnDrop ()
     if elementWeaponRaplace[source] then 
           detachElementFromBone(elementWeaponRaplace[source]) 
           destroyElement(elementWeaponRaplace[source])          
           elementWeaponRaplace[source] = false 
          end
    if elementWeaponBack[source] then
        detachElementFromBone(elementWeaponBack[source])
        destroyElement(elementWeaponBack[source])   
        elementWeaponBack[source] = false
    end
    if elementWeaponBackM[source] then
        detachElementFromBone(elementWeaponBackM[source])
        destroyElement(elementWeaponBackM[source])  
        elementWeaponBackM[source] = false
    end
end
addEvent("removeBackWeaponOnDrop",true)
addEventHandler("removeBackWeaponOnDrop",getRootElement(),removeBackWeaponOnDrop)

function removeAttachedOnDeath ()
    if elementWeaponRaplace[source] then 
            detachElementFromBone(elementWeaponRaplace[source]) 
            destroyElement(elementWeaponRaplace[source])          
            elementWeaponRaplace[source] = false 
           end    
        if elementBackpack[source] then
            detachElementFromBone(elementBackpack[source])
            destroyElement(elementBackpack[source])
        end
        if elementWeaponBack[source] then
            detachElementFromBone(elementWeaponBack[source])
            destroyElement(elementWeaponBack[source])   
            elementWeaponBack[source] = false
        end 
    if elementWeaponBackM[source] then
        detachElementFromBone(elementWeaponBackM[source])
        destroyElement(elementWeaponBackM[source])  
        elementWeaponBackM[source] = false
    end
    if getElementData ( source, "ColeteOn" ) == true then
        setElementData ( source, "ColeteOn", false )
    end
    if getElementData ( source, "Colete2On" ) == true then
        setElementData ( source, "Colete2On", false )
    end
    if getElementData ( source, "Colete3On" ) == true then
        setElementData ( source, "Colete3On", false )
    end
    if getElementData ( source, "Colete4On" ) == true then
        setElementData ( source, "Colete4On", false )
    end
    if getElementData ( source, "HelmetOn" ) == true then
        setElementData ( source, "HelmetOn", false )
    end
    if getElementData ( source, "MusgoOn" ) == true then
        setElementData ( source, "MusgoOn", false )
    end
    if getElementData ( source, "CapaceteOn" ) == true then
        setElementData ( source, "CapaceteOn", false )
    end
    if getElementData ( source, "Mascara1On" ) == true then
        setElementData ( source, "Mascara1On", false )
    end    
    if getElementData ( source, "Mascara2On" ) == true then
        setElementData ( source, "Mascara2On", false )
    end
    if getElementData ( source, "RespiradorOn" ) == true then
        setElementData ( source, "RespiradorOn", false )
    end
    if getElementData ( source, "MonkeyOn" ) == true then
        setElementData ( source, "MonkeyOn", false )
    end
end
addEvent("kilLDayZPlayer",true)
addEventHandler("kilLDayZPlayer",getRootElement(),removeAttachedOnDeath)

function weaponDelete(dataName,oldValue)
    if getElementType(source) == "player" then -- check if the element is a player
        local weapon1 = getElementData(source,"currentweapon_1") or "noweap"
        local weapon2 = getElementData(source,"currentweapon_2") or "noweap"
        local weapon3 = getElementData(source,"currentweapon_3") or "noweap"
        if dataName == weapon1 or dataName == weapon2 or dataName == weapon3 then
            if getElementData (source,dataName) == 0 then
                local ammoData,weapID = getWeaponAmmoType(dataName)
                takeWeapon (source,weapID)
                if dataName == weapon1 or dataName == weapon2 or dataName == weapon3 then
                    if getElementData (source,dataName) == 0 then
                        local ammoData,weapID = getWeaponAmmoType(dataName)
                        takeWeapon (source,weapID)
                        if dataName == weapon1 then
                            setElementData(source,"currentweapon_1",false)
                        elseif dataName == weapon2 then
                            setElementData(source,"currentweapon_2",false)
                        elseif dataName == weapon3 then
                            setElementData(source,"currentweapon_3",false)
                        end
                        return true
                    end
                end
            end
        end
            local weapon1 = getElementData(source,"currentweapon_1")
            local weapon2 = getElementData(source,"currentweapon_2")
            local weapon3 = getElementData(source,"currentweapon_3")
            local ammoData1,weapID1 = getWeaponAmmoType(weapon1)
            local ammoData2,weapID2 = getWeaponAmmoType(weapon2)
            local ammoData3,weapID3 = getWeaponAmmoType(weapon3)
        if dataName == ammoData1 then
        local newammo = oldValue - getElementData (source,dataName)
        if newammo == 1 then return end
            if getElementData (source,dataName) < oldValue then
                takeWeapon (source,weapID1,newammo) 
                if elementWeaponBack[source] then
                    detachElementFromBone(elementWeaponBack[source])
                    destroyElement(elementWeaponBack[source])   
                    elementWeaponBack[source] = false
                end 
            elseif getElementData (source,dataName) > oldValue then
                giveWeapon(source,weapID1,getElementData (source,dataName)-oldValue,true)
            end
        end 
        if dataName == ammoData2 then
        local newammo = oldValue - getElementData (source,dataName)
        if newammo == 1 then return end
            if getElementData (source,dataName) < oldValue then
                takeWeapon (source,weapID2,newammo) 
            elseif getElementData (source,dataName) > oldValue then
                giveWeapon(source,weapID2,getElementData (source,dataName)-oldValue,false)
            end
        end 
        if dataName == ammoData3 then
        local newammo = oldValue - getElementData (source,dataName)
        if newammo == 1 then return end
            if getElementData (source,dataName) < oldValue then
                takeWeapon (source,weapID3,newammo) 
            elseif getElementData (source,dataName) > oldValue then
                giveWeapon(source,weapID3,getElementData (source,dataName)-oldValue,false)
            end 
        end
    end
end
addEventHandler("onElementDataChange",getRootElement(),weaponDelete)

function addPlayerStats (player,data,value)
    if data == "food" then
        local current = getElementData(player,data)
        if current + value > 100 then
            setElementData(player,data,100)
        elseif  current + value < 1 then
            setElementData(player,data,0)
            setElementData(player,"blood",getElementData(player,"blood")-math.random(50,120))
        else
            setElementData(player,data,current+value)
        end
    elseif data == "thirst" then
        local current = getElementData(player,data)
        if current + value > 100 then
            setElementData(player,data,100)
        elseif  current + value < 1 then
            setElementData(player,data,0)
            setElementData(player,"blood",getElementData(player,"blood")-math.random(50,120))
        else
            setElementData(player,data,current+value)
        end
    elseif data == "blood" then
        local current = getElementData(player,data)
        if current + value > 12000 then
            setElementData(player,data,12000)
        elseif  current + value < 1 then
            setElementData(player,data,0)
        else
            setElementData(player,data,current+value)
        end
    elseif data == "temperature" then
        local current = getElementData(player,data)
        if current + value > 41 then
            setElementData(player,data,41)
        elseif  current + value <= 31 then
            setElementData(player,data,31)
        else
            setElementData(player,data,current+value)
        end
    elseif data == "humanity" then
        local current = getElementData(player,data)
        if current + value > 5000 then
            setElementData(player,data,5000)
        else
            setElementData(player,data,current+value)
        end     
    end
end

function checkTemperature()
    for i,player in ipairs(getElementsByType("player")) do
        if getElementData(player,"logedin") then
            value = 0
            if getWeather == 7 then
                value = -0.1
            elseif getWeather == 12 then
                value = 0
            elseif getWeather == 16 then
                value = -0.4
            elseif getWeather == 4 then
                value = -0.1
            end
            local hour, minutes = getTime()
            if hour >= 21 and hour <= 8 then
                value = value-0.05
            end
            addPlayerStats (player,"temperature",value)
        end
    end 
end
setTimer(checkTemperature,60000,0)

function checkTemperature2()
    for i,player in ipairs(getElementsByType("player")) do
        if getElementData(player,"logedin") then
            value = 0
            if isElementInWater(player) then
                value = gameplayVariables["temperaturewater"]
            end 
            if getControlState (player,"sprint") then
                value = value+gameplayVariables["temperaturesprint"]
            end
            addPlayerStats (player,"temperature",value)
        end 
    end
end
setTimer(checkTemperature2,10000,0)

function setHunger()
    for i,player in ipairs(getElementsByType("player")) do
        if getElementData(player,"logedin") then
            value = gameplayVariables["loseHunger"]
            addPlayerStats (player,"food",value)
        end 
    end
end
setTimer(setHunger,60000,0)

function setThirsty()
    for i,player in ipairs(getElementsByType("player")) do
        if getElementData(player,"logedin") then
            value = gameplayVariables["loseThirst"]
            addPlayerStats (player,"thirst",value)
        end
    end
end
setTimer(setThirsty,60000,0)

function checkThirsty()
    for i,player in ipairs(getElementsByType("player")) do
        if getElementData(player,"logedin") then
            value = 0
            if getControlState (player,"sprint") then
                value = gameplayVariables["sprintthirst"]
            end 
            addPlayerStats (player,"thirst",value)
        end
    end
end
setTimer(checkThirsty,10000,0)

function checkHumanity()
    for i,player in ipairs(getElementsByType("player")) do
        if getElementData(player,"logedin") then
            if getElementData(player,"humanity") < 2500 then
                addPlayerStats (player,"humanity",30)
                if getElementData(player,"humanity") > 2000 then
                    setElementData(player,"bandit",false)
                end
            end
        end 
    end
end
setTimer(checkHumanity,60000,0)

function onPlayerRequestChangingStats(itemName,itemInfo,data)
if data == "food" then
    if itemName == "Burger" then
        blood = 300
    elseif itemName == "Pizza" then
        blood = 300
    elseif itemName == "Cooked Meat" then
        blood = 800
    elseif itemName == "Beans Can" then
        blood = 200
    elseif itemName == "Pasta Can" then
        blood = 200
    end
    setPedAnimation (source,"FOOD","EAT_Burger",-1,false,false,nil,false)
    setElementData(source,itemName,getElementData(source,itemName)-1)
    addPlayerStats (source,"blood",blood)
    addPlayerStats (source,data,gameplayVariables["foodrestore"]) -- Restores a random amount between 40-100 (hunger) - default: 100
elseif data == "thirst" then
    setElementData(source,itemName,getElementData(source,itemName)-1)
    addPlayerStats (source,data,gameplayVariables["thirstrestore"]) -- Restores a random amount between 40-100 (thirst) default: 100
    setPedAnimation (source,"VENDING","VEND_Drink2_P",-1,false,false,nil,false) 
    if itemName == "Water Bottle" then
        setElementData(source,"Empty Water Bottle",(getElementData(source,"Empty Water Bottle") or 0)+1)
    end
end
triggerClientEvent (source, "displayClientInfo", source,"Food",shownInfos["youconsumed"].." "..itemName,22,255,0)
triggerClientEvent(source,"refreshInventoryManual",source)
end
addEvent("onPlayerRequestChangingStats",true)
addEventHandler("onPlayerRequestChangingStats",getRootElement(),onPlayerRequestChangingStats)

function onPlayerUseMedicObject(itemName)
local playersource = source
setPedAnimation (playersource,"BOMBER","BOM_Plant",-1,false,false,nil,false)
setTimer( function ()
    if itemName == "Bandage" then
        setElementData(playersource,"bleeding",0)
        setElementData(playersource,itemName,getElementData(playersource,itemName)-1)
    elseif itemName == "Medic Kit" then
        addPlayerStats (playersource,"blood",7000)
        setElementData(playersource,"bleeding",0)
        setElementData(playersource,itemName,getElementData(playersource,itemName)-1)
    elseif itemName == "Heat Pack" then
        setElementData(playersource,"cold",false)
        setElementData(playersource,"temperature",37)
        setElementData(playersource,itemName,getElementData(playersource,itemName)-1)
    elseif itemName == "Painkiller" then
        setElementData(playersource,"pain",false)
        setElementData(playersource,itemName,getElementData(playersource,itemName)-1)
    elseif itemName == "Morphine" then
        setElementData(playersource,"brokenbone",false)
        setElementData(playersource,itemName,getElementData(playersource,itemName)-1)
    elseif itemName == "Blood Bag" then
        addPlayerStats (playersource,"blood",12000)
        setElementData(playersource,itemName,getElementData(playersource,itemName)-1)
    end
end,1500,1) 
    triggerClientEvent(playersource,"refreshInventoryManual",playersource)
end
addEvent("onPlayerUseMedicObject",true)
addEventHandler("onPlayerUseMedicObject",getRootElement(),onPlayerUseMedicObject)

function onPlayerGiveMedicObject(itemName,player)
    local playersource = source
    setPedAnimation (playersource,"BOMBER","BOM_Plant", -1, false, false, false, false)
    setTimer( function ()
        if itemName == "bandage" then
            setElementData(player,"bleeding",0)
            setElementData(playersource,"Bandage",getElementData(playersource,"Bandage")-1)
            addPlayerStats (playersource,humanity,40)
        elseif itemName == "giveblood" then
            addPlayerStats (player,"blood",12000)
            setElementData(playersource,"Blood Bag",getElementData(playersource,"Blood Bag")-1)
            addPlayerStats (playersource,humanity,250)
        end
    end,1500,1) 
end
addEvent("onPlayerGiveMedicObject",true)
addEventHandler("onPlayerGiveMedicObject",getRootElement(),onPlayerGiveMedicObject)


skinTable = {
{"Survivor Clothing",73},
{"Ghillie Suit",287},
{"Army Clothing",285},
{"Ghilli Suit Woman",257},
{"BAT Clothing",164},
{"Army[F] Clothing",90},
{"BF3 Clothing",295},
{"Millitary Clothing",284},
{"Soldier Clothing",283},
}

function getSkinIDFromName(name)
    for i,skin in ipairs(skinTable) do
        if name == skin[1] then
            return skin[2]
        end
    end
end

function getSkinNameFromID(id)
    for i,skin in ipairs(skinTable) do
        if id == skin[2] then
            return skin[1]
        end
    end
end

function addPlayerSkin (skin)
    local current = getElementData(source,"skin")
    local name = getSkinNameFromID(current)
    setElementData(source,name,getElementData(source,name)+1)
    setElementData(source,skin,getElementData(source,skin)-1)
    local id = getSkinIDFromName(skin)
    setElementData(source,"skin",id)
    setElementModel(source,id)
    triggerClientEvent(source,"refreshInventoryManual",source)
    triggerClientEvent("updatePlayerClothes",source,id)
end
addEvent("onPlayerChangeSkin",true)
addEventHandler("onPlayerChangeSkin",getRootElement(),addPlayerSkin)


function onPlayerRefillWaterBottle (itemName)
    if isElementInWater(source) then
        setElementData(source,"Canteen",getElementData(source,"Canteen")+1)
        setElementData(source,itemName,getElementData(source,itemName)-1)
        triggerClientEvent(source,"refreshInventoryManual",source)
        triggerClientEvent (source, "displayClientInfo", source,"Canteen",shownInfos["filledup"],89, 161, 58, 255)
    else
        triggerClientEvent (source, "displayClientInfo", source,"Canteen",shownInfos["needwatersource"],89, 161, 58, 255)
    end 
end
addEvent("onPlayerRefillWaterBottle",true)
addEventHandler("onPlayerRefillWaterBottle",getRootElement(),onPlayerRefillWaterBottle)

function getPointFromDistanceRotation(x, y, dist, angle)
 
    local a = math.rad(90 - angle);
 
    local dx = math.cos(a) * dist;
    local dy = math.sin(a) * dist;
 
    return x+dx, y+dy;
 
end

function onPlayerPitchATent (itemName)
        setElementData(source,itemName,getElementData(source,itemName)-1)
setPedAnimation (source,"BOMBER","BOM_Plant",-1,false,false,nil,false)
local source = source
setTimer( function ()       
        local x,y,z = getElementPosition(source)
        local xr,yr,zr = getElementRotation(source)
        px, py, pz = getElementPosition(source)
        prot = getPedRotation(source)
        local offsetRot = math.rad(prot+90)
        local vx = px + 5 * math.cos(offsetRot)
        local vy = py + 5 * math.sin(offsetRot)
        local vz = pz + 2
        local vrot = prot+180
        tent = createObject(3243,vx,vy,z-1,0,0,vrot)
        setObjectScale(tent,1.3)
        tentCol = createColSphere(x,y,z,4)
        attachElements ( tentCol, tent, 0, 0, 0 )
        setElementData(tentCol,"parent",tent)
        setElementData(tent,"parent",tentCol)
        setElementData(tentCol,"tent",true)
        setElementData(tentCol,"vehicle",true)
        setElementData(tentCol,"MAX_Slots",100)
        triggerClientEvent(source,"refreshInventoryManual",source)
end,1500,1)         
end
addEvent("onPlayerPitchATent",true)
addEventHandler("onPlayerPitchATent",getRootElement(),onPlayerPitchATent)

function removeTent (object)
    local x,y,z = getElementPosition(getElementData(object,"parent"))
    local item,itemString = getItemTablePosition("Tent")
    local itemPickup = createItemPickup(item,x,y,z+1,itemString)
    
    destroyElement(getElementData(object,"parent"))
    destroyElement(object)
end
addEvent("removeTent",true)
addEventHandler("removeTent",getRootElement(),removeTent)

function onPlayerBuildAWireFence (itemName)
        setElementData(source,itemName,getElementData(source,itemName)-1)
setPedAnimation (source,"BOMBER","BOM_Plant",-1,false,false,nil,false)
local source = source
setTimer( function ()               
        local x,y,z = getElementPosition(source)
        local xr,yr,zr = getElementRotation(source)
        --outputChatBox(zr)
        px, py, pz = getElementPosition(source)
        prot = getPedRotation(source)
        local offsetRot = math.rad(prot+90)
        local vx = px + 1 * math.cos(offsetRot)
        local vy = py + 1 * math.sin(offsetRot)
        local vz = pz + 2
        local vrot = prot+90
        --local x,y = getPointFromDistanceRotation(x,y,5,0)
        tent = createObject(983,vx,vy,pz,xr,yr,vrot)
        setObjectScale(tent,1)
        tentCol = createColSphere(x,y,z,2)
        attachElements ( tentCol, tent, 0, 0, 0 )
        setElementData(tentCol,"parent",tent)
        setElementData(tent,"parent",tentCol)
        setElementData(tentCol,"wirefence",true)
        triggerClientEvent(source,"refreshInventoryManual",source)
end,1500,1)         
end
addEvent("onPlayerBuildAWireFence",true)
addEventHandler("onPlayerBuildAWireFence",getRootElement(),onPlayerBuildAWireFence)

function removeWirefence (object)
    destroyElement(getElementData(object,"parent"))
    destroyElement(object)
end
addEvent("removeWirefence",true)
addEventHandler("removeWirefence",getRootElement(),removeWirefence)

--[[function onPlayerBuildATank (itemName)
        setElementData(source,itemName,getElementData(source,itemName)-1)
setPedAnimation (source,"BOMBER","BOM_Plant", -1, false, false, false, false)
local source = source
setTimer( function ()               
        local x,y,z = getElementPosition(source)
        local xr,yr,zr = getElementRotation(source)
        --outputChatBox(zr)
        px, py, pz = getElementPosition(source)
        prot = getPedRotation(source)
        local offsetRot = math.rad(prot+90)
        local vx = px + 1 * math.cos(offsetRot)
        local vy = py + 1 * math.sin(offsetRot)
        local vz = pz + 2
        local vrot = prot+90
        --local x,y = getPointFromDistanceRotation(x,y,5,0)
        tent = createObject(2409,vx,vy,z-1,xr,yr,vrot)
        setObjectScale(tent,2)
        tentCol = createColSphere(x,y,z,3)
        attachElements ( tentCol, tent, 0, 0, 0 )
        setElementData(tentCol,"parent",tent)
        setElementData(tent,"parent",tentCol)
        setElementData(tentCol,"tank",true)
        triggerClientEvent(source,"refreshInventoryManual",source)
end,1500,1)         
end
addEvent("onPlayerBuildATank",true)
addEventHandler("onPlayerBuildATank",getRootElement(),onPlayerBuildATank)

function removeTank (object)
    local x,y,z = getElementPosition(getElementData(object,"parent"))
    local item,itemString = getItemTablePosition("Anti-tank hedgehog")
    local itemPickup = createItemPickup(item,x,y,z+1,itemString)
    
    destroyElement(getElementData(object,"parent"))
    destroyElement(object)
end
addEvent("removeTank",true)
addEventHandler("removeTank",getRootElement(),removeTank)--]]

--[[function onPlayerBuildASandbag (itemName)
        setElementData(source,itemName,getElementData(source,itemName)-1)
setPedAnimation (source,"BOMBER","BOM_Plant", -1, false, false, false, false)
local source = source
setTimer( function ()               
        local x,y,z = getElementPosition(source)
        local xr,yr,zr = getElementRotation(source)
        --outputChatBox(zr)
        px, py, pz = getElementPosition(source)
        prot = getPedRotation(source)
        local offsetRot = math.rad(prot+90)
        local vx = px + 1 * math.cos(offsetRot)
        local vy = py + 1 * math.sin(offsetRot)
        local vz = pz + 2
        local vrot = prot+90
        --local x,y = getPointFromDistanceRotation(x,y,5,0)
        tent = createObject(1908,vx,vy,z-0.5,xr,yr,vrot)
        setObjectScale(tent,1.3)
        tentCol = createColSphere(x,y,z,1)
        attachElements ( tentCol, tent, 0, 0, 0 )
        setElementData(tentCol,"parent",tent)
        setElementData(tent,"parent",tentCol)
        setElementData(tentCol,"sandbag",true)
        triggerClientEvent(source,"refreshInventoryManual",source)
end,1500,1)         
end
addEvent("onPlayerBuildASandbag",true)
addEventHandler("onPlayerBuildASandbag",getRootElement(),onPlayerBuildASandbag)

function removeSandbag (object)
    local x,y,z = getElementPosition(getElementData(object,"parent"))
    local item,itemString = getItemTablePosition("Sandbags")
    local itemPickup = createItemPickup(item,x,y,z+1,itemString)
    
    destroyElement(getElementData(object,"parent"))
    destroyElement(object)
end
addEvent("removeSandbag",true)
addEventHandler("removeSandbag",getRootElement(),removeSandbag)--]]

function onPlayerPutMine(itemName) 
    setPedAnimation(source, "BOMBER", "BOM_Plant", -1, false, false, false, false)
    setElementData(source,"Mine",getElementData(source,"Mine")-1)
    local x,y,z = getElementPosition(source)
    local carmine = createObject(1510,x,y,z-0.999,0,2,3.18)
    local carmineCol = createColSphere(x,y,z,2)
    setElementFrozen(carmine, true)
    setElementData(carmineCol,"type","pedhit")
    setElementData(carmineCol,"carmine",carmine)
    setElementData(carmineCol,"terror",source)
    triggerClientEvent(source,"refreshInventoryManual",source)
    setTimer(function()
        destroyElement(carmineCol)
        destroyElement(carmine)
    end,600000,1)
end
addEvent("onPlayerPutMine",true)
addEventHandler("onPlayerPutMine",getRootElement(),onPlayerPutMine)

function boomCarmine(player)
    if (getElementData (source, "type") == "pedhit") then
        local carmine = getElementData(source, "carmine")
        local terror = getElementData (source, "terror")
        local x,y,z = getElementPosition (source)
        setTimer(function(carmine_destroy)
            if not isElement ( carmine_destroy ) then return true end
            local mx,my,mz = getElementPosition(carmine_destroy)
            local px,py,pz = getElementPosition(player)
            local distance = getDistanceBetweenPoints3D(px,py,pz,mx,my,mz) or 0
            if distance <= 3 then
                setElementData(player,"blood",getElementData(player,"blood")-10)
                createExplosion(x,y,z,20,terror)
                destroyElement(carmine_destroy)
                destroyElement(source)
            end
        end,300,1, carmine)
    end
end
addEventHandler("onColShapeHit", getRootElement(), boomCarmine)

addEvent("destroyCarmine", true)
addEventHandler("destroyCarmine", getRootElement(), function(carmine)
    local x,y,z = getElementPosition(carmine)
    local terror = getElementData(carmine, "terror")
    local carmineCol = getElementData(carmine, "carmine")
    setTimer(function()
        createExplosion(x,y,z,20,terror)
        destroyElement(carmineCol)
        destroyElement(carmine)
    end,100,1)
end)
---------------------------------------------------------------------????????
------????..
--[[addEvent("createArrow",true)
addEventHandler("createArrow",getRootElement(),function(x,y,z,vz,hitElement)
    local item,itemString = getItemTablePosition("Arrow")
    local itemPickup = createItemPickup(item,x,y,z,itemString,vz, 1.75)
    attachElements ( itemPickup, hitElement, 0, 0, 0 )
end)]]
------????..

addEvent("addPlayerCookMeat",true)
addEventHandler("addPlayerCookMeat",getRootElement(),function()
    local source = source
    if isPedInVehicle(source) then return end
    if isElementInWater(source) then return end
    setPedAnimation(source,"BOMBER","BOM_Plant",-1,false,false,false,false)
    setTimer(function()
        setElementData(source,"Raw meat",getElementData(source,"Raw meat")-1)
        setElementData(source,"Cooked Meat",getElementData(source,"Cooked Meat")+1)
        triggerClientEvent (source, "displayClientInfo", source,"Inventory","Voc� Cozinhou carne",22,255,0)
        setPedWeaponSlot(source, 0)
        triggerClientEvent(source,"refreshInventoryManual",source)
    end,3000,1)
end)

addEvent("onPlayerMakeAFire",true)
addEventHandler("onPlayerMakeAFire",getRootElement(),function(itemName)
    local source = source
    if isPedInVehicle(source) then return end
    if isElementInWater(source) then return end
    setElementData(source,"Wood Pile",getElementData(source,"Wood Pile")-1)
    local xr,yr,_ = getElementRotation(source)
    px, py, pz = getElementPosition(source)
    prot = getPedRotation(source)
    local offsetRot = math.rad(prot+90)
    local vx = px+1*math.cos(offsetRot)
    local vy = py+1*math.sin(offsetRot)
    local vz = pz+2
    local vrot = prot+90
    local wood = createObject(2807,vx,vy,pz-0.87,xr,yr,vrot)
    setObjectScale(wood,2.9)
    setElementFrozen(wood,true)
    local fireCol = createColSphere(vx,vy,pz-0.75,2.5)
--  if getWeather() == 16 or getWeather() == 8 then
--      triggerClientEvent(source,"displayClientInfo",source,"fireplace","????? ?? ????? ?????? ?? ????? ?????!",255,22,0)
--  end
    fire = createObject(3525,vx,vy,pz-0.8,xr,yr,vrot)
    setObjectScale(fire,0)
    maker = createMarker(vx,vy,pz+0.2,"corona",3,240,220,130,50)
    attachElements ( fireCol, wood, 0, 0, 0 )
    setElementData(fireCol,"parent",wood)
    setElementData(fireCol,"fireplace",true)
    setPedWeaponSlot(source, 0)
    x43,y43,z43 = getElementPosition(fire)
    triggerClientEvent(source,"fireplaceSound",source,x43,y43,z43)
    triggerClientEvent(source,"refreshInventoryManual",source)
    setPedAnimation(source,"BOMBER","BOM_Plant", -1, false, false, false, false)
    setTimer(function()
        if fire then
            destroyElement(fire)
            triggerClientEvent(source,"fireplaceStop",source)
            destroyElement(maker)
        end
        destroyElement(fireCol)
        destroyElement(wood)
    end,720000,1)
end)
--[[
function checkWeatherForFireplace()
    if getWeather() == 16 or getWeather() == 8 then
        if fire then
            destroyElement(fire)
            destroyElement(maker)
            triggerClientEvent(source,"fireplaceStop",source)
            setElementData(fireCol,"fireplace",false)
        end
    end
end
setTimer(checkWeatherForFireplace,2800,0)--]]
---------------------------------------------------------------------------------------------------------------------------------------------*

addEvent("onPlayerPlaceRoadflare",true)
addEventHandler("onPlayerPlaceRoadflare",getRootElement(),function(itemName)
    setElementData(source,itemName,getElementData(source,itemName)-1)
    local source = source
    if isPedInVehicle(source) then return end
    if isElementInWater(source) then return end
    setPedAnimation (source,"BOMBER","BOM_Plant",-1,false,false,false,false)
    setTimer(function()
        local x,y,z = getElementPosition(source)
        local object = createObject(354,x,y,z-0.6)
        local maker = createMarker (x,y,z-0.3,"corona",7,250,5,5)
        setTimer(destroyElement,300000,1,object)
        setTimer(destroyElement,300000,1,maker)
        setPedWeaponSlot(source,0)
        triggerClientEvent(source,"refreshInventoryManual",source)
    end,800,1)      
end)
---------------------------------------------------------------------------------------------------fireplace

function math.round(number, decimals, method)
    decimals = decimals or 0
    local factor = 10 ^ decimals
    if (method == "ceil" or method == "floor") then return math[method](number * factor) / factor
    else return tonumber(("%."..decimals.."f"):format(number)) end
end

--------------------------------------------------------
--Chat Systeme                                        --
--------------------------------------------------------

local chatRadius = 15
local chatEadioRadius = 250
 
function sendMessageToNearbyPlayers( message, messageType )
cancelEvent()
    if (messageType == 0) then
        local posX, posY, posZ = getElementPosition( source )
        local chatSphere = createColSphere( posX, posY, posZ, chatRadius )
        local nearbyPlayers = getElementsWithinColShape( chatSphere, "player" )
        destroyElement( chatSphere )
        for index, nearbyPlayer in ipairs( nearbyPlayers ) do
            outputChatBox("#008000"..string.gsub((getPlayerName(source).." : "..message), '#%x%x%x%x%x%x', ''),nearbyPlayer, 211,211,211,true )
        end
    end 
end
addEventHandler( "onPlayerChat", getRootElement(), sendMessageToNearbyPlayers )

globalchat = true

function globalchatstate(playerSource)
	if getElementData(playerSource, "admin") == true or getElementData(playerSource, "sadmin") == true or getElementData(playerSource, "smanager") == true or getElementData(playerSource, "owner") == true then
		if globalchat == true then
			globalchat = false
			outputChatBox(getPlayerName(playerSource).." has deactivatet the Global Chat!", getRootElement(), 255, 0, 0)
		elseif globalchat == false then
			globalchat = true
			outputChatBox(getPlayerName(playerSource).." has activatet the Global Chat!", getRootElement(), 255, 0, 0)
		end
	end
end
addCommandHandler("globalstate", globalchatstate)

function GlobalChat ( playerSource, commandname, ... )
	if globalchat == true then
		local playerName = getPlayerName ( playerSource )
		if(isPlayerMuted ( playerSource ) ~= true) then
			if(... ~= nil) then
				local arg = {...}
				local text = table.concat( arg, " " )
				if isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(playerSource)), aclGetGroup ( "VIP" ) ) then
					outputChatBox ( "#FFF60C*VIP* - [#00CCFF"..playerName.."#FFFFFF]:#FFF60C "..text, getRootElement(), 255, 255, 255, true)
				elseif isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(playerSource)), aclGetGroup ( "Supporter" ) ) then
					outputChatBox ( "#FFF60C*SUPPORTER* - [#64a500"..playerName.."#FFFFFF]:#FFF60C "..text, getRootElement(), 255, 255, 255, true)
				elseif isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(playerSource)), aclGetGroup ( "Mod" ) ) then
					outputChatBox ( "#FFF60C*MODERATOR* - [#FF9900"..playerName.."#FFFFFF]:#FFF60C "..text, getRootElement(), 255, 255, 255, true)
				elseif isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(playerSource)), aclGetGroup ( "SuperMod" ) ) then
					outputChatBox ( "#FFF60C*SUPERMOD* - [#00CC33"..playerName.."#FFFFFF]:#FFF60C "..text, getRootElement(), 255, 255, 255, true)
				elseif isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(playerSource)), aclGetGroup ("Administrator" ) ) then
					outputChatBox ( "#FFF60C*ADMIN* - [#0000CD"..playerName.."#FFFFFF]:#FFF60C "..text, getRootElement(), 255, 255, 255, true)
				elseif isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(playerSource)), aclGetGroup ("SuperAdministrator" ) ) then
					outputChatBox ( "#FFF60C*SUPERADMIN* - [#7B68EE"..playerName.."#FFFFFF]:#FFF60C "..text, getRootElement(), 255, 255, 255, true)
				elseif isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(playerSource)), aclGetGroup ("ServerManager" ) ) then
					outputChatBox ( "#FFF60C*SERVERMANANGER* - [#FF0000"..playerName.."#FFFFFF]:#FFF60C "..text, getRootElement(), 255, 255, 255, true)
				elseif isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(playerSource)), aclGetGroup ( "Admin" ) ) then
					outputChatBox ( "#FFF60C*OWNER* - [#FF0000"..playerName.."##FFFFFF]:#FFF60C "..text, getRootElement(), 255, 255, 255, true)
				elseif isObjectInACLGroup ( "user." .. getAccountName(getPlayerAccount(playerSource)), aclGetGroup ( "co-owner" ) ) then
					outputChatBox ( "#FFF60C*CO-OWNER* - [#FF0000"..playerName.."##FFFFFF]#FFF60C: "..text, getRootElement(), 255, 255, 255, true)
				else
					outputChatBox ( "#006400[GlobalChat] #FFFFFF-["..playerName.."#FFFFFF]:#87CEFA "..string.gsub(text, '#%x%x%x%x%x%x', ''), getRootElement(), 255, 255, 255, true)
				end
			else
				outputChatBox ( "Usage: /GlobalChat <text>",playerSource,255,255,0)
			end
		else
			outputChatBox ( "You are muted, you cant write now!",playerSource,255,255,0)
		end
	else
		outputChatBox(playerName.." deactivateted the global chat!", playerSource, 255, 255, 0)
	end
end
addCommandHandler("GlobalChat",GlobalChat)

function playerRadioChat(playersource,cmd,...)
    if cmd == "radiochat" then
        local msg2 = table.concat({...}, " ")
        if (getElementData(playersource,"Radio") or 0) <= 0 then outputChatBox(shownInfos["noradio"],playersource) return end
        local posX, posY, posZ = getElementPosition( playersource )
        local chatSphere = createColSphere( posX, posY, posZ, chatEadioRadius )
        local nearbyPlayers = getElementsWithinColShape( chatSphere, "player" )
        destroyElement( chatSphere )
        for index, nearbyPlayer in ipairs( nearbyPlayers ) do
            if getElementData(nearbyPlayer,"Radio") > 0 then
                outputChatBox(""..string.gsub((getPlayerName(playersource).." : "..msg2), '#%x%x%x%x%x%x', ''),nearbyPlayer, 89, 161, 58, 255,true )
            end
        end
    end
end
addCommandHandler( "radiochat", playerRadioChat )
 
antiSpam = {}
timerSpam = {}
spamTick = 10
function antiFlood()
    --if (isObjectInACLGroup("user." ..getAccountName(getPlayerAccount(source)), aclGetGroup("Admin"))) then
        --return
    --end
        --if (not antiSpam[source]) then
            --antiSpam[source] = 1
        --elseif (antiSpam[source] == spamTick) then
            --cancelEvent()
            --kickPlayer(source,"Eliminado pelo alagamento.")
        --else
            --antiSpam[source] = antiSpam[source] + 1
                --if (antiSpam[source] > 2) then
                    --outputChatBox("N�o inunda��o! Aviso permanece: "..spamTick-antiSpam[source],source,255,255,255)
                    --cancelEvent()
                --end
            --if isTimer(timerSpam[source]) then
                --killTimer(timerSpam[source])  
            --end
            --timerSpam[source] = setTimer(function() antiSpam = {} end, 1000, 1, source)
            --end
end
--addEventHandler( "onPlayerCommand", getRootElement(), antiFlood )

function blockChatMessage(m,mt)
    if mt == 1 then
        cancelEvent()
    end
end
addEventHandler( "onPlayerChat", getRootElement(), blockChatMessage )

function checkBandit ()
	for i, player in ipairs(getElementsByType("player")) do
		if getElementData(player,"logedin") then
			local current = getElementData(player,"skin")
			if getElementData(player,"bandit") then
				if current == 179 or current == 287 then
					setElementModel(player,288)
				elseif current == 73 then
					setElementModel(player,180)
				elseif current == 285 then
					setElementModel(player,95)
				end
			elseif getElementData(player,"humanity") >= 4000 then
				if current == 73 or current == 179 or current == 287 then
					setElementModel(player,210)
				end
			else
				setElementModel(player,getElementData(player,"skin"))
			end
		end
	end
end
setTimer(checkBandit,20000,0)

function setElementModelFromClient(model)
    setElementModel(source,model)
    setElementData ( source, "skin", model )
end

addEvent("setElementModelFromClient",true)
addEventHandler("setElementModelFromClient",getRootElement(),setElementModelFromClient)

local infoTimer = 1200000

function outputInfo1 ()
for i, player in ipairs(getElementsByType("player")) do
	triggerClientEvent (player, "displayClientInfo", player,"Info","To accept any options in the menu on the left press 'middle mouse'",200,200,22)
end
	setTimer(outputInfo2,infoTimer,1)
end
setTimer(outputInfo1,infoTimer,1)

function outputInfo2 ()
for i, player in ipairs(getElementsByType("player")) do
	triggerClientEvent (player, "displayClientInfo", player,"Info","Press 'o' to open the Support chat, hide youself first",200,200,22)
end
	setTimer(outputInfo3,infoTimer,1)
end

function outputInfo3 ()
for i, player in ipairs(getElementsByType("player")) do
	triggerClientEvent (player, "displayClientInfo", player,"Info","Visit our Community: www.facebook.com/MTA DayZ:Retribution",200,200,22)
end
	setTimer(outputInfo4,infoTimer,1)
end

function outputInfo4 ()
for i, player in ipairs(getElementsByType("player")) do
	triggerClientEvent (player, "displayClientInfo", player,"Info","You can enable/disable the 'Debugmonitor' using F5",200,200,22)
end
	setTimer(outputInfo5,infoTimer,1)
end

function outputInfo5 ()
for i, player in ipairs(getElementsByType("player")) do
	triggerClientEvent (player, "displayClientInfo", player,"Info","DayZ Team Member online: "..getTeamMemberOnline(),200,200,22)
end
	setTimer(outputInfo6,infoTimer,1)
end

function outputInfo6 ()
for i, player in ipairs(getElementsByType("player")) do
	triggerClientEvent (player, "displayerClientInfo", player,"Info","Combat log/Duping/item glitchting/buguse is forbidden!",200,200,22)
end
	setTimer(outputInfo1,infoTimer,1)
end

function getTeamMemberOnline ()
	theTableMembersOnline = ""
	for i,player in ipairs(getElementsByType("player")) do
		local account = getPlayerAccount(player)
		if not isGuestAccount(account) then
			if getElementData(player,"supporter") or getElementData(player,"moderator") or getElementData(player,"smoderator") or getElementData(player,"admin") or getElementData(player,"sadmin") or getElementData(player,"smanager") or getElementData(player, "co-owner")  or getElementData(player, "owner") or getElementData(player, "communitysupporter") or getElementData(player, "communityfounder")  then
				theTableMembersOnline = theTableMembersOnline..","..getPlayerName(player)
			end
		end
	end
	if theTableMembersOnline == "" then
		return "None"
	else
		return theTableMembersOnline
	end
end

--player Wildcard
function getPlayerWildcard(namePart)
    namePart = string.lower(namePart)
    
    local bestaccuracy = 0
    local foundPlayer, b, e
    for _,player in ipairs(getElementsByType("player")) do
        b,e = string.find(string.lower(string.gsub(getPlayerName(player), "#%x%x%x%x%x%x", "")), namePart)
        if b and e then
            if e-b > bestaccuracy then
                bestaccuracy = e-b
                foundPlayer = player
            end
        end
    end
    
    if (foundPlayer) then
        return foundPlayer
    else
        return false
    end
end

---------------------Set Admin/Supporter--------------------------------------------------
function setGroup (playersource,command,teamName,targetString)
	if (isObjectInACLGroup("user." ..getAccountName(getPlayerAccount(playersource)), aclGetGroup("Admin")))  then
		local foundTargetPlayer = getPlayerWildcard(targetString)
		if (foundTargetPlayer) then
			--Team Strings Rework 
			if teamName == "supporter" or teamName == "communityfounder" or teamName == "communitysupporter" or teamName == "moderator" or teamName == "smoderator" or teamName == "admin" or teamName == "sadmin" or teamName == "smanager" or teamName == "owner" or teamName == "VIP" or teamName == "remove" then 
				--nüx
			else
				outputChatBox ("#FFFFFF Nutze follgendes:",playersource,27, 89, 224,true)
				outputChatBox ("#FFFFFF supporter / moderator / communitysupporter / communityfounder / smoderator / admin / sadmin / smanager / owner / VIP / remove",playersource,27, 89, 224,true)
				return
			end
			--Set Player to Teams
			if teamName == "remove" then
				value = false
				account = getPlayerAccount(foundTargetPlayer)
				setAccountData(account,"owner",value)
				setAccountData(account,"co-owner",value)				
				setAccountData(account,"communitysupporter",value)
				setAccountData(account,"smanager",value)
				setAccountData(account,"sadmin",value)
				setAccountData(account,"admin",value)
				setAccountData(account,"smoderator",value)
				setAccountData(account,"moderator",value)
				setAccountData(account,"supporter",value)
				setElementData(foundTargetPlayer,"owner",value)
				setElementData(foundTargetPlayer,"co-owner",value)				
				setElementData(foundTargetPlayer,"smanager",value)
				setElementData(foundTargetPlayer,"sadmin",value)
				setElementData(foundTargetPlayer,"admin",value)
				setElementData(foundTargetPlayer,"smoderator",value)
				setElementData(foundTargetPlayer,"moderator",value)
				setElementData(foundTargetPlayer,"supporter",value)
			else
				value = true
			end
			account = getPlayerAccount(foundTargetPlayer)
			accountname = getAccountName(account)
			setAccountData(account,teamName,value)
			setElementData(foundTargetPlayer,teamName,value)
			if value == true then
				outputChatBox ("#FFFFFF"..getPlayerName (foundTargetPlayer).." #FF0000 is now a "..teamName,getRootElement(),27, 89, 224,true)
			else
				outputChatBox ("#FFFFFF"..getPlayerName (foundTargetPlayer).." #FF0000 was removed from his admin rank.",getRootElement(),27, 89, 224,true)
			end
		else
			outputChatBox ("#FFFFFF Spieler nicht gefunden",playersource,27, 89, 224,true)		
		end	
	end
end
addCommandHandler("add",setGroup)

function banPLayer (playersource,command,targetString,banTime,reason)
    if getAccountData(getPlayerAccount(playersource),"admin") == true  then
        local foundTargetPlayer = getPlayerWildcard(targetString)
        local banTime = banTime or 0
        local reason = reason or "Unknown"
        if (foundTargetPlayer) then
            local account = getPlayerAccount()
            local ip = getPlayerIP(foundTargetPlayer)
            local serial = getPlayerSerial(foundTargetPlayer)
            local name = getPlayerName(foundTargetPlayer)
            kickPlayer(foundTargetPlayer,playersource,reason)
            addBan (ip,name,serial,playersource,reason,banTime*86400)
            outputChatBox ("#FFFFFF"..name.." #FF0000 was banned for "..banTime.." Day(Z)'s.",getRootElement(),27, 89, 224,true)
        else
            outputChatBox ("##FFFFFF Target not found.",playersource,27, 89, 224,true)     
        end
    else
        outputChatBox ("#FFFFFFyou are not admin! ",playersource,27, 89, 224,true)     
    end
end
addCommandHandler("playerban",banPLayer)

function pmsgAdmin (playersource,command,...)
    local msg = table.concat({...}, " ")
	if getAccountData(getPlayerAccount(playersource), "admin") == true or getAccountData(getPlayerAccount(playersource), "sadmin") == true or getAccountData(getPlayerAccount(playersource), "smanager") == true or getAccountData(getPlayerAccount(playersource), "owner") == true then
        outputChatBox ("[RetributionZ]"..getPlayerName(playersource)..": "..msg,getRootElement(),60,200,40,true) 
    else
        outputChatBox ("#FFFFFFyou are not admin! ",playersource,27, 89, 224,true)     
    end
end
addCommandHandler("pmsg",pmsgAdmin)

--[[
function SideChannel (playersource,command,...)
    local msg5 = table.concat({...}, " ")
    if cmd == "sidechannel" then
        outputChatBox ("[SIDE CHANNEL]"..getPlayerName(playersource)..":" ..msg,getRootElement(),100,149,237,true)
    else
        outputChatBox ("#FFFFFFSide Channel is disabled!",playersource,27,89,224,true)
    end
end
addCommandHandler("sidechannel", SideChannel)
bindKey(source,"g","down",SideChannel)
]]
    
botSupportTable = {
--Website
{"website","what","","The URL is: www.community.vavegames.net.","","James"},
{"website","where","","The URL is: www.community.vavegames.net.","","James"},
{"website","which","","The URL is: www.community.vavegames.net.","","James"},
{"website","how","","The URL is: www.community.vavegames.net.","","James"},
{"website","got","","The URL is: www.community.vavegames.net.","","James"},
{"website","know","","The URL is: www.community.vavegames.net.","","James"},
--Chat
{"hey","james","","Hey.","","James"},
{"hey","paul","","Yo!.","","Paul"},
{"hey","sandra","","Hello.","","Sandra"},
{"how are","you","james","I am fine, thank you.","","James"},
{"how are","you","paul","Feeling absolutely splendid today, why, thanks!","","Paul"},
{"how are","you","sandra","I am perfectly fine.","","Sandra"},
{"i love","you","sandra","ERROR: Can't access emotions.exe.","Thanks.","Sandra"},
{"thank","you","james","You are welcome.","","James"},
{"thank","paul","you","Hey, that's my job!","","Paul"},
{"thank","sandra","you","You are welcome.","","Sandra"},
--IngameHelp (james)
{"how","use","map","Press F11 to use the map.","","James"},
{"how","use","gps","The GPS activates automatically. You can see it at the lower left corner.","","James"},
{"how","take","items","Press 'J' to open your inventory. Alternatively, you can press the middle mouse button or '-' to pick items up.","","James"},
{"how","open","inven","By pressing 'J', you can open your inventory.","","James"},
--Cyxno
{"drop","item","","Press 'J' to open your inventory, select the item you want to drop and press the arrow pointing to the left.","","Paul"},
{"fuel","car","how","You need an 'Empty Gas Canister'. You can fill it at a gas station.","","Sandra"},
{"pick","items","how","Press the middle mouse button (or '-') when the name of the item is written on the left of your screen.","","Sandra"},
{"fence","wire","destroy","You need a toolbox to destroy a wirefence.","","James"},
{"register","how","to","You need to fill in your name and password. Afterwards, press 'Register'. If it doesn't work, reconnect.","","James"},
{"bugged","stuck","help","Wait until an admin contacts and helps you.","","Sandra"},
--Marwin
{"radio","chat","","Press 'Z' to use the radio device.","","James"},
}



function botCheck (text,player)
    for i, data in ipairs(botSupportTable) do
         if string.find(text:lower(), data[1]:lower(), 1, true) and string.find(text:lower(), data[2]:lower(), 1, true) and string.find(text:lower(), data[3]:lower(), 1, true) then
            answere = data[4]
            if data[5] ~= "" then
                local randomNumber = math.random(4,5)
                answere = data[randomNumber]
            end
            setTimer(onServerSupportChatMessage,math.random(3000,6000),1,data[6],string.gsub(getPlayerName ( player ), '#%x%x%x%x%x%x', '')..", "..answere)
        end
    end 
end

function onServerSupportChatMessage (player2,text)
notGoOn = false
mutedmessage = false
for i, player in ipairs(getElementsByType("player")) do
	if player2 == "Sandra" or player2 == "James" or player2 == "Paul" then
		triggerClientEvent(player,"onSupportChatMessage",player,player2,text)
		notGoOn = true
	elseif getElementData(player, "supporter") == true or getElementData(player, "moderator") == true or getElementData(player, "smoderator") == true or getElementData(player, "admin") == true or getElementData(player, "sadmin") == true or getElementData(player, "smanager") == true or getElementData(player, "owner") == true or getElementData(player, "communitysupporter") == true or getElementData(player, "communityfounder") == true then
	if not getElementData(player2,"owner") then
			if not getElementData(player2, "smanager") then
				if not getElementData(player2, "sadmin") then
					if not getElementData(player2,"admin") then
						if not getElementData(player2,"smoderator") then
							if not getElementData(player2,"moderator") then
								if not getElementData(player2,"supporter") then
									if not getElementData(player2,"co-owner") then
										if not getElementData(player2,"communitysupporter") then
											if not isPlayerMuted(player2) then
												outputChatBox("#2200ddNew Support Message from "..getPlayerName(player2),player,255,255,255,true)
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
	if not notGoOn then
		if not isPlayerMuted(player2) then
			triggerClientEvent(player,"onSupportChatMessage",player,player2,text)
		else
			mutedmessage = true
		end
	end	
end	
if not notGoOn then
botCheck(text,player2)
end
if mutedmessage then
	outputChatBox("#2200ddYou are Muted",player2,255,255,255,true)
end
end
addEvent("onServerSupportChatMessage",true)
addEventHandler("onServerSupportChatMessage", getRootElement(),onServerSupportChatMessage)

--Weapon Property

setWeaponProperty ("m4","poor","maximum_clip_ammo",30)
setWeaponProperty ("m4","std","maximum_clip_ammo",30)
setWeaponProperty ("m4","pro","maximum_clip_ammo",30)
setWeaponProperty ("M249 SAW","poor","maximum_clip_ammo",100)
setWeaponProperty ("M249 SAW","std","maximum_clip_ammo",100)
setWeaponProperty ("M249 SAW","pro","maximum_clip_ammo",100)
setWeaponProperty("M240", "pro", "maximum_clip_ammo", 100)
setWeaponProperty("MK48", "pro", "flags", 0x000800) 
setWeaponProperty("MK48", "pro", "flags", 0x000002) 
setWeaponProperty("MK48", "pro", "maximum_clip_ammo", 100) 

function kickPLayer (playersource,command,targetString,banTime,reason)
    if getAccountData(getPlayerAccount(playersource),"admin") == true  then
        for i,player in ipairs(getElementsByType("player")) do
            if player ~= playersource then
                kickPlayer(player,"Server Script Restart, #Hotfix")
            end
        end
    else
    outputChatBox ("#FFFFFFyou are not admin! ",playersource,27, 89, 224,true)     
    end
end
addCommandHandler("kickplayer",banPLayer)

function kickAll (playersource,command,reason)
    if (isObjectInACLGroup("user." ..getAccountName(getPlayerAccount(playersource)), aclGetGroup("Admin")))  then
        for i, player in ipairs(getElementsByType("player")) do
            if player == playersource then break end 
            kickPlayer(player,reason)
        end
    else
    outputChatBox ("#you are not admin!",playersource,27, 89, 224,true)      
    end
end
addCommandHandler("kickall",kickAll)


--Supportermode
local supporterMode = {}
local foodd = {}
local thirstt = {}

function Supportermode (playersource,command)
    if getAccountData(getPlayerAccount(playersource),"supporter") == true  then
        supporterMode[playersource] = not (supporterMode[playersource] or false)
        if supporterMode[playersource] then
            setElementAlpha(playersource,0)
            setElementFrozen(playersource,true)
            foodd[playersource] = getElementData(playersource,"food")
            thirstt[playersource] = getElementData(playersource,"thirst")
        else
            setElementAlpha(playersource,255)
            setElementFrozen(playersource,false)
        end
    else
    outputChatBox ("#FFFFFFVoc� n�o � um torcedor, voc� n�o pode usar este comando!",playersource,27, 89, 224,true)     
    end
end
addCommandHandler("supportmode",Supportermode)

function StatsSupportermode ()
for i,player in ipairs(getElementsByType("player")) do
    if supporterMode[player] then
        setElementData (player,"food",foodd[player])
        setElementData (player,"thirst",thirstt[player])
    end
end 
end
setTimer(StatsSupportermode,60000,0)

function preventCommandSpam(commandName)
    if commandName == "login" or commandName == "logout" then
        cancelEvent()
    end
end
addEventHandler("onPlayerCommand", root, preventCommandSpam)

--Pingkick
--[[
function kickPlayerOnHighPing ()
	outputChatBox (getPlayerName(source).." was kicked, highping.",getRootElement(),27, 89, 224,true)	
	kickPlayer(source,"Your Ping was straight to high.")
end
addEvent("kickPlayerOnHighPing",true)
addEventHandler("kickPlayerOnHighPing", getRootElement(),kickPlayerOnHighPing)
--]]

local handsUp = false
local siting = false
local lying = false
function funcBindHandsup ( player, key, keyState )
 if getElementData(player,"isUseMedic") == false and getElementData(player,"isEating") == false and getElementData(player,"isDrinking") == false and getElementData(player,"isSetingTent") == false and getElementData(player,"Repairing") == false then
    if not getElementData ( player, "inComa" ) then
    if handsUp then
        setPedAnimation (player,false)
        handsUp = false
    else
        if isPedInVehicle (player) then return end
        setPedAnimation (player,"BEACH","ParkSit_M_loop",-1,false,false,false,false)
        handsUp = true
    end 
    end
end
end

function funcBindSit ( player, key, keyState )
 if getElementData(player,"isUseMedic") == false and getElementData(player,"isEating") == false and getElementData(player,"isDrinking") == false and getElementData(player,"isSetingTent") == false and getElementData(player,"Repairing") == false then
    if not getElementData ( player, "inComa" ) then
    if siting then
        setPedAnimation (player,false)
        siting = false
    else
        if isPedInVehicle (player) then return end
        setPedAnimation (player,"SHOP","SHP_Rob_HandsUp",-1,false,false,false,false)
        siting = true
    end 
    end
 end
end

function funcBindLie ( player, key, keyState )
if getElementData(player,"isUseMedic") == false and getElementData(player,"isEating") == false and getElementData(player,"isDrinking") == false and getElementData(player,"isSetingTent") == false and getElementData(player,"Repairing") == false then
    if not getElementData ( player, "inComa" ) then
    if lying then
        setPedAnimation (player,false)
        lying = false
    else
        if isPedInVehicle (player) then return end
        setPedAnimation (player, "PARACHUTE", "FALL_skyDive_DIE", -1, false, false, false, true)
        lying = true
        function setVisibility()
            value = 0
        end
    end
    end
 end
end
 
function bindTheKeys ()
  bindKey(source,",","down",funcBindHandsup)
  bindKey(source,".","down",funcBindSit)
  bindKey(source,"l","down",funcBindLie)
end
addEventHandler("onPlayerLogin", getRootElement(), bindTheKeys)

------------HUD..
function quitar ( )
    setPlayerHudComponentVisible (source, "health", false )
    setPlayerHudComponentVisible (source, "money", false )
    setPlayerHudComponentVisible (source, "clock", false )
    setPlayerHudComponentVisible (source, "weapon", false )
    setPlayerHudComponentVisible (source, "ammo", false)
    setPlayerHudComponentVisible (source, "money", false )
    setPlayerHudComponentVisible (source, "wanted", false )
    setPlayerHudComponentVisible (source, "crosshair", true ) 
    end
addEventHandler ( "onPlayerJoin", getRootElement(), quitar )
addEventHandler ( "onResourceStart", getRootElement(), quitar )
------------HUD..

function makeRadioStayOff()
    setRadioChannel(0)
    cancelEvent()
end
addEventHandler("onClientPlayerVehicleEnter",getRootElement(),makeRadioStayOff)
addEventHandler("onClientPlayerRadioSwitch",getRootElement(),makeRadioStayOff)

function onPlayerHideBody()
    local col = getElementData(source,"currentCol")
    if getElementData(source,"Shovel") >= 1 then
        if isElement (col) then
            if getElementData(col,"deadman") then
                setElementData(source,"loot",false)
                setElementData(source,"currentCol",false)
                setTimer(function(colision)
                    if isElement (getElementData(colision,"parent")) then
                        destroyElement(getElementData(colision,"parent"))
                    end
                    destroyElement(colision)
                end,2000,1,col)
            end 
        end
    end
end
addEvent("onPlayerHideBody",true)
addEventHandler("onPlayerHideBody",getRootElement(),onPlayerHideBody)

sorry forgot :3

2 hours ago, loki2143 said:

Those are not real weapons.

What you are trying to do is impossible because an M240 is just an M4 with a mod.

setWeaponProperty is a server sided script meaning it will change for every weapon type.

For example if someone has M4 and another person has M240 they will both have 100 rounds in their clip.

but,why in other server its works?

Sign In

Set Weapon Property

Recommended Posts

R41N

Link to comment

..:D&G:..

Link to comment

Mr.Loki

Link to comment

R41N

Link to comment

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

Activity

MTA Network

Social Media