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/)

- - Yasakli Kelimeler (https://www.ircforumlari.net/mirc-scripting-sorunlari/35084-yasakli-kelimeler.html)

Kan	27 Temmuz 2007 20:32

Yasakli Kelimeler

Kod:

 

#k on

on *:TEXT:*:?:{ 

  if *mehtap_seckin* iswm $1- || *eda4515* iswm $1-  || *@hot* iswm $1- || *.Net* iswm $1- || *.org* iswm $1- || *@hotm* iswm $1-  || *.com* iswm $1-  { 

    msg #ircd Bot/Inviter/Trojan $nick  < $+ $nick $+ > $1-

  }

}

#k end

Elimde boyle bir kod var yanliz, ben buna #ircd kanalinda !ekle kelime ekleyinca eklemesi, !sil Kelime deyince o kelimeyi silmesini istiyorum nasil yapabiliriz. Yanliz tek nick bunlari uygulayabilsin. Teskkurler~

CipriX

27 Temmuz 2007 20:39

Cevap: Yasakli Kelimeler

txt'den okutman gerekiyor.. bu koda ekletemezsin..

Kan	27 Temmuz 2007 21:12

Cevap: Yasakli Kelimeler

Farkli bir kod olursa? eklenir mi peki?

CipriX

27 Temmuz 2007 22:46

Cevap: Yasakli Kelimeler

PHP- Kodu:

   alias rklm { 
var %. = 1 
while $read(rklm.txt,%.) { 
if $v1 iswm $1- { 
return $v1 
} 
inc %. 
} 
return $false
}
on *:Text:*:?:{ if $rklm($1-) { msg #ircd Bot/Inviter/Trojan $nick < $+ $nick $+ > $1- } }
 
on *:Text:*:#:{
if !ekle* iswm $1- {
if $read(rklm.txt,w,$2-) {
msg $chan $2 zaten ekli durumda
}
else {
write rklm.txt $2-
msg $chan $2 eklenmiştir..
}
}
if !sil* iswm $1- {
if !$read(rklm.txt,w,$2-) {
msg $chan $2 Bulunmamaktadır.
}
else {
write $+(-,dw,$2-) rklm.txt
msg $chan $2 Silinmiştir
}
}
}

!ekle kelime
!sil kelime

Mask olarak ekleyip silebilirsin

Kan	28 Temmuz 2007 12:39

Cevap: Yasakli Kelimeler

Kod:

 

alias Knl { 

  var %. = 1 

  while $read(Knl.txt,%.) { 

    if $v1 iswm $1- { 

      return $v1 

    } 

    inc %. 

  } 

  return $false

}

on *:Text:*:#:{

  if $Knl($1-) {

    if (root isin $address($nick,0))  { halt }

    if (admin isin $address($nick,0)) { halt }

    if (ircop isin $address($nick,0)) { halt }

    if (oper isin $address($nick,0))  { halt }

    if (desk isin $address($nick,0)) { halt }

    if $nick == NoMercy { halt }

    if $nick == MT-ADS { halt }

    msg #ircd Olaganustu Hal Kanal $Chan  < $+ $nick $+ > $1- 

  }

}

on *:Text:*:#ircd:{

  if !kekle* iswm $1- {

    if $read(knl.txt,w,$2-) {

      msg $chan  $+ $2 $+  Listede ekli

    }

    else {

      write knl.txt $2-

      msg $chan  $+ $2 $+  Eklendi

    }

  }

  if !ksil* iswm $1- {

    if !$read(knl.txt,w,$2-) {

      msg $chan  $+ $2 $+  Listede yok

    }

    else {

      write $+(-,dw,$2-) knl.txt

      msg $chan  $+ $2 $+  Silindi

    }

  }

}

Onu ozel olarak ayarladim, aynisindan kopy ederek kanallar icinde olusmasini saglamak istedim ama calismadi sorun degilse bakarmisin. Acaba bir hata mi var?

CipriX

28 Temmuz 2007 13:00

Cevap: Yasakli Kelimeler

çalışmayan nedir hatamı veriyor ?

Kan	28 Temmuz 2007 13:09

Cevap: Yasakli Kelimeler

Komutlar islemiyor, ne ekliyor nede siliyor.

CipriX

28 Temmuz 2007 13:16

Cevap: Yasakli Kelimeler

PHP- Kodu:

   alias Knl { 
  var %. = 1 
  while $read(Knl.txt,%.) { 
    if $v1 iswm $1- { 
      return $v1 
    } 
    inc %. 
  } 
  return $false
}
on *:Text:*:#:{
  if $Knl($1-) {
    if (root isin $address($nick,0))  { halt }
    if (admin isin $address($nick,0)) { halt }
    if (ircop isin $address($nick,0)) { halt }
    if (oper isin $address($nick,0))  { halt }
    if (desk isin $address($nick,0)) { halt }
    if $nick == NoMercy { halt }
    if $nick == MT-ADS { halt }
    msg #ircd Olaganustu Hal Kanal $Chan  < $+ $nick $+ > $1- 
  }
  if $chan = #ircd {
    if !kekle* iswm $1- {
      if $read(knl.txt,w,$2-) {
        msg $chan  $+ $2 $+  Listede ekli
      }
      else {
        write knl.txt $2-
        msg $chan  $+ $2 $+  Eklendi
      }
    }
    if !ksil* iswm $1- {
      if !$read(knl.txt,w,$2-) {
        msg $chan  $+ $2 $+  Listede yok
      }
      else {
        write $+(-,dw,$2-) knl.txt
        msg $chan  $+ $2 $+  Silindi
      }
    }
  }
}

SaintCty

28 Temmuz 2007 15:38

Cevap: Yasakli Kelimeler

ustalar bu kodun tam olarak görevini anlatabilirmisiniz kısaca mümkünse tşk ler

LauReLL

28 Temmuz 2007 16:04

Cevap: Yasakli Kelimeler

#ircd kanalına mahsus !kekle kelime dedğinde yasak kelime ekliyorsun !ksil kelime dediğinde yasak kelimeleri siliyorsun ve bu kelimeler gecerse kanalda ceza alıyor karsı taraf bi bakımda badword addonu gibi bişi ama bunda silmede yapabiLiyorusun.....

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