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/)
-   -   bad nick koruma ilave (https://www.ircforumlari.net/mirc-scripting-sorunlari/604575-bad-nick-koruma-ilave.html)

Packard 12 Ağustos 2014 15:51
bad nick koruma ilave
 
arkadaşlar bende blacklist koruması var.
fakat bu listeye ilave olarak attığım her ban'ın oto eklenmesini istiyorum.

normalde diyalog dan eklediğim bad nickler kelebek/scripting/ini/remote.ini
[users] alt kısmına badnick önüne n0=666:*badnick*!*@* n1=666:*badnick*!*@* n2=666:*badnick*!*@*kırmızı ile belirttiğim kısım geliyor.
bu kısmın eklenmemesi için ne tür değişiklik yapmam gerekir kodda
ve ban attığım rumuzlar listeye oto eklensin.
ve !badtara dediğimde listemde olup kanalda olanlar banlansın.



Kod:
alias blacklist { if ($dialog(blacklist)) { dialog -c blacklist } | dialog -ma blacklist blacklist }
dialog blacklist {
  size -1 -1 295 346
  title "blacklist"
  Combo 1, 1 1 240 330
  button "&ADD", 2, 244 2 50 22
  button "&DEL", 3, 244 24 50 22
  button "OK", 4, 244 324 50 22,ok
  Check "BLCK ON" , 5 , 1 327 241 20
}
on *:dialog:blacklist:*:*: {
  if ($devent == init) { blacklist.init }
  if ($devent == sclick) {
    if ($did == 2) { if ($did(1) != $null) { /.auser 666 $did(1) | blacklist.init } }
    if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | blacklist.init } }
    if ($did == 5) {
      writeini $+(",$mircini,") blacklist blacklist $iif($did(5).state == 1,on,off)
    }
  }
}
alias blacklist.init {
  did -r blacklist 1
  if ($readini $+(",$mircini,") blacklist blacklist == on) { did -c blacklist 5 }
  set %ul 1
  while (%ul <= $ulist(*,0)) {
    if ($level($ulist(*,%ul)) == 666) { did -a blacklist 1 $ulist(*,%ul) }
    inc %ul 1
  }
  unset %ul
}
on 666:join:#: {
  if ($readini $+(",$mircini,") blacklist blacklist == on) {
    if (($me isop $chan) || ($me ishelp $chan)) {
      ban -u500 $chan $+($nick,$1,!*@*) | kick $chan $nick 7  /Nick Yeninick 4  Komutuyla nickinizi Değiştirip 10 Dakika Sonra Tekrar Kanala Girmeyi Deneyiniz 5 $me
    }
  }
}
on 666:part:#: {
  if ($readini $+(",$mircini,") blacklist blacklist == on) {
    if (($me isop $chan) || ($me ishelp $chan)) {
      Echo Dikkat $nick Karalistede..
    }
  }
}

aLone 12 Ağustos 2014 19:21
Cevap: bad nick koruma ilave
 
Kod:
#shilisten on
on @*:join:#: {
  if $level($nick $+ !*@*) == badnick {
    banall $nick $ulist($nick,badnick,1)
    kickall $nick KanaLda Girişin Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:part:#: {
  if $level($nick $+ !*@*) == badnick {
    mode # +b $ulist($nick,badnick,1)
    kick # $nick KanaLdan Çıkışın Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:nick: {
  if $level($newnick $+ !*@*) == badnick {
    banall $newnick $ulist($newnick,badnick,1)
    kickall $newnick New-Nick ‘iniz ßad oLarak Tespit ediLdi Nick değiştirerek Tekrar Giriniz ! ßy $me
  }
}

#shilisten end

alias banall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
    inc %i
  }
}
alias kickall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
    inc %i
  }
}
menu * {
  -
  + Badnick
  .+ ekLe:/auser badnick $$1
  .+ çıkart:/ruser badnick $$1
  .+ ListeLe:/ulist badnick
  + Korumayı
  .+ Aç:/enable #shilisten | /echo -at biLgi; Badnick Koruması AçıLdı..
  .+ Kapat:/disable #shilisten | /echo -at biLgi; Badnick Koruması kapatıLdı..
  -
}
on *:input:*:{
  if $1 == !badtara { tara $chan | msg $chan $chan kanalı taranıyor }
}
on *:ban:#: {
  if $nick == $me { auser badnick $bnick | echo -a $bnick badnick liste eklendi. }
}
alias tara {
  var %t = 1,
  while (%t <= $nick($1,0)) {
    var %badnick = $nick($1,%t)
    if ($level($nick($1,%t)) == badnick) { mode $1 +b $ulist(%badnick) | kick $1 %badnick  Nick Uygunsuz }
    inc %t 1
  }
}
dilersen bunu kullanabilirsin
badnick taraması atılan banın listeye eklenmeside aktif edildi.

