pCkOpAt
18 Haziran 2018, 02:10
Merhabalar, Mirc botları için !burc kodu. En güncel halidir.
Kullanımı: !burc burcunuz
Örnek:!burc Oğlak
alias burc {
if $sock(burc) { sockclose burc }
sockopen burc mahmure.hurriyet.com.tr 80
set %brcs $1
}
alias duzlt return $replace($1-,•, ,ç,$chr(231),ö,$chr(246),ü,$chr(252),ı,$chr(253), ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222) ,Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(24 6),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),’,$chr(1 46),â,$chr(226))
alias htmlfree { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
on *:sockopen:burc:{
var %burc = sockwrite -n burc
%burc GET /astroloji/burclar/ $+ %brcs $+ -burcu-gunluk-yorum [Only Registered Users Can See Links]
%burc Host: mahmure.hurriyet.com.tr
%burc User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0
%burc Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%burc Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
;%burc Accept-Encoding: gzip, deflate
%burc Cookie: hcatFrom=astroloji; _sgf_user_id=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; hrp_gb=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; __atuvc=6%7C10; ASP.NET_SessionId=4a4giokhxmtt1wa2hbiqfpqs; __atuvs=58bc94ec413b9cfb000; semPageCounter=2
%burc Connection: keep-alive
%burc Upgrade-Insecure-Requests: 1
%burc $crlf
}
on *:sockread:burc:{
var %burcc
sockread %burcc
;echo -a %burcc
var %text $htmlfree(%burcc)
var %rtext $remove($replace(%text,•, ,ç,$chr(231),ö,$chr(246),ü,$chr(252),ı,$chr(253), ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222) ,Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(24 6),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),’,$chr(1 46),â,$chr(226),Ä,$chr(208), ,$chr(32)),Günün Emojisi:)
if (*<p>*</p>* iswm %burcc) || (*<p><strong>*</strong>*</p>* iswm %burcc) { .msg %:chan $+($chr(3),02,%rtext) | .unset %:chan | sockclose burc }
}
on $*:text:/^[.!]bur[cç]/Si:#:{
if $istok(%yasakknick,$nick,32) { return }
if !$regex($2,/(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) { msg $chan $+($chr(3),4,$nick) 2Aaaa yeni burç türedi sanırım... Adam gibi burcunu yaz ;) | return }
if (!$2) { msg $chan $+($chr(3),4,$nick) 2Burç belirtmediniz }
elseif $hget(burc,$nick) && ($nick != pC`kOpAt) { .notice $nick $hget(burc,$nick).unset saniye içersinde, Yalnız 1 defa [!]burc Komutunu Kullanabilirsiniz. }
else {
.set %:chan $chan
.timer -h 1 500 burc $replace($lower($2),İ,i,I,i,Ğ,g,ğ,g,Ş,s,ş,s,Ü,u,ü, u,ö,o,Ö,o,ı,i,ç,c,Ç,c)
.hinc -mu30 burc $nick
}
}
Kullanımı: !burc burcunuz
Örnek:!burc Oğlak
alias burc {
if $sock(burc) { sockclose burc }
sockopen burc mahmure.hurriyet.com.tr 80
set %brcs $1
}
alias duzlt return $replace($1-,•, ,ç,$chr(231),ö,$chr(246),ü,$chr(252),ı,$chr(253), ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222) ,Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(24 6),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),’,$chr(1 46),â,$chr(226))
alias htmlfree { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
on *:sockopen:burc:{
var %burc = sockwrite -n burc
%burc GET /astroloji/burclar/ $+ %brcs $+ -burcu-gunluk-yorum [Only Registered Users Can See Links]
%burc Host: mahmure.hurriyet.com.tr
%burc User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0
%burc Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%burc Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
;%burc Accept-Encoding: gzip, deflate
%burc Cookie: hcatFrom=astroloji; _sgf_user_id=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; hrp_gb=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; __atuvc=6%7C10; ASP.NET_SessionId=4a4giokhxmtt1wa2hbiqfpqs; __atuvs=58bc94ec413b9cfb000; semPageCounter=2
%burc Connection: keep-alive
%burc Upgrade-Insecure-Requests: 1
%burc $crlf
}
on *:sockread:burc:{
var %burcc
sockread %burcc
;echo -a %burcc
var %text $htmlfree(%burcc)
var %rtext $remove($replace(%text,•, ,ç,$chr(231),ö,$chr(246),ü,$chr(252),ı,$chr(253), ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222) ,Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(24 6),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),’,$chr(1 46),â,$chr(226),Ä,$chr(208), ,$chr(32)),Günün Emojisi:)
if (*<p>*</p>* iswm %burcc) || (*<p><strong>*</strong>*</p>* iswm %burcc) { .msg %:chan $+($chr(3),02,%rtext) | .unset %:chan | sockclose burc }
}
on $*:text:/^[.!]bur[cç]/Si:#:{
if $istok(%yasakknick,$nick,32) { return }
if !$regex($2,/(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) { msg $chan $+($chr(3),4,$nick) 2Aaaa yeni burç türedi sanırım... Adam gibi burcunu yaz ;) | return }
if (!$2) { msg $chan $+($chr(3),4,$nick) 2Burç belirtmediniz }
elseif $hget(burc,$nick) && ($nick != pC`kOpAt) { .notice $nick $hget(burc,$nick).unset saniye içersinde, Yalnız 1 defa [!]burc Komutunu Kullanabilirsiniz. }
else {
.set %:chan $chan
.timer -h 1 500 burc $replace($lower($2),İ,i,I,i,Ğ,g,ğ,g,Ş,s,ş,s,Ü,u,ü, u,ö,o,Ö,o,ı,i,ç,c,Ç,c)
.hinc -mu30 burc $nick
}
}