IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 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/)
-   -   Gline Atma Remotesi Hk (https://www.ircforumlari.net/mirc-scripting-sorunlari/845600-gline-atma-remotesi-hk.html)

ByaSiL 29 Kasım 2019 09:21
Gline Atma Remotesi Hk
 
Merhabalar;

Sunucuda bulunduğum kanallarda belirleyeceğim kelimeyi yazan kişiyi sunucudan gline ile uzaklaştırmak istiyorum.
Bu kelime değişken olacaktır. Yani istediğimizde farklı bir kelime tanımlaması yapıp o kelimeyi kaldırabilmemiz gereklidir.

Ayrıca tarafımca atılan gline loglarını #kanal belirleyeceğim kanala yansıtmasını istiyorum.

Böyle birşey yapılabilirmi? Yapılırsa çok teşekkür ederim.

ZenqerDenq 02 Aralık 2019 15:38
Cevap: Gline Atma Remotesi Hk
 
Kod:
;/kekle kelime
alias kekle {
  if $1 {
    if $read(kufur.txt,w,$1) {
      echo -at $1 kelimesi zaten listede.
      return
    }
    else {
      write kufur.txt $1
      echo -at $1 kelimesi listeye eklendi.
    }
  }
}

;/ksil kelime
alias ksil {
  if $1 {
    if !$read(kufur.txt,w,$1) {
      echo -st $1 kelimesi listede yok.
      return
    }
    else {
      write $+(-dl,$readn) kufur.txt
      echo -st $1 kelimesi kufur listesinden silindi.
    }
  }
}

;/klist
alias klist {
  var %s = 1,%ss = $lines(kufur.txt)
  while %s <= %ss {
    echo -a Kelime: $read(kufur.txt,%s)
    inc %s
  }
}

;Esas kod
on @*:text:*:#:{
  var %s = 1,%ss = $lines(kufur.txt)
  while %s <= %ss {
    if $+(*,$read(kufur.txt,%s),*) iswm $1- {
      gline $nick  | msg #loglar $nick  $chan kanalında küfürlü konuşmaktan dolayı gline ile cezalandırıldı..
    }
    inc %s
  }
}

/kekle argo kelime ekler ( /kekle *sittir* )
/klist argo kelime listeler
/ksil argo kelime siler ( /ksil *sittir* )


gline $nick | msg #loglar $nick $chan kanalında küfürlü konuşmaktan dolayı gline ile cezalandırıldı.. yansıltımasını istediğin kanalı kendine göre düzenlersin..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:38 -->-> Daha önceki mesaj 15:11 --

Ek olarak gline $nick | msg #loglar $nick $chan kanalında küfürlü konuşmaktan dolayı gline ile cezalandırıldı. kullandığı argo kelime : $1- şeklinde ilave yapıla bilir.

OperServ 02 Aralık 2019 16:40
Cevap: Gline Atma Remotesi Hk
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1042199807)
Kod:
;/kekle kelime
alias kekle {
  if $1 {
    if $read(kufur.txt,w,$1) {
      echo -at $1 kelimesi zaten listede.
      return
    }
    else {
      write kufur.txt $1
      echo -at $1 kelimesi listeye eklendi.
    }
  }
}

;/ksil kelime
alias ksil {
  if $1 {
    if !$read(kufur.txt,w,$1) {
      echo -st $1 kelimesi listede yok.
      return
    }
    else {
      write $+(-dl,$readn) kufur.txt
      echo -st $1 kelimesi kufur listesinden silindi.
    }
  }
}

;/klist
alias klist {
  var %s = 1,%ss = $lines(kufur.txt)
  while %s <= %ss {
    echo -a Kelime: $read(kufur.txt,%s)
    inc %s
  }
}

;Esas kod
on @*:text:*:#:{
  var %s = 1,%ss = $lines(kufur.txt)
  while %s <= %ss {
    if $+(*,$read(kufur.txt,%s),*) iswm $1- {
      gline $nick  | msg #loglar $nick  $chan kanalında küfürlü konuşmaktan dolayı gline ile cezalandırıldı..
    }
    inc %s
  }
}

/kekle argo kelime ekler ( /kekle *sittir* )
/klist argo kelime listeler
/ksil argo kelime siler ( /ksil *sittir* )


