-- start copying here

sbot = "Bot"  -- Bots name change To same As your hub bot name
function Main() 
a = 0
B = 0
end 
function DataArrival(user, data)
if( strsub(data, 1, 1) == "<" ) then 
  data=strsub(data,1,strlen(data)-1) 
     s,e,cmd = strfind(data,"%b<>%s+(%S+)") 
       if cmd == "!me" then 
         a = a + 5
         b = a + 5
   for i=a,b,1 do
         user:SendPM(i ,"<"..sbot.."> "..user.sName.."..   This command is not permitted")
   end 
         return 1 end
        end    
end 


-- stop copying here