rendered paste bodyon *:TEXT:*:#:{
if ($1 == !translate) {
if ($2 == $null) {
notice $nick $cmderror nothing to Translate!
halt
}
set %trans.input $2-
if $sock(gizoogle) { sockclose gizoogle }
sockopen gizoogle www.gizoogle.com 80
set %trans.nick $nick
}
}
on *:SOCKOPEN:gizoogle: {
sockwrite -n gizoogle GET /index.php?hl=en&translate=true&transtext= $+ $+(trans:,+,%trans.input) $+ &transtype=jive
sockwrite -n gizoogle Host: www.gizoogle.com
}
on *:SOCKREAD:gizoogle: {
if ($sockerr) {
notice %trans.nick $cmderror Socket error translating 14 %trans.input $+ !
sockclose gizoogle
halt
}
else {
var %gizoogle
sockread %gizoogle
var %gizoogle = $htmlfree(%gizoogle)
if (trans: isin %gizoogle) { notice %trans.nick 4(14 Gizoogle Translation 4)-14 $right(%gizoogle,-6) }
}
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}