Lottery Lua Unique

[Sandile]

function On_Gossip(unit, event, player)
local NPCID = 198768
local ITEMID = 32569
unit:RemoveEvents()
if (player:IsInCombat() == true) then
player:SendAreaTriggerMessage("Sorry, you have to leave combat first!")
else  
unit:GossipCreateMenu(100, player, 0)
unit:GossipMenuAddItem(5, "Bet 1 Coin", 1, 0)
unit:GossipMenuAddItem(5, "Bet 2 Coins", 2, 0) 
unit:GossipSendMenu(player)
end
end

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

if (intid == 7) then
unit:GossipCreateMenu(100, player, 0)
unit:GossipMenuAddItem(5, "[Bet 1 Coin]", 1, 0)
unit:GossipMenuAddItem(5, "[Bet 2 Coins]", 2, 0) 
unit:GossipSendMenu(player)
end

if (intid == 1) then
if (player:GetItemCount(ITEMID) < 1) then
player:SendAreaTriggerMessage("You don't have enough coins to bet!")
else
unit:GossipMenuAddItem(5, "You have a 50% chance of winning, continue?", 80, 0)
unit:GossipMenuAddItem(4, "Yes, I'll do it", 5, 0)
unit:GossipMenuAddItem(4, "No, I'd rather not", 7, 0)
unit:GossipSendMenu(player)
end
end

if (intid == 5) then
Choice=math.random(1, 2)
if Choice==1 then
player:AddItem(ITEMID, 1)
end
if Choice==2 then
player:RemoveItem(ITEMID, 1)
end
end

if (intid == 80) then
unit:GossipComplete(player)
end
end

if (intid == 2) then
if (player:GetItemCount(ITEMID) < 2) then
player:SendAreaTriggerMessage("You do not have enough coins to bet!")
else
unit:GossipMenuAddItem(5, "You have a 50% chance of winning, continue?", 80, 0)
unit:GossipMenuAddItem(4, "Yes, make haste", 6, 0)
unit:GossipMenuAddItem(4, "No, take me back", 7, 0)
unit:GossipSendMenu(player)
end
end

if (intid == 6) then
Choice=math.random(1, 2)
if Choice==1 then
player:AddItem(ITEMID, 2)
end
if Choice==2 then
player:RemoveItem(ITEMID, 2)
end
end

RegisterUnitGossipEvent(NPCID, 1, "On_Gossip")
RegisterUnitGossipEvent(NPCID, 2, "Gossip_Submenus")

UPDATED

SQL

INSERT INTO creature_names
   (`entry`, `name`, `subname`, `info_str`, `Flags1`, `type`, `family`, `rank`, `unk4`, `spelldataid`, `male_displayid`, `female_displayid`, `male_displayid2`, `female_displayid2`, `unknown_float1`, `unknown_float2`, `civilian`, `leader`)
VALUES
   (198768, 'Lizzrik Styliz', 'The Lottery Goblin', 0, 0, 7, 0, 1, 0, 0, 191881, 0, 0, 0, 1, 1, NULL, 0);

INSERT INTO creature_proto
   (`entry`, `minlevel`, `maxlevel`, `faction`, `minhealth`, `maxhealth`, `mana`, `scale`, `npcflags`, `attacktime`, `attacktype`, `mindamage`, `maxdamage`, `can_ranged`, `rangedattacktime`, `rangedmindamage`, `rangedmaxdamage`, `respawntime`, `armor`, `resistance1`, `resistance2`, `resistance3`, `resistance4`, `resistance5`, `resistance6`, `combat_reach`, `bounding_radius`, `auras`, `boss`, `money`, `invisibility_type`, `death_state`, `walk_speed`, `run_speed`, `fly_speed`, `extra_a9_flags`, `spell1`, `spell2`, `spell3`, `spell4`, `spell_flags`, `modImmunities`)
