TestEvents.txt

Option Explicit

Script("Name") = "TestEvents"
Script("Major") = 1
Script("Minor") = 0
Script("Revision") = 0
Script("Author") = "Ribose"

Sub Event_Load()
    AddChat vbWhite, "    EVENT_LOAD"
End Sub

Sub Event_FirstRun()
    AddChat vbWhite, "    EVENT_FIRSTRUN"
End Sub

Sub Event_ServerInfo(Message)
    AddChat vbWhite, "    EVENT_SERVERINFO ", vbCyan, "[Message: " & Message & "]"
End Sub

Sub Event_ServerError(Message)
    AddChat vbWhite, "    EVENT_SERVERERROR ", vbCyan, "[Message: " & Message & "]"
End Sub

Sub Event_UserTalk(Username, Flags, Message, Ping)
    AddChat vbWhite, "    EVENT_USERTALK ", vbYellow, "[Username: " & Username & "] ", 33023, "[Flags: " & Flags & "] ", vbCyan, "[Message: " & Message & "] ", vbGreen, "[Ping: " & Ping & "]"
End Sub

Sub Event_UserEmote(Username, Flags, Message)
    AddChat vbWhite, "    EVENT_USEREMOTE ", vbYellow, "[Username: " & Username & "] ", 33023, "[Flags: " & Flags & "] ", vbCyan, "[Message: " & Message & "]"
End Sub

Sub Event_WhisperFromUser(Username, Flags, Message, Ping)
    AddChat vbWhite, "    EVENT_WHISPERFROMUSER ", vbYellow, "[Username: " & Username & "] ", 33023, "[Flags: " & Flags & "] ", vbCyan, "[Message: " & Message & "] ", vbGreen, "[Ping: " & Ping & "]"
End Sub

Sub Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring, Banned)
    AddChat vbWhite, "    EVENT_USERJOINS ", vbYellow, "[Username: " & Username & "] ", 33023, "[Flags: " & Flags & "] ", vbCyan, "[Message: " & Message & "] ", vbGreen, "[Ping: " & Ping & "] ", 16744448, "[Product: " & Product & "] ", vbMagenta, "[Level: " & Level & "] ", vbBlue, "[OriginalStatstring: " & OriginalStatstring & "] ", vbRed, "[Banned: " & Banned & "]"
End Sub

Sub Event_UserLeaves(Username, Flags)
    AddChat vbWhite, "    EVENT_USERLEAVES ", vbYellow, "[Username: " & Username & "] ", 33023, "[Flags: " & Flags & "]"
End Sub

Sub Event_FlagUpdate(Username, NewFlags, Ping)
    AddChat vbWhite, "    EVENT_FLAGUPDATE ", vbYellow, "[Username: " & Username & "] ", 33023, "[NewFlags: " & NewFlags & "] ", vbGreen, "[Ping: " & Ping & "]"
End Sub

Sub Event_LoggedOn(Username, Product)
    AddChat vbWhite, "    EVENT_LOGGEDON ", vbYellow, "[Username: " & Username & "] ", 16744448, "[Product: " & Product & "]"
End Sub

Sub Event_UserInChannel(Username, Flags, Message, Ping, Product, StatUpdate)
    AddChat vbWhite, "    EVENT_USERJOINS ", vbYellow, "[Username: " & Username & "] ", 33023, "[Flags: " & Flags & "] ", vbCyan, "[Message: " & Message & "] ", vbGreen, "[Ping: " & Ping & "] ", 16744448, "[Product: " & Product & "] ", vbRed, "[StatUpdate: " & StatUpdate & "]"
End Sub

Sub Event_ChannelJoin(ChannelName, Flags)
    AddChat vbWhite, "    EVENT_CHANNELJOIN ", vbYellow, "[ChannelName: " & ChannelName & "] ", 33023, "[Flags: " & Flags & "]"
End Sub

Sub Event_PressedEnter(Text)
    AddChat vbWhite, "    EVENT_PRESSEDENTER ", vbCyan, "[Text: " & Text & "]"
