Dim AbuseArray, dbLoaded, AverageTotal

Dim SpecialTags
Set SpecialTags = CreateObject("Scripting.Dictionary")
SpecialTags.CompareMode = VBTextCompare
SpecialTags.Add "You", Empty
SpecialTags.Add "RandNick", Empty
SpecialTags.Add "Channel", Empty
SpecialTags.Add "Target", Empty

Sub ONNICK(NewNick,OldNick,ServerNumber)
    If GetIniFile("Reminders.ini","Main",NewNick,0) = 1 then SendCommand "/notice " & NewNick & " " & NewNick & " Oi! You've got a message pending! !gm in some chan where I am.",ServerNumber
    If GetIniFile("Reminders.ini","Main",NewNick,0) > 1 then SendCommand "/notice " & NewNick & " " & NewNick & " Oi! You've got " & GetIniFile("Reminders.ini","Main",NewNick,0) & " messages pending! !gm in some chan where I am.",ServerNumber
End Sub

Sub ONKICK(Nickname,Host,Channel,WhoKicked,Reason,ServerNumber)
    If Nickname = MyNickname(ServerNumber) then
        If GetIniFile("Misc.ini","Switches","RejoinSwitch",0) = 1 then Exit Sub
        If InStr(lcase(Channel),"idlerpg") then Exit Sub
        SendCommand "/join " & channel,ServerNumber
        SendCommand "/msg " & channel & " " & WhoKicked & ": " & RandomEntry("Misc", "KickMsgs", "LAME.", WhoKicked),ServerNumber
        SendCommand "/msg Kyte Ohay, I was kicked from " & channel & " by " & WhoKicked,ServerNumber
    End If
End Sub

Sub ONQUERY(Message,Nickname,Host,ServerNumber)
    If left(Message,1) = "#" then
        CmdTxt = Split(Message)
        Chan = CmdTxt(0)
        CmdTxt(0) = Empty
        Message = Trim(Join(CmdTxt))
    else
        Chan = Nickname
    End If
    Call ONTEXT(Message,Chan,Nickname,Host,ServerNumber)
End Sub

Sub ONNOTICE(Message,Nickname,Host,ServerNumber)
    CALL ONQUERY(Message,Nickname,Host,ServerNumber)
End Sub

REM Chr(2,3,15,22,31) = Bold, Color, Normal, Reverse, Underline

Sub ONTEXT(Message,Channel,Nickname,Host,ServerNumber)
If InStr(lcase(Channel),"idlerpg") then Exit Sub

Rem Trigger Control
    If InList(Nickname,"Banlist") OR InList(Host,"Banlist") then Exit Sub
    If (GetIniFile("Misc.ini","Switches","PowerSwitch",0) = 1 OR GetIniFile("Misc.ini","Switches","PowerSwitch" & Channel,0) = 1) AND NOT (InList(Nickname,"AdminList") AND InStr(lcase(Nickname), MyNickname(ServerNumber)) = 0) then Exit Sub
Rem Trigger Control

REM Special Replacers
SpecialTags.Item("You") = Nickname
SpecialTags.Item("RandNick") = RandomNick(Channel, ServerNumber)
SpecialTags.Item("Channel") = Channel
REM Special Replacers

CmdTxt = Split(Message)

Select Case lcase(cmdtxt(0))
    case "!deop"
        CALL OnText("!unop",Channel,Nickname,Host,ServerNumber)
    case "!unop"
        If Not InList(Nickname,"OpUsers") then Exit Sub
        SendCommand "/mode " & channel & " -aoh " & CmdTxt(1) & " " & CmdTxt(1) & " " & CmdTxt(1), ServerNumber
    case "!ascii"
        SendCommand "/msg " & channel & " " & Asc(Left(CmdTxt(1),1)),ServerNumber
    case "!chr"
        SendCommand "/msg " & channel & " " & Chr(CmdTxt(1)),ServerNumber
    case "!timer"
        Countdown = CmdTxt(1) * 60
        CmdTxt(0) = Empty
        CmdTxt(1) = Empty
        Message = Trim(Join(CmdTxt))
        SendCommand TimerFormat(Join(Split(Date()),Empty) & Join(Split(Time()),Empty), 1, Countdown, "/msg " & channel & " " & Nickname & ": " & Message),ServerNumber
        SendCommand "/msg " & channel & " Timer set.",ServerNumber
REM    case "!remind"
REM "!remind * in|at * of\: *"
    case "!lm"
        Message = Replace(Message,"!lm","!leavemessage")
        Call ONTEXT(Message,Channel,Nickname,Host,ServerNumber)
    case "!leavemessage"
        If InStr(Nicks(Channel,ServerNumber),"YocsBot") then Exit Sub
        If UBound(CmdTxt) < 2 then
            SendCommand "/msg " & channel & " The syntax is " & Chr(34) & "!leavemessage [reciever] [message]" & Chr(34),ServerNumber
            Exit Sub
        End If
        Reciever = CmdTxt(1)
        CmdTxt(0) = Empty
        CmdTxt(1) = Empty
        NoMessage = GetIniFile("Reminders.ini","Main",Reciever,0) + 1
        Message = Trim(Join(CmdTxt)) & " (Sent by " & Nickname & ")"
        WriteIniFile "Reminders.ini","Main",Reciever,NoMessage
        WriteIniFile "Reminders.ini",Reciever,NoMessage,Message
        WriteIniFile "Reminders.ini",Reciever,"DateTime" & NoMessage, Now()
        SendCommand "/msg " & Channel & " Message left.",ServerNumber
    case "!getmessages"
        If (InList(nickname,"AdminList") AND UBound(CmdTxt) > 0) then
            Nickname = CmdTxt(1)
            CmdTxt(1) = Empty
            CmdTxt = Split(Trim(Join(CmdTxt)))
        End If
        LastMessage = GetIniFile("Reminders.ini","Main",Nickname,0)
        If LastMessage = 0 then
            If InStr(lcase(Nicks(Channel,ServerNumber)),"yocsbot") = 0 then SendCommand "/msg " & channel & " You have no messages.",ServerNumber
            Exit Sub
        End If
        For a = 1 to LastMessage
            Message = GetIniFile("Reminders.ini",Nickname,a,"Error in storage. Nothing here. (" & Nickname & ": " & a & ")")
            DateTimeM = GetIniFile("Reminders.ini",Nickname,"DateTime" & a, 0)
            SendCommand "/msg " & Nickname & " Message " & a & ": " & Message,ServerNumber
            WriteIniFile "Misc.ini", "General", "Now", Now()
            SendCommand "/msg " & Nickname & " Sent " & GetDuration(DateDiff("s", DateTimeM, GetIniFile("Misc.ini", "General", "Now", Now()))) & " ago. (" & DateTimeM & ")", ServerNumber
            WriteIniFile "Reminders.ini",Nickname,a,Empty
            WriteIniFile "Reminders.ini",Nickname,"DateTime" & a,Empty
        Next
        WriteIniFile "Reminders.ini","Main",Nickname,0
    case "!gm"
        Message = Replace(Message,"!gm","!getmessages")
        Call ONTEXT(Message,Channel,Nickname,Host,ServerNumber)
    case "!voice"
        Call ONTEXT("!globalmode +v",Channel,Nickname,Host,ServerNumber)
    case "!alert"
        Call ONTEXT("!localalert",Channel,Nickname,Host,ServerNumber)
    case "!ping"
        Call ONTEXT("!localalert",Channel,Nickname,Host,ServerNumber)
    case "!raid"
        Call ONTEXT("!localalert",Channel,Nickname,Host,ServerNumber)
    case "!localalert"
            If (GetIniFile("Misc.ini","Switches","PingSwitch",0) = 1 OR GetIniFile("Misc.ini","Switches","PingSwitch" & Channel,0) = 1) AND NOT InList(Nickname,"AdminList") AND Nickname <> MyNickname(ServerNumber) then Exit Sub
        SendCommand "/msg " & Channel & " " & Nicks(Channel,ServerNumber),ServerNumber
    case "!globalmode"
        If InList(Nickname,"OpUsers") = 0 then Exit Sub
        Trigger = left(cmdtxt(1),1)
        Mode = right(cmdtxt(1),1)
        If ubound(cmdtxt) > 1 then special = cmdtxt(2)
        Nicklist = Split(Nicks(Channel,ServerNumber))
	do
	    modelist = empty
            nicknames = empty
            for a = 0 to UBound(Nicklist)
                if a MOD 10 = 0 AND a > 0 then exit for
                If nicklist(a) <> getidentifier("$me",servernumber) Then
                    modelist = modelist & mode
                    nicknames = nicknames & " " & special & nicklist(a)
                End If
                nicklist(a) = Empty
            next
            SendCommand "/mode " & channel & " " & trigger & modelist & " " & nicknames,ServerNumber    
            Nicklist = Split(Trim(Join(Nicklist)))
        loop while ubound(nicklist) > 0
    case "!resetrng"
        Randomize Timer
        SendCommand "/msg " & channel & " New Seed Loaded",ServerNumber
    case "!togglebot"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        If UBound(CmdTxt) > 0 Then
            PowerSwitch = GetIniFile("Misc.ini","Switches","PowerSwitch" & CmdTxt(1),0)
            If PowerSwitch = 1 then
                PowerSwitch = 0
            Else
                PowerSwitch = 1
            End If
            WriteIniFile "Misc.ini","Switches","PowerSwitch" & CmdTxt(1),PowerSwitch
            SendCommand "/msg " & channel & " Bot Disabled in " & Channel & "? " & PowerSwitch,ServerNumber
        Else
            PowerSwitch = GetIniFile("Misc.ini","Switches","PowerSwitch",0)
            If PowerSwitch = 1 then
                PowerSwitch = 0
            Else
                PowerSwitch = 1
            End If
            WriteIniFile "Misc.ini","Switches","PowerSwitch",PowerSwitch
            SendCommand "/msg " & channel & " Bot Disabled? " & PowerSwitch,ServerNumber
        End If
    case "!toggleaction"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        If UBound(CmdTxt) > 0 Then
            ActionSwitch = GetIniFile("Misc.ini","Switches","ActionSwitch" & CmdTxt(1),0)
            If ActionSwitch = 1 then
                ActionSwitch = 0
            Else
                ActionSwitch = 1
            End If
            WriteIniFile "Misc.ini","Switches","ActionSwitch" & CmdTxt(1),ActionSwitch
            SendCommand "/msg " & channel & " Bot Actions Disabled in " & Channel & "? " & ActionSwitch,ServerNumber
        Else
            ActionSwitch = GetIniFile("Misc.ini","Switches","ActionSwitch",0)
            If ActionSwitch = 1 then
                ActionSwitch = 0
            else
                ActionSwitch = 1
            end if
            WriteIniFile "Misc.ini","Switches","ActionSwitch",ActionSwitch
            SendCommand "/msg " & channel & " Bot Actions Disabled? " & ActionSwitch,ServerNumber
        End If
    case "!toggleping"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        If UBound(CmdTxt) > 0 Then
            PingSwitch = GetIniFile("Misc.ini","Switches","PingSwitch" & CmdTxt(1),0)
            If PingSwitch = 1 then
                PingSwitch = 0
            Else
                PingSwitch = 1
            End If
            WriteIniFile "Misc.ini","Switches","PingSwitch" & CmdTxt(1),PingSwitch
            SendCommand "/msg " & channel & " Pings Disabled in " & Channel & "? " & PingSwitch,ServerNumber
        Else
            PingSwitch = GetIniFile("Misc.ini","Switches","PingSwitch",0)
            If PingSwitch = 1 then
                PingSwitch = 0
            else
                PingSwitch = 1
            end if
            WriteIniFile "Misc.ini","Switches","PingSwitch",PingSwitch
            SendCommand "/msg " & channel & " Pings Disabled? " & PingSwitch,ServerNumber
        End If
    case "!togglerejoin"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        RejoinSwitch = GetIniFile("Misc.ini","Switches","RejoinSwitch",0)
        If RejoinSwitch = 1 then
            RejoinSwitch = 0
        else
            RejoinSwitch = 1
        end if
        WriteIniFile "Misc.ini","Switches","RejoinSwitch",RejoinSwitch
        SendCommand "/msg " & channel & " Bot Rejoin Disabled? " & RejoinSwitch,ServerNumber
    case "!do"
        If NOT InList(Nickname,"AdminList") AND Nickname <> MyNickname(ServerNumber) then Exit Sub
	CmdTxt(0) = Empty
        SendCommand Trim(Join(CmdTxt)), ServerNumber
    case "!hi"
        if ubound(cmdtxt) > 0 then
            CmdTxt(0) = Empty
            TextString = Join(CmdTxt)
        else
            TextString = Nickname
        end if
        SendCommand "/msg " & channel & " Hello " & TextString & "!",ServerNumber
    case "!coin"
        Coin = Split("Heads Tails")
        Flip = Int(Rnd * 2)
        SendCommand "/msg " & channel & " You flipped a coin! It fell on... " & Chr(2) & " " & Coin(Flip) & Chr(2) & "!",ServerNumber
    case "!flip"
        Call ONTEXT("!coin",Channel,Nickname,Host,ServerNumber)
    case "!roll"
        If InStr(lcase(Message),"/h") OR InStr(lcase(Message),"/?") then
            CALL ErrorOut(CmdTxt(0), "Syntax", Channel, ServerNumber)
            Exit Sub
        End If

        Params = 0
        if ubound(cmdtxt) = 0 then
            Scrap = Dice(Channel,"1d20", ServerNumber, Empty, 0)
            Exit Sub
        End If

        If lcase(Left(CmdTxt(1),1) = "d") then CmdTxt(1) = "1" & CmdTxt(1)

        If InStr(CmdTxt(1),"d") = 0 then
            If UBound(Cmdtxt) > 1 then
                If IsNumeric(left(CmdTxt(2),1)) AND lcase(CmdTxt(UBound(CmdTxt))) <> "times" then
                    CmdTxt(1) = CmdTxt(1) & "d" & CmdTxt(2)
                    For a = 2 to (UBound(CmdTxt) - 1)
                        CmdTxt(a) = CmdTxt(a + 1)
                    Next
                    CmdTxt(UBound(CmdTxt)) = Empty
                    CmdTxt = Split(Trim(Join(CmdTxt)))
                End If
            Else
                CmdTxt(1) = "1d" & CmdTxt(1)
            End If
        End If

        Params = 1

        Scrap = Split(CmdTxt(1),"d")
        If UBound(Scrap) = 1 then
            If NOT IsNumeric(Scrap(0)) AND NOT IsNumeric(Scrap(1)) then
                CALL ErrorOut(CmdTxt(0), "Syntax", Channel, ServerNumber)
                Exit Sub
            End If
        Else
            CALL ErrorOut(CmdTxt(0), "Syntax", Channel, ServerNumber)
            Exit Sub
        End If

        If (lcase(CmdTxt(UBound(CmdTxt))) = "times" AND Asc(Right(CmdTxt(UBound(CmdTxt) - 1),1)) > 47 AND Asc(Right(CmdTxt(UBound(CmdTxt) - 1),1)) < 58) Then
            Repeats = CmdTxt(UBound(CmdTxt)-1)
            CmdTxt(UBound(CmdTxt)-1) = Empty
            CmdTxt(UBound(CmdTxt)) = Empty
            Command = Trim(Join(CmdTxt))
            AverageTotal = 0
            If Repeats > 1 AND Repeats < 21 then
                For a = 1 to Repeats
                    CALL ONTEXT(Command,Channel,Nickname,Host,ServerNumber)
                Next
                If InStr(lcase(Message),"/a") then
                    AverageTotal = AverageTotal / Repeats
                    SendCommand "/msg " & channel & " Average for " & Repeats & " rolls: " & AverageTotal,ServerNumber
                End If
                Exit Sub
            End If
        End If

        Flags = Empty
        If InStr(lcase(Message),"/d") then
            Flags = Flags & "d"
            Params = Params + 1
        End If
        If InStr(lcase(Message),"/a") then
            Flags = Flags & "a"
            Params = Params + 1
        End If

        If InStr(lcase(Message),"+") OR InStr(lcase(Message),"+") then Params = Params + 1

        If Params < UBound(CmdTxt) then
            CALL ErrorOut(CmdTxt(0), "Syntax", Channel, ServerNumber)
            Exit Sub
        End If

        if lcase(CmdTxt(1)) = "percent" then
            Ten = Dice(Channel, "1d10", ServerNumber, Empty, 0)
            One = Dice(Channel, "1d10", ServerNumber, Empty, 0)
            If Ten = 10 then Ten = 0
            If One = 10 then One = 0
            Total = Ten * 10 + One
            If Ten = 0 AND One = 0 then Total = 100            
            SendCommand "/msg " & channel & " Resulting Percentage: " & Total & "%",ServerNumber
        end if

        If InStr(lcase(Message),"+") OR InStr(lcase(Message),"+") then
            CALL Dice(Channel, CmdTxt(1), ServerNumber, Flags & "m", CmdTxt(2))
        Else
            CALL Dice(Channel, CmdTxt(1), ServerNumber, Flags, Empty)
        End If
    case "!writedocs"
        If UBound(CmdTxt) < 3 then
            CALL ErrorOut(CmdTxt(0),"Syntax",Channel,ServerNumber)
            Exit Sub
        End If
        For Count = 3 to ubound(cmdtxt)
            TextString = TextString & " " & cmdtxt(count)
        next
        TextArray = Split(TextString,"<br>")
        WriteIniFile "HelpDocs.ini",lcase(cmdtxt(1)),lcase(cmdtxt(2)),UBound(TextArray) + 1
        For a = 0 to UBound(TextArray)
            WriteIniFile "HelpDocs.ini",lcase(cmdtxt(1)),lcase(cmdtxt(2)) & (a+1),TextArray(a)
        Next
    Case "!abuse"
        If Not UBound(CmdTxt) = 0 Then
        If (lcase(CmdTxt(UBound(CmdTxt))) = "times" AND Asc(Right(CmdTxt(UBound(CmdTxt) - 1),1)) > 47 AND Asc(Right(CmdTxt(UBound(CmdTxt) - 1),1)) < 58) Then
                Repeats = CmdTxt(UBound(CmdTxt)-1)
                CmdTxt(UBound(CmdTxt)-1) = Empty
                CmdTxt(UBound(CmdTxt)) = Empty
                Command = Trim(Join(CmdTxt))
                If Repeats > 5 AND NOT InList(Nickname,"AdminList") then Repeats = 5
                If Repeats > 1 AND Repeats < 21 then
                    For a = 1 to Repeats
                        CALL ONTEXT(Command,Channel,Nickname,Host,ServerNumber)
                    Next
                    Exit Sub
                End If
            End If
        End If
        If UBound(CmdTxt) = 0 Then
            SendCommand Retaliation(Nickname,Channel),ServerNumber
        elseif NOT InList(Nickname,"AdminList") AND (InList(Message,"ProtectList") OR InStr(lcase(Message),"self") OR lcase(CmdTxt(1)) = "me" OR InList(Nickname,"Hatelist") OR Int(Rnd * 100) < 2) then
            SendCommand Retaliation(Nickname,Channel),ServerNumber
        else
            CmdTxt(0) = Empty
            SendCommand Retaliation(Trim(Join(CmdTxt)),Channel),ServerNumber
        end if
        If NOT (InList(Nickname,"AdminList") OR InList(Nickname,"FloodProtect")) THEN CALL FloodControl(Channel,Host,ServerNumber)
    case "!dumpabuses"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        PrevPending = GetIniFile("AbuseMsgs.ini","General","PrevPending",0)
        If PrevPending = 0 then
            SendCommand "/msg " & channel & " Nothing here.",ServerNumber
            Exit Sub
        End If
        For a = 1 to PrevPending
            SendCommand "/msg " & channel & " " & GetIniFile("AbuseMsgs.ini","Pending",a,"Nothing here"),ServerNumber
            WriteIniFile "AbuseMsgs.ini","General","PrevPending",0
        Next
    case "!addabuse"
        CmdTxt(0) = Empty
        If InList(Nickname,"AdminList") then
            Call AddTo("AbuseMsgs","Abuse",Join(CmdTxt))
            SendCommand "/msg " & channel & " Abuse added! [" & GetIniFile("AbuseMsgs.ini","General","PrevAbuse",0) & "]",ServerNumber
        else
            Call AddTo("AbuseMsgs","Pending",Join(CmdTxt))
            SendCommand "/msg " & channel & " Abuse added to waitlist. [" & GetIniFile("AbuseMsgs.ini","General","PrevPending",0) & "]",ServerNumber
        end if
    case "!addtolist"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        Section = CmdTxt(1)
        NoMessage = GetIniFile("Lists.ini","Main",Section,0) + 1
        CmdTxt(0) = Empty
        CmdTxt(1) = Empty
        Message = Trim(Join(CmdTxt))
        WriteIniFile "Lists.ini","Main",Section,NoMessage
        WriteIniFile "Lists.ini",Section,NoMessage,Message
        SendCommand "/msg " & channel & " Added " & Message & " to " & Section,ServerNumber
    case "!showlist"
        If UBound(CmdTxt) < 2 Then
            SendCommand "/msg " & Channel & " == " & Chr(2) & CmdTxt(1) & Chr(15) & " ==",ServerNumber
            LastItem = GetIniFile("Lists.ini","Main", CmdTxt(1),0) 
            If LastItem = 0 then SendCommand "/msg " & Channel & " Nothing in this list.",ServerNumber
            For a = 1 to LastItem
                SendCommand "/msg " & Channel & " " & a & "=" & GetIniFile("Lists.ini",CmdTxt(1),a,"Nothing (" & CmdTxt(1) & ": " & a & ")"),ServerNumber
            Next
        Else
            SendCommand "/msg " & Channel & " Item " & CmdTxt(2) & " of " & CmdTxt(1) & ": " & Chr(34) & GetIniFile("Lists.ini",CmdTxt(1),CmdTxt(2),"Nothing (" & CmdTxt(1) & ": " & CmdTxt(2) & ")") & Chr(34),ServerNumber
        End If
    case "!countlist"
        SendCommand "/msg " & Channel & " List " & Chr(34) & CmdTxt(1) & Chr(34) & " has " & GetIniFile("Lists.ini","Main", CmdTxt(1),0) & " items.", ServerNumber
    case "!deletefromlist"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        LastItem = GetIniFile("Lists.ini","Main", CmdTxt(1),0) 
        ToReplaceWith = GetIniFile("Lists.ini",CmdTxt(1),LastItem,"Nothing")
        Replacee = GetIniFile("Lists.ini",CmdTxt(1),CmdTxt(2),"Nothing")
        WriteIniFile "Lists.ini",CmdTxt(1),CmdTxt(2),ToReplaceWith
        WriteIniFile "Lists.ini",CmdTxt(1),LastItem,Empty
        WriteIniFile "Lists.ini","Main",CmdTxt(1),(LastItem - 1)
        SendCommand "/msg " & Channel & " Deleted item " & CmdTxt(2) & " (" & Chr(34) & Replacee & Chr(34) & ") and replaced it with last item in list (" & Chr(34) & ToReplaceWith & Chr(34) & "). List length: " & (LastItem - 1),ServerNumber
    case "!replaceinlist"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        List = CmdTxt(1)
        ItemNumber = CmdTxt(2)
        LastItem = GetIniFile("Lists.ini","Main", List,0)
        If ItemNumber > LastItem then
            SendCommand "/msg " & Channel & " Sorry, there's no item with that number. There are " & LastItem & " items in this list.",ServerNumber
            Exit Sub
        End If
        For a = 0 to 2
            CmdTxt(a) = Empty
        Next
        ToReplaceWith = Trim(Join(CmdTxt))
        Replacee = GetIniFile("Lists.ini",List,ItemNumber,"Nothing")
        WriteIniFile "Lists.ini",List,ItemNumber,ToReplaceWith
        SendCommand "/msg " & Channel & " Replaced item " & ItemNumber & " (" & Chr(34) & Replacee & Chr(34) & ") with " & Chr(34) & ToReplaceWith & Chr(34),ServerNumber
    case "!addto"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        If UBound(CmdTxt) < 3 then
            CALL ErrorOut(CmdTxt(0),"Syntax",Channel,ServerNumber)
            Exit Sub
        End If
        Filename = CmdTxt(1)
        Section = CmdTxt(2)
        For a = 0 to 2
            CmdTxt(a) = Empty
        Next
        CALL AddTo(Filename, Section, Join(CmdTxt))
        SendCommand "/msg " & Channel & " Data Added to " & Section & " in " & Filename,ServerNumber
    case "!deletefrom"
        If NOT InList(Nickname,"AdminList") then Exit Sub
         If UBound(CmdTxt) <> 3 then
            CALL ErrorOut(CmdTxt(0),"Syntax",Channel,ServerNumber)
            Exit Sub
        End If
        Deleted = GetIniFile((CmdTxt(1) & ".ini"), CmdTxt(2), CmdTxt(3), "Nothing here, for some reason.")
        CALL DeleteFrom(CmdTxt(1), CmdTxt(2), CmdTxt(3))
        SendCommand "/msg " & channel & " Deleted item " & CmdTxt(3) & " in " & CmdTxt(2) & " in " & CmdTxt(1) & " (" & Chr(34) & Deleted & Chr(34) & ") and replaced it with last item.",ServerNumber
    case "!replacein"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        If UBound(CmdTxt) < 4 then
            CALL ErrorOut(CmdTxt(0),"Syntax",Channel,ServerNumber)
            Exit Sub
        End If
        Filename = CmdTxt(1)
        Section = CmdTxt(2)
        Number = CmdTxt(3)
        For a = 0 to 3
            CmdTxt(a) = Empty
        Next
        Replaced = GetIniFile((Filename & ".ini"), Section, Number, "Nothing here, for some reason.")
        CALL ReplaceIn(Filename, Section, Number, Join(CmdTxt))
        SendCommand "/msg " & channel & " Replaced item " & Number & " in " & Section & " in " & Filename & " (" & Chr(34) & Replaced & Chr(34) & ").",ServerNumber
    case "!countin"
        If UBound(CmdTxt) < 2 then
            CALL ErrorOut(CmdTxt(0),"Syntax",Channel,ServerNumber)
            Exit Sub
        End If
        SendCommand "/msg " & Channel & " Number of items in " & CmdTxt(2) & " (" & CmdTxt(1) & ".ini): " & GetIniFile((CmdTxt(1) & ".ini"),"General","Prev" & CmdTxt(2),0),ServerNumber
    case "!showall"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        If UBound(CmdTxt) <> 2 then
            CALL ErrorOut(CmdTxt(0),"Syntax",Channel,ServerNumber)
            Exit Sub
        End If
        ItemCount = GetIniFile((CmdTxt(1) & ".ini"), "General", ("Prev" & CmdTxt(2)), 0)
        SendCommand "/msg " & channel & " " & Chr(2) & "== " & CmdTxt(1) & ".ini" & " ==", ServerNumber
        If ItemCount > 29 then
            SendCommand "/msg " & channel & " Dude, no. That one's got " & ItemCount & " freaking elements. I don't wanna get disconnected for flooding.", ServerNumber
            Exit Sub
        End If
        For a = 1 to ItemCount
            SendCommand "/msg " & channel & " " & a & "=" & GetIniFile((CmdTxt(1) & ".ini"), CmdTxt(2), a, "Nothing here, for some reason."), ServerNumber
        Next
    case "!showrandom"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        If UBound(CmdTxt) <> 2 then
            CALL ErrorOut(CmdTxt(0),"Syntax",Channel,ServerNumber)
            Exit Sub
        End If
        SendCommand "/msg " & channel & " Random item from " & CmdTxt(2) & " in " & CmdTxt(1) & ".ini", ServerNumber
        ItemCount = GetIniFile((CmdTxt(1) & ".ini"), "General", ("Prev" & CmdTxt(2)), 0)
        Pick = Int(Rnd * ItemCount + 1)
        SendCommand "/msg " & channel & " " & Pick & "=" & GetIniFile((CmdTxt(1) & ".ini"), CmdTxt(2), Pick, "Nothing here, for some reason."), ServerNumber
    case "!showfrom"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        If UBound(CmdTxt) <> 3 then
            CALL ErrorOut(CmdTxt(0),"Syntax",Channel,ServerNumber)
            Exit Sub
        End If
        SendCommand "/msg " & channel & " Item number " & CmdTxt(3) & " from " & CmdTxt(2) & " in " & CmdTxt(1) & ".ini", ServerNumber
        Pick = CmdTxt(3)
        SendCommand "/msg " & channel & " " & Pick & "=" & GetIniFile((CmdTxt(1) & ".ini"), CmdTxt(2), Pick, "Nothing here, for some reason."), ServerNumber
    case "!showparsed"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        If UBound(CmdTxt) <> 3 then
            CALL ErrorOut(CmdTxt(0),"Syntax",Channel,ServerNumber)
            Exit Sub
        End If
        SendCommand "/msg " & channel & " Item number " & CmdTxt(3) & " from " & CmdTxt(2) & " in " & CmdTxt(1) & ".ini", ServerNumber
        Pick = CmdTxt(3)
        SendCommand "/msg " & channel & " " & Pick & "=" & ReplaceTags(GetIniFile((CmdTxt(1) & ".ini"), CmdTxt(2), Pick, "Nothing here, for some reason.")), ServerNumber
    case "!dumpcommands"
        If NOT InList(Nickname,"AdminList") then Exit Sub
        PrevPendingC = GetIniFile("Commands.ini","General","PrevPendingCommands",0)
        If PrevPendingC = 0 then
            SendCommand "/msg " & channel & " No commands here.",ServerNumber
        Else
            For a = 1 to PrevPendingC
                SendCommand "/msg " & channel & " " & GetIniFile("Commands.ini","PendingCommands",a,"No commands here."),ServerNumber
                WriteIniFile "Commands.ini","General","PrevPendingCommands",0
            Next
        End If
        PrevPendingM = GetIniFile("Commands.ini","General","PrevPendingMessages",0)
        If PrevPendingM = 0 then
            SendCommand "/msg " & channel & " No messages here.",ServerNumber
        Else
            For a = 1 to PrevPendingM
                SendCommand "/msg " & channel & " " & GetIniFile("Commands.ini","PendingMessages",a,"No messages here."),ServerNumber
                WriteIniFile "Commands.ini","General","PrevPendingMessages",0
            Next
        End If
    Case "!addcommand"
        If InList(Nickname,"AdminList") then
            CmdTxt(0) = Empty
            Message = Trim(Join(CmdTxt))
            Message = "!addtolist commands " & Message
            CALL ONTEXT(Message,Channel,Nickname,Host,ServerNumber)
            Exit Sub
        End If
        If UBound(CmdTxt) < 1 then
            SendCommand "/msg " & channel & " It's !addcommand [commandname]. Once you do that, remember to use !addmessage [commandname] [message].",ServerNumber
            Exit Sub
        End If
        Call AddTo("Commands","PendingCommands",Join(CmdTxt))
        SendCommand "/msg " & channel & " Command added to waitlist. [" & GetIniFile("Commands.ini","General","PrevPendingCommands",0) & "]",ServerNumber
    Case "!addmessage"
        If InList(Nickname,"AdminList") then
            CmdTxt(0) = Empty
            Message = Trim(Join(CmdTxt))
            Message = "!addto commands " & Message
            CALL ONTEXT(Message,Channel,Nickname,Host,ServerNumber)
            Exit Sub
        End If
        If UBound(CmdTxt) < 2 then
            SendCommand "/msg " & channel & " It's !addmessage [commandname] [message]. Be sure to have submitted the command with !addcommand [commandname].",ServerNumber
            Exit Sub
        End If
        Call AddTo("Commands","PendingMessages",Join(CmdTxt))
        SendCommand "/msg " & channel & " Command message added to waitlist. [" & GetIniFile("Commands.ini","General","PrevPendingMessages",0) & "]",ServerNumber
    Case Else
        If Left(Message,1) = "!" AND InList(CmdTxt(0),"Commands") AND Len(CmdTxt(0)) = (Len(LastResultStr("Commands")) + 1) Then
            If UBound(CmdTxt) = 0 THEN
                SpecialTags.Item("Target") = RandomNick(Channel, ServerNumber)
            Elseif InStr(lcase(Message),"self") OR lcase(CmdTxt(1)) = "me" Then
                SpecialTags.Item("Target") = Nickname
            Else
                CmdTxt(0) = Empty
                SpecialTags.Item("Target") = Join(CmdTxt)
            End If
            Answer = RandomEntry("Commands", LastResultStr("Commands"), "/say No responses for this command. Yet.")
            AnswerBits = Split(Trim(Answer))
            If AnswerBits(0) = "/me" OR AnswerBits(0) = "/describe" then
                AnswerBits(0) = Empty
                SendCommand "/describe " & Channel & " " & Trim(Join(AnswerBits)),ServerNumber
            Elseif AnswerBits(0) = "/say" OR AnswerBits(0) = "/msg" then
                AnswerBits(0) = Empty
                SendCommand "/msg " & Channel & " " & Trim(Join(AnswerBits)),ServerNumber
            Elseif AnswerBits(0) = "/notice" then
                AnswerBits(0) = Empty
                SendCommand "/notice " & Nickname & " " & Trim(Join(AnswerBits)),ServerNumber
            Else
                SendCommand "/msg " & Channel & " " & Answer,ServerNumber
            End If
        End If
