PLEASE HELP :)

[sauron747]

Hi all
I use a last version of PtokaX 0.4.1.1 and i build a Film hub. I need a script, when the user add a new film position on his own share, and another user when use a command "!film news" then show him in pm, a results witch this new film (and others films the others users). I need the script for the users
Is this possible? i need something like this.
Thanks a lot in advance

[CrazyGuy]

There are a couple of Request/Release bots out there.
They should fill your request 

[sauron747]

I search 3 hours in the forum but i can't find

[Brattis]

I search 3 hours in the forum but i can't find

here you can find it: http://forum.ptokax.org/index.php?topic=7892.0

[bastya_elvtars]

To be exact, it's here.

[sauron747]

Thanks a lot Bratis and bastya_elvtars I just start witch thoes scripts but witch FreshStuff the users will be happy I have another question. Perhaps this question is not correct in this section of forum but I have a problem witch this Trivia script. The questions are in Polish language (this is not all the questions), and when i load the script to Ptokax, show me this message:

[16:20] Składnia ...tings\Sauron777\Pulpit\Ptokax nowvv\scripts\quiz.lua:3738: attempt to index global 'VH' (a nil value)

I don't now wher is the problem. Are You help me??

This is the script:

-- Trivia bot port for Verlihub by bourne (bourne@freemail.hu)
-- This bot originally was written by Don Leon for PtokaX with LUA version up to 4.0, thank you Leon.
-- Note: This is a modified version for the latest LUA (version 5.0.x)
-- Now it works in any game mode without limitations. Enjoy.

---------------[ Helper functions ]---------------
-- Send global message to one user
function SendGMToUser(data, nick)
	result, err = VH:SendDataToUser("<" .. BotName .. "> " .. data .. "|", nick)
	if not result then
		error("Lua script error: in VH:SendDataToUser ("..err..")")
	end
end

-- Send private message to one user
function SendPMToUser(data, nick)
	result, err = VH:SendDataToUser("$To: " .. nick .. " From: " .. BotName .. " $<" .. BotName .. "> " .. data .. "|", nick)
	if not result then
		error("Lua script error: in VH:SendDataToUser ("..err..")")
	end
end

function SendGMToAll(nick, data)
	result, err = VH:SendDataToAll("<" .. nick .. "> " .. data .. "|", 1, 10)
	if not result then
		error("Lua script error: in VH:SendDataToAll ("..err..")")
	end
end

function IsOP(nick)
	result, data = VH:GetUserClass(nick)
	if not result then
		error("Lua script error: in VH:GetUserClass ("..err..")")
	end
	if data > 2 then
		return true
	else
		return false
	end
end
---------------[ End helper functions ]---------------

---------------[ Functions ]---------------
function VH_OnUserLogin(curUser)
	if (boolAutoLogin) then
		if (not (playerArray[curUser])) then
			playerArray[curUser] = 1
		else
			playerArray[curUser] = nil
		end
	end
	return 1
end

function VH_OnUserLogout(curUser)
	playerArray[curUser] = nil
	return 1
end

function VH_OnParsedMsgAny(ip, data)
	DataArrival(data)
	return 1
end

