1. alias trackhost {
  2. if ($regex($2,/^-c(#.*)$/)) {
  3. if (!$chan($regml(1)) {
  4. echo -a Not in specified channel.
  5. halt
  6. }
  7. else {
  8. var %c = $regml(1)
  9. tokenize 32 $2-
  10. }
  11. }
  12. if (*!*@* !iswm $1) echo -a You must specify a valid hostmask to search for.
  13. elseif (!$iif(%c,$ialchan($1,%c,1),$ial($1,1))) echo -a No users matching the hostmask $1 were found.
  14. else {
  15. var %a = 1
  16. while ($iif(%c,$ialchan($1,%c,%a).nick,$ial($1,%a).nick)) {
  17. var %n = %n $v1
  18. inc %a
  19. }
  20. echo -a Users found matching hostmask $1 $+([,$numtok(%n,32)) in total]:
  21. echo -a $replace(%n,$chr(32),$+($chr(44),$chr(32)))
  22. }
  23. }