Runikers Casino

[runiker]

Hello all this is a unfinished project but because i am no longer working for any emu i only play on them now i thought i would release this. I have got everything working BUT the gameobjects themselfs need to be made.

function blued_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998000) > 2 then
pMisc:AddItem(888000)
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(998000, 2, "blued_OnUse")

function blued2_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998000) > 4 then
pMisc:AddItem(888001)
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(998001, 2, "blued2_OnUse")

function blued2_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998000) > 9 then
pMisc:AddItem(888002)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
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(998002, 2, "blued2_OnUse")

function blued3_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998000) > 24 then
pMisc:AddItem(888003)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
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(998003, 2, "blued3_OnUse")


function blued4_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998000) > 29 then
pMisc:AddItem(888004)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
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(998004, 2, "blued4_OnUse")

function blued5_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998000) > 39 then
pMisc:AddItem(888005)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
pMisc:RemoveItem(998000)
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(998005, 2, "blued5_OnUse")

function blued6_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998001) > 0 then
pMisc:AddItem(888006)
pMisc:RemoveItem(998001)
pMisc:SendChatMessage(14,0,plr:GetName()..", Thank you for your purchase!")
pMisc:PlaySoundToSet(11897)
end
end
RegisterGameObjectEvent(998006, 2, "blued6_OnUse")

function blued7_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998001) > 1 then
pMisc:AddItem(888007)
pMisc:RemoveItem(998001)
pMisc:RemoveItem(998001)
pMisc:SendChatMessage(14,0,plr:GetName()..", Thank you for your purchase!")
pMisc:PlaySoundToSet(11897)
end
end
RegisterGameObjectEvent(998007, 2, "blued7_OnUse")

function blued8_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998001) > 1 then
pMisc:AddItem(888008)
pMisc:RemoveItem(998001)
pMisc:RemoveItem(998001)
pMisc:SendChatMessage(14,0,plr:GetName()..", Thank you for your purchase!")
pMisc:PlaySoundToSet(11897)
end
end
RegisterGameObjectEvent(998008, 2, "blued8_OnUse")

function cash_OnUse(pGameObject, Event, pMisc)
if pMisc:GetItemCount(998000) > 0 then

cashmaster = math.random (1 , 8)
    if cashmaster == 1 then 
        pMisc:AddItem(998000)
    end
    if cashmaster == 2 then 
    end
    if cashmaster == 3 then 
        pMisc:AddItem(998000)
    end
    if cashmaster == 4 then 
        pMisc:AddItem(998000)
    end
    if cashmaster == 5 then 
    end
    if cashmaster == 6 then 
        pMisc:AddItem(998000)
        pMisc:AddItem(998000)
        pMisc:AddItem(998000)
    end
    if cashmaster == 7 then 
        pMisc:AddItem(998000)
        pMisc:AddItem(998000)
    end
    if cashmaster == 8 then 
        pMisc:AddItem(998001)
    end
end
pMisc:RemoveItem(998000)
pMisc:SendChatMessage(14,0,plr:GetName()..", Thank you for your purchase!")
pMisc:PlaySoundToSet(11897)
end
end
RegisterGameObjectEvent(999015, 2, "cash_OnUse")