[LUA] Gamble script dont work :( menu
Follow us:

User Tag List

Results 1 to 7 of 7
  1. 06-07-2009 #1
    Tikki100's Avatar
    Tikki100
    Tikki100 is offline
    Active Member
    Reputation
    50
    Join Date
    Mar 2008
    Posts
    83
    Thanks G/R
    3/1
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    [LUA] Gamble script dont work :(

    well idk what is wrong so could u look at it:?

    HTML Code:
    function Gambler_On_Gossip(unit, event, player)
unit:GossipCreateMenu(900017, player, 0)
unit:GossipMenuAddItem(5, "I will gamble 2 Donation tokens", 1, 0)
unit:GossipSendMenu(player)
end

function Gambler_Gossip_Submenus(unit, event, player, id, intid, code)

if (intid == 1) then
if (player:GetItemCount(99062) < 2) then
player:SendAreaTriggerMessage("You don't have enough coins to bet!")
else
Choice=math.random(1, 100)
if Choice==1 then
player:SendAreaTriggerMessage("You won 60 Coins! You gambling whore!")
unit:FullCastSpellOnTarget(33082, player)
unit:FullCastSpellOnTarget(33081, player)
unit:FullCastSpellOnTarget(33077, player)
unit:FullCastSpellOnTarget(33078, player)
unit:FullCastSpellOnTarget(33079, player)
unit:FullCastSpellOnTarget(33080, player)
player:AddItem(99062, 60)
end
if Choice==2 then
player:SendAreaTriggerMessage("You won 60 Coins! You gambling whore!")
unit:FullCastSpellOnTarget(33082, player)
unit:FullCastSpellOnTarget(33081, player)
unit:FullCastSpellOnTarget(33077, player)
unit:FullCastSpellOnTarget(33078, player)
unit:FullCastSpellOnTarget(33079, player)
unit:FullCastSpellOnTarget(33080, player)
player:AddItem(99062, 60)
end
if Choice==3 then
player:SendAreaTriggerMessage("You won 60 Coins! You gambling whore!")
unit:FullCastSpellOnTarget(33082, player)
unit:FullCastSpellOnTarget(33081, player)
unit:FullCastSpellOnTarget(33077, player)
unit:FullCastSpellOnTarget(33078, player)
unit:FullCastSpellOnTarget(33079, player)
unit:FullCastSpellOnTarget(33080, player)
player:AddItem(99062, 60)
end
if Choice==4 then
player:SendAreaTriggerMessage("You won 60 Coins! You gambling whore!")
unit:FullCastSpellOnTarget(33082, player)
unit:FullCastSpellOnTarget(33081, player)
unit:FullCastSpellOnTarget(33077, player)
unit:FullCastSpellOnTarget(33078, player)
unit:FullCastSpellOnTarget(33079, player)
unit:FullCastSpellOnTarget(33080, player)
player:AddItem(99062, 60)
if Choice==5 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==6 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==7 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==8 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==9 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==10 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==11 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==12 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==13 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==14 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
if Choice==15 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==16 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==17 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==18 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==19 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==20 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==21 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==22 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==23 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==24 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==25 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==26 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==27 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==28 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==29 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==30 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==31 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==32 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==33 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==34 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==35 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==36 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==37 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==38 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==39 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice=40 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==41 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==42 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==43 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==44 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==45 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==46 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==47 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==48 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==49 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==50 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==51 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==52 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==53 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==54 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==55 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==56 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==57 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==58 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==59 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==60 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice=61 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==62 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==63 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==64 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==65 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==66 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==67 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==68 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==69 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==70 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==71 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==72 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==73 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==74 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==75 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==76 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==77 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==78 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==79 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==80 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==81 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==82 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==83 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==84 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==85 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==86 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==87 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==88 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==89 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==90 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==91 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==92 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==93 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==94 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==95 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==96 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==97 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==98 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==99 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
if Choice==100 then
player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
end
end

RegisterUnitGossipEvent(98231, 1, "Gambler_On_Gossip")
RegisterUnitGossipEvent(98231, 2, "Gambler_Gossip_Submenus")
    Reply With Quote Reply With Quote
    [LUA] Gamble script dont work :(
  2. 06-07-2009 #2
    Sounddead's Avatar
    Sounddead
    Sounddead is offline
    Contributor
    Reputation
    160
    Join Date
    Sep 2007
    Posts
    1,126
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Do we get any errors on load/runtime?

    I live in a shoe
    Reply With Quote Reply With Quote
  3. 06-07-2009 #3
    Kaidos's Avatar
    Kaidos
    Kaidos is offline
    Contributor
    Reputation
    148
    Join Date
    Jun 2008
    Posts
    324
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Send a message via MSN to Kaidos
    I dont know whats wrong with it...

    Code:
    player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
player:RemoveItem(99062, 5)
    This Message fails! You loose 5 instead of 2 xD
    Reply With Quote Reply With Quote
  4. 06-07-2009 #4
    MaiN's Avatar
    MaiN
    MaiN is offline
    Elite User
    Reputation
    335
    Join Date
    Sep 2006
    Posts
    1,047
    Thanks G/R
    0/10
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Damn that code is ugly.
    I rewrote it to be a bit more clean.
    Code:
    function Gambler_Gossip_Submenus(unit, event, player, id, intid, code)
    if (intid == 1) then
        if (player:GetItemCount(99062) < 2) then
            player:SendAreaTriggerMessage("You don't have enough coins to bet!")
            return
        end
    end

    Choice=math.random(1, 100)
    if Choice >= 1 and Choice <= 4 then
        player:SendAreaTriggerMessage("You won 60 Coins! You gambling whore!")
        unit:FullCastSpellOnTarget(33082, player)
        unit:FullCastSpellOnTarget(33081, player)
        unit:FullCastSpellOnTarget(33077, player)
        unit:FullCastSpellOnTarget(33078, player)
        unit:FullCastSpellOnTarget(33079, player)
        unit:FullCastSpellOnTarget(33080, player)
        player:AddItem(99062, 60)
    else
        player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
        player:RemoveItem(99062, 2)
    end
end
    [16:15:41] Cypher: caus the CPU is a dick
    [16:16:07] kynox: CPU is mad
    [16:16:15] Cypher: CPU is all like
    [16:16:16] Cypher: whatever, i do what i want
    Reply With Quote Reply With Quote
  5. 06-07-2009 #5
    Kaidos's Avatar
    Kaidos
    Kaidos is offline
    Contributor
    Reputation
    148
    Join Date
    Jun 2008
    Posts
    324
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Send a message via MSN to Kaidos
    Originally Posted by MaiN View Post
    Damn that code is ugly.
    I rewrote it to be a bit more clean.
    Code:
    function Gambler_Gossip_Submenus(unit, event, player, id, intid, code)
    if (intid == 1) then
        if (player:GetItemCount(99062) < 2) then
            player:SendAreaTriggerMessage("You don't have enough coins to bet!")
            return
        end
    end

    Choice=math.random(1, 100)
    if Choice >= 1 and Choice <= 4 then
        player:SendAreaTriggerMessage("You won 60 Coins! You gambling whore!")
        unit:FullCastSpellOnTarget(33082, player)
        unit:FullCastSpellOnTarget(33081, player)
        unit:FullCastSpellOnTarget(33077, player)
        unit:FullCastSpellOnTarget(33078, player)
        unit:FullCastSpellOnTarget(33079, player)
        unit:FullCastSpellOnTarget(33080, player)
        player:AddItem(99062, 60)
    else
        player:SendAreaTriggerMessage("You lost 2 Coins, better luck next time!")
        player:RemoveItem(99062, 2)
    end
end

    Better way, yeah
    Reply With Quote Reply With Quote
  6. 06-07-2009 #6
    Sounddead's Avatar
    Sounddead
    Sounddead is offline
    Contributor
    Reputation
    160
    Join Date
    Sep 2007
    Posts
    1,126
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Yeah you didn't end your ifs from what I can see.. Thats a problem

    I live in a shoe
    Reply With Quote Reply With Quote
  7. 06-08-2009 #7
    Tikki100's Avatar
    Tikki100
    Tikki100 is offline
    Active Member
    Reputation
    50
    Join Date
    Mar 2008
    Posts
    83
    Thanks G/R
    3/1
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Ok well thankyou all MaiN + rep for cleaning it up and make it work :P well i'll still dont know the tricks in luas like the one you jsut made so :P
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Similar Threads

  1. [PQR] Why this Script dont work?
    By lekken in forum WoW Bots Questions & Requests
    Replies: 1
    Last Post: 05-24-2014, 11:51 AM
  2. [Lua Script] Big lua boss script not working
    By tyeeeee1 in forum WoW EMU Questions & Requests
    Replies: 0
    Last Post: 08-17-2010, 01:45 PM
  3. [lua] simple but dont work -.-
    By Tikki100 in forum WoW EMU Questions & Requests
    Replies: 3
    Last Post: 08-31-2009, 12:16 PM
  4. [HELP] Lua boss script not working-solutions?
    By WinKIller0 in forum World of Warcraft Emulator Servers
    Replies: 15
    Last Post: 03-21-2008, 08:19 AM
  5. Simple Lua Script , not working need help!
    By Arugos in forum World of Warcraft Emulator Servers
    Replies: 16
    Last Post: 12-30-2007, 02:06 PM
All times are GMT -5. The time now is 08:25 PM. Powered by vBulletin® Version 4.2.3
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved. User Alert System provided by Advanced User Tagging (Pro) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
Google Authenticator verification provided by Two-Factor Authentication (Free) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search