Runikers Casino

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.

Code:

---

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")

---

Code:

---

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")

---

Code:

---

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")

---

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

---

nice work Runiker! +Rep ;)

Sweet!

This is c++ right?
I have to compile it too right?

Quote:

---

Originally Posted by Easymode

This is c++ right?
I have to compile it too right?

---

no its lua not c++ so no compiling needed would prob work best with blua engine or one similer

Good Job! Sweet ,Cool , +rep :$

Anyone has any problems scripting, message me. I have a degree in this stuff.

i want this badly but have no idea how to compile it

Helloooo ... echo echo echo

First off you dont have to compile but i did not release my sql with it so you must creat all the items and the machines yourself.

Please make download link and extracting and all that S&@t