Geçen sene bir arkadaşın isteği üzerine bende yapmıştım bir burç kodu. Bir kaç burc'u denedim çalışıyor. Eğer işine yararsa kullanabilirsin.
- Sen veya diğer kullanıcılar !burç BurçAdı yaparak kullanabilirsiniz. İyi forumlar.
Kod: Kodu kopyalamak için üzerine çift tıklayın! 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,Ğ,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 $* }
on *:sockclose:burc*:msg %k_ 4Kaynak: 5 Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.on *:input:#deney:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } }
on $*:text:$($fltr):#deney:fltr $2 #
|