Problem Pm_Protect (not running 16.05)

[Settlers]

sBot = "Pm_Protect

PMPro = {
   ["1"]="\r\n\r\n[USER]            1\r\n",
   ["2"]="\r\n\r\n[USER]            2\r\n",
   ["3"]="\r\n\r\n[USER]            3\r\n",
   ["4"]="\r\n\r\n[USER]            4\r\n",
   ["5"]="\r\n\r\n[USER]            5\r\n",
   ["6"]="\r\n\r\n[USER]            6\r\n",
   ["7"]="\r\n\r\n[USER]            7\r\n",
   ["8"]="\r\n\r\n[USER]            8\r\n",
   ["9"]="\r\n\r\n[USER]            9\r\n",
   ["www"]="\r\n\r\n[USER]            www\r\n",
   ["http"]="\r\n\r\n[USER]            http\r\n",
   ["lv"]="\r\n\r\n[USER]            lv\r\n",
   ["ip"]="\r\n\r\n[USER]            ip\r\n",
   ["com"]="\r\n\r\n[USER]            com\r\n",
   ["info"]="\r\n\r\n[USER]            info\r\n",
   ["net"]="\r\n\r\n[USER]            net\r\n",
   ["l v"]="\r\n\r\n[USER]             l v\r\n",
   ["l  v"]="\r\n\r\n[USER]            l  v\r\n",
   ["l   v"]="\r\n\r\n[USER]            l   v\r\n",
   ["l    v"]="\r\n\r\n[USER]            l    v\r\n",
   ["l     v"]="\r\n\r\n[USER]            l     v\r\n",
   ["l      v"]="\r\n\r\n[USER]            l      v\r\n",
   ["l       v"]="\r\n\r\n[USER]            l      v\r\n",
   ["hub"]="\r\n\r\n[USER]            hub\r\n",
   ["h u b"]="\r\n\r\n[USER]            h u b\r\n",
   ["h  u  b"]="\r\n\r\n[USER]            h  u  b\r\n",
   ["h   u   b"]="\r\n\r\n[USER]            h   u   b\r\n",
   ["h    u    b"]="\r\n\r\n[USER]            h    u    b\r\n",
   ["new"]="\r\n\r\n[USER]            new\r\n",
   ["n e w"]="\r\n\r\n[USER]            n e w\r\n",
   ["n  e  w"]="\r\n\r\n[USER]            n   e   w\r\n",
   ["n   e   w"]="\r\n\r\n[USER]            n    e    w\r\n",
   ["c o m"]="\r\n\r\n[USER]            c o m\r\n",
   ["c  o  m"]="\r\n\r\n[USER]            c  o  m\r\n",
   ["c   o   m"]="\r\n\r\n[USER]            c   o   m\r\n",
   ["n e t"]="\r\n\r\n[USER]            n e t\r\n",
   ["n  e  t"]="\r\n\r\n[USER]            n  e  t\r\n",
   ["i n f o"]="\r\n\r\n[USER]            i n f o\r\n",
   ["i  n  f  o"]="\r\n\r\n[USER]           i  n  f  o\r\n",
   ["55555"]="[USER] sent 5 in a PM to another user"
}

function Main()
   frmHub:RegBot(sBot)
end

function DataArrival(user, data)
   if (strsub(data,1,4) == "$To:") then
      for i,v in PMPro do
         if strfind(data,i,1,1) then
            v = gsub(v,"%b[]",user.sName)
            SendToOps(sBot, v)
         end
      end
   end
end

[plop]

1) tell what the problem is, as detailed as possible.
2) the table has doubled things which are dropped instandly so why type them.
3) the [ is magic, better escape it  %[
or even better, replace it for .

plop

[Settlers]

please convert to LUA 5