!burç <burç-adı>

[Feragat]

Kullanımı: !burç <BurçAdı> Örnek: !burç koç
-Hem ekleyen kişi, hemde diğer kullanıcılar kullanabilir. Boş bir remote sayfasına eklemeniz önerilir.

-Örnek görüntü-

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) www.saglikveguzellik.net 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: 5http://www.saglikveguzellik.net/gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/ 
on *:input:#:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } }
on $*:text:$($fltr):#:fltr $2 #

Not: Sunucudaki ads nick'li arkadaşın isteğiydi. Teknik açıdan faydalı yönleri olabileceği için paylaşıyorum. İyi forumlar.

[Difuzyon]

Gayet stabil bir çalışma, tebrikler.

[Goemon]

güzel bir şey olmuş Feragat usta eline sağlık

[q0kh4n]

güzel ama sanırım artık çalışmıyor

[FuaT]

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) Sağlık ve Güzellik Rehberi 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_ 0,2 $* }
on *:sockclose:burc*:msg %k_ 4Kaynak: 5http://www.saglikveguzellik.net/gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/
on *:input:#:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } }
on $*:text:$($fltr):#:fltr $2 #
GAYET GÜZEL ÇALISIYOR HALA.


on *:input:#:if burayı ben denemek icin input yaptım siz text yaparak kullanabilirsiniz.


https://resmim.net/f/Pwhozr.png

[ZaLiM1979]

Selamun Aleyküm

bende * /sockopen: invalid parameters (line 3, Burc.mrc) hatasi verdi. acaba yardimci olabilecek arkadaslar varmi? tskler

[ZaLiM1979]

Pardon arkadaslar burda yeni oldugum icin nerde soracagimi bilemedim..

elimde bi kod var (benim degil) tek serverde calisiyor onun tüm baglandigim serverlerde kulabilmem icin yardim gerek. konuyu nereye acabilir ve codu kopya edebilirim? tskler