Packard 12 Ağustos 2014 19:30
Cevap: bad nick koruma ilave
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041473159)
Kod:
#shilisten on
on @*:join:#: {
  if $level($nick $+ !*@*) == badnick {
    banall $nick $ulist($nick,badnick,1)
    kickall $nick KanaLda Girişin Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:part:#: {
  if $level($nick $+ !*@*) == badnick {
    mode # +b $ulist($nick,badnick,1)
    kick # $nick KanaLdan Çıkışın Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:nick: {
  if $level($newnick $+ !*@*) == badnick {
    banall $newnick $ulist($newnick,badnick,1)
    kickall $newnick New-Nick ‘iniz ßad oLarak Tespit ediLdi Nick değiştirerek Tekrar Giriniz ! ßy $me
  }
}

#shilisten end

alias banall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
    inc %i
  }
}
alias kickall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
    inc %i
  }
}
menu * {
  -
  + Badnick
  .+ ekLe:/auser badnick $$1
  .+ çıkart:/ruser badnick $$1
  .+ ListeLe:/ulist badnick
  + Korumayı
  .+ Aç:/enable #shilisten | /echo -at biLgi; Badnick Koruması AçıLdı..
  .+ Kapat:/disable #shilisten | /echo -at biLgi; Badnick Koruması kapatıLdı..
  -
}
on *:input:*:{
  if $1 == !badtara { tara $chan | msg $chan $chan kanalı taranıyor }
}
on *:ban:#: {
  if $nick == $me { auser badnick $bnick | echo -a $bnick badnick liste eklendi. }
}
alias tara {
  var %t = 1,
  while (%t <= $nick($1,0)) {
    var %badnick = $nick($1,%t)
    if ($level($nick($1,%t)) == badnick) { mode $1 +b $ulist(%badnick) | kick $1 %badnick  Nick Uygunsuz }
    inc %t 1
  }
}
dilersen bunu kullanabilirsin
badnick taraması atılan banın listeye eklenmeside aktif edildi.
teşekkürler

aLone 12 Ağustos 2014 19:35
Cevap: bad nick koruma ilave
 
kullanıcı bölümüne ekleniyor, ALT+R tusuna bastıgınızda acılan panelde yukarı sağda.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Packard 13 Ağustos 2014 11:18
Cevap: bad nick koruma ilave
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041473167)
kullanıcı bölümüne ekleniyor, ALT+R tusuna bastıgınızda acılan panelde yukarı sağda.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
* /auser: Yetersiz veya eksik parametre (Satır 52, karaliste.cpl) hatası veriyor hocam

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 11:05 -->-> Daha önceki mesaj 09:25 --

ve badnick nasıl ekleyeceğiz.
banladıklarımız dışında bir mask ekleyeceğiz örneğin.
*nick*!*@* şeklinde kolay yoldan nasıl ekleriz diğer kodumda mesela pencere vardı açıp ekliyordum.
ve bir bad nicki komutla nasıl çıkartacağız.

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

