;Google Translator. Compatible with mIRC 6.32+
;To install just load GoogleTranslator.mrc in the remote section of the scripteditor.
;Usage: In a channel type: !translate auto|EN Your non EN (english) sentence here.
;The from|to syntax is composed of 2 languages and a seperator. The first language is the language you
;write in, or autodetect mode. (eg.auto; FR (french) DE (German)). The languages are seperated by a |
;e.g. auto|EN. And the last language is the language it needs to be translated too.
;When Installed try this example first to see what it does. The sentence says "This is a test" in dutch.
;If you use it, the translator should return it in english.
;Example sentence: !translate NL|EN Dit is een test
;Replace NL by auto to let google detect the language.
;Credits for the basics go to seroyez. I removed the binvars and used regexes instead, since mirc 6.32.
;Feel free to use this script in any way you like but remember you can flood google with it so use wiseley.
;I'd like to see someone take this script and make some pretty dialog boxes for it and stuff.
;To get a list of all currently available languages use the command !translang in channel.
ON *:TEXT:*:#: {
if ($1 == !googlecevir) {
.remotetranslate # $nick $2-
}
elseif ($1 == !cevir) {
.msg # Ceviri Yapabiliceginiz Diller - 4AUTO|12tr - AUTO 2Arabic - AR 1Bulgarian - BG 2Catalan - CA 1Tradiditonal 2Chinese - zh-TW 1Simplified Chinese - zh-CN 2Danish - DA 1German - DE 2English - EN 1Finnish - FI 2French - FR 1Greek - EL 2Hebrew - IW 1Hindi - HI 2Indonesian - ID 1Italian - IT 2Japanese - JA 1Korean - KO 2Croatian - HR 1Latvian - LV 2Croatian - LT 1Dutch - NL 2Norwegian - NO 1Ukrainian - UK 2Polish - PL 1Portuguese - PT 2Romanian - RO 1Russian - RU 2Serbian - SR 1Slovak - SK 2Slovene - SL 1Spanish - ES 2Tagalog - tl 1Czech - CS 2Vietnamese - VI 1Swedish - SV 
}
}
ON *:INPUT:#: {
if ($1 == !googlecevir) {
.remotetranslate # $nick $2-
}
elseif ($1 == !cevir) {
.echo # Ceviri Yapabiliceginiz Diller - 4AUTO|12tr - AUTO 2Arabic - AR 1Bulgarian - BG 2Catalan - CA 1Tradiditonal 2Chinese - zh-TW 1Simplified Chinese - zh-CN 2Danish - DA 1German - DE 2English - EN 1Finnish - FI 2French - FR 1Greek - EL 2Hebrew - IW 1Hindi - HI 2Indonesian - ID 1Italian - IT 2Japanese - JA 1Korean - KO 2Croatian - HR 1Latvian - LV 2Croatian - LT 1Dutch - NL 2Norwegian - NO 1Ukrainian - UK 2Polish - PL 1Portuguese - PT 2Romanian - RO 1Russian - RU 2Serbian - SR 1Slovak - SK 2Slovene - SL 1Spanish - ES 2Tagalog - tl 1Czech - CS 2Vietnamese - VI 1Swedish - SV 
}
}
alias remotetranslate { 
var %I = $ticks 
set $+(%,trans.chan.,%I) $1 
set $+(%,trans.nick.,%I) $2
set $+(%,trans.lang.,%I) $3 
set $+(%,trans.phrase.,%I) $remove($4-,$chr(42))
sockopen $+(remotetrans.,%I) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 
} 
on *:SOCKOPEN:remotetrans.*: { 
sockwrite -n $sockname GET $+(/translate_t?langpair=,$($+(%,trans.lang.,$gettok($sockname,2,46)),2),&text=,$urlencode($($+(%,trans.phrase.,$gettok($sockname,2,46)),2))) HTTP/1.1 
sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size="2">sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9b4) Gecko/2008030714 Firefox/3.0b4 $+ $crlf $+ $crlf 
} 
on *:SOCKREAD:remotetrans.*: {
var %I = $gettok($sockname,2,46)
var %r 
sockread %r
if ($regex(%r,<div id=result_box dir="ltr">)) {
.msg $($+(%,trans.chan.,%I),2) 4Google Ceviri $($+(%,trans.nick.,%I),2) :2 $replace($regsubex(%r,/[^*]*<div id=result_box dir="ltr">|</div>[^*]*/g,$null),',') 
.echo $($+(%,trans.chan.,%I),2) 4Google Ceviri $($+(%,trans.nick.,%I),2) :2 $replace($regsubex(%r,/[^*]*<div id=result_box dir="ltr">|</div>[^*]*/g,$null),',') 
unset %trans.*. [ $+ [ $gettok($sockname,2,46) ] ] | sockclose $sockname
}
elseif ($regex(%r,<div id=result_box dir="rtl">)) {
.msg $($+(%,trans.chan.,%I),2) 4Kelimeniz Cevrilmistir $($+(%,trans.nick.,%I),2) :2 $replace($regsubex(%r,/[^*]*<div id=result_box dir="rtl">|</div>[^*]*/g,$null),',') 
.echo $($+(%,trans.chan.,%I),2) 4Kelimeniz Cevrilmistir $($+(%,trans.nick.,%I),2) :2 $replace($regsubex(%r,/[^*]*<div id=result_box dir="rtl">|</div>[^*]*/g,$null),',') 
unset %trans.*. [ $+ [ $gettok($sockname,2,46) ] ] | sockclose $sockname
}
}
alias langfull { 
if ($1 == Auto) { return Auto }
elseif ($1 == ar) { return Arabic }
elseif ($1 == tr) { return Turkiye }
elseif ($1 == bg) { return Bulgarian }
elseif ($1 == ca) { return Catalan }
elseif ($1 == zh-TW) { return Tradiditonal Chinese }
elseif ($1 == zh-CN) { return Simplified Chinese }
elseif ($1 == da) { return Danish }
elseif ($1 == de) { return German }
elseif ($1 == en) { return English }
elseif ($1 == fi) { return Finnish }
elseif ($1 == fr) { return French }
elseif ($1 == el) { return Greek }
elseif ($1 == iw) { return Hebrew }
elseif ($1 == hi) { return Hindi }
elseif ($1 == id) { return Indonesian }
elseif ($1 == it) { return Italian }
elseif ($1 == ja) { return Japanese }
elseif ($1 == ko) { return Korean }
elseif ($1 == hr) { return Croatian }
elseif ($1 == lv) { return Latvian }
elseif ($1 == lt) { return Croatian }
elseif ($1 == nl) { return Dutch }
elseif ($1 == no) { return Norwegian }
elseif ($1 == uk) { return Ukrainian }
elseif ($1 == pl) { return Polish }
elseif ($1 == pt) { return Portuguese }
elseif ($1 == ro) { return Romanian }
elseif ($1 == ru) { return Russian }
elseif ($1 == sr) { return Serbian }
elseif ($1 == sk) { return Slovak }
elseif ($1 == sl) { return Slovene }
elseif ($1 == es) { return Spanish }
elseif ($1 == tl) { return Tagalog }
elseif ($1 == cs) { return Czech }
elseif ($1 == vi) { return Vietnamese }
elseif ($1 == sv) { return Swedish }
} 
alias b { return $+($chr(2),$1-,$chr(2)) } 
alias br { return $+($chr(40),$1-,$chr(41)) } 
alias urlencode { return $regsubex($1,/(\W)/gS,% $+ $base($asc(\1),10,16,2))) } 
alias antientities { return $regsubex($1,/&(.+?);/g,$entity2chr(\1)) } 
alias entity2chr { 
if #* iswm $1 return $chr($mid($1,2)) 
elseif $1 == nbps return $chr(32) 
elseif $1 == quot return " 
elseif $1 == apos return ' 
elseif $1 == amp return & 
elseif $1 == lt return < 
elseif $1 == gt return > 
elseif $1 == copy return © 
elseif $1 == reg return ® 
else return $1 
} 

