Print Page - Help with Ralig TriviaBoT

Can Enybody chang the look of the trivia wan "sendtoall"
From this
---------------------------------------------------------------------
<-=TrivBoT=-> D-J-Valhala has joined trivia.
<-=TrivBoT=-> TriviaBot v1.0 started! Type '!tbhelp' to get help for Trivia, '!stop' to stop Trivia, type '!join' to Join and '!part' to Part!
<-=TrivBoT=-> [1/20]Find the Artist... Album: "Magic Vision"***** ******?
----------------------------------------------------------------------

!hint
<-=TrivBoT=-> Hint: *yn****
-----------------------------------------------------------------------
----------------------------------------------------------------------
to i dont know somthing nise here is the script
----------------------------------------------------------------------
---------------
Code Part 1
---------------
--***********************************************************************
--* TrivBot by ralig *
--* *
--* This is a TriviaBot that was originally designed as a clone *
--* to Athos's TriviaBot that was for NMDC Hub only. It grew ALOT *
--* from there. *
--* *
--* Thanks go out to: *
--* - Willore for hosting a great Sci-Fi hub *
--* (Sci-Fi-Wonders.no-ip.org) *
--* - AcE for letting me use his test hub and for being a sounding *
--* board for my ideas. And for asking lots of questions. :-P *
--* - Athos for making such a great bot, that I had to clone it. *
--* - Spud and Leon (aka Pons Leon) for the LUA TriviaBot that I *
--* modeled this one after (and stole a couple of lines of code *
--* from.) :-) *
--* *
--* ralig can be contacted at: *
--* hub: Sci-Fi-Wonders.no-ip.org as [SFW]ralig *
--* email: ralig98@hotmail.com *
--* *
--* The latest version of this bot can usually be obtained at: *
--* http://ralig.webhop.org/trivia/ *
--* *
--***********************************************************************

--Admin Setup Section

BotName = "-=TrivBoT=-"
ScriptVersion = "v1.0"
BotAuthor = "ralig"
BotVersion = BotName.." "..ScriptVersion.." by "..BotAuthor

--The file names that the trivia questions can be loaded from --Note: this is just used to list in
arrKnownDataFiles = {"questions.txt","questions2.txt"} -- the help.

--The file to load and save the scores
strTrivScoreFile = "TriviaScores.txt"

--The default file to load questions from
strDefTrivFile = "questions.txt"
strTrivFile = strDefTrivFile

--The file to load and save Trivia Stats
strTrivStatsFile = "TriviaStats.txt"

--The place to store submitted questions
strSubmitFile = "NewQuestions.txt"

--This is the character to be used to seperate questions from answers in the questions file.
strQSep = "$"

--This is the character used to seperate information in the scores file.
strSSep = "$"

--The placeholder for letters not shown in hints
strHMask = "*"

--The modes the Bot can do.
lngDefMode = 1 -- 1 = main chat, everyone plays
-- 2 = main chat, only see Trivia if joined.
-- 3 = in PM mode (a few oddball probs with this mode, but it still works well)
lngMode = lngDefMode

