on *:text:*:#:{
  if $regex($1,/^[!.-]had[ıiIl][sş]$/Si) {
    set %:kanal #
    hadis
  }
}
alias hadis {
  if ($sock(hadisd-*)) { sockclose hadisd-* }
  sockopen hadisd-* api.tavcan.com 80
}
on *:sockopen:hadisd-*: {
  var %hadisvertest sockwrite -tn $sockname 
  %hadisvertest GET $+(/json/birhadis) HTTP/1.1
  %hadisvertest Host: api.tavcan.com
  %hadisvertest User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:104.0) Gecko/20100101 Firefox/104.0
  %hadisvertest Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8
  %hadisvertest Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  %hadisvertest Alt-Used: api.tavcan.com
  %hadisvertest Connection: close
  %hadisvertest $crlf
}
on *:sockread:hadisd-*:{
  :hadisverımtest | sockread -f %hadisvertesti
  if ($sockbr == 0) return
  if (*"soz":* iswm %hadisvertesti ) msg %:kanal 4 3 $_fl(%hadisvertesti)
  goto hadisverımtest
}
alias _fl return $replace($1-,\u0130,i,\u0041,A,\u0061,a,\u0130,İ,\u00e2,â,\u00fc,ü,\u0131,ı,\u2019,',\u00fb,û,\u00ee,î,\u201c,",\u201d,",\u00f6,ö,Soz,Hadis)