Bota , Küfür koruma ekleme - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Skys · 07 Temmuz 2010, 11:02

istenilen bir Cod elde edemedim ,

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

Admin/Oper muaf eklentiler

Teşekkür Ederim.

XcLusive · 07 Temmuz 2010, 11:16

arama yapsan muhtemelen çıkacaktır
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Skys · 07 Temmuz 2010, 11:41

HaLiL Hocam baktım Aslında Şöyle bir Systemi var ama

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


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

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

Set Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

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.. }
}
}
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Socket bota ekleme	moonman	mIRC Scripting Sorunları	2	15 Eylül 2013 00:42
Bota kod ekleme	ads01ads	mIRC Scripting Sorunları	1	09 Ocak 2012 03:30
Bota Master Ekleme	lacremel	mIRC Scripting Sorunları	5	13 Nisan 2008 01:17
BoT hakkında küfür koruması ekLeme !küfür	Editor	mIRC Scripting Sorunları	6	30 Kasım 2007 23:26
Küfür Koruma Dialogu Hakkında...(Listeye ekleme Çıkarma v.s.)	Brain	mIRC Scripting Sorunları	14	08 Mart 2006 22:55

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.