End Select

If InList(Nickname,"Hatelist") AND Int(Rnd*200) < 2 then SendCommand Retaliation(Nickname,Channel),ServerNumber

End Sub

Sub ONJOIN(Nickname,Host,Channel,ServerNumber)
If InStr(lcase(Channel),"idlerpg") then
    If Nickname = MyNickname(ServerNumber) then SendCommand "/msg idlebot LOGIN ChileanBot asdf",ServerNumber
    Exit Sub
End If
If GetIniFile("Reminders.ini","Main",Nickname,0) = 1 then SendCommand "/msg " & Channel & " " & Nickname & "! You've got a message pending!",ServerNumber
If GetIniFile("Reminders.ini","Main",Nickname,0) > 1 then SendCommand "/msg " & Channel & " " & Nickname & "! You've got " & GetIniFile("Reminders.ini","Main",Nickname,0) & " messages pending!",ServerNumber

If instr(lcase(Nickname),"graystash") AND Int(Rnd * 100) < 51 then SendCommand "/describe " & Channel & " hides from the bot molester!",ServerNumber

If instr(lcase(Nickname),"ryn") then
    SendCommand "/describe " & channel & " pokes Kyte. " & Chr(34) & "Hay look. Ryn's here!" & Chr(34),ServerNumber
    SendCommand "/describe " & channel & " huggles Ryn.",ServerNumber