VALUES
   (198768, 80, 80, 1555, 1000, 1000, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, '', 0, 0, 0, 0, 2.5, 8, 14, 0, 0, 0, 0, 0, 0, 0);

The script is easy to understand and its very easy to modify if you wish to.

Credits go to josh253 for making most of the script and to me for the whole idea the SQL and some small modifications to the script.

[Mircast]

I made the script based on your idea ^^

Post some screenshots :wave:

[sekto]

your creature name and creature proto entry ids dont match
198768 for creature name
198767 for creature proto

And the bet 2 coins doesnt work

Aside from that, nice script!
Also, how can u make it so doesnt always say "you receive loot" .. it says that even when u lose and one is taken away..

Here's an SS of the script in action

[Mircast]

your creature name and creature proto entry ids dont match
198768 for creature name
198767 for creature proto

And the bet 2 coins doesnt work

Aside from that, nice script!
Also, how can u make it so doesnt always say "you receive loot" .. it says that even when u lose and one is taken away..

Here's an SS of the script in action

Well Sandile made the SQL and released it, but thanks for the screenie.
Not to sure on the You recieve when it's taken away. D:
But when it does get taken away I could make a message like "You lost 1 token!"

[XatoA]

Good job, just need a few things fixed like when it gets taken from yur bags it says that not that yu recieve loot, but +2 rep

[stoneharry]

Looks good, but try using a few variables instead of having to fill in each npcid and itemid etc. For example "local NPCID = 40873" then every NPCID will mean 40873. +Rep

[Sandile]

Ok, I made some improvements now.
Im working on why "bet 2 coins" doesn't work.

[Mircast]

Looks good, but try using a few variables instead of having to fill in each npcid and itemid etc. For example "local NPCID = 40873" then every NPCID will mean 40873. +Rep

Go into notepad, click Edit, then go to replace.
You can replace ITEMID with your actual item id, it will go through all of them and replace it. =)

[NOTE] I've released a NEW version of this, with everything fixed + screenshots
just waiting to get it approved by a moderator

[senkin]

I really love the novel idea, but the code was all messed up. (No Offense)
Here is a fixed up version I made for you an everyone else.

LUA File (create a .lua file, put the code below, change ITEMID number to a one you want for the coin to be, save, then put it in your scripts folder)

local NPCID = 198767
local ITEMID = 32569

function On_Gossip(unit, event, player)
	unit:RemoveEvents()
	if (player:IsInCombat() == true) then
		player:SendAreaTriggerMessage("Sorry, you have to leave combat first!")
	else  
		unit:GossipCreateMenu(100, player, 0)
		unit:GossipMenuAddItem(5, "Bet 1 Coin", 1, 0)
		unit:GossipMenuAddItem(5, "Bet 2 Coins", 2, 0)
		unit:GossipSendMenu(player)
	end
end

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

	if (intid == 1) then
		unit:GossipCreateMenu(100, player, 0)
		unit:GossipMenuAddItem(4, "Yes, I understand I have a 25% chance of winning.", 3, 0)
		unit:GossipMenuAddItem(4, "I changed my mind, I want to go back to the main menu.", 5, 0)
		unit:GossipSendMenu(player)
	end

	if (intid == 2) then
		unit:GossipCreateMenu(100, player, 0)
		unit:GossipMenuAddItem(4, "Yes, I understand I have a 50% chance of winning.", 4, 0)
		unit:GossipMenuAddItem(4, "I changed my mind, I want to go back to the main menu.", 5, 0)
		unit:GossipSendMenu(player)
	end
	
	if (intid == 3) then
		Choice=math.random(1,4)
		if Choice==1 then
			player:GossipComplete(player)
			unit:SendChatMessage(12, 0, "You win!")
			player:AddItem(ITEMID, 1)
		else
			player:GossipComplete(player)
			unit:SendChatMessage(12, 0, "You lose")
			player:RemoveItem(ITEMID,1)
		end
	end

	if (intid == 4) then
		Choice=math.random(1,2)
		if Choice==1 then
			player:GossipComplete(player)
			unit:SendChatMessage(12, 0, "You win!")
			player:AddItem(ITEMID, 1)
		else
			player:GossipComplete(player)
			unit:SendChatMessage(12, 0, "You lose")
			player:RemoveItem(ITEMID,1)
		end
	end
	
	if (intid == 5) then
		unit:GossipCreateMenu(100, player, 0)
		unit:GossipMenuAddItem(5, "Bet 1 Coin", 1, 0)
		unit:GossipMenuAddItem(5, "Bet 2 Coins", 2, 0)
		unit:GossipSendMenu(player)
	end