function DataArrival(data)
	data = data .. " " -- There is a problem with pattern matching I don't know why... Just add a space to the end.
	local boolPlaydata = nil
	if (string.sub(data, 1, 1) == "<") then
		_, _, curUser = string.find(data, "^<(%S+)>%s+")
		data = string.sub(data, 1, (string.len(data) - 1))
		if ((lngMode == 0) or (lngMode == 1)) then
			boolPlaydata = 1
		end
	elseif (string.sub(data, 1, 4) == "$To:") then
		_, _, curUser = string.find(data, "From:%s+(%S+)")
		data = string.sub(data, 1, (string.len(data) - 1))
		local _, _, whoTo = string.find(data,"$To:%s+(%S+)")
		if (whoTo == BotName) then
			data = string.sub(data, (15 + string.len(BotName) + string.len(curUser)))
			if (lngMode == 2) then
				boolPlaydata = 1
				local _, _, chat = string.find(data, "%b<>%s(.+)")
				SendChatToOthers(chat, curUser) -- This must send PM to every player
			end
		end
	else
		return
	end
	
	local bOp = IsOP(curUser)
	
	local _, _, firstWord = string.find(data, "%b<>%s+(%S+)")
	
	if (firstWord ~= nil) then
		if ((string.lower(firstWord) == string.lower(HelpTrigg)) or (string.lower(firstWord) == string.lower(ExtraHelpTrigg))) then
			showHelp(curUser)
	elseif (string.lower(firstWord) == string.lower(SaveTrigg)) then
		if (bOp) then
			SaveScores(curUser)
		end
	elseif (string.lower(firstWord) == string.lower(LoadTrigg)) then
		if (bOp) then
			LoadScores(curUser)
		end
	elseif (string.lower(firstWord) == string.lower(TopTrigg)) then
		TopTen(user)
	elseif (string.lower(firstWord) == string.lower(AddTrigg)) then
		if (boolAddQuestion) then
			s,e,sQuestion,sAnswer = string.find(data, "%b<>%s+%S+%s+(.+)#(.+)")	
			AddQuestion(curUser,sQuestion,sAnswer)
		elseif (bOp) then
			s,e,sQuestion,sAnswer = string.find(data, "%b<>%s+%S+%s+(.+)#(.+)")	
			AddQuestion(curUser,sQuestion,sAnswer)
		else
			SendToPlayers("Questions cannot be added by users at this time")
		end
	elseif (string.lower(firstWord) == string.lower(ModeTrigg)) then
		if (bOp) then
			local _, _, ModeDigit = string.find(data, "%b<>%s+%S+%s+(%d+)")
			if (ModeDigit ~= nil) then
				lngMode = tonumber(ModeDigit)
				if (lngMode == 0) then
					SendToPlayers("Game is played in chat")
				elseif (lngMode == 1) then
					SendToPlayers("Game is played in chat but Questions only show for players")
				elseif (lngMode == 2) then
					SendToPlayers("Game is played in PM with Players")
				else
					SendToPlayers("Errorous mode, mode set to default")
					lngMode = lngDefMode
				end
			end
		end
	elseif (string.lower(firstWord) == string.lower(JoinTrigg)) then
		if (not (playerArray[curUser])) then
			playerArray[curUser] = 1
			SendToPlayers(curUser.." is now a player!")
		else
			SendPMToUser("You are already a player and you didn't know. Possibly because you were autologged in", curUser)
		end
	elseif (string.lower(firstWord) == string.lower(PartTrigg)) then
		if (playerArray[curUser]) then
			SendToPlayers(curUser.." is no longer a player!")
			playerArray[curUser] = nil
		end
	elseif (string.lower(firstWord) == string.lower(RestartTrigg)) then
		if (bOp) then
			SendToPlayers("TriviaBot restarted. All points etc are lost!")
			SendToPlayers("If Save is used now it will overwrite the old save!")
			pointArray = {}
			StopQuiz(1)
		end
	elseif ((string.lower(firstWord) == string.lower(PointTrigg)) and (playerArray[curUser])) then
		if (pointArray[curUser]) then
			SendToPlayers(curUser.." you have "..pointArray[curUser].." points!")
		else
			SendToPlayers(curUser.." you have 0 points!")
		end
	elseif ((string.lower(firstWord) == string.lower(HintTrigg)) and (playerArray[curUser])) then
		if ((lngWord ~= 0) and string.find(strSolved, strCMask, 1, plain)) then
			if (lngHinted < lngMaxHints) then
				for nn=1,bcount do
					local lngRepChar = math.random(1, string.len(strWord))
					while 1 do
						if (boolHintAlwaysHitHidden) then
							if (string.sub(strSolved, lngRepChar, lngRepChar) == strCMask) then
								break
							end
						else
							break
						end
						lngRepChar = math.random(1, string.len(strWord))
					end
					local strTurn = ""
					for x=1, string.len(strWord) do
						if (x == lngRepChar) then
							strTurn = strTurn..string.sub(strWord, x, x)
						else
							strTurn = strTurn..string.sub(strSolved, x, x)
						end
					end
					strSolved = strTurn
				end
				lngHinted = lngHinted + 1
				lngHintTimeCount = lngHintTimeCount + lngHintTime
				SendToPlayers("Hint: "..strSolved)
				acount = ""
			else
				SendToPlayers("All hints used for this word!")
			end
		else
			SendToPlayers("No hint needed!")
		end
	elseif ((string.lower(firstWord) == string.lower(ScoreTrigg)) and (playerArray[curUser])) then
		SendPMToUser("SCORES:", curUser)
		SendPMToUser("---------------------------------------------------------", curUser)
		for index, value in pointArray do
			SendPMToUser(index.."'s points: "..value, curUser)
		end
		SendPMToUser("---------------------------------------------------------", curUser)
	elseif ((string.lower(firstWord) == string.lower(PlayerTrigg)) and (playerArray[curUser])) then
		SendPMToUser("PLAYERS:", curUser)
		SendPMToUser("---------------------------------------------------------", curUser)
		for index, value in playerArray do
			SendPMToUser(index, curUser)
		end
		SendPMToUser("---------------------------------------------------------", curUser)
	elseif (string.lower(firstWord) == string.lower(QuestionsTrigg)) then
		if (bOp) then
			SendPMToUser("TOP "..lngMaxShowList.." QUESTIONS:", curUser)
			SendPMToUser("---------------------------------------------------------", curUser)
			local lngShowMax = lngMaxShowList
			for index, value in guessArray do
				if (lngShowMax == 0) then
					break
				end
				arrTmp = tokenize(guessArray[index], strGSep)
				strTmp = arrTmp[1]
				SendPMToUser("["..index.."] "..strTmp, curUser)
				lngShowMax = lngShowMax - 1
			end
			SendPMToUser("Total # of questions: "..lngGuessmax, curUser)
			SendPMToUser("---------------------------------------------------------", curUser)
		end
	elseif (string.lower(firstWord) == string.lower(StartTrigg)) then
		if (bOp) then
			if (lngWord == 0) then
				playerArray[curUser] = 1
				SendGMToAll(BotName, strStart)
				if (lngMode == 2) then
					SendToPlayers(strStart)
				end
				StopQuiz(1)
			else
				SendGMToAll(BotName, "There is already a game going on type "..JoinTrigg.." to join!")
			end
		else
			SendPMToUser("Only Operators can start the Trivia because it might be off for a reason.", curUser)
		end
	elseif (string.lower(firstWord) == string.lower(StopTrigg)) then
		if (bOp) then
			HoldQuiz()
			StopQuiz()
			SendGMToAll(BotName, strStopp)
			if (lngMode == 2) then
				SendToPlayers(strStopp)
			end
		end
	elseif (string.lower(firstWord) == string.lower(WordTrigg)) then
		if ((lngWord ~= 0) and (playerArray[curUser] == "Player")) then
			SendToPlayers("Current question is: "..strSolved.." ("..string.len(strSolved)..")")
		end
	elseif (string.lower(firstWord) == string.lower(QuizTrigg)) then
		if ((lngWord ~= 0) and (playerArray[curUser])) then
			SendToPlayers("Question is: "..strQuestion)
		end
	elseif (string.lower(firstWord) == string.lower(ReloadTrigg)) then
		if (bOp) then
			local _, _, secondWord = string.find(data, "%b<>%s+%S+%s+(%S+)")
			if not secondWord then secondWord = strQFile end
				if (secondWord) then
					handle = io.open(secondWord, "r")
					if (handle) then
						handle:close()
						strTrivFile = secondWord
					end
				end
				HoldQuiz()
				ReloadQuestions()
			end
		else
			if ((lngWord ~= 0) and (boolPlaydata)) then
				if (playerArray[curUser]) then
					local msg = string.sub(data, (4 + string.len(curUser)))
					if (string.len(msg) >= string.len(strWord)) then
						local boolDisc = nil
						local strTurn = ""
						if string.lower(msg) == string.lower(strWord) then
							strTurn = strWord
							boolDisc = 1
						else
							strTurn = strSolved
						end
						if (boolDisc) then
							strSolved = strTurn
						end
						if (boolDisc) then
							if (string.lower(msg) ~= string.lower(strWord)) then
								SendToOthers(curUser, msg)
								SendToPlayers("Answer is now: "..strSolved)
							end
						end
						if (string.lower(msg) == string.lower(strWord)) then
							if (not (pointArray[curUser])) then
								pointArray[curUser] = 0
							end
							if lngHinted == 3 then pointArray[curUser] = pointArray[curUser] + 1
							elseif lngHinted == 2 then pointArray[curUser] = pointArray[curUser] + 2
							elseif lngHinted == 1 then pointArray[curUser] = pointArray[curUser] + 3
							else pointArray[curUser] = pointArray[curUser] + 4
							end 
							SendToPlayers("Answer was: "..strSolved)
							SendToPlayers("Answer was solved by: "..curUser)
							SendToPlayers("Next question in "..(lngRestTime * 30).." secs")
							lngPassed = lngMaxTime
							SendToPlayers(curUser.."'s points: "..pointArray[curUser])
							HoldQuiz()
						end
					end
				end
			end
		end
	end
