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:/^[!.]burç\s/:#türkiye: {
if $regex($2,/(akrep|aslan|koc|boga|basak|oglak|ikizler|yay|kova|balık|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)
}
}