'////////////////////////////////////////////////////////////////////////
'// EXAMPLE PACKET SCRIPT FOR 9.4
'// WRITTEN BY: Chriso
'// This script will register the packet '0x50' so that it can be monitored
'// by this script or overridden with other values.
'////////////////////////////////////////////////////////////////////////

'// Return Script Information
Sub Script(Name, Major, Minor, Build, Author, Commands, Description)
	Name = "Example Packet Script"
	Major = 1
	Minor = 0
	Build = 0
	Author = "Chriso"
	Description = "Example of how to add a packet using a script"
End Sub

'// Called when the script is loaded for a particular bot
Sub Event_Load()
    CreatePacket &H50, "ExamplePacket", "Packet0x50"
End Sub

'// Called when the script is unloaded for a particular bot
Sub Event_Unload()

End Sub

'// Called when Packet 0x50 is received
Sub Packet0x50(PacketID, PacketData)
    AddChat vbWhite, Hex(PacketID) & " - " & Len(PacketData)
End Sub

'// Result of SSC.RequestUserProfile
'// RequestID is the return value from SSC.RequestUserProfile
Sub Event_UserProfile(RequestID, Username, Age, Sex, Location, Description)

End Sub

'// Result of SSC.RequestUserProfileEx
'// RequestID is the return value from SSC.RequestUserProfileEx
'// NumKeys is 1-based and is the count of Keys() array
Sub Event_UserProfileEx(RequestID, Username, NumKeys, Keys())

End Sub

'// Result of SSC.RequestGameList
'// RequestID is the return value from SSC.RequestGameList
'// Count will be -1 if unable to get any games
Sub Event_GameList(RequestID, Count, GameType, GameName, Statstring, IPAddress, Port)

End Sub

'// Called before items are added to the queue
Sub Event_SendMessage(Text)

End Sub

'// Called at login
Sub Event_Logon()

End Sub

'// Called on bot disconnect
Sub Event_Disconnect()

End Sub

'// Called when a flood is detected
'// Value may be true (being flooded) or false (no longer being flooded)
Sub Event_FloodDetect(Value)

End Sub

'// Called when you join a channel
Sub Event_Channel(CE)

End Sub

'// Called when joining a channel fails
Sub Event_ChannelError(Text)

End Sub

'// Called when the server broadcasts an error message (RED MESSAGE)
Sub Event_ServerError(Text)

End Sub

'// Called when the server broadcasts information (YELLOW MESSAGE)
Sub Event_ServerInfo(CE)

End Sub

'// Called when the an administrator broadcasts a message (CYAN MESSAGE)
Sub Event_ServerBroadcast(CE)

End Sub

'// Called when a user speaks
Sub Event_UserTalk(CE)

End Sub

'// Called when a user emotes
Sub Event_UserEmote(CE)

End Sub

'// Called when a user joins the channel
Sub Event_UserJoin(CE)

End Sub

'// Called when a user is present in the channel
Sub Event_UserPresent(CE)

End Sub

'// Called when a user leaves the channel 
Sub Event_UserLeave(CE)

End Sub

'// Called when a users flags change
Sub Event_UserUpdate(CE)

End Sub

'// Called when a user whispers you
Sub Event_Whisper(CE)

End Sub

'// Called when you whisper a user
Sub Event_WhisperTo(CE)

End Sub