end

function HoldQuiz()
	strWord = ""
	strQuestion = ""
	strSolved = ""
	TimerTicks = lngRestTime * 15
end

function StopQuiz(restart)
	boolRunning = false
	lngWord = 0
	lngPassed = 0
	strWord = ""
	strQuestion = ""
	strSolved = ""
	TimerTicks = 0
	if (restart) then
		StartQuiz()
	end
end

function StartQuiz()
	lngWord = math.random(1, lngGuessmax)
	QWarray = tokenize(guessArray[lngWord], strGSep)
	strQuestion = QWarray[1]
	strWord = QWarray[2]
	strSolved = ""
	for x=1, string.len(strWord) do
		if (string.sub(strWord, x, x) == " ") then
			strSolved = strSolved.." "
		else
			strSolved = strSolved..strCMask
		end
	end
	lngPassed = 0
	lngHinted = 0
	lngHintTimeCount = lngHintTime
	if string.len(strWord) < 4 then
		bcount = math.random(1, 2)
	elseif string.len(strWord) >= 4 and string.len(strWord) <= 9 then
		bcount = math.random(1, 3)
	elseif string.len(strWord) >= 9 and string.len(strWord) <= 20 then
		bcount = math.random(2, 4)
	else
		bcount = math.random(3, 5)
	end
	boolRunning = true
	SendToPlayers("Question: "..strQuestion)
	SendToPlayers("Answer: "..strSolved.." ("..string.len(strSolved)..")")
