on 1:connect:{
  set %Recent.Server.Port $server $port
  if (%Recent.Server.Port == %Recent.Server.1) { goto recent1 }
  if (%Recent.Server.Port == %Recent.Server.2) { goto recent2 }
  if (%Recent.Server.Port == %Recent.Server.3) { goto recent3 }
  if (%Recent.Server.Port == %Recent.Server.4) { goto recent4 }
  set %Recent.Server.5 %Recent.Server.4
  :recent5 | set %Recent.Server.5 %Recent.Server.4
  :recent4 | set %Recent.Server.4 %Recent.Server.3
  :recent3 | set %Recent.Server.3 %Recent.Server.2
  :recent2 | set %Recent.Server.2 %Recent.Server.1
  :recent1 | set %Recent.Server.1 %Recent.Server.Port
  unset %Recent.Server.Port
}
menu status {
  Recent Servers
  .$$gettok(%Recent.Server.1,1,32) ( $+ $gettok(%Recent.Server.1,2,32) $+ ):{ server %Recent.Server.1 }
  .$$gettok(%Recent.Server.2,1,32) ( $+ $gettok(%Recent.Server.2,2,32) $+ ):{ server %Recent.Server.2 }
  .$$gettok(%Recent.Server.3,1,32) ( $+ $gettok(%Recent.Server.3,2,32) $+ ):{ server %Recent.Server.3 }
  .$$gettok(%Recent.Server.4,1,32) ( $+ $gettok(%Recent.Server.4,2,32) $+ ):{ server %Recent.Server.4 }
  .$$gettok(%Recent.Server.5,1,32) ( $+ $gettok(%Recent.Server.5,2,32) $+ ):{ server %Recent.Server.5 }
}
