moderator and netfounder script

[OneHero]

i use the script OPChat (look under to se it) how can i make the moderator and the netfounder to read them just like the masters or OPs can?

the OPChat script

-- Creator: klownietklowniet 
-- Network: [ > DC - UniteD < ] 
-- 
-- Editor: R?P?FF? 
-- Network:?In?a??? ??tw??x? An ?nd?rGr?und? ??tw??k Subnet 
-- 
-- Request by Peter 
-- 
-- Edits by R?P?FF? & klownietklowniet 
-- 
-- A VIP and Higher chat 
-- 02-09-2003: klownietklowniet changed the script abit so all (VIPs, OPs and SUs) can chat. (Request by BlazeXXX) 
-- 19-10-2003: R?P?FF? added the (Reg) & (SuperOp) profile in it so now regs & sops are included in script. 
-- 19-10-2003: klownietklowniet added a message so when non reg users pm it, it will respond and act on the message 
-- "This chat is for registered users only. Your message has not been sent." (Request by R?P?FF?) 


BotName = "-OpChat-" 


function Main() 
   frmHub:RegBot(BotName) 
end 


function DataArrival(curUser,data) 
local MessageRecognized = 0 

if isPM(data)==1 then 
   whoto,from,message=ParsePM(data) 
   MessageRecognized=1 
end 

   if MessageRecognized==1 and whoto==BotName then 
      if (curUser.iProfile>=0 and curUser.iProfile<=1) then 
      local sus=GetUsersByProfile("Master") 
      local sops=GetUsersByProfile("SuperOp") 
      local ops=GetUsersByProfile("Operator")       
         for i, n in sops do 
            if n == curUser.sName then 
      else 
            SendPmToNick(n, BotName, from.." -> "..message) 
         end 
      end 
      for i, n in sus do 
         if n == curUser.sName then 
   else 
         SendPmToNick(n, BotName, from.." -> "..message) 
      end 
   end 
   for i, n in ops do 
      if n == curUser.sName then 
   else 
      SendPmToNick(n, BotName, from.." -> "..message) 
   end 
end 

else 
curUser:SendPM(BotName, "This chat is for OPs and higher users only. Your message has not been sent.  If you wanna report a faker send the !report   in main chat :D") 
end 
end 
end 


function ParsePM(data) 
s,e,whoTo,from,message = strfind(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)") 
message = strsub(message,1,strlen(message)-1) 
return whoTo,from,message 
end 


function isPM(data) 
if( strsub(data, 1, 3) == "$To" ) then 
return 1 
else 
return 0 
end 
end

[bastya_elvtars]

open your Profiles.dat and post its contents here, thus we can help ya

[OneHero]

0|Master|11111111111111111100000000000000
1|Operator|11110100001101111100000000000000
2|VIP|10000000000001111100000000000000
3|Reg|10000000000000000000000000000000
4|Moderator|11111110001101111100000000000000
5|NetFounder|11111111111111111100000000000000