end

RegisterUnitGossipEvent(NPCID, 1, "On_Gossip")
RegisterUnitGossipEvent(NPCID, 2, "Gossip_Submenus")

SQL File (create a .sql file with this code in it, save, then import it to your world database)

INSERT INTO creature_names (`entry`, `name`, `subname`, `info_str`, `Flags1`, `type`, `family`, `rank`, `unk4`, `spelldataid`, `male_displayid`, `female_displayid`, `male_displayid2`, `female_displayid2`, `unknown_float1`, `unknown_float2`, `civilian`, `leader`)  VALUES (198767, 'Lizzrik Styliz', 'The Lottery Goblin', 0, 0, 7, 0, 1, 0, 0, 21640, 0, 0, 0, 1, 1, NULL, 0);

INSERT INTO creature_proto (`entry`, `minlevel`, `maxlevel`, `faction`, `minhealth`, `maxhealth`, `mana`, `scale`, `npcflags`, `attacktime`, `attacktype`, `mindamage`, `maxdamage`, `can_ranged`, `rangedattacktime`, `rangedmindamage`, `rangedmaxdamage`, `respawntime`, `armor`, `resistance1`, `resistance2`, `resistance3`, `resistance4`, `resistance5`, `resistance6`, `combat_reach`, `bounding_radius`, `auras`, `boss`, `money`, `invisibility_type`, `death_state`, `walk_speed`, `run_speed`, `fly_speed`, `extra_a9_flags`, `spell1`, `spell2`, `spell3`, `spell4`, `spell_flags`, `modImmunities`) VALUES (198767, 80, 80, 1555, 1000, 1000, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, '', 0, 0, 0, 0, 2.5, 8, 14, 0, 0, 0, 0, 0, 0, 0);

Screen Shots


I hope you take the time to read the code carefully so you can learn off of it. Once again thank you for the novel idea and the original code. I hope I did not offend you.

+Rep to you.

[Mircast]

I've already released a fixed version, I stated this is my last post. :/

[Sandile]

I really love the novel idea, but the code was all messed up. (No Offense)
Here is a fixed up version I made for you an everyone else.

LUA File (create a .lua file, put the code below, change ITEMID number to a one you want for the coin to be, save, then put it in your scripts folder)

local NPCID = 198767
local ITEMID = 32569

function On_Gossip(unit, event, player)
	unit:RemoveEvents()
	if (player:IsInCombat() == true) then
		player:SendAreaTriggerMessage("Sorry, you have to leave combat first!")
	else  
		unit:GossipCreateMenu(100, player, 0)
		unit:GossipMenuAddItem(5, "Bet 1 Coin", 1, 0)
		unit:GossipMenuAddItem(5, "Bet 2 Coins", 2, 0)
		unit:GossipSendMenu(player)
	end
