on $*:TEXT:/^[!@.](un)?green/Si:#: {
    mode $chan $iif($regml(1),-,+) $+ v $nick
    msg $chan $iif($regml(1),Th,H) $+ ere ya go, $nick
}