IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)
-   Hazır Kodlar (https://www.ircforumu.net/hazir-kodlar/)
-   -   Küfür Koruması , Bota Uyarlama (https://www.ircforumu.net/hazir-kodlar/2814-kufur-korumasi-bota-uyarlama.html)

immortaL 30 Haziran 2016 15:12

Küfür Koruması , Bota Uyarlama
 
PHP- Kodu:

on 1:start:{
  
hmake kufur
  hload kufur Kufurx
.txt
}
on 1:text:*:#:{
  
var %::text = $1-
  if 
$hfind(kufur,$1-,1,W).data && $nick {
    
mode # +b $wildsite | kick # $nick  Lütfen kanal içerisinde argo/küfür içeren sözcükler kullanmayın. 
    
msg $nick küfürlü konuştunuz Bu yuzden kanaldan uzaklaştırıldınızyakalanan küfürünüz >4 $hget(kufur,$hfind(kufur,$1-,1,W).data)
  }
  if 
$chan == #kanalops {
    
if $gettok($1-,1,32) == !kotusoz {
      
hadd -m kufur $r(1000,999999$gettok($1-,2-,32)
      
hsave kufur kufur.mercy
      msg 
# Kötü Söz KaydediLdi : $gettok($1-,2-,32)
    
}
    if 
$gettok($1-,1,32) == !kotusozsil {
      if 
$hfind(kufur,$gettok($1-,2-,32),1,W).data {
        
hdel kufur $ifmatch
        hsave kufur kufur
.mercy
        msg 
# KötüSöz Maski Silindi: ( $+ $ifmatch $+ ) $gettok($1-,2-,32)
      
}
    }
  }




PHP- Kodu:

kufur.txt Acıyoruz 
on 
*:load:{
  echo -
a 4|2Che42 Küfür korumanız Yüklenmiştir.
  echo -
a 4<2Che42 Kurmak için 4/kufurkur 2 yazabilirsiniz




Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:32.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.