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 $token($htmlfree(%i),8-,32))
  $iif(</p> </div> </div> <br/> <br/> </div> isin %i,msg $token($sock($sockname).mark,2,191) $_tr($token(%i,1,60)))
}
on *:text:*:#: {
  if $regex($1,/^[!+.&](bur[cçÇ])$/Si) && $2  { 
    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 # Hatali burc adı! 2BURCLAR:12 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),¿,#) }
  }
}