on *:INPUT:#:{
if ($left($1,-1) isin $active) {
cs access $active add $left($1,-1) $2
if ($2 >= 9999) { mode $active +ao $left($1,-1) $left($1,-1) }
if ($2 isnum 5-9) { mode $active +o $left($1,-1) }
if ($2 == 4) { mode $active +h $left($1,-1) }
if ($2 isnum 3) { mode $active +v $left($1,-1) }
}
}