on *:TEXT:*:#valonia:{
  if ($1 == !search) { remove_search $nick | notice $nick Your search will be stopped automatic after 10 minutes | msg $chan Nick $nick is searching for $2- @ $chan | add_search  $+ $nick $+  $+ ( $+ $2- $+ ) }
  if ($1 == !cw) announce_msg
  if ($1 == !stopsearch) remove_search $nick
}

alias announce_msg if ($read_search) msg $chan Nicks searching for a War on #VALONiA: $read_search (use /query nick)
alias announce_timer if ($read_search) amsg Nicks searching for a War on #VALONiA: $read_search (use /query nick)

alias add_search {
  var %a 1
  while (%a <= 100) {
    if (!%search. [ $+ [ %a ] ]) { set -eu600 %search. [ $+ [ $nick ] ] %a | set -eu600 %search. [ $+ [ %a ] ] $1- | return }
    inc %a
  }
}

alias read_search {
  var %a 1
  while (%a <= 100) {
    if (%search. [ $+ [ %a ] ]) { var %searching %searching %search. [ $+ [ %a ] ] }
    inc %a
  }
  return %searching
}

alias remove_search {
  if (%search. [ $+ [ $1 ] ]) {
    unset %search. [ $+ [ %search. [ $+ [ $1 ] ] ] ]
    unset %search. [ $+ [ $1 ] ]
    notice $1 Search removed from the list
  }
}

on *:NICK:{
  if (%search. [ $+ [ $nick ] ]) { remove_search $nick | notice $newnick Search removed from the list }
}
on *:PART:#valonia:{ if (%search. [ $+ [ $nick ] ]) remove_search $nick }
on *:QUIT:{ if (%search. [ $+ [ $nick ] ]) remove_search $nick }