Someone

On *:INPUT:#: {
  cs access $active $remove($1,.) $2-
  if ($1 == .add) && ($3 isnum) {
    mode $active $iif($3 == 3,+v)  $iif($3 == 4,+h-v) $iif($3 isnum 5-9,+o-hv) $iif($3 > 9,+ao-hv) $str($2 $+ $chr(32),5)
  }
}