Code:
function Silver_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998002) > 0 then
pMnit:RegisterEvent("CardrunSilver_onuse", 11000, 0)
pMisc:RemoveItem(998002)
pMisc:SendChatMessage(14,0,plr:GetName()..", Thank you for your purchase!")
pMisc:PlaySoundToSet(11897)
end
end
RegisterGameObjectEvent(999000, 2, "Silver_OnUse")
RegisterGameObjectEvent(999001, 2, "Silver_OnUse")
RegisterGameObjectEvent(999002, 2, "Silver_OnUse")
RegisterGameObjectEvent(999003, 2, "Silver_OnUse")
RegisterGameObjectEvent(999004, 2, "Silver_OnUse")
function Silver2_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998002) > 1 then
pMnit:RegisterEvent("CardrunSilver_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunSilver_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunSilver2_onuse", 11000, 0)
pMisc:RemoveItem(998002)
pMisc:RemoveItem(998002)
pMisc:SendChatMessage(14,0,plr:GetName()..", Thank you for your purchase!")
pMisc:PlaySoundToSet(11897)
end
end
RegisterGameObjectEvent(999005, 2, "Silver2_OnUse")
RegisterGameObjectEvent(999006, 2, "Silver2_OnUse")
RegisterGameObjectEvent(999007, 2, "Silver2_OnUse")
RegisterGameObjectEvent(999008, 2, "Silver2_OnUse")
function Silver3_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998001) > 2 then
pMnit:RegisterEvent("CardrunSilver_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunSilver_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunSilver2_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunSilver_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunSilver2_onuse", 11000, 0)
pMisc:RemoveItem(998002)
pMisc:RemoveItem(998002)
pMisc:RemoveItem(998002)
pMisc:SendChatMessage(14,0,plr:GetName()..", Thank you for your purchase!")
pMisc:PlaySoundToSet(11897)
end
end
RegisterGameObjectEvent(999009, 2, "Silver3_OnUse")
RegisterGameObjectEvent(999010, 2, "Silver3_OnUse")
RegisterGameObjectEvent(999011, 2, "Silver3_OnUse")
function CardrunSilver_onuse(pUnit, Event)
cardgive = math.random (1 , 25)
if cardgive == 1 then
pMisc:AddItem(123000)
end
if cardgive == 2 then
pMisc:AddItem(123001)
end
if cardgive == 3 then
pMisc:AddItem(123002)
end
if cardgive == 4 then
pMisc:AddItem(123003)
end
if cardgive == 5 then
pMisc:AddItem(123004)
end
if cardgive == 6 then
pMisc:AddItem(123005)
end
if cardgive == 7 then
pMisc:AddItem(123006)
end
if cardgive == 8 then
pMisc:AddItem(123007)
end
if cardgive == 9 then
pMisc:AddItem(123008)
end
if cardgive == 10 then
pMisc:AddItem(123009)
end
if cardgive == 11 then
pMisc:AddItem(123010)
end
if cardgive == 12 then
pMisc:AddItem(123011)
end
if cardgive == 13 then
pMisc:AddItem(123012)
end
if cardgive == 14 then
pMisc:AddItem(123013)
end
if cardgive == 15 then
pMisc:AddItem(123014)
end
if cardgive == 16 then
pMisc:AddItem(123015)
end
if cardgive == 17 then
pMisc:AddItem(123016)
end
if cardgive == 18 then
pMisc:AddItem(123017)
end
if cardgive == 19 then
pMisc:AddItem(123018)
end
if cardgive == 20 then
pMisc:AddItem(123019)
end
if cardgive == 21 then
pMisc:AddItem(123020)
end
if cardgive == 22 then
pMisc:AddItem(123021)
end
if cardgive == 23 then
pMisc:AddItem(123022)
end
if cardgive == 24 then
pMisc:AddItem(123023)
end
if cardgive == 25 then
pMnit:RegisterEvent("CardrunSilver2_onuse", 11000, 0)
end
end
function CardrunSilver2_onuse(pUnit, Event)
cardgive2 = math.random (1 , 8)
if cardgive2 == 1 then
pMisc:AddItem(123101)
end
if cardgive2 == 2 then
pMisc:AddItem(123102)
end
if cardgive2 == 3 then
pMisc:AddItem(123103)
end
if cardgive2 == 4 then
pMisc:AddItem(123104)
end
if cardgive2 == 5 then
pMisc:AddItem(123105)
end
if cardgive2 == 6 then
pMisc:AddItem(123106)
end
if cardgive2 == 7 then
pMisc:AddItem(123107)
end
if cardgive2 == 8 then
pMisc:AddItem(123108)
end
end
Code:
function gold_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998000) > 0 then
pMnit:RegisterEvent("CardrunGold_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold2_onuse", 11000, 0)
pMisc:RemoveItem(998000)
pMisc:SendChatMessage(14,0,plr:GetName()..", Thank you for your purchase!")
pMisc:PlaySoundToSet(11897)
end
end
RegisterGameObjectEvent(999000, 2, "gold_OnUse")
function gold_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998000) > 1 then
pMnit:RegisterEvent("CardrunGold_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold2_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold2_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold3_onuse", 11000, 0)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:SendChatMessage(14,0,plr:GetName()..", Thank you for your purchase!")
pMisc:PlaySoundToSet(11897)
end
end
RegisterGameObjectEvent(999001, 2, "gold2_OnUse")
function gold_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998000) > 2 then
pMnit:RegisterEvent("CardrunGold4_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold2_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold3_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold4_onuse", 11000, 0)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:SendChatMessage(14,0,plr:GetName()..", Thank you for your purchase!")
pMisc:PlaySoundToSet(11897)
end
end
RegisterGameObjectEvent(999002, 2, "gold3_OnUse")
function gold_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998000) > 4 then
pMnit:RegisterEvent("CardrunGold_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold1_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold2_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold3_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold4_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold5_onuse", 11000, 0)
pMnit:RegisterEvent("CardrunGold6_onuse", 11000, 0)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:SendChatMessage(14,0,plr:GetName()..", Thank you for your purchase!")
pMisc:PlaySoundToSet(11897)
end
end
RegisterGameObjectEvent(999003, 2, "gold3_OnUse")
function CardrunGold_onuse(pUnit, Event)
cardgiveg1 = math.random (1 , 25)
if cardgiveg1 == 1 then
pMisc:AddItem(123000)
end
if cardgiveg1 == 2 then
pMisc:AddItem(123001)
end
if cardgiveg1 == 3 then
pMisc:AddItem(123002)
end
if cardgiveg1 == 4 then
pMisc:AddItem(123003)
end
if cardgiveg1 == 5 then
pMisc:AddItem(123004)
end
if cardgiveg1 == 6 then
pMisc:AddItem(123005)
end
if cardgiveg1 == 7 then
pMisc:AddItem(123006)
end
if cardgiveg1 == 8 then
pMisc:AddItem(123007)
end
if cardgiveg1 == 9 then
pMisc:AddItem(123008)
end
if cardgiveg1 == 10 then
pMisc:AddItem(123009)
end
if cardgiveg1 == 11 then
pMisc:AddItem(123010)
end
if cardgiveg1 == 12 then
pMisc:AddItem(123011)
end
if cardgiveg1 == 13 then
pMisc:AddItem(123012)
end
if cardgiveg1 == 14 then
pMisc:AddItem(123013)
end
if cardgiveg1 == 15 then
pMisc:AddItem(123014)
end
if cardgiveg1 == 16 then
pMisc:AddItem(123015)
end
if cardgiveg1 == 17 then
pMisc:AddItem(123016)
end
if cardgiveg1 == 18 then
pMisc:AddItem(123017)
end
if cardgiveg1 == 19 then
pMisc:AddItem(123018)
end
if cardgiveg1 == 20 then
pMisc:AddItem(123019)
end
if cardgiveg1 == 21 then
pMisc:AddItem(123020)
end
if cardgiveg1 == 22 then
pMisc:AddItem(123021)
end
if cardgiveg1 == 23 then
pMisc:AddItem(123022)
end
if cardgiveg1 == 24 then
pMisc:AddItem(123023)
end
if cardgiveg1 == 25 then
pMnit:RegisterEvent("CardrunGold2_onuse", 11000, 0)
end
end
function CardrunGold2_onuse(pUnit, Event)
cardgiveg12 = math.random (1 , 8)
if cardgiveg12 == 1 then
pMisc:AddItem(123101)
end
if cardgiveg12 == 2 then
pMisc:AddItem(123102)
end
if cardgiveg12 == 3 then
pMisc:AddItem(123103)
end
if cardgiveg12 == 4 then
pMisc:AddItem(123104)
end
if cardgiveg12 == 5 then
pMisc:AddItem(123105)
end
if cardgiveg12 == 6 then
pMisc:AddItem(123106)
end
if cardgiveg12 == 7 then
pMisc:AddItem(123107)
end
if cardgiveg12 == 8 then
pMisc:AddItem(123108)
end
end
function CardrunGold3_onuse(pUnit, Event)
cgg2 = math.random (1 , 8)
if cgg2 == 1 then
pMisc:AddItem(123109)
end
if cgg2 == 2 then
pMisc:AddItem(123110)
end
if cgg2 == 3 then
pMisc:AddItem(123111)
end
if cgg2 == 4 then
pMisc:AddItem(123112)
end
if cgg2 == 5 then
pMisc:AddItem(123113)
end
if cgg2 == 6 then
pMisc:AddItem(123114)
end
if cgg2 == 7 then
pMisc:AddItem(123115)
end
if cgg2 == 8 then
pMisc:AddItem(123116)
end
end
function CardrunGold4_onuse(pUnit, Event)
cgg3 = math.random (1 , 8)
if cgg3 == 1 then
pMisc:AddItem(123117)
end
if cgg3 == 2 then
pMisc:AddItem(123118)
end
if cgg3 == 3 then
pMisc:AddItem(123119)
end
if cgg3 == 4 then
pMisc:AddItem(123120)
end
if cgg3 == 5 then
pMisc:AddItem(123121)
end
if cgg3 == 6 then
pMisc:AddItem(123122)
end
if cgg3 == 7 then
pMisc:AddItem(123123)
end
if cgg3 == 8 then
pMisc:AddItem(123124)
end
end
function CardrunGold5_onuse(pUnit, Event)
cgg4 = math.random (1 , 8)
if cgg4 == 1 then
pMisc:AddItem(123125)
end
if cgg4 == 2 then
pMisc:AddItem(123126)
end
if cgg4 == 3 then
pMisc:AddItem(123127)
end
if cgg4 == 4 then
pMisc:AddItem(123128)
end
if cgg4 == 5 then
pMisc:AddItem(123129)
end
if cgg4 == 6 then
pMisc:AddItem(123130)
end
if cgg4 == 7 then
pMisc:AddItem(123131)
end
if cgg4 == 8 then
pMisc:AddItem(123132)
end
end
function CardrunGold6_onuse(pUnit, Event)
cggmaster = math.random (1 , 8)
if cggmaster == 1 then
pMisc:AddItem(123133)
end
if cggmaster == 2 then
pMisc:AddItem(123134)
end
if cggmaster == 3 then
pMisc:AddItem(123135)
end
if cggmaster == 4 then
pMisc:AddItem(123136)
end
if cggmaster == 5 then
pMisc:AddItem(123137)
end
if cggmaster == 6 then
pMisc:AddItem(123138)
end
if cggmaster == 7 then
pMisc:AddItem(123139)
end
if cggmaster == 8 then
pMisc:AddItem(123140)
end
end
Bookmarks