gline $nick | msg #loglar $nick $chan kanalında küfürlü konuşmaktan dolayı gline ile cezalandırıldı.. yansıltımasını istediğin kanalı kendine göre düzenlersin..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:38 -->-> Daha önceki mesaj 15:11 --

Ek olarak gline $nick | msg #loglar $nick $chan kanalında küfürlü konuşmaktan dolayı gline ile cezalandırıldı. kullandığı argo kelime : $1- şeklinde ilave yapıla bilir.
Calismiyor ki kufur eklenmiyor

BlackForce 02 Aralık 2019 21:17
Cevap: Gline Atma Remotesi Hk
 
Kod:
on *:start:{ hmake gz | hload gz gz.BF }
on *:text:*:*: { if !$istok(#opers #opersohbet #kanal ,$chan,32) && !$istok(bf nick2 nick3 nick4 ,$nick,32) { if $hfind(gz,$strip($1-),1,W).data { gzline $nick Uygunsuz yazı. | msg #logch $nick atıldı cümlesi: $1- } } }
on *:input:*:{
  if -gzline == $1 {
    haltdef
    if !$hget(gz) { hmake gz | hsave gz gz.BF }
    if !$2 || !$3 && $2 != liste { echo -a 2*** $1 ekle / sil / tara / liste - kelime 2*** | halt }
    if $2 == ekle { if $hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli. | return } | var %n = $left($calc($ctime * $rand(1000,9999)),7) | hadd -m gz %n $3- | hsave -o gz gz.BF | echo -a $3- data'ya eklendi. }
    if $2 == sil { if !$hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli değil. | return } | hdel gz $hfind(gz,$3-,1,W).data | hsave -o gz gz.BF | hfree -sw gz | hmake gz | hload gz gz.BF | echo -a $3- data'dan silindi. }
    if $2 == tara { if !$hfind(gz,$strip($3-),0,W).data { echo -a gzline listemde $+([,$strip($3-),]) sorgusuna ait bir mask yok. | return } | echo -a Cümle: $strip($3-) - Mask: $+([,$chr(32),$hget(gz,$hfind(gz,$strip($3-),1,W).data),$chr(32),]) }
    if $2 == liste { if ($hget(gz,0).data == 0) { echo -a gzline listesi boş. | return } | echo -a Gzline listesi | echo -a - | var %i = 1 | while (%i <= $hget(gz,0).data) { echo -a %i $+ )  $hget(gz,%i).data | inc %i } | echo -a - | echo -a Gzline listesi sonu }
  }
}
-gzline ekle *wildcard* / kelime
-gzline sil *wildcard* / kelime
-gzline tara *wildcard* / kelime
-gzline liste

Muaf kanal eklemek icin, yesil ile isaretlenmis kisimlari editleyebilirsin.
Muaf nick eklemek icin, mor ile isaretlenmis kisimlari editleyebilirsin.
#Logch kanalina mesaj dusuyor. O kısım da mavi ile işaretli orayı da istersen editle.

Denemediğimi belirtmek isterim.

ZenqerDenq 03 Aralık 2019 06:05
Cevap: Gline Atma Remotesi Hk
 
Alıntı:
OperServ Nickli Üyeden Alıntı (Mesaj 1042199877)
Calismiyor ki kufur eklenmiyor
gayet sağlıklı calısıyor denendi

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ByaSiL 03 Aralık 2019 13:02
Cevap: Gline Atma Remotesi Hk
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1042199807)
Kod:
;/kekle kelime
alias kekle {
  if $1 {
    if $read(kufur.txt,w,$1) {
      echo -at $1 kelimesi zaten listede.
      return
    }
    else {
      write kufur.txt $1
      echo -at $1 kelimesi listeye eklendi.
    }
  }
}

;/ksil kelime
alias ksil {
  if $1 {
    if !$read(kufur.txt,w,$1) {
      echo -st $1 kelimesi listede yok.
      return
    }
    else {
      write $+(-dl,$readn) kufur.txt
      echo -st $1 kelimesi kufur listesinden silindi.
    }
  }
}

;/klist
alias klist {
  var %s = 1,%ss = $lines(kufur.txt)
  while %s <= %ss {
    echo -a Kelime: $read(kufur.txt,%s)
    inc %s
  }
}