End If
If instr(lcase(Nickname),"pyrobot") then
    SendCommand "/msg " & channel & " Hai Pyro!",ServerNumber
    SendCommand "/describe " & channel & " snuggles muchly.",ServerNumber
End if

If Nickname = MyNickname(ServerNumber) then
    SendCommand TimerFormat("RynCheck", 1, 2, "/! CheckRyn " & Channel & " | " & ServerNumber),ServerNumber
    SendCommand TimerFormat("PyroCheck", 1, 2, "/! CheckPyro " & Channel & " | " & ServerNumber),ServerNumber
    SendCommand TimerFormat("Nicklist", 1, 2, "/! CheckReminders " & Channel & " | " & ServerNumber),ServerNumber
End If
End Sub

Sub ONACTION(Message,Channel,Nickname,Host,ServerNumber)
If InStr(lcase(Channel),"idlerpg") then Exit Sub

    If GetIniFile("Misc.ini","Switches","ActionSwitch",0) = 1 OR GetIniFile("Misc.ini","Switches","ActionSwitch" & Channel,0) = 1 OR InList(Message,"BanList") then Exit Sub

    If InList(Nickname,"Hatelist") AND (Rnd * 100) < 21 then SendCommand Retaliation(Nickname,Channel),ServerNumber

    If InList(Message,"ProtectList") AND InList(Message,"Attacks") then
        If Not InList(Nickname,"FloodProtect") THEN Call FloodControl(Channel,Host,ServerNumber)
        SendCommand Retaliation(Nickname,Channel),ServerNumber
    End If
