IRCForumu.ORG - Mirc Kullanicilarin Önceki Nicklerini Gorebileceginiz Kod

Sunucularda giris yapanlarin önceki nicklerini takip edebileceginiz bir kod..

Kod:

on 1:start: { .hmake nicksch 100 }

on 1:part:#: { if ( $comchan($nick,0) < 2 ) { nicksgrab $nick $site } }

on 1:quit: { nicksgrab $nick $site }

on 1:kick:#: {

if ( $comchan($knick,0) < 2 ) {

if ( $ial($knick).host != $null ) { nicksgrab $knick $ifmatch }

}

}

alias nicksgrab {

.hadd nicksch $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2) $1

}

alias NicksTrouve {

var %a = $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2)

return $iif($hget(nicksch,%a) != $1,$ifmatch)

}

on 1:JOIN:#: {

var %NickPrecedent = $iif($NicksTrouve($nick,$site), 7 [Onceki Nicki] $ifmatch )

if ( %NickPrecedent ) { echo -tm $chan $ifmatch }

}