bad nick koruma ilave - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Packard · 12 Ağustos 2014, 15:51

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

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

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

#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

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

#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

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

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

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

kanalları nasıl muaf edicez onuda bir söylermısınız

aLone · 14 Ağustos 2014, 18:38

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

#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

kanaldan cıkısada aynısını yapsak oluyormu kardesım ?

aLone · 14 Ağustos 2014, 19:21

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

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

oas scprit kullanayı bılıyomsn alone anlarmısın ?

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
acil uzun nick koruma	LineS	mIRC Scripting Sorunları	3	16 Ekim 2018 23:56
Uzun nick Koruma	TİGeR	mIRC Scripting Sorunları	3	20 Şubat 2012 10:27
Bi bakarmısınız bad nick koruma	by_unlucky	mIRC Scripting Sorunları	7	26 Ekim 2010 01:14
Usersden Nick Koruma	Teori	mIRC Scripting Sorunları	5	14 Ağustos 2007 19:20
!dus Nick Koruma Botu	goKhaN`	mIRC Scripting Sorunları	4	30 Ocak 2007 14:13

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.