End Sub

Function RandomEntry(Filename, Section, Default)
    Filename = Filename & ".ini"
    ItemCount = GetIniFile(Filename, "General", ("Prev" & Section), 0)
    ItemPick = Int(Rnd * ItemCount) + 1
    Pull = GetIniFile(Filename, Section, ItemPick, Default)
    Pull = ReplaceTags(Pull)
    RandomEntry = " " & Pull
End Function

Function ReplaceTags(Pull)
    Do While InStr(Pull,"<")
        StartTagPos = InStr(Pull,"<") + 1
        EndTagPos = InStr(Pull,">")
        Tag = Mid(Pull,StartTagPos,EndTagPos - StartTagPos)
        If SpecialTags.Exists(Tag) Then
            Replacer = SpecialTags.Item(Tag)
        Else
            ReplaceCount = GetIniFile("Replacers.ini", "General", "Prev" & Tag, 0)
            ReplacePick = Int(Rnd * ReplaceCount + 1)
            Replacer = GetIniFile("Replacers.ini", Tag, ReplacePick, "[no_" & Tag & "]")
        End If
        Pull = Replace(Pull, "<" & Tag & ">", Replacer)
    Loop
    ReplaceTags = Pull
End Function

Sub AddTo(Filename, Section, Data)
    Filename = Filename & ".ini"
    ItemCount = GetIniFile(Filename, "General", ("Prev" & Section), 0)
    ItemCount = ItemCount + 1
    WriteIniFile FileName, Section, ItemCount, Trim(Data)
    WriteIniFile Filename, "General", ("Prev" & Section), ItemCount
