Gag script

[Genius]

Hi evryone

i need this script in lua 5 please
sory my bad inglish


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

-- GagScript v1.1
-- Description: loOol
-- Made by guibs, 22/08/2003
-- Bugfix and optimizations by bonki 22/08/2003
-- Idea and newbie block change from Homem_do_Leme,, :)

BotName = "***Empregado-=P2P=-***"
UserLevel = {}

tSpecialChars = {
                  ["!help"] = 1,
                  ["!regme"] = 1,
        ["!rules"] = 1,
                };

tLevels = { -- Guibs, what is this? CB related conversions? ;-)
            [0] = 8,
            [1] = 5,
            [2] = 4,
            [3] = 3,
            [4] = 2,
            [5] = 6,
            [6] = 7,
            [7] = 9,
          };

function DataArrival(user, data)
  local _, _, cmd = strfind(data, "%b<>%s+(%S+)");

  if ((cmd and not tSpecialChars[strsub(cmd, 1, 1)]) and strsub(data, 1, 1) == "<" and CheckUserLevel(user) <= 2) then
    user:SendData(BotName, "Este hub est? protegido contra utilizadores mal intencionados, pelo que s? utilizadores registados podem falar, para te registares faz !regme password e espera que um op te registe.")
    return 1;
  elseif (strsub(data,1, 4) == "$To:") then
    if (CheckUserLevel(user) <= 2) then
      _, _, whoTo = strfind(data, "$To:%s+(%S+)")
      user:SendPM(whoTo, "Este hub est? protegido contra utilizadores mal intencionados, pelo que s? utilizadores registados podem falar, para te registares faz !regme password e espera que um op te registe")
      return 1;
    end
  end

  return 0
end
--------- Check User Level ---------

function CheckUserLevel(user)
  local userlevel = nil
  local allprofiles = GetProfiles()
  local index, profile, index2, nick

  for index, profile in allprofiles do
    local users = GetUsersByProfile(profile)
    for index2, nick in users do
      if nick == user.sName then
        userlevel = index
      end
    end
  end

  if (userlevel) then
    return tLevels[userlevel];
  else
    return 1;
  end
end


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

I need change the script for -? profile ( master/vip/reg/newbie) newbie can?t !regme but can?t talk please

[][] genius

[Dessamator]

--Lua 5 by Dessamator
-- GagScript v1.1 
-- Description: loOol 
-- Made by guibs, 22/08/2003 
-- Bugfix and optimizations by bonki 22/08/2003 
-- Idea and newbie block change from Homem_do_Leme,, :) 

BotName = "***Empregado-=P2P=-***" 
UserLevel = {} 

tSpecialChars = { 
["!help"] = 1, 
["!regme"] = 1, 
["!rules"] = 1, 
}; 

tLevels = { -- Guibs, what is this? CB related conversions? ;-) 
[0] = 8, 
[1] = 5, 
[2] = 4, 
[3] = 3, 
[4] = 2, 
[5] = 6, 
[6] = 7, 
[7] = 9, 
}; 

function ChatArrival(user, data) 
local data = string.sub(data,1, -2)
local _, _, cmd = string.find(data, "%b<>%s+(%S+)"); 
local check =nil
	for pos,table in tSpecialChars do
		if pos==cmd then
		check = true
		end
	end
	if (cmd and not(check) and CheckUserLevel(user) <= 2) then 
		user:SendPM(BotName, "Este hub est? protegido contra utilizadores mal intencionados, pelo que s? utilizadores registados podem falar, para te registares faz !regme password e espera que um op te registe.") 
	return 1; 
	end 
return 0 
end 

ToArrival = ChatArrival

--------- Check User Level --------- 

function CheckUserLevel(user) 
local userlevel = nil 
local allprofiles = GetProfiles() 
local index, profile, index2, nick 

	for index, profile in allprofiles do 
		local users = GetUsersByProfile(profile) 
		for index2, nick in users do 
	
			if nick == user.sName then 
			userlevel = index 
			end 
		end 
	end 

	if (userlevel) then 
		return tLevels[userlevel]; 
		else 
		return 1; 
	end 
end

a small bug fix, :)

[Genius]

Hi again

   The script work fine. Tank You Dessamator :)

[Dessamator]

yw,:)