Likes: 0
Results 1 to 10 of 12
Thread: Runikers Casino
-
23-12-08, 10:52 AM #1
Runikers Casino
Register to remove this adHello 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")
› See More: Runikers Casino
-
23-12-08, 10:53 AM #2Code:
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
-
23-12-08, 10:58 AM #3
-
23-12-08, 12:15 PM #4
Sweet!
-
23-12-08, 12:53 PM #5
c++
This is c++ right?
I have to compile it too right?
~----------------------------------------------------------------------~
-
23-12-08, 02:27 PM #6
-
23-12-08, 03:02 PM #7
Good Job! Sweet ,Cool , :$
-
25-12-08, 09:34 PM #8
Anyone has any problems scripting, message me. I have a degree in this stuff.
-
10-02-09, 01:05 AM #9
i want this badly but have no idea how to compile it
-
12-02-09, 01:00 PM #10
Register to remove this adHelloooo ... echo echo echo
Related Threads - Scroll Down after related threads if you are only interested to view replies for above post/thread
Visitors found this page by searching for:
Nobody landed on this page from a search engine, yet!
SEO Blog