alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x } 
alias isn { if ($2 isin $1) return $true }
on *:text:*:#: {
  if ($1 == !burc) { set %br $2 | set %nc $nick
    if (!$2) msg $chan $nick Burcun adını girmediniz! Örnek : !Burc Aslan
    elseif ($isn($2,ö)) || ($isn($2,ş)) || ($isn($2,ı)) || ($isn($2,ç)) || ($isn($2,ü)) || ($isn($2,ğ)) msg $chan $nick Türkçe karakter girmeyiniz!
    else {
      /msg $chan $nick $2 Burcun Bugunki Yorumu Özelinize Yolandi.
      if (!%burclar) set %burclar Koc Boga Ikizler Yengec Aslan Basak Terazi Akrep Yay Oglak Kova Balik
      if ($istok(%burclar,$2,32)) {
        msg $nick 4,1 Burcun Yorumu Alınıyor.Bekleyin...
        set %burcid $findtok(%burclar,$2,32)
        sockclose $+(burc*,$nick)
        sockopen $+(burc*,$nick) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
        sockmark $+(burc*,$nick) $+($gettok(%burclar,%burcid,32),¿,%burcid)
      }
      else msg $chan $nick Burç adı hatalı! Tekrar deneyiniz..!
    }
  }
}
on *:sockopen:burc*: {
  var %s = sockwrite -n $sockname
  %s GET / $+ %br $+ -burcu-yorumu.html HTTP/1.1
  %s Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  %s $crlf
}
on *:sockread:burc*: {
  var %data
  sockread %data
  if (Sevgili isin %data) {
    msg %nc $htmlfree(%data)
    unset %burcid %data
  }
}