Bu işleri pek bilmesem de gördüğüm öğrendiğim kadarıyla birşeyler yapmaya çalıştım. Yanlış yapmış olabilirim ama bu olayı öğrenmemde ve mantığını kavramamda yardımcı olan @
'a teşekkür ediyorum. Kendisinin örnek verdiği kod üzerinden bir deneme yaptım burclarla ilgili olarak kendim denedim çalışıyor. Sizlerle paylaşmak istedim sizler daha pratik yolunu geliştirebilirsiniz. Yanlış anlaşılma olmasın ben yazmadım @
'ın anlattıkları, bu forumdan gördüklerim ve izlediğim videolardan yola çıkarak bir şeyler yapmaya çalıştım.
Kullanımı: !burc burcunuz şekildedir.
Not: Androirc ve AndChatte denenmiştir. Türkçe karakterlerin hepsi gözüküyor.
Not2: Türkçe karakter veya büyük harf şeklinde sorgulama yapabilirsiniz.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias burc {
if $sock(burc) { sockclose burc }
sockopen burc mahmure.hurriyet.com.tr 80
set %brcs $1
}
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 HTTP/1.1
%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
var %text $htmlfree(%burcc)
var %rtext $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(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),’,$chr(146),â,$chr(226))
if (<div class="burcDetail mBot30px"> isin %burcc) { msg %:chan 2 %rtext | sockclose burc }
}
on $*:text:/^[.!]bur[cç]/Si:#:{
if (!$2) { msg $chan $+($chr(3),4,$nick) 2Burç belirtmediniz }
elseif $hget(burc,$nick) { .notice $nick $hget(burc,$nick).unset saniye içersinde, Yalnız 1 defa [!]burc Komutunu Kullanabilirsiniz. }
else {
.set -u2 %:chan $chan
.timer -h 1 500 burc $replace($lower($2),İ,i,I,i,Ğ,g,ğ,g,Ş,s,ş,s,Ü,u,ü,u,ö,o,Ö,o,ı,i)
.hinc -mu30 burc $nick
}
}
İyi forumlar.