[immortaL]

Kullanımı: !burc burcunuz şekildedir.
Örnek: !burc oglak (Türkçe karakter kullanmayınız ve küçük harf kullanınız)

Not: Www.FixSohbet.Net`de denenmiştir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias burc {
  if $sock(burc) { sockclose burc }
  sockopen burc mahmure.hurriyet.com.tr 80
  set %brcs $1 
}

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 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
  var %text $htmlfree(%burcc)
  var %rtext $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))
  if (<div class="burcDetail mBot30px"> isin %burcc) { msg #Gevezeyiz 2 %rtext  | sockclose burc }
}

on *:text:*:#Gevezeyiz: {
  if ($1 == !burc) { .burc $2 }
}]