################################################
#
# Название: translate.tcl 
#
# Official support: irc.yakimanka.net @ #inettools            
#
# Автор: Кut
#
# Версия: 1.0 
#
# Описание: Скрипт выводит перевод с Мужского на Женский и с Женского на Мужской.Бывает ненормативная лексика.
#
# Включения скрипта .chanset #chan +translate
################################################
namespace eval translate {

foreach p [array names translate *] { catch {unset translate($p) } } 

setudef flag translate

variable translate
array set translate {
 timer {15}
 pref {!}
 version "translate.tcl version 1.0"
 author "kut"
}

bind pub - $translate(pref)женщина ::translate::woman_pub 
bind pub - $translate(pref)мужик ::translate::man_pub 

proc ::translate::woman_pub {nick host hand chan text} {
      variable translate
if {![channel get $chan translate]} { 
        return 0
    }
      ::translate::woman_proc $nick $host $hand $chan $text
}

proc ::translate::man_pub {nick host hand chan text} {
      variable translate
if {![channel get $chan translate]} { 
        return 0
    }
      ::translate::man_proc $nick $host $hand $chan $text
}


proc ::translate::woman_proc {nick host hand chan text} {
    variable translate; variable timers; global lastbind;

if {[info exists timers($host)]} {
		
        set timewait [expr {$timers($host) + $translate(timer) - [unixtime]}]
        
        if {$timewait > 0} {
			
            putserv "NOTICE $nick :Команда $lastbind будет доступна через $timewait сек."
            
            return 0
            
        } 
        
	}
set timers($host) [unixtime]

::http::config -useragent "Mozilla/5.0 (Windows NT 6.1; rv:6.0.2) Gecko/20100101 Firefox/6.0.2" 
  set woman_tok [::http::geturl "http://blya.org/wig/translate2.php" -timeout 12000] 
  set data [::http::data $woman_tok]
    ::http::cleanup $woman_tok
set data [encoding convertfrom utf-8 $data]

 regsub -all -- {\n|\r|\t|\v} $data "" data
 regexp {<div style="color:#6600ff; font-style: Georgia; font-size:32px;">(.*?) </div> </td><td  style="padding-left:20px; margin-left: 20px; text-align: left;"><div style="font-style: Georgia; font-size:32px;"> (.*?)</div>} $data "" a b
 regexp {<td  style="text-align: left;"><div style="color:#6600ff; font-style: Georgia; font-size:32px;">(.*?) </div> </td><td style="padding-left:20px; margin-left: 20px; text-align: left;"> <div style="font-style: Georgia; font-size:32px;"> (.*?)</div></td></tr>} $data "" d v

 putserv "PRIVMSG $chan :$a $b"
 putserv "PRIVMSG $chan :$d $v"
}
proc ::translate::man_proc {nick host hand chan text} {
   variable translate; variable timers; global lastbind;
if {[info exists timers($host)]} {
		
        set timewait [expr {$timers($host) + $translate(timer) - [unixtime]}]
        
        if {$timewait > 0} {
			
            putserv "NOTICE $nick :Команда $lastbind будет доступна через $timewait сек."
            
            return 0
            
        } 
        
	}
set timers($host) [unixtime]

 ::http::config -useragent "Mozilla/5.0 (Windows NT 6.1; rv:6.0.2) Gecko/20100101 Firefox/6.0.2" 
  set man_tok [::http::geturl "http://blya.org/wig/translate.php" -timeout 12000] 
  set data [::http::data $man_tok]
    ::http::cleanup $man_tok
set data [encoding convertfrom utf-8 $data]
 
 regsub -all -- {\n|\r|\t|\v} $data "" data
 regexp {<table  style="padding-top: 7%;"><tr><td style="text-align: left;"><div style="color:#2c66ff; font-style: Georgia; font-size:32px;">(.*?) </div> </td><td  style="padding-left:20px; margin-left: 20px; text-align: left;"><div style="font-style: Georgia; font-size:32px;"> (.*?)</div></td>} $data "" a b
 regexp {<td  style="text-align: left;"><div style="color:#2c66ff; font-style: Georgia; font-size:32px;">(.*?) </div> </td><td style="padding-left:20px; margin-left: 20px; text-align: left;"> <div style="font-style: Georgia; font-size:32px;"> (.*?)</div></td></tr>} $data "" d v

 putserv "PRIVMSG $chan :$a $b"
 putserv "PRIVMSG $chan :$d $v"

   }
putlog "$translate(version) by $translate(author) loaded"

     }