mIRC Input Letter Replace

on *:INPUT:*:{
  if (/ !isin $1-) { say $replace($1-,o,0,t,7,e,3,i,1,a,@,s,$) | halt }
}