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)  
  }
}

on *:sockopen:burc*:{
  sockwrite -n $sockname GET /yildizfali/ $+ %burc $+ .asp HTTP/1.1
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf 
}
on *:sockread:burc*:{
  var %ghs
  sockread %ghs
  if (*img height="80" alt="*" hspace="3" src="[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]*" width="80" align="left" * iswm %ghs) { set %else ok! }
  elseif (%else) {
    if (<p align="left"> isin %ghs) { set %else1 ok! }
    elseif (%else1) {
      msg %burcnick : $remove($htmlfree(%ghs),&nbsp;)
      unset %else
      unset %else1
      unset %burcnick
      sockclose $sockname
    }
  }
}
on *:text:*:#:{
  if $1 == !burc {
    if (!%buclar) set %buclar koc|boga|ikizler|yengec|aslan|basak|terazi|akrep|yay|oglak|kova|balik
    if $2 == $null { msg $chan : $nick Lutfen Burc Belirtiniz. | halt }
    if !$istok(%buclar,$bufak($2),124) {  msg $chan :Burç adını yanlış girdiniz. Doğru kullanım: !burc %buclar | halt }
    msg $chan : $regsubex($bufak($2),/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1))) burcuna bakılıyor lütfen bekleyiniz.
    var %rand $rand(1,9999)
    set %burcnick $chan
    set %burc $bufak($2)
    sockopen $+(burc,%rand) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  }
}
alias bufak {
  return $replace($1,A,a,B,b,C,c,Ç,c,ç,c,D,d,E,e,F,f,G,g,Ğ,g,ğ,g,H,h,I,i,ı,i,İ,i,J,j,K,k,L,l,M,m,N,n,O,o,Ö,o,ö,o,P,p,R,r,S,s,Ş,s,ş,s,T,t,U,u,Ü,ü,V,v,Y,y,Z,z,W,w,@,a)
}

«02:11:05» <ChanServ> !burc dada
«02:11:05» <GhoSt> :Burç adını yanlış girdiniz. Doğru kullanım: !burc koc|boga|ikizler|yengec|aslan|basak|terazi|akrep|yay|oglak|kova|balik
«02:11:10» <ChanServ> !burc balik
«02:11:10» <GhoSt> : Balik burcuna bakılıyor lütfen bekleyiniz.
«02:11:10» <GhoSt> : Uzun süreli beraberliğinizin artık zamanını doldurduğu kanısındasınız, ama nasıl davranmanız gerektiğini de bilememek elinizi kolunuzu bağlıyor! İş yoğunluğunuz artabilir. Başarı grafiğinizin yükselmesi için iş arkadaşlarınızı ya da ortaklarınızı da dikkate alın. Eğer kendinizi hızlı para kazanmak için şans oyunlarına kaptırırsanız, elinizdekileri de kaybedebilirsiniz. Kendinizi iş konusunda fazla zorlamanız, aşırı yorgunluğa bağlı strese neden olabilir. Dikkat edin