benim scriptte +R kapalı.
dosyaya girip bulmam lazım fakat şöyle bir durum var eklediğim dosyada hemen görünmüyor çıkardığımda hemen çıkmıyor scripti açıp kapatmam lazım.
komutla ekleyip veya eklediğimi çıkartabilmeliyim.

onun dışında kanalda banladığım ekleniyor veya kanalda hazırda bulunan bad nicki ekle/çıkar yapabiliyorum.

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

tamamdır sorun hal edildi teşekkür ederim.

/auser badnick nick ile ekleniyor
/ruser badnick nick ile çıkartılıyor.

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

tek sorun statüs'te

* /auser: Yetersiz veya eksik parametre (Satır 52, karaliste.cpl)
hatası veriyor.

orhanuya2 14 Ağustos 2014 13:24
Cevap: bad nick koruma ilave
 
kanalları nasıl muaf edicez onuda bir söylermısınız

aLone 14 Ağustos 2014 18:38
Cevap: bad nick koruma ilave
 
Kod:
#shilisten on
on @*:join:#: {
  if !$istok(#muaf1 #muaf2 #muaf3,$chan,32) {
    if $level($nick $+ !*@*) == badnick {
      banall $nick $ulist($nick,badnick,1)
      kickall $nick KanaLda Girişin Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
    }
  }
}
on *:part:#: {
  if $level($nick $+ !*@*) == badnick {
    mode # +b $ulist($nick,badnick,1)
    kick # $nick KanaLdan Çıkışın Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:nick: {
  if $level($newnick $+ !*@*) == badnick {
    banall $newnick $ulist($newnick,badnick,1)
    kickall $newnick New-Nick ‘iniz ßad oLarak Tespit ediLdi Nick değiştirerek Tekrar Giriniz ! ßy $me
  }
}

#shilisten end

alias banall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
    inc %i
  }
}
alias kickall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
    inc %i
  }
}
menu * {
  -
  + Badnick
  .+ ekLe:/auser badnick $$1
  .+ çıkart:/ruser badnick $$1
  .+ ListeLe:/ulist badnick
  + Korumayı
  .+ Aç:/enable #shilisten | /echo -at biLgi; Badnick Koruması AçıLdı..
  .+ Kapat:/disable #shilisten | /echo -at biLgi; Badnick Koruması kapatıLdı..
  -
}
on *:input:*:{
  if $1 == !badtara { tara $chan | msg $chan $chan kanalı taranıyor }
}
on *:ban:#: {
  if $nick == $me { auser badnick $bnick | echo -a $bnick badnick liste eklendi. }
}
alias tara {
  var %t = 1,
  while (%t <= $nick($1,0)) {
    var %badnick = $nick($1,%t)
    if ($level($nick($1,%t)) == badnick) { mode $1 +b $ulist(%badnick) | kick $1 %badnick  Nick Uygunsuz }
    inc %t 1
  }
}

orhanuya2 14 Ağustos 2014 19:09
Cevap: bad nick koruma ilave
 
kanaldan cıkısada aynısını yapsak oluyormu kardesım ?

aLone 14 Ağustos 2014 19:21
Cevap: bad nick koruma ilave
 
Kod:
on *:part:#: {
  if !$istok(#muaf1 #muaf2 #muaf3,$chan,32) {
    if $level($nick $+ !*@*) == badnick {
      mode # +b $ulist($nick,badnick,1)
      kick # $nick KanaLdan Çıkışın Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
    }
  }
}
bu sekılde değiştir

orhanuya2 14 Ağustos 2014 19:26
Cevap: bad nick koruma ilave
 
oas scprit kullanayı bılıyomsn alone anlarmısın ?

aLone 14 Ağustos 2014 19:31
Cevap: bad nick koruma ilave
 
Alıntı:
orhanuya2 Nickli Üyeden Alıntı (Mesaj 1041473950)
oas scprit kullanayı bılıyomsn alone anlarmısın ?
Script kodlarıyla alakalı bir sıkıntı problem varsa paylaşırsan yardımcı oluruz
orhanuya2
Kullanmadım nasıl bir script bilmiyorum

