'////////////////////////////////////////////////////////////////////////
'// EXAMPLE COMMAND SCRIPT FOR 9.4
'// WRITTEN BY: Chriso
'// This script will register the command 'test' so that it can be
'// used by both users and through the console.
'////////////////////////////////////////////////////////////////////////

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

'// Called when the script is loaded for a particular bot
Sub Event_Load()

End Sub

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

End Sub

'// Called when key combination is pressed within MirageBot
'// For Key values see: http://msdn.microsoft.com/en-us/library/aa243025(VS.60).aspx
Sub Event_KeyUp(Key, Alt, Ctrl, Shift)
    If CBool(Alt) And CBool(Ctrl) Then
        If Key = 79 Then
            MsgBox "Ctrl+Alt+O Pressed!"
        End If
    End If
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

