PDA

View Full Version : Runikers Casino



runiker
23-12-08, 10:52 AM
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")

runiker
23-12-08, 10:53 AM
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






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

Apple
23-12-08, 10:58 AM
nice work Runiker! +Rep ;)

Ace
23-12-08, 12:15 PM
Sweet!

Easymode
23-12-08, 12:53 PM
This is c++ right?
I have to compile it too right?

runiker
23-12-08, 02:27 PM
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

Erkael
23-12-08, 03:02 PM
Good Job! Sweet ,Cool , +rep :$

KuRIoS
25-12-08, 09:34 PM
Anyone has any problems scripting, message me. I have a degree in this stuff.

havalina
10-02-09, 01:05 AM
i want this badly but have no idea how to compile it

havalina
12-02-09, 01:00 PM
Helloooo ... echo echo echo

runiker
12-02-09, 01:30 PM
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.

Lbniese
02-09-09, 12:07 PM
Please make download link and extracting and all that S&@t