azerothcore_lua_scripts/lua/DinklePack_Lua/UnlimitedAmmo.lua at master · ornfelt/azerothcore_lua_scripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
-- This script was made by Dinkledork
-- Make sure you only have one type of ammo on your character
-- Updated by TurekSY

UnlimitedAmmoNamespace = {}

UnlimitedAmmoNamespace.ENABLED = false -- Set this to false to disable the script

UnlimitedAmmoNamespace.ARROW_ITEM_IDS = {3464, 2512, 2515, 3030, 9399, 10579, 11285, 19316, 18042, 12654, 28053, 24417, 33803, 24412, 28056, 30611, 31949, 34581, 30319, 32760, 31737, 41165, 41586, 52021}

UnlimitedAmmoNamespace.BULLET_ITEM_IDS = {3465, 4960, 2516, 8067, 2519, 5568, 8068, 3033, 8069, 10512, 11284, 10513, 11630, 19317, 15997, 28060, 13377, 23772, 23773, 29885, 28061, 30612, 32883, 32882, 34582, 32761, 31735, 41164, 41584, 52020}
UnlimitedAmmoNamespace.BOW_SUBCLASS_ID = 2
UnlimitedAmmoNamespace.GUN_SUBCLASS_ID = 3
UnlimitedAmmoNamespace.CROSSBOW_SUBCLASS_ID = 18
UnlimitedAmmoNamespace.MAX_AMMO = 1000 -- Maximum ammunition allowed
UnlimitedAmmoNamespace.MIN_AMMO_THRESHOLD = 52 -- Ammo count threshold to add max ammo
UnlimitedAmmoNamespace.SPELL_IDS = {75} -- Add another Spell If you want

function UnlimitedAmmoNamespace.GetArrowItemId(player)
    for _, arrowId in ipairs(UnlimitedAmmoNamespace.ARROW_ITEM_IDS) do -- arrow
        if player:HasItem(arrowId) then
            return arrowId
        end
    end
    return nil
end

function UnlimitedAmmoNamespace.GetBulletItemId(player)
    for _, bulletId in ipairs(UnlimitedAmmoNamespace.BULLET_ITEM_IDS) do -- bullet
        if player:HasItem(bulletId) then
            return bulletId
        end
    end
    return nil
end

function UnlimitedAmmoNamespace.IsRelevantSpell(spellId)
    for _, id in ipairs(UnlimitedAmmoNamespace.SPELL_IDS) do
        if spellId == id then
            return true
        end
    end
    return false
end

function UnlimitedAmmoNamespace.IsBowEquipped(player)
    local weapon = player:GetEquippedItemBySlot(17) -- 17 is the ranged weapon slot
    if weapon then
        local itemSubclass = weapon:GetSubClass()
        if itemSubclass == UnlimitedAmmoNamespace.BOW_SUBCLASS_ID then
            return true
        end
    end
    return false
end

function UnlimitedAmmoNamespace.IsGunEquipped(player)
    local weapon = player:GetEquippedItemBySlot(17) -- 17 is the ranged weapon slot
    if weapon then
        local itemSubclass = weapon:GetSubClass()
        if itemSubclass == UnlimitedAmmoNamespace.GUN_SUBCLASS_ID then
            return true
        end
    end
    return false
end

function UnlimitedAmmoNamespace.IsCrossbowEquipped(player)
    local weapon = player:GetEquippedItemBySlot(17) -- 17 is the ranged weapon slot
    if weapon then
        local itemSubclass = weapon:GetSubClass()
        if itemSubclass == UnlimitedAmmoNamespace.CROSSBOW_SUBCLASS_ID then
            return true
        end
    end
    return false
end

function UnlimitedAmmoNamespace.Ammo_OnPlayerSpellCast(event, player, spell, skipCheck)
    if not UnlimitedAmmoNamespace.ENABLED then
        return
    end

    local spellId = spell:GetEntry()
    if UnlimitedAmmoNamespace.IsRelevantSpell(spellId) then
        if UnlimitedAmmoNamespace.IsBowEquipped(player) then
            local arrowItemId = UnlimitedAmmoNamespace.GetArrowItemId(player)
            if arrowItemId then
                local currentAmmoCount = player:GetItemCount(arrowItemId)
                if currentAmmoCount < UnlimitedAmmoNamespace.MIN_AMMO_THRESHOLD then
                    player:AddItem(arrowItemId, UnlimitedAmmoNamespace.MAX_AMMO - currentAmmoCount)
                    player:RemoveItem(10579, 800)
                    player:RemoveItem(32760, 800)
                end
            end
        elseif UnlimitedAmmoNamespace.IsGunEquipped(player) then
            local bulletItemId = UnlimitedAmmoNamespace.GetBulletItemId(player)
            if bulletItemId then
                local currentAmmoCount = player:GetItemCount(bulletItemId)
                if currentAmmoCount < UnlimitedAmmoNamespace.MIN_AMMO_THRESHOLD then
                    player:AddItem(bulletItemId, UnlimitedAmmoNamespace.MAX_AMMO - currentAmmoCount)
                    player:RemoveItem(32761, 800)
                    player:RemoveItem(29885, 800)
                end
            end
        elseif UnlimitedAmmoNamespace.IsCrossbowEquipped(player) then
            local arrowItemId = UnlimitedAmmoNamespace.GetArrowItemId(player)
            if arrowItemId then
                local currentAmmoCount = player:GetItemCount(arrowItemId)
                if currentAmmoCount < UnlimitedAmmoNamespace.MIN_AMMO_THRESHOLD then
                    player:AddItem(arrowItemId, UnlimitedAmmoNamespace.MAX_AMMO - currentAmmoCount)
                    player:RemoveItem(10579, 800)
                    player:RemoveItem(32760, 800)
                end
            end
        end
    end
end

function UnlimitedAmmoNamespace.EnableScript(event, player, command, chatHandler)
    if (command:lower() == "ua") then
        UnlimitedAmmoNamespace.ENABLED = true
        player:SendBroadcastMessage("Unlimited Ammo script enabled.")
        return false -- Consumes the command, no further processing
    end
end

RegisterPlayerEvent(5, UnlimitedAmmoNamespace.Ammo_OnPlayerSpellCast)
RegisterPlayerEvent(42, UnlimitedAmmoNamespace.EnableScript)