PtokaX forum

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

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

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

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

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

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

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

Hi,

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

Best regards, nErBoS

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

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

nope not working...

Not working ???

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

Best regards, nErBoS

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.

only -info work :)

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