rpblem with rightclicker

[tortilla]

i have robocop 10.01e and ptokax 0.3.3.21(debug)

i modify righclick to use with robocop and freshhstuff

--code------------------------------------------------
-- RightClicker for RoboCopv10.01d
-- Made by Optimus & TiMeTrAVelleR
-- Optomizado y traducido por Pegamento para Mundo Latino
-- este bot solo se recomienda para op vip y reg

aMenu = "']['Mundo?Latino?']['w?rK"
cMenu = "Utilidades"
eMenu = "Logs"
gMenu = "Seguridad del Hub"
sMenu = "']['Mundo?Latino?']['w?rK"
iMenu = "NOTHING"
kMenu = "Menu registros"


SendTo = { --> 1=on/0=off
[0] = 1, -- Masters
[1] = 1, -- Operators
[2] = 1, -- Vips
[3] = 1, -- Regs
[4] = 1, -- Moderator
[5] = 1, -- NetFounder
[-1] = 0, -- Users
}

dofile("tbl/scriptlevel.tbl")
dofile("tbl/inbuildlevel.tbl")

-- End Editable Settings --

GetRightClick = function(user, table1, table2)
for cmd,level in table1 do
if table1[cmd][user.iProfile] == 1 then
if table2[cmd] then
user:SendData(table2[cmd].."||")
end
end
end
end

NewUserConnected = function(user)
if SendTo[user.iProfile] == 1 then
if user.bUserCommand then
user:SendData("$UserCommand 0 3 |")
GetRightClick(user, ScriptLevel, ScriptCmds) GetRightClick(user, InbuildLevel, InbuildCmds) customCMDs(user)
user:SendData(" Customised Right Click of ']['Mundo?Latino?']['w?rK for [RoboCop] is available!")
end
end
end

OpConnected=NewUserConnected