end

function VH_OnTimer()
	if boolRunning then
		if TimerTicks > 0 then
			TimerTicks = TimerTicks - 1
			return
		end
		lngPassed = lngPassed + 1
		if (lngPassed == lngMaxTime) then
			scount = scount + 1
			if scount == countSaveTurns then
				local handle = io.open(strTrivScoreFile, "w")
				for index, value in pointArray do
					handle:write(index..strGSep..value.."\r\n")
				end
				handle:close()
				scount = 0
			end
			if (boolRevealAnswer) then
				SendToPlayers("Answer was '"..strWord.."' and was not solved!")
			else
				SendToPlayers("Answer was not solved!")
			end
			SendToPlayers("Next question in "..(lngRestTime * 30).." secs")
			HoldQuiz()
		elseif (lngPassed >= (lngRestTime + lngMaxTime)) then
			StopQuiz(1)
		elseif (lngPassed == lngHintTimeCount) then
			if (boolAutoHint) then
				for nn=1,bcount do
					local lngRepChar = math.random(1, string.len(strWord))
					while 1 do
						if (boolHintAlwaysHitHidden) then
							if (string.sub(strSolved, lngRepChar, lngRepChar) == strCMask) then
								break
							end
						else
							break
						end
						lngRepChar = math.random(1, string.len(strWord))
					end
					local strTurn = ""
					for x=1, string.len(strWord) do
						if (x == lngRepChar) then
							strTurn = strTurn..string.sub(strWord, x, x)
						else
							strTurn = strTurn..string.sub(strSolved, x, x)
						end
					end
					strSolved = strTurn
				end
				lngHinted = lngHinted + 1
				lngHintTimeCount = lngHintTimeCount + lngHintTime
				SendToPlayers("Hint: "..strSolved)
			end  
		end
	end
