[İSTEK] Küfür Sensörü

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı cakı11

  • Yeni Üye
  • *
    • İleti: 79
: 29 Mart 2018, 17:03:32
Beyler ben serverde küfür olduğunda *** olmasını istiyorum buluyorum fakat 2 tane çıkıyor tag panele duyarlarmısınız.

Kod: lua
words = {}
SQLS3D = { qury = executeSQLQuery }
chatTime = {}
lastChatMessage = {}
addEventHandler("onPlayerChat", getRootElement(),
function(text, msgtype, thePlayer)
    local account = getAccountName(getPlayerAccount(source))
    local name = getPlayerName(source)
    local root = getRootElement()
    local name = getPlayerName(source)
    local r,g,b = getPlayerNametagColor(source)
local Account1 = getPlayerAccount ( source )
local new = ""
local iter = 0
msg = string.gsub(text,"ـ","")
for word in msg:gmatch("%S+") do
iter = iter + 1
-- for i,swr in ipairs(words) do
-- local src = word:lower():gsub("%s","")
-- local src = src:gsub("#%x%x%x%x%x%x","")
-- local src = src:gsub("%c","")
-- local src = src:gsub("%p","")
-- local pat = swr:lower():gsub("%s","")
-- if src:find(pat) then
-- local replaceString = ""
-- for x=1,word:gsub("#%x%x%x%x%x%x",""):len() do
-- replaceString = replaceString.."*"
-- end
-- word = word:gsub(word,replaceString)
-- end
-- end
if iter == 1 and word:len() > 0 then
word = word:gsub("%a",string.upper,1)
end
new = new..word.." "
end
if new ~= "" then msg = new end
text = msg
if chatTime[source] and chatTime[source] + tonumber(1000) > getTickCount() then
cancelEvent()
outputChatBox("", source, 255, 0, 0)
return
else
chatTime[source] = getTickCount()
end
lastChatMessage[source] = text
local r, g, b = getPlayerNametagColor(source)
cancelEvent()
if isObjectInACLGroup("user." .. account, aclGetGroup("Console")) then
cancelEvent(true)
    outputChatBox("#FF0000✯✯✯#FFFF00Sever Kurucusı#FF0000✯✯✯" .. name ..":#FF9900 " .. text, root, 255, 255, 255, true)

elseif isObjectInACLGroup("user." .. account, aclGetGroup("Admin")) then
cancelEvent(true)
outputChatBox("·٠•●●•٠·admin·٠•●●•٠·" .. name ..":#00FF00" .. text, root, 255, 255, 255, true)

elseif isObjectInACLGroup("user." .. account, aclGetGroup("SuperModerator")) then
cancelEvent(true)
outputChatBox("#FFFFFF #000000˙·٠•●●•٠·#00FF00Smod#000000·٠•●●•٠·˙#99FFFF " .. name ..":#FFFF00 " .. text, root, 255, 255, 255, true)

elseif isObjectInACLGroup("user." .. account, aclGetGroup("Moderator")) then
cancelEvent(true)
outputChatBox("#000000 <<<<  #0033FFModeretör#000000  >>>> #66CC66" .. name ..":#FFFFFF " .. text, root, 255, 255, 255, true)

elseif isObjectInACLGroup("user." .. account, aclGetGroup("Everyone")) then
cancelEvent(true)
outputChatBox("#FFFFFF**Üye**" .. name ..":#ff0000" .. text, root, 255, 255, 255, true)
        outputServerLog("CHAT: " .. name .. ": " .. text)
end
end
)
« Son Düzenleme: 29 Mart 2018, 19:59:57 Gönderen: Narkoz »
 


MTASATURK

[İSTEK] Küfür Sensörü
« : 29 Mart 2018, 17:03:32 »

Çevrimdışı Boşluk

  • Yeni Üye
  • *
    • İleti: 94
  • Division
Yanıtla #1 : 29 Mart 2018, 22:50:16
Linki görebilmek için Kayıt olun yada Giriş yapın.
Beyler ben serverde küfür olduğunda *** olmasını istiyorum buluyorum fakat 2 tane çıkıyor tag panele duyarlarmısınız.

