Runikers Casino

**runiker** · 23-12-08, 10:53 AM

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

Thread: Runikers Casino

Thread Tools

Display

Hybrid View

Related Threads - Scroll Down after related threads if you are only interested to view replies for above post/thread

Bookmarks

Bookmarks

Posting Permissions