IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Merhabalar,

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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] '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 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ı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.
Örnek: !burc oglak

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.
Örnek: !burc oğlak veya !burc BAŞAK

Kod:

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,&bull;, ,&ccedil;,$chr(231),&ouml;,$chr(246),&uuml;,$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),&rsquo;,$chr(146),&acirc;,$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

  }

}

Teşekkürler,
İyi forumlar.