- alias research {
- var %i $?="Nick to search ?"
- if (!%i) { echo -a 1=======[13 Research cancelled 1]======= | halt }
- echo -a
- echo -a 1=======[13 Research for :14 %i 1]=======
- var %a = $chan(0), %b = 1, %h = 0, %result, %e = $nick($chan(%b),0), %f = 1, %nij
- while (%b <= %a) {
- while (%f <= %e) {
- if (* $+ %i $+ * iswm $nick($chan(%b),%f)) && ($nick($chan(%b),%f) != $me) {
- /hadd -m $nick($chan(%b),%f) $chan(%b)
- if ($nick($chan(%b),%f) !isin %nij) { var %nij %nij $nick($chan(%b),%f) | inc %h }
- }
- inc %f
- }
- inc %b
- var %f 1, %e = $nick($chan(%b),0)
- }
- echo -a 1[13Results1: %h $+ ]
- echo -a
- var %l 1, %gettok = $numtok(%nij,32)
- while (%l <= %gettok) {
- var %nb = 1, %final
- while (%nb <= $hget($gettok(%nij,%l,32),0).item) {
- var %final = $addtok(%final,14 $+ $hget($gettok(%nij,%l,32),%nb).item 1|,32)
- inc %nb 1
- }
- echo -a 7[1 $gettok(%nij,%l,32) 7]14,0 %final
- hfree $gettok(%nij,%l,32)
- inc %l
- }
- }
alias research {
var %i $?="Nick to search ?"
if (!%i) { echo -a 1=======[13 Research cancelled 1]======= | halt }
echo -a
echo -a 1=======[13 Research for :14 %i 1]=======
var %a = $chan(0), %b = 1, %h = 0, %result, %e = $nick($chan(%b),0), %f = 1, %nij
while (%b <= %a) {
while (%f <= %e) {
if (* $+ %i $+ * iswm $nick($chan(%b),%f)) && ($nick($chan(%b),%f) != $me) {
/hadd -m $nick($chan(%b),%f) $chan(%b)
if ($nick($chan(%b),%f) !isin %nij) { var %nij %nij $nick($chan(%b),%f) | inc %h }
}
inc %f
}
inc %b
var %f 1, %e = $nick($chan(%b),0)
}
echo -a 1[13Results1: %h $+ ]
echo -a
var %l 1, %gettok = $numtok(%nij,32)
while (%l <= %gettok) {
var %nb = 1, %final
while (%nb <= $hget($gettok(%nij,%l,32),0).item) {
var %final = $addtok(%final,14 $+ $hget($gettok(%nij,%l,32),%nb).item 1|,32)
inc %nb 1
}
echo -a 7[1 $gettok(%nij,%l,32) 7]14,0 %final
hfree $gettok(%nij,%l,32)
inc %l
}
}