IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Güncel Merhaba Badnick Sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/883764-merhaba-badnick-sorunu.html)

Merhaba Badnick Sorunu

Benim elimde bir badnick var remote kısmında kullanıcı bölümü var ordan okumalı benim sorunum. bulundugum sunucu büyük bir sunucu koruma botları benden önce attığı userleri benimde statuste örnek burhan nicki kanalda bulunamadı diyor. bagzen bottan önce ben ban atıyorum gene kullanıcı bulunamdı diyor bot benden önce kickledigi için benim anlatmak istedigim bot attıysa botun atıgı kullanıcıyı taramasın sadece benim kicklerimi benim banlarımı bana yansıtsın ayrı bir kanalında var atıgım kişiler oraya yansıyor atmadıklarımda orda çıkıyor bir bakarmısınız çözümü varmı anlata bildim umarım BİRDE ayrı bir kanala yansıtıyorum ya atılanı atılma sebebini o kanala yansıta bilme şansımız varmı

[03:13] -ChanServ- Zengin_sikici nicki su an #geveze kanalinda degil.
-
[03:13] -ChanServ- ___47-olgun-m____ #geveze kanalindan atildi. (kicked)
-
[03:15] -ChanServ- Dindr_Evli nicki su an #geveze kanalinda degil.
-
[03:15] -ChanServ- Apskyevli #geveze kanalindan atildi. (kicked)
-
[03:15] -ChanServ- merve_zeytınburnu_*** nicki su an #geveze kanalinda degil.
-
[03:15] -ChanServ- Aşkmı_***smi nicki su an #geveze kanalinda degil.
-
[03:15] -ChanServ- Karınicingizlikoca_ nicki su an #geveze kanalinda degil.

on @8:join:#Kanal:{
if ($chan isin %knl) { halt }
mode #KANAL +b $nick
/cs kick #KANAL $nick
/msg #SEBEB YANSITILACAK KANAL4 $nick 1Kanal kanalın 4NickBan ve 4Kick Atıldı
}
}

Cevap: Merhaba Badnick Sorunu

Bu şekilde degiştirdim birazhda hızlı oldu fakat benim atmadıklarıma hayla kick atmaya çalışıyor ve yansıttgım kanala atıldı gibi msg atmaya devam etmekde

on @8:join:#geveze:{
mode $chan +b $nick
cs kick $chan $nick
msg #abolt 4 $chan Kanalın 4NickBan ve 4Kick Atıldı Atılan Nick $nick

Cevap: Merhaba Badnick Sorunu

Burhan abi sen sunucuya iyi bir helper al bence yaz buraya birisi cikar elbet :)

Cevap: Merhaba Badnick Sorunu

kardeşim bende userim :)

Cevap: Merhaba Badnick Sorunu

Alıntı:

burhandemirer Nickli Üyeden Alıntı (Mesaj 1042373462)

cs kick $chan $nick

Yukarıdaki kısmı

$iif($nick ison $chan,cs kick $chan $nick Get Out!)

olarak değişip deneyin.

Anlamı eğer nick kanaldaysa kick at.

Cevap: Merhaba Badnick Sorunu

hocam orayı deigştim statüste şunu yazdı

* Geçersiz format: $iif (Satır 3, BADNİCK)

sana zahmet sen düzeltip atarmısın birde kanala yansıtıyorum ya ban yada kick atmadıgım kulanıcıyı ben yıkalamışım olarak gösterip msg atıgım özel kanalıma gönderiyor

Cevap: Merhaba Badnick Sorunu

Alıntı:

burhandemirer Nickli Üyeden Alıntı (Mesaj 1042374061)

Kod:

on @8:join:#geveze:{

  mode $chan +b $nick

  if ($nick ison $chan) {

    cs kick $chan $nick Get Out!

    msg #abolt 4 $chan Kanalın 4NickBan ve 4Kick Atıldı Atılan Nick $nick 

  }

}

Cevap: Merhaba Badnick Sorunu

[13:50] -ChanServ- Kapllevli-arar07bey nicki su an #Geveze kanalinda degil.
-
[13:50] -ChanServ- Pasif171hemen65ilk5olacak nicki su an #Geveze kanalinda degil.
-

yok gene aynı müdür senide ugraştırdık ama

Cevap: Merhaba Badnick Sorunu

Alıntı:

burhandemirer Nickli Üyeden Alıntı (Mesaj 1042374414)

Kanalda değil uyarısı verdiğinde bildirim kanalında şu kişi atıldı diye mesaj yazıyor mu?

Cevap: Merhaba Badnick Sorunu

Alıntı:

Alper Nickli Üyeden Alıntı (Mesaj 1042374570)

Kanalda değil uyarısı verdiğinde bildirim kanalında şu kişi atıldı diye mesaj yazıyor mu?

