'st '0.849 '&SnapNJacks Trivia:Snap (SnapWilliam@Gmail.com) '&trivia on/off:score:score :skip:qadd:category :qformat:hformat:hints :useserver :stver:high scores/hscores:gemote on/off:hintchar [char]:reportbadq [id] [why]:AFormat [newformat]:difficulty [difficulty]-[difficulty] '&12827 '&SnapNJack's Trivia continues to be updated:Report all problems/errors/suggestions on stealthbot.net:See SnapNJacks.com for server details '// SnapNJacks Trivia '// by Snap '// Assistance by Jack and Swent. '// Creation Date: 12/04/2005 '// Last Updated: 1:53 AM Friday, August, 2007 by Snap '// 08/28/07 '// ver 0.83: Added further config variables. '// ver 0.828: Re-Fixed the donate command and other numerous fixes. '// ver 0.84: Added stblock and stunblock commands - and some changes. 08/28/07 '|||||||||||||||||||||||||||||| '|| CHANGE LOG || '|||||||||||||||||||||||||||||| '//These didn't make the cut for this release: '==Add Category List- lists all categories with over 10 questions (in bot only?) '==Scramble '==Speed-Challenge '==Quotes '==Add a auto-start config entry(along with delay time), if true the trivia will auto-start on connect. (Thanks DeadlyWorkz) '==Add Bonus Value + XPercentage based on answering a question fast (or Xtime) (Thanks DeadlyWorkz) '==Add Friends mode- where questions will be /f l'd. Like Gemote? Maybe? '==Add Auto Start/Stop on chan usercount. (Previously suggested by 'x(i forgot) '==Add QFileDesc [optional file], SetQFileDesc [file] [set] (uses header comments. Thanks Mikechaos) '==Add QFileDel [Q#] '==Make commands flagable. '==Add a server-client check for category - (to see if it exists) '== http://www.stealthbot.net/board/index.php?showtopic=28021 '// ver 0.841 - 0.849 '// ADDITIONS: '//Added Var: €intmoney (Thanks LoveYou) '//Added floodprotect config entry. - SnapNJacks will attempt to protect against spam. (Thanks yell3r-) '//Added /stconfig to open the st_config file. '//Added config vars: StreakBonus : Streak (Thanks yell3r-) '//Added Suffix to %rank (like 1st 2nd 14th etc) - %intrank now has the none-suffixed version. '//Added config var: StreakIncrease - Increases the bonus by this amount per-question after streak, default is 0. (Thanks yell3r-) '// FIXES: '//Fixed an error where Streak and other's were off by +1. (Thanks LoveYou) '//Fixed yet ANOTHER problem with the donate command - where a user had the same name as the bot... (Thanks yell3r-) '//Fixed a bug where 2 questions would be asked in a row (also stoped the "now using" re-anouncment) (Thanks Minosha) '//Fixed a language bug? Maybe? - Changed %v to %vl (Thanks Phix) '//Fixed a rank issue - where top-ranked user would show up as 0th. or Not Found (Thanks Arez) '// CHANGES: '//Renamed Command "delete" to "stdelete (user)" '//Changed the color, just for fun. '//Added functions for the CCX plugin '// ver 0.828 - 0.84 '// ADDITIONS: '//Add all user-relevant data into the .score command (fastest answer, longest streak etc) '//Made .score command customizable. ' //Varriables: %u, %vl, %st, %qa, %fa, %st, %la and %rank. '//Add variables to some formats and announcements '//Add a way to block a user from answering questions. (Thanks DeadlyWorkz) ' //Commands include: stblock [user], stunblock [user], stblocklist '//Added playaccess to config - an optional access requirement to play trivia. '//Make a status response to .trivia without on/off. (Thanks Joker187) '//Add a IsOnlineCheck to the STAQ's to disable Trivia. (Thanks Ferre7) '//Added // (2 Slashes) commands - responses to commands executed with // will be out-loud. '// FIXES: '//Fixed %spm and %sps in the Aformat. (Apparently it was added to AncSpeedRecord accidentally) '//Fixed aa access issue relating to 2-word commands (trivia on/off) (Thanks Maximus) '//Fixed an error when a person says the trigger by itself. (Thanks DuFFBeeR) '//Fixed Rebuilt that pesky donate command- it now works as intended. '//Fixed manswered default config var (Thanks leetone) '// CHANGES: '//Modified the setfile command to instantly turn /trivia on if file is picked. '//Changed some function names in the SNJ Class. '//No longer downloads questions on startup, - it downloads it's first set when questions are received. _ '// This increases boot-time speed. '//FAQ Mod self-notes: '//%spm and %sps in the AncSpeedRecord / Aformat '//Explain %sps(3-2-1-0) '//BlurtStats off to fix flood issues in 2.6. '//Explain Score Format '//Explain //Commands. '//How to delete the user-database. '//Category off? '//Donate command isn't in FAQ. -In Guide. '//FAQ: Question Files needs to be updated. '==Put Link to JSnake - Topic: 24665) '==Explain Flood '==Add /stconfig command '==Streak and StreakBonus '==qtxtvalue '==stblock / stunblock '//stdelete '|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| '|| CREDITS || '|| Assistant coders: Jack and Swent || '|| Extra ideas from: || '|| Nellaf, MoV-Leader, The.Warchief, Three_Stooges, TcHa2-PulK, Hr.Frosty || '|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| Public Const ST_VER_DESCRIP = "Release" '//Out-Dated, but still required for moving the users over. Public Const ST_USER_LOC = "plugins\ST_users.ini" '//User Database Location '//Defined in EventLoad Public ST_USERDB_LOC '//Config file location '//Defined in EventLoad Public ST_CONFIG_LOC '//ST's Color: Public Const ST_COLOR = &HFFCC99 'Codernotes ' '== is used when there is room for improvement regarding the section of code ' '!! is used when there is urgent attention to this section of code ' 'This code was written in SciTE text based editor And/Or NotePad++ ' '|||||||||||||||||||||| '|| GlOBAL VARIABLES || Public stFSO Set stFSO = CreateObject("Scripting.FileSystemObject") Public st_enabled '// Global on/off Public st_q_array(41) '// Question DB pull 2deminsional array. Public st_q_set '// Current Question Set Public st_q_total '// Question Number - how many questions downloaded. Public st_q_num '// Current Question Number Public st_q_answer '// Question's Answer Public st_q_skiped '// The answer to a skipped question Public st_unanswerd '// The consecutive amount of questions unanswered. Public st_hint_num '// Current Hint Number Public st_hint_string '// Current Hint Public st_q_asked '// Contains GetGTC of the time the question was asked. Public st_flooduser '// Used to prevent spam. Public st_floodtime '// ^ Public st_DBConnStr '//As defined in the event Load. - The database connection string. '//This will be used for our class Public SNJ '//Streak Varriables. Public ST_Streak, ST_Streak_User, ST_Streak_Con '//Virtual Queue Load Public ST_VQL '// Full File Location Public ST_File_Config Public ST_File_Users '|||||||||||| '|| LOAD || Sub ST_Event_Load() '//Define varriables: ST_USERDB_LOC = BotPath() & "plugins\ST_users.mdb" ST_CONFIG_LOC = BotPath() & "plugins\ST_config.ini" '//Used to connect to the database ST_DBConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ST_USERDB_LOC 'ST_DBConnStr = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & ST_USERDB_LOC '//Set our class varriables Set SNJ = New SNJClass '// Users.ini exists, Users.mdb doesn't. If stFSO.FileExists(BotPath() & ST_USER_LOC) AND NOT stFSO.FileExists(ST_USERDB_LOC) Then Addchat VByellow, "ST: SnapNJacks will now create the database, and copy the users over" SNJ.OpenDB SNJ.MoveOldScores '//This appears to be a fresh-install- Offer to delete their st_config.ini Else '//Just Open the database SNJ.OpenDB End If If SNJ.Setting("configver") <> psVersions.Item("st") AND stFSO.FileExists(ST_CONFIG_LOC) Then Addchat VBwhite, "Welcome to SnapNJacks Trivia, this script was brought to you free of charge by Snap" Addchat VBwhite, "Be sure to visit the Guide: http://www.stealthbot.net/board/index.php?showtopic=12827" If MsgBox("This appears to be a new update." & VBnewline & "Would you like to delete your ST_Config.ini? (This will reset the ST_Config to the new defaults. Which is recommended after a update.)", 4) = 6 Then stFSO.DeleteFile ST_CONFIG_LOC Addchat VByellow, "ST_Config File deleted" Else '//So that we don't ask the question again. ST_WriteSetting "configver", psVersions.Item("st") End If End If If Not stFSO.FileExists(ST_CONFIG_LOC) Then stFSO.CreateTextFile(ST_CONFIG_LOC) ST_CreateConfig End If If Not stFSO.FolderExists("question files") Then stFSO.CreateFolder("question files") AddChat vbYellow, "ST: New folder ""question files"" created. Put your question files in here to use them." End If TimerInterval "ST", "AskQuestion", 5 TimerInterval "ST", "VirtualQ", 3 TimerEnabled "ST", "VirtualQ", True '//Used for Rnd function Randomize '//Support for the CCX Plugin. If psVersions.Item("ccx") = "1.1" Then Addchat ST_COLOR, "ST: CCX Plugin detected! Exposing functions..." 'ccx.RegisterFunction(Name, CallBack, Args, Priority) ccx.RegisterFunction "ST_score", "SNJ.GetUMoney", 1, 1 ccx.RegisterFunction "ST_rank", "SNJ.GetRank", 1, 1 ccx.RegisterFunction "ST_money", "SNJ.GetUMoney", 1, 1 ccx.RegisterFunction "ST_streak", "SNJ.GetStreak", 1, 1 ccx.RegisterFunction "ST_answered", "SNJ.GetAnswered", 1, 1 ccx.RegisterFunction "ST_fastest", "SNJ.GetFastest", 1, 1 ccx.RegisterFunction "ST_last", "SNJ.GetLastAnswer", 1, 1 End If '//Okay, script loaded. AddChat ST_COLOR, "SnapNJacks Trivia. Version " & psVersions.Item("st") & " " & ST_VER_DESCRIP & " loaded with " & SNJ.GetUCount & " users in the DB" End Sub '|||||||||||||||| '|| USERTALK || Sub ST_Event_UserTalk(Username, Flags, Message, Ping) '//Call our commands sub. If Left(Message, 1) = BotVars.Trigger Then ST_Commands Username, Message, "Talk" '//Is ST running? - Answer Check If st_enabled Then ST_CheckAnswer Username, Message End Sub '||||||||||||||||||||| '|| PRESSED ENTER || Sub ST_Event_PressedEnter(Text) If Left(Text, 3) = "/a " AND st_enabled Then ST_CheckAnswer BotVars.Username, Mid(Text, 4) VetoThisMessage Exit Sub End If If Left(Text, 2) = "//" Then ST_Commands BotVars.Username, Mid(Text, 2), "UEnter" Exit Sub End If If Left(Text, 1) = "/" Then ST_Commands BotVars.Username, Text, "Enter" End Sub '||||||||||||||| '|| WHISPER || Sub ST_Event_WhisperFromUser(Username, Flags, Message) If Left(Message, 1) = BotVars.Trigger Then ST_Commands Username, Message, "Whisper" End Sub '//Unused ATM Sub ST_Event_UserEmote(Username, Flags, Message) 'Username = SNJ.PUser(Username) '//Some Special questions must be answered with an emote? End Sub '|||||||||||||||||||| '|| CHECK ANSWER || Sub ST_CheckAnswer(Username, Message) If SNJ.GetBlocked(Username) Then Exit Sub GetDBEntry Username, UAccess, UFlags If Not (Int(st_GetSetting("playaccess")) = 0) Then If UAccess < st_GetSetting("playaccess") - 1 Then Exit Sub End If End If Dim Answers, NewScore, AddScore If Not st_enabled Then Exit Sub If instr(st_q_answer, "/") = 0 Then If lcase(Message) = lcase(st_q_answer) Then SNJ.AcceptAnswer SNJ.PUser(Username), st_q_set(3), GetGTC - st_q_asked st_q_answer = "" st_unanswerd = 0 End If Exit Sub End If Answers = Split(st_q_answer, "/") '//Check all possible answers For Each Item in Answers If Lcase(Message) = Lcase(Item) Then SNJ.AcceptAnswer SNJ.PUser(Username), st_q_set(3), GetGTC - st_q_asked st_q_answer = "" st_unanswerd = 0 End If Next End Sub Sub ST_SQ(Text) If Instr(Text, "%nl") > 0 Then Dim TextAry TextAry = Split(Text, "%nl") For Each Item in TextAry STAQ Item Next Exit Sub Else STAQ Text End If End Sub Sub STAQ(Text) If Not SSC.IsOnline() Then Addchat ST_COLOR, "ST: Stealthbot isn't online. Trivia will now be disabled." ST_Disable Exit Sub End If '//GlobalEmote=False If lcase(st_GetSetting("GlobalEmote")) = "true" Then If lcase(left(Text, 4)) = "/me " Then Text = Mid(Text, 5) Dsp 2, Text, 0, 0 Else Dsp 1, Text, 0, 0 End If ST_VQL = ST_VQL + 1 End Sub 'For the Commands Sub Sub ST_R(Username, Message, Method) Select Case Method Case "Enter" AddChat ST_COLOR, Message VetoThisMessage Case "UEnter" STAQ Message VetoThisMessage Case "Talk" STAQ Message Case "Whisper" STAQ "/w " & Username & " " & Message End Select End Sub '||||||||||||||||||||||||||||||| '|| COMMANDS SUB || Sub ST_Commands(Username, Message, Source) Dim Lmsg, Tmp '//Request Command and String Dim RCmd, RStr Lmsg = Trim(Mid(Message, 2)) '//No command? If Lmsg = "" Then Exit Sub '//Is there full-sentence alias for this command? Tmp = ST_GetCommand(Lmsg) If Tmp <> "" Then RCmd = Lcase(Tmp) Else '//How about first-word alias? RCmd = Lcase(Split(Lmsg)(0)) Tmp = ST_GetCommand(RCmd) If Tmp <> "" Then RCmd = Lcase(Tmp) If Instr(Lmsg, " ") > 0 Then RStr = Mid(Lmsg, Instr(Lmsg, " ") + 1) End If '//Command disabled? If RCmd = "disabled" Then Exit Sub Dim InBot InBot = False ST_Debug "Command used: " & RCmd ST_Debug "String: " & RStr '//Check access GetDBentry Username, hisAccess, hisFlags If Source = "Enter" OR Source = "UEnter" Then hisAccess = 1000 InBot = True End If '//-1 Because script returns -1 if not in DB. If hisAccess < st_getaccess(RCmd) - 1 Then Exit Sub Username = SNJ.PUser(Username) '//Rids us of the @lordaeron and #2 etc. '//Check For flooding! If int(st_GetSetting("floodprotect")) > 0 AND Not InBot Then If ST_VQL >= 2 Then If int(st_GetSetting("floodprotect")) > 1 Then Addchat ST_COLOR, "ST: Flood protection has ignored due to a high virtual-q." Exit Sub End If If st_flooduser = Username AND GetGTC - st_floodtime < 2300 Then If int(st_GetSetting("floodprotect")) > 1 Then Addchat ST_COLOR, "ST: Flood protection has ignored a spammed command." Exit Sub End If st_flooduser = Username st_floodtime = GetGTC End If '//All done! On to our commands! '//Score If RCmd = "score" Then If RStr = "" Then RStr = Username Tmp = SNJ.GetUMoney(RStr) If Tmp = "" Then ST_R Username, "User not found: " & Rstr, Source Else ST_R Username, SNJ.ProcessVars(st_GetSetting("resscore"), RStr), Source '// SNJ.GetRank End If End If If RCmd = "donate" Then Tmp = Split(RStr) If UBound(Tmp) <> 1 Then ST_R Username, "Format: " & Botvars.trigger & "donate [username] [howmuch] ;Example: " & Botvars.trigger & "donate bob 20", Source Else '//Allow the bot console to donate username -5 to take money from users. If InBot AND Left(Tmp(1), 1) = "-" Then If SNJ.GiveMoney(Tmp(1), Username, Tmp(0), InBot) Then ST_R Username, "Removed " & FormatCurrency(Tmp(1)) & " from " & Tmp(0), Source Else ST_R Username, "Failed to remove money" End If Else Tmp(1) = Replace(Tmp(1), "-", "") If SNJ.GiveMoney(Tmp(1), Username, Tmp(0), InBot) Then ST_R Username, "Donated " & FormatCurrency(Tmp(1)) & " to " & Tmp(0), Source Else ST_R Username, "Unable to donate, make sure you have the funds, and that the other user is in the database.", Source End If End If End If End If If RCmd = "rank" AND RStr = "" Then Tmp = SNJ.GetRank(Username) If Tmp = 0 Then ST_R Username, "I don't have you on record yet " & Username, Source Else ST_R Username, Username & ", you are ranked: " & SNJ.AddSuffix(Tmp), Source End If ElseIf RCmd = "rank" Then Tmp = SNJ.GetRank(Rstr) If Tmp = 0 Then ST_R Username, "Trivia: User not found: " & Rstr, Source Else ST_R Username, Split(Lmsg)(1) & " found: ranked: " & SNJ.AddSuffix(Tmp), Source End If End If '==Addslashes If RCmd = "stblock" And RStr <> "" Then If SNJ.GetBlocked(Rstr) Then ST_R Username, "User: " & Rstr & " is already blocked", Source Exit Sub Else SNJ.Block(RStr) ST_R Username, "User has been blocked from playing trivia: " & Rstr, Source Exit Sub End If End If If RCmd = "stunblock" And RStr <> "" Then If Not SNJ.GetBlocked(Rstr) Then ST_R Username, "User: " & Rstr & " isn't blocked.", Source Exit Sub Else SNJ.UnBlock(RStr) ST_R Username, "User has been unblocked from playing trivia: " & Rstr, Source Exit Sub End If End If If RCMd = "stblocklist" Then ST_R Username, SNJ.BlockList, Source Exit Sub End If If RCmd = "skip" AND st_enabled Then If Source <> "Talk" Then STAQ "Question Skipped" If Source = "Enter" Then VetoThisMessage st_q_skiped = st_q_answer ST_AskQuestion_Timer End If If RCmd = "category off" Then SNJ.Setting("category") = "" ST_R Username, "Category reset to """"", Source Exit Sub End If '//To update a category selection If RCmd = "category" Then If RCmd & RStr <> "category" Then ST_WriteSetting "category", Split(Lmsg)(1) ST_R Username, "New category string: """ & st_GetSetting("category") & """ Saved", Source '//download a new set based on it :). ST_GetQuestions Else ST_R Username, "Usage: '" & BotVars.Trigger & "category " & ST_Def_Set("category") & _ "'. Current setting: " & st_GetSetting("category"), Source End If End If If RCmd = "hints" AND RStr <> "" Then ST_WriteSetting "Hints", RStr ST_R Username, "ST: Change saved: Hints=" & RStr, Source End If If Left(Lmsg, 9) = "hintchar " Then ST_WriteSetting "hintchar", Mid(Message, 11, 1) ST_R Username, "ST: Change saved: hintchar=" & Mid(Message, 11, 1), Source End If If RCmd = "setfile" Then If RStr = "" Then ST_R Username, "ST: No input, - listing files:", Source If Source = "Enter" Then ST_Scan False Else ST_Scan True Exit Sub End If Tmp = RStr If InStrRev(lcase(Tmp), ".txt") <> (Len(Tmp) - 3) OR Len(Tmp) < 4 Then Tmp = Tmp & ".txt" End If If stFSO.FileExists(BotPath() & "question files\" & Tmp) Then ST_WriteSetting "questionfile", Tmp ST_R Username, "ST: Change saved: questionfile=" & Tmp, Source ST_WriteSetting "UseServer", "False" ST_GetQuestions ST_Enable ElseIf Source = "Enter" Then ST_R Username, "ST: File not found:" & Tmp & " Scanning...", Source ST_Scan False Else ST_R Username, "ST: File not found:" & Tmp & " Scanning...", Source ST_Scan True End If End If If RCMd = "blurtstats on" Then SNJ.Setting("blurtstats") = "true" ST_R Username, "ST: Now blurtstats is now on.", Source End If If RCMd = "blurtstats off" Then SNJ.Setting("blurtstats") = "false" ST_R Username, "ST: Now blurtstats is now off.", Source End If '//Console Only Commands If InBot Then If RCMd = "stconfig" Then ST_R Username, "ST: Opening config...", Source psWShell.Open ST_CONFIG_LOC End If If RCMd = "stdebug on" Then SNJ.Setting("debug") = "true" ST_R Username, "ST: Now showing debug data", Source End If If RCMd = "stdebug off" Then SNJ.Setting("debug") = "false" ST_R Username, "ST: Now hiding debug data", Source End If If RCMd = "stdelete" Then If RStr <> "" Then SNJ.DeleteUser(RStr) ST_R Username, "User " & RStr & " has been deleted", Source End If End If If RCMd = "stuserlist" Then ST_R Username, "Snap's Trivia Userlist (Top 500):", Source Tmp = SNJ.TopMoney(500) Tmp = Replace(Tmp, ": ", VBTab) Tmp = Replace(Tmp, ", ", VBNewLine) Addchat ST_COLOR, VBNewLine & Tmp End If End If '//UseServer On/Off If Trim(RCmd & " " & Lcase(RStr)) = "useserver on" Then ST_WriteSetting "UseServer", "True" ST_R Username, "ST: Change saved", Source ST_GetQuestions ElseIf Trim(RCmd & " " & Lcase(RStr)) = "useserver off" Then ST_WriteSetting "UseServer", "False" ST_R Username, "ST: Change saved", Source ST_GetQuestions End If '//GEmote On/Off If Trim(RCmd & " " & Lcase(RStr)) = "gemote on" Then ST_WriteSetting "globalemote", "True" ST_R Username, "ST: Change saved: globalemote=True" , Source ElseIf Trim(RCmd & " " & Lcase(RStr)) = "gemote off" Then ST_WriteSetting "globalemote", "False" ST_R Username, "ST: Change saved: globalemote=False" , Source End If '//Use Profile On/Off If Trim(RCmd & " " & Lcase(RStr)) = "useprofile on" Then ST_WriteSetting "useprofile", "True" ST_R Username, "ST: Change saved: useprofile=True" , Source ElseIf Trim(RCmd & " " & Lcase(RStr)) = "useprofile off" Then ST_WriteSetting "useprofile", "False" ST_R Username, "ST: Change saved: useprofile=False" , Source End If If RCmd = "qformat" Then If InStr(RStr, "%q") <> 0 AND RStr <> "" Then ST_WriteSetting "qformat", RStr ST_R Username, "New Qformat string: """ & st_GetSetting("qformat") & """ Saved", Source Else ST_R Username, "Usage: '" & BotVars.Trigger & "qformat " & ST_Def_Set("qformat") & _ "'. %q Required! Current setting: " & st_GetSetting("QFormat"), Source End If End If If RCmd = "hformat" Then If InStr(RStr, "%h") <> 0 AND RStr <> "" Then ST_WriteSetting "hformat", RStr ST_R Username, "New Hformat string: """ & st_GetSetting("hformat") & """ Saved", Source Else ST_R Username, "Usage: '" & BotVars.Trigger & "hformat " & ST_Def_Set("hformat") & _ "'. %h Required! Current setting: " & st_GetSetting("HFormat"), Source End If End If If RCmd = "aformat" Then If RStr <> "" Then ST_WriteSetting "aformat", RStr ST_R Username, "New Aformat string: """ & st_GetSetting("Aformat") & """ Saved", Source Else ST_R Username, "Usage: '" & BotVars.Trigger & "aformat " & ST_Def_Set("aformat") & _ "'. Current setting: " & st_GetSetting("AFormat"), Source End If End If If RCmd = "pformat" Then If RStr <> "" Then ST_WriteSetting "pformat", RStr ST_R Username, "New Pformat string: """ & st_GetSetting("Pformat") & """ Saved", Source Else ST_R Username, "Usage: '" & BotVars.Trigger & "Pformat " & ST_Def_Set("pformat") & _ "'. Current setting: " & st_GetSetting("PFormat"), Source End If End If If RCmd = "difficulty" Then If RStr <> "" Then ST_WriteSetting "difficulty", RStr ST_R Username, "New difficulty setting: """ & st_GetSetting("difficulty") & """ Saved", Source Else ST_R Username, "Usage: '" & BotVars.Trigger & "difficulty " & ST_Def_Set("difficulty") & _ "'. Current setting: " & st_GetSetting("difficulty"), Source End If End If If RCmd = "stver" Then ST_R Username, "ST Version " & psVersions.Item("st") & " " & ST_VER_DESCRIP & " loaded.", Source End If If Trim(RCmd & " " & Lcase(RStr)) = "trivia off" Then If st_enabled = True Then ST_Disable ST_R Username, "/me *** Le trivia s'arrete ! Ecrit '" & BotVars.Trigger & "trivia on' pour le démarrer.", Source Command BotVars.Username, "/greet on", True If st_q_answer <> "" Then STAQ "/me *** La réponse ŕ la question était: " & st_q_answer st_q_answer = "" End If Else ST_R Username, "/me *** Le trivia est déja arreté.", Source End If Exit Sub End If If Trim(RCmd & " " & Lcase(RStr)) = "trivia on" Then If st_enabled = False Then ST_Enable ST_R Username, "/me *** Le trivia commence ! Ecrit '" & BotVars.Trigger & "trivia off' pour l'arreter.", Source Command BotVars.Username, "/greet off", True AddQ("/skip") ST_AskQuestion_Timer Else ST_R Username, "/me *** Le trivia est déja démarré.", Source End If Exit Sub End If If RCmd = "trivia" Then If ST_Enabled Then ST_R Username, "ST: Version " & psVersions.Item("st") & " " & ST_VER_DESCRIP & " - Trivia is On.", Source Else ST_R Username, "ST: Version " & psVersions.Item("st") & " " & ST_VER_DESCRIP & " - Trivia is off.", Source End If Exit Sub End If '//Top 10 High Scores If RCmd = "hscores" Then ST_R Username, "ST: Top 10: " & SNJ.TopMoney(10), Source End If If RCmd = "fanswers" Then ST_R Username, "ST: Top 10: " & SNJ.TopFAnswers(10), Source End If If RCmd = "manswered" Then ST_R Username, "ST: Top 10: " & SNJ.TopMAnswers(10), Source End If If RCmd = "lstreak" Then ST_R Username, "ST: Top 10: " & SNJ.TopLStreaks(10), Source End If '//We need this for the next 2 Dim PreURL '//reportbadq If RCmd = "reportbadq" Then Dim Rstring, R_ID, Response Rstring = "<" & Username & "> " & Message R_ID = Split(Rstring & " ")(2) If IsNumeric(R_ID) Then '//Run replacements for HTTP transmission Rstring = SNJ.CleanURL(RString) PreURL = "http://snapnjacks.com/repq.php?pass=" & st_GetSetting("reportpass") PreURL = PreURL & "&R_ID=" & R_ID & "&R=" & Rstring PreURL = PreURL & "&bot=" & botvars.username Response = scInet.OpenURL(CStr(PreURL)) If Response <> "" AND Len(Response) < 230 Then ST_R Username, "ST: " & Response, Source Else ST_Debug "Server Response: " & Response ST_R Username, "ST: Could not send report!", Source End If Else ST_R Username, "Format: " & BotVars.Trigger & "reportbadq 60323 The answer is wrong, it should be Rob Thomas", source End If End If '//Question Add System '//Message = ".qadd What's 12*9?|108/one hunderd and eight|3|1.99|0|Math" If RCmd = "qadd " Then Dim Qstring, Qary Qstring = RStr '//Run replacements for HTTP transmission Qstring = SNJ.CleanURL(Qstring) If Match(Qstring, "*|*|*|*|*|*", True) Then Qary = Split(Qstring, "|") PreURL = "http://snapnjacks.com/qadd.php?Q=" & Qary(0) & "&A=" & Qary(1) & _ "&Difficulty=" & Qary(2) & "&Value=" & Qary(3) & "&Type=" & Qary(4) & "&Category=" & Qary(5) If scInet.OpenURL(CStr(PreURL)) = "Question Submited" Then AddQ "Your question has been added to the Review Database, Thank you." Else AddQ "Error in sending Question. Sorry." End If Else AddQ "Format: " & BotVars.Trigger & "qadd What's 12*9?|108/one hundred and eight|20|5.99|0|Math" AddQ "Question|Answers Seperated by ""/""|Difficulty 0-5|Value|Type 0 (Used for special Q's)|Categorys seperated by "",""" End If End If End Sub '|| END COMMANDS SUB || '|||||||||||||||||||||||||||||| Sub ST_Event_ServerInfo(Message) If Message = "No one hears you." AND st_enabled Then If st_GetSetting("StopOnEmpty") <> "False" Then ST_Disable End If End Sub Sub ST_Event_ServerError(Message) If Message = "All connections closed." AND st_enabled Then ST_Disable End Sub '|||||||||||||||||| '|| TIMERS || Public Sub ST_AskQuestion_Timer() If Not st_enabled Then Exit Sub End If ST_AskQuestion If st_GetSetting("Askrate") + 0 < 5 Then st_WriteSetting "Askrate", 5 TimerInterval "ST", "AskQuestion", Int(st_GetSetting("Askrate") * (st_GetSetting("hints") + 1) + 1) TimerEnabled "ST", "AskQuestion", True End Sub Sub ST_VirtualQ_Timer() If ST_VQL > 0 Then ST_VQL = ST_VQL - 1 End Sub '|||||||||||||||||| '|| HINT SUB || Sub ST_GiveHint_Timer() If st_q_answer = "" Or Not st_enabled Then Exit Sub st_hint_num = st_hint_num + 1 If Instr(st_q_answer, "/") Then hintAnswer = Split(st_q_answer & "/", "/")(0) Else hintAnswer = st_q_answer End If '// Last hint already given? If st_hint_num > Int(st_GetSetting("hints")) Then TimerEnabled "ST", "GiveHint", False STAQ "/me *** Temps terminé ! La réponse était: " & st_q_answer '==ST_Streak st_q_answer = "" st_hint_num = 0 st_hint_string = "" Exit Sub End If Dim HintOdds HintOdds = Cint(st_GetSetting("HintOdds")) Dim i, hintchar, curHint '//Set the hint char hintchar = left(st_GetSetting("hintchar"), 1) For x = 0 to 10 curHint = "" '// Loop char-by-char through string For i = 1 to Len(hintAnswer) '// Skip spaces If Mid(hintAnswer, i, 1) = " " Then curHint = curHint & " " '// Keep letters we already have ElseIf st_hint_string <> "" And Mid(st_hint_string, i, 1) <> hintchar Then curHint = curHint & Mid(st_hint_string, i, 1) '// If it passes probability test uncover current character ElseIf HintOdds / 100 > Rnd Then curHint = curHint & Mid(hintAnswer, i, 1) Else curHint = curHint & hintchar End If Next If curHint <> st_hint_string Then Exit For Next'//The outer loop decreases the chances of getting an empty hint, or an unchanged hint. '// Make sure the hint doesn't give the complete answer If curHint = hintAnswer Then curHint = st_hint_string '// Output the hint in the custom format Dim HFormat HFormat = st_GetSetting("HFormat") '//If no %h then go with the defaults If InStr(HFormat, "%h") = 0 Then HFormat = ST_Def_Set("HFormat") HFormat = Replace(HFormat, "%h", curHint) STAQ HFormat '//Save for next round st_hint_string = curHint End Sub '//Ask Question Public Sub ST_AskQuestion() '//Enable Disable based on the amount of users in the channel If st_GetSetting("AutoDisableP") <> 0 AND st_GetSetting("AutoDisableP") < GetInternalUserCount() Then STAQ "ST: Not enough users in channel." ST_Disable Exit Sub End If If st_GetSetting("AutoEnableP") <> 0 AND st_GetSetting("AutoEnableP") > GetInternalUserCount() Then STAQ "ST: Trivia started because there are now " & GetInternalUserCount() & " users in the channel" ST_Enable Exit Sub End If If Not st_enabled Then Exit Sub If st_q_num >= st_q_total Then st_q_num = -1 '//Clear olddata st_hint_num = 0 st_hint_string = "" '// move to the next question st_q_num = st_q_num + 1 '//Make sure there's a question to be asked If IsArray(st_q_array(st_q_num)) = False Then Addchat VByellow, "ST: Loading questions..." ST_GetQuestions Exit Sub End If '// Current Question Set st_q_set = st_q_array(st_q_num) '//If Ubound(st_q_array(st_q_num)) QFormat = st_GetSetting("QFormat") If InStr(QFormat, "%q") = 0 Then QFormat = ST_Def_Set("QFormat") QFormat = Replace(QFormat, "%df", st_q_set(2)) QFormat = Replace(QFormat, "%vl", FormatCurrency(st_q_set(3))) If st_q_set(5) = "" Then QFormat = Replace(QFormat, "%id", st_q_set(5)) QFormat = Replace(QFormat, "%id", "[" & st_q_set(5) & "] ") QFormat = Replace(QFormat, "%ct", st_q_set(6)) QFormat = Replace(QFormat, "%q", st_q_set(0)) If len(st_q_skiped) <> 0 Then QFormat = Replace(QFormat, "%sk", "(Question Précédente: " & st_q_skiped & ") ") st_q_skiped = "" Else QFormat = Replace(QFormat, "%sk", "") End If '// Ask the question STAQ QFormat '//Set the time used for speed checking. st_q_asked = GetGTC '//variables: ' %sk = Previous skipped answer - if existing. ' %df = Difficulty ' %vl = Value ' %id = ID number on snapnjacks.com ' %q = Question ' %ct = Category 'Possible ST_QFormat = "%skQ# %id (%ct) Difficulty: %df, for $%pt!: %q" 'Possible outcome: "Q# 2341 (Family Guy/Cartoons) Difficulty: 20, for $2.50!: Who's the fattest guy in Family Guy?" '//This would be a good time to update the profile. If Lcase(st_GetSetting("useprofile")) = "true" Then SNJ.UpdateProfile '//Set the question answer '// Additionaly, because we will be cutting this when question is answered st_q_answer = Trim(st_q_set(1)) If st_GetSetting("hints") <> 0 Then TimerInterval "ST", "GiveHint", st_GetSetting("Askrate") TimerEnabled "ST", "GiveHint", True End If '//Check if we need to get more questions If st_q_num >= st_q_total Then ST_GetQuestions Exit Sub End If End Sub '//Scan Question Files folder for question files. Sub ST_Scan(Output) Dim QFolder, QFile, I, FileList, DspType If OutPut = True Then DspType = 1 If lcase(st_GetSetting("GlobalEmote")) = "true" Then DspType = 2 Else DspType = 4 End If If Not stFSO.FolderExists("question files") Then stFSO.CreateFolder("question files") AddChat vbYellow, "ST: New folder ""question files"" created in your StealthBot Folder. Place your question files in there to use them." Exit Sub End If Set QFolder = stFSO.GetFolder("question files") '== This will eventualy just output a list of good question files. st_WriteSetting "QuestionFile", "" For Each QFile In QFolder.Files If InStrRev(lcase(QFile.Name), ".txt") = Len(QFile.Name) - 3 Then If ST_CheckFile(QFile.Name) Then If OutPut = True Then FileList = FileList & ", " & QFile.Name Else AddChat vbYellow, "Question file found: " & VBtab & "˙c0˙cb" & QFile.Name End If st_WriteSetting "QuestionFile", QFile.Name End If End If Next If st_GetSetting("QuestionFile") = "" Then Dsp DspType, "ST: No question files found in Question Files", "noone", VByellow Dsp DspType, "Simply place a question file in the ""question files"" folder located in your StealthBot Folder to use", "noone", VByellow Else If OutPut = True Then Dsp DspType, "ST: Question file(s) found: " & FileList, "noone", VByellow End If Dsp DspType, "ST: File set to: " & st_GetSetting("QuestionFile") & ". To use another file type " & botvars.trigger & "setfile filename", "noone", VByellow End If End Sub '//Check file for questions. - Checks for 3 proper-syntaxed questions in a row. Function ST_CheckFile(FileName) ST_CheckFile = False Dim File, I, Line Set File = stFSO.OpenTextFile(BotPath() & "question files\" & FileName, 1, True) Do Until File.AtEndOfStream If I > 3 Then ST_CheckFile = True Exit Do End If Line = File.Readline If Line <> "" OR Mid(Line, 1, 2) <> "//" Then If Len(Line) > InStr(Line, "*") AND InStr(Line, "*") > 2 Then ST_CheckFile = True I = I + 1 Else I = 0 End If End If Loop File.Close End Function '//Get the questions Sub ST_GetQuestions() If lcase(st_GetSetting("UseServer")) = "false" Then If st_GetSetting("QuestionFile") = "" Then AddChat vbYellow, "Questions file not set - scanning bot directory" ST_Scan False If st_GetSetting("QuestionFile") = "" Then AddChat vbYellow, "No files found, reverting to server" st_WriteSetting "UseServer", "True" ST_GetQuestions Exit Sub End If End If ST_ReadQuestionFiles Exit Sub End If '//Downloads Questions, Parses them. If st_q_num = 0 Then st_q_num = -1 End If Dim Received, LineAry, PreURL PreURL = "http://snapnjacks.com/getq.php" PreURL = PreURL & "?dif=" & st_GetSetting("difficulty") If st_GetSetting("category") <> "" Then PreURL = PreURL & "&ctg=" & st_GetSetting("category") '//Run replacements for HTTP transmission PreURL = SNJ.CleanURL(PreURL) If scInet.StillExecuting Then ST_Debug "scInet is still executing last request, unable to get questions" Exit Sub End If Received = scInet.OpenURL(CStr(PreURL)) If InStr(Received, "|") < 1 Then AddChat vbRed, "˙cbST: Question download failed." If Received = "" Then Addchat vbRed, "ST: The connection to the server failed, if this continues it could mean the server is down" ElseIf Lcase(Left(Received, 7)) = "message" Then Addchat VByellow, "ST: Message on server" Addchat VByellow, Received End If If st_enabled Then STAQ "ST: No questions were found with selected category. - try changing the category. ST Disabled" ST_Disable End If If st_GetSetting("ErrorHandle") = "True" Then Addchat VByellow, Received Exit Sub End If LineAry = Split(Received, "**") If Ubound(LineAry) > 40 Then AddChat vbRed, "˙cbST: Server overload?: T=" & Ubound(LineAry) Exit Sub End If For I = 0 To Ubound(LineAry) st_q_array(I) = Split(LineAry(I), "|") Next '//Last question = st_q_array(st_q_total)(0) st_q_total = I - 2 AddChat vbYellow, "ST: New set of questions Received " & st_q_total + 1 '//Ask our question If ST_Enabled Then ST_AskQuestion '//AddChat vbPink, "˙cb" & I - 2 & " Questions Downloaded!" '//The last question will be st_q_array(st_q_total)(0) '//st_q_array now contains an array of questions. '+---------------------------------------+ '| st_q_array(Question Number)(Part) | '| Parts: | '| 0 = Question | '| 1 = answer | '| 2 = difficulty | '| 3 = point/money value | '| 4 = 1/0 Hotspot question? | '| 5 = Question ID number | '| 6 = Category. | '+---------------------------------------+ End Sub '//Read Question file -- this may evolve into a multi-file reader - Thus fileS Sub ST_ReadQuestionFiles() If st_q_num = 0 Then st_q_num = -1 End If Dim File, I, X, Line, FileName, LineArray, FullFile, LineCount FileName = st_GetSetting("QuestionFile") If Not stFSO.FileExists(BotPath() & "question files\" & FileName) Then st_WriteSetting "QuestionFile", "" AddChat vbYellow, "File Not Found: " & FileName Exit Sub End If Set File = stFSO.OpenTextFile(BotPath() & "question files\" & FileName, 1, True) FullFile = File.Readall File.Close FullFile = Split(FullFile, vbNewLine) I = 0 X = 0 '//Filter out comments and etc For Each Line in FullFile X = X + 1 If Line <> "" OR Mid(Line, 1, 2) <> "//" Then If Len(Line) > InStr(Line, "*") AND InStr(Line, "*") > 2 Then FullFile(I) = Line I = I + 1 Else ST_Debug "QFile Error:" & FileName & " Line: " & X End If End If Next Redim Preserve FullFile(I - 1) '//Randomize 40 questions Randomize Dim Eran, Tmp For I = 0 to Ubound(FullFile) Eran = int(rnd * Ubound(FullFile) - I) + I Tmp = FullFile(I) FullFile(I) = FullFile(Eran) FullFile(Eran) = Tmp '//We only need 40 random questions If I > 40 Then Redim Preserve FullFile(40) Exit For End If Next I = 0 Dim QValue For Each Line in FullFile LineArray = Split(Line, "*") QValue = st_GetSetting("qtxtvalue") '//Use the custom value if it exists. If UBound(LineArray) > 1 Then If IsNumeric(LineArray(2)) Then QValue = Round(LineArray(2), 2) End If End If st_q_array(I) = Array(LineArray(0), LineArray(1), "3", QValue, "0", "", FileName) I = I + 1 Next st_q_total = I - 1 '//AddChat vbYellow, "ST: Pulled " & I & " questions from: " & FileName End Sub '//Disable trivia Sub ST_Disable() st_enabled = False AddChat vbRed, "˙cbST: Stopping..." TimerEnabled "ST", "AskQuestion", False End Sub '//Enable trivia Public Sub ST_Enable() st_enabled = True AddChat vbYellow, "˙cbST: Starting..." TimerInterval "ST", "AskQuestion", 4 TimerEnabled "ST", "AskQuestion", True End Sub '//Used to output debug-data. Public Sub ST_Debug(Text) If st_GetSetting("Debug") = "true" Then AddChat ST_COLOR, "ST Debug: " & Text End If End Sub '||||||||||||||||||||||||||| '|| CONFIG FUNCTIONS/SUBS || '//Depreciated with Class Properties. Function st_GetSetting(Setting) st_GetSetting=GetConfigEntry("main", Setting, ST_CONFIG_LOC) If st_GetSetting = "" AND ST_Def_Set(Setting) <> "NoDefault" Then st_GetSetting = ST_Def_Set(Setting) st_WriteSetting Setting, ST_Def_Set(Setting) End If End Function Sub st_WriteSetting(Setting, NewSetting) WriteConfigEntry "main", Setting, NewSetting, ST_CONFIG_LOC End Sub '//Dep Function st_GetAccess(Command) st_getaccess = GetConfigEntry("access", Command, ST_CONFIG_LOC) If IsNumeric(st_GetAccess) = False Then st_getaccess = st_GetSetting("Access") st_getaccess = int(st_getaccess) End Function Function ST_GetCommand(Command) ST_GetCommand = Lcase(GetConfigEntry("commands", Command, ST_CONFIG_LOC)) '//Is it a two worded off/on command? If ST_GetCommand = "" Then If Right(Command, 4) = " off" OR Right(Command, 3) = " on" Then ST_GetCommand = Command End If End Function '//Default Settings Function ST_Def_Set(Setting) Setting = Lcase(Setting) Select Case Setting Case "access" ST_Def_Set = "40" Case "playaccess" ST_Def_Set = "0" Case "floodprotect" ST_Def_Set = "0" Case "useserver" ST_Def_Set = "True" Case "blurtstats" ST_Def_Set = "True" Case "hints" ST_Def_Set = "3" Case "hintodds" ST_Def_Set = "20" Case "streak" ST_Def_Set = "4" Case "streakbonus" ST_Def_Set = "1" Case "streakincrease" ST_Def_Set = "0" Case "askrate" ST_Def_Set = "9" Case "answerdelay" ST_Def_Set = "9" Case "autodisableq" ST_Def_Set = "15" Case "autodisablep" ST_Def_Set = "0" Case "autoenablep" ST_Def_Set = "0" Case "category" ST_Def_Set = "NoDefault" '//Because this can be blank Case "difficuly" ST_Def_Set = "0-5" Case "qtxtvalue" ST_Def_Set = "1" '//Formats Case "qformat" ST_Def_Set = "%sk%id (%ct) %vl: %q" Case "hformat" ST_Def_Set = "Hint: %h" Case "aformat" ST_Def_Set = "(%a)Well done. %u Received %vl for a total of %nv (%spm ms Ranked %rank) [%st]" Case "pformat" ST_Def_Set = "Top 5 high scores: %hs(5)%nlFastest answer by %fa%nlLongest streak by %ls(1)" Case "useprofile" ST_Def_Set = "False" '//Anouncments Case "ancstreakbreak" ST_Def_Set = "Sweet! %u, you broke %su Streak of %st!" Case "ancstreakrecord" ST_Def_Set = "Congrats %u! You have beaten the record for longest streak![%st]%nlPreviously held by %su. With a streak of: [%sa]" Case "ancstreakpersonal" ST_Def_Set = "Nice %u! You beat your record for longest streak![%st]" Case "ancspeedrecord" ST_Def_Set = "Congrats %u! You have beaten the record for fastest answer![%sp ms]%nlPreviously held by %fu. With a speed of: [%fa ms]" Case "ancspeedpersonal" ST_Def_Set = "Great job %u! you beat your fastest time![%sp ms]" '//Responses Case "resscore" ST_Def_Set = "%u has %vl, he has answered %qa questions, his fastest answer was %fams, and his longest streak was %st - he last played on %la" Case "hintchar" ST_Def_Set = "-" Case "globalemote" ST_Def_Set = "False" '== Case "questions" ST_Def_Set = "" Case "scores" ST_Def_Set = "ST_users.txt" Case "debug" ST_Def_Set = "false" Case "reportpass" ST_Def_Set = "WeHelpSnap" Case Else ST_Def_Set = "NoDefault" End Select End Function '//Create the config file - with all the comments :) Public Sub ST_CreateConfig() Dim File Set File = stFSO.OpenTextFile(ST_CONFIG_LOC, 2, True) '//This saves some space With File .Writeline "[main]" .Writeline "; Default access required for commands?" .Writeline "Access=40" .Writeline "; Access required to play trivia (0 for anyone to play)" .Writeline "PlayAccess=0" .Writeline "; Flood protection for SnapNJacks" .Writeline "; Levels go from 0 to 2, 1 is on with alerts, 2 for no alerts." .Writeline "floodprotect=0" .Writeline "; Download questions from SnapNJacks.com a constantly growing database of questions." .Writeline "; If false, A question file will be used" .Writeline "UseServer=True" .Writeline "; Update profile using PFormat?" .Writeline "UseProfile=False" .Writeline "; Randomly blurt a random stastic after a question is answered (odds are one in 5 if no other anouncment is made.)" .Writeline "BlurtStats=True" .Writeline "; Amount of hints the bot will give" .Writeline "Hints=3" .Writeline "; Chances per-char of it being revealed. 20 will give you an average of 20% revealed." .Writeline "hintodds=20" .Writeline "; What counts as a streak, from this point on they will get bonus." .Writeline "streak=4" .Writeline "; Bonus recieved for being in a streak." .Writeline "streakbonus=1" .Writeline "; Bonus is increased by this per round." .Writeline "streakincrease=0" .Writeline "; Amount of seconds between hints (must be above 5)" .Writeline "Askrate=9" .Writeline "; Delay after a question has been answered, to ask again." .Writeline "AnswerDelay=10" .Writeline "; Consecutive unanswered questions before shutdown. 0 to disable." .Writeline "AutoDisableQ=15" .Writeline "; Less than amount of people in channel for shutdown. 0 to disable." .Writeline "AutoDisableP=0" .Writeline "; Greater than amount of people in channel for startup. 0 to disable." .Writeline "AutoEnableP=0" .Writeline "; Categorical Selection String:" .Writeline "; Leave blank to not confine results. Normaly set via .category command" .Writeline "Category=" .Writeline "; Difficulty limit, 0-5 downloads all questions." .Writeline "; 3 downloads only questions with a difficulty level of 3" .Writeline "; 4-6 downloads only questions with a difficulty of 4, 5 or 6" .Writeline "Difficulty=0-5" .Writeline "; The default value for question.txt questions" .Writeline "qtxtvalue=1" .Writeline "; :" .Writeline "; Question Format:" .Writeline "; How a normal question is displayed. Note: You MUST have %q" .Writeline "QFormat=%sk%id (%ct) %vl: %q" .Writeline "; Hint Format:" .Writeline "; How a hint is displayed. Note: You MUST have %h" .Writeline "HFormat=Hint: %h" .Writeline "; Answer Format:" .Writeline "; How a correct answer is responded to" .Writeline "; %vl = Value gained, %u = username, %nv = New Value - What the user now has" .Writeline "; and %a = Answer (all answers seperated by /)" .Writeline "AFormat=(%a)Well done. %u Received %vl for a total of %nv (%spm ms Ranked %rank) [%st]" .Writeline "; Check the FAQ/Guide http://www.stealthbot.net/board/index.php?showtopic=12827" .Writeline "PFormat=Top 5 high scores: %hs(5)%nlFastest answer by %fa%nlLongest streak by %ls(1)" .Writeline "; :" .Writeline "; Streak Anouncments:" .Writeline "; Break anothers streak:" .Writeline "AncStreakBreak=Sweet! %u, you broke %su Streak of %st!" .Writeline "; Beat streak all-time record:" .Writeline "AncStreakRecord=Congrats %u! You have beaten the record for longest streak![%st]%nlPreviously held by %su. With a streak of: [%sa]" .Writeline "; Beat personal streak record:" .Writeline "AncStreakPersonal=Nice %u! You beat your record for longest streak![%st]" .Writeline "; Fastest-Answer Anouncments:" .Writeline "; Beat speed all-time record:" .Writeline "AncSpeedRecord=Congrats %u! You have beaten the record for fastest answer![%sp ms]%nlPreviously held by %fu. With a speed of: [%fa ms]" .Writeline "; Beat personal speed record:" .Writeline "AncSpeedPersonal=Great job %u! you beat your fastest time![%sp ms]" .Writeline "; End MISC ANOUNCMENTS:" .Writeline "; :" .Writeline "resscore=%u has %vl, he has answered %qa questions, his fastest answer was %fams, and his longest streak was %st - he last played on %la" .Writeline "; End COMMAND RESPONSES" '== '.Writeline "; Use a rewards file? - UNSUPPORTED" '.Writeline "UseRewards=False" .Writeline "; The char for hints" .Writeline "hintchar=-" .Writeline "; Emote everything" .Writeline "GlobalEmote=False" .Writeline "; Password for the ReportBadQ command (Server password)" .Writeline "reportpass=WeHelpSnap" .Writeline "; Config version:" .Writeline "; Stop when bnet says no one hears you -(channel empty)" .Writeline "StopOnEmpty=True" .Writeline "configver=" & psVersions.Item("st") .Writeline "[access]" .Writeline "; Here you can set certain commands to specific access - instead of the default access" .Writeline "; Like Hscores=20 This will override the default set at the top of this file, access=40." .Writeline "; Commands set to 0 will allow anyone to use them." .Writeline "trivia=0" .Writeline "score=5" .Writeline "[commands]" .Writeline "; Here you can set an alias for any command" .Writeline "; You can disable a command too, by setting command=disabled" .Writeline "; Alias=Command" .Writeline "high scores=hscores" .Writeline "fastest answers=fanswers" .Writeline "most answered=manswered" .Writeline "longest streaks=lstreaks" .Writeline "start trivia=trivia on" .Writeline "stop trivia=trivia off" .Close End With AddChat vbYellow, "ST: Config Created! (" & ST_CONFIG_LOC & ")" End Sub '//It's good to note that I learned the most VBs from SoCxFiftyToo. '//So if it looks like I'm copying him. I probably am. Thanks 52. '//This is a class. Their neat. Class SNJClass '//The varriables Dim'd under the class are public to the entire class and will hold their data. Dim DBConn '//Holds the last profile update. Dim OldProfile Private StreakBonus Public Property Get Setting (Name) Setting=GetConfigEntry("main", Name, ST_CONFIG_LOC) If Setting = "" Then If ST_Def_Set(Name) <> "NoDefault" Then Setting = ST_Def_Set(Name) Me.Setting(Name) = ST_Def_Set(Name) End If End If End Property Public Property Let Setting (Name, Input) If Lcase(Cstr(Input)) = "false" Then Input = "false" If Lcase(Cstr(Input)) = "true" Then Input = "true" WriteConfigEntry "main", Name, Input, ST_CONFIG_LOC End Property Public Sub OpenDB If NOT stFSO.FileExists(ST_USERDB_LOC) Then Addchat VByellow, "Database not found! - - Creating database..." '//Me means within this class, - like SNJ.CreateDB Me.CreateDB Exit Sub End If On Error Resume Next Set me.DBConn = CreateObject("ADODB.Connection") '== Fix this, I shouldn't be using addchat in here... If Err.Number <> 0 Then Addchat VBred, "ST Error: Unable to connect to database, you must not have the proper drivers." Exit Sub End If Me.DBConn.ConnectionString = ST_DBConnStr Me.DBConn.CursorLocation = 3 '//adUseClient Me.DBConn.Open End Sub Public Sub CreateDB If stFSO.FileExists(ST_USERDB_LOC) Then Addchat VByellow, "Database already exists!" Exit Sub End If '//Make the file/database. Dim ADOXdb Set ADOXdb = CreateObject("ADOX.Catalog") ADOXdb.Create "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & ST_USERDB_LOC '//Ok we made the file/db - now open it. Me.OpenDB Dim SQL '//Create the table! - And resist the urge to use $SQL.= !! lol.. (PHP habbit) SQL = "CREATE TABLE `users` (" SQL = SQL & "`ID` COUNTER ," SQL = SQL & "`Username` VARCHAR(32) NOT NULL, " SQL = SQL & "`Money` DOUBLE NULL, " SQL = SQL & "`Answered` INT NOT NULL, " SQL = SQL & "`Streak` INT NULL, " SQL = SQL & "`Flags` VARCHAR(32) NULL, " SQL = SQL & "`FastestAnswer` INT NOT NULL, " SQL = SQL & "`LongestStreak` INT NOT NULL, " SQL = SQL & "`LastAnswer` TIMESTAMP NOT NULL DEFAULT NOW())" Me.DBConn.Execute SQL Addchat VByellow, "Database created" End Sub '||||||||||||||||||||||||||||||||||||||| '|| ACCEPT ANSWER SUB || '|| This sub is called whenever a || '|| Question is answered. || '||||||||||||||||||||||||||||||||||||||| Public Sub AcceptAnswer(Username, Money, Speed) Dim SQL, RS 'Temp-Format Dim TFormat TFormat = st_GetSetting("AFormat") If StreakBonus = 0 Then StreakBonus = Me.Setting("streakbonus") '//Check Streak If Int(st_getsetting("streak")) > 0 AND Int(st_getsetting("streakbonus")) > 0 Then If ST_Streak_User = Username AND ST_Streak + 1 >= Int(st_getsetting("streak")) Then If Instr(TFormat, "%streakbonus") = 0 Then TFormat = TFormat & "[Streak Bonus + " & StreakBonus & "!]" Else TFormat = Replace(TFormat, "%streakbonus", "[Streak Bonus + " & StreakBonus & "!]") End If Money = Money + 0 + StreakBonus StreakBonus = StreakBonus + 0 + Me.Setting("streakincrease") Else '//Reset StreakBonus StreakBonus = Me.Setting("streakbonus") End If End If TFormat = Replace(TFormat, "%streakbonus", "") '//Virtual Queue Load - Used to add to the time to ask next question '//Not in the database? If Me.GetUMoney(Username) = "" Then SQL = "INSERT INTO `users` (`Username`, `Money`, `FastestAnswer`, `Answered`, `LongestStreak`) VALUES ('" SQL = SQL & Username & "', " & Money & ", '" & Speed & "', 1, 1)" Me.DBConn.Execute(SQL) '//STAQ "Welcome to the database " & Username & "." Else SQL = "UPDATE `users` SET `LastAnswer` = NOW(), `Money` = `Money` + " & Money & ", `Answered` = `Answered` + 1 " & _ "WHERE `Username` = '" & Username & "'" Me.DBConn.Execute(SQL) End If '//Build response: TFormat = Replace(TFormat, "%a", st_q_set(1)) TFormat = Replace(TFormat, "%vl", FormatCurrency(Money + 0)) TFormat = Replace(TFormat, "%nv", FormatCurrency(Me.GetUMoney(Username))) If ST_Streak_User = Username Then TFormat = Replace(TFormat, "%st", ST_Streak + 1) Else TFormat = Replace(TFormat, "%st", "1") End If TFormat = Me.ProcessSpeed(TFormat, Speed) TFormat = Me.ProcessVars(TFormat, Username) '//Respond: ST_SQ TFormat If ST_Streak_User = Username Then ST_Streak = ST_Streak + 1 SQL = "SELECT `LongestStreak` FROM `users` WHERE `Username` = '" & Username & "'" SET RS = Me.DBConn.Execute(SQL) '//Beat Personal Record? If Int(RS.Fields(0)) < Int(ST_Streak) Then If ST_Streak > 2 Then SQL = "SELECT `Username`, `LongestStreak` FROM `users` ORDER BY `LongestStreak` DESC, `LastAnswer` ASC" SET RS = Me.DBConn.Execute(SQL) '//Beat the all-time record? If Int(RS.Fields(1)) < Int(ST_Streak) AND Lcase(RS.Fields(0)) <> Lcase(Username) AND ST_Streak_Con <> 2 Then ST_Streak_Con = 2 TFormat = st_GetSetting("AncStreakRecord") TFormat = Replace(TFormat, "%su", RS.Fields(0)) TFormat = Replace(TFormat, "%sa", RS.Fields(1)) TFormat = Replace(TFormat, "%st", ST_Streak) TFormat = Me.ProcessVars(TFormat, Username) ST_SQ TFormat ElseIf ST_Streak_Con < 1 Then '//Just beat your own score ST_Streak_Con = 1 TFormat = st_GetSetting("AncStreakPersonal") TFormat = Replace(TFormat, "%st", ST_Streak) TFormat = Me.ProcessVars(TFormat, Username) ST_SQ TFormat End If End If SQL = "UPDATE `users` SET `LongestStreak` = '" & ST_Streak & "' WHERE `Username` = '" & Username & "'" Me.DBConn.Execute(SQL) Else '//Used to prevent record-breaking anouncments after EVERY record broken. ST_Streak_Con = 0 End If Else If ST_Streak > 2 Then TFormat = st_GetSetting("AncStreakBreak") TFormat = Replace(TFormat, "%su", ST_Streak_User) TFormat = Replace(TFormat, "%st", ST_Streak) TFormat = Me.ProcessVars(TFormat, Username) ST_SQ TFormat End If ST_Streak_User = Username ST_Streak = 1 End If SQL = "SELECT `FastestAnswer` FROM `users` WHERE `Username` = '" & Username & "'" SET RS = Me.DBConn.Execute(SQL) If Int(RS.Fields(0)) > Int(Speed) Then SQL = "SELECT `Username`, `FastestAnswer` FROM `users` ORDER BY `FastestAnswer` ASC" SET RS = Me.DBConn.Execute(SQL) If Int(RS.Fields(1)) > Int(Speed) AND Lcase(RS.Fields(0)) <> Lcase(Username) Then TFormat = st_GetSetting("AncSpeedRecord") TFormat = Replace(TFormat, "%fu", RS.Fields(0)) TFormat = Replace(TFormat, "%fa", RS.Fields(1)) TFormat = Me.ProcessSpeed(TFormat, Speed) TFormat = Me.ProcessVars(TFormat, Username) ST_SQ TFormat Else TFormat = st_GetSetting("AncSpeedPersonal") TFormat = Replace(TFormat, "%u", Username) TFormat = Me.ProcessSpeed(TFormat, Speed) TFormat = Me.ProcessVars(TFormat, Username) ST_SQ TFormat End If '//Update record SQL = "UPDATE `users` SET `FastestAnswer` = '" & Speed & "' WHERE `Username` = '" & Username & "'" Me.DBConn.Execute(SQL) End If If st_GetSetting("blurtstats") = "True" AND ST_VQL < 2 AND Speed > 4100 Then Select Case Int(Rnd * 20) '//one in 5 Case 1 STAQ "ST: Top 5 scores: " & Me.TopMoney(5) Case 2 STAQ "ST: Top 5 fastest answers: " & Me.TopFAnswers(5) Case 3 STAQ "ST: Top 5 longest streaks: " & Me.TopLStreaks(5) Case 4 STAQ "ST: Top 5 most answered: " & Me.TopMAnswers(5) End Select End If TimerInterval "ST", "AskQuestion", st_GetSetting("AnswerDelay") + Int(ST_VQL * 2.8) TimerEnabled "ST", "AskQuestion", True End Sub Public Sub DeleteUser(Username) Dim SQL SQL = "DELETE FROM `users` WHERE `Username` = '" & Username & "'" Me.DBConn.Execute(SQL) End Sub '//Non-Database related Subs: Public Sub UpdateProfile Dim NewProfile NewProfile = st_GetSetting("pformat") For I = 1 to 15 NewProfile = Replace(NewProfile, "%hs(" & I & ")", Me.TopMoney(I)) NewProfile = Replace(NewProfile, "%fa(" & I & ")", Me.TopFAnswers(I)) NewProfile = Replace(NewProfile, "%ls(" & I & ")", Me.TopLStreaks(I)) NewProfile = Replace(NewProfile, "%ma(" & I & ")", Me.TopMAnswers(I)) Next NewProfile = Replace(NewProfile, "%hs", Me.TopMoney(1)) NewProfile = Replace(NewProfile, "%fa", Me.TopFAnswers(1)) NewProfile = Replace(NewProfile, "%ls", Me.TopLStreaks(1)) NewProfile = Replace(NewProfile, "%ma", Me.TopMAnswers(1)) NewProfile = Replace(NewProfile, "%su", ST_Streak_User) NewProfile = Replace(NewProfile, "%sc", ST_Streak) NewProfile = Replace(NewProfile, "%ch", MyChannel) '//We don't want to update the profile - unless we have new information If Me.OldProfile = NewProfile Then Exit Sub Me.OldProfile = NewProfile '//Time and vbnewline. NewProfile = Replace(NewProfile, "%lu", Time) NewProfile = Replace(NewProfile, "%nl", VBNewLine) SetBotProfile "", "", NewProfile End Sub '// FUNCTIONS Public Function GiveMoney(HowMuch, FromUser, ToUser, InBot) GiveMoney = False HowMuch = Round(HowMuch, 2) If InBot Then SQL = "UPDATE `users` SET `Money` = `Money` + " & HowMuch & " WHERE `Username` = '" & ToUser & "'" Me.DBConn.Execute(SQL) GiveMoney = True ElseIf HowMuch <= Me.GetUMoney(FromUser) Then If Me.GetUMoney(ToUser) <> "" Then SQL = "UPDATE `users` SET `Money` = `Money` - " & HowMuch & " WHERE `Username` = '" & FromUser & "'" Me.DBConn.Execute(SQL) SQL = "UPDATE `users` SET `Money` = `Money` + " & HowMuch & " WHERE `Username` = '" & ToUser & "'" Me.DBConn.Execute(SQL) GiveMoney = True End If End If End Function Public Function ProcessVars(Text, User) Dim S S = Text S = Replace(S, "%vl", FormatCurrency(Me.GetUMoney(User))) S = Replace(S, "%intmoney", Me.GetUMoney(User)) S = Replace(S, "%st", Me.GetStreak(User)) S = Replace(S, "%qa", Me.GetAnswered(User)) S = Replace(S, "%fa", Me.GetFastest(User)) S = Replace(S, "%la", Me.GetLastAnswer(User)) S = Replace(S, "%intrank", Me.GetRank(User)) S = Replace(S, "%rank", Me.AddSuffix(Me.GetRank(User))) S = Replace(S, "%u", User) ProcessVars = S End Function Public Function ProcessSpeed(Text, Speed) Dim S S = Text S = Replace(S, "%sps(3)", Round(Speed / 1000, 3)) S = Replace(S, "%sps(2)", Round(Speed / 1000, 2)) S = Replace(S, "%sps(1)", Round(Speed / 1000, 1)) S = Replace(S, "%sps(0)", Round(Speed / 1000, 0)) S = Replace(S, "%sps", Speed / 1000) S = Replace(S, "%spm", Speed) S = Replace(S, "%sp", Speed) '==Depreciated ProcessSpeed = S End Function '//Top Stats Public Function TopMoney(TopX) Dim SQL, RS, I SQL = "SELECT `Username`, `Money` FROM `users` ORDER BY `Money` DESC" SET RS = Me.DBConn.Execute(SQL) Do While TopX > I AND RS.EOF <> True I = I + 1 If TopMoney <> "" Then TopMoney = TopMoney & ", " TopMoney = TopMoney & RS.Fields(0) & ": " & FormatCurrency(RS.Fields(1)) RS.MoveNext Loop End Function Public Function TopFAnswers(TopX) Dim SQL, RS, I SQL = "SELECT `Username`, `FastestAnswer` FROM `users` ORDER BY `FastestAnswer` ASC" SET RS = Me.DBConn.Execute(SQL) Do While TopX > I AND RS.EOF <> True I = I + 1 If TopFAnswers <> "" Then TopFAnswers = TopFAnswers & ", " TopFAnswers = TopFAnswers & RS.Fields(0) & ": " & RS.Fields(1) & "ms" RS.MoveNext Loop End Function Public Function TopMAnswers(TopX) Dim SQL, RS, I SQL = "SELECT `Username`, `Answered` FROM `users` ORDER BY `Answered` DESC" SET RS = Me.DBConn.Execute(SQL) Do While TopX > I AND RS.EOF <> True I = I + 1 If TopMAnswers <> "" Then TopMAnswers = TopMAnswers & ", " TopMAnswers = TopMAnswers & RS.Fields(0) & ": " & RS.Fields(1) RS.MoveNext Loop End Function Public Function TopLStreaks(TopX) Dim SQL, RS, I SQL = "SELECT `Username`, `LongestStreak` FROM `users` ORDER BY `LongestStreak` DESC, `LastAnswer` ASC" SET RS = Me.DBConn.Execute(SQL) Do While TopX > I AND RS.EOF <> True I = I + 1 If TopLStreaks <> "" Then TopLStreaks = TopLStreaks & ", " TopLStreaks = TopLStreaks & RS.Fields(0) & ": " & RS.Fields(1) RS.MoveNext Loop End Function '//END STATS Public Function GetUCount Dim SQL, RS SQL = "SELECT Count(*) FROM `users`" SET RS = Me.DBConn.Execute(SQL) GetUCount = RS.Fields(0) End Function '//Block list Public Function BlockList() Dim SQL, RS, I SQL = "SELECT `Username` FROM `users` WHERE `Flags` LIKE '%B%'" SET RS = Me.DBConn.Execute(SQL) Do While 100 > I AND RS.EOF <> True I = I + 1 If BlockList <> "" Then BlockList = BlockList & ", " BlockList = BlockList & RS.Fields(0) RS.MoveNext Loop End Function '//Blocks a user from playing Trivia Public Sub Block(Username) Username = Me.AddSlashes(Username) Dim SQL If Not Me.GetBlocked(Username) Then SQL = "UPDATE `users` SET `Flags` = `Flags` & 'B' WHERE `Username` = '" & Username & "'" Me.DBConn.Execute(SQL) End If End Sub '//Unblocks a user from playing Trivia Public Sub UnBlock(Username) Username = Me.AddSlashes(Username) Dim SQL, RS, FlagList SQL = "SELECT `Flags` FROM `users` WHERE `Flags` LIKE '%B%' AND `Username` = '" & Username & "'" SET RS = Me.DBConn.Execute(SQL) If RS.BOF = True AND RS.EOF = True Then Exit Sub Else FlagList = RS.Fields(0) Addchat VBwhite, "F: " & FlagList FlagList = Replace(FlagList, "B", "") Addchat VBwhite, "F2: " & FlagList SQL = "UPDATE `users` SET `Flags` = '" & FlagList & "' WHERE `Username` = '" & Username & "'" Me.DBConn.Execute(SQL) End If End Sub '//Mimics PHP's Public Function AddSlashes(Text) Text = Replace(Text, "\", "\\") AddSlashes = Replace(Text, "'", "\'") End Function '//USER SPECIFIC FUNCTIONS '//True/False - is the user blocked? Public Function GetBlocked(Username) Username = Me.AddSlashes(Username) Dim SQL, RS SQL = "SELECT `Flags` FROM `users` WHERE `Flags` LIKE '%B%' AND `Username` = '" & Username & "'" SET RS = Me.DBConn.Execute(SQL) If RS.BOF = True AND RS.EOF = True Then GetBlocked = False Else GetBlocked = True End If End Function '//Returns "" if user isn't found. Public Function GetUMoney(Username) Username = Me.AddSlashes(Username) Dim SQL, RS SQL = "SELECT `Money` FROM `users` WHERE `Username` = '" & Username & "'" SET RS = Me.DBConn.Execute(SQL) If RS.BOF = True AND RS.EOF = True Then GetUMoney = "" Else GetUMoney = RS.Fields(0) End If End Function '//Returns 0 if user isn't found. Public Function GetRank(Username) Username = Me.AddSlashes(Username) Dim SQL, RS, I SQL = "SELECT COUNT(*) FROM `users` WHERE `Money` >= (SELECT `Money` FROM `users` WHERE `Username` = '" & Username & "')" SET RS = Me.DBConn.Execute(SQL) GetRank = 0 If RS.Fields(0) <> 0 Then GetRank = RS.Fields(0) End Function Public Function GetFastest(Username) Username = Me.AddSlashes(Username) Dim SQL, RS, I SQL = "SELECT `FastestAnswer` FROM `users` WHERE `Username` = '" & Username & "'" SET RS = Me.DBConn.Execute(SQL) If RS.BOF = True AND RS.EOF = True Then GetFastest = 0 Else GetFastest = RS.Fields(0) End If End Function '//Returns 0 if user isn't found. Public Function GetStreak(Username) Username = Me.AddSlashes(Username) Dim SQL, RS, I SQL = "SELECT `LongestStreak` FROM `users` WHERE `Username` = '" & Username & "'" SET RS = Me.DBConn.Execute(SQL) If RS.BOF = True AND RS.EOF = True Then GetStreak = 0 Else GetStreak = RS.Fields(0) End If End Function '//Returns 0 if user isn't found. Public Function GetAnswered(Username) Username = Me.AddSlashes(Username) Dim SQL, RS, I SQL = "SELECT `Answered` FROM `users` WHERE `Username` = '" & Username & "'" SET RS = Me.DBConn.Execute(SQL) If RS.BOF = True AND RS.EOF = True Then GetAnswered = 0 Else GetAnswered = RS.Fields(0) End If End Function Public Function GetLastAnswer(Username) Username = Me.AddSlashes(Username) Dim SQL, RS, I SQL = "SELECT `LastAnswer` FROM `users` WHERE `Username` = '" & Username & "'" SET RS = Me.DBConn.Execute(SQL) If RS.BOF = True AND RS.EOF = True Then GetLastAnswer = 0 Else GetLastAnswer = RS.Fields(0) End If End Function '//Kills the @ and # names. '//Parse User Public Function PUser(Username) PUser = Username If Left(PUser, 1) = "*" Then PUser = Mid(PUser, 2) If InStr(PUser, "#") Then PUser = Mid(PUser, 1, InStr(PUser & "#", "#")-1) If InStr(PUser, "@") Then PUser = Mid(PUser, 1, InStr(PUser & "@", "@")-1) End Function '//Formats a String to a URL-Accepted string. Public Function CleanURL(URL) URL = Replace(URL, "%", "%25") URL = Replace(URL, "+", "%2B") URL = Replace(URL, "#", "%23") URL = Replace(URL, " &", "%26") URL = Replace(URL, " ", "%0C") CleanURL = URL End Function Public Function AddSuffix(Number) Dim Suffix Select Case Right(Number, 1) Case 1 Suffix = "st" Case 2 Suffix = "nd" Case 3 Suffix = "rd" Case Else Suffix = "th" End Select If Number > 10 AND Number < 14 Then Suffix = "th" AddSuffix = Number & Suffix End Function '//Old Subs: Public Sub MoveOldScores Dim File, LinesArray Dim SQL If NOT stFSO.FileExists(BotPath() & ST_USER_LOC) Then Addchat VBred, "Score file not found!" Exit Sub End If Addchat VByellow, "Copying Scores..." '//Open file Set File = stFSO.OpenTextFile(ST_USER_LOC, 1, True) LinesArray = Split(File.ReadAll & vbNewLine, vbNewLine) Dim I I = 0 For Each Line in LinesArray If Instr(Line, "=") > 1 Then Line = Split(Line, "=") If Me.GetUMoney(Line(0)) = "" Then SQL = "INSERT INTO `users` (`Username`, `Money`, `FastestAnswer`, `Answered`, `LongestStreak`) VALUES ('" SQL = SQL & Line(0) & "', '" & Line(1) & "', '15000', 1, 1)" Me.DBConn.Execute(SQL) I = I + 1 Else Addchat VByellow, "User: " & Line(0) & ". Already in Database!" End If End If Next Addchat VByellow, I & " users have been copyed" '//Close the file, or we wont be able to delete it! File.Close If MsgBox("Delete Old File?" & VBnewline & "ST_Users.ini has been successfully copyed to the database. Do you wish to delete the file?" & VBnewLine & "(We Recommend YES)", 4) = 6 Then stFSO.DeleteFile BotPath() & ST_USER_LOC Addchat VByellow, "File deleted" Else Addchat VByellow, "File not deleted" End If End Sub End Class '//Currently Unused Events Sub ST_Event_Close() End Sub Sub ST_Event_UserLeaves(Username, Flags) End Sub Sub ST_Event_ChannelJoin(ChannelName, Flags) End Sub Sub ST_Event_LoggedOn(Username, Product) End Sub '//We most likely wont use these subs Sub ST_Event_KeyReturn(KeyName, KeyValue) End Sub Sub ST_Event_FlagUpdate(Username, NewFlags, Ping) End Sub