commend's for SuperOp

[D-J Valhala]

high all :P i have added in the Ptokax Prog a SuperOp profile but the robocop do not know that profile so the SuperOp can use ONLY in the Ptokax commend... :\
so can anybody write a script with not a lot of commend just
+timeban       - Timeban a user with a reason, followed by kick
+kill          - Permanently the user, followed by kick
+info             - Show all info about a user
and +help will show help from .txt file...
and please make that the script will know SuperOp + Master

thank's a lot :)))

[[NL]trucker]

D-J Valhala


this will not work as far as i know robocop knows only 4 profiles

Master
OP
Vip
reg

so a script with other profiles will not work either or it has to be custom made for use with robo and asfar as i know there is a new version on the way from robocop.

they are testing it now :-))

[D-J Valhala]

yes i know that so you can write it to know only SuperOp and Master

[nErBoS]

Hi,

The commands that you are asking exists on robocop ??
if yes why don't you ask to the creator to see if he can add that profile in the bot.

Best regards, nErBoS

[D-J Valhala]

i asked hem and he can't do that... i dont know why but i think that SuperOp have a defrent profile to each ptokax so he can't add this to robo...
10x

[[NL]trucker]

the commands exist in robocop but he won,t add diffrent profiles yet.

[D-J Valhala]

i know that so i ask for a litel script why you think i ask? coz great robo do not know SuperOp and all the add alone profiles in ptokax...

[nErBoS]

Hi,

Does the commands you requested have the same name and prefix as the commands in robocop ??

Best regards, nErBoS

[D-J Valhala]

mmm yes but you can change it i dont care what is the commend...
10x :D

[nErBoS]

Hi,

I suppose that the level of your Super OP is 4 then hope it helps...

--Requested by D-J Valhala
--Made by nErBoS

Bot = "SuperOp-Bot"

function Main()
frmHub:RegBot(Bot)
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=="-timeban") then 
			TimeBan(user,data)
			return 1
		elseif(cmd=="-kill") then
			Kill(user,data)
			return 1
		elseif(cmd=="-info") then
			Info(user, data)
			return 1
		end
end
end

function TimeBan(user,data)
	if (user.iProfile == 4 or user.iProfile == 0) then
	local sec = 1000
	local min = sec*60
	local h = min*60
	local day = h*24
	local week = day*7
	local month = day*30
	local year = day*365
	local _,_,usr,bantime,reason = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(%S+)%s+(.+)")
	local _,_,number,timeformat = strfind(bantime, "(%d+)(%S+)")
	local timeformat = strlower(timeformat)
	if (usr ~= nil and reason ~= nil)  then
		if (GetItemByName(userName) ~= nil) then
		local tobebanned = GetItemByName(usr)
		if timeformat == "hours" or timeformat == "hour" or timeformat == "h" then
			tobebanned:SendPM(Bot, "You have been banned for "..number.." hours, because: "..reason) 
			SendToAll(Bot, user.sName.." has banned "..usr.." because: "..reason)
			tobebanned:TimeBan( (tonumber(number)*h)/min )
		elseif timeformat == "days" or timeformat == "day" or timeformat == "d" then
			tobebanned:SendPM(Bot, "You have been banned for "..number.." days, because: "..reason) 
			SendToAll(Bot, user.sName.." has banned "..usr.." because: "..reason)
			tobebanned:TimeBan( (tonumber(number)*day)/min )
		elseif timeformat == "weeks" or timeformat == "week" or timeformat == "w" then
			tobebanned:SendPM(Bot, "You have been banned for "..number.." weeks, because: "..reason) 
			SendToAll(Bot, user.sName.." has banned "..usr.." because: "..reason)
			tobebanned:TimeBan( (tonumber(number)*week)/min )
		elseif timeformat == "months" or timeformat == "month" or timeformat == "m" then
			tobebanned:SendPM(Bot, "You have been banned for "..number.." months, because: "..reason) 
			SendToAll(Bot, user.sName.." has banned "..usr.." because: "..reason)
			tobebanned:TimeBan( (tonumber(number)*month)/min )
		elseif timeformat == "years" or timeformat == "year" or timeformat == "y" then
			tobebanned:SendPM(Bot, "You have been banned for "..number.." years, because: "..reason) 
			SendToAll(Bot, user.sName.." has banned "..usr.." because: "..reason)
			tobebanned:TimeBan( (tonumber(number)*year)/min )
		else
		end
		else
			user:SendPM(Bot, "The user "..usr.." is not in the Hub.")
		end
	else
		user:SendPM(Bot, "Syntax error, -timeban  .")
	end
	else
	user:SendPM(Bot, "You don?t have permission to use this command.")
	end
