Gline Atma Remotesi Hk - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

ByaSiL · 29 Kasım 2019, 09:21

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

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

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

ZenqerDenq 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!

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

ZenqerDenq · 03 Aralık 2019, 06:05

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

Calismiyor ki kufur eklenmiyor

gayet sağlıklı calısıyor denendi

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

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

ByaSiL · 03 Aralık 2019, 13:02

ZenqerDenq 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!

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

BlackForce 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 *: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

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

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: Kodu kopyalamak için üzerine çift tıklayın!

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

BlackForce 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!

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?

AkMaN · 28 Aralık 2019, 02:38

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

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.

bunu badnick olarak uygulamamız mümkünmüdür acaba

BlackForce · 02 Aralık 2019, 21:17

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

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.

ByaSiL · 08 Aralık 2019, 10:33

@[Ü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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Çözüldü Seslenme Remotesi	Elbistanli87	mIRC Scripting Sorunları	2	21 Mayıs 2019 18:26
Gülle Atma - Gülle Atma Hakkında Genel Bilgiler	Liaaa	Hobiler	0	29 Şubat 2012 14:49
Oto +l remotesi yardım!!!	deLuxe	mIRC Scripting Sorunları	1	11 Mart 2010 05:59
Sunucuya Giren Düşmana Direk Gline Atma Kodu Lazım	HatayTiM	mIRC Scripting Sorunları	4	13 Haziran 2007 00:36

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 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.