Print Page - Whisper script conversion please :)

Title: Whisper script conversion please :)
Post by: AMediaMan on 13 March, 2005, 05:36:36

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

Title:
Post by: blackwings on 13 March, 2005, 06:43:43

this should work =>

Code Select

--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

Title: Hey,.. there is Intercom ...
Post by: Herodes on 13 March, 2005, 11:12:30

You may wanna look in here ( InterCom ) (http://board.univ-angers.fr/thread.php?threadid=2525&boardid=12&page=2#13) for this kind of script ...

Title:
Post by: AMediaMan on 13 March, 2005, 18:49:42

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 :)

PtokaX forum

Archive => Archived 5.0 boards => Help with scripts => Topic started by: AMediaMan on 13 March, 2005, 05:36:36