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 %n_ $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 %n_ 2 $* | .hinc -mu60 burc %n_ }
on *:sockclose:burc*:msg %n_ 4Kaynak: 5
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:input:#:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } }
on $*:text:$($fltr):#: {
  if $hget(burc,$nick) { .notice $nick 2!Burç komutunu tekrar kullanmak için4 $hget(burc,$nick).unset 2saniye beklemeniz gerekmetedir. | return }
  fltr $2 $nick
}