VIP commands

[DarkElf]

Hi, i need a simple script wich give some commands to VIP users..

the commands are: mass message, kick (5min ban), disconnect, and if possible the vipchat

thanks

[nErBoS]

Hi,

Hope it helps...

--Requested by DarkElf
--Made by nErBoS

Bot = "VIP-Script"

function Main()
frmHub:RegBot(Bot)
end

function NewUserConnected(user, data)

end

function DataArrival(user, data)

if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then
	data=strsub(data,1,strlen(data)-1)
	s,e,cmd = strfind(data,"%b<>%s+(%S+)")
		if (cmd=="!mm") then 
			if (user.iProfile == 2 or user.bOperator) then
			local s,e,msg = strfind(data,"%b<>%s+%S+%s+(.*)")
			if (msg == nil or msg == "") then
				user:SendPM(Bot, "Syntax error, !mm , must write a message.")
			else
				SendPmToAll(Bot, msg)
			end
			else
			user:SendPM(Bot, "You don't have permission to use this command.")
			end
			return 1
		elseif(cmd=="!vipkick") then
			if (user.iProfile == 2 or user.bOperator) then
			local s,e,kicked,reason = strfind(data,"%b<>%s+%S+%s+(%S+)%s+(.*)")
			if (kicked == nil) then
				user:SendPM(Bot, "Syntax error, !vipkick  , must have a nick to kicked.")
			else
				if(GetItemByName(kicked) == nil) then
					user:SendPM(Bot, "There isn't any user with the nick "..kicked.." online.")
				else
				local usr = GetItemByName(kicked)
				if (reason == nil) then
					user:SendPM(Bot, "Syntax error, !vipkick  , must have a reason.")
				else
					if(usr.bOperator) then
						user:SendPM(Bot, "You can't kick a Operator.")
					else
						SendToAll(Bot, user.sName" has kicked "..usr.sName.." because: "..reason)
						usr:SendPm(Bot, "You have been kicked because: "..reason)
						usr:TimeBan(5)
					end
				end
				end
			end
			else
			user:SendPM(Bot, "You don't have permission to use this command.")
			end
			return 1
		elseif(cmd=="!vipdct") then
			if (user.iProfile == 2 or user.bOperator) then
			local s,e,whoto,reason = strfind(data,"%b<>%s+%S+%s+(%S+)%s+(.*)")
			if (kicked == nil) then
				user:SendPM(Bot, "Syntax error, !vipdct  , must have a nick to disconnect.")
			else
				if(GetItemByName(whoto) == nil) then
					user:SendPM(Bot, "There isn't any user with the nick "..kicked.." online.")
				else
				local usr = GetItemByName(whoto)
				if (reason == nil) then
					user:SendPM(Bot, "Syntax error, !vipdct  , must have a reason.")
				else
					if(usr.bOperator) then
						user:SendPM(Bot, "You can't disconnect a Operator.")
					else
						SendToAll(Bot, user.sName" has disconnected "..usr.sName.." because: "..reason)
						usr:SendPm(Bot, "You have been disconnected because: "..reason)
						usr:Disconnect()
					end
				end
				end
			end
			else
			user:SendPM(Bot, "You don't have permission to use this command.")
			end
			return 1
		end
end
end

About the VIP-Chat make a search in the forum and you will find one.

Best regards, nErBoS

[BlazeXxX]

Would this clash in with robocop script ? because i want to give some special function to VIPs, but would this kick function mess up the security of the hub?

[nErBoS]

Hi,

If the commands have the same name and prefix it will create conflicts, if not there is no problem i think.

About securtiy the kick doesn?t let vips kick any kind of op but the others does.

Best regards, nErBoS