yazıyor 10 badnick girişi varsa bunun bir tanesini ben ata biliyorum gerisini bot atıyor 10 taneside kanala yansıyor böyle kanalda bulunamadı uyasırıda geliyor statuste

Cevap: Merhaba Badnick Sorunu

Alıntı:

burhandemirer Nickli Üyeden Alıntı (Mesaj 1042374795)

yazıyor 10 badnick girişi varsa bunun bir tanesini ben ata biliyorum gerisini bot atıyor 10 taneside kanala yansıyor böyle kanalda bulunamadı uyasırıda geliyor statuste

Kod:

on @8:join:#geveze: { mode $chan +b $nick | .timer -h 1 500 kickle $nick $chan }

alias kickle { if ($1 ison $2) { cs kick $2 $1 Get Out! | msg #abolt 4 $2 Kanalın 4NickBan ve 4Kick Atıldı Atılan Nick $1 } }

Yine aynı uyarıyı verirse benzer kodun olup olmadığını kontrol edin.

Cevap: Merhaba Badnick Sorunu

sorun şurda hocam galiba *burhan* *adem* diye kayıtlı nicklerde bulunamı diyor heral arada bir yıkalayıp kickliyor normal örnek burhan adem diye kayıt ettiklerimde sorun yok bu son verdigim kodda *burhan* *adem* olanları +b yapıyor fakat hiç statüste kick mesajı gelmiyor ve #abolt kanalına mesaj gitmiyor ama verdigim kodda burhan adem olanları kick mesajı olarakda atıyor statuste #abolt kanalınada gönderiyor

Cevap: Merhaba Badnick Sorunu

Kod:

on *:start:{ $iif(!$isfile(badnick.tprk),.write badnick.tprk) | .hmake badnick 100 | .hload badnick badnick.tprk }

on *:join:#:{ 

  if $hfind(badnick,$nick,1,W).data {

    mode # +b $nick

    kick # $nick 1Kullandığınız nick uygun değildir /nick yeninick komutu ile nick değiştiriniz..

    sajoin $nick #cinsellik,#gay,#lezbiyen

    if !$hget(bdnck,$nick) {

      .hinc -msu20 bdnck $nick 

      msg #abolt [ 2JOIN ] $nick 1nick'iniz 4badnick1 olarak tespit edilmiştir. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])

    }

  }

}

on *:nick:{

  if $hfind(badnick,$newnick,1,W).data {

    msg #abolt [ 4NICK  ] $newnick 1nick'iniz 4badnick1 olarak tespit edilmiştir. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1,W).data),$chr(32),])

    var %:c $regsubex($str(-,$comchan($newnick,0)),/./g, $iif($regex($nick($comchan($newnick,\n),$me).pnick,/(%|@|&|~\.)/i),$comchan($newnick,\n) $chr(32)))

    var %c = 1 | while %c <= $token(%:c,0,32) {

      mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick 1Kullandığınız nick uygun değildir /nick yeninick komutu ile nick değiştiriniz..

      inc %c

    }

  }

}

on *:text:*:#:{

  if $regex($1,/^[!\.]badnick$/Si) {

    if $regex($2,/^ekle$/Si) {

      if (!$3) { msg # Lütfen nick belirtiniz | return }        

      if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }

      var %n = $left($calc($ctime * $rand(1000,9999)),7)

      .hadd -m badnick %n $strip($3)

      .hsave -o badnick badnick.tprk

      msg # $strip($3) Badnick listesine eklendi.

    }

    if $regex($2,/^s[ıiİ]l$/Si) {

      if (!$3) { msg # Lütfen nick belirtiniz | return }        

      if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }

      .hdel -m badnick $hfind(badnick,$strip($3),1,W).data

      .hsave -o badnick badnick.tprk

      msg # $strip($3) Badnick listesinden silindi.

    }

    if $regex($2,/^tara$/Si) {

      if (!$3) { msg # Lütfen nick belirtiniz | return }        

      if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }

      msg # Nick: $strip($3) - 4Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),])

    }

    if $regex($2,/^l[ıiİ]st$/Si) {

      if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }

      msg # Badnick listesi

      msg # -

      var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }

      msg # -

      msg # Badnick listesi sonu

    }  

  }

  if $regex($1,/^[!\.]tara$/Si) {

    if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return }  

    if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }

    var %:tara = 1 | while %:tara <= $nick($2,0) {

      if $hfind(badnick,$nick($2,%:tara),1,W).data {

        msg #abolt [ 6TARAMA  ] $nick($2,%:tara) 1nick'iniz 4badnick1 olarak tespit edilmiştir..$+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%:tara),1,W).data),$chr(32),])

        mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 1Kullandığınız nick uygun değildir /nick yeninick komutu ile nick değiştiriniz..

      }

      inc %:tara

    }    

  }

}

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] birde bunu deneyin

Cevap: Merhaba Badnick Sorunu

TEşekkürler hocam saolasın