dropeo de armas

[russelvelt]

tengo este pick drop de armas que tira y recoje las armas que quieras al suelo con los comandos pick y drop bueno el problema es que cuando se biendean estos dos comandos al precionarlos rapidamente se puede hacer un bug para duplicar armas cosa que se aprovechan la cosa es que quiero ponerle un setTimer para que no pase pero no se en que parte del guion ponerlo si alguien me podria guiar en que parte colocarlo

screenWidth, screenHeight = guiGetScreenSize() -- Get the screen resolution 
shrifteg = (0.015 * screenHeight) / 9 
localPlayer = getLocalPlayer() 
currentGround = nil 
elementgg = {} 
gta4markers = false 
  
weaponmarkercolors = { 
    [0] = {255,255,255}, 
    [1] = {100,100,255}, 
    [2] = {0,230,0}, 
    [3] = {0,150,0}, 
    [4] = {255,255,0}, 
    [5] = {255,204,0}, 
    [6] = {150,0,150}, 
    [7] = {255,0,255}, 
    [8] = {0,0,255}, 
    [9] = {204,255,255}, 
    [10] = {255,100,100}, 
    [11] = {255,255,255}, 
    [12] = {255,255,255} 
} 
  
slots = { 
    [1] = 0, 
    [2] = 1,[3] = 1,[4] = 1,[5] = 1,[6] = 1,[7] = 1,[8] = 1,[9] = 1, 
    [24] = 2,[23] = 2,[22] = 2, 
    [25] = 3,[26] = 3,[27] = 3, 
    [29] = 4,[32] = 4,[28] = 4, 
    [30] = 5,[31] = 5, 
    [33] = 6,[34] = 6, 
    [35] = 7,[36] = 7,[37] = 7,[38] = 7, 
    [16] = 8,[17] = 8,[18] = 8,[39] = 8, 
    [41] = 9,[42] = 9,[43] = 9, 
    [10] = 10,[11] = 10,[12] = 10,[13] = 10,[14] = 10,[15] = 10, 
    [44] = 11,[45] = 11,[46] = 11, 
    [40] = 12 
} 
  
weaponsIDS = { 
    --0 
    [1] = 331, 
    --1 
    [2] = 333, 
    [3] = 334, 
    [4] = 335, 
    [5] = 336, 
    [6] = 337, 
    [7] = 338, 
    [8] = 339, 
    [9] = 341, 
    --2 
    [22] = 346, 
    [23] = 347, 
    [24] = 348, 
    --3 
    [25] = 349, 
    [26] = 350, 
    [27] = 351, 
    --4 
    [28] = 352, 
    [29] = 353, 
    [32] = 372, 
    --5 
    [30] = 355, 
    [31] = 356, 
    --6 
    [33] = 357, 
    [34] = 358, 
    --7 
    [35] = 359, 
    [36] = 360, 
    [37] = 361, 
    [38] = 362, 
    --8 
    [16] = 342, 
    [17] = 343, 
    [18] = 344, 
    [39] = 363, 
    --9 
    [41] = 365, 
    [42] = 366, 
    [43] = 367, 
    --10 
    [10] = 321, 
    [11] = 322, 
    [12] = 323, 
    [13] = 324, 
    [14] = 325, 
    [15] = 326, 
    --11 
    [44] = 368, 
    [45] = 369, 
    [46] = 371, 
    --12 
    [40] = 364 
} 
  
function client_createGroundWeapon(groundweapon) 
    if(elementgg[groundweapon] == nil) then 
        local temp = createColSphere(tonumber(getElementData(groundweapon, "posX")),tonumber(getElementData(groundweapon, "posY")),tonumber(getElementData(groundweapon, "posZ"))+0.5, 1) 
        --[[local temp = createColCuboid(tonumber(getElementData(groundweapon, "posX"))-0.5, 
        tonumber(getElementData(groundweapon, "posY"))-0.5, 
        tonumber(getElementData(groundweapon, "posZ"))-1, 
        1,1,2)]] 
         
        setElementData(temp, "colshape.groundweapon", groundweapon) 
        setElementData(temp, "colshape.weaponid", tonumber(getElementData(groundweapon, "weaponid"))) 
        setElementData(temp, "colshape.ammo", tonumber(getElementData(groundweapon, "ammo"))) 
        setElementData(temp, "colshape.clip", tonumber(getElementData(groundweapon, "clip"))) 
        elementgg[groundweapon] = temp 
        local slot = slots[tonumber(getElementData(groundweapon, "weaponid"))] 
  
        --createObject 
        local object = createObject(weaponsIDS[tonumber(getElementData(groundweapon, "weaponid"))], 
        tonumber(getElementData(groundweapon, "posX")),tonumber(getElementData(groundweapon, "posY")),tonumber(getElementData(groundweapon, "posZ")), 
        tonumber(getElementData(groundweapon, "rotX")),tonumber(getElementData(groundweapon, "rotY")),tonumber(getElementData(groundweapon, "rotZ"))) 
        setElementFrozen(object, true) 
        setElementCollisionsEnabled(object, false) 
  
        setElementInterior(object, tonumber(getElementData(groundweapon, "interior"))) 
        setElementDimension(object, tonumber(getElementData(groundweapon, "dimension"))) 
         
        setElementData(temp, "colshape.object", object) 
  
         
    end 