end

function tokenize (inString,token)
	_WORDS = {}
	local matcher = "([^"..token.."]+)"
	string.gsub(inString, matcher, function (w) table.insert(_WORDS,w) end)
	return _WORDS
end

function ReloadQuestions()
	guessArray = {}
	lngGuessmax = 0
	local boolRestart = nil
	if (lngWord ~= 0) then
		SendToPlayers("Reloading questions, game will be shut down!")
		StopQuiz()
		boolRestart = 1
	end
	handle = io.open(strTrivFile, "r")
	if (handle) then
		local line = handle:read()
		while line do
			if ((line ~= "") and (string.find(line, strGSep, 1, plain))) then
				table.insert(guessArray, line)
				lngGuessmax = lngGuessmax + 1
			end
			line = handle:read()
		end
		handle:close()
	end
	if (lngGuessmax < 1) then
		guessArray = {
			"Co to jest - czarne, tluste pod jajami?"..strGSep.."patelnia",
"zdarzenie pochodzące z zewnątrz, niezawinione, o charakterze żywiołowym, kt?rego nie można było przewidzieć, ani mu zapobiec, nawet przy dołożeniu najwyższej staranności?"..strGSep.."siła wyższa",
"DZIAŁ SPADKU, prawo?"..strGSep.."dziedziczenie",
"Ile lat trwał Sejm Wielki?"..strGSep.."cztery",
"ile dni liczy rok przestepny?"..strGSep.."366",
"ile znakow posiada jezyk chinski?"..strGSep.."50000",
"ile bylo rozbiorow polski?"..strGSep.."trzy",
"ile dni trwalo powstanie warszawskie?"..strGSep.."szescdziesiat trzy",
    "W jakiej lidze gra Euzebiusz Smolarek?"..strGSep.."w holenderskiej",
    "Submitted by <[AC]Krystjano> Kto byl mistrzem polski w koszykowce w 2006?"..strGSep.."Prokom Trefl Sopot",
    "Submitted by <![VIP][AC]Sinnos> Jak sie nazywa najwyzszy szczyt Ameryki Poludniowej"..strGSep.."Aconcagua",
    "Submitted by <![VIP][AC]Marcink> Jedyny polak ktory zdobyl mistrzostwo swiata na zuzlu?"..strGSep.."Jerzy Szczakiel",
    "Submitted by <![VIP][AC]Sinnos> Najwyzej polozona stolica na swiecie to...?"..strGSep.."La Paz",
    "Submitted by <![VIP][AC]Sinnos> Jak się nazywa trzecia pod względem wielkości wyspa na świecie?"..strGSep.."Borneo",
    "Submitted by <![VIP][AC]Sinnos> Jak się nazywa najdłuższa rzeka w Europie (poprawka)?"..strGSep.."Wołga",
    "Submitted by <![VIP][AC]Sinnos> Ilość d?br i usług oferowana do sprzedaży przez producent?w w danym czasie i po określonej cenie to...?"..strGSep.."podaz",
    "Submitted by <![VIP][AC]Sinnos> Ognisko trzesienia Ziemi, z ktorego rozchodza sie fale sejsmiczne to...?"..strGSep.."hipocenrtum",
    "Submitted by <![VIP][AC]Sinnos> Jak nazywał się >opuchłonogi< bohater tragedii Sofoklesa?"..strGSep.."Edyp"


		}

		lngGuessmax = 3047
	end
	if (boolRestart) then
		SendToPlayers("Reloaded questions, game will be restarted! Current # of questions: "..lngGuessmax)
		StartQuiz()
	end
	strTrivFile = strDefTrivFile
