Whisper script conversion please :)

[AMediaMan]

hi everyone. i was just wondering if someone could convert this for me.

--Whisper 1.01
--by Mutor
--Request by Snoris
--
--Sends a "For your eyes only message" to another user in main.
--Added option for right click command
--
--User Settings-------------------------------------------------------------------------------------
Comm = "+whisper"	-- Script Command
Bot = frmHub:GetHubBotName()	--Bot name pulled from hub
Confirmation = "1"	-- Show whisper confirmation [show to sender only] "1"=yes "0"=no
SendComm = "1"		-- Send user command [right click] "1"=yes "0"=no
--End User Settings----------------------------------------------------------------------------------
--
--$UserCommand 1 X  Where -> 1=Hub Menu 2=User Menu 3=Hub/User Menu 
--
function NewUserConnected(user)
	if SendComm == "1" then
		user:SendData("$UserCommand 1 2 Whisper To User $<%[mynick]> "..Comm.." %[nick] %[line:Whisper-Message]||")
		user:SendData(" *** Notice :: Right click 'Whisper' command enabled ***")
	end
end

OpConnected = NewUserConnected

function DataArrival(user, data)
	s,e,cmd,who,msg = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s+(.+)")
	if (cmd == Comm) then --and user.bOperator then -- Use this for Ops use only
	local nick = GetItemByName(who)
		if not nick then
			SendToNick(user.sName,Bot.." The user -> "..who.." is not online. Check your spelling.") 
			return 1 
		end
			nick:SendData(Bot," "..user.sName.." whispered : " ..msg)
				if Confirmation == "1" then
					SendToNick(user.sName,"Whisper sent...")
				end
	return 1
	end
end

any help would be great :)  thnx,
                           
                                                 AMediaMan

[blackwings]

this should work =>

--Whisper 1.01
--by Mutor
--Request by Snoris
--
--Sends a "For your eyes only message" to another user in main.
--Added option for right click command
--
--User Settings-------------------------------------------------------------------------------------
Comm = "+whisper"	-- Script Command
Bot = frmHub:GetHubBotName()	--Bot name pulled from hub
Confirmation = "1"	-- Show whisper confirmation [show to sender only] "1"=yes "0"=no
SendComm = "1"		-- Send user command [right click] "1"=yes "0"=no
--End User Settings----------------------------------------------------------------------------------
--
--$UserCommand 1 X  Where -> 1=Hub Menu 2=User Menu 3=Hub/User Menu 
--
function NewUserConnected(user)
	if SendComm == "1" then
		user:SendData("$UserCommand 1 2 Whisper To User $<%[mynick]> "..Comm.." %[nick] %[line:Whisper-Message]||")
		user:SendData(" *** Notice :: Right click 'Whisper' command enabled ***")
	end
end

OpConnected = NewUserConnected

function ChatArrival(user,data)
	s,e,cmd,who,msg = string.find(data, "%b<>%s+(%S+)%s+(%S+)%s+(.+)")
	if (cmd == Comm) then --and user.bOperator then -- Use this for Ops use only
	local nick = GetItemByName(who)
		if not nick then
			SendToNick(user.sName,Bot.." The user -> "..who.." is not online. Check your spelling.") 
			return 1 
		end
			nick:SendData(Bot," "..user.sName.." whispered : " ..msg)
				if Confirmation == "1" then
					SendToNick(user.sName,"Whisper sent...")
				end
	return 1
	end
end

[Herodes]

You may wanna look in here ( InterCom ) for this kind of script ...

[AMediaMan]

very nice blackwings i ty much :), been tested and seems to work just fine thnx again.


AMediaMan.



PS. Herodes i am testing the one you posted here as well ty :)