Print Page - Hello Gays

Title: Hello Gays
Post by: B@B? on 15 November, 2005, 00:49:14

I use this script:

-- PtokaX Lua 5 version by PPK

-- This script stops the ***** words :) It has some words saved..

-- Languages:  English
--             Frensh
--             Luxembourgois
--             Portuges
--             German
--             Italian
--             Swedish
--             Norsk
-- Version 1.0


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

---- filter what? use 1 to enable, nil to disable the filter.
FilterPm = 1
FilterMain = 1

---- the words to be replaced and by what.
tBadWords = {
   ["scheisse"]= "Kot",
   ["fuck u"]= "liebe dich",
   ["fuck ya"]= "liebe dich",
   ["Bitch"] = "Zicke",
   ["fuck you"] = "liebe dich",
   ["motherfucker"] = "feiner Jung",
   ["fuck you all"] = "liebe euch alle",
   ["fucking"] = "liebliche",
   ["pussy"] = "Maus",
   ["suck"] = "censored",
   ["sucks"] = ">>>>>>> ICH BIN DOOF! <<<<<<<",
   ["suckz"] = ">>>>>>> ICH BIN DOOF! <<<<<<<",
   ["blow"] = ">>>>>>> ICH BIN DOOF! <<<<<<<",
   ["fucker"] = "Hengst",
   ["shit"] = "Sagt man nicht...",
   ["ass"] = "SELBER!",
   ["cocksucker"] = ">>>>>>> ICH BIN DOOF! <<<<<<<",
   ["stupid"] = "intelligent",
   ["this hub sucks"] = "geiler Hub!!!",
   ["this hub blows"] = "geiler Hub!!!",
   ["suck my dick"] = "liebe mich",
   ["arschloch"] = "netter Mensch",
   ["alter sack"] = "junger Mann",
   ["hure"] = "nette Maus",
   ["penner"] = "netter Kerl",
   ["wixer"] = "netter Kerl",
   ["wichser"] = "netter Kerl",
   ["arschgesicht"] = "netter Kerl",
      ["puff"] = "netter Hub",
   ["puffmama"] = "s?sses Luder",
   ["puffmutter"] = "s?sses Luder",
   ["schlampe"] = "s?sses Luder",
          
}

---- the words to be replaced and by what (function mode).
tBadFuncs = {
   -- replace lol with a random amount of o's
   ["lol"] = function() 
      local i = math.random(1,12) 
      return "L"..(string.rep("o", i)).."L"
   end
}

-- prefixes table, allowed for me and let commands bypase the replacer
tPre = { ["+"] = 1, ["!"] = 1, ["/"] = 1, ["-"]=1 }

function Main()
   local num = string.gsub(os.date(), "%D", "")
   math.randomseed(tonumber(num))
end

function CheckWord(word)
   local wordl = string.lower(word)
   if tBadWords[wordl] then
      return tBadWords[wordl]
   elseif tBadFuncs[wordl] then
      return tBadFuncs[wordl]()
   else
      return word
   end
end

function ChatArrival(user, data) 
   if FilterMain then
      local s,e,data =string.find(string.sub(data, 1, (string.len(data)-1)), "%b%s+(.*)")
      local data,c = string.gsub(data , "(%w+)", function(word) return CheckWord(word) end)
      local s,e,pre, cmd = string.find(data, "^%s*(%W)(%S+)")
      if c ~= 0 then
         if pre and tPre[pre] then
            if cmd == "me" then
               SendToAll("* "..user.sName.." "..string.sub(data, 5, string.len(data)).."|")
               return 1
            else
               return 0
            end
         else
            SendToAll(user.sName, data.."|")
            return 1
         end
      end
   end
end

function ToArrival(user, data)
   if FilterPm then
      local s,e,whoto = string.find(data, "%S+%s*(%S+)")
      local s,e,data = string.find(string.sub(data, 1, (string.len(data)-1)), "$%b%s*(.*)$")
      local data,c=string.gsub(data , "(%S+)", function(word) return CheckWord(word) end)
      if c ~= 0 then
         SendPmToNick(whoto, user.sName, data.."|")
         return 1
      end
   end
end

The followin error arrives me (not at start) if the script should be active cause of an forbidden word:

Word-Replacer.lua:107: bad argument #1 to `gsub' (string expected, got nil)

May some one can fix it? Thx... ;)

Title:
Post by: DJ Bert on 15 November, 2005, 00:59:59

Why don't you try Plops Wordreplacer. This works perfect. You can download it atPlops website (http://www.plop.nl)

Title:
Post by: Northwind on 15 November, 2005, 01:00:45

LoL :D

Maybe some moderator can change this topics name... i think there is some mistake... lol

Gay = Homo Sexual
Guy = Typical Man

