alias burc {
  if $sock(burc) { sockclose burc }
  sockopen burc mahmure.hurriyet.com.tr 80
  set %brcs $1 
}
alias duzlt return $replace($1-,•, ,ç,$chr(231),ö,$chr(246),ü,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),’,$chr(146),â,$chr(226))
alias htmlfree { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } 
on *:sockopen:burc:{
  var %burc = sockwrite -n burc
  %burc GET /astroloji/burclar/ $+ %brcs $+ -burcu-gunluk-yorum HTTP/1.1
  %burc Host: mahmure.hurriyet.com.tr
  %burc User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0
  %burc Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %burc Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  ;%burc Accept-Encoding: gzip, deflate
  %burc Cookie: hcatFrom=astroloji; _sgf_user_id=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; hrp_gb=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; __atuvc=6%7C10; ASP.NET_SessionId=4a4giokhxmtt1wa2hbiqfpqs; __atuvs=58bc94ec413b9cfb000; semPageCounter=2
  %burc Connection: keep-alive
  %burc Upgrade-Insecure-Requests: 1
  %burc $crlf
}

on *:sockread:burc:{
  var %burcc
  sockread %burcc
  ;echo -a %burcc
  var %text $htmlfree(%burcc)
  var %rtext $remove($replace(%text,&bull;, ,&ccedil;,$chr(231),&ouml;,$chr(246),&uuml;,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),&rsquo;,$chr(146),&acirc;,$chr(226),Ä,$chr(208),&nbsp;,$chr(32)),Günün Emojisi:)
  if (*<p>*</p>* iswm %burcc) || (*<p><strong>*</strong>*</p>* iswm %burcc) { .msg %:chan $+($chr(3),02,%rtext) | .unset %:chan | sockclose burc }
}

on $*:text:/^[.!]bur[cç]/Si:#:{
  if $istok(%yasakknick,$nick,32) { return }
  if !$regex($2,/(ko[Ççc]|bo[Ğğg]a|[İiı]k[İiı]zler|yenge[Ççc]|aslan|ba[Şşs]ak|teraz[İiı]|akrep|yay|o[Ğğg]lak|kova|bal[İiı]k)/Si) { msg $chan $+($chr(3),4,$nick) 2Aaaa yeni burç türedi sanırım... Adam gibi burcunu yaz ;) | return }
  if (!$2) { msg $chan $+($chr(3),4,$nick) 2Burç belirtmediniz }
  elseif $hget(burc,$nick) && ($nick != pC`kOpAt) { .notice $nick $hget(burc,$nick).unset saniye içersinde, Yalnız 1 defa [!]burc Komutunu Kullanabilirsiniz. }
  else {
    .set %:chan $chan
    .timer -h 1 500 burc $replace($lower($2),İ,i,I,i,Ğ,g,ğ,g,Ş,s,ş,s,Ü,u,ü,u,ö,o,Ö,o,ı,i,ç,c,Ç,c)
    .hinc -mu30 burc $nick
  }
}