ScriptCmds = {


-- aMenu = "']['Mundo?Latino?']['w?rK"
["rules"]="$UserCommand 1 3 "..aMenu.."\\Normas del hub$<%[mynick]> !rules",
["help"]="$UserCommand 1 3 "..aMenu.."\\Comandos del hub$<%[mynick]> !help",
["inbuild"]="$UserCommand 1 3 "..aMenu.."\\Inbuild Commands$<%[mynick]> !inbuild",
["report"]="$UserCommand 1 3 "..aMenu.."\\Mensaje a todos los OP's$<%[mynick]> !report %[nick] %[line:Nick] %[line:Mensaje]",
["hconfig"]="$UserCommand 1 3 "..aMenu.."\\Ver configuracion hub$<%[mynick]> !hconfig",
["hstat"]="$UserCommand 1 3 "..aMenu.."\\Ver estadisticas hub$<%[mynick]> !hstat",
["resethstat"]="$UserCommand 1 3 "..aMenu.."\\Resetear contadores/estadisticas$<%[mynick]> !resethstat",

--cMenu = "Utilidades"
["slots"]="$UserCommand 1 3 "..cMenu.."\\Info\\Ver slots libres$<%[mynick]> !slots",
["myip"]="$UserCommand 1 3 "..cMenu.."\\Info\\Ver tu IP actual$<%[mynick]> !myip",
["myinfo"]="$UserCommand 1 3 "..cMenu.."\\Info\\Ver tu info disponible$<%[mynick]> !myinfo",
["myhubtime"]="$UserCommand 1 3 "..cMenu.."\\Stats\\Ver el tiempo que estas Online$<%[mynick]> !myhubtime",
["topkickers"]="$UserCommand 1 3 "..cMenu.."\\Stats\\Ver topkickers$<%[mynick]> !topkickers",
["tophubbers"]="$UserCommand 1 3 "..cMenu.."\\Stats\\Ver tophubbers$<%[mynick]> !tophubbers",
["away"]="$UserCommand 1 3 "..cMenu.."\\Away\\Ponerme un away$<%[mynick]> !away %[line:Mensaje]",
["back"]="$UserCommand 1 3 "..cMenu.."\\Away\\Quitar el away $<%[mynick]> !back",
["getaways"]="$UserCommand 1 3 "..cMenu.."\\Away\\Ver todos los mensajes away$<%[mynick]> !getaways",
["mass"]="$UserCommand 1 3 "..cMenu.."\\Mensajes\\Enviar mensaje general$<%[mynick]> !mass %[line:Mensaje]",
["banner"]="$UserCommand 1 3 "..cMenu.."\\Mensajes\\Enviar banner al hub$<%[mynick]> !banner %[line:Text]",
["sendhubad"]="$UserCommand 1 3 "..cMenu.."\\Mensajes\\Enviar mensaje a todo el hub [main/pm]$<%[mynick]> !sendhubad %[line:main/pm]",
["talk"]="$UserCommand 1 3 "..cMenu.."\\Mensajes\\Hablar sin nick (Talk)$<%[mynick]> !talk %[line:Mensaje]",

--eMenu = "Logs"
["showbanlog"]="$UserCommand 1 3 "..eMenu.."\\Bans\\Ver log de baneos$<%[mynick]> !showbanlog",
["delbanlog"]="$UserCommand 1 3 "..eMenu.."\\Bans\\Borrar el log de baneados$<%[mynick]> !delbanlog",
["delkicklog"]="$UserCommand 1 3 "..eMenu.."\\Kicks\\Borrar el log de pateos$<%[mynick]> !delkicklog",
["showkicklog"]="$UserCommand 1 3 "..eMenu.."\\Kicks\\Ver el log de pateos$<%[mynick]> !showkicklog",
["delwarnlog"]="$UserCommand 1 3 "..eMenu.."\\Warns\\Borrar el log de avisos$<%[mynick]> !delwarnlog",
["showwarnlog"]="$UserCommand 1 3 "..eMenu.."\\Warns\\Ver el log de avisos$<%[mynick]> !showwarnlog",
["showlog"]="$UserCommand 1 3 "..eMenu.."\\Ver log usuario/ip$<%[mynick]> !showlog %[line:name/ip] ",

--gMenu = "Seguridad del Hub"
["ban"]="$UserCommand 1 3 "..gMenu.."\\Ban\\Banear usuario$<%[mynick]> !ban %[nick] %[line:Razon]",
["unban"]="$UserCommand 1 3 "..gMenu.."\\Ban\\Desbanear usuario$<%[mynick]> !unban %[nick] %[line:nick/ip]",
["nickban"]="$UserCommand 1 3 "..gMenu.."\\Ban\\Ban por nick$<%[mynick]> !nickban %[nick] %[line:Razon]",
["tempban"]="$UserCommand 1 3 "..gMenu.."\\Ban\\Banear temp por x minutos$<%[mynick]> !tempban %[nick]",
["tempunban"]="$UserCommand 1 2 "..gMenu.."\\Ban\\Desbanear baneo temp$<%[mynick]> !tempunban %[nick]",
["kick"]="$UserCommand 1 3 "..gMenu.."\\Kick\\Patear usuario$<%[mynick]> !kick %[nick] %[line:Razon]",
["warn"]="$UserCommand 1 3 "..gMenu.."\\Kick\\Avisar usuario$<%[mynick]> !warn %[nick] %[line:Razon]",
["drop"]="$UserCommand 1 3 "..gMenu.."\\Kick\\Desconectar usuario$<%[mynick]> !drop %[nick]",
["info"]="$UserCommand 1 3 "..gMenu.."\\Ver info de usuario$<%[mynick]> !info %[nick]",
["flood"]="$UserCommand 1 3 "..gMenu.."\\Kick\\Floodear usuario$<%[mynick]> !flood %[nick] %[line:Nr] %[line:Razon]",
["getunreg"]="$UserCommand 1 3 "..gMenu.."\\Ver usuarios sin registro$<%[mynick]> !getunreg",
["kickunreg"]="$UserCommand 1 2 "..gMenu.."\\Patear usuarios sin registro$<%[mynick]> !kickunreg ",
["gag"]="$UserCommand 1 2 "..gMenu.."\\Gag usuario$<%[mynick]> !gag %[nick]",
["ungag"]="$UserCommand 1 2 "..gMenu.."\\Ungag usuario$<%[mynick]> !ungag %[nick]",

--kMenu = "Menu registros"
["regreg"]="$UserCommand 1 2 "..kMenu.."\\Registro\\Registrar a REG$<%[mynick]> !regreg %[nick] %[line:Password]",
["regvip"]="$UserCommand 1 2 "..kMenu.."\\Registro\\Registro a VIP$<%[mynick]> !regvip %[nick] %[line:Password]",
["regop"]="$UserCommand 1 2 "..kMenu.."\\Registro\\Registro a OP$<%[mynick]> !regop %[nick] %[line:Password]",
["regmod"]="$UserCommand 1 2 "..kMenu.."\\Registro\\Registro a MOD$<%[mynick]> !regmod %[nick] %[line:Password]",
["regmaster"]="$UserCommand 1 2 "..kMenu.."\\Registro\\Registro a MASTER$<%[mynick]> !regmaster %[nick] %[line:Password]",
["deluser"]="$UserCommand 1 2 "..kMenu.."\\Cambio Reg\\Borrar registro a usuario$<%[mynick]> !deluser %[nick] %[line:Nick]",
["upgrade"]="$UserCommand 1 2 "..kMenu.."\\Cambio Reg\\Upgrade/Degradar registro$<%[mynick]> !upgrade %[nick] %[line:Nick] %[line:reg/vip/op/mod/master/founder]",
["repass"]="$UserCommand 1 3 "..kMenu.."\\Cambio Reg\\Cambia password$<%[mynick]> !repass %[line:New Pass]",
["getpass"]="$UserCommand 1 2 "..kMenu.."\\Info reg\\Ver password de usuario$<%[mynick]> !getpass %[nick] %[line:Nick]",
["showreglog"]="$UserCommand 1 2 "..kMenu.."\\Info reg\\Ver log de registro$<%[mynick]> !showreglog",
["showreg"]="$UserCommand 1 2 "..kMenu.."\\Info reg\\Ver usuarios por perfil$<%[mynick]> !showreg %[line:reg/vip/op/mod/master/founder]",

}
InbuildCmds = {
["unban"]="$UserCommand 1 2 "..gMenu.."\\Ban\\Desbanear usuario$<%[mynick]> !unban %[nick] %[line:nick/ip]",
["nickban"]="$UserCommand 1 2 "..gMenu.."\\Ban\\Banear por nick$<%[mynick]> !nickban %[nick] %[line:Razon]",
["tempban"]="$UserCommand 1 2 "..gMenu.."\\Ban\\Baneo temp por x minutos$<%[mynick]> !tempban %[nick]",
["tempunban"]="$UserCommand 1 2 "..gMenu.."\\Ban\\Desbaneo de ban temp$<%[mynick]> !tempunban %[nick]",

}

