HideUser script
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

HideUser script

Started by zvamp, 06 December, 2006, 13:33:13

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

zvamp

06 December, 2006, 13:33:13 Last Edit: 06 December, 2006, 13:54:10 by Herodes
hmm can someone convert this to lua 5.1 ?

--//-- Hider by C??o?y??--//--
-- added hide user on reconnect -- By Dessamator
--- touched by Herodes [18/09/2006]
-- - added the autocleaner on user disconnections
-- - added the listhide for showing a list with the ghosts

Bot = frmHub:GetHubBotName()
kMenu = "?~UserHider~?"

tGhosts={}

CanDo = {
[0] = 1,	-- Master
[1] = 0,	-- Operator
[4] = 0,	-- Moderator
[5] = 0,	-- Netfounder
}

OpConnected = function(user)
	if CanDo[user.iProfile] == 1 and  user.bUserCommand then
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Hide from userlist$<%[mynick]> !hide|")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Return to userlist$<%[mynick]> !unhide|")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Show ghosts$<%[mynick]> !listhide|")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Hide this user from userlist$<%[mynick]> !hide %[nick]|")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Return user to userlist$<%[mynick]> !unhide %[line:Nick]|")
	end
end

function Main()
	SetTimer(1000)
	StartTimer()
end

function OnTimer()  ---- WHy!?!!?
	for i,v in tGhost do
		if GetItemByName(i) then
			SendToAll("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
		end
	end
end


ChatArrival = function(user, data)
	data=string.sub(data,1,-2)
	local s, e, cmd, victim = string.find( data, "%b<>%s+[%!](%S+)%s*(%S*)")

	local tCmd= {
		hide = function( user, victim )
			if not CanDo[user.iProfile] then user:SendData(Bot, "you cant use this command"); return 1; end
			if victim then
				victim = GetItemByName(victim)
				if not victim then
					user:SendData( '*** '..victim..' was not found,.. try again.' );
					return 1;
				end
				tGhosts[user.sName] = 1
				SendToAll( '$Quit '..victim.sName )
				user:SendData( '*** You have put '..victim.sName..' into Ghost Mode.' )
				victim:SendData( '*** '..user.sName..' has put you into Ghost Mode.' )
				return 1;
			end
			tGhosts[user.sName] =  1
			user:SendData( '*** You are now in Ghost Mode.' )
			SendToAll( '$Quit '..user.sName )
			return 1;
		end,
		unhide = function( user, victim )
			if not CanDo[user.iProfile] then user:SendData(Bot, "you cant use this command"); return 1; end
			if not victim then
				if tGhosts[user.sName] then
					tGhosts[user.sName] = nil
					SendToAll( user.sMyInfoString )
					if user.bOperator then SendToAll( '$OpList '..user.sName) end
					user:SendData( '*** You are now back from Ghost Mode.' )
					return 1;
				end
			end
			victim = GetItemByName(victim)
			if tGhosts[victim.sName] then
				tGhosts[victim.sName] = nil
				SendToAll( victim.sMyInfoString )
				if victim.bOperator then SendToAll( '$OpList '..victim.sName) end
				victim:SendData( '*** '..user.sName..' has gotten you back from Ghost Mode.' )
				user:SendData( '*** You have taken '..victim.sName..' back from Ghost Mode.' )
				return 1;
			end
		end,
		listhide = function( user )
			local m = '*** List of hidden users\r\n'
			for i,v in pairs(tGhosts) do
				m = m..'\t'..i..'\r\n'
			end
			user:SendData( m )
		end,
	}
	if tCmd[cmd] then
		return tCmd[cmd](user, victim)
	end
end

function UserDisconnected( user )
	if tGhosts[user.sName] then 
		tGhosts[user.sName] = nil
	end
end

OpDisconnected = UserDisconnected;

Herodes

#1
06 December, 2006, 13:53:56
Should work but I haven't tested it at all, sorry no time for that.

--//-- Hider by C??o?y??--//--
-- added hide user on reconnect -- By Dessamator
--- touched by Herodes [18/09/2006]
-- - added the autocleaner on user disconnections
-- - added the listhide for showing a list with the ghosts

Bot = frmHub:GetHubBotName()
kMenu = "?~UserHider~?"

tGhosts={}

CanDo = {
[0] = 1,	-- Master
[1] = 0,	-- Operator
[4] = 0,	-- Moderator
[5] = 0,	-- Netfounder
}

OpConnected = function(user)
	if (CanDo[user.iProfile] == 1 and  user.bUserCommand) then
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Hide from userlist$<%[mynick]> !hide|")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Return to userlist$<%[mynick]> !unhide|")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Show ghosts$<%[mynick]> !listhide|")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Hide this user from userlist$<%[mynick]> !hide %[nick]|")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Return user to userlist$<%[mynick]> !unhide %[line:Nick]|")
	end