end

function SaveScores(curUser)
	local handle = io.open(strTrivScoreFile, "w")
	for index, value in pointArray do
		handle:write(index..strGSep..value.."\r\n")
	end
	SendGMToUser("Scores saved", curUser)
	handle:close()
end

function LoadScores(curUser)
	local handle = io.open(strTrivScoreFile, "r")
	if (handle) then
		local line = handle:read()
		while line do
			local arrTmp = tokenize(line, strGSep)
			if ((arrTmp[1] ~= nil) and (arrTmp[2] ~= nil)) then
				pointArray[arrTmp[1]] = tonumber(arrTmp[2])
			end
			line = handle:read()
		end
		handle:close()
		if curUser ~= nil then SendGMToUser("Scores Loaded", curUser) end
	end
end

function AddQuestion(curUser, sQuestion, sAnswer)
	local handle = io.open(strQFile, "a")
	handle:write("Submitted by <"..curUser.."> "..sQuestion..strGSep..sAnswer.."\r\n")
	SendToPlayers(curUser.." Has added the question "..sQuestion, curUser)
	SendPMToUser(curUser.." you gave the answer as "..sAnswer, curUser)
	handle:close()
end

function SendToPlayers(msg)
	if ((lngMode > 2) or (lngMode < 0)) then
		lngMode = lngDefMode
	end
	
	if (lngMode == 0) then
		SendGMToAll(BotName, msg)
	elseif (lngMode == 1) then
		for index, value in playerArray do
			SendGMToUser(msg, index)
		end
	elseif (lngMode == 2) then
		for index, value in playerArray do
			SendPMToUser(msg, index)
		end
	end
end

function SendToOthers(msg, curUser)
	if ((lngMode == 2) and (boolShowGuessesInPM)) then
		for index, value in playerArray do
			if (index ~= curUser) then
				--SendPmToNick(index, BotName, "<"..curUser.."> "..msg)
				VH:SendDataToUser("<"..curUser.."> "..msg, index) -- Verlihub callback
			end
		end
	end
end

function SendChatToOthers(chat, curUser)
	if (lngMode == 2) then
		for index, value in playerArray do
			if (index ~= curUser) then
				--SendToNick(index, "$To: "..index.." From: "..BotName.." $<"..curUser.."> "..chat)
				VH:SendDataToUser("$To: "..index.." From: "..BotName.." $<"..curUser.."> "..chat, index) -- Verlihub callback
			end
		end
	end
end