customCMDs = function(user) --// You can put your custome commands here
User:SendData("$UserCommand 0 3 |")
User:SendData("$UserCommand 1 3 Novedator\\A?adir$<%[mynick]> +add %[line:categoria] %[line:artista/titulo]||")
User:SendData("$UserCommand 1 3 Novedator\\Borrar$<%[mynick]> +del %[line:n? id]||")
User:SendData("$UserCommand 1 3 Novedator\\Nuevo$<%[mynick]> +new ||")
User:SendData("$UserCommand 1 3 Novedator\\Leer$<%[mynick]> +albums %[line:Tipo??]||")
User:SendData("$UserCommand 1 3 Novedator\\recargar$<%[mynick]> +reload ||")
User:SendData("$UserCommand 1 3 Novedator\\Buscar$<%[mynick]> +search %[line:que busco??]||")

end
--code-------------------------------------------

the menu for fresstuff not charge but work de commands in main chat except to enter in hub for newbies, the commands of robocop generate a message in the main chat , this type  
!inbuild$ConnectToMe []ML[].GerfaLATINO 83.49.70.72:412
[02:09] <[]OP[].Pegamento> !getunreg$ConnectToMe ![VIP].Chirli 83.49.70.72:412


please!! what is the problem?? Great mutor please look this xD

