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 # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
    }
    else {
      var %:b = $replace($strip($2),widder,1,stier,2,zwillinge,3,krebs,4,loewe,5,jungfrau,6,waage,7,skorpion,8,schuetze,9,steinbock,10,wassermann,11,fische,12)
      var %:b1 = $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,¿,%:b1,¿,#) 
    }
  }
}
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 # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
    }
    else {
      var %:b = $replace($strip($2),widder,1,stier,2,zwillinge,3,krebs,4,loewe,5,jungfrau,6,waage,7,skorpion,8,schuetze,9,steinbock,10,wassermann,11,fische,12)
      var %:b1 = $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,¿,%:b1,¿,#) 
    }
  }
}
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 /tageshoroskope.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-,/<td>(.+)<table/i) { .hinc -msu1 $sockname Sayı | .hadd -ms Burc $hget($sockname,Sayı) $regml(1) }
  elseif $regex($1-,/<td>(.+)\%</td>/i) { .hadd -ms BurcÖzellik $hget($sockname,Sayı) $hget(BurcÖzellik,$hget($sockname,Sayı)) $+($regml(1),%) }
  elseif $regex($1-,/<td width="47"><br>/i) {
    var %:kanal = $token($sock($sockname).mark,3,191), %:burc $token($sock($sockname).mark,2,191), %:no $token($sock($sockname).mark,1,191), %:ayir $hget(BurcÖzellik,%:no)
    msg %:kanal 12_______________"4 $upper(%:burc) 12"_______________ 
    var %:böl = 1 | while %:böl <= $token($hget(Burc,%:no),0,46) {
      msg %:kanal $+(5,$token($hget(Burc,%:no),%:böl,46))
      inc %:böl
    }
    msg %:kanal -
    msg %:kanal 4Liebe: $_randyz($token(%:ayir,1,32)) 4Geld: $_randyz($token(%:ayir,2,32)) 4Gesundheit: $_randyz($token(%:ayir,3,32))
    msg %:kanal 12________________________________________________________
    .hfree -sw BurcÖzellik
    .hfree -sw $sockname
    sockclose $sockname
  }
}
alias _randyz {
  var %:yz $iif($regex($1,/\d/g) == 3,$+(3,$str(|,10)),$+(3,$str(|,$left($1,1))))
  return $+(%:yz,,$1) 
}