Chatroom by Plop ( i need help )

[Pit]

Greetings again scripters

Plop has made this script but i want a litle modification please:

Bot = "Chat_room"

tUsers = {}

function Main()
   frmHub:RegBot(Bot)
end

function DataArrival(user, data)
   if tUsers[user.sName] == nil then
      tUsers[user.sName] = 1
   end
   if(strsub(data, 1, 4) == "$To:") then
      local s,e,whoTo = strfind(data,"$To:%s+(%S+)")
      if whoTo == Bot then
         data=strsub(data,1,strlen(data)-1)
         local s,e,txt = strfind(data, "%$(%b<>.+)")
         local usr
         if txt then
            for a,b in tUsers do
               if a ~= user.sName then
                  usr = GetItemByName(a)
                  if usr then
                     usr:SendData("$To: "..usr.sName.." From: "..Bot.." $"..txt.."|")
                  else
                     tUsers[a] = nil
                  end
               end
            end
         end
      end
   end
end

function OpConnected(user)
   if tUsers[user.sName] == nil then
      tUsers[user.sName] = 1
   end
end

NewUserConnected = OpConnected

function OpDisconnected(user)
   if tUsers[user.sName] then
      tUsers[user.sName] = nil
   end
end

UserDisconnected = OpDisconnected

-------------------------------------------------------------------

What i want if it's possible,
Is that if this chat can be made only for a specific profile.
I mean, i want a chatroom for 2 ou 3 diferent profiles,
Can you make this script with a profile checker??
And with a nick predifened in the script to be the moderator room??
I'll try to explain it better...

I want to build a chatroom for VIP's only, but with a nick predifined on the script that who can be a VIP or an OP, who can kick from the room anyone.

I've seen the third version of his script but the rooms who we create appears with the user profile behind...don't like it!

Can you help me out please..

Thanks