function showHelp(curUser)
	local bOp = IsOP(curUser)
	SendGMToUser("<Help> ", curUser)
	SendGMToUser("<Help> "..BotVersion.." commands:", curUser)
	SendGMToUser("<Help> ", curUser)
	if (lngMode == 0) then
		SendGMToUser("<Help>    "..BotVersion.." is set to be played in chat", curUser)
	elseif (lngMode == 1) then
		SendGMToUser("<Help>    "..BotVersion.." is set to be played in chat (hidden)", curUser)
	else
		SendGMToUser("<Help>    "..BotVersion.." is set to be played in PM", curUser)
	end
	SendGMToUser("<Help>    "..HelpTrigg.." - Displays this help", curUser)
	SendGMToUser("<Help>    "..JoinTrigg.." - Joins you to Trivia", curUser)
	SendGMToUser("<Help>    "..PartTrigg.." - Parts you from Trivia", curUser)
	SendGMToUser("<Help>    "..WordTrigg.." - Shows current word (answer)", curUser)
	SendGMToUser("<Help>    "..QuizTrigg.." - Shows current question", curUser)
	SendGMToUser("<Help>    "..PointTrigg.." - Shows your points only", curUser)
	SendGMToUser("<Help>    "..ScoreTrigg.." - Shows everyones score", curUser)
	SendGMToUser("<Help>    "..PlayerTrigg.." - Shows all players in current game", curUser)
	SendGMToUser("<Help>    "..HintTrigg.." - Reveals a char in current word", curUser)
	SendGMToUser("<Help>    "..TopTrigg.." - Shows top ten scores", curUser)
	SendGMToUser("<Help>    "..AddTrigg.." - Adds a question to the Trivia Questions File. Type the question, then separate the answer with a #", curUser)
	SendGMToUser("<Help>    EXAMPLE : tbquestion How fast does a bird fly?#Dont know", curUser)
	if (bOp) then
		SendGMToUser("<Help> ", curUser)
		SendGMToUser("<Help>    "..BotVersion.." Operator commands:", curUser)
		SendGMToUser("<Help>    "..StopTrigg.." - Stops the TriviaBot", curUser)
		SendGMToUser("<Help>    "..RestartTrigg.." - Restarts the bot, reseting all scores!", curUser)
		SendGMToUser("<Help>    "..QuestionsTrigg.." - Shows all questions in current game", curUser)
		SendGMToUser("<Help>    "..ReloadTrigg.." (<filename>) - Reloads questions from "..strDefTrivFile, curUser)
		SendGMToUser("<Help>    "..ModeTrigg.." - To change mode of the game (0-2)!", curUser)
		SendGMToUser("<Help>    "..SaveTrigg.." - Saves scores into "..strTrivScoreFile, curUser)
		SendGMToUser("<Help>    "..LoadTrigg.." - Loads scores from "..strTrivScoreFile, curUser)
		SendGMToUser("<Help>    "..StartTrigg.." - Starts the TriviaBot and automatically adds you as a player", curUser)
		SendGMToUser("<Help> ", curUser)
		SendGMToUser("<Help>    "..BotVersion.." Modes:", curUser)
		SendGMToUser("<Help>    ".."0 = Game is played in chat!", curUser)
		SendGMToUser("<Help>    ".."1 = Game is played in chat but Questions only show for players", curUser)
		SendGMToUser("<Help>    ".."2 = Game is played in PM with Players", curUser)
	end
end

function TopTen(user)
	local index = {n=0}
	--table.foreach(pointArray, function(nick, score) table.insert(%index, nick) end)
	table.foreach(pointArray, function(nick, score) table.insert(index, nick) end)
	--local func = function(a, b) return %pointArray[a] > %pointArray[b] end
	local func = function(a, b) return pointArray[a] > pointArray[b] end
	table.sort(index, func)
	
	x = x or 10 if x > index.n then x = index.n end
	local result = "\r\nTop "..x.." Trivia scores in this hub..\r\n Pos\t Score\t\t Nick\t\r\n"
	for i = 1, x do result = result.."\r\n "..i..".\t"..pointArray[index[i]].."\t\t"..index[i] end
	msg = result
	SendToPlayers(msg)
end
---------------[ End functions ]---------------

---------------[ Global variables ]---------------
BotName = ">>TriviaBot<<"
ScriptVersion = "v2.2 (for Verlihub)"
BotVersion = BotName.." "..ScriptVersion

-- This file is not needed it will be created if it not exists
strTrivScoreFile = "triviascores.dat"

-- This file is needed unless you want to run a Trivia with only three questions ;)
strDefTrivFile = "trivia.dat"
strTrivFile = strDefTrivFile
strQFile = "questions.dat"

-- This char will be the global separator? (Make it one that is not used in nicknames nor questions ;)
strGSep = "*"

-- This char is used to mask the unrevealed chars
strCMask = "?"

-- Default startup mode of Trivia!
lngDefMode = 0 -- (0 = game is played in chat!, 1 = game is played in chat but questions only show for players, 2 = game is played in pm with players)
lngMode = lngDefMode

-- Max number of questions to show when a Operator ask to see list Questions 0 = 0, -1 = Disabled
lngMaxShowList = 5

-- Max no of Hints per word, and always hit on a hidden char
lngMaxHints = 4
boolHintAlwaysHitHidden = nil -- (nil = off, 1 = on)

-- How much time before a question end. Time in Trivia is measured in 15 seconds, 1 = 15 seconds, 2 = 30 seconds etc!
-- Rest is how long to rest after a question is solved depening on when the word is solved in the Timer loop it is ?15 secs to the setting!
lngMaxTime = 32 -- (Needs to be a multiple of 4   i.e. 4 / 8 / 12 / 16)
lngRestTime = 1 -- This will cause to wait 15 secs between questions.
lngHintTime = lngMaxTime / 4-- How often should the bot autosave the scores
boolAutoSaveScores = 1 -- (nil = off, 1 = on)
countSaveTurns = 5 -- After how many questions should the scores be saved

-- Should bot reveal the correct answer once time is up?
boolRevealAnswer = 1 -- (nil = off, 1 = on)

-- Should the bot display what guess made the word become a little clearer if played in PM!
boolShowGuessesInPM = 1 -- (nil = off, 1 = on)

-- Should the bot Auto Reveal Hints?
boolAutoHint = 1 -- (nil = off, 1 = on)

-- Should the bot auto login every user on connect ?
boolAutoLogin = nil -- (nil = off, 1 = on)

-- Do you want users to be able to add questions ? Operators can always add questions.
boolAddQuestion = 1 -- (nil = No, 1 = Yes)

-- TriggStart is what char the commands should begin with I use ! but you can use # or whatever
TriggStart = "!"

-- Theese are the different triggers I've tried to name them so that one easily understand what they do!
-- I include TriggStart and then the word within "" this word is not casesensitive!
JoinTrigg = TriggStart.."join"
PartTrigg = TriggStart.."part"
StartTrigg = TriggStart.."start"
StopTrigg = TriggStart.."stop"
WordTrigg = TriggStart.."word"
QuizTrigg = TriggStart.."question"
RestartTrigg = TriggStart.."restart"
PointTrigg = TriggStart.."points"
ScoreTrigg = TriggStart.."scores"
PlayerTrigg = TriggStart.."players"
QuestionsTrigg = TriggStart.."questions"
ReloadTrigg = TriggStart.."reload"
HelpTrigg = TriggStart.."pomoc"
ExtraHelpTrigg = TriggStart.."pomoc+"
SaveTrigg = TriggStart.."savescores"
LoadTrigg = TriggStart.."loadscores"
ModeTrigg = TriggStart.."mode"
HintTrigg = TriggStart.."hintme"
TopTrigg = TriggStart.."topten"
AddTrigg = TriggStart.."addquestion"

boolRunning = false
TimerTicks = 0

bcount = 0
scount = 0
sQuestion = ""
sAnswer = ""
guessArray = {}
lngGuessmax = 0
playerArray = {}
pointArray = {}
lngWord = 0
lngPassed = 0
lngHinted = 0
strWord = ""
strQuestion = ""
strSolved = ""
strBanner = "Type '"..StartTrigg.."' to start Trivia, '"..StopTrigg.."' to stop Trivia, type '"..JoinTrigg.."' to Join and '"..PartTrigg.."' to Part!"
strStart = "TriviaBot "..ScriptVersion.." started! "..strBanner
strStopp = "TriviaBot "..ScriptVersion.." stopped! "..strBanner
---------------[ End global variables ]---------------

---------------[ Script entry point ]---------------
res, err = VH:AddRobot(BotName, 10, ">>TriviaBot<<", "Hub\7", "admin@verlihub.org", "0")
ReloadQuestions()
LoadScores()
---------------[ End script entry point ]---------------

Thanks a lot in advance

[bastya_elvtars]

That script is not for PtokaX. Try searching for trivia in the forum here.

[sauron747]

Thanks bastya_elvtars but my problem is that i have many polish question from verlihub and i don't wan't convert a lot of questions. Is this possible to change a code and put this questions to Trivia??
This is a question (only one )

"Co to jest - czarne, tluste pod jajami?"..strGSep.."patelnia",

I use a Rincewind's Trivia.
Thanks a lot in advance

[CrazyGuy]

You should direct that question to Rincewind.
He knows what layout his Trivia uses for reading questions/answers.