PtokaX forum

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

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

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

Quote from: sauron747 on 22 July, 2008, 21:55:10
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 (http://forum.ptokax.org/index.php?topic=7892.0)

To be exact, it's here (http://lawmaker.no-ip.org/modules/wfdownloads/singlefile.php?cid=1&lid=8). :)

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

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

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

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