#TransTrigger on
On $*:Text:/^(!|@)cevir.*/Si:#: {
  if ($timer($+(Gtrans,$network,$nick))) { return }
  .timer $+ $+(Gtrans,$network,$nick) 1 4 noop
  var %method $iif($regml(1) == !,.notice $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/),.msg $chan,.notice $nick))
  if (help isin $1) { TransHelp %method | return }
  if (!$3) { %method No text to Translate | TransHelp %method | return }
  if (!$regex($left($2,3),/-|_/)) { %method $2- bilinmiyor. | TransHelp %method | return }
  if (!$regex($left($2,2),/en|fr|nl|de|pt|it|es|sq|et|ca|hr|cs|da|et|tl|fi|gl|hu|id|lv|lt|mt|no|pl|ro|sk|sl|sv|tr/i)) {
    %method $2- is bilinmiyor.
    TransHelp %method
    return
  }
  if (!$regex($right($2,2),/en|fr|nl|de|pt|it|es|sq|et|ca|hr|cs|da|et|tl|fi|gl|hu|id|lv|lt|mt|no|pl|ro|sk|sl|sv|tr/i)) {
    %method $2- is bilinmiyor.
    TransHelp %method
    return
  }
  cevir %method $2 $strip($3-)
}
#TransTrigger end
alias -l TransHelp {
  $1-2 Syntax: !cevir L1-L2 Text to translate. L1 = the language you are typing in. L2 = The language you want to translate to.
  $1-2 Valid languages: en,fr,nl,de,pt,it,es,sq,et,ca,hr,cs,da,et,tl,fi,gl,hu,id,lv,lt,mt,no,pl,ro,sk,sl,sv,tr $&
    For a code explanation look here -->> Google Translate API v1 JavaScript Reference - Google Translate API v1 - Google Code
}
alias -l cevir {
  var %sockname $+(GTrans,$network,$2,$ticks)
  sockopen %sockname translate.google.com 80
  sockmark %sockname $1-2 $+(/translate_t?langpair=,$lower($replace($3,-,|,_,|)),&text=,$fixurl($4-),#)
}
on *:sockopen:GTrans*: {
  if (!$sockerr) {
    sockwrite -nt $sockname GET $gettok($sock($sockname).mark,3,32) HTTP/1.0
    sockwrite -n $sockname Host: translate.google.com $+ $str($CRLF,2)
  }
  else { echo -st socket error $nopath($script) | sockclose $sockname | return }
}
on *:sockread:GTrans*: {
  if ($sockerr) { echo -st socket error $nopath($script) | sockclose $sockname | return }
  else {
    sockread -fn &transvar
    ;echo -a $bvar(&transvar,1,$bvar(&transvar,0)).text
    if ($bintween(&transvar,onmouseout="this.style.backgroundColor='#fff'">,</span>,1)) {
      $gettok($sock($sockname).mark,1-2,32) $fixhtml($v1)
    }
  }
}
alias -l bintween {
  var %count = 1, %mark = 0, %mark2 = 0
  while (%count <= $4) {
    if ($bfind($1, %mark2, $2).text) {
      %mark = $calc($bfind($1, %mark2, $2).text + $len($2))
      if ($bfind($1, %mark, $3).text) {
        %mark2 = $bfind($1, %mark, $3).text
      }
      else { return 0 } 
    }
    else { return 0 }
    inc %count
  }
  return $bvar($1, $iif(%mark > 0,%mark,1), $calc(%mark2 - %mark)).text
}
alias -l fixhtml { return $remove($regsubex($1-,/#([\d][\d][\d]?);/g,$chr(\t)),&amp;,gt;,lt;) }
ON *:Start:{
  Echo -a 4 6You have just loaded 3F4o5r6d7-9T3r4a5n6s7l9a3t4o5r 4 6English Version.
  Echo -a 4 6By Ford_Lawnmower
  Echo -a 4 6Questions and comments,  You can find me in #USA-Chat on irc.geekshed.net
  Echo -a 4 6irc://irc.geekshed.net
}
dialog Translate {
  title "Ford-Trans Basic"
  size -1 -1 152 137
  option dbu
  combo 1, 8 8 60 10, drop
  combo 2, 84 8 60 10, drop
  edit "", 3, 8 32 136 82, multi autovs
  button "Translate", 5, 56 115 38 12
  combo 6, 84 21 60 10, drop
  button "Close", 7, 104 115 38 12, cancel
  button "Clear Screen", 8, 10 115 37 12
  text "To", 9, 70 10 9 8, center
  text "Translate this text to ------->", 10, 6 22 73 8, right
  text "", 11, -2 128 153 8, center
}
On *:Dialog:Translate:Sclick:8: {
  did -rf $dname 3
}
On *:Dialog:Translate:Sclick:5: {
  if (!$did($dname,3).text) { 
    did -a $dname 11 Type some text in the box to translate
    did -f $dname 3
    .timer 1 3 did -a $dname 11
    return
  }
  var %trans.text, %trans.lines = $did($dname,3).lines, %trans.count = 1
  while (%trans.count <= %trans.lines) {
    %trans.text = %trans.text $+ $did($dname,3,%trans.count).text
    inc %trans.count
  }
  if ($did($dname,6).seltext == Echo Here) {
    cevir echo -a $langcode($+($did($dname,1).seltext,_,$did($dname,2).seltext)) %trans.text
  }
  else {
    var %tlanguages = $langcode($+($did($dname,1).seltext,|,$did($dname,2).seltext))
    cevir msg $did($dname,6).seltext %tlanguages %trans.text    
  }
}
On *:Dialog:Translate:init:*: {
  didtok $dname 1,2 44 English,German,Italian,Spanish,Portuguese,French,Dutch,Albanian,Estonian,Catalan,Croatian,Czech,Danish,Estonian,Filipino
  didtok $dname 1,2 44 Galician,Hungarian,Indonesian,Latvian,Lithuanian,Maltese,Norwegian,Polish,Romanian,Slovak,Slovenian,Swedish,Turkish
  did -c $dname 1 1
  did -c $dname 2 2
  did -ac $dname 6 Echo Here
  if ($chan(0)) {
    var %chan.count = $chan(0)
    while %chan.count {
      did -a $dname 6 $chan(%chan.count)
      dec %chan.count
    }
  }
  if ($query(0)) {
    var %pm.count = $query(0)
    while (%pm.count) {
      did -a $dname 6 $query(%pm.count)
      dec %pm.count
    }
  }
}
alias Trans_Chan {
  if ($dialog(Trans_Chan)) { dialog -v Trans_Chan Trans_Chan }
  else { dialog -m Trans_Chan Trans_Chan }
}
dialog Trans_Chan {
  title "Translate to Channel/Query"
  size -1 -1 136 48
  option dbu
  combo 1, 0 0 60 10, drop
  combo 2, 76 0 60 10, drop
  text "To", 3, 64 2 9 8
  edit "", 4, 0 15 135 10, autohs
  button "Clear", 5, 2 32 37 12
  button "Send", 6, 50 32 37 12
  button "Cancel", 7, 96 32 37 12, cancel
}
On *:Dialog:Trans_Chan:Sclick:6: {
  if (!$did($dname,4).text) { did -f $dname 4 | return }
  else {
    var %tlanguages = $langcode($+($did($dname,1).seltext,|,$did($dname,2).seltext))
    if ($active == status window) { cevir echo -a %tlanguages $did($dname,4).text }
    else { cevir msg $active %tlanguages $did($dname,4).text }
  }
}
On *:Dialog:Trans_Chan:Sclick:5: { did -rf Trans_Chan 4 }
On *:Dialog:Trans_Chan:init:*: {
  didtok $dname 1,2 44 English,German,Italian,Spanish,Portuguese,French,Dutch,Albanian,Estonian,Catalan,Croatian,Czech,Danish,Estonian,Filipino
  didtok $dname 1,2 44 Galician,Hungarian,Indonesian,Latvian,Lithuanian,Maltese,Norwegian,Polish,Romanian,Slovak,Slovenian,Swedish,Turkish
  did -c $dname 1 1
  did -c $dname 2 2
  did -f $dname 4
}
dialog ClipTrans {
  title "ClipTrans"
  size -1 -1 64 48
  option dbu
  combo 1, 1 0 63 10, drop
  combo 2, 1 20 63 10, drop
  text "To", 3, 24 11 9 8, center
  button "Translate", 4, 1 34 29 12
  button "Close", 5, 34 34 29 12, cancel
}
alias -l ClipTrans {
  if ($dialog(Cliptrans)) { dialog -v Cliptrans Cliptrans }
  else { dialog -m Cliptrans Cliptrans }
}
On *:Dialog:ClipTrans:Sclick:4: {
  var %tlanguages = $langcode($+($did($dname,1).seltext,|,$did($dname,2).seltext)) 
  if ($cb(0)) { TransClip %tlanguages }
  else { echo -a clipboard is empty }
}
On *:Dialog:ClipTrans:init:*: {
  didtok $dname 1,2 44 English,German,Italian,Spanish,Portuguese,French,Dutch,Albanian,Estonian,Catalan,Croatian,Czech,Danish,Estonian,Filipino
  didtok $dname 1,2 44 Galician,Hungarian,Indonesian,Latvian,Lithuanian,Maltese,Norwegian,Polish,Romanian,Slovak,Slovenian,Swedish,Turkish
  did -c $dname 1 2
  did -c $dname 2 1
}
alias -l httpstrip {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,',&#039 ;)
  return %x
}
alias  -l fixurl return $regsubex($1-,/([^a-z0-9])/ig,% $+ $base($asc(\t),10,16,2))
alias -l transclip { 
  var %clip.count = $cb(0), %clip.counter = 1, %clip.time = 1
  while (%clip.counter <= %clip.count) {
    .timer 1 %clip.time cevir echo -a $1 $remove($strip($cb(%clip.counter)),$chr(124))
    inc %clip.counter
    inc %clip.time 2
  }
}
alias -l Ford-Trans {
  if (!$dialog(Translate)) { dialog -m translate translate }
  else { dialog -v translate translate }
}
alias -l langcode { 
  var %langcode = $replace($1,english,en,german,de,italian,it,spanish,es,portuguese,pt,french,fr,dutch,nl,albanian,sq,estonian,et,catalan,ca,croatian,hr,czech,cs,$&
    danish,da,estonian,et,filipino,tl,finnish,fi,galician,gl,hungarian,hu,indonesian,id,latvian,lv,lithuanian,lt,maltese,mt,norwegian,no,polish,pl,romanian,ro,slovak,sk,$&
    slovenian,sl,swedish,sv,turkish,tr) 
  return %langcode
}
alias cevir {
  if ($timer($+(Gtrans,$network,$nick))) { return }
  .timer $+ $+(Gtrans,$network,$nick) 1 4 noop
  var %method $iif($regml(1) == !,.msg $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/),.msg $nick,msg $chan))
  if (help isin $1) { TransHelp %method | return }
  if (!$3) { %method No text to Çevir | TransHelp %method | return }
  if (!$regex($left($2,3),/-|_/)) { %method $2- is bilinmiyor. | TransHelp %method | return }
  if (!$regex($left($2,2),/en|fr|nl|de|pt|it|es|sq|et|ca|hr|cs|da|et|tl|fi|gl|hu|id|lv|lt|mt|no|pl|ro|sk|sl|sv|tr/i)) {
    %method $2- is bilinmiyor.
    TransHelp %method
    return
  }
  if (!$regex($right($2,2),/en|fr|nl|de|pt|it|es|sq|et|ca|hr|cs|da|et|tl|fi|gl|hu|id|lv|lt|mt|no|pl|ro|sk|sl|sv|tr/i)) {
    %method $2- is bilinmiyor.
    TransHelp %method
    return
  }
  cevir %method $2 $strip($3-)
}
;;;;;;;;;;;;;;;;
menu * {
  -
  .Google Çeviri
  ..özelde Çeviri:Trans_Chan
  ..Dialog Kullanım:Ford-Trans
  ..Diller arası kullanım:dilr
  ..$iif($group(#TransTrigger) == On,$style(1)) Kanaldakilerin çevirisi örn: !cevir en-tr yes
  ...$iif($group(#TransTrigger) == On,$style(2)) On: .enable #TransTrigger
  ...$iif($group(#TransTrigger) == Off,$style(2)) Off: .disable #TransTrigger
  -
}