Kufur Korumasi - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

CesuryureK · 23 Şubat 2009, 05:07

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

IkIsIdE oLmAdI IkIsIndEdE AtmIyor :S

benim verdiğimi denedin mi?

Techno · 23 Şubat 2009, 05:18

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

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

on *:text:*:#: {
  if !kufurekle* iswm $1- { 
    if $read(kufur.txt,w,$2-) {
      .ban -k $chan $nick 2 2IRC Sunucu Uzerinde 4Kufur 2EttIgInIz IcIn BanLandInIz. %logo
      .msg $chan $2 Listede zaten ekli 
    } 
    else { 
      write kufur.txt $2- 
      .msg $chan $2 eklendi 
    } 
  } 
  if !kufursil* iswm $1- { 
    if !$read(kufur.txt,w,$2-) { 
      msg $chan $2 Listede yok 
    } 
    else { 
      write $+(-,dw,$2-) kufur.txt 
      msg $chan $2 Silindi 
    } 
  } 
}

EkLiyor SiLiyor Ama ban AtmIyor Kodun Neresi YanLis Yardim EdermIsInIz

verdiğin ilk hata olanda ilkten if kullanman ve peşine yine o if ten devam etmenden kaynaklanıyor birde arattırdıgın $2- küfür.txt içindeki $1- olarak geçecegi için kod çalışmayacaktır sadece ekleme silme yapar.

on *:text:*:#: {
if !kufurekle* iswm $1- {
if $read(kufur.txt,w,$2-) {
.msg $chan $2 Listede zaten ekli
}
else {
write kufur.txt $2-
.msg $chan $2 eklendi
}
}
if !kufursil* iswm $1- {
if !$read(kufur.txt,w,$2-) {
msg $chan $2 Listede yok
}
else {
write $+(-,dw,$2-) kufur.txt
msg $chan $2 Silindi
}
}
if $read(kufur.txt,w,$1-) {
.ban -k $chan $nick 2 2IRC Sunucu Uzerinde 4Kufur 2EttIgInIz IcIn BanLandInIz. %logo
}
}

şeklinde denermisin

AyazGeceLer · 23 Şubat 2009, 15:15

k4dir CaLismiyorum Arkadasim Verdiqin kOd :S

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

on @*:text:*:#: {
  if $read(kufur.txt, w, $1-) { 
    .mode $chan +b $address($nick,2) | /kick $chan $nick 2IRC Sunucu Uzerinde 4Kufur 2EttIgInIz IcIn BanLandInIz. %logo
  } 
  if !kufurekle* iswm $1- { 
    if $read(kufur.txt,w,$2-) {
      .msg $chan $2 Listede zaten ekli 
    } 
    else { 
      write kufur.txt $2- 
      .msg $chan $2 eklendi 
    } 
  } 
  if !kufursil* iswm $1- { 
    if !$read(kufur.txt,w,$2-) { 
      msg $chan $2 Listede yok 
    } 
    else { 
      write $+(-,dw,$2-) kufur.txt 
      msg $chan $2 Silindi 
    } 
  } 
}

bIrtek Bu CaListi Ama wiLcard oLArak CaLismiyor ßuda :S *kufur* bu sekiL ekLediqimde Atmiyor kufur bu sekilde eklediqimde atiyor

muratt_aziz · 23 Şubat 2009, 18:24

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

on @*:text:*:#: {
  if $read(kufur.txt,w,$+(*,$2-,*)) { 
    .mode $chan +b $address($nick,2) | /kick $chan $nick 2IRC Sunucu Uzerinde 4Kufur 2EttIgInIz IcIn BanLandInIz. %logo
  } 
  if !kufurekle* iswm $1- { 
    if $read(kufur.txt,w,$2-) {
      .msg $chan $2 Listede zaten ekli 
    } 
    else { 
      write kufur.txt $2- 
      .msg $chan $2 eklendi 
    } 
  } 
  if !kufursil* iswm $1- { 
    if !$read(kufur.txt,w,$2-) { 
      msg $chan $2 Listede yok 
    } 
    else { 
      write $+(-,dw,$2-) kufur.txt 
      msg $chan $2 Silindi 
    } 
  } 
}

Buyur bu dediğin gibi calışmaktadır.. üstteki

Altakine gelince o kod da atıyor...

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

on @*:text:*:#: {
  if $read(kufur.txt, w, $1-) { 
    .mode $chan +b ???b?!*@* | /kick $chan $nick 2IRC Sunucu Uzerinde 4Kufur 2EttIgInIz IcIn BanLandInIz. %logo
  } 
  if !kufurekle* iswm $1- { 
    if $read(kufur.txt,w,$2-) {
      .msg $chan $2 Listede zaten ekli 
    } 
    else { 
      write kufur.txt $2- 
      .msg $chan $2 eklendi 
    } 
  } 
  if !kufursil* iswm $1- { 
    if !$read(kufur.txt,w,$2-) { 
      msg $chan $2 Listede yok 
    } 
    else { 
      write $+(-,dw,$2-) kufur.txt 
      msg $chan $2 Silindi 
    } 
  } 
}

intihar edersem sorumlusu sensin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

AyazGeceLer · 23 Şubat 2009, 19:47