;Esas kod
on @*:text:*:#:{
  var %s = 1,%ss = $lines(kufur.txt)
  while %s <= %ss {
    if $+(*,$read(kufur.txt,%s),*) iswm $1- {
      gline $nick  | msg #loglar $nick  $chan kanalında küfürlü konuşmaktan dolayı gline ile cezalandırıldı..
    }
    inc %s
  }
}

/kekle argo kelime ekler ( /kekle *sittir* )
/klist argo kelime listeler
/ksil argo kelime siler ( /ksil *sittir* )


gline $nick | msg #loglar $nick $chan kanalında küfürlü konuşmaktan dolayı gline ile cezalandırıldı.. yansıltımasını istediğin kanalı kendine göre düzenlersin..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:38 -->-> Daha önceki mesaj 15:11 --

Ek olarak gline $nick | msg #loglar $nick $chan kanalında küfürlü konuşmaktan dolayı gline ile cezalandırıldı. kullandığı argo kelime : $1- şeklinde ilave yapıla bilir.

Muaf Kanal ,
Muaf Nick ,
Ve Gline Sebebi belirtmem lazım nereleri düzenlemem gerekir.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:02 -->-> Daha önceki mesaj 13:02 --

Alıntı:
BlackForce Nickli Üyeden Alıntı (Mesaj 1042200059)
Kod:
on *:start:{ hmake gz | hload gz gz.BF }
on *:text:*:*: { if !$istok(#opers #opersohbet #kanal ,$chan,32) && !$istok(bf nick2 nick3 nick4 ,$nick,32) { if $hfind(gz,$strip($1-),1,W).data { gzline $nick Uygunsuz yazı. | msg #logch $nick atıldı cümlesi: $1- } } }
on *:input:*:{
  if -gzline == $1 {
    haltdef
    if !$hget(gz) { hmake gz | hsave gz gz.BF }
    if !$2 || !$3 && $2 != liste { echo -a 2*** $1 ekle / sil / tara / liste - kelime 2*** | halt }
    if $2 == ekle { if $hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli. | return } | var %n = $left($calc($ctime * $rand(1000,9999)),7) | hadd -m gz %n $3- | hsave -o gz gz.BF | echo -a $3- data'ya eklendi. }
    if $2 == sil { if !$hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli değil. | return } | hdel gz $hfind(gz,$3-,1,W).data | hsave -o gz gz.BF | hfree -sw gz | hmake gz | hload gz gz.BF | echo -a $3- data'dan silindi. }
    if $2 == tara { if !$hfind(gz,$strip($3-),0,W).data { echo -a gzline listemde $+([,$strip($3-),]) sorgusuna ait bir mask yok. | return } | echo -a Cümle: $strip($3-) - Mask: $+([,$chr(32),$hget(gz,$hfind(gz,$strip($3-),1,W).data),$chr(32),]) }
    if $2 == liste { if ($hget(gz,0).data == 0) { echo -a gzline listesi boş. | return } | echo -a Gzline listesi | echo -a - | var %i = 1 | while (%i <= $hget(gz,0).data) { echo -a %i $+ )  $hget(gz,%i).data | inc %i } | echo -a - | echo -a Gzline listesi sonu }
  }
}
-gzline ekle *wildcard* / kelime
-gzline sil *wildcard* / kelime
-gzline tara *wildcard* / kelime
-gzline liste

Muaf kanal eklemek icin, yesil ile isaretlenmis kisimlari editleyebilirsin.
Muaf nick eklemek icin, mor ile isaretlenmis kisimlari editleyebilirsin.
#Logch kanalina mesaj dusuyor. O kısım da mavi ile işaretli orayı da istersen editle.

Denemediğimi belirtmek isterim.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Sebebi nereye belirteceğiz.

BlackForce 03 Aralık 2019 15:06
Cevap: Gline Atma Remotesi Hk
 
Alıntı:
ByaSiL Nickli Üyeden Alıntı (Mesaj 1042200564)
Muaf Kanal ,
Muaf Nick ,
Ve Gline Sebebi belirtmem lazım nereleri düzenlemem gerekir.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:02 -->-> Daha önceki mesaj 13:02 --




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Sebebi nereye belirteceğiz.
Kod:
alias -l muafnickler return nick1 dfd nick3 nick4
alias -l muafchan return #oper #opersohbet #bf
alias -l logch return #logch
alias -l islem return gzline
alias -l islemSebep return Uygunsuz yazı.

on *:start:{ hmake gz | hload gz gz.BF }
on *:text:*:*: { if !$istok($muafchan ,$chan,32) && !$istok($muafnickler ,$nick,32) { if $hfind(gz,$strip($1-),1,W).data { echo -a $islem $nick $islemSebep | msg $logch 2 $nick atıldı! 04-> $1- 04<- 2CH 04-> $chan 04<- } } }
on *:input:*:{
  if -gzline == $1 {
    haltdef
    if !$hget(gz) { hmake gz | hsave gz gz.BF }
    if !$2 || !$3 && $2 != liste { echo -a 2*** $1 ekle / sil / tara / liste - kelime 2*** | halt }
    if $2 == ekle { if $hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli. | return } | var %n = $left($calc($ctime * $rand(1000,9999)),7) | hadd -m gz %n $3- | hsave -o gz gz.BF | echo -a $3- data'ya eklendi. }
    if $2 == sil { if !$hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli değil. | return } | hdel gz $hfind(gz,$3-,1,W).data | hsave -o gz gz.BF | hfree -sw gz | hmake gz | hload gz gz.BF | echo -a $3- data'dan silindi. }
    if $2 == tara { if !$hfind(gz,$strip($3-),0,W).data { echo -a gzline listemde $+([,$strip($3-),]) sorgusuna ait bir mask yok. | return } | echo -a Cümle: $strip($3-) - Mask: $+([,$chr(32),$hget(gz,$hfind(gz,$strip($3-),1,W).data),$chr(32),]) }
    if $2 == liste { if ($hget(gz,0).data == 0) { echo -a gzline listesi boş. | return } | echo -a Gzline listesi | echo -a - | var %i = 1 | while (%i <= $hget(gz,0).data) { echo -a %i $+ )  $hget(gz,%i).data | inc %i } | echo -a - | echo -a Gzline listesi sonu }
  }
}
alias -l muafnickler return nick1 dfd nick3 nick4 -- Muaf nickleri düzenleyebilirsin.
alias -l muafchan return #oper #opersohbet #bf -- Muaf kanalları düzenleyebilirsin.
alias -l logch return #logch -- Bilgi düşecek kanalı düzenleyebilirsin.
alias -l islem return gzline -- Yapılacak işlemi düzenleyebilirsin.
alias -l islemSebep return Uygunsuz yazı. -- Hangi sebeple işlem yapılacağını düzenleyebilirsin.