return 1
end

function Kill(user,data)
if (user.iProfile == 4 or user.iProfile == 0) then			
	local _,_, usr, reason = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(.*)")
	if (GetItemByName(usr) ~= nil) then
		local userToBeKicked = GetItemByName(usr)
		if(reason ~= nil) then
			userToBeKicked:SendPM(Bot, "You have been killed by "..user.sName..", because: "..reason) 
			SendToAll(Bot, user.sName.." has killed "..usr.." because: "..reason)
			userToBeKicked:Ban()
			userToBeKicked:NickBan()
			userToBeKicked:TempBan()
		else
			user:SendPM(Bot, "Syntax error, -kill  .")
		end
	else
		user:SendPM(Bot, "The user "..usr.." is not in the Hub.")
	end
else
user:SendPM(Bot, "You don?t have permission to use this command.")
end
end

function Info(user, data, usr)
local msg = ""
if (user.iProfile == 4 or user.iProfile == 0) then
	local _,_, arg = strfind(data, "%b<>%s+%S+%s+(%S+)")
	if (GetItemByName(arg) ~= nil) then
		local touser = GetItemByName(arg)
		local s,e,desc,speed,email,share = strfind(touser.sMyInfoString, "$MyINFO $ALL ([^$]+)$ $([^$]*)$([^$]*)$([^$]+)")
		msg = msg.."##-- Info --##\r\n"
		msg = msg.."Nick:\t"..touser.sName.."\r\n"
		msg = msg.."IP:\t"..touser.sIP.."\r\n"
		if(email ~= nil) then
		msg = msg.."Mail:\t"..email.."\r\n"
		else
		msg = msg.."Mail:\tNone\r\n"	
		end
		if(share ~= nil) then
		share = share / (1024*1024*1024)
		msg = msg.."Share:\t"..share.." GB\r\n"
		else
		msg = msg.."Share:\tNone\r\n"	
		end
		if(desc ~= nil) then
		desc = strsub(desc, strlen(touser.sName) + 1, strlen(desc))
		msg = msg.."Description:\t"..desc.."\r\n"
		else
		msg = msg.."Description:\tNone\r\n"
		end
		if(speed ~= nil) then
		speed = strsub(speed,1,strlen(speed)-1)
		msg = msg.."Speed:\t"..speed.."\r\n"
		else
		msg = msg.."Speed:\tNone\r\n"
		end
	else
		msg = msg.."The user "..arg.." is not on the Hub."
	end
else
msg = msg.."You don?t have permission to use this command."
end
user:SendPM(Bot, msg)
end

Best regards, nErBoS

[D-J Valhala]

nope not working...

[nErBoS]

Not working ???

Everythig ??? Have you tried with the profile master ??

Best regards, nErBoS

[[NL]trucker]

lol

robo is just acceptng his own commands

i asked OPtimus and he told me he is going to add them when robo v7 is ready

so they will be availlablle after the release of robo v7

in the meantime you cannot have a script with these commands simply because it will not work.

the prefixes arent added to the script yet.

[D-J Valhala]

only -info work :)

[nErBoS]

Hi,

The timeban had a little bug fixed, kill is working for me...

--Requested by D-J Valhala
--Made by nErBoS

Bot = "SuperOp-Bot"

function Main()
frmHub:RegBot(Bot)
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=="-timeban") then 
			TimeBan(user,data)
			return 1
		elseif(cmd=="-kill") then
			Kill(user,data)
			return 1
		elseif(cmd=="-info") then
			Info(user, data)
			return 1
		end
end
end