orhanuya2 14 Ağustos 2014 19:59
Cevap: bad nick koruma ilave
 
* /auser: Yetersiz veya eksik parametre (Satır 56, script20.ini)
-
* /auser: Yetersiz veya eksik parametre (Satır 56, script20.ini)
-
azgınherif #Geveze They aren't on that channel
-
* /auser: Yetersiz veya eksik parametre (Satır 56, script20.ini)




bakarmısın bu kodda muaffları ekledim ama muaf olmuyor bu hatayı veriyor bide biraz yawas sankı badnick koruma bildiğin hızlı süper çalişan badnick koruma varmıdır ?

aLone 14 Ağustos 2014 20:17
Cevap: bad nick koruma ilave
 
Hash tables olarak yazılmıs korumalar daha hızlıdır.. bu tür yazılmış korumalar Hazır kodlar bölümünde mevcuttur, arama yaparsanız mutlakakı bulursunuz.

Ekleme şekli /auser badnick deneme
Alacagın yanıt : * deneme Kullanıcı listesine eklendi
kullanıcı bölümünde eklenmiş hali : badnick:deneme
Scriptinizle alakalı bir problem olabilir

c00 14 Ağustos 2014 20:36
Cevap: bad nick koruma ilave
 
o muaf kısımları metin belgesinin içine kanalalrı yazsak öyle okutsak daha iyi olur bence ikide bir kodda duzenleme yabmaya gerek kalmaz benim düşüncem öyle.

aLone 14 Ağustos 2014 20:57
Cevap: bad nick koruma ilave
 
if $read(muafkanal.txt,w,#) { return }
dilerse oylede ekleyebilir

c00 14 Ağustos 2014 21:01
Cevap: bad nick koruma ilave
 
bu kod oldu şimdi baska bişe türedi : )

!muafkanal ekle #sohbet gibi de eklenebilir : )
!muafkanal sil
!muafkanal list vs vs .

aLone 14 Ağustos 2014 21:06
Cevap: bad nick koruma ilave
 
c00 :) peki onuda sen ekle verde kullanmak isterlerse kullansınlar :)

c00 14 Ağustos 2014 21:36
Cevap: bad nick koruma ilave
 
