IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)
-   Hazır Kodlar (https://www.ircforumu.net/hazir-kodlar/)
-   -   Ramazan İmsakiye 2016 (https://www.ircforumu.net/hazir-kodlar/925-ramazan-imsakiye-2016-a.html)

Sessiz 05 Haziran 2016 21:21

Ramazan İmsakiye 2016
 
Kullanımı: !iftar şehir

Örnek: !iftar konya

Not: Türkçe karakter kullanmayın.

Kod:

on $*:text:/^[!.]iftar/Si:#:{
  if !$2 { msg # Lütfen şehir belirtiniz. Örn: !iftar Konya | return }
  if ($sock(iftar)) sockclose iftar
  sockopen iftar www.namaztakvimi.com 80
  sockmark iftar $+($2,¿,#)
}
on *:sockopen:iftar:{
  sockwrite -nt $sockname GET $+(/turkiye/,$token($sock($sockname).mark,1,191),-ezan-vakti.html) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}

on *:sockread:iftar:{ 
  if ($sockerr) { .sockclose $sockname | return }
  var %_i | sockread -f %_i | tokenize 32 %_i
  if $regex($1-,/\
(.+)/i) {
    msg $token($sock($sockname).mark,2,191) $token($regml(1),1-3,32) $replace($day,Sunday,Pazar,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi) $upper($token($sock($sockname).mark,1,191))
    msg $token($sock($sockname).mark,2,191) İmsak vakti: $token($token($regml(1),3,62),1,60) İftar vakti: $token($token($regml(1),11,62),1,60)
    sockclose $sockname
  }         
}
Örnek görüntü:
Kod:

[18:16:52] !iftar konya
[18:16:53] 09 Haziran 2016 Perşembe KONYA
[18:16:53] İmsak vakti: 03:32 İftar vakti: 20:19

Hayırlı Ramazanlar..

Sessiz 09 Haziran 2016 18:18

Cevap: Ramazan İmsakiye 2016
 
Kod güncellendi.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:26.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.