alias htmlfree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;, )
  return %x
}
on *:sockopen:ceviri*: {
  sockwrite -n $sockname GET $+(/,%tr-ing,.php?,%dtr-ing,=,$sock($sockname).mark)  HTTP/1.1
  sockwrite -n $sockname Host: guzelsozluk.com $+ $crlf $+ $crlf
}
on *:Sockread:ceviri*: {
  var %ceviri
  sockread %ceviri 
  tokenize 32 %ceviri
  if (*button.gif" title="dinle"* iswm %ceviri) {
    echo -a Cevirilcek Sozcuk: $replace($qt($sock($sockname).mark),+,$chr(32))
    echo -a Ceviri: $qt($htmlfree(%ceviri))
  }
}
alias pck {
  inc %63
  sockopen $+(ceviri,%63) guzelsozluk.com 80
  sockmark $+(ceviri,%63) $replace($1-,$chr(32),+) 
}
alias cevir {
  if ($1 == ing) {
    set %tr-ing turkce
    set %dtr-ing ing
    pck $2-
  }
  if ($1 == tr) {
    set %tr-ing ingilizce
    set %dtr-ing tur
    pck $2-
  }
}