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

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

- - Bu Kodların Socku Lazım (https://www.ircforumlari.net/mirc-scripting-sorunlari/44747-bu-kodlarin-socku-lazim.html)

Bu Kodların Socku Lazım

Selam. Elimde İki tane kod var. Bu kodların socku lazım. Fakat yapamadım.. Sockta yetersizim.

Kodlar Şunlar ;

Benim Yazmış Oldugum Kod ;

on *:join:#:{
var %lol $lines(badnick.mercy)
while (%lol >= 1) {
if ($remove($read(badnick.mercy,%lol),$chr(32),*,/,\,.,$chr(44),-,_,!,;) iswm $nick) { /set %nomercysıralama %lol | /ban -k $chan $nick %nomercysıralama | //echo -a %nomercysıralama }
/dec %lol
}
}

SouL'un yazmış Oldugu bir kod ;

alias grr { if (($regex($1,/[^aeiou]{4}/i)) || ($regex($1,/[aeiou]{3}/i))) { return $true } | else { return $false } }
on *!*:join:#:{ if ($grr($nick)) { /kick $chan $nick Random Nick Yasaktır Nickinizde 3 Sesli Veya 4 Sessiz Harf Yan Yana Tespit Edildi! } }

Bu iki kodun SOCK u lazım. yardımcı olursanız sevınırım..

Cevap: Bu Kodların Socku Lazım

Kod:

on *:join:#:{

  var %lol $lines(badnick.mercy)

  while (%lol >= 1) {

    if ($remove($read(badnick.mercy,%lol),$chr(32),*,/,\, .,$chr(44),-,_,!, iswm $nick) { /set %nomercysıralama %lol | /ban -k $chan $nick %nomercysıralama | //echo -a %nomercysıralama }

    /dec %lol

  }

}

Kod:

if $2 == JOIN {

  var %nick = $remove($gettok($1,1,33),:),%chan = $right($3,-1) 

  var %lol $lines(badnick.mercy)

  while (%lol >= 1) {

    if ($remove($read(badnick.mercy,%lol),$chr(32),*,/,\, .,$chr(44),-,_,!, iswm %nick) { 

      /set %nomercysıralama %lol | sockwrite -nt $sockname mode %chan +b %nick | sockwrite -nt $sockname kick %chan %nick %nomercysıralama | //echo -a %nomercysıralama 

    }

    /dec %lol

  }

}

socread eventine verdigim kodu koyarsan yukaridakinin islevini görür o diger koduda ayni mantıkla yapabilirsin.. $nick yerine %nick $chan yerine %chan
birde "sockwrite socketadi komut" komutuyla sockete emir veriyoruz o kadar