Return ifadesinden sonra düzenlemeleri yapmaya dikkat et.

ByaSiL 04 Aralık 2019 20:01
Cevap: Gline Atma Remotesi Hk
 
Alıntı:
BlackForce Nickli Üyeden Alıntı (Mesaj 1042200718)
Kod:
alias -l muafnickler return nick1 dfd nick3 nick4
alias -l muafchan return #oper #opersohbet #bf
alias -l logch return #logch
alias -l islem return gzline
alias -l islemSebep return Uygunsuz yazı.

on *:start:{ hmake gz | hload gz gz.BF }
on *:text:*:*: { if !$istok($muafchan ,$chan,32) && !$istok($muafnickler ,$nick,32) { if $hfind(gz,$strip($1-),1,W).data { echo -a $islem $nick $islemSebep | msg $logch 2 $nick atıldı! 04-> $1- 04<- 2CH 04-> $chan 04<- } } }
on *:input:*:{
  if -gzline == $1 {
    haltdef
    if !$hget(gz) { hmake gz | hsave gz gz.BF }
    if !$2 || !$3 && $2 != liste { echo -a 2*** $1 ekle / sil / tara / liste - kelime 2*** | halt }
    if $2 == ekle { if $hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli. | return } | var %n = $left($calc($ctime * $rand(1000,9999)),7) | hadd -m gz %n $3- | hsave -o gz gz.BF | echo -a $3- data'ya eklendi. }
    if $2 == sil { if !$hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli değil. | return } | hdel gz $hfind(gz,$3-,1,W).data | hsave -o gz gz.BF | hfree -sw gz | hmake gz | hload gz gz.BF | echo -a $3- data'dan silindi. }
    if $2 == tara { if !$hfind(gz,$strip($3-),0,W).data { echo -a gzline listemde $+([,$strip($3-),]) sorgusuna ait bir mask yok. | return } | echo -a Cümle: $strip($3-) - Mask: $+([,$chr(32),$hget(gz,$hfind(gz,$strip($3-),1,W).data),$chr(32),]) }
    if $2 == liste { if ($hget(gz,0).data == 0) { echo -a gzline listesi boş. | return } | echo -a Gzline listesi | echo -a - | var %i = 1 | while (%i <= $hget(gz,0).data) { echo -a %i $+ )  $hget(gz,%i).data | inc %i } | echo -a - | echo -a Gzline listesi sonu }
  }
}
alias -l muafnickler return nick1 dfd nick3 nick4 -- Muaf nickleri düzenleyebilirsin.
alias -l muafchan return #oper #opersohbet #bf -- Muaf kanalları düzenleyebilirsin.
alias -l logch return #logch -- Bilgi düşecek kanalı düzenleyebilirsin.
alias -l islem return gzline -- Yapılacak işlemi düzenleyebilirsin.
alias -l islemSebep return Uygunsuz yazı. -- Hangi sebeple işlem yapılacağını düzenleyebilirsin.

