ArcEmu: [chatgame] - Are You Patient? - ArcEmu

Jump to content

Toggle shoutbox Lastest Announcements

dfighter  : (07 December 2014 - 12:06 PM) Arcemu is in hibernation mode, please read http://arcemu.org/fo...showtopic=26903
dfighter  : (01 January 2013 - 05:56 PM) Arcemu wishes you all a happy new year!
Hasbro  : (12 September 2012 - 10:01 AM) Please excuse our outage from the web! Our web host had a major malfunction!
dfighter  : (01 September 2012 - 04:05 PM) Since the spam bots just don't want to stop, I've enabled admin verification when registering.
dfighter  : (23 January 2012 - 09:56 PM) Please note that from now on you will need to confirm your email on the wiki in order to edit it!
Hasbro  : (31 December 2011 - 12:50 PM) Happy New Years all!
Navid  : (26 December 2011 - 04:09 AM) Merry Christmas !!!!!! Happy holidays all :)
WAmadeus  : (24 December 2011 - 03:54 PM) Merry Christmas to all!
dfighter  : (24 December 2011 - 11:05 AM) The Arcemu team wishes y'all a Merry Christmukkah!
Hasbro  : (05 October 2011 - 12:53 PM) Looking for web designers for upcoming web related project. If you're interested in designing user interfaces contact me
dfighter  : (02 September 2011 - 03:47 PM) So who here wants vehicles in Arcemu? :P http://arcemu.org/fo...showtopic=25440
Hasbro  : (14 August 2011 - 03:25 PM) Join us on irc, grab an irc client and connect to irc.freenode.net join channel #arcemu /server irc.freenode.net:6667 /join #arcemu
jackpoz  : (03 August 2011 - 05:33 AM) to all Lua Engine (old one) users: please check http://arcemu.org/fo...showtopic=25274
Hasbro  : (20 May 2011 - 05:27 PM) Looking for people experienced with CMake configuration and setup! Contact me asap
Hasbro  : (15 May 2011 - 05:03 PM) ArcEmu is recruiting C++ programmers, contact Hasbro if interested.
paroxysm  : (03 May 2011 - 06:26 PM) Updated luabridge gossip example to describe the whole gossip creation process rather than just how to create menu. Gossip tutorial
paroxysm  : (23 April 2011 - 11:35 AM) Lua writers can refer to the Luabridge Tutorials section in the Wiki to learn how to write gossip code correctly.
Hasbro  : (20 April 2011 - 05:22 PM) Thank you for your continuous contribution of bug reports, we are working on them.
Hasbro  : (17 April 2011 - 03:20 AM) Please consider donating to support our bills. Donations can be sent using PayPal to donations@arcemu.org - Thank you for your support.
paroxysm  : (10 April 2011 - 12:43 AM) Refer to the Luabridge Tutorials section in the Wiki to learn the new syntax of luabridge.
Resize Shouts Area

Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

[chatgame] - Are You Patient? Lua Chat game

#1 User is offline   iEzri 

  • < Ace of spades >
  • Group: Contributor
  • Posts: 1,692
  • Joined: 22-December 08
  • Gender:Female
  • Interests:I'm likely to cause mischief
  • Server OS:Linux

Posted 23 February 2010 - 08:02 AM

i was bored, so here it is.. :)


-- Credits
---------------------------------------------------------------------
print "--[[ Are you patient? by Ezri'10 ]]--"

-- Defs
---------------------------------------------------------------------           

	local INITIATE_MSG = "#LStart"
	local ENTER_MSG = "#join"
	local END_MSG = "#iFail"
	local plrnumber = 0
 
-- Start
---------------------------------------------------------------------           

