PtokaX forum

This allows Operators to chat in the mainchat while others can't see,... It is an old script of mine I revamped in the weekend--- OpInterCom v4
--- by Herodes
--------- --------- --------- --------- --------- --------- ---------
--- Provides an easy way to communicate in the main chat for operators ...
--- Who needs OpChat when you have InterCom ... lol
--- Just type: " [-]  " in the MainChat ...
--- Note : You DO need the ' [-] ' .. :)
--------- --------- --------- --------- --------- --------- ---------
--- 10 / 8 - 2004
--- added ' [+] ' for going into permanent OpsOnly mode..
--- added ' [=] ' for going out of OpsOnly mode...
--- added ' [?] ' for listing the Ops in OpsOnly mode...
--------- --------- --------- --------- --------- --------- ---------
--- 2 / 3 - 2005
--- converted to Lua 5 for the latest PtokaX
--------- --------- --------- --------- --------- --------- ---------
--- 15 / 3 - 2005
--- added right-click menu ( request by AMediaMan )
--------- --------- --------- --------- --------- --------- ---------
--- 28/3 - 2005
--- changed [-] mode switches does the inverse than your mode ( OpsOnly -> Normal and reverse )
--- added [!]    to talk to a single person ;) ( request by TimeTraveler )
--------- --------- --------- --------- --------- --------- ---------
--- 11/9 - 2006
--- changed the structure of the script
--- made it compatible for latest PtokaX
--- Using Lua 5.1.1
--------- --------- --------- --------- --------- --------- ---------

tCops = {}
--&#124|
function OpConnected(user)
if user.bUserCommand then
user:SendData("$UserCommand 1 3 :InterCom:\\OpsOnly Mode\\ON$<%[mynick]> [+]&#124")
user:SendData("$UserCommand 1 3 :InterCom:\\OpsOnly Mode\\OFF$<%[mynick]> [=]&#124")
user:SendData("$UserCommand 1 3 :InterCom:\\OpsOnly Msg$<%[mynick]> [-]%[line:Enter your msg here:]&#124")
user:SendData("$UserCommand 1 2 :InterCom:\\WhisperToUser$<%[mynick]> [!] %[nick] %[line:Enter your msg here:]&#124")
user:SendData("$UserCommand 1 3 :InterCom:\\List OpsOnly Opers$<%[mynick]> [?]&#124")
user:SendData(":InterCom-[v4]:", "Rightclick menu for InterCom[v4] is available...")
end
end

function ChatArrival ( oper, msg )
if ( oper.bOperator ) then
local s, e, txt = string.find(msg, "%b<>%s+(.+)")
tActions = {
['[-]'] = function ( oper, data )
if (tCops[oper.sName] == 1) then
SendToAll( oper.sName, data );
elseif ( not tCops[oper.sName] ) then
SendToOps('OpsOnly', '['..oper.sName..'] '..data )
end
return 1;
end,
['[!]'] = function( oper, data )
local who, what = string.match( data, "%s*(%S*)%s*(.*)" )
local w = GetItemByName(who)
if w then
w:SendData('Whisper from '..oper.sName..': '..what )
oper:SendData('Whispered to '..who..': '..what)
else
oper:SendData('There is no user named '..who..',... try again.' )
end
return 1;
end,
['[+]'] = function ( oper )
if (tCops[oper.sName] == 1) then
oper:SendData("OpsOnly", "You are in OpsOnly mode already...")
elseif ( not tCops[oper.sName] ) then
tCops[oper.sName] = 1
oper:SendData("OpsOnly", "You are in OpsOnly mode now ... to go into normal type ' [=] ' ")
SendToOps("OpsOnly", "*** "..oper.sName.." went into OpsOnly mode...")
end
return 1;
end,
['[=]'] = function ( oper )
if ( not tCops[oper.sName] ) then
oper:SendData("OpsOnly", "You were not in OpsOnly mode ...")
elseif (tCops[oper.sName] == 1) then
tCops[oper.sName] = nil
oper:SendData("OpsOnly", "You are in normal mainchat mode now ... be carefull!!!")
SendToOps("OpsOnly", "*** "..oper.sName.." is in normal chat mode now")
end
return 1;
end,
['[?]'] = function ( oper )
local msg = ''
for name, v in pairs( tCops ) do
msg = '\r\n\t     - '..name..msg
end
if msg == '' then
msg = " None are in OpsOnly mode..."
else
msg = "\r\n\t Operators in OpsOnly Mainchat mode :"..msg
end;
oper:SendData("OpsOnly", msg )
return 1;
end,
}
local threefirst = string.sub( txt, 1, 3 )
if tActions[threefirst] then
return tActions[threefirst]( oper, string.sub( txt, 4 ) )
else
if tCops[oper.sName] then
SendToOps( 'OpsOnly', '['..oper.sName..'] '..txt )
return 1
end
end
end
end