--Set this to 1 if you want the bot to not display anything in main chat
--NOTE: only works in mode 2 and 3 (since everything is shown in main chat in modes 1 and 2
boolSilentInMainChat = 1 -- (nil = off, 1 = on)

-- Default number of questions to play when trivia is started with no options
lngDefNumQuestions = 20

-- Maximum number of questions that can be played at one time
lngMaxQuestions = 200

--The max number of hints per question
lngMaxHints = nil -- (nil = infinite number of hints)
boolAutoHint = 1 -- (nil = off, 1= on)

-- amount of questions that pass before the scores are saved to file
lngAutoSaveCount = 20 --(nil = turn off this option)

-- amount of time between each event cycle (in milliseconds)
lngTimerSpeed = 10000

--Each of these need to be a multiple of lngTimerSpeed
lngMaxTime = 50000 -- maximum amount of time to answer a question
lngHintTime = 20000 -- amount of time in between automatic hints
lngSkipAllowTime = 30000 -- amount of time before a player is allowed to skip a question

--These times are independent of lngTimerSpeed
lngRestTime = 10000 -- maximum amount of time in between questions
lngSkipDelayTime = 10000 -- amount of time to delay the next question after a skip occurs

--Can players submit questions to be added (ops can always do this)?
--Not working yet
boolPlayersAddQuestions = nil -- (nil = off, 1 = on)

--Allow players to see laternate answers to a question after it has been answered.
boolAllowAltAnswersToBeSeen = 1 -- (nil = off, 1 = on)

--The character tht preceeds all bot commands.
TriggChar = "!"

StartTrigg = TriggChar .. "start"
StopTrigg = TriggChar .. "stop"
JoinTrigg = TriggChar .. "join"
PartTrigg = TriggChar .. "part"
QuestionTrigg = TriggChar .. "question"
AnswersTrigg = TriggChar .. "answers"
StatTrigg = TriggChar .. "tbstats"
ScoreTrigg = TriggChar .. "top"
PlayerTrigg = TriggChar .. "players"
ChangeTrigg = TriggChar .. "Ltrivia"
HintTrigg = TriggChar .. "hint"
SkipTrigg = TriggChar .. "skip"
SaveTrigg = TriggChar .. "savescores"
LoadTrigg = TriggChar .. "loadscores"
ModeTrigg = TriggChar .. "tbmode"
HelpTrigg = TriggChar .. "tbhelp"

--Info to be shown to everyone when trivia is started and stopped
strBanner = "Type '"..HelpTrigg.."' to get help for Trivia, '"..StopTrigg.."' to stop Trivia, type '"..JoinTrigg.."' to Join and '"..PartTrigg.."' to Part!"
strStart = "TriviaBot "..ScriptVersion.." started! "..strBanner
strStop = "TriviaBot "..ScriptVersion.." stopped! "..strBanner

--End Admin Setup section

--Begin Code

arrPlayers = {} --The array of players that are joined
arrScoreIndex = {n=0}
arrUserData = {}

arrQuestions = {}

strStreakName = ""
lngStreakLen = 0

lngLongestStreakNum = 0
strLongestStreakName = ""

boolRoundStarted = nil
boolQuestionStarted = nil
boolSkipInProgress = nil

lngNumQInRound = lngDefNumQuestions
lngCurrQNum = 0

lngCurrQandA = 0

Time_Counter = 0
Question_Counter = 0

strQEndTime = ""
strQBeginTime = ""

boolMessageIsPM = nil

lngNumHintsGiven = 0

--Start functions called by hub

function Main()
frmHub:RegBot(BotName)
LoadQuestions()
LoadScores()
LoadStats()
end

function UserDisconnected(curUser)
arrPlayers[curUser.sName] = nil
end

function OpDisconnected(curUser)
arrPlayers[curUser.sName] = nil
end

function DataArrival(curUser, data)
local boolPlayData = nil

if (strsub(data, 1, 1) == "<") then --if the data starts with "<"
data = strsub(data, 1, (strlen(data) - 1)) --strips off last char in data (hidden char)
if ((lngMode == 1) or (lngMode == 2)) then
boolPlayData = 1
end
elseif (strsub(data, 1, 4) == "$To:") then
data = strsub(data, 1, (strlen(data) - 1)) --strips off last char in data (hidden char)
local _, _, whoTo = strfind(data,"$To:%s+(%S+)") --the username of the recpient of a PM

if (whoTo == BotName) then --so if someone sends a PM to the bot...
data = strsub(data, (15 + strlen(BotName) + strlen(curUser.sName))) --the text sent to the bot by a PM
if (lngMode == 3) then
boolMessageIsPM = 1
local _, _, chat = strfind(data, "%b<>%s(.+)")
SendChatToOthers(chat, curUser)
end
end
end
local _, _, firstWord = strfind(data, "%b<>%s+(%S+)") --the first word said by a player in chat

if (firstWord ~= nil) then
local lFW = strlower(firstWord)

local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

----------------
Code Part 2
----------------

--Do these commands whether they are in PM or main chat

--Help
if (lFW == strlower(HelpTrigg)) then
ShowHelp(curUser)
--Save Scores
elseif (lFW == strlower(SaveTrigg)) then
if (curUser.bOperator or (boolRaligIsOp and strlower(curUser.sName) == "ralig")) then
SaveScores(curUser)
end
--Load Scores
elseif (lFW == strlower(LoadTrigg)) then
if (curUser.bOperator or (boolRaligIsOp and strlower(curUser.sName) == "ralig")) then
LoadScores(curUser)
end
--Change Trivia File
elseif (lFW == strlower(ChangeTrigg)) then
if (curUser.bOperator or (boolRaligIsOp and strlower(curUser.sName) == "ralig")) then

local _, _, secondWord = strfind(data, "%b<>%s+%S+%s+(%S+)")

if (secondWord) then
ChangeTrivia(curUser,secondWord) --Typo fixed by AcE
else
SendDataToPlayer(curUser,"Usage: "..ChangeTrigg.." ", WayToSend)
SendDataToPlayer(curUser," Currently these filenames are accepted:", WayToSend)
for x=1,getn(arrKnownDataFiles) do
SendDataToPlayer(curUser," "..arrKnownDataFiles

, WayToSend)

end
end
else
SendDataToPlayer(curUser,"Only an operator can use that command.", WayToSend)
end
--Change Mode
elseif (lFW == strlower(ModeTrigg)) then
if (curUser.bOperator or (boolRaligIsOp and strlower(curUser.sName) == "ralig")) then
local secondWord = tonumber(strsub(data,strfind(data,ModeTrigg,1,1)+strlen(ModeTrigg)+1))
if (secondWord) then
if ((secondWord <= 3) and (secondWord >= 0)) then
if (secondWord == 0) then
lngMode = lngDefMode
SendToAll(BotName,"Trivia changed to default mode.")
else
lngMode = secondWord
end
if (lngMode == 1) then
SendToAll(BotName,"Trivia changed to Mode 1: Played in main chat by all.")
elseif (lngMode == 2) then
SendToAll(BotName,"Trivia changed to Mode 2: Played in main chat by joining.")
elseif (lngMode == 3) then
SendToAll(BotName,"Trivia changed to Mode 3: Played in PM.")
end
else
SendDataToPlayer(curUser,"That mode is not a valid mode. Valid modes are: 1 2 3")
end
else
SendDataToPlayer(curUser,"That mode is not a valid mode. Valid modes are: 1 2 3")
end
end
--Show Scores
elseif (lFW == strlower(ScoreTrigg)) then
local secondWord = strsub(data,strfind(data,ScoreTrigg,1,1)+strlen(ScoreTrigg)+1)
local pn = nil
if (secondWord == "me") then
pn = curUser.sName
elseif (pn == "") then
pn = nil
else
pn = secondWord
end
ShowScores(curUser, pn)

--Show Player Stats
elseif (lFW == strlower(StatTrigg)) then
local secondWord = strsub(data,strfind(data,StatTrigg,1,1)+strlen(StatTrigg)+1)
local pn = nil
if (secondWord == "me") then
pn = curUser.sName
elseif (secondWord == "" or secondWord == nil) then
pn = curUser.sName
else
pn = secondWord
end

if (pn == curUser.sName) then
if (arrUserData[pn]) then
ShowPlayerStats(curUser,pn)
else
SendDataToPlayer(curUser,"you have 0 points!", WayToSend)
end
else
ShowPlayerStats(curUser,pn)
end

--Join Trivia
elseif (lFW == strlower(JoinTrigg)) then
if (lngMode ==1) then
SendDataToPlayer(curUser, "All players are currently joined to the trivia.", WayToSend)
else
if (not arrPlayers[curUser.sName]) then
arrPlayers[curUser.sName] = 1
SendToPlayers(curUser.sName.." has joined trivia.")
else
SendDataToPlayer(curUser, "You are already joined to the trivia.", WayToSend)
end
end

--Part Trivia
elseif (lFW == strlower(PartTrigg)) then
if (lngMode == 1) then
SendDataToPlayer(curUser, "All players are joined to trivia all the time, there is no need to leave.", WayToSend)
else
if (arrPlayers[curUser.sName]) then
arrPlayers[curUser.sName] = nil
SendToPlayers(curUser.sName.." has left the trivia game.")
SendDataToPlayer(curUser, "You have left the trivia game.", WayToSend)
else
SendDataToPlayer(curUser, "You have not joined the trivia, so it's kinda hard for you to leave it.", WayToSend)
end
end

--Start Trivia Round
elseif (lFW == strlower(StartTrigg)) then
if (boolRoundStarted) then
SendDataToPlayer(curUser,"There is already a round of trivia started. Use "..JoinTrigg.." to join or "..HelpTrigg.." for additional commands.", WayToSend)
else
if (not arrPlayers[curUser.sName]) then
arrPlayers[curUser.sName] = 1 --Changed start game
SendToPlayers(curUser.sName.." has joined trivia.")
end
local secondWord = tonumber(strsub(data,strfind(data,StartTrigg,1,1)+strlen(StartTrigg)+1))
if (secondWord) then
if (secondWord > lngMaxQuestions) then
lngNumQInRound = lngMaxQuestions
elseif (secondWord <= 0) then
lngNumQInRound = lngDefNumQuestions
else
lngNumQInRound = secondWord
end
end
StartRound(curUser)
end

--Stop Trivia Round
elseif (lFW == strlower(StopTrigg)) then
StopRound(curUser)

--Show Current Players
elseif (lFW == strlower(PlayerTrigg)) then
if (lngMode == 1) then
SendDataToPlayer(curUser,"The trivia is in a mode where all players are joined to the game.", WayToSend)
else
ShowPlayers(curUser)
end
end
--Only do these command if the mode and placement of the command are right
if (boolPlayData or ((lngMode == 3) and (boolMessageIsPM))) then
--Show Current Question
if (lFW == strlower(QuestionTrigg)) then
if (((lngMode == 2 or lngMode ==3) and (arrPlayers[curUser.sName])) or (lngMode == 1)) then
if (boolQuestionStarted) then
ShowQuestion()
end
end

--Show answers to previous question
elseif (lFW == strlower(AnswersTrigg)) then
if (((lngMode == 2 or lngMode ==3) and (arrPlayers[curUser.sName])) or (lngMode == 1)) then
if (boolRoundStarted and boolAllowAltAnswersToBeSeen) then
if (not boolQuestionStarted) then
SendDataToPlayer(curUser, "The answers to '"..arrQuestions[lngCurrQandA][1].."' are:")

for x=2, getn(arrQuestions[lngCurrQandA]) do
SendDataToPlayer(curUser, " " .. tostring(x-1) .. ".> " .. arrQuestions[lngCurrQandA]

)

end
else
SendDataToPlayer(curUser,"You can't do that before the question is answered. That would be cheating!")
end
end
end

--Show Hint
elseif (lFW == strlower(HintTrigg)) then
if (((lngMode == 2 or lngMode == 3) and (arrPlayers[curUser.sName])) or (lngMode == 1)) then
if (boolQuestionStarted) then
ShowHint("Hint: ")
else
SendDataToPlayer(curUser, "There is no question to give a hint for!")
end
else
SendDataToPlayer(curUser, "You must join trivia in order to see a hint.")
end
--Skip Question
elseif (lFW == strlower(SkipTrigg)) then
if (((lngMode == 2 or lngMode == 3) and (arrPlayers[curUser.sName])) or (lngMode == 1)) then
if (boolQuestionStarted) then
if (Time_Counter >= lngSkipAllowTime/lngTimerSpeed) then
SkipQuestion()
else
SendToPlayers(lngSkipAllowTime/1000 .." seconds must elapse before a question can be skipped.")
end
else
SendToPlayers("There is currently no question to skip!")
end
end
--Check for answer
else
if (boolQuestionStarted and boolRoundStarted) then
if (((lngMode == 2 or lngMode == 3) and (arrPlayers[curUser.sName])) or (lngMode == 1)) then
local msg = strsub(data, (4 + strlen(curUser.sName)))

if (strlen(msg) >= DetermineAnsMinLen()) then --there is a possibility that the answer is in msg
local strIsAnswerCorrect = CheckForRightAnswer(msg)

if (strIsAnswerCorrect) then -- the correct answer was given by this player
DoTheStreakStuff(curUser.sName)
local arrScoreInfo = IncreaseScore(curUser.sName)

CheckForHigherRanking(curUser.sName)

SendToPlayers("Winner: "..curUser.sName.." Answer: "..strIsAnswerCorrect.." Time: "..arrScoreInfo[2].."s Points: "..arrScoreInfo[1])
SendToPlayers(curUser.sName.." Rank #: "..arrUserData[curUser.sName][3].." Score: "..arrUserData[curUser.sName][1].." Streak: "..lngStreakLen.." Wins: "..arrUserData[curUser.sName][2])

EndQuestion()
end
end
end
end
end -- if (boolPlayData)
end -- if (firstWord ~= nil)
end -- if (boolPlayData)
boolMessageIsPM = nil
end -- function

function OnTimer()
if (boolQuestionStarted) then
Time_Counter = Time_Counter + 1

--Question Time Out
if(lngMaxTime/lngTimerSpeed == Time_Counter) then
SendToPlayers("No one answered that question correctly.")
SendToPlayers("The answer was: "..arrQuestions[lngCurrQandA][2])
EndQuestion()
--AutoHint
elseif ((lngHintTime/lngTimerSpeed == Time_Counter) and boolAutoHint) then
ShowHint("Here's a hint: ")
end

--Skip timer
elseif (boolSkipInProgress) then
boolSkipInProgress = nil
NextQuestion()
--Should only occur in between questions
elseif (boolRoundStarted) then
NextQuestion()
end
end

--End functions called by hub

--Start functions called by script

function ShowQuestion()
local Q = ""
Question_Counter = Question_Counter + 1
if (arrQuestions[lngCurrQandA][1] == "Scramble") then
Q = "Unscramble: "..Scramble(arrQuestions[lngCurrQandA][2])
else
Q = AddPunctuation(arrQuestions[lngCurrQandA][1])
end
SendToPlayers
("["..
lngCurrQNum
.."/"..
lngNumQInRound.."]"..
Q)
--AutoSave stuff
if (lngAutoSaveCount) then
if (mod(Question_Counter,lngAutoSaveCount) == 0) then
SaveScores()
end
end
end

function AddPunctuation(strQ)
local tmp = strsub(strQ,strlen(strQ))
if (tmp ~= "." and tmp ~= "!" and tmp ~= "?") then
strQ = strQ.."?"
end
return strQ
end

--------------
Code Pat 3
--------------

function Scramble(sOrigAns)

--Split the string by words
local tmp = {}
local lngLastSpace = 1
local lngCurrSpace
local cnt = 1
local strAScrambled = ""

--Break the answer into words into the tmp array
lngCurrSpace = strfind(sOrigAns," ",lngLastSpace,1)
while (lngCurrSpace ~= nil) do
tmp[cnt] = strsub(sOrigAns,lngLastSpace,lngCurrSpace-1)
lngLastSpace = lngCurrSpace+1
lngCurrSpace = strfind(sOrigAns," ",lngLastSpace,1)
cnt = cnt + 1
end
tmp[cnt] = strsub(sOrigAns,lngLastSpace)

for x=1,cnt do
local tmp1 = tmp

local strWScrambled = ""
while (strlen(strWScrambled) < strlen(tmp1)) do

local i = random(1,strlen(tmp1))
local ch = strsub(tmp1,i,i)
if (ch ~= "*") then
strWScrambled = strWScrambled..ch
local tmp2 = strsub(tmp1,1,i-1).."*"..strsub(tmp1,i+1)
tmp1 = tmp2
end
end
strAScrambled = strAScrambled..strWScrambled.." "
end

return strlower(strsub(strAScrambled,1,strlen(strAScrambled)-1))

end

function EndQuestion()
if (lngCurrQNum+1 > lngNumQInRound) then
StopRound()
else
Rest()
end
end

function Rest()
StopTimer()

boolQuestionStarted = nil
-- lngCurrQandA = 0
strQEndTime = ""
strQBeginTime = ""
lngNumHintsGiven = 0

Time_Counter = 0
SetTimer(lngRestTime)
StartTimer()
end

function SaveStats()
local file_handle, err = openfile(strTrivStatsFile, "w")

local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

if (file_handle) then
write(file_handle,Question_Counter.."\r\n")
write(file_handle,strLongestStreakName.."$"..lngLongestStreakNum.."\r\n")
closefile(file_handle)
else
SendToPlayers(BotName, "Error opening/writing stats file " ..strTrivStatsFile.. " - " ..err) --AcE
if (not arrPlayers[curUser.sName]) then
SendDataToPlayer(curUser, "Error opening/writing score file " ..strTrivStatsFile.. " - " ..err, WayToSend)
end
end
end

function LoadStats()
local file_handle, err = openfile(strTrivStatsFile, "r")

local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

if (file_handle) then
local line = read(file_handle)
local cnt = 1
while (line) do
if (cnt == 1) then
Question_Counter = tonumber(line)
elseif (cnt == 2) then
local arrTmp = tokenize(line,"$")
strLongestStreakName = arrTmp[1]
lngLongestStreakNum = tonumber(arrTmp[2])
end
line = read(file_handle)
cnt = cnt + 1
end
closefile(file_handle)
else
if (curUser) then
SendToPlayers(BotName, "Error opening/reading score file " ..strTrivScoreFile.. " - " ..err) --AcE
if (not arrPlayers[curUser.sName]) then
SendDataToPlayer(curUser, "Error opening/reading score file " ..strTrivScoreFile.. " - " ..err, WayToSend)
end
end
end
end

function SaveScores(curUser)
--Error handling added by AcE
local file_handle,err = openfile(strTrivScoreFile, "w")

local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

if (file_handle) then
for index, value in arrUserData do
write(file_handle,index..strSSep..value[1]..strSSep..value[2]..strSSep..value[4].."\r\n")
end

if (curUser) then
SendDataToPlayer(curUser,"Scores saved", WayToSend)
end

closefile(file_handle)
else
SendToPlayers(BotName, "Error opening/writing score file " ..strTrivScoreFile.. " - " ..err) --AcE
if (not arrPlayers[curUser.sName]) then
SendDataToPlayer(curUser, "Error opening/writing score file " ..strTrivScoreFile.. " - " ..err, WayToSend)
end
end
SaveStats()
end

function LoadScores(curUser)
--Error handling added by AcE
local file_handle, err = openfile(strTrivScoreFile, "r")

local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

if (file_handle) then
arrUserData = {}
local line = read(file_handle)
while line do
local arrTmp = tokenize(line, strSSep)
local tmp = 0
if ((arrTmp[1] ~= nil) and (arrTmp[2] ~= nil) and (arrTmp[3] ~= nil)) then
if (not arrTmp[4]) then
tinsert(arrTmp,0)
end
arrUserData[arrTmp[1]] = {tonumber(arrTmp[2]),tonumber(arrTmp[3]),0,tonumber(arrTmp[4])}
end
line = read(file_handle)
end
if (curUser ~= nil) then
SendDataToPlayer(curUser,"Scores Loaded", WayToSend)
end
closefile(file_handle)
SortPlayerArray()
else
if (curUser) then
SendToPlayers(BotName, "Error opening/reading score file " ..strTrivScoreFile.. " - " ..err) --AcE
if (not arrPlayers[curUser.sName]) then
SendDataToPlayer(curUser, "Error opening/reading score file " ..strTrivScoreFile.. " - " ..err, WayToSend)
end
else
SendToAll(BotName, "Error opening/reading score file " ..strTrivScoreFile.. " - " ..err) --AcE
end
end
end

function LoadQuestions()
--Error handling added by AcE
local file_handle, err = openfile(strTrivFile, "r")

local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

if (file_handle) then
arrQuestions = {}

local line = read(file_handle)

while line do
if ((line ~= "") and (strfind(line, strQSep, 1, plain))) then
local arrTmp = tokenize(line,strQSep)
local arrTmp2 = {}
for index, value in arrTmp do
arrTmp2[index] = value
end
tinsert(arrQuestions, arrTmp2)
end
line = read(file_handle)
end
closefile(file_handle)
else
if (curUser) then
SendToPlayers("Error opening/reading questions database " ..strTrivFile.. " - " ..err) --AcE
if (not arrPlayers[curUser.sName]) then
SendDataToPlayer(curUser, "Error opening/reading questions database " ..strTrivFile.. " - " ..err, WayToSend)
end
return 1
end
end
if (getn(arrQuestions) < 1) then
arrQuestions = {
{"Who needs to add more questions to the trivia? Type DJ Valhala to win.","DJ Valhala"},
{"Who brought you this TriviaBot?","assaf"}
}
if (curUser) then
SendToPlayers("Questions NOT loaded from "..strTrivFile..". Current # of questions: "..getn(arrQuestions))
end
else
SendToPlayers("Questions loaded from "..strTrivFile..". Current # of questions: "..getn(arrQuestions))
end
end

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

function StartRound(curUser)
boolRoundStarted = 1
if ((lngMode == 1) or ((lngMode == 2 or lngMode == 3) and not boolSilentInMainChat)) then
SendToAll(BotName,strStart)
else
SendToPlayers(strStart)
end
lngCurrQNum = 0
NextQuestion()
end

function StopRound(curUser)
if (boolRoundStarted) then

local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

---------------
Code Part 4
---------------

lngCurrQNum = 0
lngCurrQandA = 0
lngNumQInRound = lngDefNumQuestions
Time_Counter = 0
boolRoundStarted = nil
boolQuestionStarted = nil
strQEndTime = ""
strQBeginTime = ""
if ((lngMode == 1) or ((lngMode == 2 or lngMode == 3) and not boolSilentInMainChat)) then
if (curUser) then
SendToAll(BotName, curUser.sName.." has stopped the current round of trivia. To see scores do '"..ScoreTrigg.."' and to see more commands do '"..HelpTrigg.."'.")
else
SendToAll(BotName, "The current round of trivia has finished. To see scores do '"..ScoreTrigg.."' and to see more comamnds do '"..HelpTrigg.."'.")
end
else
if (curUser) then
SendToPlayers(curUser.sName.." has stopped the current round of trivia. To see scores do '"..ScoreTrigg.."' and to see more commands do '"..HelpTrigg.."'.")
else
SendToPlayers("The current round of trivia has finished. To see scores do '"..ScoreTrigg.."' and to see more comamnds do '"..HelpTrigg.."'.")
end
end
elseif (curUser) then
SendDataToPlayer(curUser, "There is not a round started yet. Type "..StartTrigg.." to start up a new round.", WayToSend)
end
end

function NextQuestion()
StopTimer()
lngCurrQNum = lngCurrQNum + 1
if (lngCurrQNum > lngNumQInRound) then
StopRound()
else
strQBeginTime = date()
lngCurrQandA = random(1,getn(arrQuestions))
ShowQuestion()
boolQuestionStarted = 1
SetTimer(lngTimerSpeed)
StartTimer()
end
end

function SkipQuestion()
SendToPlayers("Question skipped. The answer was: "..arrQuestions[lngCurrQandA][2])
if (lngCurrQNum+1 > lngNumQInRound) then --Skipped last question, so stop the round
StopRound()
else
StopTimer()
boolQuestionStarted = nil
SetTimer(lngSkipDelay)
StartTimer()
boolSkipInProgress = 1
end
end

function ChangeTrivia(curUser, strFile_Name)
local file_handle = openfile(strFile_Name, "r")

local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

if (file_handle) then
closefile(file_handle)
strTrivFile = strFile_Name

LoadQuestions()

if ((lngMode == 1) or ((lngMode == 2 or lngMode == 3) and not boolSilentInMainChat)) then
SendToAll(BotName,"Trivia has now been changed to "..strFile_Name..".")
else
SendToPlayers("Trivia has now been changed to "..strFile_Name..".")
end
else
SendDataToPlayer(curUser,"That is not a valid filename. Try again.", WayToSend)
end
end

function ShowPlayerStats(curUser,pn)

local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

if (pn == nil) then
pn = curUser.sName
if (not arrUserData[pn]) then
SendDataToPlayer(curUser,"You have 0 points.", WayToSend)
end
elseif (not arrUserData[pn]) then
SendDataToPlayer(curUser,pn.." is not a valid player. NOTE: Player names are case sensitive.", WayToSend)
else
--Show the stats
local s = arrUserData[pn][1]
local w = arrUserData[pn][2]
local r = arrUserData[pn][3]
local k = arrUserData[pn][4]

local ppw = tostring(s/w)
local tpw = tostring(45-(s/w))
info = "\r\n--- "..pn.." #"..r.." ---\r\n"
info = info.."Points: " ..s.."\r\n"
info = info.."Wins: "..w.."\r\n"
info = info.."Longest Streak: "..k.."\r\n"

local tmp1 = strfind(ppw,".",1,1)
local tmp2 = strfind(tpw,".",1,1)
if (tmp1 == nil) then
tmp1 = strlen(ppw)
else
tmp1 = tmp1 + 4
end

if (tmp2 == nil) then
tmp2 = strlen(tpw)
else
tmp2 = tmp2 + 4
end

info = info.."Points/Win: "..strsub(ppw,1,tmp1).."\r\n"
info = info.."Time/Win : "..strsub(tpw,1,tmp2).." seconds\r\n\r\n"
info = info.."Time spent on wins: "..CalcTimeSpentOnWins(s,w).."\r\n"

--general TB stat info
info = info .. "\r\n--- General Trivia Stats ---\r\n"
info = info .. " Number of Questions Served: "..Question_Counter.."\r\n"
info = info .. " Longest Streak: "..lngLongestStreakNum.." by "..strLongestStreakName.."\r\n"

SendDataToPlayer(curUser,info, WayToSend)
end
end

function IncreaseScore(sName)
strQEndTime = date()
local lngTimeToAnswer = CalcTimeToAnswer()
local score = 0
if (lngTimeToAnswer >= 45) then
score = 1
else
score = 45 - lngTimeToAnswer
end

--increase the stats
if (arrUserData[sName]) then
arrUserData[sName][1] = arrUserData[sName][1] + score
arrUserData[sName][2] = arrUserData[sName][2] + 1

if (arrUserData[sName][4] < lngStreakLen) then
arrUserData[sName][4] = lngStreakLen
end
else
arrUserData[sName] = {0,0,0,1}
arrUserData[sName][1] = score
arrUserData[sName][2] = 1
arrUserData[sName][3] = getn(arrScoreIndex)+1
tinsert(arrScoreIndex,sName)
end

return {score,lngTimeToAnswer}
end

function DoTheStreakStuff(sName)
if (strStreakName == sName) then
-- increase the streak
lngStreakLen = lngStreakLen + 1
else
strStreakName = sName
lngStreakLen = 1
end

if (lngStreakLen > lngLongestStreakNum) then
lngLongestStreakNum = lngStreakLen
strLongestStreakName = sName
end
end

function CalcTimeToAnswer()
local BDay = strsub(strQBeginTime,1,8)
local EDay = strsub(strQEndTime,1,8)
local BSec = strsub(strQBeginTime,16,17)
local BMin = strsub(strQBeginTime,13,14)
local BHr = strsub(strQBeginTime,10,11)
local ESec = strsub(strQEndTime,16,17)
local EMin = strsub(strQEndTime,13,14)
local EHr = strsub(strQEndTime,10,11)
local lngETime = 0
local lngBTime = 0

lngBTime = (BHr*3600)+(BMin)*60+BSec
if (BDay == EDay) then --Gotta do calcs diff if we jump over to new day
lngETime = (EHr*3600)+(EMin)*60+ESec
else
lngETime = 86400+(EHr*3600)+(EMin)*60+ESec
end
return lngETime-lngBTime
end

function ShowScores(curUser, player_name)
local l = 1
local u = 20
if (getn(arrScoreIndex) < 20) then
u = getn(arrScoreIndex)
end
if (u == 0) then
SendDataToPlayer(curUser, "There are no scores to display.")
else
local pPos = nil
local num_scores = getn(arrScoreIndex)
if (player_name) then
if (arrUserData[player_name]) then
pPos = arrUserData[player_name][3]
else
local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end
pPos = 1
if (curUser.sName == player_name) then
SendDataToPlayer(curUser, "You have have not answered any questions yet, so showing scores 1-20.", WayToSend)
elseif (player_name ~= "") then
SendDataToPlayer(curUser, player_name.." is not a valid player name. NOTE: names are case sensitive. Showing scores 1-20", WayToSend)
end
end

if (pPos > num_scores-10) then
l = num_scores-19
elseif (pPos <= 10) then
l = 1
else
l = pPos-10
end
if (pPos < 10) then
u = u
elseif (pPos+9 > num_scores) then
u = num_scores
else
u = pPos+9
end
DisplayScores(curUser,l,u,player_name)
else
DisplayScores(curUser,l,u)
end
end
end

---------------
Code Part 5
---------------

function DisplayScores(curUser,lower,upper,player_name)

local WayToSend = nil
local NumScores = getn(arrScoreIndex)

if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

if ((lower == nil) or (lower < 1)) then
lower = 1
end
if ((upper == nil) or (upper > NumScores) ) then
if (NumScores < 20) then
upper = NumScores
else
upper = 20
end
end

local result = "\r\nTrivia scores:\r\n"
for i = lower, upper do
result = result.." "..i..". "..arrScoreIndex.." Score: "..arrUserData[arrScoreIndex][1].." Wins: "..arrUserData[arrScoreIndex][2]
if (arrScoreIndex == player_name) then
result = result .. " <-----" .."\r\n"
else
result = result .. "\r\n"
end
end
SendDataToPlayer(curUser,result, WayToSend)
-- curUser:SendData(BotName,result)
end

function ShowHint(strPhrase)
lngNumHintsGiven = lngNumHintsGiven + 1
if (lngMaxHints) then
if (lngNumHintsGiven > lngMaxHints) then
SendToPlayers("The maximum number of hints for this question have already been shown.")
return 1
end
end
local strHint = ""
local strAns = arrQuestions[lngCurrQandA][2]
for x=1, strlen(strAns) do
local strCurChar = strsub(strAns,x,x)
if (strCurChar ~= " ") then
if (random(2) == 1) then
strHint = strHint..strCurChar
    else
    strHint = strHint..strHMask
end
else
strHint = strHint.." "
end
end
SendToPlayers(strPhrase..strHint)
end

function SortPlayerArray()
arrScoreIndex = {n=0}
foreach(arrUserData, function(nick, score) tinsert(%arrScoreIndex, nick) end)
local func = function(a, b) return %arrUserData[a][1] > %arrUserData[1] end
sort(arrScoreIndex, func)

for i=1, getn(arrScoreIndex) do
arrUserData[arrScoreIndex][3] = i
end
end

function DetermineAnsMinLen()
local tmp = arrQuestions[lngCurrQandA]
local min_len = strlen(tmp[2])

for x=2,getn(tmp) do
if (x < getn(tmp)) then
if (min_len > strlen(tmp[x+1])) then
min_len = strlen(tmp[x+1])
end
end
end
return min_len
end

function ShowPlayers(curUser)
local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

SendDataToPlayer(curUser, "Players currently playing trivia:", WayToSend)
local tmp = nil
for index, value in arrPlayers do
tmp = 1
SendDataToPlayer(curUser, " "..index, WayToSend)
end
if (not tmp) then
SendDataToPlayer(curUser, " There is no one playing trivia right now.", WayToSend)
end
end

function CheckForRightAnswer(msg)
local Answers = arrQuestions[lngCurrQandA]
for x=2,getn(Answers) do
if (strlower(msg) == strlower(Answers
)) then
return Answers
end
end
return nil
end

function CalcTimeSpentOnWins(score, wins)
local secs_left = 0

local t_secs = 45*wins - score
local days = 0
local hours = 0
local minutes = 0
local seconds = 0
local days_t = ""
local hours_t = ""
local minutes_t = ""
local seconds_t = ""

days = floor(t_secs/86400)
secs_left = t_secs-(days*86400)

hours = floor(secs_left/3600)
secs_left = secs_left - (hours*3600)

minutes = floor(secs_left/60)
secs_left = secs_left - (minutes*60)

seconds = secs_left

if (days == 1) then
days_t = " day, "
else
days_t = " days, "
end

if (hours == 1) then
hours_t = " hour, "
else
hours_t = " hours, "
end

if (minutes == 1) then
minutes_t = " minute and "
else
minutes_t = " minutes and "
end

if (seconds == 1) then
seconds_t = " second"
else
seconds_t = " seconds"
end

return days..days_t..hours..hours_t..minutes..minutes_t..seconds..seconds_t
end

function CheckForHigherRanking(sUser)
local currentRank = arrUserData[sUser][3]
local currentScore = arrUserData[sUser][1]

if (currentRank ~= 1) then
local scoreAbove = arrUserData[arrScoreIndex[currentRank-1]][1]
while ((scoreAbove < currentScore) and (currentRank ~= 1)) do
arrUserData[arrScoreIndex[currentRank-1]][3] = currentRank + 1
arrUserData[sUser][3] = currentRank-1

arrScoreIndex[currentRank], arrScoreIndex[currentRank-1] = arrScoreIndex[currentRank-1],arrScoreIndex[currentRank]

currentRank = currentRank - 1
scoreAbove = arrUserData[arrScoreIndex[currentRank-1]][1]
end
end
end

function ShowHelp(curUser)

local WayToSend = nil
if (boolMessageIsPM) then
WayToSend = "PM"
else
WayToSend = "MC"
end

SendDataToPlayer(curUser," ", WayToSend)
SendDataToPlayer(curUser," "..BotVersion.." commands:", WayToSend)
SendDataToPlayer(curUser," ", WayToSend)
if (lngMode == 1) then
SendDataToPlayer(curUser," "..BotVersion.." is set to be played in chat", WayToSend)
elseif (lngMode == 2) then
SendDataToPlayer(curUser," "..BotVersion.." is set to be played in chat (hidden)", WayToSend)
elseif (lngMode == 3) then
SendDataToPlayer(curUser," "..BotVersion.." is set to be played in PM", WayToSend)
end
SendDataToPlayer(curUser," "..HelpTrigg.." - Displays this help", WayToSend)
SendDataToPlayer(curUser," "..JoinTrigg.." - Joins you to Trivia", WayToSend)
SendDataToPlayer(curUser," "..PartTrigg.." - Parts you from Trivia", WayToSend)
SendDataToPlayer(curUser," "..QuestionTrigg.." - Shows current question", WayToSend) --fixed by AcE
if (boolAllowAltAnswersToBeSeen) then
SendDataToPlayer(curUser," "..AnswersTrigg.." - Shows all possible answers to the prvious question.", WayToSend)
end
SendDataToPlayer(curUser," "..StatTrigg.." [ OR me] - Shows a player's stats", WayToSend)
SendDataToPlayer(curUser," "..ScoreTrigg.." [ or me] - Shows the top 20 scores, or the scores around ", WayToSend)
SendDataToPlayer(curUser," "..PlayerTrigg.." - Shows all players in current game", WayToSend)
SendDataToPlayer(curUser," "..HintTrigg.." - Reveals a hint", WayToSend)
-- SendDataToPlayer(curUser," "..AddTrigg.." - Adds a question to the Trivia Questions File. Type the question, then separate the answer with a #")
-- SendDataToPlayer(curUser," EXAMPLE : tbquestion How fast does a bird fly?#Dont know")
if (curUser.bOperator or (boolRaligIsOp and strlower(curUser.sName) == "ralig")) then
SendDataToPlayer(curUser," ", WayToSend)
SendDataToPlayer(curUser," "..BotVersion.." Operator commands:", WayToSend)
-- SendDataToPlayer(curUser," "..QuestionsTrigg.." - Shows all questions in current game")
SendDataToPlayer(curUser," "..StartTrigg.." [] - Starts a round of trivia and automatically adds you as a player", WayToSend)
SendDataToPlayer(curUser," "..StopTrigg.." - Stops the round of trivia", WayToSend)
SendDataToPlayer(curUser," "..ChangeTrigg.." () - Reloads questions from ", WayToSend)
SendDataToPlayer(curUser," Currently these filenames can be used:", WayToSend)
for x=1,getn(arrKnownDataFiles) do
SendDataToPlayer(curUser," "..arrKnownDataFiles
, WayToSend) --typo fixed by AcE
end
SendDataToPlayer(curUser," "..ModeTrigg.." - Changes how the trivia is played:",WayToSend)
SendDataToPlayer(curUser," Mode 1: Played in main chat for everyone to see", WayToSend)
SendDataToPlayer(curUser," Mode 2: Played in main chat, but only joined players can see questions", WayToSend)
SendDataToPlayer(curUser," Mode 3: Played in PM", WayToSend)
SendDataToPlayer(curUser," "..SaveTrigg.." - Saves scores into a file", WayToSend)
SendDataToPlayer(curUser," "..LoadTrigg.." - Loads scores from file", WayToSend)
end
end

function SendToPlayers(msg)
if ((lngMode > 3) or (lngMode < 1)) then
lngMode = lngDefMode
end

if (lngMode == 1) then
SendToAll(BotName, msg)
elseif (lngMode == 2) then
for index, value in arrPlayers do
SendToNick(index, "<"..BotName.."> "..msg)
end
elseif (lngMode == 3) then
for index, value in arrPlayers do
SendPmToNick(index, BotName, msg)
end
end
end

function SendChatToOthers(chat, curUser)
if (lngMode == 3) then
for index, value in arrPlayers do
if (index ~= curUser.sName) then
    SendToNick(index, "$To: "..index.." From: "..BotName.." $<"..curUser.sName.."> "..chat)
end
end
end
end

function SendDataToPlayer(curUser,msg, HowToSend)
--HowToSend should be:
-- "PM" = To send messag via PM
-- "MC" = To send the message to main chat
-- nil = To send based on the Mode

if (lngMode >3) or (lngMode < 1) then
lngMode = lngDefMode
end

if (HowToSend == "PM") then
curUser:SendPM(BotName, msg)
elseif (HowToSend == "MC") then
curUser:SendData(BotName,msg)

elseif ((lngMode == 1) or (lngMode == 2)) then
curUser:SendData(BotName,msg)
elseif (lngMode == 3) then
curUser:SendPM(BotName,msg)
end
end

LOL

I don't think that your script works... at all :D

wouaw!!

hehehehe i'm useing the script now
lol :D

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: D-J Valhala on 03 December, 2003, 21:36:09