' MirageBot VBScript
'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
' WHISPER FORWARD SCRIPT
' By: EKLIPz
' Updated by: Chriso for 9.4+
'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

'// Return Script Information
Sub Script(Name, Major, Minor, Build, Author, Commands, Description)
	Name = "Whisper Forwarding"
	Major = 1
	Minor = 0
	Build = 0
	Author = "Chriso"
	Commands = "forwardto"
	Description = "This script allows you to forward whispers from your bot to another user."
End Sub

Sub Event_Load()
	CreateCommand "forwardto", "WhisperForward", "Command_ForwardTo", "", "", "Forward whispers to specific user", 0, True
End Sub

Sub Command_ForwardTo(CS)
	If Len(CS.Message) Then
		WriteSetting "WhisperForward", "ForwardUser", CS.Message
		CS.Reply "All whispers to this bot will be forwarded to: " & CS.Message
	Else
		WriteSetting "WhisperForward", "ForwardUser", ""
		CS.Reply "No longer forwarding whispers."
	End If
End Sub
		
Sub Event_Whisper(CE)
	Account = GetBot.GetAccount(CE.Username)
	If Left(Account, 1) = "*" Then Account = Mid(Account, 2)
	forwardUser = ReadSetting("WhisperForward", "ForwardUser")
	If forwardUser = "" Then Exit Sub
	forwardUser = GetBot.GetAccount(forwardUser)
	Send "/m " & forwardUser & " " & Account & ": " & CE.Message
End Sub