thanks

[tortilla]

hello mutor, not the right click its only for reg vip op .......

in case to change to profiles change in --->

["rules"]="$UserCommand 1 3 "..aMenu.."\\Normas del hub$<%[mynick]> !rules", change the 3 for the number of profile minim to use,not?.

de user commands are listed with novedator are for fresstuff .

this is the fresshstuff i use


--code------------------------------------------------------
--------------- FreshStuff v.3.5 ---------------------------------------------------------
-- original idea/script by chilla
-- completely rewriten by plop
-- Traducido y optomizado por Pegamento
-- it's incompatible with this version
-- anounces the new releas in mainchat
-- converted to lua5 and added search function by bastya_elvtars
-----------------------------------------------------------------------------------------

-- Name the commands to what U like
-- This command adds stuff, syntax : +add TYPE/CATAGORY THESTUFF2ADD
cmd1 = "+add"

-- This command shows the stuff, syntax : +albums with options new/game/warez/music/movie
cmd2 = "+albums"

-- This command deletes an entry, syntax : +del THESTUFF2DELETE
cmd3 = "+del"

-- This command shows the latest stuff, syntax : +nuevo
cmd4 = "+nuevo"

-- This command reloads the txt file. syntax : +reload
-- (this command is needed if you manualy edit the text file)
cmd5 = "+reload"


-- This is for searching inside releases.

cmd6="+search"

-- Show latest stuff on entry 1=yes, 0=no
ShowOnEntry = 1

-- Max stuff shown on newalbums/entry
MaxNew = 20

-- The file storing the stuff
file = "releases.dat"


-- Name of the bot
Bot = "-Novedator-"

-- you can add catagory's yourself ["trigger_name"]="catagory_name"
Types = {["Peliculas"] = "Peliculas", ["Musica"]="Musica", ["Programas"]="Programas", ["Juegos"]="Juegos"}

--------------------- don't change anything below here
AllStuff = {}
NewestStuff = {}

function Main()
   frmHub:RegBot(Bot)
   ReloadRel()
end

function NewUserConnected(user)
   if ShowOnEntry == 1 then
      user:SendPM(Bot, MsgNew.."|")
   end
end

function OpConnected(user)
   if ShowOnEntry == 1 then
      user:SendPM(Bot, MsgNew.."|")
   end
end


function ChatArrival(user,data)
      data = string.sub(data,1,string.len(data)-1)
      s,e,cmd,type,tune = string.find(data, "%b<>%s+(%S+)%s*(%S*)%s*(.*)")
      if cmd == cmd2 then
         if type == "" then
            user:SendPM(Bot, MsgAll.."|")
         elseif type == "nuevo" then
            user:SendPM(Bot, MsgNew.."|")
         elseif Types[type] then
            ShowRelType(type)
            user:SendPM(Bot, MsgType.."|")
         end
         return 1
      elseif cmd == cmd4 then
         user:SendPM(Bot, MsgNew.."|")
         return 1
      elseif user.bOperator then
         if cmd == cmd3 then
            if type ~= "" then
               DelRel(user, type)
            else
               user:SendData(Bot, "yea right, like i know what i got 2 delete when you don't tell me!|")
            end
            return 1
         elseif cmd == cmd1 then
            if tune ~= "" and Types[type] then
               AddRel(user, tune, type)
            elseif Types[type] == nil then
               user:SendData(Bot, "Necesito que ponga la categoria para insertarlo!|")
            else
               user:SendData(Bot, "yea right, like i know what you got 2 add when you don't tell me!|")
            end
            return 1
         elseif cmd == cmd5 then
            Reload()
            user:SendData(Bot, "Albums Cargados!|")
     elseif cmd==cmd6 then
      if type~="" and tune=="" then
         SearchRel(user,type)
      else
         user:SendData(Bot, "yea right, like i know what you got 2 search when you don't tell me!|")
      end
      
            return 1
         end
      end
   end


