/check_gecos for Koragg v1.1

alias check_gecos {
  if (!$1) { echo 4 -aet $calias $+ : Error, Enter a search string! | return }

  tokenize 32 $strip($1-)

  var %s = $iif(* !isin $1-,$+(*,$1-,*),$1-)
  var %t = $ial(*,0)

  echo -atc info $calias $+ : Searching for $qt(%s) gecos...

  var %i = 1
  while (%i <= %t) {
    var %nick = $ial(*,%i).nick
    var %gecos = $strip($ial(*,%i).gecos)

    if (%nick) && (%gecos) && (%s iswm %gecos) { var %f = 1 | echo -atc info2 $calias $+ : %nick ( $+ %gecos $+ ) }

    inc %i
  }

  if (!%f) { echo 4 -aet $calias $+ : No results match your search! }
}