function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    sampRegisterChatCommand('give', give)
    while true do
      wait(-1)
    end
end

function give(arg)
    local money = getPlayerMoney(PLAYER_PED)
    local res, ped = sampGetCharHandleBySampPlayerId(arg)
    local x, y, z = getCharCoordinates(PLAYER_PED)
    local x1, y1, z1 = getCharCoordinates(ped)
    if money >= 1 and res then
        while getDistanceBetweenCoords3d(x, y, z, x1, y1, z1) <= 4 do wait(100) end
        sampSendChat("/pay"..arg.."5000")
    end
end
-- Кто читает помогите пжпжпжпж