Kod

alias brc_ { 
  inc -e %brc
  sockopen $+(burc*,%brc) astroloji.gazetevatan.com 80
  sockmark $+(burc*,%brc) $1
}
on *:sockopen:burc*:{
  var %s sockwrite -n $sockname
  %s GET / $+ $sock($sockname).mark $+ -burcu-gunluk-burc-yorumu-astroloji HTTP/1.1
  %s Host: astroloji.gazetevatan.com
  %s User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:10.0.2) Gecko/20100101 Firefox/10.0.2
  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %s Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
  %s $crlf
}
on *:sockread:burc*:{
  var %s 
  sockread %s 
  if (*<td><h5>* iswm %s) && (*</tr>* !iswm %s) {
    .msg %muser .: $+([,Burc,$chr(32),%mrsbrc,]) $+([,$date(dd-mm-yyyy),]) :.
    .msg %muser $htmlfree(%s)
  }
}
alias kdeg return $replace($1,koc,1_koc,boga,2_boga,ikizler,3_ikizler,yengec,4_yengec,aslan,5_aslan,basak,6_basak,terazi,7_terazi,akrep,8_akrep,yay,9_yay,oglak,10_oglak,kova,11_kova,balik,12_balik)
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on $*:text:/^[!.]burc\s/:#: {
  if $regex($2,/(akrep|aslan|koc|boga|basak|oglak|ikizler|yay|kova|balik|yengec|terazi)/i) {
    .msg $chan $nick $2 burcu özelinize yansitiliyor...
    unset %muser | unset %mrsbrc | set -e %muser $nick | set -e %mrsbrc $2 | brc_ $kdeg($2)  
  }
}