talkaction [Talkaction] Super Quiz System 1.0

[gooden 0]

• Autor: Gooden
  
• Servidor testado: TFS 0.4 provável dar no 3.6
  
• Base: Mock The Bear - Advanced quiz system com logs!
  

 

 

Sistema:

Sistema de votações com a oportunidade de ter mais que 1 Opção personalizada.

 

talkactions.xml

<talkaction words="/quiz" event="script" access="3" value="vote.lua" />
<talkaction words="/quizinstall" event="script" access="3" value="vote.lua" />
<talkaction words="!vote" event="script" value="vote.lua" />

 

vote.lua

---Script: 'Super Quiz System 1.0' By: Gooden
---Based: 'Advanced quiz system com logs!' By: Mock the bear 

--Informations
--/quiz - Start a Quiz - Example: /quiz How Old Are You?,<15,16-20,20-30,30-40,>40
--This will create a Quiz with the Question: "How Old Are You?" and the Options:
	-- (A) <15
	-- (B) 16-20
	-- (C) 20-30
	-- (D) 30-40
	-- (E) >40
--/quiz info - Check The Information of the current Quiz. Alert if no quiz Runing.
--/quiz restart - Restart the Quiz (Clean all the responses sent)
--/quiz close - Close the current Quiz.
--/quiz cancel - Delete the current Quiz
--/quiz commands - Show the commands that exists.
--/quizinstall - Install the Super Quiz System 1.0

local Quiz_Open=0
local Quiz_Finish=1
local Quiz_Cancel=2
local messageDelay = 60
dofile("config.lua")
function sendBroadcast(m)
local ls = db.getResult("SELECT count(*) as count FROM Quiz where Status="..Quiz_Open..";")
if ls:getDataInt("count") == 1 then --Verifica se existe Questionario a correr
	doBroadcastMessage(m)
	addEvent(sendBroadcast,messageDelay*1000,m)
end
end

function onSay(cid, words, param, channel) 
local ls = db.getResult("SELECT count(*) as count FROM information_schema.tables WHERE table_schema = '"..sqlDatabase.."' AND table_name = 'Quiz';")
if ls:getDataInt("count") == 0 and words == '/quizinstall' and getPlayerGroupId(cid) >= 3 then
	--Instalação e criação das BD'S
	local QuizTable="CREATE TABLE Quiz (id INT NOT NULL AUTO_INCREMENT PRIMARY KEY,Question VARCHAR(100),Status INT(1) NOT NULL DEFAULT 0,created TIMESTAMP DEFAULT NOW());"
	local OptionsTable="CREATE TABLE Quiz_options (id INT NOT NULL AUTO_INCREMENT PRIMARY KEY,Quiz INT NOT NULL,letter Varchar(1),Opt varchar(255));"
	local ResponseTable="CREATE TABLE Quiz_response (id INT NOT NULL AUTO_INCREMENT PRIMARY KEY,account INT NOT NULL,Quiz INT NOT NULL,Opt INT NOT NULL);"
	db.executeQuery(QuizTable)
	db.executeQuery(OptionsTable)
	db.executeQuery(ResponseTable)
	doPlayerSendTextMessage(cid,25,'Super Quiz System 1.0 installed! Check the commands by typing /quiz commands')		