Kod:
on *:text:*:#opers:{
  if $1 == !muafkanal {
    if !$read(admin.txt,w,$nick) { msg # 2 Bu komutu kullanmaya yetkili degilsin. | return }
    if !$2 { msg # Komut kullanımı; 2 !muafkanal ekle - sil - list | return }
    if $2 == ekle {
      if !$3 || *.*.* !iswm $3 { msg # 2 Lütfen  kanal  belirtiniz. | return }
      if $read(muafkanal.txt,w,$3) { msg # 2 Belirtilen  kanal  listede ekli. | return }
      .write muafkanal.txt $3 | msg # $3 2 muaf kanal olarak eklendi.
    }
    if $2 == sil {
      if !$3 || *.*.* !iswm $3 { msg # Lütfen kanal belirtiniz. | return }
      if !$read(muafkanal.txt,w,$3) { msg # 2 Belirtilen  kanal  listede bulunmamaktadır. | return }
      .write $+(-ds,$3) muafkanal.txt | msg # $3  2 muaf kanal listesinden silindi.
    }
    if $2 == list {
      if $lines(muafkanal.txt) == 0 { msg # 2 Muaf  Kanal  listesi boş. | return }
      msg # 2 Muaf  Kanal  Listesi
      msg # 
      var %:ip = 1 | while %:ip <= $lines(muafkanal.txt) {
        msg # %:ip $+ -) $read(muafkanal.txt,%:ip)
        inc %:ip
      }
      msg # 
      msg #  2 Muaf  Kanal  Listesi Sonu
    }
  }
}
eksık olabilie : d

aLone 14 Ağustos 2014 21:48
Cevap: bad nick koruma ilave
 
en büyük hata burası
*.*.*
o bölümü *#* bu sekılde deiş

Kod:
on *:text:*:#opers:{
  if $1 == !muafkanal {
    if !$read(admin.txt,w,$nick) { msg # 2 Bu komutu kullanmaya yetkili degilsin. | return }
    if !$2 { msg # Komut kullanımı; 2 !muafkanal ekle - sil - list | return }
    if $2 == ekle {
      if !$3 || *#* !iswm $3 { msg # 2 Lütfen  kanal  belirtiniz. | return }
      if $read(muafkanal.txt,w,$3) { msg # 2 Belirtilen  kanal  listede ekli. | return }
      .write muafkanal.txt $3 | msg # $3 2 muaf kanal olarak eklendi.
    }
    if $2 == sil {
      if !$3 || *#* !iswm $3 { msg # Lütfen kanal belirtiniz. | return }
      if !$read(muafkanal.txt,w,$3) { msg # 2 Belirtilen  kanal  listede bulunmamaktadır. | return }
      .write $+(-ds,$3) muafkanal.txt | msg # $3  2 muaf kanal listesinden silindi.
    }
    if $2 == list {
      if $lines(muafkanal.txt) == 0 { msg # 2 Muaf  Kanal  listesi boş. | return }
      msg # 2 Muaf  Kanal  Listesi
      msg # -
      var %:ip = 1 | while %:ip <= $lines(muafkanal.txt) {
        msg # %:ip $+ -) $read(muafkanal.txt,%:ip)
        inc %:ip
      }
      msg # -
      msg #  2 Muaf  Kanal  Listesi Sonu
    }
  }
}

xwerswoodx 15 Ağustos 2014 09:12
Cevap: bad nick koruma ilave
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041474038)
en büyük hata burası
*.*.*
o bölümü *#* bu sekılde deiş

Kod:
on *:text:*:#opers:{
  if $1 == !muafkanal {
    if !$read(admin.txt,w,$nick) { msg # 2 Bu komutu kullanmaya yetkili degilsin. | return }
    if !$2 { msg # Komut kullanımı; 2 !muafkanal ekle - sil - list | return }
    if $2 == ekle {
      if !$3 || *#* !iswm $3 { msg # 2 Lütfen  kanal  belirtiniz. | return }
      if $read(muafkanal.txt,w,$3) { msg # 2 Belirtilen  kanal  listede ekli. | return }
      .write muafkanal.txt $3 | msg # $3 2 muaf kanal olarak eklendi.
    }
    if $2 == sil {
      if !$3 || *#* !iswm $3 { msg # Lütfen kanal belirtiniz. | return }
      if !$read(muafkanal.txt,w,$3) { msg # 2 Belirtilen  kanal  listede bulunmamaktadır. | return }
      .write $+(-ds,$3) muafkanal.txt | msg # $3  2 muaf kanal listesinden silindi.
    }
    if $2 == list {
      if $lines(muafkanal.txt) == 0 { msg # 2 Muaf  Kanal  listesi boş. | return }
      msg # 2 Muaf  Kanal  Listesi
      msg # -
      var %:ip = 1 | while %:ip <= $lines(muafkanal.txt) {
        msg # %:ip $+ -) $read(muafkanal.txt,%:ip)
        inc %:ip
      }
      msg # -
      msg #  2 Muaf  Kanal  Listesi Sonu
    }
  }
}
Kanal sorgulamıyor, ip sorguluyor. En az 3 . olması gerektiğini sorgulamış orda ki * diye ip eklenmesin ama yine hatalı *.*.*.* olarak ekler. *?.?*.* olarak eklenmesi daha sağlıklı olur. *#* sorgusuda hiç bir zaman ip ile eşleşmez.

aLone 15 Ağustos 2014 12:30
Cevap: bad nick koruma ilave
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Konuyu tamamen okumamışsın,
normalde kod toprak ın paylaştıgı muafip.txt belgesine 88.99.188.222 gibi ip eklemek için yazılmış.
Kod:
if !$3 || *#* !iswm $3
burada $3 koşulu olmalı ve $3 ün de içerisinde *#* işareti olması gerektiği, bunlar dahilinde kode işlevini tamamlıyacaktır denilmiş.
Kısacası kodun orjınal hali ip eklemeleri için *.*.* şeklinde olup kucuk değişiklikle muafkanal.txt belgesine #kanala, #kanalb, #kanalc, şeklinde kanal eklettirmek için *.*.* kaldırılıp kanal ibaresi *#* eklenmiş olup
!Muafkanal Ekle #Sohbet
!Muafkanal Ekle #Radyo
gibi çalışmaktadır yukarda belirttiğim gibi *.*.* silinip *#* eklenip amaç olarak sadece muafkanal.txt belgesine
#kanal1
#kanal2
#kanal3
şeklinde eklettirmek amaçlanmıştır..

aLone 15 Ağustos 2014 20:24
Cevap: bad nick koruma ilave
 
Kod:
on 1:start:{
  hmake badnick
  hload badnick badnick.db
}
dialog bad_s {
  title "Badnick"
  size -1 -1 80 64
  option dbu
  edit "", 1, 2 1 50 10
  button "EKLE", 2, 53 2 25 8
  button "Liste", 6, 53 23 25 8
  edit "", 3, 2 12 50 10
  button "SiL", 4, 53 13 25 8
  button "Kapat", 5, 2 43 77 10, ok
}
on *:dialog:bad_s:*:*: {
  if $devent == SCLICK {
    if $did == 2 {
      hadd -m badnick $r(1000,999999) $did(1).text
      hsave badnick badnick.db
      .echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.
    }
    if $did == 6 {
      var %i = 1
      while %i <= $hget(badnick,0).item {
        echo -a %i $+ -) $hget(badnick,%i).data
        inc %i
      }
    }
    if $did == 4 {
      var %; $did(3).text
      if $hfind(badnick,%;,1,W).data {
        hdel badnick $ifmatch
        hsave badnick badnick.db
        .echo $colour(info) -a $timestamp *** $+(4,%;,) Veritabanından silindi.
      }
      else { .echo $colour(info) -a $timestamp *** $+(4,%;,) Veritabanında bulunamadı. }
    }
  }
}
on ^*:join:#:{
  if ($me ishop $chan) {
    if !$istok(#muaf1 #muaf2 #muaf3,$chan,32) {
      if !$istok(nick1 nick2 nick3,$nick,32) {
        if !$regex($gettok($address($nick,1),2,64),/(admin|oper|helper|global|yardimci|aop|op|ircop|global|sop|founder)/i) {
          if $hfind(badnick,$nick,1,W).data {
            .mode # +b $nick
            .kick # $nick nick değişip tekrar giriniz
          }
        }
      }
    }
  }
}
menu * {
  -
  + badnick koruması:/dialog -m bad_s bad_s
  -
}
Basit küçük bir diyalog muaf nick, muaf kanal, muaf host eklenebılır
ekle, sil, listele, şeklinde badnick işlemleride yapılır :)

xwerswoodx 15 Ağustos 2014 20:29
Cevap: bad nick koruma ilave
 
Evet şimdi dikkat ettim muaf kanalmış o zaman a#a gibi eklemeleri engellemek için en sağlıklı yol
Kod:
#?*
yada
Kod:
$regex($3,^#([a-zA-Z0-9ğĞçÇiİşŞüÜöÖ]+$))
gibi bir sorguda yapılabilir

IrCbaStarD 15 Ağustos 2014 22:14
Cevap: bad nick koruma ilave
 
Alıntı:
xwerswoodx Nickli Üyeden Alıntı (Mesaj 1041474580)
Kod:
$regex($3,^#([a-zA-Z0-9ğĞçÇiİşŞüÜöÖ]+$))
gibi bir sorguda yapılabilir
yada :P
Kod:
$regex($3,^#.+)
$regex($3,^#\S+$)
geriye  dönük referans aticaksa :p
$regex($3,^(#.+))
kafa karistirmaya gerek yok :p

Packard 26 Ağustos 2014 16:44
Cevap: bad nick koruma ilave
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041473167)
kullanıcı bölümüne ekleniyor, ALT+R tusuna bastıgınızda acılan panelde yukarı sağda.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
hocam teşekkürler çok güzel bir kod oldu.
peki biz başka bir rumuzun attığı ban'ı ban listemize ekleyebilirmiyiz?

biz ban attığımızda nasılki oto banlist'e ekleniyorsa.
aynı şekilde ahmet rumuzunun attığı ban benim ban liste eklensin?

aLone 26 Ağustos 2014 17:57
Cevap: bad nick koruma ilave
 
bu bölümü sil
Kod:
on *:ban:#: {  if $nick == $me { auser badnick $bnick | echo -a $bnick badnick liste eklendi. } }
Bunu ekle
Kod:
on *:ban:#: {
  auser badnick $bnick | echo -a $bnick badnick liste eklendi.
}
bu oto banlar sağlıklı olmaz haberin olsun, yanlışlıkla birine kanalda ban atılsa +b uygulanırsa scriptin oto ekler onu badnick listesine, buda sağlıklı olmaz yinede sana kalmış..

Packard 27 Ağustos 2014 11:58
Cevap: bad nick koruma ilave
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041479962)
bu bölümü sil
Kod:
on *:ban:#: {  if $nick == $me { auser badnick $bnick | echo -a $bnick badnick liste eklendi. } }
Bunu ekle
Kod:
on *:ban:#: {
  auser badnick $bnick | echo -a $bnick badnick liste eklendi.
}
bu oto banlar sağlıklı olmaz haberin olsun, yanlışlıkla birine kanalda ban atılsa +b uygulanırsa scriptin oto ekler onu badnick listesine, buda sağlıklı olmaz yinede sana kalmış..
burada hem bizim attığımız ban hemende belirlediğimiz rumuzun attığı banmı listeye ekleniyor?

mesela hem benim banım eklenecek hemde belirlediğim Ahmet rumuzunun banı listeye eklenecek.
rumuzuma + olarak ahmet'in nickini kod'da nereye yazacağım.

aLone 27 Ağustos 2014 13:27
Cevap: bad nick koruma ilave
 
Son verdiğim bölümü aşagıdaki ile değiştir
Kod:
on *:ban:#: {
  if $nick == $me || $nick == ahmet {
    auser badnick $bnick | echo -a $bnick badnick liste eklendi.
  }
}

Packard 27 Ağustos 2014 13:37
Cevap: bad nick koruma ilave
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041480435)
Son verdiğim bölümü aşagıdaki ile değiştir
Kod:
on *:ban:#: {
  if $nick == $me || $nick == ahmet {
    auser badnick $bnick | echo -a $bnick badnick liste eklendi.
  }
}
benim banımı ekledi fakat belirlediğim rumuzun banını eklemedi.

aLone 27 Ağustos 2014 13:56
Cevap: bad nick koruma ilave
 
Kod:
#shilisten on
on @*:join:#: {
  if $level($nick $+ !*@*) == badnick {
    banall $nick $ulist($nick,badnick,1)
    kickall $nick KanaLda Girişin Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:part:#: {
  if $level($nick $+ !*@*) == badnick {
    mode # +b $ulist($nick,badnick,1)
    kick # $nick KanaLdan Çıkışın Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:nick: {
  if $level($newnick $+ !*@*) == badnick {
    banall $newnick $ulist($newnick,badnick,1)
    kickall $newnick New-Nick ‘iniz ßad oLarak Tespit ediLdi Nick değiştirerek Tekrar Giriniz ! ßy $me
  }
}

#shilisten end

alias banall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
    inc %i
  }
}
alias kickall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
    inc %i
  }
}
menu * {
  -
  + Badnick
  .+ ekLe:/auser badnick $$1
  .+ çıkart:/ruser badnick $$1
  .+ ListeLe:/ulist badnick
  + Korumayı
  .+ Aç:/enable #shilisten | /echo -at biLgi; Badnick Koruması AçıLdı..
  .+ Kapat:/disable #shilisten | /echo -at biLgi; Badnick Koruması kapatıLdı..
  -
}
on *:input:*:{
  if $1 == !badtara { tara $chan | msg $chan $chan kanalı taranıyor }
}
on *:ban:#: {
  if $nick == $me || $nick == ahmet {
    auser badnick $bnick | echo -a $bnick badnick liste eklendi. ban kullanan nick $nick
  }
}
alias tara {
  var %t = 1,
  while (%t <= $nick($1,0)) {
    var %badnick = $nick($1,%t)
    if ($level($nick($1,%t)) == badnick) { mode $1 +b $ulist(%badnick) | kick $1 %badnick  Nick Uygunsuz }
    inc %t 1
  }
}
Kodda sorun yok denedim.. komple kopyala remoteye ekle..
if $nick == $me || $nick == ahmet { buradaki ahmet nicki diger istediğin nick tir..

Packard 27 Ağustos 2014 14:03
Cevap: bad nick koruma ilave
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041480450)
Kod:
#shilisten on
on @*:join:#: {
  if $level($nick $+ !*@*) == badnick {
    banall $nick $ulist($nick,badnick,1)
    kickall $nick KanaLda Girişin Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:part:#: {
  if $level($nick $+ !*@*) == badnick {
    mode # +b $ulist($nick,badnick,1)
    kick # $nick KanaLdan Çıkışın Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.
  }
}
on *:nick: {
  if $level($newnick $+ !*@*) == badnick {
    banall $newnick $ulist($newnick,badnick,1)
    kickall $newnick New-Nick ‘iniz ßad oLarak Tespit ediLdi Nick değiştirerek Tekrar Giriniz ! ßy $me
  }
}

#shilisten end

alias banall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
    inc %i
  }
}
alias kickall {
  var %i 1
  while %i <= $comchan($1,0) {
    if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
    inc %i
  }
}
menu * {
  -
  + Badnick
  .+ ekLe:/auser badnick $$1
  .+ çıkart:/ruser badnick $$1
  .+ ListeLe:/ulist badnick
  + Korumayı
  .+ Aç:/enable #shilisten | /echo -at biLgi; Badnick Koruması AçıLdı..
  .+ Kapat:/disable #shilisten | /echo -at biLgi; Badnick Koruması kapatıLdı..
  -
}
on *:input:*:{
  if $1 == !badtara { tara $chan | msg $chan $chan kanalı taranıyor }
}
on *:ban:#: {
  if $nick == $me || $nick == ahmet {
    auser badnick $bnick | echo -a $bnick badnick liste eklendi. ban kullanan nick $nick
  }
}
alias tara {
  var %t = 1,
  while (%t <= $nick($1,0)) {
    var %badnick = $nick($1,%t)
    if ($level($nick($1,%t)) == badnick) { mode $1 +b $ulist(%badnick) | kick $1 %badnick  Nick Uygunsuz }
    inc %t 1
  }
}
Kodda sorun yok denedim.. komple kopyala remoteye ekle..
if $nick == $me || $nick == ahmet { buradaki ahmet nicki diger istediğin nick tir..

biraz önce farklı bir nick üzerinden denedim sorunsuz çalıştı fakat bot nicki'ni denedim olmadı alakayı anlamadım :)

ahmet - botnicki ekledim olmadı
mehmet - normal kullanıcı ekledim oldu.

aLone 27 Ağustos 2014 14:12
Cevap: bad nick koruma ilave
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Packard 27 Ağustos 2014 14:13
Cevap: bad nick koruma ilave
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1041480455)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
anlamadım :D


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

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