on *:load: { echo -a [€] Alert_Message > Interprete script Caricato con successo. [digita /Int per avviarlo] | halt }
alias int { dialog -m $str($+(int_dialog,$chr(32)),2) }
dialog int_dialog {
  title "Interprete instantaneo - @Sp"
  size -1 -1 107 55
  option dbu
  tab "Interprete" , 2 , 0 0 110 60
  tab "Traduttore" , 7
  check "Attiva Int\Translator", 1, 1 15 60 10, tab 2
  combo 3, 1 25 60 32, sort size drop, tab 2
  button "About", 4, 65 28 40 21, tab 2
  text "Copyleft @2005-2010", 5, 2 43 59 8, tab 2
  button "Sponsorizza", 6, 66 17 37 9, flat, tab 2
  edit "Inserisci testo da tradurre...", 8, 0 16 107 27, multi autovs, tab 7
  button "Traduci", 9, 57 44 37 10, tab 7
  button "/Clear", 10, 13 44 37 10, tab 7
} 
on *:dialog:int_dialog:sclick:10: { did -r int_dialog 8 }
on *:dialog:int_dialog:sclick:9: {
  if (lingua !isin $did(int_dialog,3).text) && ($did(int_dialog,1).state == 1) { set %t.text $replace($did(int_dialog,8).text,$decode("<VD`),sì,$decode(cHVv,m),può) | set %tr.setup on | get_traduttore | halt }
  else { 
    if ($dialog(t_tr)) { dialog -x $str($+(t_tr,$chr(32)),2) } 
dialog -m $str($+(t_tr,$chr(32)),2) | did -a t_tr 1 [Found_Error] - Non è stata selezionata alcuna lingua per la traduzione. Attivarne una e riprovare l'operazione } }
on *:dialog:int_dialog:close:*: { if (%on.t) { echo -a [€] Alert_Message > Hai chiuso la dialog ma lo script è ancora in funzione | set %sel_c $replace(%on.t,it_en,2,it_fr,3,en_it,4,en_fr,5,en_de,6,fr_de,7,de_en,8) } }
on *:dialog:int_dialog:sclick:3: { 
if ($did(int_dialog,1).state != 0) { if (lingua !isin $did(int_dialog,3)) { set %on.t $replace($did(int_dialog,3).text,\,_,Italiano,it,Inglese,en,Tedesco,de,Francese,fr,Spagnolo,es) } } }
on *:dialog:int_dialog:sclick:1: { 
  did $+(-,$iif($did(int_dialog,1).state == 0,b,e)) int_dialog 3
  if ($did(int_dialog,1).state == 0) { unset %on.t } 
else { if (lingua !isin $did(int_dialog,3).seltext) { set %on.t $replace($did(int_dialog,3).text,\,_,Italiano,it,Inglese,en,Tedesco,de,Francese,fr) } } }
on *:dialog:int_dialog:sclick:6: { ame utilizza [Interprete Instantaneo v.1.0.2] @Sp - Scaricalo al seguente indirizzo -> www.irc-zone.org (Sezione Addon utility) }
on *:dialog:int_dialog:init:*: {
  set %int_s did -i int_dialog 3
  %int_s 1 Seleziona lingua..
  %int_s 2 Italiano\Inglese
  %int_s 3 Italiano\Francese
  %int_s 4 Inglese\Italiano
  %int_s 5 Inglese\Francese
  %int_s 6 Inglese\Tedesco
  %int_s 7 Francese\Tedesco
  %int_s 8 Francese\Inglese
  %int_s 9 Francese\Italiano
  %int_s 10 Spagnolo\Inglese
  %int_s 11 Spagnolo\Francese
  if (%on.t) { did -c int_dialog 1 | did -e int_dialog 3 | did -c int_dialog 3 %sel_c }
  else { did -b int_dialog 3 | did -c int_dialog 3 1 Seleziona lingua.. }
}
on *:input:*: { if (%on.t) && ($left($1,1) != /) { set %t.text $replace($1-,$decode("<VD`),sì,$decode(cHVv,m),può) | set %t.chan $chan | unset %tr.setup | get_traduttore | halt } } 
alias get_traduttore { sockclose trd | unset %m_out | sockopen trd world.altavista.com 80 }
on *:sockopen:trd: {
  set %sock_w sockwrite -n $sockname
  set %sock_fd $decode(PHRkIGJnY29sb3I9d2hpdGUgY2xhc3M9cz48ZGl2IHN0eWxlPXBhZGRpbmc6MTBweDs+,m)
  %sock_w GET /tr?doit=done&tt=urltext&urltext= $+ $replace(%t.text,$chr(32),+) $+ &url=http%3A%2F%2F&lp= $+ %on.t HTTP/1.0
  %sock_w Host: $+ $sock(trd).ip
  %sock_w
}
on *:sockread:trd: { 
  sockread %sock_get
  if (%sock_fd isin %sock_get) { set %m_out on } 
  if (%m_out) { 
    if (%tr.setup == on) { 
      if ($dialog(t_tr)) { dialog -x $str($+(t_tr,$chr(32)),2) } 
    dialog -m $str($+(t_tr,$chr(32)),2) | did -a t_tr 1 $remove($iif(%sock_fd isin %sock_get,$gettok(%sock_get,3,62),%sock_get),</div></td>,</div) }
  else { echo -m %t.chan $+($chr(60),$me,$chr(62)) $remove($iif(%sock_fd isin %sock_get,$gettok(%sock_get,3,62),%sock_get),</div></td>,</div) | .msg %t.chan $remove($iif(%sock_fd isin %sock_get,$gettok(%sock_get,3,62),%sock_get),</div></td>,</div) } }
if (</div></td> isin %sock_get) { unset %m_out } }
on *:dialog:int_dialog:sclick:4: { dialog -m $str($+(about,$chr(32)),2) }
dialog about {
  title "About - @Sp"
  size -1 -1 107 91
  option dbu
  text "Interprete instantaneo 1.0.2", 1, 1 2 105 8
  text "Semplice ma nello stesso tempo risultato", 2, 0 17 105 8
  text "piuttosto utile in certe situazioni.", 3, 0 23 106 8
  text "Consiglio vivamente di leggere il readme", 4, 0 29 105 8
  text "Per qualsiasi Consiglio,Bug,Critica:", 5, 0 35 107 8
  text "* Sp@irc-zone.org || Sp31337@gmail.com", 6, 0 50 104 8
  text "* irc.ircsure.net $ #scripters", 7, 0 57 104 8
  text "* irc.azzurra.org $ #Sp", 8, 0 64 108 8
  text "Sp", 9, 86 79 16 9
  text "        ############", 10, 16 10 86 8
  button "Continua", 11, 1 79 37 11, ok
}
on *:dialog:int_dialog:edit:8: { if ($+($decode(SW5zZXJpc2NpIHRlc3RvIGRhIHRyYWR1cnJlLi4u,m),*) iswm $did(int_dialog,8).text) { did -r int_dialog 8  } }
dialog t_tr {
  title "Result [Traduzione]"
  size -1 -1 156 83
  option dbu
  edit "", 1, -1 0 158 82, multi autovs
}