function OnLotteryChat(event, pPlayer, message, type, language)
	CharName = pPlayer:GetName()
	lottery = 0	
	if (message == INITIATE_MSG) and (pPlayer:IsGm() == true) then 
		SendWorldMessage("Write #join into the chat to join the game for 1G!",1)
		
		SendWorldMessage("Patience: If you cant handle, just write #iFail and claim the prize!",1)
		lottery = 1
		plrnumber = 0	
	else
		if(lottery == 1 ) then
			SendWorldMessage("The game has already started. Write #join into the chat to join the game for 1G!",1)	
		else	
			lottery = 0 
		end
	end
 
	if (message == ENTER_MSG) then
		if(CharDBQuery("SELECT playername FROM `lottery` WHERE playername = '"..CharName.."'") ~= nil) then
			pPlayer:SendAreaTriggerMessage("You already joined the game. The more patience, the more win will be in!")		
		else	
			if(lottery == 1) then
				SendMail(0,124,pPlayer:GetGUID(),"Patience Game","Hi there "..pPlayer:GetName().."! Here is your bill! Thanks for playing!!",0,10000,0,61)
				pPlayer:SendAreaTriggerMessage("You have joined the game! Be patient!")
				SendWorldMessage(""..pPlayer:GetName().." joined the game! Write #join into the chat to join the game for 1G!",1)	
				plrnumber = plrnumber + 1
				CharDBQuery("INSERT INTO lottery (plrnumber, playername, win, amount, old) VALUES ('"..plrnumber.."', '"..pPlayer:GetName().."', 0, 0, 0)")
			else
				pPlayer:SendAreaTriggerMessage("The game did not yet start! Please wait for a GM to start the game!")		
			end
		end
	end

	if (message == END_MSG) then
		local pid = math.random(1, plrnumber)
		CharDBQuery("UPDATE `lottery` Set `win` = 1, `amount` = '"..plrnumber.."' WHERE `plrnumber` = '"..pid.."'")
		CharDBQuery("UPDATE `characters` SET gold = gold+((SELECT plrnumber FROM `lottery` AS MyPlrGold ORDER BY `plrnumber` DESC LIMIT 0 , 1)*20000) WHERE name = (SELECT playername FROM `lottery` AS myPlrName WHERE win = 1)")
		SendWorldMessage(CharName.." failed, wussed out and took all the money!! Gz for your Fail, "..CharName.."!",1)
		CharDBQuery("UPDATE `lottery` Set `old` = '1', `win` = '0' WHERE `plrnumber` = "..plrnumber.."")
		SendMail(0,124,pPlayer:GetGUID(),"Your Failure!","Hi there "..CharName.."! Your fail was Epic, so here is a little reward for you! Next time, have a little more patience, will you?!",(plrnumber*50000)-10000,0,0,41)
		CharDBQuery("DELETE FROM `lottery`")
		lottery = 0
		plrnumber = 0		
	end
end
 
-- Register
---------------------------------------------------------------------  
RegisterServerHook(16, "OnLotteryChat")



Quote

-- Table-structure for Table `lottery`

CREATE TABLE IF NOT EXISTS `lottery` (
`plrnumber` varchar(255) NOT NULL,
`playername` text NOT NULL,
`win` int(1) NOT NULL,
`amount` int(11) NOT NULL,
`old` int(11) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

Posted Image I do not join. I lead.
0

#2 User is offline   wowquebec 

  • Member
  • Pip
  • Group: Members
  • Posts: 46
  • Joined: 08-June 08
  • Gender:Male
  • Location:outlands

Posted 24 February 2010 - 09:38 PM

how we start it ?
0

#3 User is offline   tsompanis 

  • Newbie
  • Group: Members
  • Posts: 9
  • Joined: 07-July 08
  • Gender:Male
  • Location:Okinawa, Japan
  • Server OS:Windows

Posted 25 February 2010 - 05:04 AM

View Postwowquebec, on 24 February 2010 - 09:38 PM, said:

how we start it ?

with #LStart i think, as stated in the Line 8 of the Code
0

#4 User is offline   iEzri 

  • < Ace of spades >
  • Group: Contributor
  • Posts: 1,692
  • Joined: 22-December 08
  • Gender:Female
  • Interests:I'm likely to cause mischief
  • Server OS:Linux

Posted 25 February 2010 - 02:47 PM

oh thx tsompanis

  local INITIATE_MSG = "#LStart"
        local ENTER_MSG = "#join"
        local END_MSG = "#iFail"


is starting, entering, ending
Posted Image I do not join. I lead.
0

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

1 User(s) are reading this topic
0 members, 1 guests, 0 anonymous users