function TimeBan(user,data)
	if (user.iProfile == 4 or user.iProfile == 0) then
	local sec = 1000
	local min = sec*60
	local h = min*60
	local day = h*24
	local week = day*7
	local month = day*30
	local year = day*365
	local _,_,usr,number,timeformat,reason = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(%d+)(%S+)%s+(.+)")
	if (usr ~= nil and reason ~= nil)  then
		if (GetItemByName(usr) ~= nil) then
		local tobebanned = GetItemByName(usr)
		if timeformat == "hours" or timeformat == "hour" or timeformat == "h" then
			tobebanned:SendPM(Bot, "You have been banned for "..number.." hours, because: "..reason) 
			SendToAll(Bot, user.sName.." has banned "..usr.." because: "..reason)
			tobebanned:TimeBan( (tonumber(number)*h)/min )
		elseif timeformat == "days" or timeformat == "day" or timeformat == "d" then
			tobebanned:SendPM(Bot, "You have been banned for "..number.." days, because: "..reason) 
			SendToAll(Bot, user.sName.." has banned "..usr.." because: "..reason)
			tobebanned:TimeBan( (tonumber(number)*day)/min )
		elseif timeformat == "weeks" or timeformat == "week" or timeformat == "w" then
			tobebanned:SendPM(Bot, "You have been banned for "..number.." weeks, because: "..reason) 
			SendToAll(Bot, user.sName.." has banned "..usr.." because: "..reason)
			tobebanned:TimeBan( (tonumber(number)*week)/min )
		elseif timeformat == "months" or timeformat == "month" or timeformat == "m" then
			tobebanned:SendPM(Bot, "You have been banned for "..number.." months, because: "..reason) 
			SendToAll(Bot, user.sName.." has banned "..usr.." because: "..reason)
			tobebanned:TimeBan( (tonumber(number)*month)/min )
		elseif timeformat == "years" or timeformat == "year" or timeformat == "y" then
			tobebanned:SendPM(Bot, "You have been banned for "..number.." years, because: "..reason) 
			SendToAll(Bot, user.sName.." has banned "..usr.." because: "..reason)
			tobebanned:TimeBan( (tonumber(number)*year)/min )
		else
		end
		else
			user:SendPM(Bot, "The user "..usr.." is not in the Hub.")
		end
	else
		user:SendPM(Bot, "Syntax error, -timeban  .")
	end
	else
	user:SendPM(Bot, "You don?t have permission to use this command.")
	end
return 1
end

function Kill(user,data)
if (user.iProfile == 4 or user.iProfile == 0) then			
	local _,_, usr, reason = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(.*)")
	if (GetItemByName(usr) ~= nil) then
		local userToBeKicked = GetItemByName(usr)
		if(reason ~= nil) then
			userToBeKicked:SendPM(Bot, "You have been killed by "..user.sName..", because: "..reason) 
			SendToAll(Bot, user.sName.." has killed "..usr.." because: "..reason)
			userToBeKicked:Ban()
			userToBeKicked:NickBan()
			userToBeKicked:TempBan()
		else
			user:SendPM(Bot, "Syntax error, -kill  .")
		end
	else
		user:SendPM(Bot, "The user "..usr.." is not in the Hub.")
	end
else
user:SendPM(Bot, "You don?t have permission to use this command.")
end
end

function Info(user, data, usr)
local msg = ""
if (user.iProfile == 4 or user.iProfile == 0) then
	local _,_, arg = strfind(data, "%b<>%s+%S+%s+(%S+)")
	if (GetItemByName(arg) ~= nil) then
		local touser = GetItemByName(arg)
		local s,e,desc,speed,email,share = strfind(touser.sMyInfoString, "$MyINFO $ALL ([^$]+)$ $([^$]*)$([^$]*)$([^$]+)")
		msg = msg.."##-- Info --##\r\n"
		msg = msg.."Nick:\t"..touser.sName.."\r\n"
		msg = msg.."IP:\t"..touser.sIP.."\r\n"
		if(email ~= nil) then
		msg = msg.."Mail:\t"..email.."\r\n"
		else
		msg = msg.."Mail:\tNone\r\n"	
		end
		if(share ~= nil) then
		share = share / (1024*1024*1024)
		msg = msg.."Share:\t"..share.." GB\r\n"
		else
		msg = msg.."Share:\tNone\r\n"	
		end
		if(desc ~= nil) then
		desc = strsub(desc, strlen(touser.sName) + 1, strlen(desc))
		msg = msg.."Description:\t"..desc.."\r\n"
		else
		msg = msg.."Description:\tNone\r\n"
		end
		if(speed ~= nil) then
		speed = strsub(speed,1,strlen(speed)-1)
		msg = msg.."Speed:\t"..speed.."\r\n"
		else
		msg = msg.."Speed:\tNone\r\n"
		end
	else
		msg = msg.."The user "..arg.." is not on the Hub."
	end
else
msg = msg.."You don?t have permission to use this command."
end
user:SendPM(Bot, msg)
end

TimeBan use like this...

-timeban nerbos 10h byeeee

10h = means 10 hours
10d = means 10 days
10w = means 10 weeks
10m = means 10 months
10y = menas 10 years.

Best regards, nErBoS