Very good :P. Could be,
on $*:TEXT:/^[.!@](Assign|Part)/Si:#: $iif($regml(1) == part,part $chan,join $2)