alias -l fltr { if $isid { return /^[.!]bur[cçÇ]\s(?: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 }
  else { set -e %brc $replace($lower($1),ç,c,ğ,g,ı,i,İ,i,ş,s,Ş,s,Ç,c) | set -e %k_ $2 
var %rd $r(111,999999) | sockopen $+(burc,%rd) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(burc,%rd) %brc } }
on *:sockopen:burc*:var %b sockwrite -n $sockname | %b GET /gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/ HTTP/1.1 | %b host: $sock($sockname).addr | %b $crlf 
on *:sockread:burc*:{
  var %a 
  sockread %a 
  if $regex(%a,/(?:<p>.+(<\/p><p>)?<\/p>\z)/) { 
    tokenize 46 $regsubex(b,%a,/\x3C.+\x3E/UgS,) 
    msg %k_ 2 $* 
  } 
  if (</article> isin %a) { sockclose $sockname } 
}

on *:input:#:if !$regex($1,^\/) { haltdef | if $regex($1-,$fltr) { fltr $2 # } }
on $*:text:$($fltr):#:fltr $2 #