mIRC nick, identd, host girişleri için Addon (Listelemek)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
Kullanım : /cs [-nih] mask #kanal -n parametresi ile belirtilen nicklere göre listeleme yaparsınız. -i parametresi ile ident listelemesi yaparsınız. -h parametresi ile host listelemesi yaparsınız. * Mask içinde wildcards karakterlerini kullanabilirsiniz. Örnek : /cs -n s* #nsohbet search for (nick: s*!*@*) on #nsohbet ———————————————————————————————— Num Nick Address ———————————————————————————————— 1. sdsd web@6EBDAD51.85CF735E.750395D6.IP ————————————————————————————————- found 1 matches for s*!*@* - [0.156ms] Şeklinde arama yapıp sonrasında listeme yapmış olacaktır. alias -l a aline @cs $1- alias -l stp { return $remove($1-,*,!,@) } alias cs { var %s = $ticks if (!$1) { echo 2 -a * /cs: missing parameters | halt } if (-* iswm $1) { if ($1 = -n) { var %cs.search = $1, %cs.item = $+($2,!*@*), %cs.channel = $iif($3,$3,$chan), %cs.items = nick | goto search } elseif ($1 = -h) { var %cs.search = $1, %cs.item = $+(*!*@,$2), %cs.channel = $iif($3,$3,$chan), %cs.items = host | goto search } elseif ($1 = -i) { var %cs.search = $1, %cs.item = $+(*!,$2,@*), %cs.channel = $iif($3,$3,$chan), %cs.items ident | goto search } } elseif (-* !iswm $1) { var %cs.item = $1, %cs.channel = $iif($3,$3,$chan), %cs.items = everything | goto search } :search $iif(!$chan(%cs.channel).ial,who %cs.channel) window -e @cs a search for ( $+ %cs.items $+ : $replace(%cs.item,$stp(%cs.item),$+(4,$stp(%cs.item),)) $+ ) on %cs.channel a 4 $str(-,100) a Num $chr(9) Nick $chr(9) Address a 4 $str(-,100) var %c = 1 while ($ialchan(%cs.item,%cs.channel,%c)) { a $+(,%c,.,) $chr(9) $replace($ialchan(%cs.item,%cs.channel,%c).nick,$stp(%cs.item),$+(4,$stp(%cs.item),)) $chr(9) $replace($ialchan(%cs.item,%cs.channel,%c).addr,$stp(%cs.item),$+(4,$stp(%cs.item),)) inc %c } a 4 $str(-,100) a found $ialchan(%cs.item,%cs.channel,0) matches for $replace(%cs.item,$stp(%cs.item),$+(4,$stp(%cs.item),)) - $+([,$calc(($ticks - %s) /1000),ms,]) if ($ialchan(%cs.item,%cs.channel,0) = 0) { clear @cs a no matches for $replace(%cs.item,$stp(%cs.item),$+(4,$stp(%cs.item),)) were found on %cs.channel } } on *:input:@cs:{ cs $1- } raw 352:*:halt raw 315:*:halt |