Return ifadesinden sonra düzenlemeleri yapmaya dikkat et.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] öncelikle teşekkür ederim.
Birşey daha sormak istiyorum. Kelime yerine Regex eklemesi yapsak işlermi?

ByaSiL 08 Aralık 2019 10:33
Cevap: Gline Atma Remotesi Hk
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çallışmadı verdiğiniz remote hiçbir işlem yapmıyor. Belirtilen kelime için

BlackForce 08 Aralık 2019 19:01
Cevap: Gline Atma Remotesi Hk
 
Alıntı:
ByaSiL Nickli Üyeden Alıntı (Mesaj 1042204588)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çallışmadı verdiğiniz remote hiçbir işlem yapmıyor. Belirtilen kelime için
Kod:
alias -l muafnickler return nick1 dfd nick3 nick4
alias -l muafchan return #oper #opersohbet #bf
alias -l logch return #logch
alias -l islem return gzline
alias -l islemSebep return Uygunsuz yazı.

on *:start:{ hmake gz | hload gz gz.BF }
on *:text:*:*: { if !$istok($muafchan ,$chan,32) && !$istok($muafnickler ,$nick,32) { if $hfind(gz,$strip($1-),1,W).data { $islem $nick $islemSebep | msg $logch 2 $nick atıldı! 04-> $1- 04<- 2CH 04-> $chan 04<- } } }
on *:input:*:{
  if -gzline == $1 {
    haltdef
    if !$hget(gz) { hmake gz | hsave gz gz.BF }
    if !$2 || !$3 && $2 != liste { echo -a 2*** $1 ekle / sil / tara / liste - kelime 2*** | halt }
    if $2 == ekle { if $hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli. | return } | var %n = $left($calc($ctime * $rand(1000,9999)),7) | hadd -m gz %n $3- | hsave -o gz gz.BF | echo -a $3- data'ya eklendi. }
    if $2 == sil { if !$hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli değil. | return } | hdel gz $hfind(gz,$3-,1,W).data | hsave -o gz gz.BF | hfree -sw gz | hmake gz | hload gz gz.BF | echo -a $3- data'dan silindi. }
    if $2 == tara { if !$hfind(gz,$strip($3-),0,W).data { echo -a gzline listemde $+([,$strip($3-),]) sorgusuna ait bir mask yok. | return } | echo -a Cümle: $strip($3-) - Mask: $+([,$chr(32),$hget(gz,$hfind(gz,$strip($3-),1,W).data),$chr(32),]) }
    if $2 == liste { if ($hget(gz,0).data == 0) { echo -a gzline listesi boş. | return } | echo -a Gzline listesi | echo -a - | var %i = 1 | while (%i <= $hget(gz,0).data) { echo -a %i $+ )  $hget(gz,%i).data | inc %i } | echo -a - | echo -a Gzline listesi sonu }
  }
}
Echo kısmini gözden kaçırmışım.


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net