;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;; İsim Anlamı ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;; Kodu mirc botunuzu ekledikten sonra ;;;;;;;;;;;;;;;;
;;;;;;;;Kod içerisindeki #isim kanalını editleyebilirsiniz;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Product by Dify;;;;; 
 
 on $*:text:/^[!\.]anlam\s([a-zA-ZşŞıöÖçÇğĞüÜ]+)/S:#isim:if  $sock(isim,1).status == active { msg $chan İstek bekleyen bağlantının sonlanmasını bekleyiniz | halt } | else { anlam $replace($regml(1),ş,s,Ş,s,ı,i,ö,o,Ö,o,ç,c,Ç,c,ğ,g,Ğ,g,ü,u,Ü,u)) }
alias anlam {
  sockclose isim
  sockopen isim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  set -e %isim $1
}
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 #isim Kayıt bulunamadı. | sockclose isim }
  if (*<p>*</p>* iswm %temp) && !$regex(%temp,/(isimbul\.net|Yoruma kapal)/) { msg #isim $regsubex($htmlfre(%temp),/(\&.+\d\x3B)/,$null) | sockclose isim }
}
alias htmlfre {
  var %x, %i = $regsub($replace($1-,$+($chr(38),#8217,$chr(59)),'),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}