IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 4 Sayfadan 1 234
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/)
-   -   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 ?


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

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