IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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/)
-   -   Kufur Korumasi (https://www.ircforumlari.net/mirc-scripting-sorunlari/181542-kufur-korumasi.html)

CesuryureK 23 Şubat 2009 05:07
Cevap: Kufur Korumasi
 
Alıntı:
AyazGeceLer Nickli Üyeden Alıntı (Mesaj 645616)
IkIsIdE oLmAdI IkIsIndEdE AtmIyor :S
benim verdiğimi denedin mi?

Techno 23 Şubat 2009 05:18
Cevap: Kufur Korumasi
 
Alıntı:
AyazGeceLer Nickli Üyeden Alıntı (Mesaj 643632)
Kod:
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
Cevap: Kufur Korumasi
 
k4dir CaLismiyorum Arkadasim Verdiqin kOd :S


Kod:
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
Cevap: Kufur Korumasi
 
Kod:
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:
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 :D

AyazGeceLer 23 Şubat 2009 19:47
Cevap: Kufur Korumasi
 
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:
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
Cevap: Kufur Korumasi
 
Kod:
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
Cevap: Kufur Korumasi
 
Kod:
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.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:42.
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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