Ramazan imsakiyesi kodu
Ramazan imsakiyesi koduRamazan imsakiyesi koduRamazan imsakiyesi koduRamazan imsakiyesi kodu
Ramazan imsakiyesi kodu

imgres

Ramazan ayına müteakip belirtilen ildeki İmsak-Güneş-İkindi-Akşam-Yatsı saatlerini veren bir çalışmadır.Bu çalışmada ?İftara ne kadar kaldı?? diye merak edenlere süre olarak yanıtta verecektir.

Bu çalışmayı mirc botunuza veya kendinize eklemeniz halinde #iftar kanalında faaliyete geçirebilirsiniz.(#iftar kanalı yerine uygun gördüğünüz #kanal ismini kendinize göre değiştirebilirsiniz.)

#iftar kanalına giriş yapan kullanıcılara bilgiyi nasıl alabileceği konusunda notice mesaj gönderecektir.

Kullanımı:

Kodu scriptinizin remote kısmına eklemiz ve #iftar kanalında bulun(dur)manız yeterlidir.

Örnek sunum :

[04:19] *izmir

[04:19] Bilgiler alınıyor..

[04:19] [Gumushane] 15 mart 2013 – Çarşamba
[04:19] İmsak – 03:26
[04:19] Güneş – 05:20
[04:19] Öğle – 12:37
[04:19] İkindi – 16:28
[04:19] Akşam – 19:36 (İftar) Kalan Süre: 15saat 16dakika 48saniye
[04:19] Yatsı – 21:14

Kodlarr:

on $*:text:/^[\*](\S+)$/i:#iftar:{
if $sock(ramazan,1).status == active { msg $chan Sırada bekleyen bilgi alınıyor,lütfen bitmesini bekleyiniz | halt }
set -e %\/ $lower($replace($regml(1),ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g))
set -e %\/zeki $address($nick,2)
msg $chan Bilgiler alınıyor..
imsakiye
}
on !*:join:#iftar:{
.notice $nick ..Hoş geldiniz
.notice $nick Bulunduğunuz ilin bugünkü imsakiye bilgileri için kanala *şehir yazınız.Örnek: *İzmir
.notice $nick Hoşca vakitler..
}
alias imsakiye {
$iif($isfile(ramazan.txt),.remove ramazan.txt)
sockopen ramazan diyanettakvimi.com 80
}
on *:sockopen:ramazan:{
sockwrite -n $sockname GET $+(/turkiye/,%\/,-imsakiye.html) HTTP/1.1
sockwrite -n $sockname Host: diyanettakvimi.com $str($crlf,2)
}
on *:sockread:ramazan:{
if ($sockerr) { msg #iftar Veri alımında hata oluştu. | halt }
else {
var %dify
sockread %dify
if $regex(%dify,/(A(ğ|g)ustos|Eyl(ü|u)l)/i) { write ramazan.txt $regsubex($regsubex(%dify,//Ug,$null),/(.+>)|(Ramazan.+)/,$null) }
elseif $regex(%dify,/

imgres

Farkı Hissedin!. Geveze mIRC Burada>> Burdan İNDİR

Yorum yaz