End Sub

Sub DeleteFrom(Filename, Section, Number)
    Filename = Filename & ".ini"
    LastItem = GetIniFile(Filename, "General", ("Prev" & Section), 0)
    Replacee = GetIniFile(Filename, Section, LastItem, "Nothing here, for some reason.")
    WriteIniFile Filename, Section, Number, Replacee
    WriteIniFile Filename, Section, LastItem, Empty
    WriteIniFile Filename, "General", ("Prev" & Section), LastItem - 1
End Sub

Sub ReplaceIn(Filename, Section, Number, Data)
    Filename = Filename & ".ini"
    WriteIniFile Filename, Section, Number, Trim(Data)
End Sub

Function Retaliation(Target, Channel)
    If InList(Target,"DNAlist") then
        Retaliation = Empty
    Else
        If dbLoaded = 0 then CALL LoadAbuses()
        ItemPick = Int(Rnd * UBound(AbuseArray) + 1)
        Pull = AbuseArray(ItemPick)
        SpecialTags.Item("Target") = Target
        Pull = ReplaceTags(Pull)
        Retaliation = "/describe " & Channel & " " & Pull
    End If
End Function

Sub LoadAbuses()
    ItemCount = GetIniFile("AbuseMsgs.ini", "General", "PrevAbuse", 0)
    ReDim AbuseArray(ItemCount)

    For a = 0 to ItemCount
        AbuseArray(a) = GetIniFile("AbuseMsgs.ini","Abuse", a, "attacks <target> in the <body_part>!")
    Next
    dbLoaded = 1
