Pardon yanlış anlamışım sanırım bu kod işini çözer..
On 1:input:#:{
if / == $LEFT($1-,1) { $1- | .halt }
%z = $nick(#,0)
while %z {
if $nick(#,%z) isin $1- {
.echo $active $timestamp $+(<,$me,>) : $replace($1-,$nick(#,%z),$+([-,$nick(#,%z),-]))
.msg $active $replace($1-,$nick(#,%z),$+([-,$nick(#,%z),-]))
.halt
}
.dec %z
}
echo $active $timestamp $+(<,$me,>) : $1- | .msg $active $1- | halt
} |