end

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

	if (intid == 1) then
		unit:GossipCreateMenu(100, player, 0)
		unit:GossipMenuAddItem(4, "Yes, I understand I have a 25% chance of winning.", 3, 0)
		unit:GossipMenuAddItem(4, "I changed my mind, I want to go back to the main menu.", 5, 0)
		unit:GossipSendMenu(player)
	end

	if (intid == 2) then
		unit:GossipCreateMenu(100, player, 0)
		unit:GossipMenuAddItem(4, "Yes, I understand I have a 50% chance of winning.", 4, 0)
		unit:GossipMenuAddItem(4, "I changed my mind, I want to go back to the main menu.", 5, 0)
		unit:GossipSendMenu(player)
	end
	
	if (intid == 3) then
		Choice=math.random(1,4)
		if Choice==1 then
			player:GossipComplete(player)
			unit:SendChatMessage(12, 0, "You win!")
			player:AddItem(ITEMID, 1)
		else
			player:GossipComplete(player)
			unit:SendChatMessage(12, 0, "You lose")
			player:RemoveItem(ITEMID,1)
		end
	end

	if (intid == 4) then
		Choice=math.random(1,2)
		if Choice==1 then
			player:GossipComplete(player)
			unit:SendChatMessage(12, 0, "You win!")
			player:AddItem(ITEMID, 1)
		else
			player:GossipComplete(player)
			unit:SendChatMessage(12, 0, "You lose")
			player:RemoveItem(ITEMID,1)
		end
	end
	
	if (intid == 5) then
		unit:GossipCreateMenu(100, player, 0)
		unit:GossipMenuAddItem(5, "Bet 1 Coin", 1, 0)
		unit:GossipMenuAddItem(5, "Bet 2 Coins", 2, 0)
		unit:GossipSendMenu(player)
	end

end

RegisterUnitGossipEvent(NPCID, 1, "On_Gossip")
RegisterUnitGossipEvent(NPCID, 2, "Gossip_Submenus")

SQL File (create a .sql file with this code in it, save, then import it to your world database)

INSERT INTO creature_names (`entry`, `name`, `subname`, `info_str`, `Flags1`, `type`, `family`, `rank`, `unk4`, `spelldataid`, `male_displayid`, `female_displayid`, `male_displayid2`, `female_displayid2`, `unknown_float1`, `unknown_float2`, `civilian`, `leader`)  VALUES (198767, 'Lizzrik Styliz', 'The Lottery Goblin', 0, 0, 7, 0, 1, 0, 0, 21640, 0, 0, 0, 1, 1, NULL, 0);

INSERT INTO creature_proto (`entry`, `minlevel`, `maxlevel`, `faction`, `minhealth`, `maxhealth`, `mana`, `scale`, `npcflags`, `attacktime`, `attacktype`, `mindamage`, `maxdamage`, `can_ranged`, `rangedattacktime`, `rangedmindamage`, `rangedmaxdamage`, `respawntime`, `armor`, `resistance1`, `resistance2`, `resistance3`, `resistance4`, `resistance5`, `resistance6`, `combat_reach`, `bounding_radius`, `auras`, `boss`, `money`, `invisibility_type`, `death_state`, `walk_speed`, `run_speed`, `fly_speed`, `extra_a9_flags`, `spell1`, `spell2`, `spell3`, `spell4`, `spell_flags`, `modImmunities`) VALUES (198767, 80, 80, 1555, 1000, 1000, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, '', 0, 0, 0, 0, 2.5, 8, 14, 0, 0, 0, 0, 0, 0, 0);

Screen Shots


I hope you take the time to read the code carefully so you can learn off of it. Once again thank you for the novel idea and the original code. I hope I did not offend you.

+Rep to you.

Well, its good that you come with a new version.. or something. To delete all the bugs, Im not offended at all but most of the credits goes to josh253 for the first script. I just came up with the idea and I had pretty much trouble to make a script out of it :P and thanks for releasing a updated version. +Rep to you, and rather give rep to Josh253 than to me

[Mircast]

Don't be stupid Sandile, all rep goes to you. I have +rep'd you myself.

[Sandile]

Im not looking for rep anyways and you helped me with the script to 100%. Without you there whouldn't be any script and then there whouldn't be any release. So +rep to josh253.