If you are going to use regex in your on text events you may as well use $regml()
you could do where $regml(1) would be ! or . or @ and $regml(2) would be cash or lot.

on $*:TEXT:/^([!.@])(cash|lot)\b/iS:#: {

then on ur

$iif($left($1,1) == @,.msg #,.notice $nick)

change it to

$iif($regml(1) = @,.msg #,.notice $nick)

keep at it..