Title:
Post by: H?LL?L?L??nG?L on 15 November, 2005, 10:03:32

HEHEHEHEHEHEHE :P :P :P

Title:
Post by: Mogli on 15 November, 2005, 13:21:14

well I don't think I'm gay, but who knows whats to come..

maybe this will help

I also found a bug in the Main Data Arrival and it coding is all weird, so maybe you shoudl try plops :)
but anyways guess this works

Code Select

-- PtokaX Lua 5 version by PPK

-- This script stops the ***** words :) It has some words saved..

-- Languages:  English
--             Frensh
--             Luxembourgois
--             Portuges
--             German
--             Italian
--             Swedish
--             Norsk
-- Version 1.0


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

---- filter what? use 1 to enable, nil to disable the filter.
FilterPm = 1
FilterMain = 1

---- the words to be replaced and by what.
tBadWords = {
   ["scheisse"]= "Kot",
   ["fuck u"]= "liebe dich",
   ["fuck ya"]= "liebe dich",
   ["Bitch"] = "Zicke",
   ["fuck you"] = "liebe dich",
   ["motherfucker"] = "feiner Jung",
   ["fuck you all"] = "liebe euch alle",
   ["fucking"] = "liebliche",
   ["pussy"] = "Maus",
   ["suck"] = "censored",
   ["sucks"] = ">>>>>>> ICH BIN DOOF! <<<<<<<",
   ["suckz"] = ">>>>>>> ICH BIN DOOF! <<<<<<<",
   ["blow"] = ">>>>>>> ICH BIN DOOF! <<<<<<<",
   ["fucker"] = "Hengst",
   ["shit"] = "Sagt man nicht...",
   ["ass"] = "SELBER!",
   ["cocksucker"] = ">>>>>>> ICH BIN DOOF! <<<<<<<",
   ["stupid"] = "intelligent",
   ["this hub sucks"] = "geiler Hub!!!",
   ["this hub blows"] = "geiler Hub!!!",
   ["suck my dick"] = "liebe mich",
   ["arschloch"] = "netter Mensch",
   ["alter sack"] = "junger Mann",
   ["hure"] = "nette Maus",
   ["penner"] = "netter Kerl",
   ["wixer"] = "netter Kerl",
   ["wichser"] = "netter Kerl",
   ["arschgesicht"] = "netter Kerl",
      ["puff"] = "netter Hub",
   ["puffmama"] = "s?sses Luder",
   ["puffmutter"] = "s?sses Luder",
   ["schlampe"] = "s?sses Luder",
          
}

---- the words to be replaced and by what (function mode).
tBadFuncs = {
   -- replace lol with a random amount of o's
   ["lol"] = function() 
      local i = math.random(1,12) 
      return "L"..(string.rep("o", i)).."L"
   end
}

-- prefixes table, allowed for me and let commands bypase the replacer
tPre = { ["+"] = 1, ["!"] = 1, ["/"] = 1, ["-"]=1 }

function Main()
   local num = string.gsub(os.date(), "%D", "")
   math.randomseed(tonumber(num))
end

function CheckWord(word)
   local wordl = string.lower(word)
   if tBadWords[wordl] then
      return tBadWords[wordl]
   elseif tBadFuncs[wordl] then
      return tBadFuncs[wordl]()
   else
      return word
   end
end

function ChatArrival(user, data)
	if FilterMain then
		local s,e,data =string.find( data, "^%b<>%s([^|]+)")
		if data then
			local data,c = string.gsub(data , "(%w+)", function(word) return CheckWord(word) end)
			local s,e,pre, cmd = string.find(data, "^%s*(%W)(%S+)")
			if c ~= 0 then
				if pre and tPre[pre] then
					if cmd == "me" then
						SendToAll("* "..user.sName.." "..string.sub(data, 5, string.len(data)).."|")
						return 1
					else
						return 0
					end
				else
					SendToAll(user.sName, data.."|")
					return 1
				end
			end
		end
	end
end

function ToArrival(user, data)
	if FilterPm then
		local s,e,whoto,data = string.find(data, "^%$To: (%S+) From: %S+ %$%b<>%s([^|]+)")
		if data then
			local data,c=string.gsub(data , "(%S+)", function(word) return CheckWord(word) end)
			if c ~= 0 then
				SendPmToNick(whoto, user.sName, data.."|")
				return 1
			end
		end
	end
end

Title: UPS!!!
Post by: B@B? on 15 November, 2005, 17:53:37

...Sorry! 4 the gays... :D

OK, guys : :]

Workin fine now after put in the copy of "Mogli "...

Thx @ all 4 ur helpin!!! ;)

PtokaX forum

Archive => Archived 5.0 boards => Help with scripts => Topic started by: B@B? on 15 November, 2005, 00:49:14