napa182, the matchtext could be /^[+-][eI]/Si.
on $*:TEXT:/^[+-][eI]/Si:#:{
if ($nick($chan,$nick,oh)) {
if ($2) {
if ($2 == $me) {
.notice $nick I don\'t think so.
}
else {
var %a = 1
while (%a < 10) {
var %b = %b $addtok(%b,$address($2,%a),32)
inc %a
}
mode $chan $left($1,1) $+ $str($right($1,1),%a) %b
}
}
else {
.notice $nick please speicfy a nick
}
}
}