function OpenRel()
   AllStuff = nil
   NewestStuff = nil
   AllStuff = {}
   NewestStuff = {}
   Count = 0
   Count2 = 0
   local f=io.open(file,"r")
   if f then
      for line in f:lines() do
          Count = Count +1
          AllStuff[Count]=line
      end
   end
   if Count > MaxNew then
      local temp = Count - MaxNew + 1
      for i=temp, Count do
         Count2 = Count2 + 1
         NewestStuff[Count2]=AllStuff
      end
   else
      for i=1, Count do
         Count2 = Count2 + 1
         NewestStuff[Count2]=AllStuff
      end
   end
end

function ShowRel(table)
   Msg = "\r\n"
   if table == NewestStuff then
      if Count2 == 0 then
         MsgNew = "\r\n\r\n".." --------- Ultimas Novedades ']['Mundo?Latino?']['w?rK -------- \r\n\r\n  No hay Novedades en la lista ']['Mundo?Latino?']['w?rK\r\n\r\n --------- Ultimas Novedades ']['Mundo?Latino?']['w?rK -------- \r\n\r\n"
      else
         for i=1, Count2 do
            s,e,type,who,when,title=string.find(NewestStuff, "(.+)$(.+)$(.+)$(.+)")
            if title then
               Msg = Msg.."  "..when.." -- "..tipe.." -- "..title.." -- "..who.."\r\n"
            else
               Msg = Msg..NewestStuff.."\r\n"
            end
         end
         MsgNew = "\r\n\r\n".." --------- Ultimas "..MaxNew.." Novedades ']['Mundo?Latino?']['w?rK -------- "..Msg.."\r\n --------- Ultimas "..MaxNew.."  Novedades ']['Mundo?Latino?']['w?rK -------- \r\n\r\n"
      end
   else
      if Count == 0 then
         MsgAll = "\r\n\r\r\n".." --------- Todo el material ']['Mundo?Latino?']['w?rK-------- \r\n\r\n  No hay material en la lista ']['Mundo?Latino?']['w?rK\n\r\n --------- Todo el Material ']['Mundo?Latino?']['w?rK -------- \r\n\r\n"
      else
         MsgHelp = "  use "..cmd2.."          for a,b in Types do
            MsgHelp = MsgHelp.."/"..a
         end
         MsgHelp = MsgHelp.."> to see only the selected types"
         for i=1, Count do
            s,e,type,who,when,title=string.find(AllStuff, "(.+)$(.+)$(.+)$(.+)")
            if title then
               Msg = Msg.."  ID: "..i.." -- "..when.." -- "..type.." -- "..title.." -- "..who.."\r\n"
            else
               Msg = Msg..AllStuff.."\r\n"
            end
         end
         MsgAll = "\r\n\r\r\n".." --------- Todo el material ']['Mundo?Latino?']['w?rK -------- "..Msg.."\r\n --------- Todo el material ']['Mundo?Latino?']['w?rK -------- \r\n"..MsgHelp.."\r\n"
      end
   end
end

