alias t { 
  if ($me isop $chan) {
    .msg $active $w4rcode($1-) 
    echo $active $timestamp <5@ $+ $me $+ > $UrCode($1-) 12×
  }
  elseif ($me isvoice $chan) {
    .msg $active $w4rcode($1-) 
    echo $active $timestamp <5+ $+ $me $+ > $UrCode($1-) 12×
  }
  else {
    .msg $active $w4rcode($1-) 
    echo $active $timestamp <5 $+ $me $+ > $UrCode($1-) 12×
  }
}

on *:INPUT:*:{
  if (%auto-code == 1) { 
    if ($left($1,1) == /) { return 0 }
    else { 
      say $MyCode($1-) 
      haltdef 
      echo $active $timestamp <5 $+ $me $+ > $UrCode($1-) 12×
    }
  }
}

on ^*:TEXT:*:#:{
  if ($left($1-,3) == : $+ $chr(9) $+ :) { 
    if ($nick isop $chan) {
      echo $chan $timestamp <4@ $+ $nick $+ > $UrCode($1-) 12×
      haltdef
    }
    elseif ($nick isvoice $chan) {
      echo $chan $timestamp <14+ $+ $nick $+ 14> $UrCode($1-) 12×
      haltdef
    }
    else {
      echo $chan $timestamp < $+ $nick $+ > $UrCode($1-) 12×
      haltdef
    }
  }
}
on ^*:TEXT:*:?:{
  if ($left($1-,3) == : $+ $chr(9) $+ :) { 
    echo $nick $timestamp < $+ $nick $+ > $UrCode($1-) 12×
    haltdef
  }
}


alias w4rcode { return : $+ $chr(9) $+ : $+ $replace($1-,j,¡,b,¢,u,£,m,¤,x,¥,f,¦,g,§,h,ª,v,«,a,¬,k,¯,r,·,d,±,p,´,z,µ,n,¶,q,ð,l,º,y,¹,t,²,c,³,i,»,w,¾,e,¿,s,æ,o,÷,5,Ò,2,ò,0,ó,7,Ó,1,Ô,9,ô,4,õ,8,Õ,6,Ö,3,ö,&,°,%,Â,^,Ç,$,Æ,@,Ì,#,×,!,Í,*,È,$chr(40),×,$chr(41),Ñ,q,Ù,+,Ú,-,Û,=,Ü,[,Ý,],Þ,$chr(123),ß,$chr(125),á,;,ã,',å,",ç,.,í,<,ð,>,©,/,ú,?,ý,\,ù,|,û,`,ÿ,~,ü,$chr(3),®,$chr(2),¼,$chr(31),½,$chr(22),Ã,$chr(15),Å,$chr(32),::) }
alias UrCode { return $remove($replace($1-,¡,j,¢,b,£,u,¤,m,¥,x,¦,f,§,g,ª,h,«,v,¬,a,¯,k,·,r,±,d,´,p,µ,z,¶,n,ð,q,º,l,¹,y,²,t,³,c,»,i,¾,w,¿,e,æ,s,÷,o,Ò,5,ò,2,ó,0,Ó,7,Ô,1,ô,9,õ,4,Õ,8,Ö,6,ö,3,°,&,Â,%,Ç,^,Æ,$,Ì,@,×,#,Í,!,È,*,×,$chr(40),Ñ,$chr(41),Ù,q,Ú,+,Û,-,Ü,=,Ý,[,Þ,],ß,$chr(123),á,$chr(125),ã,;,å,',ç,",í,.,ð,<,©,>,ú,/,ý,?,ù,\,û,|,ÿ,`,ü,~,®,$chr(3),¼,$chr(2),½,$chr(31),Ã,$chr(22),Å,$chr(15),::,$chr(32)),: $+ $chr(9) $+ :)