else
	if ls:getDataInt("count") == 0 then
		if getPlayerGroupId(cid) >= 3 then
			doPlayerSendTextMessage(cid,25,'Super Quiz System 1.0 not installed! To install type /quizinstall')
		end
	else
		local ls = db.getResult("SELECT count(*) as count FROM Quiz where Status="..Quiz_Open..";")
		local OpenOne= ls:getDataInt("count")
		if words == '!vote' then
			if OpenOne == 0 then
				doPlayerSendTextMessage(cid,25,'No Quiz running at the moment!')
			else
				local response=string.upper(string.sub(param, 1, 1))
				local ls2 = db.getResult("SELECT count(*) as count FROM Quiz_options where quiz=(select id from quiz where Status="..Quiz_Open..") and letter='"..response.."';")
				if ls2:getDataInt("count") == 0 then
					doPlayerSendTextMessage(cid,25,'Response to the Quiz not found!')							
				else
					local ls3 = db.getResult("SELECT count(*) as count FROM Quiz_response where account="..getPlayerAccountId(cid).." and quiz=(select id from quiz where Status="..Quiz_Open..");")
					if ls3:getDataInt("count") == 0 then		
						db.executeQuery("INSERT INTO `Quiz_response` (account,Quiz,Opt) VALUES ("..getPlayerAccountId(cid)..",(Select id from quiz where status="..Quiz_Open.."),(Select id from Quiz_options where quiz=(select id from quiz where Status="..Quiz_Open..") and letter='"..response.."')); ")
						doPlayerSendTextMessage(cid,25,"You have choosen the response "..response.."!!")		
					else
						doPlayerSendTextMessage(cid,25,'You already voted!')	
					end
				end
			end
		elseif words == '/quizinstall' and getPlayerGroupId(cid) >= 3 then
				doPlayerSendTextMessage(cid,25,'Super Quiz System 1.0 already installed! Check the commands by typing /quiz commands')				
		elseif words == '/quiz' and getPlayerGroupId(cid) >= 3 then
			if string.sub(param, 1,4) == 'info' and OpenOne == 1 then
				if OpenOne == 1 then
					local ls = db.getResult("SELECT * FROM Quiz where Status="..Quiz_Open..";")			
					local Question = ls:getDataString("Question")
					ls:free()

					local text=Question
					local db_result = db.getResult("select letter,quiz_options.opt as opt,(select count(*) from quiz_response where quiz_response.opt=quiz_options.id) as Total from quiz_options where quiz=(select id from quiz where status=0) order by Total desc;")
					if (db_result:getID() ~= -1) then
						repeat
							text=text..'\n('..db_result:getDataString("letter")..') ' .. db_result:getDataString("opt") .. ' - '..db_result:getDataInt("Total")
						until not db_result:next()
					end
					db_result:free()
					doPlayerSendTextMessage(cid,25,text)
				else
					doPlayerSendTextMessage(cid,25,'No Quiz running!!')
				end
			elseif string.sub(param, 1,7) == 'install' then	
				doPlayerSendTextMessage(cid,25,'Super Quiz System 1.0 already installed! Check the commands by typing /quiz commands')
			elseif string.sub(param, 1,7) == 'restart' then
				if OpenOne == 1 then
					db.executeQuery("Delete from quiz_response where quiz=(Select id from quiz where status="..Quiz_Open..");")
					doPlayerSendTextMessage(cid,25,'Quiz Restarted!!')
				else
					doPlayerSendTextMessage(cid,25,'No Quiz running!!')
				end
			elseif string.sub(param, 1,5) == 'close' then
				if OpenOne == 1 then
					local ls = db.getResult("SELECT * FROM Quiz where Status="..Quiz_Open..";")			
					local Question = ls:getDataString("Question")
					ls:free()

					local text='Quiz Closed. \n\n ' .. Question
					local db_result = db.getResult("select letter,quiz_options.opt as opt,(select count(*) from quiz_response where quiz_response.opt=quiz_options.id) as Total from quiz_options where quiz=(select id from quiz where status=0) order by Total desc;")
					if (db_result:getID() ~= -1) then
						repeat
							text=text..'\n('..db_result:getDataString("letter")..') ' .. db_result:getDataString("opt") .. ' - '..db_result:getDataInt("Total")
						until not db_result:next()
					end
					db_result:free()

					db.executeQuery("Update Quiz set Status="..Quiz_Finish.." where status="..Quiz_Open..";")
					doBroadcastMessage("Quiz Finished!")
					doPlayerSendTextMessage(cid,25,text)
				else
					doPlayerSendTextMessage(cid,25,'No Quiz running!!')
				end
			elseif string.sub(param, 1,6) == 'cancel' then
				if OpenOne == 1 then
					local ls = db.getResult("SELECT * FROM Quiz where Status="..Quiz_Open..";")			
					local QuizId = ls:getDataString("id")
					db.executeQuery("Delete from quiz_response where quiz="..QuizId..";")
					db.executeQuery("Delete from quiz where id="..QuizId..";")
					doPlayerSendTextMessage(cid,25,'Quiz Deleted!!')
				else
					doPlayerSendTextMessage(cid,25,'No Quiz running!!')					
				end
			elseif string.sub(param, 1,8) == 'commands' then
				doPlayerSendTextMessage(cid,25,'Super Quiz System 1.0 Commands!\n/quiz - Start a Quiz - Example: /quiz How Old Are You?,<15,16-20,20-30,30-40,>40\n/quiz info - Check The Information of the current Quiz. Alert if no quiz Runing.\n/quiz restart - Restart the Quiz (Clean all the responses sent)\n/quiz close - Close the current Quiz.\n/quiz cancel - Delete the current Quiz\n/quiz commands - Show the commands that exists.\n/quizinstall - Install the Super Quiz System 1.0')
			else
				if OpenOne == 0 then
					local SP = param:split(",")
					if #SP>1 then
						local Question = SP[1]
						db.executeQuery("INSERT INTO `Quiz` (Question,Status) VALUES ('"..Question.."',"..Quiz_Open..");")
						local options = { }
						local i=0
						local text='Quiz: '..Question
						for i = 2,#SP do
							db.executeQuery("INSERT INTO `Quiz_options` (Quiz,letter,Opt) VALUES ((Select id from quiz where status="..Quiz_Open.."),'"..string.char(63+i).."','"..string.trim(SP[i]).."'); ")
							text=text..'\n('..string.char(63+i)..') - '..string.trim(SP[i])
						end
						doPlayerSendTextMessage(cid,25,'Quiz Created!!')			
						sendBroadcast(text)
					else
						doPlayerSendTextMessage(cid,25,'Invalid parameters.')					
					end
				else
					doPlayerSendTextMessage(cid,25,'There is already a Quiz running!')				
				end
			end
		end
	end
end
return true
end

function string:split(delimiter)
 local result = { }
 local from  = 1
 local delim_from, delim_to = string.find( self, delimiter, from  )
 while delim_from do
   table.insert( result, string.sub( self, from , delim_from-1 ) )
   from  = delim_to + 1
   delim_from, delim_to = string.find( self, delimiter, from  )
 end
 table.insert( result, string.sub( self, from  ) )
 return result
end

 

Agradecimentos ao Mock pela ideia

Editado Agosto 4, 2010 por gooden

[tinfer3 6]

muito good esse sistema