Is there a way to use a plugin to write to a blank webpage?
Ex. Last 15 Users seen or whatever (that's not what i need it for but just an example)

I can't seem to find why this messes up.  It always returns Invalid Character.  The Addchat is correct though, and in lowercase.
  If left(lcase(message), 10) = botvars.trigger & "runeword " Then
  Args = Split(message)
  Char = Args(1)
  Character = lcase(Args(1))
  Addchat vbgreen, Character
  x = 1
  Select Case Character
  Case sorceress
  Runes = "Pul+Ral+Sol"
  Struck = "5% for Level 15 Fire Ball"
  Striking = "5% for Level 15 Blaze"
  Bonuses = "+1 to warmth|+30% Enhanced Defense|Fire Resist +30%|Damage Taken -7"
  Case necromancer
  Runes = "Sol+Um+Um"
  Struck = "15% for Level 10 Bone Armor"
  Striking = "15% for Level 10 Bone Spear"
  Bonuses = "+100-150 mana|All resistances +30|Damage taken -7| -None-"
  Case paladin
  Runes = "Ral+Gul+Eld"
  Struck = " -None-"
  Striking = "100% for Level 5 Holy Bolt"
  Bonuses = "15% slower stamina drain|+5% to max poison resist|Fire Resist +30%| -None-"
  Case barbarian
  Runes = "Hel+Amn+Nef"
  Struck = "3% for Level 1 Howl"
  Striking = "10% for Level 1 Taunt"
  Bonuses = "+30% Defense vs. Missile|Replenish life +10|Attacker takes 14 damage|Requirements -15%"
  Case amazon
  Runes = "Shael+Thul+Amn"
  Struck = "4% for Level 5 Slow Missiles"
  Striking = "2% for Level 15 Valkyrie"
  Bonuses = "+20% faster hit recovery|+2 to Critical Strike|Cold Resist +30%|Attacker Takes 14 damage"
  Case assassin
  Runes = "Shael+Thul+Lem"
  Struck = "5% for Level 15 Fade"
  Striking = "15% for Level 15 Venom"
  Bonuses = "+45% attack speed|+20% Faster Hit Recovery|Cold Resist +30%|+50% gold from monsters"
  Case druid
  Runes = "Ort+Mal+Ith"
  Struck = "5% for Level 15 Cyclone Armor"
  Striking = "5% for Level 15 Twister"
  Bonuses = "+100-150 mana|Lightning Resist +30%|Magid Damage -7|15% Damage taken goes to Mana"
  Case Else
  AddQ "/w " & Username & " Invalid Character."
  x = 0
  End Select
  If x = 1 Then
  Bonus = Split(Bonuses, "|")
  AddQ "/w " & Username & " Runeword for " & Char
  AddQ "/w " & Username & " Runes: " & runes
  AddQ "/w " & Username & " When Struck: " & Struck
  AddQ "/w " & Username & " When Striking: " & Striking
  AddQ "/w " & Username & " Bonus 1: " & Bonus(0)
  AddQ "/w " & Username & " Bonus 2: " & Bonus(1)
  AddQ "/w " & Username & " Bonus 3: " & Bonus(2)
  AddQ "/w " & Username & " Bonus 4: " & Bonus(3)
  End If
  End If

[blink]  Rawr  RAWR  [/blink]

What were the main things you got this year?
I gots:
New wireless Keyboard/Mouse
GH4
42" Plasma TV
Other Stuffs

Zone - I've made lots of logos/whatever for everything - If you need anything else or want something changed, post plz.  Be back tomorrow.
http://img185.imageshack.us/my.php?image=logosv2jc0.png

Prefix: MOA
Name: Multi Ops Administration
Bot(s) Supported: Stealthbot

Author: 7thAce

Use: Advances StealthBot's moderating ability and adds a few minor convenience touches. - 1st part is in another plugin i plan to merge.

Changelog: See the Script's changelog.

Commands: (Some commands can be changed by setting)

• iam
  - Says your access, flags and ping
  - Ex. You are 7thAce-7thAce with 200, flags AOSL and a ping of 47ms.
• defaultadd <Name>
  - Will set a user to specified access and flags (Access and flags are a setting in the script)
  - Ex. "Test" has been given access 30 and flags L.
• autoban <Name>
  - Bans, Squelches, IP bans, and removes the access of a user. It even tells them that they have been banned via whisper
  - Ex.
  "clangnome" has been given flags B.
  User "clangnome" IPBanned.
  "clangnome" has been given flags BZ.
  ClanGnome has been squelched.
  <To ClanGnome> You have been banned by The7thAce.

'MOA
'1.22
'&Multi-ops Administration:7thAce:Advances StealthBot's moderating ability and adds a few minor convenience touches.
'&autoban:iam:defaultadd:autoop
'&00000
'&Public - Version 1.22  Tested with StealthBot Beta version 2.6999 Dev Release 10. - works on 2.6r3

'*****************'
'    Changelog    '
'*****************'
'Version 1.22 - Fixed Autoop
'Version 1.21 - Cleaned up the QuickColors. Ty @ Tony
'Version 1.2 - More cleanup and features
'Version 1.1 - Added auto-op
'Version 1.0 - Released with all commands added and one quicktext
'Version 0.1 - Original draft - Release date

Public autoban_access, sc_access, iam_access, defaultadd_access, autoop_access, maxaccess_access
MOA_autoban_access = 200
MOA_sc_access = 50
MOA_iam_access = 1
MOA_defaultadd_access = 150
MOA_autoop_access = 200
MOA_maxaccess_access = 200
MOA_version = "1.22 Public"
Const MOA_DefaultAccess = 30
Const MOA_DefaultFlags = "L"
Const MOA_Qt1 = "Epic Fail"
Const MOA_Endtag = "@USeast"

Sub MOA_Event_Load()
AddChat vbMagenta, "Welcome ?c7to ?cb?c3MOA!"
AddChat vbRed, "?cb?c9Current Version: ?ci?c1" & MOA_version
End Sub

Sub MOA_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatString)
GetDBEntry Username, userAccess, userFlags
If InStr(userFlags, "Q") > 0 Then
Call MOA_autoop(Username)
End If
End Sub

