IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Bota , Küfür koruma ekleme (https://www.ircforumlari.net/mirc-scripting-sorunlari/343124-bota-kufur-koruma-ekleme.html)

Skys 07 Temmuz 2010 11:02
Bota , Küfür koruma ekleme
 
istenilen bir Cod elde edemedim ,

!kufur *kelime*
!kufursil *kelime*
!kufurlist

Admin/Oper muaf eklentiler


Teşekkür Ederim.

XcLusive 07 Temmuz 2010 11:16
Cevap: Bota , Küfür koruma ekleme
 
arama yapsan muhtemelen çıkacaktır :)

Skys 07 Temmuz 2010 11:41
Cevap: Bota , Küfür koruma ekleme
 
HaLiL Hocam baktım Aslında Şöyle bir Systemi var ama

PHP- Kodu:
on *:text:*:%operkanali: {
  if ($1 == .kufur) {
    if $2 == ekle {
      if !$read(Admin.txt,w,$nick) { .msg $chan $+(",$nick,") Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $+(",$nick,") Lütfen kelime Yaziniz. }
      else { kufurekle $3 }
    }
    if $2 == sil {
      if !$read(Admin.txt,w,$nick) { .msg $chan $+(",$nick,") Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      elseif $3 == $null { .msg $chan $+(",$nick,") Lütfen kelime Yaziniz. }
      else { kufursil $3 }
    }
    if $2 == list {
      if !$read(kufur.txt,w,$nick) { msg $chan $+(",$nick,") Bu Komutu Kullanmaya Yetkili Degilsiniz. }
      else { .msg $chan $nick Özelinize Bilgiler Verilmistir , Lütfen Özelinizi KontroL Ediniz. | .msg $nick  kufur Listesi Listeleniyor. | kufurlist | .msg $nick Kufur Listesi Sonu. }
    }
  }
}
alias kufurekle { if $1 { if $read( kufur.txt,w,$1) { .msg $chan - $1 -  kufur Kufur zaten listede. | halt } | else { write  kufur.txt $1 | .msg $chan - $1 -  kufur listeye eklendi. } } }
alias kufurlist { var %s = 1,%ss = $lines( kufur.txt) | while %s <= %ss {  .msg $nick 4 $read( kufur.txt,%s) | inc %s } }
alias kufursil { if $1 { if !$read( kufur.txt,w,$1) { .msg $chan - $1 -  kufur listesinde yok. | halt } | else { write $+(-dl,$readn)  kufur.txt | .msg $chan - $1 -  kufur listesinden silindi. } } } 
Devamını getiremedim ,

Set 07 Temmuz 2010 13:12
Cevap: Bota , Küfür koruma ekleme
 
on *:text:*:#as: {
var %text = $1-
%text = $regsubex(%text,/(.)\1+/g,\1)
%text = $regsubex(%text,/([[:space:]])/g,$null)
if ($read(kufur.txt,w,%text)) {
ban -k # $nick 2 Kufur Yasak!
}
}

bu işine yarar bence , hayırlı IF'ler.

Skys 07 Temmuz 2010 13:23
Cevap: Bota , Küfür koruma ekleme
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1040457400)
on *:text:*:#as: {
var %text = $1-
%text = $regsubex(%text,/(.)\1+/g,\1)
%text = $regsubex(%text,/([[:space:]])/g,$null)
if ($read(kufur.txt,w,%text)) {
ban -k # $nick 2 Kufur Yasak!
}
}

bu işine yarar bence , hayırlı IF'ler.

Set , Teşekkür Ederim muaf eklentiler ekliyebilirmiyiz.

Set 07 Temmuz 2010 13:34
Cevap: Bota , Küfür koruma ekleme
 
on *:text:*:#as: {
var %text = $1-
%text = $regsubex(%text,/(.)\1+/g,\1)
%text = $regsubex(%text,/([[:space:]])/g,$null)
if $istok(Nick1 Nick2 Nick3,$nick,32) { halt }
if ($read(kufur.txt,w,%text)) {
ban -k # $nick 2 Kufur Yasak!
}
}

Nick1 , Nick2 Yerlerini Doldurursun Kendine Göre.

DaDaS 07 Temmuz 2010 14:15
Cevap: Bota , Küfür koruma ekleme
 
on *:text:*:#kontrol:{
if (*!Root@* iswm $fulladdress) || (*!Admin@* iswm $fulladress) || (*!oper@* iswm $fulladress) || (*!*@*.com iswm $fulladress) {
if ($1 == !kufurekle) { .write kufurler.txt $2 | .msg #kontrol $2 Kelimesi küfür listesine eklendi. }
if ($1 == !kufursil) { .write -d kufurler.txt $2 | .msg #kontrol $2 Kelimesi küfür listesinden silindi. }
if ($1 == !kufurlist) { .play $chan kufurler.txt 0 | .msg #kontrol Tüm küfürler Sıralanıyor.. }
}
}
}


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk