mIRC /inuser Nick Sunucu

Bu kodun çalisma mantigi istediginiz bir nicki herhangi bir sunucuda kontrol etmek için ise yariyor. Nick sunucudami degil mi onun hakkinda bilgi veriyor. Whois bilgilerine bakmanizi sagLiyor. Statusden bilgileri takip edebilirsiniz.

Socks bot olarak baglaniyor sunucuya. Bagli olan socks botu görmek için /socklist yazın. Bagli olan socks botu sunucudan cıkarmak için /sockclose inuser yazınız.

Kullanımı : /inuser Nick
Örnek : /inuser Enes turkirc.com

Kod;

inuser {
$iif($hget(nick),hfree nick) | unset %net | var %e = echo $color( text) -ste * /inuser: Hatalı veya eksik kullanım:
if (!$1 || !$2) { %e /inuser <nick> <network> | return }
if ($regex($1,(?<=^\\\\d)) && $regex($1,(\\\\w{1,30}))) { %e IRC sunucularında herhangi bir nick rakam ile başlayamaz. | return }
if (!$regex($2,(\\\\w{3,})(\\\\.{1})(\\\\w{2,}))) { %e adresini %80 oranında yanlış girdiniz. | return }
var %irc = $+(irc.,$2) | set %net %irc | hadd -m nick $1 1
if (%irc != $sock(inuser).addr) { $iif($sock(inuser),sockclose inuser) | sockopen inuser %irc 6667 } | else sockwrite -n inuser ison $1
echo $color( text) -st * /inuser: $qt($1) rumuzu $qt(%irc) sunucusunda aran?yor.
}
on *:sockopen:inuser: {
var %s = sockwrite -n $sockname,%n = $+($hget(nick,1).item,$r(0,99)),%id = $+(Kontrol,$r(1,9999))
if ($sockerr) { echo $color( text) -ste Sunucuya bağlanılamadı. Kontrol ederek deneyiniz. | return }
%s NICK %n | %s USER mIRCalem * * $+(:,%id) | sockmark $sockname %n
}
on *:sockread:inuser: {
if ($sockerr) { echo $color( text) -ste Sunucuya bağlanılamadı. Kontrol ederek deneyiniz. | return }
sockread %: | tokenize 32 %: | var %n: = $regsubex($token($1,1,33),:,)
if ($regex($2,^PRIVMSG$) && $regex($3,$sock($sockname).mark) && $regex($4-,VERSION))  {
sockwrite -n $sockname notice %n: : VERSION mIRC $version Khaled Mardam-Bey
}
if ($regex($1,^PING$)) { sockwrite -n $sockname pong $2- }
if ($regex($2,^JOIN$) && %n: == $sock($sockname).mark) { sockwrite -n $sockname part $regsubex($3,:,) }
if ($regex($2,^001$)) { sockwrite -n $sockname ison $hget(nick,1).item }
if ($regex($2,^303$) && $3 == $sock($sockname).mark) {
if ($regsubex($4,:,) == $hget(nick,1).item) { echo $color( text) -ste * /inuser: Aradığınız $qt($hget(nick,1).item) rumuzu, $qt(%net) sunucusunda online. Bilgilerini görüntülemek için; $qt(t?klay?n.) }
else echo $color(info text) -ste * /inuser: Aradığınız $qt($hget(nick,1).item) rumuzu, $qt(%net) sunucusunda bulunmuyor.
}
if ($3 == $sock($sockname).mark && $4 == $hget(nick,1).item) {
if ($regex($2,^401$)) { echo $color(info text) -st * /inuser: $qt($4) bilgileri alınamadı. (Nick değiştirmiş veya çıkmış olabilir) }
if ($regex($2,^311$)) { echo -st Adresi: $+($chr(2),$4,!,$5,@,$6) | echo -st Gerçek isim: $+($chr(2),$right($8-,-1)) }
if ($regex($2,^307$)) { echo -st Kayıt bilgisi: $+($chr(2),Kay?tl? ve kullan?lamaz nick.) }
if ($regex($2,^319$)) { echo -st Bulunduğu kanallar: $+($chr(2),$right($5-,-1)) }
if ($regex($2,^313$)) { echo -st INFO: $+($chr(2),$7-) }
if ($regex($2,^317$)) { echo -st Konuşmadığı süre: $+($chr(2),$duration($5)) | echo -st Bağlantı zamanı: $+($chr(2),$asctime($6,dd/mm/yy – hh:nn:ss)) }
if ($regex($2,^318$)) { echo -ste $+($chr(2),$hget(nick,1).item,$chr(2)) rumuzunun bilgi sonu. }
}
}
on ^*:hotlink:*\\"tıklayın.\\"*:status window:if ($1 == $qt(t?klay?n.)) return
on *:hotlink:*\\"tıklayın.\\"*:status window:if ($sock(inuser).status) { echo -ste $+($chr(2),$hget(nick,1).item,$chr(2)) rumuzunun bilgileri sıralanıyor. | sockwrite -n inuser whois $hget(nick,1).item }

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.