alias _tr return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Å?,ş,ÄŸ,ğ,Ãœ,ü,Ä?,ğ,$chr(39),-)
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }
on *:sockopen:_burc: { 
  sockwrite -nt $sockname GET $+(/gunluk-burc/,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname $crlf
}
on *:sockread:_burc:{
  var %i | sockread %i | $iif(section_title section_title_big isin %i,msg $token($sock($sockname).mark,2,191) 4 $_tr($token($htmlfree(%i),8-,32)))
  $iif(</p> </div> </div> <br/> <br/> </div> isin %i,msg $token($sock($sockname).mark,2,191) 5 $_tr($token(%i,1,60)))
}
on *:text:*:#Kanal: {
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if $hget(burc,$nick) { .notice $nick 4 $nick 2Bu komut için (4 $hget(burc,$nick).unset 2) Saniye beklemeniz gerekir. | return } 
    .hinc -msu60 burc $nick  
    if !$regex($2,/(ko[cçÇ]|bo[gğĞ]a|[ıiİ]k[ıiİ]zler|yenge[cçÇ]|aslan|ba[sşŞ]ak|teraz[ıiİ]|akrep|yay|o[gğĞ]lak|kova|bal[ıiİ]k)/Si) {   
      msg # 4 $+ $nick $+ : 1Hatali burc adı!
      msg # 4BURC: koç boğa ikizler yengeç aslan başak terazi akrep yay oğlak kova balık
    }
    else { sockclose _burc | sockopen _burc 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(_burc) $+($replace($2,ç,c,ğ,g,ş,s,ı,i,İ,i,Ş,s,Ç,c,Ğ,g),¿,#) }
  }
}