end

function Main()
	SetTimer(1000);	StartTimer();
end

function OnTimer()  ---- WHy!?!!?
	for i,v in pairs(tGhost) do
		if GetItemByName(i) then
			SendToAll("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
		end
	end
end


ChatArrival = function(user, data)
	data=string.sub(data,1,-2)
	local cmd, victim = string.match( data, "%b<>%s+[%!](%S+)%s*(%S*)")

	local tCmd= {
		hide = function( user, victim )
			if not CanDo[user.iProfile] then user:SendData(Bot, "you cant use this command"); return 1; end
			if victim then
				victim = GetItemByName(victim)
				if not victim then
					user:SendData( '*** '..victim..' was not found,.. try again.' );
					return 1;
				end
				tGhosts[user.sName] = 1
				SendToAll( '$Quit '..victim.sName )
				user:SendData( '*** You have put '..victim.sName..' into Ghost Mode.' )
				victim:SendData( '*** '..user.sName..' has put you into Ghost Mode.' )
				return 1;
			end
			tGhosts[user.sName] =  1
			user:SendData( '*** You are now in Ghost Mode.' )
			SendToAll( '$Quit '..user.sName )
			return 1;
		end,
		unhide = function( user, victim )
			if not CanDo[user.iProfile] then user:SendData(Bot, "you cant use this command"); return 1; end
			if not victim then
				if tGhosts[user.sName] then
					tGhosts[user.sName] = nil
					SendToAll( user.sMyInfoString )
					if user.bOperator then SendToAll( '$OpList '..user.sName) end
					user:SendData( '*** You are now back from Ghost Mode.' )
					return 1;
				end
			end
			victim = GetItemByName(victim)
			if tGhosts[victim.sName] then
				tGhosts[victim.sName] = nil
				SendToAll( victim.sMyInfoString )
				if victim.bOperator then SendToAll( '$OpList '..victim.sName) end
				victim:SendData( '*** '..user.sName..' has gotten you back from Ghost Mode.' )
				user:SendData( '*** You have taken '..victim.sName..' back from Ghost Mode.' )
				return 1;
			end
		end,
		listhide = function( user )
			local m = '*** List of hidden users\r\n'
			for i,v in pairs(tGhosts) do
				m = m..'\t'..i..'\r\n'
			end
			user:SendData( m )
		end,
	}
	if tCmd[cmd] then
		return tCmd[cmd](user, victim)
	end
end

function UserDisconnected( user )
	if tGhosts[user.sName] then 
		tGhosts[user.sName] = nil
	end
end

OpDisconnected = UserDisconnected;

zvamp

#2
06 December, 2006, 15:41:30
did not work: hide.users.lua:34: bad argument #1 to 'pairs' (table expected, got nil)

Snooze

#3
06 December, 2006, 16:12:50
Small typo..

Exchange this

function OnTimer()  ---- WHy!?!!?
	for i,v in pairs(tGhost) do
		if GetItemByName(i) then
			SendToAll("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
		end
	end
end


with this:
function OnTimer()  ---- WHy!?!!?
	for i,v in pairs(tGhosts) do
		if GetItemByName(i) then
			SendToAll("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
		end
	end
end


Thanks,
Snooze

zvamp

#4
06 December, 2006, 16:23:18
thx but still som probs:

!hide$MyINFO $ALL zvamp - description - <++ V:0.68,M:A,H:0/0/2,S:1>$ $1$n@t$285563543398$ <-- this spams in main and it?s not putting me in ghostmode..

hide.users.lua:54: attempt to concatenate local 'victim' (a nil value) <-- when i?m trying to hide a user

Snooze

#5
06 December, 2006, 16:54:12
Umm.. did a quick test and this works for me..

--//-- Hider by C??o?y??--//--
-- added hide user on reconnect -- By Dessamator
--- touched by Herodes [18/09/2006]
-- - added the autocleaner on user disconnections
-- - added the listhide for showing a list with the ghosts

Bot = frmHub:GetHubBotName()
kMenu = "?~UserHider~?"

tGhosts={}

CanDo = {
[0] = 1,	-- Master
[1] = 0,	-- Operator
[4] = 0,	-- Moderator
[5] = 0,	-- Netfounder
}

OpConnected = function(user)
	if (CanDo[user.iProfile] == 1 and  user.bUserCommand) then
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Hide from userlist$<%[mynick]> !hideme %[mynick]&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Return to userlist$<%[mynick]> !unhide %[mynick]&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Show ghosts$<%[mynick]> !listhide&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Hide this user from userlist$<%[mynick]> !hide %[nick]&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Return user to userlist$<%[mynick]> !unhide %[line:Nick]&#124;")
	end
end

function Main()
	SetTimer(1000);	StartTimer();
end

function OnTimer()  ---- WHy!?!!?
	for i,v in pairs(tGhosts) do
		if GetItemByName(i) then
			SendToAll("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
		end
	end
end


ChatArrival = function(user, data)
	data=string.sub(data,1,-2)
	local cmd, victim = string.match( data, "%b<>%s+[%!](%S+)%s+(%S+)")

	local tCmd= {
		hide = function( user, victim )
			if not CanDo[user.iProfile] then user:SendData(Bot, "you cant use this command"); return 1; end
			if victim then
				victim = GetItemByName(victim)
				if not victim then
					user:SendData( "*** "..victim.." was not found,.. try again." );
					return 1;
				end
				tGhosts[user.sName] = 1
				SendToAll( '$Quit '..victim.sName )
				user:SendData( '*** You have put '..victim.sName..' into Ghost Mode.' )
				victim:SendData( '*** '..user.sName..' has put you into Ghost Mode.' )
				return 1;
			end
		end,
		hideme = function(user)
			if not CanDo[user.iProfile] then user:SendData(Bot, "you cant use this command"); return 1; end
			tGhosts[user.sName] =  1
			user:SendData( '*** You are now in Ghost Mode.' )
			SendToAll( '$Quit '..user.sName )
			return 1;
		end,
		unhide = function( user, victim )
			if not CanDo[user.iProfile] then user:SendData(Bot, "you cant use this command"); return 1; end
			if not victim then
				if tGhosts[user.sName] then
					tGhosts[user.sName] = nil
					SendToAll( user.sMyInfoString )
					if user.bOperator then SendToAll( '$OpList '..user.sName) end
					user:SendData( '*** You are now back from Ghost Mode.' )
					return 1;
				end
			end
			victim = GetItemByName(victim)
			if tGhosts[victim.sName] then
				tGhosts[victim.sName] = nil
				SendToAll( victim.sMyInfoString )
				if victim.bOperator then SendToAll( '$OpList '..victim.sName) end
				victim:SendData( '*** '..user.sName..' has gotten you back from Ghost Mode.' )
				user:SendData( '*** You have taken '..victim.sName..' back from Ghost Mode.' )
				return 1;
			end
		end,
		listhide = function( user )
			local m = '*** List of hidden users\r\n'
			for i,v in pairs(tGhosts) do
				m = m..'\t'..i..'\r\n'
			end
			user:SendData( m )
		end,
	}
	if tCmd[cmd] then
		return tCmd[cmd](user, victim)
	end
end

function UserDisconnected( user )
	if tGhosts[user.sName] then 
		tGhosts[user.sName] = nil
	end
end

OpDisconnected = UserDisconnected;

zvamp

#6
06 December, 2006, 18:21:48 Last Edit: 06 December, 2006, 18:33:53 by zvamp
thank you!!

Only thing that does not work is when I hide a user I can?t unhide the user back again =(
It just spams mainchat with:  !unhide test

and !listhide does not work..

ollobollo

#7
07 December, 2006, 19:19:50
yes, i have the same problem

Snooze

#8
07 December, 2006, 22:16:51
Ok ok ok ...

--//-- Hider by C??o?y??--//--
-- added hide user on reconnect -- By Dessamator
--- touched by Herodes [18/09/2006]
-- - added the autocleaner on user disconnections
-- - added the listhide for showing a list with the ghosts

Bot = frmHub:GetHubBotName()
kMenu = "?~UserHider~?"

tGhosts={}

CanDo = {
[0] = 1,	-- Master
[1] = 0,	-- Operator
[4] = 0,	-- Moderator
[5] = 0,	-- Netfounder
}

OpConnected = function(user)
	if (CanDo[user.iProfile] == 1 and  user.bUserCommand) then
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Hide from userlist$<%[mynick]> !hide&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Return to userlist$<%[mynick]> !unhide&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Show ghosts$<%[mynick]> !listhide&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Hide this user from userlist$<%[mynick]> !hide %[nick]&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Return user to userlist$<%[mynick]> !unhide %[line:Nick]&#124;")
	end
end

function Main()
	SetTimer(1000);	StartTimer();
end

function OnTimer()  ---- WHy!?!!?
	for i,v in pairs(tGhosts) do
		if GetItemByName(i) then
			SendToAll("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
		end
	end
end
doVictim = function(data)
	local cmd, victim = string.match( data, "%b<>%s+[%!](%S+)%s+(%S+)")
	return victim
end




ChatArrival = function(user, data)
	data=string.sub(data,1,-2)
	local cmd = string.match( data, "%b<>%s+[%!](%S+)")

	local tCmd= {
		hide = function( user, data)
			if not CanDo[user.iProfile] then user:SendData(Bot, "you cant use this command"); return 1; end
			doVictim(data)
			if victim then
				victim = GetItemByName(victim)
				if not victim then
					user:SendData( "*** "..victim.." was not found,.. try again." );
					return 1;
				end
				tGhosts[user.sName] = 1
				SendToAll( '$Quit '..victim.sName )
				user:SendData( '*** You have put '..victim.sName..' into Ghost Mode.' )
				victim:SendData( '*** '..user.sName..' has put you into Ghost Mode.' )
				return 1;
			else
				tGhosts[user.sName] =  1
				user:SendData( '*** You are now in Ghost Mode.' )
				SendToAll( '$Quit '..user.sName )
				return 1;
			end
		end,

		unhide = function( user, data )
			if not CanDo[user.iProfile] then user:SendData(Bot, "you cant use this command"); return 1; end
			doVictim(data)
			if not victim then
				if tGhosts[user.sName] then
					tGhosts[user.sName] = nil
					SendToAll( user.sMyInfoString )
					if user.bOperator then SendToAll( '$OpList '..user.sName) end
					user:SendData( '*** You are now back from Ghost Mode.' )
					return 1;
				end
			end
			victim = GetItemByName(victim)
			if tGhosts[victim.sName] then
				tGhosts[victim.sName] = nil
				SendToAll( victim.sMyInfoString )
				if victim.bOperator then SendToAll( '$OpList '..victim.sName) end
				victim:SendData( '*** '..user.sName..' has gotten you back from Ghost Mode.' )
				user:SendData( '*** You have taken '..victim.sName..' back from Ghost Mode.' )
				return 1;
			end
		end,
		listhide = function(user)
			local m = "*** List of hidden users\r\n"
			for sUser in pairs(tGhosts) do
				m = m..'\t'..sUser..'\r\n'
			end
			user:SendData( m )
			return 1
		end,
	}
	if tCmd[cmd] then
		return tCmd[cmd](user, data)
	end
end

function UserDisconnected( user )
	if tGhosts[user.sName] then 
		tGhosts[user.sName] = nil
	end
end

OpDisconnected = UserDisconnected; 


Have fun hiding <g>

/Snooze

zvamp

#9
07 December, 2006, 22:41:28
nice work!! thanx!

The funktion to hide a user does not work, when im trying to hide a user the script spams main: *** You are now in Ghost Mode.

It seems that it?s hiding me when it should hide a certain user.. But this function is not something that we will use anyway so CHEEERS & thanx once again ;)

ollobollo

#10
17 December, 2006, 18:36:49
hi snooze,
is there a psooibility that you finish your little script here, there is at least one little thing to correct, like zvamp wrote before.
thank you

regards

ollo

Snooze

#11
17 December, 2006, 20:43:46
Ok..

--//-- Hider by C??o?y??--//--
-- added hide user on reconnect -- By Dessamator
--- touched by Herodes [18/09/2006]
-- - added the autocleaner on user disconnections
-- - added the listhide for showing a list with the ghosts
-- Rewritten by Snooze 8:39 PM 12/17/2006

Bot = frmHub:GetHubBotName()
kMenu = "?~UserHider~?"

tGhosts={}

CanDo = {
[0] = 1,	-- Master
[1] = 0,	-- Operator
[4] = 0,	-- Moderator
[5] = 0,	-- Netfounder
}

OpConnected = function(user)
	if (CanDo[user.iProfile] == 1 and  user.bUserCommand) then
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Hide from userlist$<%[mynick]> !hideme&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Return to userlist$<%[mynick]> !unhideme&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Show ghosts$<%[mynick]> !listhide&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Hide this user from userlist$<%[mynick]> !hide %[nick]&#124;")
		user:SendData("$UserCommand 1 3 "..kMenu.."\\Return user to userlist$<%[mynick]> !unhide %[line:Enter Nick]&#124;")
	end
end

function Main()
	SetTimer(1000);	StartTimer();
end

function OnTimer()  ---- WHy!?!!?
	for i,v in pairs(tGhosts) do
		if GetItemByName(i) then
			SendToAll("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
			GetItemByName(i):SendData("$Quit "..i)
		end
	end
end



ChatArrival = function(user, data)
	local _,_,cmd = string.find( data, "%b<>%s+!(%S+)(.*)|")

	local tCmd= {
		hide = function( user, data)
			doArg1(data)
			if not CanDo[user.iProfile] then user:SendData(Bot, "*** You are not allowed to use this command.") 
				return 1;
			elseif arg then
				local sUser = GetItemByName(arg)
				if not sUser then
					user:SendData( "*** "..sUser.." was not found,.. try again." );
					return 1;
				else
					tGhosts[arg] = 1
					SendToAll("$Quit "..sUser.sName )
					user:SendData( "*** You have put "..arg.." into Ghost Mode." )
					sUser:SendData( "*** "..user.sName.." has put you into Ghost Mode." )
					return 1;
				end
			else
				user:SendData("*** Error! - You need to enter a Nick to Ghost!")
				return 1
			end
		end,

		hideme = function(user,data)
			if not CanDo[user.iProfile] then 
				user:SendData(Bot, "*** You are not allowed to use this command.") 
				return 1;
			else
				tGhosts[user.sName] = 1
				user:SendData( "*** You are now in Ghost Mode." )
				SendToAll( "$Quit "..user.sName )
				return 1;
			end
		end,

		unhide = function( user, data )
			if not CanDo[user.iProfile] then user:SendData(Bot, "*** You are not allowed to use this command.") 
				return 1;
			end
			doArg1(data)
			if arg then
				if tGhosts[arg] then
					tGhosts[arg] = nil
					local sUser = GetItemByName(arg)
					SendToAll( sUser.sMyInfoString )
					if sUser.bOperator then SendToAll( '$OpList '..sUser.sName) end
					sUser:SendData( '*** '..user.sName..' has gotten you back from Ghost Mode.' )
					user:SendData( '*** You have taken '..sUser.sName..' back from Ghost Mode.' )
					return 1;
				else
					user:SendData("*** Error! - No user named "..arg.." in Ghost Mode!")
					return 1
				end
			else
				user:SendData("*** Error! - You need to enter a Nick to Unhide!")
				return 1
			end
		end,

		unhideme = function(user,data)
			if not CanDo[user.iProfile] then user:SendData(Bot, "you cant use this command"); return 1; end
			if tGhosts[user.sName] then
				tGhosts[user.sName] = nil
				SendToAll( user.sMyInfoString )
				if user.bOperator then SendToAll( "$OpList "..user.sName) end
				user:SendData( "*** You are now back from Ghost Mode." )
				return 1;
			else
				user:SendData("*** Error! - You're not in Ghost Mode.")
			end
		end,

		listhide = function(user)
			local m = "*** List of hidden users\r\n"
			for sUser in pairs(tGhosts) do
				m = m..'\t'..sUser..'\r\n'
			end
			user:SendData( "\r\n\t"..m )
			return 1
		end,
	}
	if tCmd[cmd] then
		return tCmd[cmd](user, data)
	end
end

function doArg1(data)
	s,e,cmd,arg = string.find(data, "%b<>%s+!(%S+)%s+(.+)|" ) 
	return arg
end

function UserDisconnected( user )
	if tGhosts[user.sName] then 
		tGhosts[user.sName] = nil
	end
end

OpDisconnected = UserDisconnected; 



Though one could argue that Herodes should have done that ;)

Greets,
Snooze

7P-Darkman

#12
18 December, 2006, 05:44:02
Hello Snoose...


When trying to apply to my Bot the command !hide <Bot>, the script stopped, and appeared this message of error:

[01:30] Sintaxe C:\Ptokax\scripts\Hider.lua:57: attempt to concatenate local 'sUser' (a nil value)

Into main chat... i see: [01:30:28] <7P-Darkman> !hide ?(?`?.?(-?Zagaieiro?-)?.???)?

Obs:  ?(?`?.?(-?Zagaieiro?-)?.???)? is my security bot

What I made of wrong?


Respectfully,


7P-Darkman
Owner of HUB Pantanal - Brasil

CrazyGuy

#13
18 December, 2006, 07:39:15
change

if not sUser then
	user:SendData( "*** "..sUser.." was not found,.. try again." );
	return 1;
else


with

if not sUser then
	user:SendData( "*** "..arg.." was not found,.. try again." );
	return 1;
else

7P-Darkman

#14
18 December, 2006, 14:07:57
Thanks, CrazyGuy... works fine now !   ;)

Respectfully,


7P-Darkman
Owner of HUB Pantanal - Brasil

ollobollo

#15
18 December, 2006, 17:02:32
thx a lot....it works now

7P-Darkman

#17
19 December, 2006, 03:09:56
Hello friends...

After to be invisible, when return, me does not appear the key, identifying me as Netfounder (Robocop profile).

What it could be this?

Respectfully,


7P-Darkman
Owner of HUB Pantanal - Brasil

bastya_elvtars

#18
19 December, 2006, 19:42:11
Nothing you can do about it, maybe resending the $OpList to all users it works, just eats all your b/w. This is the punismhment for the protocol rapture. :-P
Everything could have been anything else and it would have just as much meaning.

Naithif

#19
19 December, 2006, 22:17:09 Last Edit: 19 December, 2006, 22:19:18 by Naithif
Quote from: 7P-Darkman on 19 December, 2006, 03:09:56
...
After to be invisible, when return, me does not appear the key, identifying me as Netfounder (Robocop profile).
...
tGhosts[user.sName] = nil
					SendToAll( user.sMyInfoString )
					if user.bOperator then SendToAll( '$OpList '..user.sName) end
					user:SendData( '*** You are now back from Ghost Mode.' )
					return 1;


Those ' signs supposed to work like the " signs ??? ??? I didn't seem to notice that  :P
I would not be surprised if it has problems with sending $OpList in this case

7P-Darkman

#20
20 December, 2006, 01:33:40
Quote from: bastya_elvtars on 19 December, 2006, 19:42:11
Nothing you can do about it, maybe resending the $OpList to all users it works, just eats all your b/w. This is the punismhment for the protocol rapture. :-P

Hummm...  now I am understanding, Bastya

Quote from: Naithif on 19 December, 2006, 22:17:09
Those ' signs supposed to work like the " signs ??? ??? I didn't seem to notice that  :P
I would not be surprised if it has problems with sending $OpList in this case

Yes, Naithif... I was surprised by this notice  :(

In Annex, my translation for my language (Brazilian Portiguese)... Case some Owner is interested in using it.

Respectfully,


7P-Darkman
Owner of HUB Pantanal - Brasil

CrazyGuy

#21
20 December, 2006, 13:25:57
Quote from: bastya_elvtars on 19 December, 2006, 19:42:11
Nothing you can do about it, maybe resending the $OpList to all users it works, just eats all your b/w. This is the punismhment for the protocol rapture. :-P

As a new operator comes online, only $OpList <new op>|  is send. It can be easily resend here too:
But it seems the script already does this
if user.bOperator then SendToAll( "$OpList "..user.sName) end


even the order ( MyINFO before OpList ) is correct  :-\

bastya_elvtars

#22
20 December, 2006, 17:40:32
And not bOperator but bHasKey IMHO.
Everything could have been anything else and it would have just as much meaning.
Print
Go Up Pages1
User actions
SMF spam blocked by CleanTalk