on *:start:{
  anthrax.inicio
  nick $$?"Ingresa tu Apodo"
}
on *:load:{
  echo -a Conexion Cargada
  echo -a Gracias por usar Anthrax Konex
  echo -a + info http://thcgroup.awardspace.com
}

;Conexion - PorFavor No Mover Nada De Aqui o Sino Provocaras Un Error De La Conexion.
on *:socklisten:thc*:{ 
  .sockaccept konex $+ $remove($sockname,thc)
  .sockopen server $+ $remove($sockname,thc) $hget(conexion,ip) 6667
}
alias anthrax.server { hadd conexion ip $$?"Ingrese la ip al servidor que va a estar Ej: xdchat.no-ip.info" }
alias anthrax.inicio {
  sockclose * | if (!$hget(conexion)) { hmake conexion 100 | hmake onjoin 100 | hmake msn.fonts 30 | hmake q 100 | hmake o 100 | hadd conexion ip $$?"Ingrese la ip al servidor que va a estar Ej: xdchat.no-ip.info" }
  echo -a 12 Anthrax Konex | echo -a /join $chr(37) $+ $chr(35) $+ Sala | echo -a /joinz Sala | echo -a Version 1.2
  window -ez @debug | set %qprot si | set %rejoin si | set %revenge no | set %msn.colores no | set %hablar.f no | set %fake.key si | set %null.key si | set %cuenta no | set %whisper no | if (%d == $null) { msn.updatefonts | font.ver }
}
on *:sockread:konex*:{
  var %r | sockread %r | tokenize 32 %r 
  var %sock.salon = salon $+ $remove($sockname,konex)
  if (user == $1) { halt }
  if (userhost == $1) { halt }
  if (nick == $1) { halt }
  if (part == $1) && (*,*,*,* iswm $2) { halt }
  if (part == $1) && ($chr(37) $+ $chr(35) $+ * iswm $2) { sockclose * $+ $remove($sockname,konex) | halt }
  if (quit == $1) && (:bah == $2) { sockclose * $+ $remove($sockname,konex) | halt }
  if ($sock(%sock.salon) != $null) { sockwrite -tn %sock.salon $1- }
}
on *:sockopen:server*:{
  if $sockerr { 
    echo -a Error De Conexion
    .sockclose * $+ $remove($sockname,server)
    disconnect
    reintentar
    return
  }
  else {
    sockwrite -tn $sockname IRCVERS IRC8 MSN-OCX!9.02.0310.2401
    sockwrite -tn $sockname AUTH GateKeeper I :GKSSP\102
    sockwrite -tn $sockname NICK $me
    sockwrite -tn $sockname FINDS %sala
  }
}
on *:sockread:server*:{
  var %r | sockread %r | tokenize 32 %r | echo @debug $sockname $+ : $1-
  if ($2 == 613) { sockopen salon $+ $remove($sockname,server) $remove($4,:) $5 }
  if ($2 == 702) { var %n = $chr(37) $+ $chr(35) $+ $remove($sockname,server.) | echo -a %sala No Existe |   sockwrite -tn $sockname CREATE GN %sala Sala\bauto-creada\bOsamax\bConex 159 ES-LA 1 anthrax 0 | hadd q %sala anthrax }
}
on *:sockopen:salon*:{
  if (%cuenta == si) {
    sockwrite -tn $sockname IRCVERS IRC8 MSN-OCX!9.02.0310.2401
    sockwrite -tn $sockname AUTH GateKeeper I :GKSSP\102
    sockwrite -tn $sockname NICK $me
    sockwrite -tn $sockname PROP $ ROLE : $+ $hget(conexion,role)
    sockwrite -tn $sockname JOIN %sala $hget(q,%sala)
  }
  else {
    sockwrite -tn $sockname IRCVERS IRC8 MSN-OCX!9.02.0310.2401
    sockwrite -tn $sockname AUTH GateKeeper I :GKSSP\102
    sockwrite -tn $sockname NICK $me
    sockwrite -tn $sockname JOIN %sala $hget(q,%sala)
  }
}
alias pass {
  if ($1) mode $me +h $1-
  else mode $me +h $$?"Pone La Pass"
}
on Banlist:JOIN:#:{
  kick # $nick Banlisted $convert($nick) - Razon: $ulist($address,banlist,1).info
}
on *:sockread:salon*:{
  var %sock.konex = konex $+ $remove($sockname,salon)
  var %r | sockread %r | tokenize 32 %r | echo @debug $sockname $+ : $1-
  if ($2 $4 $5 == $2 -q $gettok($scid($cid).me,1,58)) && (: $+ $gettok($scid($cid).me,1,58) $+ !* !iswm $1) && ($scid($cid).me != $gettok($gettok($1,1,33),1,58)) && (%qprot != no) {
    sockwrite -n $sockname MODE $me +h $hget(q,$3) $+ $lf $+ PROP $3 OWNERKEY $rand(000000,999999) $+ $lf $+ KICK $3 $remove($gettok($1,1,33),:) :Deowner $+ $lf $+ ACCESS $3 CLEAR OWNER $+ $lf $+ PROP $3 OWNERKEY $rand(0000,9999) $+ $lf $+ ACCESS $3 ADD OWNER $address($me,1) 0 
  } 
  if ($4 == :VERSION) { 
    sockwrite -n $sockname NOTICE $gettok($gettok($1,1,33),1,58) :VERSION $decode(RmluYWwgQ29uZXggYnkgQW50aHJheA=,m)   
    return 
  }
  if ($2 == KICK) && ($4 == $me) && (%rejoin != no) {
    sockwrite -tn %sock.konex $1-
    ;.timer 1 1 join $!chr(37) $!+ $!chr(35) $!+ $remove($sockname,salon.)
    sockwrite -n $sockname JOIN $3 $hget(q,$3) 
    halt
  }
  if ($2 == KICK) && ($4 == $me) && (%revenge != no) {
    sockwrite -n $sockname JOIN $3 $hget(q,$3) 
    sockwrite -n $sockname ACCESS $3 clear 
    sockwrite -n $sockname KICK $3 $gettok($gettok($1,1,33),1,58) :No!
    sockwrite -n $sockname PROP $3 OWNERKEY $r(a,z)
    halt
  }
  if ($2 == PROP) {
    if ($4 == OWNERKEY) {
      if ($remove($5,:) == "") && ($me !isin $1) && (%fake.key != no) { sockwrite -n $sockname MODE $me +h "" $+ $lf $+ KICK $3 $gettok($gettok($1,1,33),1,58) :Fake Key. $+ $lf $+ PROP $3 OWNERKEY $r(a,z) $+ $r(A,Z) $+ $r(1,99) $+ $r(a,z) $+ $r(A,Z) $+ $r(1,99) $+ $r(a,z) $+ $r(A,Z) $+ $r(1,99) $cr access $3 clear owner }
      elseif ($5 == :) && ($me !isin $1) && (%null.key != no) { sockwrite -n $sockname KICK $3 $gettok($gettok($1,1,33),1,58) :Null Key. $+ $lf $+ PROP $3 OWNERKEY $r(a,z) $+ $r(A,Z) $+ $r(1,99) $+ $r(a,z) $+ $r(A,Z) $+ $r(1,99) $+ $r(a,z) $+ $r(A,Z) $+ $r(1,99) $cr access $3 clear owner }
    }
  }
  if (:%# == $left($1,3)) && (privmsg == $2) { hadd onjoin $remove($1,$chr(58)) $replace($4-,$chr(58),$chr(32)) | halt }
  if (: $+ $chr(40) $+ * $+ $chr(41) $+ $chr(37) $+ $chr(35) == $left($1,6)) halt
  if ($1-3 == AUTH GateKeeperPassport *) { set %gatekepper $4 }
  if (001 == $2) { hadd conexion servername $1 } 
  if (004 == $2) { return } 
  if (353 == $2) { var %n = 1 | var %h = $right($6-,-1) | var %list | while (%n <= $numtok(%h,32)) { set %list %list $gettok($gettok(%h,%n,32),4,44) | inc %n } | sockwrite -tn %sock.konex $hget(conexion,servername) $2-5 $+(:,%list) | halt } 
  if ($2 == PING) { sockwrite -n $sockname PONG $2- }
  if (JOIN == $2) { 
    sockwrite -tn %sock.konex $1 $2 $4-
    if ($gettok($3,4,44) != $null) { 
      sockwrite -tn %sock.konex $hget(conexion,servername) MODE $right($4,-1) $+(+,$replace($gettok($3,4,44),.,q,@,o,+,v)) $right($gettok($1,1,33),-1)
    }
    halt
  }
  if ($2 == PRIVMSG) {
    if ($left($4,3) == :S) {
      if (%msn.colores == si) {
        var %color $left($5,1)
        if (%color == \) {
          %color = $left($5,2)
        }
        %color = $base($msn.msntomrc(%color),10,10,2)
        sockwrite -n %sock.konex $1-3 : $+  $+ %color $+ $convert2($left($6-,-1))
      }
      if (%msn.colores != si) { sockwrite -n %sock.konex $1-3 : $+ $convert2($left($6-,-1)) }
      return
    }
  }
  if (PRIVMSG == $2) && (:S == $4) { sockwrite -tn %sock.konex $1-3 $left($6-,-1) | halt }
  elseif (:* !iswm $3) && (?#* iswm $2) { sockwrite -tn %sock.konex $1 $2 : $+ $font($right($3-,-1)) }
  if ($2 = WHISPER) { 
    if ($5 != :S) { 
    sockwrite -tn %sock.konex $1 PRIVMSG $4 $5- | return } 
    else { sockwrite -tn %sock.konex $1 PRIVMSG $4 : $left($7-,-1) | return } 
  }
  if ($sock(%sock.konex) != $null) { sockwrite -tn %sock.konex $1- }
}
raw *:*: {
  if ($numeric == 332) {
    echo -a 2------------------------------------------------------------ 
    echo -a 14>> Haz Entrado a4:14 $replace($2,$chr(37) $+ $chr(35),$chr(32),\b,$chr(32),\c,$chr(44))
    echo -a 14>> Tema4:14 $replace($3-,\b,$chr(32),\c,$chr(44))
    echo -a 14>> Mensaje Bienvenida4:14 $hget(onjoin,$2)
    echo -a 2------------------------------------------------------------ 
    halt 
  }
}
raw whisper:*:{ 
  if (*ERR NOUSERWHISPER* iswm $3-) {
    query $nick
    echo -t $nick 4 $convert($nick) No acepta Privados.
    halt
  }
  if (%whisper == off) {
    whisper $1 $nick :ERR NOUSERWHISPER
    halt
  }
  query $nick
  echo -t $nick $convert($nick) $+ : $convert($5-)
  halt
}
raw knock:*:{
  if ($2 == 471) { echo $1 14>> Denegado4:99 $convert($nick)  14  Sala Llena | halt }
  if ($2 == 473) { echo $1 14>> Denegado4:99 $convert($nick)  14  Solo Invitados | halt }
  if ($2 == 913) { echo $1 14>> Denegado4:99 $convert($nick)  14  Baneado | halt }
  if ($2 == 475) { echo $1 14>> Denegado4:99 $convert($nick)  14  Sin Contraseña | halt }
  if ($2 == 474) { echo $1 14>> Denegado4:99 $convert($nick)  14  Gate Baneado | halt }
  else { .echo $1 14>> Denegado4:14 $convert($nick)  14  $2- | halt }
}
raw 305:*: {
  echo -a 14>> Away4:14 Ya no estas Ausente
  haltdef
}
raw 306:*: {
  echo -a 14>> Away4:14 Estas Ausente 
  haltdef
}
raw prop:*: {
  if ($2 == OWNERKEY) {
    echo -a $convert($nick) Cambio El $2 a $3-
    hadd q $1 $3-
    halt
  }
}
raw prop:*: {
  if ($2 == HOSTKEY) {
    echo -a $convert($nick) Cambio El $2 a $3-
    hadd o $1 $3-
    halt
  }
}
raw 821:*: { echo -a 14>> Away4:14 $convert($nick) Regreso }
raw 822:*: { echo -a 14>> Away4:14 $convert($nick) se Ausento }


raw 481:*: {
  echo -a 14>> Error4:14 Permiso Denegado
}
on *:input:#: {
  if (/* !iswm $1) {
    echo $chan 4 $+ $p $+ 14 $+ $convert($nick) $+ 4:14 $1-
    privmsg $chan $iif(%hablar.f == si,$font($1-),$1-)
    halt 
  }
}
on ^*:text:*:#: {
  if ($chr(37) isin $nick) || ($chr(35) isin $nick) { echo $chan 14>> Mensaje Bienvenida2:14 $convert($1-) | halt }
  echo $chan 4 $+ $p $+ 14 $+ $convert($nick) $+ 4:14 $1-
  halt 
}

on ^*:quit: {
  var %i 1
  while (%i <= $comchan($convert($nick),0)) {
    echo $comchan($nick,%i) 14>> Desconectado4:14 $convert($nick) $iif($1,( $+ $convert($1-) $+ ) ) 
    inc %i
  }
  halt
}
on ^*:action:*:#: {
  echo $chan 4>> 2'14Action2'14 $convert($nick) $+ 4:14 $convert($1-)
  halt 
}
on ^*:rawmode:#: {
  echo $chan 14>> $convert($nick) $+ 4:14 Pone modo $1-
  halt 
}
on ^*:kick:#: {
  echo $chan 14>> Expulsado4:14 $convert($nick) Expulso a $knick $iif($1,2(14 $+ $convert($1-) $+ 2))
  echo -s 14>> Expulsado4:14 $convert($nick) Expulso a $knick $iif($1,2(14 $+ $convert($1-) $+ 2))
  halt 
}
on ^*:topic:#: { 
  echo $chan 14>> Tema4:14 $replace($convert($1-),$chr(92) $+ b,$chr(32),$chr(92) $+ c,$chr(44)) 2..14 puesto por2:14 $convert($nick)
  halt 
}
on ^*:join:#: {
  if ($nick == $me) { who # | halt }
  echo $chan 14>> Entra4:14 $convert($nick) $+ 2!14 $+ $remove($address,@GateKeeperPassport,@GateKeeper,@test) $+ 2@14*
  if (>* !iswm $nick) && ($nick != $me) {
    if (!$read(users.txt,w, * $+ $address $+ *)) { write users.txt $address $nick | echo $chan $tyme 214>> Nuevo log4:14 $convert($nick) | halt }
    if ($read(users.txt,w, * $+ $address $+ *)) && (* $+ $nick $+ * !iswm $gettok($read(users.txt,w, * $+ $address $+ *),1-,44)) { write -l $+ $readn users.txt $address $+($nick,$chr(44),$gettok($read(users.txt,w, * $+ $address $+ *),2-,32))  }
    if ($read(users.txt,w, * $+ $address $+ *)) { echo $chan 14>> Logger4:14 $convert($nick) 2,14 $numtok($gettok($read(users.txt,w, * $+ $address $+ *),1-,44),44) 2>14 $replace($gettok($read(users.txt,w, * $+ $address $+ *),2-,32),$chr(44),$chr(32)) }
  }
  else { halt }
}
alias amsg {
  if (%strip == on) { var %amsg = $1- | goto nextmsg }
  var %amsg $1-
  :nextmsg
  var %c.r = 1
  while (%c.r <= $chan(0)) { 
    .privmsg $chan(%c.r) %amsg
    .echo $chan(%c.r) 4 $+ $p $+ 14 $+ $me $+ 4:14 $1-
    .var %c.r = $calc(%c.r + 1)
  }
  .return
}
alias p { return $remove($nick($chan,$nick).pnick,$nick) }
on ^*:part:#: {
  if ($convert($nick) == $me) { halt }
  echo $chan 14>> Sale4:14 $convert($nick) $+ 2!14 $+ $remove($address,@GateKeeperPassport,@GateKeeper) $+ 2@14*
  halt
}
alias msg { 
  .privmsg $chan $1- 
  .echo $chan 4 $+ $p $+ 14 $+ $me $+ 4:14 $convert($1-) 
  return
}
alias say {
  .privmsg $active $1-
  .echo $chan 4 $+ $p $+ 14 $+ $me $+ 4:14 $convert($1-)
  return
}

alias me { 
  .echo $chan >> 4'14Action4' $p $+ 14 $+ $me $+ 4:14 $convert($1-)
  privmsg $chan ACTION $1-  | halt
}
alias ame {
  var %i 1
  while ($chan(%i)) {
    echo $chan(%i) >> 4'14Action4' $p $+ 14 $+ $me $+ 4:14 $convert($1-)
    privmsg $chan(%i) ACTION $1- 
    inc %i
  }
}
alias convert2 {
  var %r, %l 1
  %r = $replace($1-,ï??,B,ï??,-,ï?>,-,ï??,-,ï??,-,ï??,E,ï?ƒ,C,ï??,A,ï??,R,ï??,K,ï??,y,ïº?,i,ïº?,s,ï??,t,ï??,u,ï??,e,ï??,k,ï??,F,ï?µ,u,ï??,g,Î?,X,ï??,>,ï??,$chr(37),ï??,8,ï??,d,ï??,m,ï??,h,ï??,s,ï??,G,ï??,M,ï??,l,ï??,s,ï?Ÿ,_,ï??,T,ï??,r,ï??,a,ï??,n,ï??,c,ï??,e,ï?Ž,N,ï??,a,ï??,t,ï??,i,ï??,o,ï??,n,ï??,f,ï??,w,ï?œ,\,ï??,|,ï??,@,ï??,P,ï??,D,ï??,',ï??,?,ï??,$chr(40),ï??,$chr(41),ï?ª,*,ï?º,:,ï??,[,ï??,],ï??,p,ï??,.)
  %r = $replace(%r,Î?,n,Å?,n,Î?,n,??,y,Ñ?,p,Ð?,P,Å?,r,Ñ?,x,Ä?,I,Ä?,L,Ð?,o,Ä?,C,Å?,o,Å?,u,Å?,n,Ä?,G,Å?,r,Å?,s,Ä?,k,Å?,R,??,i,Îµ,e,??,r,Ñ?,h,Ð?,m,ØŒ,?,Ä?,i,â??,?,â??,?,Û?,',Ä?,e,Â?,?,ï??,S,â??,?,ï??,O,ï??,I,Î?,A,ÑŠ,b,ŠÏ,T,Î?,o,Ð?,b,Ñ?,r,Ð?,E,Ð?,A,Ðš,K,ÄŽ,D,Ð?,n,Î?,o,Ðœ,M,Ð?,I,Ð?,T,Ð?,e,Çº,A,Ã?,ö,Ã?,ä,â??,?,Â?,?,Ã?,Ö,Ãœ,Ü,Ã?,Ë,Ñ?,s,Ä?,a,Ä?,i,Ð?,n,Ð?,b,Ð?,o,Ñ?,w,Äž,G,Ä?,d,Ð?,e,Å?,T,Î?,a,ÄŸ,g,Ãº,ú,Å?,R,Ä?,A,Ä?,c,Ä?,Ð,Îš,K,Ñž,y,Âµ,µ,Ã?,Í,â??,?,Â?,?,Ã?,Õ,Ã?,Ù,Ã?,À,Î?,N,Ò?,f,Î?,u,Ä?,L,Å?,o,Ï?,c,Ä?,c,Ä?,h,Ä?,i,Å?,t,Î?,Z,Ãž,Þ,Ã?,þ,Ã?,ç,Ã?,á,Â?,?,Å?,ž,Ã?,Ç,Â $+ $chr(173),-,Ã?,Á,â??,?,Â?,?,Ã?,ý,Ë?,?,â??,?,Ã?,Û,Ã?,ì,Ï?,p,Î?,e,Ð?,r,Ã?,à,Ã?,È,Â?,?,Äµ,j,Ã?,ã,Ä?,e,ÅŸ,s,Âº,º,Ã?,Ñ,Ã?,ã,Ã?,Æ,Ëš,?,Ð?,R,Ëœ,?,ÃŽ,Î,ÃŠ,Ê,Ã?,Ý,Ã?,Ï,Ã?,É,â??,?,ÃŒ,Ì,Âª,ª,Ã?,ó,â??,?,Ã?,Ò,Ã?,í,Â?,?,Ã?,Ä,Â?,?,Ã?,ü,Æ?,ƒ,Ã?,ð,Ã?,ò,Ãµ,õ,Â?,?,Ã?,é,ÃŸ,ß,Â?,?,Ã?,?,Ã?,ô,Å?,Š,Ã?,ø,â?º,?,Ã?,â,Ã?,î,â??,?,Å?,š,Ã?,ï,Ã?,ÿ,Åƒ,N,Â?,?,Â?,?,Ã?,û,â??,?,Â?,?,Â?,?,Â?,?,Â?,?,Ã?,è)
  %r = $replace(%r,Æ?,P,Ï?,X,Å?,N,Û?,?,Ä?,J,Ð?,I,Î?,E,Î?,i,Å?,O,Î?,o,??,y,Î?,v,??,y,?ž,n,Å?,Ž,Å?,o,ÄŒ,C,Ä?,e,â??,L,ÅŒ,O,Î?,a,Ä?,G,â??,O,Ð?,H,á?ƒ,e,áºµ,a,Ð?,K,á??,e,áº?,e,á??,o,Å?,u,â??,F,â??,a,áº?,A,á??,u,Ä?,K,Å?,T,Åž,S,Î?,O,Ð?,W,Î?,B,ÐŸ,N,áº?,w,ï??,i,ï??,S,ÑŸ,u,Ñ?,h,Â?,?,á??,Y,Î?,a,Ð?,C,Ð $+ $chr(173),E,Å?,U,Äª,I,Ä?,c,Ä?,E,Åœ,S,á?Š,I,Ä?,g,Å?,l,Ñ?,i,Ù?,*,Å?,n,Ä?,H,Ð?,A,Îœ,M,Ñ?,e,Ð?,U,Ñ?,e,â?œ,?,Ñ?,o,Ñƒ,y,Ñ?,c,Ðº,k,Ã?,Å,â?ž,R,ï??,I,É?,n,Ê?,c,â??,?,Ñ?,r,á??,e,áº?,a,áº?,a,Å?,u,Ä?,L,Æ?,u,Î?,?,Ë?,',Î?,n,â??,l,Â?,?,Â?,?,Â?,?,??,i,Ä?,g,Å?,W,Î?,A,ï?Š,J,Î?,µ,Å?,Ÿ,Ä?,h,Î?,ß,Ð?,b,Å?,u,Ñ?,e,Ï?,w,ÄŠ,C,Ñ?,i,Å?,l,Ç?,o,â??,l,Å?,z,Å?,t,Ã?,æ,â??,=,Å?,L,Å?,n,Ú?,S,Ä?,d,Ï?,w,Ïƒ,o,Ä?,g,Î?,H,Î?,i,Ò?,r,Îº,k,ÅŠ,N,œ,\,ï??,/,Â?,?,Ñ?,w,Û?,o,??,o,Â?,?,Â?,?,Ä?,I,Ä?,l,Ä?,e,Å?,T,Å?,s,Å?,y,Ä?,l,Ä?,i,Ã?,Ô,Åš,S,Ä?,L,Ð?,a,Ðµ,e,Î?,P,Ð?,J,Î?,N,Ç?,a,Ñ?,h,Î?,l,Å?,Œ,Â?,?,Ä?,a,Åµ,w,Ã?,Â,Ãƒ,Ã,Ð?,H,Ë?,',Â?,?,Ì?,$chr(44),Ø?,b,Ã?,Ó,Ð?,N,Â?,?,Ã?,ù,Ã?,Ø,Ãª,ê)
  %r = $replace(%r,Ø?,I,Ð?,n,Ñ?,bl,Ð?,6,??,w,â??,-,Îª,I,ï??,`,Å?,u,á??,o,Ç?,Ø,áº?,a,áº?,a,ï??,q,áº?,W,Ä?,H,á??,o,â??,-,ï?ž,^,à??,a,Äœ,G,ïº?,j,Ù?,s,Ðƒ,r,á??,u,â??,?,Ï?,u,ï??,0,ï??,7,ï??,",Ó?,O,Ç?,i,Ç?,O,Æ?,O,ï??,2,Ò?,y,ï??,v,Ð?,A,â??,<,â??,>,áº?,a,ï??,H,Ù?,e,ïº?,i,ÐŒ,K,Åª,U,ï??,;,Äƒ,a,Ä?,k,Ä?,C,Ä?,I,Å?,n,Ä?,I,Î?,I,Î?,Y,ï?Š,J,ï??,X,ï??,$chr(125),ï??,$chr(123),Îž,E,Ë?,^,ï??,V,ï?Œ,L,Î?,y,ïºŽ,i,Î?,o,á??,y,Ä?,C,Ä?,I,Ä?,k,Å?,y,à??,c,á??,o,à??,m,ïº?,i,ï?Ž,G,Å?,U,Ä?,E,Ä?,A,Ã?,?,Â?,?,â?š,?,â?ž,?,Ë?,?,â??,?,Äƒ,a,ï??,x,ï??,=,Ù?,J,ï??,?,ï??,-,â?Š,o,Ñ?,T,Ä?,A,ï??,P,Ä?,E,Ä?,E,Î?,o,Ï?,u,â??,!!,??,u,ï??,S,Ð?,y,Ò?,r,Ä?,e,Ä?,E,Äº,I,Î?,a,Î?,o,Ãš,Ú,Å?,R,Æ?,U,Å?,œ,ï??,-,â??,?,à??,n,à?ª,a,à??,g,Î?,Y,áºª,A,Ï?,n,Å?,N,Ø!,o,Ð?,h,á??,o,Ä?,c,â??,?,ï?Ž,S,Å?,U,Ð?,E,Ð?,S,Ûµ,o,ÙŠ,S,Ø?,u,Ø?,o,Ø?,s,Ä?,l,Ä?,i,Å?,r,Ð?,x,Î?,",ÏŽ,w,â?ª,?,Î?,l,Ð?,W,à??,B,á??,y,ÏŠ,i,Å?,t,Ð?,n,Â?,?,Ú?,s,ï??,*,Î?,E,Ñœ,k,â?š,v,Ï?,t,Ã?,Ð,Â?,?,Ã?,ñ,Â?,?,Ã?,ë,Ã?,å,ï??,Y,ÇŽ,a)
  %r = $replace(%r,áº?,a,â??,?,ÎŸ,O,â?ª,n,áº?,A,ï??,?,ïƒ?,à,ï??,?,ïƒ?,á,ï??,?,ïƒµ,õ,á??,o,â??,?,Ö?,?,Ö?,-,ï??,n,Åº,z,â?Œ,?,Ù?,',à??,c,à??,m,Â?,?,ï??,<,â??,v,ï?œ,S,â??,e,Åº,z,áº?,a,à??,a,ï??,fi,ÑŒ,b,ïº?,.,ïºœ,:,à??,a,à??,n,à??,o,à??,=,ï??,y,à??,i,â??,?,â??,a,ï?š,:,â??,=,ï??,+,Ù?,r,á??,o,á??,U,Ð?,N,Ó?,A,á?Œ,O,áº?,W,á??,Y,ïºš,u,ïº?,i,ïº?,u,Å?,Z,ï??,S,ïº?,w,ï??,u,ïº?,uw,ï?š,J,ïº?,a,ï??,!,á??,e,Ù?,J,Ø?,j,Ù?,_,ÏŒ,o,â??,d,â??,no,á??,u,Äš,E,Ï?,o,ï??,I,Ñ?,u,ïƒ?,Å,ïƒ?,N,ÐŠ,H,Î?,E,ï??,~,ï??,U,áº?,a,ï??,1,ï??,4,ï??,3,á??,i,Î?,E,Ð?,U,Ùƒ,J,â??,*,ï??,b,ï??,$chr(35),ï??,$,â??,o,ÑŽ,10,á?µ,y,áº?,w,Ò?,k,Ù?,u,â??,o,ï?Š,n,Ù?,o,ï??,S,â??,n,ï??,9,ï??,b,ï??,$chr(35),ï??,$,â??,o,ÑŽ,10,á??,i,Î?,A,â??,?,ï??,o,ï??,E,Ù?,u,áº?,e,Ø?,u,ã??,t,Ó?,e,Ó?,E,ï??,o,Û?,v,ï?ª,w,á??,u,ÅŽ,O,Â?,?,á??,u,ï?ª,J,ï??,e,ï??,a,ï??,N,ï??,$chr(40),ï??,@,ï??,`,ï?Ž,.,â??,',ï??,$chr(41),â??,-,â??,<,â?º,>,â??,E,Ö?,$chr(44),â??,|,â?Ž,|,â?ª,|,â??,|,á??,O,Ð?,N,ï??,W,ï?º,z)
  %r = $replace(%r,??,o,â??,X,Ù?,?,Ò?,F,Ï?,u,â??,?,Ö?,?,Ç?,u,à?œ,w,áº?,A,áº?,A,Â?,?,ïº?,u,á??,o,ï??,S,á?Ÿ,o,ïº?,u,ï??,S, Òœ,K,â??,?,â??,_,ï??,b,à??,w,ï??,x,ï??,-,à??,u,à??,n,á?œ,O,áº?,A,á??,u,á??,E,à??,J, Ù?,o,â??,?,Æ?,o,ï??,,Ò?,h,Òš,K,Ò?,X,Ò?,x,Òœ,K,Ø?,E,Ú?,c,Ñ?,y,Ð?,X,Ù?,7,Ö?,.,ÙŽ,',Ö?,',?ƒ,:,á??,o,Ò?,X,ÛŒ,s,à??,w,â??,?,Î?,T,â??,c,â??,a,â?Ÿ,p,â??,e,â??,t,Ç?,A,Ð?,X,Ö?,.,ÛŒ,s,á??,I,Ì?,',ï?š,Z,á??,o,áº?,e,Ò?,k,ïº?,u,á??,o,ï??,S,á?Ÿ,o,ïº?,u,Òš,K,ï?š,Z,Ì?,',â?œ,|,â??,|,Ø?,I,Â?,,??,x,áº?,a,Ç?,o,á?œ,O,â??,?,??,.,ï?š,Z,à??,n,â??,4,â?µ,2,â?ª,0,à??,i,â??,?,â??,|,â??,n,å??,?,áº?,a,ï??,?,Ð?,3,áº?,A,ÐŽ,y,Å?,Z,Î?,',À?,$chr(40),À?,$chr(41),??,n,á?ž,O,á??,O,à?Œ,',à?,g,Ð?,B,ã??,[,ã??,],ï??,s,ï??,m,ï??,o,ï??,k,ï??,w,ï??,d,Å?,U,ï??,Q,â??,|,áº?,A,áº?,E,Ö?,?,à??,s,Ù?,g,Ð?,e,Ø?,b,ïº?,?,Ð?,b,ï?-,m,ï??,?,Ù?,u,Øº,e,áº?,A,áº?,e,Ò?,y,à??,u,à??,-,??,?,ï?Ÿ,-,ïƒ?,Ð,ïƒ?,ë,?ª,n,Ù?,V,á??,O,Û?,I,Ûž,O,Û?,O)
  %r = $replace(%r,ïºµ,,áº?,E,À`,?,,,Àº,$chr(58),À{,$chr(59),Àn,.,Ào,/,Ài,$chr(41),Àh,$chr(40),Àm,-,â??,M,Ø?XØ?,?X?,áº?,a,â??,,Àf,$chr(38),Ù?,A,Àg,')
  return %r
}

alias msn.msntomrc {
  if ($1 == $chr(1)) return 00
  elseif ($1 == $chr(2)) return 01
  elseif ($1 == $chr(3)) return 05
  elseif ($1 == $chr(4)) return 03
  elseif ($1 == $chr(5)) return 02
  elseif ($1 == $chr(6)) return 07
  elseif ($1 == $chr(7)) return 06
  elseif ($1 == $chr(8)) return 10
  elseif ($1 == $chr(9)) return 15
  elseif ($1 == $chr(11)) return 04
  elseif ($1 == $chr(12)) return 09
  elseif ($1 == $chr(14)) return 08
  elseif ($1 == $chr(15)) return 13
  elseif ($1 == $chr(16)) return 11
  elseif ($1 == \r) return 12
  elseif ($1 == \n) return 14
  else return 01
}
on *:SOCKCLOSE:*:{
  echo -a el $sockname se cerro
}
;Aliases
alias join {
  if ($1 == $null) || ($chr(37) $+ $chr(35) $+ * !iswm $1) { echo -a Escribelo En Formato IRC $chr(37) $+ $chr(35) $+ sala | halt }
  var %puerto = $rand(60000,65000)
  while (!$portfree(%puerto)) inc %puerto
  set %sala $replace($1-,$chr(32),\b)
  .sockclose * $+ $remove(%sala,$chr(37),$chr(35))
  .socklisten thc $+ . $+ $remove(%sala,$chr(37),$chr(35)) %puerto
  .timer -o 1 1 if ($server) .server -m 127.0.0.1 %puerto
  .timer -o 1 1 if (!$server) .server 127.0.0.1 %puerto
  window -ez @debug
}
alias joinz {
  join $chr(37) $+ $chr(35) $+ $replace($1-,$chr(32),$chr(92) $+ b,»,Â»,«,Â«,¤,Â¤,ƒ,Æ’,°,Â°,ä,Ã¤,¦,Â¦,†,â€ ,•,â€¢,±,Â±,þ,Ã¾,ö,Ã¶,Ö,Ã–,ü,Ã¼,Ü,Ãœ,Ä,Ã„,ß,ÃŸ,$chr(44),\c)
}
alias reintentar {
  join %sala
}
alias hop { 
  if ($me isowner $chan) { access $chan add owner $ial($me).addr 0 | PROP # OWNERKEY $rand(00,99) | part # | join # }
  elseif ($me isop $chan) { access $chan add host $ial($me).addr 0 | part # | join # }
  else { part # | join # }
}
alias topic {
  prop # topic $1-
}
alias bienvenida {
  prop # onjoin $1-
}
;masses
alias qup {
  set %i $nick(#,0) 
  :next 
  if $nick(#,%i) != $me mode # +q $nick(#,%i) %kr
  dec %i | if %i > 0 goto next 
}
alias mwhisper {
  set %i $nick(#,0) 
  :next 
  if $nick(#,%i) != $me PRIVMSG $nick(#,%i) %mensaje
  dec %i | if %i > 0 goto next 
}
alias qdown {
  set %i $nick(#,0) 
  :next 
  if $nick(#,%i) != $me mode # -q $nick(#,%i) %kr
  dec %i | if %i > 0 goto next 
}
alias oup {
  set %i $nick(#,0) 
  :next 
  if $nick(#,%i) != $me mode # +o $nick(#,%i) %kr
  dec %i | if %i > 0 goto next 
}
alias odown {
  set %i $nick(#,0) 
  :next 
  if $nick(#,%i) != $me mode # -o $nick(#,%i) %kr
  dec %i | if %i > 0 goto next 
}
alias vup {
  set %i $nick(#,0) 
  :next 
  if $nick(#,%i) != $me mode # +v $nick(#,%i) %kr
  dec %i | if %i > 0 goto next 
}
alias vdown {
  set %i $nick(#,0) 
  :next 
  if $nick(#,%i) != $me mode # -v $nick(#,%i) %kr
  dec %i | if %i > 0 goto next 
}
alias mkick {
  set %i $nick(#,0) 
  :next 
  if $nick(#,%i) != $me kick # $nick(#,%i) %mensaje
  dec %i | if %i > 0 goto next 
}
alias -l msn.pop.o {
  var %x 0
  if ($me !isowner $2) inc %x 2
  if ($1 isowner $2) inc %x 1
  return $style(%x)
}
alias -l msn.pop.h {
  var %x 0
  if ($me !isop $2) inc %x 2
  if (($1 isop $2) && ($1 !isowner $2)) inc %x
  return $style(%x)
}
alias -l msn.pop.p {
  var %x 0
  if ($me !isop $2) inc %x 2
  if ((m !isin $gettok($chan($2).mode,1,32)) && ($1 !isop $2)) inc %x 1
  if ((m isin $gettok($chan($2).mode,1,32)) && ($1 isvo $2) && ($1 !isop $2)) inc %x 1
  return $style(%x)
}
alias -l msn.pop.s {
  var %x 0
  if ($me !isop $2) inc %x 2
  elseif (m !isin $gettok($chan($2).mode,1,32)) inc %x 2
  if ((m isin $gettok($chan($2).mode,1,32)) && ($1 !isvo $2) && ($1 !isop $2)) inc %x 1
  return $style(%x)
}

menu channel {
  Acciones Masivas 
  .Privado:%mensaje = $$?"Mensaje a Enviar" | mwhisper 
  .Propietario:/qup #
  .No Propietario:/qdown #
  .Anfitrion:/oup #
  .No Anfitrion:/odown #
  .Participante:/vup #
  .Espectador:/vdown #
  .Expulsar:%mensaje = $$?="Escribe Mensaje" | mkick 
}
menu nicklist {
  $msn.pop.o($1,$chan) $+ Propietario:mode $chan +q $$1
  $msn.pop.h($1,$chan) $+ Anfitrion:mode $chan +o $$1
  $msn.pop.p($1,$chan) $+ Participante:mode # -q $$1 | mode # -o $$1 | mode # +v $$1 
  $msn.pop.s($1,$chan) $+ Espectador:mode # -q $$1 | mode # -o $$1 | mode # -v $$1
  -
  Hora:/ctcp $$1 TIME 
  Finger:/ctcp $$1 FINGER
  Version:/ctcp $$1 VERSION
  -
  Echar
  .15 Min:access # ADD DENY $address($$1,1) 15 | kick # $$1 15 Min
  .1 Hora:access # ADD DENY $address($$1,1) 60 | kick # $$1 1 Hora
  .24 Horas:access # ADD DENY $address($$1,1) 1440 | kick # $$1 24 Horas
  .Personalizada sin tiempo:/kick # $$1 $$?="Escribe El Mensaje"
  .Personalizada con tiempo:access # ADD DENY $address($$1,1) $$?"Escriba el tiempo, en minutos, 0 es infinito" | /kick # $$1 $$?="Escribe El Mensaje"

}
menu menubar {
  Protecciones
  .$iif(%qprot == si,$style(1)) Anti -q: {
    if (%qprot == si) { set %qprot no | halt }
    if (%qprot == no) { set %qprot si | halt }
  }
  .$iif(%revenge == si,$style(1)) Revenge: {
    if (%revenge == si) { set %revenge no | halt }
    if (%revenge == no) { set %revenge si | halt }
  }
  $iif(%rejoin == si,$style(1)) Rejoiner: {
    if (%rejoin == si) { set %rejoin no | halt }
    if (%rejoin == no) { set %rejoin si | halt }
  }
  $iif(%hablar.f == si,$style(1)) Hablar Con Fuentes: {
    if (%hablar.f == si) { set %hablar.f no | halt }
    if (%hablar.f == no) { set %hablar.f si | halt }
  }
  $iif(%whisper == si,$style(1)) Aceptar Privados: {
    if (%whisper == si) { set %whisper no | halt }
    if (%whisper == no) { set %whisper si | halt }
  }
  $iif(%msn.colores == si,$style(1)) Ver Con Colores De Msn: {
    if (%msn.colores == si) { set %msn.colores no | halt }
    if (%msn.colores == no) { set %msn.colores si | halt }
  }
  $iif(%cuenta == no,$style(1)) Entrar Como Invitado: {
    if (%cuenta == no) { set %cuenta si | halt }
    if (%cuenta == si) { set %cuenta no | halt }
  }
  Agrega Role:hadd conexion role $$?="Ingresa El Role" | set %cuenta si
  Visor de Fuentes:/font.ver
  Cambiar Ip Servidor:anthrax.server
}
alias font.ver { dialog -mdo font font }
dialog font {
  title "Visor De Fuentes"
  size -1 -1 240 82
  option dbu
  combo 2, 6 13 50 111, drop
  combo 3, 61 13 93 78, drop
  text "Color", 5, 6 2 34 8, center
  text "Tipo De Fuente", 6, 74 3 58 8, center
  combo 7, 159 13 76 71, drop
  text "Estilo De Escritura", 8, 159 3 57 8, center
  button "Cerrar", 1, 166 67 48 12, ok
  box "bla", 10, 7 35 226 24
  box "Vista Previa", 11, 5 29 230 35
}
on *:Dialog:font:init:0:{
  did -a $dname 2 Negro
  did -a $dname 2 Blanco
  did -a $dname 2 Azul Oscuro
  did -a $dname 2 Verde Oscuro
  did -a $dname 2 Rojo
  did -a $dname 2 Rojo Oscuro
  did -a $dname 2 Purpura
  did -a $dname 2 Amarillo Oscuro
  did -a $dname 2 Amarillo
  did -a $dname 2 Verde
  did -a $dname 2 Verde Oscuro
  did -a $dname 2 Fucsia
  did -a $dname 2 Azul
  did -a $dname 2 Rosado
  did -a $dname 2 Plomo Oscuro
  did -a $dname 2 Plomo Claro 
  did -c $dname 2 1
  did -a $dname 7 Normal
  did -a $dname 7 Negrita
  did -a $dname 7 Italica
  did -a $dname 7 Subrayada
  did -a $dname 7 Negrita + Italica
  did -a $dname 7 Negrita + Subrayada
  did -a $dname 7 Italica + Subrayada
  did -a $dname 7 Negrita + Italica + Subrayada  
  did -c $dname 7 1
  var %l 1, %d did -a $dname, %c did -c $dname
  while ($hget(msn.fonts,%l) != $null) {
    %d 3 $hget(msn.fonts,%l)
    inc %l
    did -c $dname 3 1  
  }
  var %s $msn.ndll(attach,$msn.ndll(find,bla))
  did -r $dname 10
  msn.genprev $dname 10
  did -b $dname 10
}

on *:Dialog:font:sclick:2:{
  if ($Did(2).sel == 1) { .set %fcolor  }
  if ($Did(2).sel == 2) { .set %fcolor  }
  if ($Did(2).sel == 3) { .set %fcolor  }
  if ($Did(2).sel == 4) { .set %fcolor  }
  if ($Did(2).sel == 5) { .set %fcolor e }
  if ($Did(2).sel == 6) { .set %fcolor  }
  if ($Did(2).sel == 7) { .set %fcolor  }
  if ($Did(2).sel == 8) { .set %fcolor  }
  if ($Did(2).sel == 9) { .set %fcolor  }
  if ($Did(2).sel == 10) { .set %fcolor f }
  if ($Did(2).sel == 11) { .set %fcolor  }
  if ($Did(2).sel == 12) { .set %fcolor  }
  if ($Did(2).sel == 13) { .set %fcolor \r }
  if ($Did(2).sel == 14) { .set %fcolor  }
  if ($Did(2).sel == 15) { .set %fcolor \n }
  if ($Did(2).sel == 16) { .set %fcolor  	  }
  msn.genprev $dname 10
}

on *:Dialog:font:sclick:3:{
  .set %ftipo $did(3).seltext $+ ; $+ 0 $+ $chr(32)  
  msn.genprev $dname 10  
}

on *:Dialog:font:sclick:4:{
  var %l 1, %d did -a $dname, %c did -c $dname
  while ($hget(msn.fonts,%l) != $null) {
    %d 3 $hget(msn.fonts,%l)
    inc %l
  }
}
on *:DIALOG:font:sclick:7: {
  if ($did(7).sel == 1) { .set %estilo  }
  if ($did(7).sel == 2) { .set %estilo  }
  if ($did(7).sel == 3) { .set %estilo  }
  if ($did(7).sel == 4) { .set %estilo  }
  if ($did(7).sel == 5) { .set %estilo  }  
  if ($did(7).sel == 6) { .set %estilo  }
  if ($did(7).sel == 7) { .set %estilo  }
  if ($did(7).sel == 8) { .set %estilo  }  
  msn.genprev $dname 10
}
;Fueron Sacados De La Vincula
alias msn.genprev {
  var %s, %c = $rgb($gettok(0 0 8388608 32768 255 128 8388736 32896 65535 65280 8421376 16776960 16711680 16711935 8421504 12632256,$did(2).sel,32))
  var %r = $base($gettok(%c,1,44),10,16,2), %g = $base($gettok(%c,2,44),10,16,2), %b = $base($gettok(%c,3,44),10,16,2), %c = %r $+ %g $+ %b
  %s = $+(<font face=",$did(3).seltext," color="#,%c,">@</font>)
  if ($did(7).sel == 2) %s = $replace(%s,@,<b>@</b>)
  if ($did(7).sel == 3) %s = $replace(%s,@,<i>@</i>)
  if ($did(7).sel == 4) %s = $replace(%s,@,<u>@</u>)
  if ($did(7).sel == 5) %s = $replace(%s,@,<b><i>@</i></b>)
  if ($did(7).sel == 6) %s = $replace(%s,@,<b><u>@</u></b>)
  if ($did(7).sel == 7) %s = $replace(%s,@,<i><u>@</u></i>)
  if ($did(7).sel == 8) %s = $replace(%s,@,<b><i><u>@</u></i></b>)
  %s = $replace(%s,@,Anthrax Konex Font Viewer)
  write -c $+(",$mircdir,vprevgen.html") $+(<html><body bgcolor="#FFFFFF" style="margin: 0px; padding-top: 7px; padding-left: 5px; overflow: hidden;">,%s,</body></html>)
  %s = $msn.ndll(select,$msn.ndll(find,bla))
  %s = $msn.ndll(navigate,$mircdir $+ vprevgen.html)
  .timerdelprevgen 1 2 .remove $+(",$mircdir,vprevgen.html")
}

alias font {
  return  $+ S $+ $chr(32) $+ %fcolor $+ %estilo $+ $replace(%ftipo,$chr(32),\b) $+ $chr(32) $+ $1- $+ 
}
alias msn.ndll { return $dll(dlls/nHTMLn.dll,$$1,$2) }
alias msn.updatefonts {
  if (!$isdir(%d)) %d = " $+ $$sdir(C:\,Busca la Carpeta Con las Fuentes $chr(40) $+ Por Defecto C:\Windows\Fonts $+ $chr(41)) $+ "
  if (!$isdir(%d)) {
    echo -ta * Error: No se encontraron las fuentes en la carpeta %d
    return
  }
  if ($exists($scriptdir $+ fonts.dat)) { goto siguiente }
  echo -ta * Buscando Fuentes en %d $+ , Esperar.... | set %fontdir %d
  if ($hget(msn.fonts)) hfree msn.fonts
  hmake msn.fonts 30
  %msnf.fontnum = 1
  var %x $findfile(%d,*.ttf,0,msn.upfont " $+ $1- $+ ")
  hsave -o msn.fonts $+(",$scriptdir,fonts.dat") | echo -ta * Se encontraron %x Tipos de Fuentes.
  unset %msnf.fontnum
  :siguiente
  hload msn.fonts fonts.dat
  if ($1) {
    var %l 1
    did -r $1 20
    while ($hget(msn.fonts,%l) != $null) {
      did -a $1 20 $hget(msn.fonts,%l)
      inc %l
    }
  }
}

alias msn.upfont {
  var %x $msn.truetype($1-).name
  if ((%x != $null) && ($hmatch(msn.fonts,%x,0).data == 0)) {
    hadd msn.fonts %msnf.fontnum %x
    inc %msnf.fontnum
  }
}

alias msn.truetype {
  if (!$isfile($1)) { return }
  var %fn = $iif(("*" iswm $1), $1, $+(", $1, ")), %ntables, %i = 1, %p, %namepos, %namelen, %nid = 1
  if ($findtok(copyright family subfamily id fullname version postscript trademark manufacturer designer - urlvendor urldesigner, $prop, 32)) { %nid = $calc($ifmatch - 1) }
  bread %fn 0 8192 &font
  if ($bvar(&font, 1, 4) != 0 1 0 0) { return }
  %ntables = $bvar(&font, 5).nword
  while (%i <= %ntables) {
    %p = $calc(13 + (%i - 1) * 16)
    if (%p > 8192) { return }
    if ($bvar(&font, %p, 4).text === name) { %namepos = $bvar(&font, $calc(%p + 8)).nlong | %namelen = $bvar(&font, $calc(%p + 12)).nlong | break }
    inc %i
  }
  if (!%namepos) { return }
  if (%namelen > 8192) { %namelen = 8192 }

  bread %fn %namepos %namelen &font
  var %nrecs = $bvar(&font, 3).nword, %storepos = $calc(%namepos + $bvar(&font, 5).nword), %i = 1
  while (%i <= %nrecs) {
    %p = $calc(7 + (%i - 1) * 12)
    if ($bvar(&font, %p).nword = 3) && ($bvar(&font, $calc(%p + 6)).nword = %nid) {
      var %len = $bvar(&font, $calc(%p + 8)).nword, %peid = $bvar(&font, $calc(%p + 2)).nword
      bread %fn $calc(%storepos + $bvar(&font, $calc(%p + 10)).nword) %len &font
      return $msn.uni2ansi($bvar(&font, 1, %len))
    }
    inc %i
  }
}

alias msn.uni2ansi {
  var %unicode = $1, %i = 1, %t = $numtok(%unicode, 32), %s = i, %c
  while (%i <= %t) {
    %c = $gettok(%unicode, $+(%i, -, $calc(%i + 2)), 32)
    if ($gettok(%c, 1, 32) = 0) { %c = $chr($gettok(%c, 2, 32)) }
    else { %c = ? }
    %s = $left(%s, -1) $+ %c $+ i
    inc %i 2
  }
  return $left(%s, -1)
}
alias convert {
  var %heh = $1-
  %heh = $replace(%heh,×š,¯|)
  %heh = $replace(%heh,ï€¨Bï€©,(B))
  %heh = $replace(%heh,ï€¨Cï€©,(C))
  %heh = $replace(%heh,ï€¨Dï€©,(D))
  %heh = $replace(%heh,ï€¨Eï€©,(E))
  %heh = $replace(%heh,ï€¨Fï€©,(F))
  %heh = $replace(%heh,ï€¨Gï€©,(G))
  %heh = $replace(%heh,ï€¨Hï€©,(H))
  %heh = $replace(%heh,ï€¨Iï€©,(I))
  %heh = $replace(%heh,ï€¨Kï€©,(K))
  %heh = $replace(%heh,ï€¨Lï€©,(L))
  %heh = $replace(%heh,ï€¨Mï€©,(M))
  %heh = $replace(%heh,ï€¨Nï€©,(N))
  %heh = $replace(%heh,ï€¨Pï€©,(P))
  %heh = $replace(%heh,ï€¨Sï€©,(S))
  %heh = $replace(%heh,ï€¨Tï€©,(T))
  %heh = $replace(%heh,ï€¨Uï€©,(U))
  %heh = $replace(%heh,ï€¨Wï€©,(W))
  %heh = $replace(%heh,ï€¨Xï€©,(X))
  %heh = $replace(%heh,ï€¨Yï€©,(Y))
  %heh = $replace(%heh,ï€¨Zï€©,(Z))
  %heh = $replace(%heh,ï€¨bï€©,(b))
  %heh = $replace(%heh,ï€¨cï€©,(c))
  %heh = $replace(%heh,ï€¨dï€©,(d))
  %heh = $replace(%heh,ï€¨eï€©,(e))
  %heh = $replace(%heh,ï€¨fï€©,(f))
  %heh = $replace(%heh,ï€¨gï€©,(g))
  %heh = $replace(%heh,ï€¨hï€©,(h))
  %heh = $replace(%heh,ï€¨iï€©,(i))
  %heh = $replace(%heh,ï€¨kï€©,(k))
  %heh = $replace(%heh,ï€¨lï€©,(l))
  %heh = $replace(%heh,ï€¨mï€©,(m))
  %heh = $replace(%heh,ï€¨nï€©,(n))
  %heh = $replace(%heh,ï€¨pï€©,(p))
  %heh = $replace(%heh,ï€¨sï€©,(s))
  %heh = $replace(%heh,ï€¨tï€©,(t))
  %heh = $replace(%heh,ï€¨uï€©,(u))
  %heh = $replace(%heh,ï€¨wï€©,(w))
  %heh = $replace(%heh,ï€¨xï€©,(x))
  %heh = $replace(%heh,ï€¨yï€©,(y))
  %heh = $replace(%heh,ï€¨zï€©,(z))
  %heh = $replace(%heh,ï€¨ï¦ï€©,(f))
  %heh = $replace(%heh,ï€¨ï‰ï€©,(I))
  %heh = $replace(%heh,âˆ™,·)
  %heh = $replace(%heh,ï¯¼,s)
  %heh = $replace(%heh,ÏŽ,W)
  %heh = $replace(%heh,Å´,W)
  %heh = $replace(%heh,Î™,I)
  %heh = $replace(%heh,ì–´,)
  %heh = $replace(%heh,ë‘,)
  %heh = $replace(%heh,ìš´,)
  %heh = $replace(%heh,Î»,a)
  %heh = $replace(%heh,ï”,T)
  %heh = $replace(%heh,Â,)
  %heh = $replace(%heh,Ñ†,u)
  %heh = $replace(%heh,Ï†,Q)
  %heh = $replace(%heh,Ñ˜,j)
  %heh = $replace(%heh,ï†,F)
  %heh = $replace(%heh,ï€¡,!)
  %heh = $replace(%heh,Î–,Z)
  %heh = $replace(%heh,á»¥,u)
  %heh = $replace(%heh,ï»ƒ,b)
  %heh = $replace(%heh,à¸š,u)
  %heh = $replace(%heh,â¿,n)
  %heh = $replace(%heh,á»,d)
  %heh = $replace(%heh,Î‘,A)
  %heh = $replace(%heh,ï‚,B)
  %heh = $replace(%heh,ï‚©,©)
  %heh = $replace(%heh,ï—,W)
  %heh = $replace(%heh,Ï‹,ü)
  %heh = $replace(%heh,Î¦,O)
  %heh = $replace(%heh,ï€¥,%)
  %heh = $replace(%heh,ï,P)
  %heh = $replace(%heh,ï€²,2)
  %heh = $replace(%heh,ï€°,0)
  %heh = $replace(%heh,ï€³,3)
  %heh = $replace(%heh,ï€§,')
  %heh = $replace(%heh,áº¹,e)
  %heh = $replace(%heh,Î¿,o)
  %heh = $replace(%heh,Ð“,|¯)
  %heh = $replace(%heh,á»¶,Y)
  %heh = $replace(%heh,â„¦,<¯>)
  %heh = $replace(%heh,Ð»,n)
  %heh = $replace(%heh,Î¡,P)
  %heh = $replace(%heh,ïƒŸ,B)
  %heh = $replace(%heh,ï¬,l)
  %heh = $replace(%heh,Ð¦,U)
  %heh = $replace(%heh,×Ÿ,l)
  %heh = $replace(%heh,ïº¡,C)
  %heh = $replace(%heh,Û¶,s)
  %heh = $replace(%heh,ï­,m)
  %heh = $replace(%heh,ïŸ,_)
  %heh = $replace(%heh,Ø§,l)
  %heh = $replace(%heh,ï­‡,P)
  %heh = $replace(%heh,Î¸,O)
  %heh = $replace(%heh,ï‡,G)
  %heh = $replace(%heh,ïš,Z)
  %heh = $replace(%heh,áºµ,a)
  %heh = $replace(%heh,Ðž,O)
  %heh = $replace(%heh,â„“,l)
  %heh = $replace(%heh,×¡,O)
  %heh = $replace(%heh,Î‰,'H)
  %heh = $replace(%heh,Û¸,/\)
  %heh = $replace(%heh,à¹›,c)
  %heh = $replace(%heh,á»±,u)
  %heh = $replace(%heh,Å¶,Y)
  %heh = $replace(%heh,Ð„,E)
  %heh = $replace(%heh,Ð³,r)
  %heh = $replace(%heh,Å,s)
  %heh = $replace(%heh,Å·,y)
  %heh = $replace(%heh,ï•,U)
  %heh = $replace(%heh,Ðœ,M)
  %heh = $replace(%heh,Û€,o)
  %heh = $replace(%heh,×ž,n)
  %heh = $replace(%heh,×ž164Û°,164•n)
  %heh = $replace(%heh,à¸¥,a)
  %heh = $replace(%heh,à¸¦,n)
  %heh = $replace(%heh,ï€ª,*)
  %heh = $replace(%heh,Ð˜,N)
  %heh = $replace(%heh,ï€¨,$+ $chr(40) $+ )
  %heh = $replace(%heh,Ã€,À)
  %heh = $replace(%heh,ï®,S)
  %heh = $replace(%heh,Å­,u)
  %heh = $replace(%heh,à¸—,n)
  %heh = $replace(%heh,Å¿×¤,D)
  %heh = $replace(%heh,á»³,ý)
  %heh = $replace(%heh,Ï‚,c)
  %heh = $replace(%heh,Î¨,¥)
  %heh = $replace(%heh,ÏŠ,ï)
  %heh = $replace(%heh,ï­½,x)
  %heh = $replace(%heh,á»‡,ê)
  %heh = $replace(%heh,áº­,â)
  %heh = $replace(%heh,á»™,ô)
  %heh = $replace(%heh,ï­¼,x)
  %heh = $replace(%heh,â€¼,!!)
  %heh = $replace(%heh,ï¶,v)
  %heh = $replace(%heh,ïµ,u)
  %heh = $replace(%heh,ï´,t)
  %heh = $replace(%heh,ï©,i)
  %heh = $replace(%heh,ïŒ,L)
  %heh = $replace(%heh,ï‹,K)
  %heh = $replace(%heh,ï¤,d)
  %heh = $replace(%heh,ï»›,S)
  %heh = $replace(%heh,Ð‹,h)
  %heh = $replace(%heh,ÑŸ,u)
  %heh = $replace(%heh,Ø­,c)
  %heh = $replace(%heh,Ð¥,X)
  %heh = $replace(%heh,×˜,u)
  %heh = $replace(%heh,á» ,Õ)
  %heh = $replace(%heh,Åš,Š)
  %heh = $replace(%heh,â—,(•))
  %heh = $replace(%heh,âˆ†,/\)
  %heh = $replace(%heh,âˆž,ºº)
  %heh = $replace(%heh,ïº„,Í)
  %heh = $replace(%heh,Îœ,M)
  %heh = $replace(%heh,ÅŸ,s)
  %heh = $replace(%heh,Ðˆ,J)
  %heh = $replace(%heh,Î¾,E)
  %heh = $replace(%heh,ï£,c)
  %heh = $replace(%heh,ï¨,h)
  %heh = $replace(%heh,ï¯,o)
  %heh = $replace(%heh,ï®,n)
  %heh = $replace(%heh,ï¹,y)
  %heh = $replace(%heh,â€,Î)
  %heh = $replace(%heh,Ð”,A)
  %heh = $replace(%heh,Ñ„,ø)
  %heh = $replace(%heh,á»‹,ï)
  %heh = $replace(%heh,Ñ‰,w)
  %heh = $replace(%heh,ï„,D)
  %heh = $replace(%heh,ïƒ,C)
  %heh = $replace(%heh,ï’,R)
  %heh = $replace(%heh,ïˆ,H)
  %heh = $replace(%heh,ï‰,I)
  %heh = $replace(%heh,ï˜,X)
  %heh = $replace(%heh,Ð¡,C)
  %heh = $replace(%heh,à¸Œ,n)
  %heh = $replace(%heh,à¹ƒ,I)
  %heh = $replace(%heh,à¸«,n)
  %heh = $replace(%heh,Ð€,è)
  %heh = $replace(%heh,Å¯,u)
  %heh = $replace(%heh,áº®,Ã)
  %heh = $replace(%heh,Åž,S)
  %heh = $replace(%heh,ÐŒ,K)
  %heh = $replace(%heh,â‚£,F)
  %heh = $replace(%heh,ï€¨ï€ªï€©,(*))
  %heh = $replace(%heh,ï€©, $+ $chr(41) $+ )
  %heh = $replace(%heh,ï­º,c)
  %heh = $replace(%heh,â‰¤,<)
  %heh = $replace(%heh,â‰¥,>)
  %heh = $replace(%heh,ï€»,;)
  %heh = $replace(%heh,Î·,n)
  %heh = $replace(%heh,Ñ,r)
  %heh = $replace(%heh,Ð°,a)
  %heh = $replace(%heh,Ã¸,ø)
  %heh = $replace(%heh,ï…,E)
  %heh = $replace(%heh,Ðš,K)
  %heh = $replace(%heh,á»„,Ê)
  %heh = $replace(%heh,Å©,ü)
  %heh = $replace(%heh,Î¼,u)
  %heh = $replace(%heh,Ð¢,T)
  %heh = $replace(%heh,á»ˆ,Ì)
  %heh = $replace(%heh,â—Š,º)
  %heh = $replace(%heh,ÛŒ,s)
  %heh = $replace(%heh,áº¿,ë)
  %heh = $replace(%heh,Ù­,$bold(*))
  %heh = $replace(%heh,áº¯,ã)
  %heh = $replace(%heh,á»°,Ü)
  %heh = $replace(%heh,Ïˆ,Y)
  %heh = $replace(%heh,á»‰,í)
  %heh = $replace(%heh,Î¶,C)
  %heh = $replace(%heh,ï€ ,$chr(0160))
  %heh = $replace(%heh,à¸‘,ñ)
  %heh = $replace(%heh,Å¾,z)
  %heh = $replace(%heh,á»š,Ó)
  %heh = $replace(%heh,ÏŒ,o)
  %heh = $replace(%heh,áº¡,a)
  %heh = $replace(%heh,Ú©,S)
  %heh = $replace(%heh,Î£,E)
  %heh = $replace(%heh,âˆ«,l)
  %heh = $replace(%heh,Ð,U)
  %heh = $replace(%heh,Ð—,3)
  %heh = $replace(%heh,Ð–,X)
  %heh = $replace(%heh,Ð ,P)
  %heh = $replace(%heh,áº…,w)
  %heh = $replace(%heh,Ñ…,x)
  %heh = $replace(%heh,ïŠ,J)
  %heh = $replace(%heh,ï ,`)
  %heh = $replace(%heh,Ï,u)
  %heh = $replace(%heh,ï¡,a)
  %heh = $replace(%heh,ïº‚,i)
  %heh = $replace(%heh,Çº,Ã)
  %heh = $replace(%heh,ï³,s)
  %heh = $replace(%heh,ï«,k)
  %heh = $replace(%heh,ï¥,e)
  %heh = $replace(%heh,ï²,r)
  %heh = $replace(%heh,ï°,p)
  %heh = $replace(%heh,à¸¢,u)
  %heh = $replace(%heh,Ñ–,i)
  %heh = $replace(%heh,×³×³,'')
  %heh = $replace(%heh,Ñ—,i)
  %heh = $replace(%heh,Ñ…­,x)
  %heh = $replace(%heh,Åº,z)
  %heh = $replace(%heh,ï­†,y)
  %heh = $replace(%heh,ï®’,S)
  %heh = $replace(%heh,Å¢,†)
  %heh = $replace(%heh,Î›,A)
  %heh = $replace(%heh,Å‘Œ,o)
  %heh = $replace(%heh,â„–,N°)
  %heh = $replace(%heh,Åœ,S)
  %heh = $replace(%heh,Ð,H)
  %heh = $replace(%heh,×§,p)
  %heh = $replace(%heh,Å‘,o)
  %heh = $replace(%heh,Ä½,L)
  %heh = $replace(%heh,Ä¾,l)
  %heh = $replace(%heh,Å€,l)
  %heh = $replace(%heh,Å‚,l)
  %heh = $replace(%heh,Å½,Z)
  %heh = $replace(%heh,Å…,N)
  %heh = $replace(%heh,Åƒ,N)
  %heh = $replace(%heh,Å„,n)
  %heh = $replace(%heh,Å†,n)
  %heh = $replace(%heh,Å‡,N)
  %heh = $replace(%heh,Åˆ,n)
  %heh = $replace(%heh,Å‰,n)
  %heh = $replace(%heh,ÅŠ,N)
  %heh = $replace(%heh,Å‹,n)
  %heh = $replace(%heh,ÅŒ,O)
  %heh = $replace(%heh,Å,o)
  %heh = $replace(%heh,ÅŽ,O)
  %heh = $replace(%heh,Å,O)
  %heh = $replace(%heh,Å‘Œ,o)
  %heh = $replace(%heh,Å”,R)
  %heh = $replace(%heh,Å•,r)
  %heh = $replace(%heh,Å–,R)
  %heh = $replace(%heh,Å—,r)
  %heh = $replace(%heh,Å˜,R)
  %heh = $replace(%heh,Ä¡,g)
  %heh = $replace(%heh,Ä¢,G)
  %heh = $replace(%heh,Ä¤,H)
  %heh = $replace(%heh,Ä¥,h)
  %heh = $replace(%heh,Ä¨,I)
  %heh = $replace(%heh,Ä©,i)
  %heh = $replace(%heh,Äª,I)
  %heh = $replace(%heh,Ä¬,I)
  %heh = $replace(%heh,Ä­,i)
  %heh = $replace(%heh,Ä®,I)
  %heh = $replace(%heh,Ä°,I)
  %heh = $replace(%heh,Ä±,i)
  %heh = $replace(%heh,Ä²,IJ)
  %heh = $replace(%heh,Ä³,ij)
  %heh = $replace(%heh,Ä´,J)
  %heh = $replace(%heh,Äµ,j)
  %heh = $replace(%heh,Ä¸,k)
  %heh = $replace(%heh,Ä¹,L)
  %heh = $replace(%heh,Äº,|)
  %heh = $replace(%heh,Ä¼,l)
  %heh = $replace(%heh,Ä‚,A)
  %heh = $replace(%heh,Ä”,E)
  %heh = $replace(%heh,Ä•,e)
  %heh = $replace(%heh,Ä–,E)
  %heh = $replace(%heh,Ä—,e)
  %heh = $replace(%heh,Ä˜,E)
  %heh = $replace(%heh,Ä™,e)
  %heh = $replace(%heh,Äš,E)
  %heh = $replace(%heh,Ä›,e)
  %heh = $replace(%heh,Ä,g)
  %heh = $replace(%heh,Äž,G)
  %heh = $replace(%heh,ÄŸ,g)
  %heh = $replace(%heh,Ä ,G)
  %heh = $replace(%heh,Ä‹,c)
  %heh = $replace(%heh,ÄŒ,C)
  %heh = $replace(%heh,ÄŽ,D)
  %heh = $replace(%heh,Ä,d)
  %heh = $replace(%heh,Ä’,E)
  %heh = $replace(%heh,Äƒ,a)
  %heh = $replace(%heh,Ä„,A)
  %heh = $replace(%heh,Ä…,a)
  %heh = $replace(%heh,Ä‡,c)
  %heh = $replace(%heh,Äˆ,C)
  %heh = $replace(%heh,Ä‰,c)
  %heh = $replace(%heh,ÄŠ,C)
  %heh = $replace(%heh,Ä€,A)
  %heh = $replace(%heh,Ä,a)
  %heh = $replace(%heh,à¸Ž,n)
  %heh = $replace(%heh,ï­‹,i)
  %heh = $replace(%heh,ï€‰, $+ $chr(32) $+ )
  %heh = $replace(%heh,Ñž,y)
  %heh = $replace(%heh,Î­,e)
  %heh = $replace(%heh,Å»,Z)
  %heh = $replace(%heh,âˆ‚,a)
  %heh = $replace(%heh,â„®,e)
  %heh = $replace(%heh,Ð’,B)
  %heh = $replace(%heh,â„¢,™)
  %heh = $replace(%heh,ï€¼,<)
  %heh = $replace(%heh,â–ª,•)
  %heh = $replace(%heh,ï­Š,n)
  %heh = $replace(%heh,Ð…,S)
  %heh = $replace(%heh,Ä,c) 
  %heh = $replace(%heh,Å¦,T)
  %heh = $replace(%heh,Å,o)
  %heh = $replace(%heh,Ä¿,L)
  %heh = $replace(%heh,ï€½,=)
  %heh = $replace(%heh,ï€¾,>)
  %heh = $replace(%heh,Ä»,L)
  %heh = $replace(%heh,ï»,i)
  %heh = $replace(%heh,Å£,t)
  %heh = $replace(%heh,â€ ,†)
  %heh = $replace(%heh,Ãž,Þ)
  %heh = $replace(%heh,ÃŸ,ß)
  %heh = $replace(%heh,Ã ,à)
  %heh = $replace(%heh,Ã¡,á)
  %heh = $replace(%heh,Ã¢,â)
  %heh = $replace(%heh,Ã¤,ä)
  %heh = $replace(%heh,Ã¥,å)
  %heh = $replace(%heh,Ã¦,æ)
  %heh = $replace(%heh,Ã§,ç)
  %heh = $replace(%heh,Ã¨,è)
  %heh = $replace(%heh,Ã©,é)
  %heh = $replace(%heh,Ãª,ê)
  %heh = $replace(%heh,Ã«,ë)
  %heh = $replace(%heh,Ã¬,ì)
  %heh = $replace(%heh,Ã­,í)
  %heh = $replace(%heh,Ã®,î)
  %heh = $replace(%heh,Ã¯,ï)
  %heh = $replace(%heh,Ã±,ñ)
  %heh = $replace(%heh,Ã°,ð)
  %heh = $replace(%heh,Ã²,ò)
  %heh = $replace(%heh,Ã³,ó)
  %heh = $replace(%heh,Ã¸,ø)
  %heh = $replace(%heh,Ã´,ô)
  %heh = $replace(%heh,Ã·,÷)
  %heh = $replace(%heh,Ã¶,ö)
  %heh = $replace(%heh,Ãµ,õ)
  %heh = $replace(%heh,Ã¹,ù)
  %heh = $replace(%heh,Ãº,u)
  %heh = $replace(%heh,Ñ†­,u)
  %heh = $replace(%heh,Ã»,û)
  %heh = $replace(%heh,Ã¼,ü)
  %heh = $replace(%heh,Ã½,ý)
  %heh = $replace(%heh,Ã¾,þ)
  %heh = $replace(%heh,Ã¿,ÿ)
  %heh = $replace(%heh,Ã,Ð)
  %heh = $replace(%heh,Î½,v)
  %heh = $replace(%heh,Ã‘,Ñ)
  %heh = $replace(%heh,Ã’,Ò)
  %heh = $replace(%heh,Ã”,Ô)
  %heh = $replace(%heh,Ã•,Õ)
  %heh = $replace(%heh,Ã–,Ö)
  %heh = $replace(%heh,Ã—,×)
  %heh = $replace(%heh,Ã˜,Ø)
  %heh = $replace(%heh,Ã™,Ù)
  %heh = $replace(%heh,Ãš,Ú)
  %heh = $replace(%heh,Ã›,Ú)
  %heh = $replace(%heh,Ãœ,Ü)
  %heh = $replace(%heh,Ã,Ý)
  %heh = $replace(%heh,â€¡,‡)
  %heh = $replace(%heh,Ë†,ˆ)
  %heh = $replace(%heh,â€°,‰)
  %heh = $replace(%heh,Ãˆ,È)
  %heh = $replace(%heh,Ã‰,É)
  %heh = $replace(%heh,ÃŠ,Ê)
  %heh = $replace(%heh,Ã‹,Ë)
  %heh = $replace(%heh,ÃŒ,Ì)
  %heh = $replace(%heh,Ã,Í)
  %heh = $replace(%heh,ÃŽ,Î)
  %heh = $replace(%heh,Ã,Ï)
  %heh = $replace(%heh,Ã,Á)
  %heh = $replace(%heh,Ãƒ,Ã)
  %heh = $replace(%heh,Ã„,Ä)
  %heh = $replace(%heh,Ã…,Å)
  %heh = $replace(%heh,Ã†,Æ)
  %heh = $replace(%heh,Ã‡,Ç)
  %heh = $replace(%heh,Å ,Š)
  %heh = $replace(%heh,â€¹,‹)
  %heh = $replace(%heh,Å’,Œ)
  %heh = $replace(%heh,â€˜,‘)
  %heh = $replace(%heh,â€™,’)
  %heh = $replace(%heh,â€œ,“)
  %heh = $replace(%heh,â€,”)
  %heh = $replace(%heh,â€¢,•)
  %heh = $replace(%heh,â€“,–)
  %heh = $replace(%heh,â€”,—)
  %heh = $replace(%heh,Ëœ,˜)
  %heh = $replace(%heh,Å¡,š)
  %heh = $replace(%heh,â€º,›)
  %heh = $replace(%heh,Å“,œ)
  %heh = $replace(%heh,Å¸,Ÿ)
  %heh = $replace(%heh,Â¡,¡)
  %heh = $replace(%heh,Â¢,¢)
  %heh = $replace(%heh,Â£,£)
  %heh = $replace(%heh,Â¤,¤)
  %heh = $replace(%heh,Â¥,¥)
  %heh = $replace(%heh,Â¦,¦)
  %heh = $replace(%heh,Â§,§)
  %heh = $replace(%heh,Â¨,¨)
  %heh = $replace(%heh,Â©,©)
  %heh = $replace(%heh,Âª,ª)
  %heh = $replace(%heh,Â«,«)
  %heh = $replace(%heh,Â¬,¬)
  %heh = $replace(%heh,Â®,®)
  %heh = $replace(%heh,Â¯,¯)
  %heh = $replace(%heh,Â°,°)
  %heh = $replace(%heh,Â±,±)
  %heh = $replace(%heh,Â²,²)
  %heh = $replace(%heh,Â³,³)
  %heh = $replace(%heh,Â´,´)
  %heh = $replace(%heh,Âµ,µ)
  %heh = $replace(%heh,Â¶,¶)
  %heh = $replace(%heh,Â·,·)
  %heh = $replace(%heh,Â¸,¸)
  %heh = $replace(%heh,Â¹,¹)
  %heh = $replace(%heh,Âº,º)
  %heh = $replace(%heh,Â»,»)
  %heh = $replace(%heh,Â¼,¼)
  %heh = $replace(%heh,Â½,½)
  %heh = $replace(%heh,â€¦,…)
  %heh = $replace(%heh,â€ž,„)
  %heh = $replace(%heh,â€¡,‡)
  %heh = $replace(%heh,Ë†,ˆ)
  %heh = $replace(%heh,â€°,‰)
  %heh = $replace(%heh,Å ,Š)
  %heh = $replace(%heh,â€¹,‹)
  %heh = $replace(%heh,Å’,Œ)
  %heh = $replace(%heh,â€˜,‘)
  %heh = $replace(%heh,â€™,’)
  %heh = $replace(%heh,â€œ,“)
  %heh = $replace(%heh,â€,”)
  %heh = $replace(%heh,â€¢,•)
  %heh = $replace(%heh,â€“,–)
  %heh = $replace(%heh,â€”,—)
  %heh = $replace(%heh,Ëœ,˜)
  %heh = $replace(%heh,Å¡,š)
  %heh = $replace(%heh,â€º,›)
  %heh = $replace(%heh,Å“,œ)
  %heh = $replace(%heh,Å¸,Ÿ)
  %heh = $replace(%heh,Â£,£)
  %heh = $replace(%heh,ï¼,|)
  %heh = $replace(%heh,Ñ•,s)
  %heh = $replace(%heh,Ï‡,X)
  %heh = $replace(%heh,â‚¬,€)
  %heh = $replace(%heh,ï¾,~)
  %heh = $replace(%heh,ïž,^)
  %heh = $replace(%heh,Ð¼,m)
  %heh = $replace(%heh,ï€,@)
  %heh = $replace(%heh,Ñ,r)
  %heh = $replace(%heh,×¦,y)
  %heh = $replace(%heh,ïœ,\)
  %heh = $replace(%heh,ï€¯,/)
  %heh = $replace(%heh,â—Š†, $+ $chr(32) $+ )
  %heh = $replace(%heh,Ä,D)
  %heh = $replace(%heh,áº«,a)
  %heh = $replace(%heh,Ñ“,r)
  %heh = $replace(%heh,ï€ºï›,:[)
  %heh = $replace(%heh,â—Š, $+ $chr(32) $+ )
  %heh = $replace(%heh,Ä·,k)
  %heh = $replace(%heh,â—¦,·)
  %heh = $replace(%heh,Ç¿,ø)
  %heh = $replace(%heh,Æ’,ƒ)
  %heh = $replace(%heh,Î°,ú)
  %heh = $replace(%heh,Î¯,í)
  %heh = $replace(%heh,Ä£,g)
  %heh = $replace(%heh,Î®,ñ)
  %heh = $replace(%heh,Î²,ß)
  %heh = $replace(%heh,Î®,n)
  %heh = $replace(%heh,Ä¯,i)
  %heh = $replace(%heh,ÙŠ,š)
  %heh = $replace(%heh,Ñ‚,t)
  %heh = $replace(%heh,ï€ºï€,:@)
  %heh = $replace(%heh,ï›,[)
  %heh = $replace(%heh,ï,])
  %heh = $replace(%heh,ï€­-,-)
  %heh = $replace(%heh,Ñ,e)
  %heh = $replace(%heh,Ù‰,š)
  %heh = $replace(%heh,Ï‚,c)
  %heh = $replace(%heh,Î±,a)
  %heh = $replace(%heh,Ð½,h)
  %heh = $replace(%heh,ï€º,:)
  %heh = $replace(%heh,ï·,w)
  %heh = $replace(%heh,Â¿,¿)
  %heh = $replace(%heh,Îž,E)
  %heh = $replace(%heh,âˆš,v)
  %heh = $replace(%heh,Â­,-)
  %heh = $replace(%heh,Å,L)
  %heh = $replace(%heh,Ú¯,S)
  %heh = $replace(%heh,Â , $+ $chr(32) $+ )
  %heh = $replace(%heh,ï,M)
  %heh = $replace(%heh,ï“,S)
  %heh = $replace(%heh,ïŽ,N)
  %heh = $replace(%heh,ï€ , $+ $chr(32) $+ )
  %heh = $replace(%heh,ï€¨, $+ $chr(40) $+ )
  %heh = $replace(%heh,ï€¨ï€¿ï€©,(?))
  %heh = $replace(%heh,ï€ªï€©,(*))
  %heh = $replace(%heh,Ð¯,R)
  %heh = $replace(%heh,Ã‚,Â)
  %heh = $replace(%heh,Ù, $+ $chr(32) $+ )
  %heh = $replace(%heh,Ï,p)
  %heh = $replace(%heh,Îµ,ë)
  %heh = $replace(%heh,Ð°,a)
  %heh = $replace(%heh,Ðº,k)
  %heh = $replace(%heh,Ð¶, $+ $chr(32) $+ )
  %heh = $replace(%heh,Î¹,l)
  %heh = $replace(%heh,Ð¾,o)
  %heh = $replace(%heh,Ö¼,·)
  %heh = $replace(%heh,Ä‘,d)
  %heh = $replace(%heh,Ð·,ë)
  %heh = $replace(%heh,Ñ”,ë)
  %heh = $replace(%heh,Ð¿,n)
  %heh = $replace(%heh,Îº,k)
  %heh = $replace(%heh,Îº,p)
  %heh = $replace(%heh,Ï…,u)
  %heh = $replace(%heh,Ð¿,ñ)
  %heh = $replace(%heh,Ñœ,k)
  %heh = $replace(%heh,Ñ€,p)
  %heh = $replace(%heh,Ð²,B)
  %heh = $replace(%heh,â‰ˆ,~)
  %heh = $replace(%heh,â‚ª,-)
  %heh = $replace(%heh,Ç»,ã)
  %heh = $replace(%heh,Ð¨,W)
  %heh = $replace(%heh,Ð´,Á)
  %heh = $replace(%heh,Ñ‘,ë)
  %heh = $replace(%heh,Ï‰,w)
  %heh = $replace(%heh,Ð¹,n)
  %heh = $replace(%heh,Åµ,w)
  %heh = $replace(%heh,â‚«,d)  
  %heh = $replace(%heh,Ð¸,n)
  %heh = $replace(%heh,Ñƒ,y)
  %heh = $replace(%heh,á»¯,û)
  %heh = $replace(%heh,Ñ’,h)
  %heh = $replace(%heh,á»·,y)
  %heh = $replace(%heh,Î´,ó)
  %heh = $replace(%heh,Î¬,å)
  %heh = $replace(%heh,Ç¾,Ø)
  %heh = $replace(%heh,Å§,t)
  %heh = $replace(%heh,Ë‰,¯)
  %heh = $replace(%heh,ï€©, $+ $chr(40) $+ )
  %heh = $replace(%heh,Ï„,t)
  %heh = $replace(%heh,Ïƒ,ø)
  %heh = $replace(%heh,Ë™,·)
  %heh = $replace(%heh,Ñ,c)
  %heh = $replace(%heh,Î³,y)
  %heh = $replace(%heh,Ä¦,H)
  %heh = $replace(%heh,Î,N)
  %heh = $replace(%heh,Å›,š)
  %heh = $replace(%heh,ï€, $+ $chr(32) $+ )
  %heh = $replace(%heh,Äœ,G)
  %heh = $replace(%heh,Ä¶,K)
  %heh = $replace(%heh,ï®Ž,S)
  %heh = $replace(%heh,Î,i)
  %heh = $replace(%heh,Ä«,i)
  %heh = $replace(%heh,Ä†,C)
  %heh = $replace(%heh,Ä§,h)
  %heh = $replace(%heh,Å™,r)
  %heh = $replace(%heh,Ä“,e)
  %heh = $replace(%heh,Ö»,i)
  %heh = $replace(%heh,Ã£,ã)
  %heh = $replace(%heh,ï€®,.)
  %heh = $replace(%heh,Î·,n)
  %heh = $replace(%heh,Ð,A)
  %heh = $replace(%heh,Ðµ,e)
  %heh = $replace(%heh,ï€­,-)
  %heh = $replace(%heh,Ñ…­,x)
  %heh = $replace(%heh,ï€©, $+ $chr(41) $+ )
  %heh = $replace(%heh,Å¤,T)
  %heh = $replace(%heh,Å¼,z)
  %heh = $replace(%heh,áº´,Å)
  %heh = $replace(%heh,×¤,D)
  %heh = $replace(%heh,Î§,X)
  %heh = $replace(%heh,Ð†,I)
  %heh = $replace(%heh,Ð£,Y)
  %heh = $replace(%heh,Ã“,Ó)
  %heh = $replace(%heh,ÑŒ,b)
  %heh = $replace(%heh,á»Ÿ,ò)
  %heh = $replace(%heh,â‚¤,£)
  return %heh
}
alias convert {
  var %converter = $1-
  %converter = $replace(%converter,>,Invitado_)
  %converter = $replace(%converter,â„¢,™)
  %converter = $replace(%converter,â€ ,†)
  %converter = $replace(%converter,Ãž,Þ)
  %converter = $replace(%converter,ÃŸ,ß)
  %converter = $replace(%converter,Ã ,à)
  %converter = $replace(%converter,Ã¡,á)
  %converter = $replace(%converter,Ã¢,â)
  %converter = $replace(%converter,Ã¤,ä)
  %converter = $replace(%converter,Ã¥,å)
  %converter = $replace(%converter,Ã¦,æ)
  %converter = $replace(%converter,Ã§,ç)
  %converter = $replace(%converter,Ã¨,è)
  %converter = $replace(%converter,Ã©,é)
  %converter = $replace(%converter,Ãª,ê)
  %converter = $replace(%converter,Ã«,ë)  
  %converter = $replace(%converter,Ã¬,ì)  
  %converter = $replace(%converter,Ã­,í)
  %converter = $replace(%converter,Ã®,î)
  %converter = $replace(%converter,Ã¯,ï)
  %converter = $replace(%converter,Ã±,ñ)  
  %converter = $replace(%converter,Ã°,ð)  
  %converter = $replace(%converter,Ã²,ò)
  %converter = $replace(%converter,Ã³,ó)
  %converter = $replace(%converter,Ã¸,ø)
  %converter = $replace(%converter,Ã´,ô)
  %converter = $replace(%converter,Ã·,÷)
  %converter = $replace(%converter,Ã¶,ö)
  %converter = $replace(%converter,Ãµ,õ)
  %converter = $replace(%converter,Ã¹,ù)
  %converter = $replace(%converter,Ãº,ú)
  %converter = $replace(%converter,Ã»,û)
  %converter = $replace(%converter,Ã¼,ü)
  %converter = $replace(%converter,Ã½,ý)
  %converter = $replace(%converter,Ã¾,þ) 
  %converter = $replace(%converter,Ã¿,ÿ) 
  %converter = $replace(%converter,Ã,Ð) 
  %converter = $replace(%converter,Ã‘,Ñ) 
  %converter = $replace(%converter,Ã’,Ò) 
  %converter = $replace(%converter,Ã”,Ô) 
  %converter = $replace(%converter,Ã•,Õ) 
  %converter = $replace(%converter,Ã–,Ö) 
  %converter = $replace(%converter,Ã—,×)
  %converter = $replace(%converter,Ã˜,Ø)   
  %converter = $replace(%converter,Ã™,Ù)
  %converter = $replace(%converter,Ãš,Ú)   
  %converter = $replace(%converter,Ã›,Ú)   
  %converter = $replace(%converter,Ãœ,Ü)
  %converter = $replace(%converter,Ã,Ý)   
  %converter = $replace(%converter,â€¡,‡)   
  %converter = $replace(%converter,Ë†,ˆ)
  %converter = $replace(%converter,â€°,‰)   
  %converter = $replace(%converter,Ãˆ,È)
  %converter = $replace(%converter,Ã‰,É) 
  %converter = $replace(%converter,ÃŠ,Ê)  
  %converter = $replace(%converter,Ã‹,Ë)   
  %converter = $replace(%converter,ÃŒ,Ì)
  %converter = $replace(%converter,Ã,Í)   
  %converter = $replace(%converter,ÃŽ,Î)
  %converter = $replace(%converter,Ã,Ï)   
  %converter = $replace(%converter,À,Ã)   
  %converter = $replace(%converter,Ãƒ,Ã) 
  %converter = $replace(%converter,Ã„,Ä)   
  %converter = $replace(%converter,Ã…,Å)   
  %converter = $replace(%converter,Ã†,Æ)
  %converter = $replace(%converter,Ã‡,Ç)   
  %converter = $replace(%converter,Å ,Š)   
  %converter = $replace(%converter,â€¹,‹)  
  %converter = $replace(%converter,Å’,Œ)  
  %converter = $replace(%converter,â€˜,‘)   
  %converter = $replace(%converter,â€™,’)   
  %converter = $replace(%converter,â€œ,“)
  %converter = $replace(%converter,â€,”)
  %converter = $replace(%converter,â€¢,•)
  %converter = $replace(%converter,â€“,–)
  %converter = $replace(%converter,â€”,—)
  %converter = $replace(%converter,Ëœ,˜)
  %converter = $replace(%converter,Å¡,š)
  %converter = $replace(%converter,â€º,›)
  %converter = $replace(%converter,Å“,œ)
  %converter = $replace(%converter,Å¸,Ÿ)
  %converter = $replace(%converter,Â¡,¡)
  %converter = $replace(%converter,Â¢,¢)
  %converter = $replace(%converter,Â£,£)
  %converter = $replace(%converter,Â¤,¤)
  %converter = $replace(%converter,Â¥,¥)
  %converter = $replace(%converter,Â¦,¦)
  %converter = $replace(%converter,Â§,§)
  %converter = $replace(%converter,Â¨,¨)
  %converter = $replace(%converter,Â©,©)
  %converter = $replace(%converter,Âª,ª)
  %converter = $replace(%converter,Â«,«)
  %converter = $replace(%converter,Â¬,¬)
  %converter = $replace(%converter,Â®,®)
  %converter = $replace(%converter,Â¯,¯)  
  %converter = $replace(%converter,Â°,°)
  %converter = $replace(%converter,Â±,±)  
  %converter = $replace(%converter,Â²,²)  
  %converter = $replace(%converter,Â³,³)  
  %converter = $replace(%converter,Â´,´)  
  %converter = $replace(%converter,Âµ,µ)  
  %converter = $replace(%converter,Â¶,¶)  
  %converter = $replace(%converter,Â·,·)
  %converter = $replace(%converter,Â¸,¸)  
  %converter = $replace(%converter,Â¹,¹)
  %converter = $replace(%converter,Âº,º)  
  %converter = $replace(%converter,Â»,»)  
  %converter = $replace(%converter,Â¼,¼) 
  %converter = $replace(%converter,Â½,½)  
  %converter = $replace(%converter,â€¦,…)  
  %converter = $replace(%converter,â€ž,„)
  %converter = $replace(%converter,â€¡,‡)  
  %converter = $replace(%converter,Ë†,ˆ)  
  %converter = $replace(%converter,â€°,‰)  
  %converter = $replace(%converter,Å ,Š)  
  %converter = $replace(%converter,â€¹,‹)
  %converter = $replace(%converter,Å’,Œ)
  %converter = $replace(%converter,â€˜,‘)
  %converter = $replace(%converter,â€™,’)
  %converter = $replace(%converter,â€œ,“)
  %converter = $replace(%converter,â€,”)
  %converter = $replace(%converter,â€¢,•)
  %converter = $replace(%converter,â€“,–)
  %converter = $replace(%converter,â€”,—)
  %converter = $replace(%converter,Ëœ,˜)
  %converter = $replace(%converter,Å¡,š)
  %converter = $replace(%converter,â€º,›)
  %converter = $replace(%converter,Å“,œ)
  %converter = $replace(%converter,Å¸,Ÿ)
  %converter = $replace(%converter,Â£,£)
  %converter = $replace(%converter,ï¼,|)
  %converter = $replace(%converter,Ñ•,s)
  %converter = $replace(%converter,Ï‡,X)
  %converter = $replace(%converter,â‚¬,€)
  %converter = $replace(%converter,ï¾,~)  
  %converter = $replace(%converter,ïž,^)
  %converter = $replace(%converter,Ð¼,m)
  %converter = $replace(%converter,ï€,@)
  %converter = $replace(%converter,Ñ,r)
  %converter = $replace(%converter,×¦,y)  
  %converter = $replace(%converter,ïœ,\)  
  %converter = $replace(%converter,ï€¯,/)
  %converter = $replace(%converter,â—Š†,)  
  %converter = $replace(%converter,Ä,D)
  %converter = $replace(%converter,áº«,a)  
  %converter = $replace(%converter,Ñ“,r)
  %converter = $replace(%converter,ï€ºï›,:[)
  %converter = $replace(%converter,â—Š,)
  %converter = $replace(%converter,Ä·,k)  
  %converter = $replace(%converter,â—¦,·)  
  %converter = $replace(%converter,Ç¿,ø)  
  %converter = $replace(%converter,Æ’,ƒ)
  %converter = $replace(%converter,Î°,ú)  
  %converter = $replace(%converter,Î¯,í)
  %converter = $replace(%converter,Ä£,g)
  %converter = $replace(%converter,Î®,ñ)  
  %converter = $replace(%converter,Î²,ß)  
  %converter = $replace(%converter,Î®,n)  
  %converter = $replace(%converter,Ä¯,i)  
  %converter = $replace(%converter,ÙŠ,š)
  %converter = $replace(%converter,Ñ‚,t)
  %converter = $replace(%converter,ï€ºï€,:@)  
  %converter = $replace(%converter,ï›,[)
  %converter = $replace(%converter,ï,])
  %converter = $replace(%converter,ï€­-,-)
  %converter = $replace(%converter,Ñ,e)
  %converter = $replace(%converter,Ù‰,š)  
  %converter = $replace(%converter,Ï‚,c)  
  %converter = $replace(%converter,Î±,a)  
  %converter = $replace(%converter,Ð½,h)  
  %converter = $replace(%converter,ï€º,:)
  %converter = $replace(%converter,ï·,w)  
  %converter = $replace(%converter,Â¿,¿)  
  %converter = $replace(%converter,Îž,E)  
  %converter = $replace(%converter,âˆš,v)
  %converter = $replace(%converter,Â­,)­
  %converter = $replace(%converter,Å,L)  
  %converter = $replace(%converter,Ú¯,S)  
  %converter = $replace(%converter,Â , )  
  %converter = $replace(%converter,ï,M)  
  %converter = $replace(%converter,ï“,S)
  %converter = $replace(%converter,ïŽ,N)
  %converter = $replace(%converter,ï€ , )
  %converter = $replace(%converter,ï€¨,))
  %converter = $replace(%converter,ï€¨ï€¿ï€©,(?))
  %converter = $replace(%converter,ï€ªï€©,(*))  
  %converter = $replace(%converter,Ð¯,R)  
  %converter = $replace(%converter,Ã‚,Â)  
  %converter = $replace(%converter,Ù,)  
  %converter = $replace(%converter,Ï,p)
  %converter = $replace(%converter,Îµ,ë)  
  %converter = $replace(%converter,Ð°,â)
  %converter = $replace(%converter,Ðº,k)  
  %converter = $replace(%converter,Ð¶,)  
  %converter = $replace(%converter,Î¹,i)
  %converter = $replace(%converter,Ð¾,o)  
  %converter = $replace(%converter,Ö¼,·)
  %converter = $replace(%converter,Ä‘,d)  
  %converter = $replace(%converter,Ð·,ë)
  %converter = $replace(%converter,Ñ”,ë)  
  %converter = $replace(%converter,Ð¿,n)
  %converter = $replace(%converter,Îº,k) 
  %converter = $replace(%converter,Îº,p)
  %converter = $replace(%converter,Ï…,ú)
  %converter = $replace(%converter,Ð¿,ñ)  
  %converter = $replace(%converter,Ñœ,k)
  %converter = $replace(%converter,Ñ€,p)  
  %converter = $replace(%converter,Ð²,B)  
  %converter = $replace(%converter,â‰ˆ,~)  
  %converter = $replace(%converter,â‚ª,-)  
  %converter = $replace(%converter,Ç»,ã)  
  %converter = $replace(%converter,Ð¨,W)  
  %converter = $replace(%converter,Ð´,Á)  
  %converter = $replace(%converter,Ñ‘,ë)  
  %converter = $replace(%converter,Ï‰,w)  
  %converter = $replace(%converter,Ð¹,n)  
  %converter = $replace(%converter,Åµ,w)  
  %converter = $replace(%converter,â‚«,d)  
  %converter = $replace(%converter,Ð¸,n)  
  %converter = $replace(%converter,Ñƒ,y)  
  %converter = $replace(%converter,á»¯,û)  
  %converter = $replace(%converter,Ñ’,h)  
  %converter = $replace(%converter,á»·,y)  
  %converter = $replace(%converter,Î´,ó)  
  %converter = $replace(%converter,Î¬,å)  
  %converter = $replace(%converter,Ç¾,Ø)  
  %converter = $replace(%converter,Å§,t)  
  %converter = $replace(%converter,Ë‰,¯)  
  %converter = $replace(%converter,ï€©,))
  %converter = $replace(%converter,Ï„,t)  
  %converter = $replace(%converter,Ïƒ,ø)  
  %converter = $replace(%converter,Ë™,·)  
  %converter = $replace(%converter,Ñ,c)  
  %converter = $replace(%converter,Î³,y)  
  %converter = $replace(%converter,Ä¦,H)  
  %converter = $replace(%converter,Î,N) 
  %converter = $replace(%converter,Å›,š) 
  %converter = $replace(%converter,ï€,)  
  %converter = $replace(%converter,Äœ,G)  
  %converter = $replace(%converter,Ä¶,K)
  %converter = $replace(%converter,ï®Ž,S)  
  %converter = $replace(%converter,Î,i)  
  %converter = $replace(%converter,Ä«,i)  
  %converter = $replace(%converter,Ä†,C)  
  %converter = $replace(%converter,Ä§,h)
  %converter = $replace(%converter,Å™,r)
  %converter = $replace(%converter,Ä“,e)  
  %converter = $replace(%converter,Ö»,i) 
  %converter = $replace(%converter,Ûµ,(l)) 
  %converter = $replace(%converter,Åž,S)
  %converter = $replace(%converter,Å¦,T)
  %converter = $replace(%converter,ÏŽ,w)
  %converter = $replace(%converter,ÅŸ,s)
  %converter = $replace(%converter,Å‚,l)
  %converter = $replace(%converter,Î­,e)
  %converter = $replace(%converter,Å³,u)
  %converter = $replace(%converter,Å£,t)
  %converter = $replace(%converter,Î­,e)
  %converter = $replace(%converter,Å—,r)
  %converter = $replace(%converter,Å¥,t)  
  %converter = $replace(%converter,Û°,°)
  %converter = $replace(%converter,ÐŒ,K)
  %converter = $replace(%converter,Ä„,A)
  %converter = $replace(%converter,Ñ–,i)
  %converter = $replace(%converter,Ð…,S)
  %converter = $replace(%converter,Î¿,ø)
  %converter = $replace(%converter,Î¤,T)
  %converter = $replace(%converter,Î•,e)
  %converter = $replace(%converter,Î‘,a)
  %converter = $replace(%converter,Ñ–,i)
  %converter = $replace(%converter,Ñƒ,y)
  %converter = $replace(%converter,ï, ) 
  %converter = $replace(%converter,, )
  %converter = $replace(%converter, ï€, )
  %converter = $replace(%converter,Ù­â,?)
  %converter = $replace(%converter,‰ˆ,??)
  %converter = $replace(%converter,â—,?)
  %converter = $replace(%converter,Šá,?)
  %converter = $replace(%converter,»ˆ,?)
  %converter = $replace(%converter,Å•,?)
  %converter = $replace(%converter,¯Î,?)
  %converter = $replace(%converter,ÛŒ,?)
  %converter = $replace(%converter,Ä¬,?)
  %converter = $replace(%converter,Ù‰,?)
  %converter = $replace(%converter,Å¦Î,?)
  %converter = $replace(%converter,¬Î²,?)
  %converter = $replace(%converter,Ä»á,?)
  %converter = $replace(%converter,º¿,?)
  %converter = $replace(%converter,â—,?)
  %converter = $replace(%converter,Šâ‰,?)
  %converter = $replace(%converter,ˆÙ­ï€ ï€ ï€,?)
  return %converter
}