on *:text:!anlam*:#kanal: {
  if ($2 == $null) { msg # Isım Yazmayi Unutunuz , Kullanimi : !anlam Isım | halt }
  anlam $2 #
}
alias anlam {
  if ($isim) { msg # Bot Suan Baska Bir Isımın Anlamina Bakmakta! | halt }
  msg $2 $2 Ismı Kontrol Ediliyor Lutfen Bekleyiniz.
  sockclose isim
  sockopen isim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  set -e %isim $1
  set -e %kanal $2
}
on *:sockopen:isim:{
  sockwrite -n $sockname GET / $+ %isim $+ / HTTP/1.1
  sockwrite -n $sockname Host: $+([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]))
  sockwrite -n $sockname    
}
on *:sockread:isim:{
  var %temp
  sockread %temp
  if (*Hata*404*Sayfa*Bulunamad* iswm %temp) { msg %kanal Kayıt bulunamadı. | sockclose isim }
  if (*<p>*</p>* iswm %temp) && !$regex(%temp,/(isimbul.net|Yoruma kapal)/) { msg %kanal $htmlfree(%temp) | sockclose isim }
}
alias htmlfree {
  var %x, %i = $regsub($replace($1-,$+($chr(38),#8217,$chr(59)),'),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}