Kanalda burç socket botu
Kodu mircinizin remote kısmına eklemeniz yeterli olacaktır.
Bot komutları
.burç – .burc – !burç- !burc
bu komutların hepsinde çalışır.
örnek: !burç kova
|
1 2 3 4 5 6 7 8 |
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) 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 # |
Son Yorumlar