on *:text:*:#KANAL: {
  if ($1 == !sozluk) {
    if (%tarat) { msg # Lutfen 3 saniye bekleyiniz yeni tarama yapmak icin. | halt }
    if (!$2) { msg # Sozcuk girmediniz! | halt }
    if ($3) { msg # Sadece tek kelime kullanabilirsiniz , Ornek: !sozluk Sinan | halt }
    set -u3 %tarat 1
    msg #  $+ $2 Kelimesi Taraniyor Lutfen Bekleyiniz..
    set %kanal #
    tarat $2
  }
}
alias tarat { var %63 $rand(0,$str(9,100)) | sockopen $+(sozluk*,%63) turkcebilgi.com 80 | sockmark $+(sozluk*,%63) $1 | set %kelime $1 } 
on *:sockopen:sozluk*:{
  var %s sockwrite -n $sockname
  %s GET / $+ $+ $sock($sockname).mark $+ /sozluk HTTP/1.1
  %s Host: turkcebilgi.com
  %s $crlf
}
on *:sockread:sozluk*:{  
  var %sozluk [ $+ [ $sockname ] ]
  sockread %sozluk [ $+ [ $sockname ] ]
  if (*<h4>* iswm %sozluk [ $+ [ $sockname ] ]) {
    set %genisanlam $afree(%sozluk [ $+ [ $sockname ] ])
  }
  if (*height:60px* iswm %sozluk [ $+ [ $sockname ] ]) {
    var %var evet
    msg %kanal $+(,$sock($sockname).mark,) Anlami: $afree(%sozluk [ $+ [ $sockname ] ])
    if (%genisanlam !== $null) { msg %kanal Ornek Detay Bilgi ~ | msg %kanal %genisanlam | unset %genisanlam }
    unset %kanal
    sockclose $sockname
    halt
  }
  if (*This object may be found* iswm %sozluk [ $+ [ $sockname ] ]) {
    msg %kanal $sock($sockname).mark Hakkinda bilgi bulunmamaktadir.
    unset %kanal
    unset %genisanlam
    sockclose $sockname
  }
}
alias afree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;, )
  return %x
}