PtokaX forum

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


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

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