on *:TEXT:*:*: {
   if $1 == !damn || $1 == !факер {
     if $2 {
       if !$hget(var) { hmake var 1 }
       hdel var fname | hdel var name | hdel var sname | hdel var oname | hdel var nname | sockopen damn. $+ $chan $+ . $+ $nick damn.ru 80
       hadd var sname $iif($left($2,1) != м && $left($2,1) != ж,0,$replace($2,муж,0,жен,1,м,0,ж,1))
       if $6 { hadd var name $iif($left($2,1) == м || $left($2,1) == ж,$3,$2) | hadd var fname $iif($left($2,1) == м || $left($2,1) == ж,$4,$3) | hadd var oname $iif($left($2,1) == м || $left($2,1) == ж,$5,$4) | hadd var nname $iif($left($2,1) == м || $left($2,1) == ж,$6,$5) }
       elseif $5 { hadd var fname $iif($left($2,1) == м || $left($2,1) == ж,$3,$2) | hadd var oname $iif($left($2,1) == м || $left($2,1) == ж,$4,$3) | hadd var nname $iif($left($2,1) == м || $left($2,1) == ж,$5,$4) }
       elseif $4 { hadd var oname $iif($left($2,1) == м || $left($2,1) == ж,$3,$2) | hadd var nname $iif($left($2,1) == м || $left($2,1) == ж,$4,$3) }
       elseif $3 { hadd var nname $iif($left($2,1) == м || $left($2,1) == ж,$3,$2) }
     }
     else { notice $nick Чтобы поласкаться используй: $1 [м|ж] [Имя] [Фамилия] [Отчество] <Ник> }
   }
}
on *:SOCKOPEN:damn.*: { sockwrite -n $sockname GET /index.php?time=1108107541&key=&fName1= $+ $hget(var,name) $+ &fName2= $+ $hget(var,fname) $+ &fName3= $+ $hget(var,oname) $+ &fName4= $+ $hget(var,nname) $+ &fGender= $+ $hget(var,sname) HTTP/1.0 $+ $crlf $+ Host: damn.ru $+ $crlf $+ $crlf }
on *:SOCKREAD:damn.*: { var %i | sockread %i | $iif(<div class="message_big_red"> isin %i,msg $replace($gettok($sockname,2,46),$chr(46),$chr(32)) $remove(%i,<div class="message_big_red">,<SPAN class='name'>,</SPAN>,</div>)) | $iif(<div class="message_big_red"> isin %i,sockclose $sockname) }