End Sub

Sub ONCONNECT(ServerNumber)
    CALL LoadAbuses()
End Sub

Function Dice(Channel, DieParam, ServerNumber, Flags, Modifier)
REM Flags -> "m"=Modifier, "d"=Drop lowest, "a"= Show average
    If InStr(Flags, "d") then Lowest = 100

    DieStats = split(DieParam,"d")
    If DieStats(0) = Empty then DieStats(0) = 1
        ReDim DieValue(DieStats(0) - 1)
        For DieNum = 0 to (DieStats(0) - 1)
            DieValue(DieNum) = Int((Rnd * DieStats(1)) + 1)
            If InStr(Flags, "d")  AND DieValue(DieNum) < Lowest Then
                Lowest = DieValue(DieNum)
            End If
        Next

        If InStr(Flags,"d") then
            For DieNum = 0 to (DieStats(0) - 1)
                If DieValue(DieNum) = Lowest then
                    DieValue(DieNum) = DieValue(DieStats(0) - 1)
                    DieStats(0) = DieStats(0) - 1
                    Lowest = Lowest + 1
                End If
            Next
        End If

        For DieNum = 0 to (DieStats(0) - 1)
            Total = Total + DieValue(DieNum)
            If UBound(DieValue) < 10 Then
                If DieNum = 0 then
                    NumberString = NumberString & DieValue(DieNum)
                Else
                    NumberString = NumberString & ", " & DieValue(DieNum)
                End If
            End If
        Next

        If InStr(Flags,"m") then
            DieParam = DieParam & Modifier
            Total = Total + Int(Modifier)
        End If
        If UBound(DieValue) < 10 AND (UBound(DieValue) > 0 OR InStr(Flags,"m")) Then
            SendCommand "/msg " & channel & " " & DieParam & " = " & Total & " (" & NumberString & ")",ServerNumber
        Else
            SendCommand "/msg " & channel & " " & DieParam & " = " & Total,ServerNumber
        End if
    If InStr(Flags, "a") then AverageTotal = AverageTotal + Total
    Dice = Total
End Function

Sub ErrorOut(Section,Key,Channel,ServerNumber)
	Key = lcase(Key)
	Section = lcase(Section)
        LineCount = GetIniFile("HelpDocs.ini",Section,Key,1) - 1
        For a = 0 to LineCount
            SendCommand "/msg " & channel & " " & GetIniFile("HelpDocs.ini",Section,Key & (a+1),"Error found, no documentation for it. Sorry."),ServerNumber
        Next
End Sub

Sub FloodControl(Channel,Host,ServerNumber)
    FloodTimeout = 20 + (5 * Int(Rnd * 5))
    FloodTimer = 5 + Int(Rnd * 4)
    FloodCount = GetIniFile("misc.ini","Main","FloodCount",0)

    Select Case FloodCount
        Case 0
            WriteIniFile "Misc.ini","Main","FloodCount",1
            SendCommand TimerFormat("Flood_timer", 1, FloodTimer, "/! WriteIniFile @Misc.ini@, @Main@, @FloodCount@, 0"),ServerNumber
        Case 4
            WriteIniFile "misc.ini","Switches","PowerSwitch",1
            WriteIniFile "misc.ini","Switches","ActionSwitch",1
            SendCommand "/describe " & Channel & RandomEntry("AbuseMsgs","Defense"," hides!", Nickname) & " [Bot deactivated for " & FloodTimeout & " secs]",ServerNumber
            SendCommand TimerFormat("ReOpen_timer", 1, FloodTimeout, "/! ReOpenGates " & Channel & " | " & ServerNumber),ServerNumber
            WriteIniFile "misc.ini","Main","FloodCount",0
        Case Else
            WriteIniFile "misc.ini","Main","FloodCount",(FloodCount+1)
    End Select
End Sub

Sub CheckReminders(Channel,ServerNumber)
    Nicknames = Split(Nicks(Channel,ServerNumber))
    For each Nick in Nicknames
        If GetIniFile("Reminders.ini","Main",Nick,0) > 1 then SendCommand "/msg " & Channel & " " & Nicknames(a) & "! You've got " & GetIniFile("Reminders.ini","Main",Nicknames(a),0) & " messages pending!",ServerNumber
        If GetIniFile("Reminders.ini","Main",Nick,0) = 1 then SendCommand "/msg " & Channel & " " & Nicknames(a) & "! You've got a message pending!",ServerNumber
    Next
End Sub

Sub ReopenGates(Channel,ServerNumber)
    WriteIniFile "Misc.ini","Switches","PowerSwitch",0
    WriteIniFile "Misc.ini","Switches","ActionSwitch",0
    SendCommand "/msg " & Channel & " Bot reactivated.",ServerNumber
End Sub

Function TimerFormat(ID, Repeats, Timeout, Command)
    Command = Replace(Command,"@",Chr(34))
    TimerFormat = "/timer " & ID & " " & Repeats & " " & Timeout & " " & Command
End Function

Function InList(CheckWord,Section)
    InList = False
    Key = 0
    For Key = 1 to GetIniFile("Lists.ini","Main",Section,0)
        BanWord = GetIniFile("Lists.ini",Section,Key,"")
        If InStr(lcase(CheckWord),lcase(BanWord)) then
            InList = True
            WriteIniFile "Misc.ini","LastResults",Section,Key
        End If
    Next
End Function

Function LastResultInt(Section)
    LastResultInt = GetIniFile("Misc.ini","LastResults",Section,0)
End Function

Function LastResultStr(Section)
    LastResultStr = GetIniFile("Lists.ini", Section, LastResultInt(Section), "No last result.")
End Function

Function RandomNick(Channel,ServerNumber)
    NickList = Split(Nicks(Channel,ServerNumber))
    RandomNick = NickList(Int(Rnd * UBound(Nicklist)) + 1)
End Function

Sub CheckRyn(Channel,ServerNumber)
    If InStr(lcase(Nicks(Channel,ServerNumber)),"ryn") Then
        SendCommand "/describe " & channel & " pokes Kyte. " & Chr(34) & "Hay look. Ryn's here!" & Chr(34),ServerNumber
        SendCommand "/describe " & channel & " huggles Ryn.",ServerNumber
    End If
End Sub

Sub CheckPyro(Channel, ServerNumber)
    If InStr(lcase(Nicks(Channel,ServerNumber)),"pyro") Then
        SendCommand "/msg " & channel & " Hai Pyro!",ServerNumber
        SendCommand "/describe " & channel & " snuggles muchly.",ServerNumber
    End If
End Sub