Ekstradan fazlaca veri çekiyordu. Renkli bölümü ekledim ve sonrasında fazladan gelen veriyi kestim.
- Kod eski, baya uzatmışım nostalji oldu güldüm biraz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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,ı,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 #
|