ON *:TEXT:*:#: {
  VAR %i = 1
  WHILE (%i <= $0) {
    VAR %n = $Remove($($+($,%i),2),$Chr(59),$Chr(58),$Chr(33),$Chr(46))
    IF (($Address(%n,5)) && (!$($+(%,nicksaid.,$chan,.,%n),2)) && (%n != $nick)) {
      notice %n $+(04,$nick,) said your name in $+(04,$chan,.) They said: $1-
      SET -u600 $+(%,nicksaid.,$chan,.,%n) $TRUE
    }
    INC %i
  }
}