Sub MOA_Event_UserTalk(Username, Flags, Message, Ping)
    'Command takes no arguments
    If LCase(Message) = BotVars.Trigger & "moainfo" Then
  AddQ "MOA Version: 0.1 Beta - Created by 7thAce"
  AddQ "The latest version is: 1.21 Beta"
  AddChat vbYellow, "?cb[MOA]Current Functions loaded:"
  AddChat vbGreen, "?ciAll 1.21 Functions loaded."
    End If

    'Command takes no arguments
    If lcase(Message) = BotVars.Trigger & "iam" Then
        GetDBEntry Username, myAccess, myFlags
        If myAccess >= iam_access Then
            Call MOA_iam(Username, ping)
        End If
    End If

    'Command takes arguments
    If Left(LCase(Message),11 + Len(BotVars.Trigger)) = BotVars.Trigger & "defaultadd " Then
        GetDBEntry Username, myAccess, myFlags
        If myAccess >= defaultadd_access Then
            Args = Split(Message)  'array that holds additional arguments
            User = Args(1)
            Call MOA_defaultadd(User)
        End If
    End If

    'Command takes arguments
    If Left(LCase(Message),8 + Len(BotVars.Trigger)) = BotVars.Trigger & "autoban " Then
        GetDBEntry Username, myAccess, myFlags
        If myAccess >= autoop_access Then
            Args = Split(Message)  'array that holds additional arguments
            User = Args(1)
            Call MOA_autoban(User)
        End If
    End If
End Sub

Sub MOA_Event_PressedEnter(Text)
y = 0
    'Command takes arguments
    If Left(LCase(Text),9) = "/autoban " Then
        Args = Split(Text) 'array that holds additional arguments
        User = Args(1)
        VetoThisMessage()
        Call MOA_autoban(User)
    End If
    

      'Command takes arguments
    If Left(LCase(Text),12) = "/defaultadd " Then
        Args = Split(Text) 'array that holds additional arguments
        User = Args(1)
        VetoThisMessage()
        Call MOA_defaultadd(User)
    End If

arrA = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "b", "i", "u")

For x = 0 To UBound(arrA)
    If (InStr(Text, "%" & arrA(x)) > 0) Then
        Text = Replace(Text, "%" & arrA(x), "?c" & arrA(x))
        y = 1
    End If
Next

If (y = 1) Then VetoThisMessage
If y = 1 Then AddQ Text
End Sub

Sub MOA_autoban(User)
    Command Botvars.Username, "/pban " & User, True
    Command Botvars.Username, "/ipban " & User, True
    Command Botvars.Username, "/set " & User & " 0 BZ", True
    AddQ "/w " & User & " You have been banned by " & Botvars.Username & "."
End Sub

Sub MOA_iam(Username, ping)
GetDBEntry Username, Access, Flags
  If Flags = vbnullstring Then Flags = "None"
  If instr(Username, "@") Then
  args = Split(Username, "@")
  User = args(0)
  End If
AddQ "You are " & User & " with " & Access & ", flags " & Flags & " and a ping of " & ping & "ms."
End Sub

Sub MOA_defaultadd(User)
If MOA_DefaultAccess = vbnullstring Then
AddChat vbRed, "Please specify access and/or flags at the top of the plugin."
Exit Sub
End If
If MOA_defaultFlags = vbnullstring Then
  Command Botvars.Username, "/set " & User & " " & MOA_defaultAccess, True
  Else
  Command Botvars.Username, "/set " & User & " " & MOA_defaultAccess & " " & MOA_DefaultFlags, True
End If
End Sub

Sub MOA_autoop(Username)
AddQ "Attempting to give " & Username & " ops."
AddQ "/designate " & Username
AddQ "/rejoin"
End Sub
Please post if you want something added/changed or have any questions.  Please rate.  This is my first big script (and it's not that big :/)

[img]http://icanhascheezburger.wordpress.com/files/2008/03/funny-pictures-cpr-cat-idiot-jumping.jpg" border="0" class="linked-image" /]Yay! [3