[LUA] Gamble script dont work :( menu

Shout-Out

User Tag List

Results 1 to 7 of 7
  1. #1
    Tikki100's Avatar 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")

    [LUA] Gamble script dont work :(
  2. #2
    Sounddead's Avatar 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

  3. #3
    Kaidos's Avatar 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)
    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

  4. #4
    MaiN's Avatar 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

  5. #5
    Kaidos's Avatar 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)
    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

  6. #6
    Sounddead's Avatar 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

  7. #7
    Tikki100's Avatar 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

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 02:00 AM. 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