Murat Ciks wilcard CaLismiyor Sadece Orn : zikerim ekliyorum zikerim seni yazdiginda atmiyor sadece zikerim yazdiqinda atiyor

Baska yerden bir kod buldum aCuSTiC Yazmis Kodu Sanirim

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

on @*:TEXT:*:#: {
  ; +o +h +v ler bu degerden etkilenmeyecekler
  if ($nick !isreg #) return
  var %l = $strip($1-)
  if ($hmatch(kufur,%l)) {
    ban -u300 # $nick 3
    kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!
  }
}
alias kufur {
  if ($1 == ekle) && ($regex($2,[A-Za-z])) {
    if !$hget(kufur) { hmake kufur 1000 }
    hadd kufur $2
    secho  $2  veritabanina başarıyla eklendi
    hsave kufur kufur.data
  }
  elseif ($1 == sil) {
    if ($hfind(kufur,$2)) {
      hdel kufur $2
      secho $2 veritabanindan başarıyla silindi
      hsave kufur kufur.data
    }
    else { secho $2 veritabaninda bulunamadi }
  }
  elseif ($1 == list) {
    var %x = 1 
    while (%x <= $hget(kufur,0).item) {
      set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)
      if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
      inc %x
    }
    if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32)))  | unset %hkufur }
  }
  else { secho hatali islem }
}
alias secho {
  ;echo -a $1-
  if (!$window(@kufur)) { window -en @kufur }
  echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: { 
  if !$hget(kufur) { hmake kufur 1000 }
  if !$isfile(kufur.data) { hsave kufur kufur.data } 
  hload kufur kufur.data 
}

Bunda WiLcard feLen CaLisiyor Ama Kendi mircine ekleyip
/kufur ekle *kufur*
/kufur sil *kufur*
/kufurlist

SekLinde caLisiyor ßunu Bota EkLeyip !kufur ekle *kufur* !kufur sil *kufur* !kufurlist SekLinde UyarLiyabiLirmiyiz ?

muratt_aziz · 23 Şubat 2009, 21:05

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

on @*:text:*:#: {
  if $read(kufur.txt,w,$+(*,$2-,*)) { 
    .mode $chan +b $address($nick,2) | /kick $chan $nick 2IRC Sunucu Uzerinde 4Kufur 2EttIgInIz IcIn BanLandInIz. %logo
  } 
  if !kufurekle* iswm $1- { 
    if $read(kufur.txt,w,$2-) {
      .msg $chan $2 Listede zaten ekli 
    } 
    else { 
      write kufur.txt $2- 
      .msg $chan $2 eklendi 
    } 
  } 
  if !kufursil* iswm $1- { 
    if !$read(kufur.txt,w,$2-) { 
      msg $chan $2 Listede yok 
    } 
    else { 
      write $+(-,dw,$2-) kufur.txt 
      msg $chan $2 Silindi 
    } 
  } 
}

usttekı dedım sen yanlısını aldın sanırım dıgerıde atıyor demıstım denedim ben bende calışıyor

Editor · 24 Şubat 2009, 02:19

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

on @*:text:*:#:{
  var %t 1
  while (%t <= $lines(küfürler.txt)) {
    if ($read(küfürler.txt,%t) iswm $1-) { mode $chan +b ~q: $+ $nick $+ !*@* | kick $chan $nick Küfür etmek yasaktır. }
    inc %t
  } 
  if *!küfürekle* iswm $1- {
    if $2 == $null {
      msg $chan Eklenecek Küfür Belirtmediniz.
      halt
    }
    if $read(küfürler.txt,w,$2-) { 
      msg $chan Eklemeye Çalıştığınız ( $2 ) listenin ( $+($readn,.) ) satırında mevcuttur.
    } 
    else { 
      write küfürler.txt $2-
      msg $chan Listeye Eklenen küfür ( $2 ) dir.
    }
  }
  if *!küfürsil* iswm $1- {
    if $2 == $null {
      msg $chan Silinecek küfür kelimesini Belirtmediniz.
      halt
    }
    if !$read(küfürler.txt,w,$2-) { 
      msg $chan Silmeye çalıştığınız ( $2 ) Listede bulunmamaktadır.
    } 
    else { 
      write $+(-,dw,$2-) küfürler.txt 
      msg $chan Listeden Silinen küfür ( $2 ) dir. 
    }
  }
}

Bu Şekilde denersen Sorunsuz Çalışacaktır.

Ekleme Örnek ;

*a.q*
*bacını*

Bu Şekilde eklersen seninbacını demesi taktirinde Kanaldan uzaklaştırılır.

İyi Forumlar.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
kufur.txt hakkında (+18)	MaXiMuS78	mIRC Scripting Sorunları	12	06 Ocak 2012 22:56
Kufur Korumasi	POSOFxBELA	mIRC Scripting Sorunları	3	29 Aralık 2009 22:39
HASH Kufur korumasi!	Brain	mIRC Scripting Hazır Kodlar	11	11 Mart 2009 11:20
Remote.ini'deki kufur'leri iptal edip, kufur.tx ile sağlıkla sağlamak için ne gerek?	ircmsn	mIRC Scripting Sorunları	5	08 Aralık 2007 16:40
kufur tcl	Silence	TCL Scriptler	4	26 Ağustos 2007 00:03

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.