End Sub

Sub Event_KeyReturn(KeyName, KeyValue)
    AddChat vbWhite, "    EVENT_KEYRETURN ", vbYellow, "[KeyName: " & KeyName & "] ", vbCyan, "[KeyValue: " & KeyValue & "]"
End Sub

Sub Event_MessageSent(MessageID, Message, Tag)
    AddChat vbWhite, "    EVENT_MESSAGESENT ", vbMagenta, "[MessageID: " & MessageID & "] ", vbCyan, "[Message: " & Message & "] ", vbBlue, "[Tag: " & Tag & "]"
End Sub

Sub Event_MessageQueued(MessageID, Message, Tag)
    AddChat vbWhite, "    EVENT_MESSAGEQUEUED ", vbMagenta, "[MessageID: " & MessageID & "] ", vbCyan, "[Message: " & Message & "] ", vbBlue, "[Tag: " & Tag & "]"
End Sub

Sub Event_ClanInfo(Name, Rank, Online)
    AddChat vbWhite, "    EVENT_CLANINFO ", vbYellow, "[Name: " & Name & "] ", 33023, "[Rank: " & Rank & "] ", vbGreen, "[Online: " & Online & "]"
End Sub

Sub Event_ClanMemberList(Username, Rank, Online)
    AddChat vbWhite, "    EVENT_CLANMEMBERLIST ", vbYellow, "[Username: " & Username & "] ", 33023, "[Rank: " & Rank & "] ", vbGreen, "[Online: " & Online & "]"
End Sub

Sub Event_ClanMemberUpdate(Username, Rank, Online)
    AddChat vbWhite, "    EVENT_CLANMEMBERUPDATE ", vbYellow, "[Username: " & Username & "] ", 33023, "[Rank: " & Rank & "] ", vbGreen, "[Online: " & Online & "]"
End Sub

Sub Event_ClanMOTD(Message)
    AddChat vbWhite, "    EVENT_CLANMOTD ", vbCyan, "[Message: " & Message & "]"
End Sub

Sub Event_ClanMemberLeaves(Username)
    AddChat vbWhite, "    EVENT_CLANMEMBERLEAVES ", vbYellow, "[Username: " & Username & "]"
End Sub

Sub Event_BotRemovedFromClan()
    AddChat vbWhite, "    EVENT_BOTREMOVEDFROMCLAN"
End Sub

Sub Event_BotClanRankChanged(NewRank)
    AddChat vbWhite, "    EVENT_BOTCLANRANKCHANGED ", 33023, "[Rank: " & Rank & "]"
End Sub

Sub Event_BotJoinedClan(ClanTag)
    AddChat vbWhite, "    EVENT_BOTJOINEDCLAN ", vbCyan, "[ClanTag: " & ClanTag & "]"
End Sub

Sub Event_BotClanInfo(ClanTag, Rank)
    AddChat vbWhite, "    EVENT_BOTCLANINFO ", vbCyan, "[ClanTag: " & ClanTag & "] ", 33023, "[Rank: " & Rank & "]"
End Sub

Sub Event_Close()
    AddChat vbWhite, "    EVENT_CLOSE"
End Sub

Sub Event_PacketSent(Protocol, ID, Length, Data)
    AddChat vbWhite, "    EVENT_PACKETSENT ", vbYellow, "[Protocol: " & Protocol & "] ", vbMagenta, "[ID: " & ID & "] ", vbGreen, "[Length: " & Length & "]"
End Sub

Sub Event_PacketReceived(Protocol, ID, Length, Data)
    AddChat vbWhite, "    EVENT_PACKETRECEIVED ", vbYellow, "[Protocol: " & Protocol & "] ", vbMagenta, "[ID: " & ID & "] ", vbGreen, "[Length: " & Length & "]"
End Sub

Sub Event_Shutdown()
    AddChat vbWhite, "    EVENT_SHUTDOWN"
End Sub

Sub Event_LoggedOff()
    AddChat vbWhite, "    EVENT_LOGGEDOFF"
End Sub