function ShowRelType(what)
   Msg = "\r\n"
   tmp = 0
   if Count == 0 then
      MsgType = "\r\n\r\n".." --------- Todo de "..Types[what].." -------- \r\n\r\n  No "..string.lower(Types[what]).." yet\r\n\r\n --------- Todo de "..Types[what].." -------- \r\n\r\n"
   else
      for i=1, Count do
         s,e,type,who,when,title=string.find(AllStuff, "(.+)$(.+)$(.+)$(.+)")
         if type == what then
            tmp = tmp + 1
            Msg = Msg.."  "..when.." -- "..who.." -- "..title.."\r\n"
         end
      end
      if tmp == 0 then
         MsgType = "\r\n\r\n".." --------- Todo de "..Types[what].." -------- \r\n\r\n  No "..string.lower(Types[what]).." yet\r\n\r\n --------- Todo de "..Types[what].." -------- \r\n\r\n"
      else
         MsgType= "\r\n\r\n".." --------- Todo de "..Types[what].." -------- \r\n"..Msg.."\r\n --------- Todo de "..Types[what].." -------- \r\n\r\n"
      end
   end
end

function AddRel(user, what, type)
   Count = Count + 1
   AllStuff[Count]=(type.."$"..user.sName.."$"..os.date("%x").."$"..what)
   user:SendData(Bot, what.." Ha sido a?adido a las novedades "..type.."|")
   SendToAll(Bot, user.sName.." a?adido a "..type.." releases: "..what.."|")
   SaveRel()
   ReloadRel()
end

function DelRel(user, what)
   if tonumber(what) then
      what = tonumber(what)
      if AllStuff[what] then
         local s,e,which=string.find(AllStuff[what], "([^%$]+)$")
         user:SendData(Bot, which.." es borrado de la base de datos|")
         AllStuff[what]=nil
         SaveRel()
         ReloadRel()
      else
         user:SendData(Bot, what.." No se encuentra en el listado|")
      end
   else
      user:SendData(Bot, "Necesito el numero ID para borrar la entrada|")
   end
end

function SaveRel()
   local f= io.open(file,"w+")
   for i=1,Count do
      if AllStuff then
         f:write(AllStuff.."\n")
      end
   end
   f:flush()
   f:close(f)
end

function ReloadRel()
   OpenRel()
   ShowRel(NewestStuff)
   ShowRel(AllStuff)
end

function DelRelOld(user, what)
   Okie = nil
   for a,b in AllStuff do
      s,e,title=string.find(b, ".+$(.+)$")
      if title == what then
         AllStuff[a]=nil
         user:SendData(Bot, what.." es borrado de la base de datos|")
         Okie = 1
         break
      end
   end
   if Okie then
      SaveRel()
      ReloadRel()
   else
      user:SendData(Bot, what.." no se encuentra en la base de datos|")
   end
end

function SearchRel(user,what)
   local res=0
   local rest={}
   local _,_,bdc=string.find(what,"([%%%[%]%(%)%*%+%-%?%^])")
   local msg=""
   if bdc then
      user:SendData(Bot,"No use el caracter "..bdc)
      return
   end
   for a,b in AllStuff do
      if string.find(b,what) then
         table.insert(rest,b)
      end
   end
   if table.getn(rest)~=0 then
      for a=1,table.getn(rest) do
         s,e,type,who,when,title=string.find(rest[a], "(.+)$(.+)$(.+)$(.+)")
         res = res + 1
         msg = msg.."\r\n  "..when.." -- "..who.." -- "..title
      end
      user:SendPM(Bot,msg.."\r\n\r\n"..res.." resultados.")
   else
      user:SendData(Bot,"Search string "..what.." no se encuentra en la base de datos.")
   end
end--------------------------------------------------------------------------------

look please

[6Marilyn6Manson6]

Usa [ CODE] and [ /CODE] without space.... first and after script please. C ya

[bastya_elvtars]

The latest FreshStuff has rightclick menu by default.

[tortilla]

Originally posted by bastya_elvtars
The latest FreshStuff has rightclick menu by default.

Please what is the link to this version

thanks

[bastya_elvtars]

http://ptxscriptdb.psycho-chihuahua.net/download.php?view.82