Ýngilizce/Türkçe Türkçe/Ýngilizce Tercüme Kodu Socket

on $*:Text:/^[!.]([cçÇ]evir)(.+)/i:#sohbet,#felsefe,#radyo,#mirchelp:{
  if %cevirchan {
    msg # > Cevir sorgulamasi yaparken 10 sn beklemelisiniz.
    return
  }
  .set -u10 %cevirchan $chan
  cevir $2-
}
alias cevir {
  set -u10 %cevir_ $remove($trkarakter($1-),?,.)
  sockclose cevir | sockopen cevir www.google.com 80
}
on *:sockopen:cevir:{
  if $sockerr { .sockclose $sockname | echo -a Socket Hatasi }
  var %ko = sockwrite -n $sockname
  %ko GET /search?client=opera&q=google+translate+ $+ $replacex(%cevir_,$chr(32),+) $+ &sourceid=opera&ie=UTF-8&oe=UTF-8 HTTP/1.0
  %ko Host: www.google.com
  %ko $crlf
}
on *:sockread:cevir:{
  var %cev
  sockread -f %cev
  if $regex(%cev,/input value="(.+)" disabled="disabled" name="tlitett"/i) { msg %cevirchan [Ceviri] $xforbiturkcex($regml(1)) }
}
alias -l xforbiturkcex {
  return $replacexcs($1-,î,i,â,a,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ,$& 
    Ccedil;,Ç,A»,û,circ;s,s,icirc;,i,Uuml;,Ü,i ldquo;,i,hrdquo;,h,acirc;,a,ı,ý,circ;I,I,uml;B,B,nýrsquo;,`,$chr(195),A,$ˆR,R,rsquo;yi,`yi,ccedil;,ç,ouml;,ö,ç,ç,uuml;,ü,rsquo;,',A¼,ü,A¶,ö,ı,ý,ÅŸ,þ)

}

alias -l trkarakter return $replacex($1-,ý,$eval(%C4%B1,0),Ý,$eval(%C4%B0,0),ð,$eval(%C4%9F,0),Ð,$eval(%C4%9E,0),Þ,$eval(%C5%9E,0),þ,$eval(%C5%9F,0),ö,$eval(%C3%B6,0),Ö,$eval(%C3%96,0),ç,$eval(%C3%A7,0),Ç,$eval(%C3%87,0),ü,$eval(%C3%BC,0),Ü,$eval(%C3%9C,0))