-->Rightclick for ca.25 little scripts<--

[Acidpadd]

Hello, i am new here!

I want request an script, if`s posseble to create it.  :D
I am not use an Channelbot ore securitybot ...like robocop becurse i use little scripts.(i found for robo already)
But wat i need is an script ware i can edit my own commands for the little scripts with an sub main Menu with his own name wat i like (Withouth Robo ore some kind like it) ? is that posseble ?


It wil be very nice if you can look for an Bot hider Script to (i have seen mutch hubs with 15 bots) i want thake care that on my hub on the biggining not more Bots than users online being online than :=).
Ore an cind of it to hide Bots and ops

thanks for atention .... :))

[Cid]

just use the same botname for all scripts... if the commands are different that is.

then only one bot shows in the userlist.

[Acidpadd]

i tryt to run the sript from Rightclicker for Robo .. but he doned work. i do not use robo! .... that script was thinking it is only for robo .. isn`t ?

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

sMenu = "RC"

-- End Editable Settings --

assert(dofile("tbl/checklevel.tbl"),"tbl/checklevel.tbl not found")

function OpConnected(user)
      customCMDs(user)
   if (SendTo[user.iProfile]==1) then
      GetRightClickComs(user)
      user:SendData(" Enhanced Right Click Support for [RoboCop] is available!")
   end
end

function NewUserConnected(user)
      customCMDs(user)
   if (SendTo[user.iProfile]==1) then
      GetRightClickComs(user)
      user:SendData(" Enhanced Right Click Support for [RoboCop] is available!")
   end
end

function GetRightClickComs(user)
   TCopy={}
   for cmd,_ in LevelCheck do
   if LevelCheck[cmd][user.iProfile] == 1 then
   for value,command in RightClick do
   if cmd == value then
   tinsert(TCopy,{value,command})
   end end end end

   sort(TCopy,function(a,b) return (a[1] < b[1]) end)
   for t = 1, getn(TCopy) do
   if TCopy[t] then user:SendData(TCopy[t][2])
   end end TCopy={} collectgarbage() flush()
end

function customCMDs(user)    
user:SendData("$UserCommand 1 3 "..sMenu.."\\play a round\\punch$<%[mynick]> !punch %[nick]||")   --   punch  
user:SendData("$UserCommand 1 3 "..sMenu.."\\play a round\\slapper$<%[mynick]> !slap %[nick]||")   --   slap
user:SendData("$UserCommand 1 3 "..sMenu.."\\play a round\\Aliens$<%[mynick]> !Alien %[nick]||")   --   Alien
user:SendData("$UserCommand 1 3 "..sMenu.."\\play a round\\farting$<%[mynick]> !fart %[nick]||")   --   fart
user:SendData("$UserCommand 1 3 "..sMenu.."\\play a round\\cunt munching$<%[mynick]> !cunt %[nick]||")   --   cunt
user:SendData("$UserCommand 1 3 "..sMenu.."\\play a round\\dick$<%[mynick]> !dick %[nick]||")   --   dick
user:SendData("$UserCommand 1 3 "..sMenu.."\\play a round\\kiss$<%[mynick]> !kiss %[nick]||")   --   kiss
user:SendData("$UserCommand 1 3 "..sMenu.."\\play a round\\love$<%[mynick]> !love %[nick]||")   --   love

end

RightClick = {
[10]="$UserCommand 1 3 "..sMenu.."\\KICK/BAN\\Kick User$<%[mynick]> !kick %[nick] %[line:Reason]||",   -- kick
[20]="$UserCommand 1 3 "..sMenu.."\\KICK/BAN\\Ban



........ the message is to long i can not post the whole script :((

[(NL)waarom]

hai Acidpadd
trey this one
---------------------------------------------------------------------

-- rightclicker
Bot = "Richtclik"   -- your main bot here
SendComm = 1    -- Send user command [right click] "1"=yes "0"=no
fMenu = "-=( Rightcklik )=-" -- funMenu Name

SetTo = {
 [0] = 1,   -- Masters
 [1] = 1,   -- Operators
 [2] = 1,   -- Vips
 [3] = 1,   -- Regs
 [4] = 1,   -- Moderator
 [5] = 1,   -- NetFounder
 [-1] = 1,  -- Users
}
--------------------------------------------------------------------------------------------------------------------

--$UserCommand 1 X  Where -> 1=Hub Menu 2=User Menu 3=Hub/User Menu
--
function NewUserConnected(user)
   if SendComm == 1 and SetTo[user.iProfile] == 1 then
           

           
                user:SendData("$UserCommand 1 3 "..fMenu.."\\play a round\\punch$<%[mynick]> !punch %[nick]||") -- punch
                user:SendData("$UserCommand 1 3 "..fMenu.."\\play a round\\slapper$<%[mynick]> !slap %[nick]||") -- slap
                user:SendData("$UserCommand 1 3 "..fMenu.."\\play a round\\Aliens$<%[mynick]> !Alien %[nick]||") -- Alien
                user:SendData("$UserCommand 1 3 "..fMenu.."\\play a round\\farting$<%[mynick]> !fart %[nick]||") -- fart
                user:SendData("$UserCommand 1 3 "..fMenu.."\\play a round\\cunt munching$<%[mynick]> !cunt %[nick]||") -- cunt
                user:SendData("$UserCommand 1 3 "..fMenu.."\\play a round\\dick$<%[mynick]> !dick %[nick]||") -- dick
                user:SendData("$UserCommand 1 3 "..fMenu.."\\play a round\\kiss$<%[mynick]> !kiss %[nick]||") -- kiss
                user:SendData("$UserCommand 1 3 "..fMenu.."\\play a round\\love$<%[mynick]> !love %[nick]||") -- love


   end
end


OpConnected = NewUserConnected

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

[Quattro]

This can only work if robocop profiles are installed or he has the exact same levels....