Kod: lua
words = {}
SQLS3D = { qury = executeSQLQuery }
chatTime = {}
lastChatMessage = {}
addEventHandler("onPlayerChat", getRootElement(),
function(text, msgtype, thePlayer)
    local account = getAccountName(getPlayerAccount(source))
    local name = getPlayerName(source)
    local root = getRootElement()
    local name = getPlayerName(source)
    local r,g,b = getPlayerNametagColor(source)
local Account1 = getPlayerAccount ( source )
local new = ""
local iter = 0
msg = string.gsub(text,"ـ","")
for word in msg:gmatch("%S+") do
iter = iter + 1
-- for i,swr in ipairs(words) do
-- local src = word:lower():gsub("%s","")
-- local src = src:gsub("#%x%x%x%x%x%x","")
-- local src = src:gsub("%c","")
-- local src = src:gsub("%p","")
-- local pat = swr:lower():gsub("%s","")
-- if src:find(pat) then
-- local replaceString = ""
-- for x=1,word:gsub("#%x%x%x%x%x%x",""):len() do
-- replaceString = replaceString.."*"
-- end
-- word = word:gsub(word,replaceString)
-- end
-- end
if iter == 1 and word:len() > 0 then
word = word:gsub("%a",string.upper,1)
end
new = new..word.." "
end
if new ~= "" then msg = new end
text = msg
if chatTime[source] and chatTime[source] + tonumber(1000) > getTickCount() then
cancelEvent()
outputChatBox("", source, 255, 0, 0)
return
else
chatTime[source] = getTickCount()
end
lastChatMessage[source] = text
local r, g, b = getPlayerNametagColor(source)
cancelEvent()
if isObjectInACLGroup("user." .. account, aclGetGroup("Console")) then
cancelEvent(true)
    outputChatBox("#FF0000✯✯✯#FFFF00Sever Kurucusı#FF0000✯✯✯" .. name ..":#FF9900 " .. text, root, 255, 255, 255, true)

elseif isObjectInACLGroup("user." .. account, aclGetGroup("Admin")) then
cancelEvent(true)
outputChatBox("·٠•●●•٠·admin·٠•●●•٠·" .. name ..":#00FF00" .. text, root, 255, 255, 255, true)

elseif isObjectInACLGroup("user." .. account, aclGetGroup("SuperModerator")) then
cancelEvent(true)
outputChatBox("#FFFFFF #000000˙·٠•●●•٠·#00FF00Smod#000000·٠•●●•٠·˙#99FFFF " .. name ..":#FFFF00 " .. text, root, 255, 255, 255, true)

elseif isObjectInACLGroup("user." .. account, aclGetGroup("Moderator")) then
cancelEvent(true)
outputChatBox("#000000 <<<<  #0033FFModeretör#000000  >>>> #66CC66" .. name ..":#FFFFFF " .. text, root, 255, 255, 255, true)

elseif isObjectInACLGroup("user." .. account, aclGetGroup("Everyone")) then
cancelEvent(true)
outputChatBox("#FFFFFF**Üye**" .. name ..":#ff0000" .. text, root, 255, 255, 255, true)
        outputServerLog("CHAT: " .. name .. ": " .. text)
end
end
)

Bu script tam istediğin gibi biri küfür edince *** oluyor küfürleri sansür.lua' dan değiştirebilirsin.

Kod: lua
https://yadi.sk/d/40sx_rdCSizfB
 


Çevrimdışı Alihan

  • Yeni Üye
  • *
    • İleti: 5
Yanıtla #2 : 29 Mart 2018, 23:45:09
Rar Şifresi Ne Acaba
 


Çevrimdışı cakı11

  • Yeni Üye
  • *
    • İleti: 79
Yanıtla #3 : 29 Mart 2018, 23:50:33
aynen rar
 


Çevrimdışı Boşluk

  • Yeni Üye
  • *
    • İleti: 94
  • Division
Yanıtla #4 : 30 Mart 2018, 00:08:35
Linki görebilmek için Kayıt olun yada Giriş yapın.
aynen rar



Linki görebilmek için Kayıt olun yada Giriş yapın.
Rar Şifresi Ne Acaba

Siteden alırken rar şifresine bakmayı unutmuşum özür dilerim. Reklamdan sayılmaması için özelden gönderdim.
 


Çevrimdışı cakı11

  • Yeni Üye
  • *
    • İleti: 79
Yanıtla #5 : 30 Mart 2018, 00:37:37
chatta 2 tane cıkıyor budan
 


MTASATURK

Ynt: [İSTEK] Küfür Sensörü
« Yanıtla #5 : 30 Mart 2018, 00:37:37 »