BAN and KICK commands

[turkiye]

I Need BAN and KICK commands.
Where can I find it?

[NightLitch]

Maybe look in the hubsoft first...

!ban & !kick

[pHaTTy]

here you go ;)

--Quick Kick n Ban script by Phatty
--v1.00


Bot = "Conquerer"

KickCMD = "!kick"
BanCMD = "!ban"

function Main()
frmHub:RegBot(Bot)
end

function DataArrival(user,data)
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		s,e,cmd,arg = strfind(data,"%b<>%s+(%S+)")

		if cmd == KickCMD then
			nick = GetItemByName(arg)
			if arg == nil then
				user:SendData(Bot,"Please select a user in the list")
				return 1
			else
				SendToAll(Bot,user.sName.." is kicking: "..nick)
				nick:Disconnect()
				return 1
			end
		elseif cmd == BanCMD then
			nick = GetItemByName(arg)
			if arg == nil then
				user:SendData(Bot,"Please select a user in the list")
				return 1
			else
				SendToAll(Bot,user.sName.." is banning: "..nick)
				nick:Ban()
				return 1
			end
		end
	end
end

l8rr,,

[pHaTTy]

almost forgot

--Quick Kick n Ban script by Phatty
--v1.00


Bot = "Conquerer"

KickCMD = "!kick"
BanCMD = "!ban"

function Main()
frmHub:RegBot(Bot)
end

function DataArrival(user,data)
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		s,e,cmd,arg = strfind(data,"%b<>%s+(%S+)")

		if cmd == KickCMD then
			nick = GetItemByName(arg)
			if arg == nil then
				user:SendData(Bot,"Please select a user in the list")
				return 1
			else
				SendToAll(Bot,user.sName.." is kicking: "..nick)
				nick:SendData(Bot,"You are being kicked")
				nick:Disconnect()
				return 1
			end
		elseif cmd == BanCMD then
			nick = GetItemByName(arg)
			if arg == nil then
				user:SendData(Bot,"Please select a user in the list")
				return 1
			else
				SendToAll(Bot,user.sName.." is banning: "..nick)
				nick:SendData(Bot,"You are being banned")
				nick:Ban()
				return 1
			end
		end
	end
end

bye,,

[[ES]latinmusic]

Does anyone can test if this script are working?
I'm currently experimenting a lot of troubles with script that have this line: nick = GetItemByName(arg) or similar in it. This script are not wotking either :(
If someone wanna test it please use the following conditions:
odc++ 5.21 and ptokax last beta available.

[tezlo]

cant ever work.. the regexp is all wrong
here you go

function DataArrival(user, data)
	if not user.bOperator then return end
	if strsub(data, 1, 1) ~= "<" then return end
	local s, e, cmd, args = strfind(data, "^%b<> %!(%a+)%s*(.*)%|$")
	if not s then return end

	cmd = strlower(cmd)
	if cmd == "kick" then
		local s, e, who, why = strfind(args, "^(%S+)%s*(.*)$")
		if not s then user:SendData(">> syntax: !kick  [reason]") return 1 end
		local tmp = GetItemByName(who)
		if not tmp then user:SendData(">> "..who.." is not online") return 1 end
		if why == "" then why = "for no reason"	else why = "because "..why end
		SendToAll(" "..user.sName.." is kicking "..tmp.sName.." "..why)
		tmp:SendData(" You are being kicked by "..user.sName.." "..why)
		tmp:Disconnect()
	elseif cmd == "ban" then
		local s, e, who, why = strfind(args, "^(%S+)%s*(.*)$")
		if not s then user:SendData(">> syntax: !ban  [reason]") return 1 end
		local tmp = GetItemByName(who)
		if not tmp then user:SendData(">> "..who.." is not online") return 1 end
		if why == "" then why = "for no reason"	else why = "because "..why end
		SendToAll(" "..user.sName.." is kicking "..tmp.sName.." "..why)
		tmp:SendData(" You are being kicked by "..user.sName.." "..why)
		tmp:Disconnect()
	else return end
	return 1
end

[[ES]latinmusic]

You code too fast tezlo 8o
Can you also take a look into the following thread:
http://board.univ-angers.fr/thread.php?threadid=202&boardid=11&styleid=1&sid=89c7ad49ec49418a75d7ebf9820bee9c
Mainly in last 5 or 6 last post, there is some code inside the script who does not want to work at all, beetween all of you i think it can be fixed.