on *:input:#:{
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if !$regex($2,/(fische|widder|stier|zwillinge|krebs|loewe|jungfrau|steinbock|waage|skorpion|schuetze|wassermann)/Si) { 
      msg # Hatali burc adı!
      msg # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
    }
    else {
      var %:b = $lower($strip($2)), %:r $+($ctime,$r(100,9999999))
      msg # $+(,$strip($2),) burç bilgileri alınıyor..        
      sockopen $+(burc,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
      sockmark $+(burc,%:r) $+(%:b,¿,#) 
    }
  }
}
on *:text:*:#:{
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if !$regex($2,/(fische|widder|stier|zwillinge|krebs|loewe|jungfrau|steinbock|waage|skorpion|schuetze|wassermann)/Si) { 
      msg # Hatali burc adı!
      msg # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
    }
    else {
      var %:b = $lower($strip($2)), %:r $+($ctime,$r(100,9999999))
      msg # $+(,$strip($2),) burç bilgileri alınıyor..        
      sockopen $+(burc,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
      sockmark $+(burc,%:r) $+(%:b,¿,#) 
    }
  }
}

on *:sockopen:burc*:{ 
  if ($sockerr) { msg $token($sock($sockname).mark,2,191) Sorgulanan siteye erişim bulunmamaktadır..(4ERROR) | .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/tages-horoskop/,$token($sock($sockname).mark,1,191),.php) HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.155 Safari/537.36
  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  sockwrite -nt $sockname $crlf
}
on *:sockread:burc*:{ 
  var %:burc | sockread %:burc | tokenize 32 %:burc
  if $regex($1-,/(.+)<h3><\/h3>/i) {
    msg $token($sock($sockname).mark,2,191) 12_______________"4 $upper($token($sock($sockname).mark,1,191)) 10 $regml(1) 12"_______________ 
  }
  elseif $regex($1-,/<p style="width:600px;margin-bottom:10px;">(.+)<\/p>/) {
    var %:gelen = $regml(1), %:böl = 1 
    while %:böl <= $token(%:gelen,0,46) {
      msg $token($sock($sockname).mark,2,191) $+(5,$token(%:gelen,%:böl,46))
      inc %:böl
    }
    msg $token($sock($sockname).mark,2,191) 12________________________________________________________
    sockclose $sockname
  }
}