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