end 
  
function client_destroyGroundWeapon(groundweapon) 
    local col = elementgg[groundweapon] 
    local object = getElementData(col, "colshape.object") 
    local marker = getElementData(col, "colshape.marker") 
    if(isElement(object)) then destroyElement(object) end 
    if(isElement(marker)) then destroyElement(marker) end 
    if(isElement(col)) then destroyElement(col) end 
    elementgg[groundweapon] = nil 
end 
  
function pickupCurrentWeapon() 
    if(isElement(currentGround)) then 
        playSound( "pickup.wav", false ) 
        local weaponid = getElementData(currentGround, "colshape.weaponid") 
        local ammo = getElementData(currentGround, "colshape.ammo") 
        local clip = getElementData(currentGround, "colshape.clip") 
  
        if(getPedWeapon(localPlayer, slots[weaponid]) ~= 0) then dropWeapon(slots[weaponid]) end 
         
        if(ammo) then 
            local groundweapon = getElementData(currentGround, "colshape.groundweapon") 
            callServerFunction("destroyElement", groundweapon) 
            callServerFunction("giveWeapon", localPlayer, weaponid, ammo, true) 
            callServerFunction("setWeaponAmmo", localPlayer, weaponid, ammo, clip) 
            for i,p in ipairs(getElementsByType("colshape")) do 
                if(isElementWithinColShape(localPlayer, p) == true) then 
                    local_activate(p, localPlayer,true) 
                    break 
                end 
            end 
        end 
    end 
end 
  
function dropWeapon(slot) 
    if(slot > 0) then 
        local weaponid = getPedWeapon(localPlayer, slot) 
        if(weaponid ~= 0) then 
        playSound( "pickup.wav", false ) 
            callServerFunction("takeWeapon", localPlayer, weaponid) 
            local x,y,z = getElementPosition(localPlayer) 
            local hit, hitX, hitY, hitZ, as = processLineOfSight(x, y, z, x, y, -3000, true, false, false, true, false, false, false, false) 
            if(hit) then z = hitZ 
            else z = z - 0.95 end 
            callServerFunction("createGroundWeapon", weaponid, getPedTotalAmmo(localPlayer), getPedAmmoInClip(localPlayer), x,y,z, 97.3,120,math.random(0,359),getElementInterior(localPlayer),getElementDimension(localPlayer)) 
        end 
    end 
end 
  
function local_activate(shape, element,dimension) 
    if(element == localPlayer) then 
        --local groundweapon = getElementData(shape, "colshape.groundweapon") 
        --local object = getElementData(shape, "colshape.object") 
        --local marker = getElementData(shape, "colshape.marker") 
        currentGround = shape 
    end 
end 
  
addEventHandler("onClientResourceStart", getRootElement(), 
    function(startedRes) 
        if(startedRes == getThisResource()) then 
            bindKey("", "down", "pickup/swap weapon") 
            bindKey("", "down", "drop weapon") 
        else 
            for i,p in pairs(getElementsByType("groundweapon")) do --getResourceRootElement(startedRes) 
                client_createGroundWeapon(p) 
            end 
        end 
    end 
) 
  
addEventHandler("onClientResourceStop", getResourceRootElement(), 
    function(startedRes) 
        for i,p in pairs(getElementsByType("groundweapon")) do 
            client_destroyGroundWeapon(p) 
        end 
    end 
) 
  
  
  
  
  
addEventHandler("onClientElementDestroy", getRootElement(), 
    function() 
        if(getElementType(source) == "groundweapon") then 
            client_destroyGroundWeapon(source) 
        end 
    end 
) 
  
addEventHandler("onClientColShapeHit", getResourceRootElement(), 
    function(element,dimension) 
        local_activate(source, element,dimension) 
    end 
) 
  
addEventHandler("onClientColShapeLeave", getResourceRootElement(), 
    function(element,dimension) 
        if(element == localPlayer) then 
            currentGround = nil 
            for i,p in ipairs(getElementsByType("colshape")) do 
                if(isElementWithinColShape(localPlayer, p) == true) then 
                    local_activate(p, localPlayer,true) 
                    break 
                end 
            end 
        end 
    end 
) 
  
addCommandHandler("pick", function() pickupCurrentWeapon() end) 
  
addCommandHandler("drop", function() dropWeapon(slots[getPedWeapon(localPlayer)]) end) 
  
function callServerFunction(funcname, ...) 
    local arg = { ... } 
    if (arg[1]) then 
        for key, value in next, arg do 
            if (type(value) == "number") then arg[key] = tostring(value) end 
        end 
    end