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




Yeni Konu aç Konu Kapatılmıştır
 
LinkBack Seçenekler Stil
Alt 11 Ağustos 2010, 04:37   #1
Çevrimdışı
Ramazan İmsakiyesi [2010]


sohbet


Merhabalar,


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.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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: *İstanbul .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,/<title>Sayfama hosgeldiniz \- yeni \| diyanettakvimi\.com<\/title>/i) { sockclose $sockname | ignore -u60 $evalnext(%\/zeki) | msg #iftar Verdiğiniz bilgi tanımlı değil 60 sn. sonra yeni veri girebilirsiniz. | unset %\/* | halt } } } on *:sockclose:ramazan:{ if $read(ramazan.txt,w,$+(*,$token($regsubex($fulldate,/((\d{2}[^\s]){2}\d{2})/,),3,32),*,2010,*)) { var %yok = $regsub($read(ramazan.txt,$readn),/(\d{2}\x3A\d{2})/g,$+(\1,$chr(32)),%\/yeah) msg #iftar $+(7,[,1,$regsubex(%\/,/^(.)/,$upper(\1)),7]1) $replace($regsubex($token(%\/yeah,1-4,32),/\d{2}\x3A\d{2}/,$null),pa,Pazar,pt,Pazartesi,sa,Salı,ca,Çarşamba,pe,Perşembe,cu,Cuma,Ct,Cumartesi) msg #iftar İmsak - $mid($token(%\/yeah,4,32),3,7) msg #iftar Güneş - $token(%\/yeah,5,32) msg #iftar Öğle $+($chr(160),-) $token(%\/yeah,6,32) msg #iftar İkindi- $token(%\/yeah,7,32) msg #iftar Akşam - $token(%\/yeah,8,32) 2(İftar)1 $iif($regex($duration($calc(($duration($+($token(%\/yeah,8,32),:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),Kalan Süre: $replace($regml(1),mins,dakika,secs,saniye,hrs,saat)) msg #iftar Yatsı - $token(%\/yeah,9,32) unset %\/* } }

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

Örnek sunum :

[04:19] <Dify> *gümüşhane

[04:19] <@Cenk> Bilgiler alınıyor..

[04:19] <@Cenk> [Gumushane] 11 Agu 2010 - Çarşamba
[04:19] <@Cenk> İmsak - 03:26
[04:19] <@Cenk> Güneş - 05:20
[04:19] <@Cenk> Öğle - 12:37
[04:19] <@Cenk> İkindi - 16:28
[04:19] <@Cenk> Akşam - 19:36 (İftar) Kalan Süre: 15saat 16dakika 48saniye
[04:19] <@Cenk> Yatsı - 21:14
__________________________________________________ _____

Hoşca paylaşımlar,hayırlı ramazanlar...
Merhabalar,


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.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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: *İstanbul .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,/<title>Sayfama hosgeldiniz \- yeni \| diyanettakvimi\.com<\/title>/i) { sockclose $sockname | ignore -u60 $evalnext(%\/zeki) | msg #iftar Verdiğiniz bilgi tanımlı değil 60 sn. sonra yeni veri girebilirsiniz. | unset %\/* | halt } } } on *:sockclose:ramazan:{ if $read(ramazan.txt,w,$+(*,$token($regsubex($fulldate,/((\d{2}[^\s]){2}\d{2})/,),3,32),*,2010,*)) { var %yok = $regsub($read(ramazan.txt,$readn),/(\d{2}\x3A\d{2})/g,$+(\1,$chr(32)),%\/yeah) msg #iftar $+(7,[,1,$regsubex(%\/,/^(.)/,$upper(\1)),7]1) $replace($regsubex($token(%\/yeah,1-4,32),/\d{2}\x3A\d{2}/,$null),pa,Pazar,pt,Pazartesi,sa,Salı,ca,Çarşamba,pe,Perşembe,cu,Cuma,Ct,Cumartesi) msg #iftar İmsak - $mid($token(%\/yeah,4,32),3,7) msg #iftar Güneş - $token(%\/yeah,5,32) msg #iftar Öğle $+($chr(160),-) $token(%\/yeah,6,32) msg #iftar İkindi- $token(%\/yeah,7,32) msg #iftar Akşam - $token(%\/yeah,8,32) 2(İftar)1 $iif($regex($duration($calc(($duration($+($token(%\/yeah,8,32),:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),Kalan Süre: $replace($regml(1),mins,dakika,secs,saniye,hrs,saat)) msg #iftar Yatsı - $token(%\/yeah,9,32) unset %\/* } }

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

Örnek sunum :

[04:19] <Dify> *gümüşhane

[04:19] <@Cenk> Bilgiler alınıyor..

[04:19] <@Cenk> [Gumushane] 11 Agu 2010 - Çarşamba
[04:19] <@Cenk> İmsak - 03:26
[04:19] <@Cenk> Güneş - 05:20
[04:19] <@Cenk> Öğle - 12:37
[04:19] <@Cenk> İkindi - 16:28
[04:19] <@Cenk> Akşam - 19:36 (İftar) Kalan Süre: 15saat 16dakika 48saniye
[04:19] <@Cenk> Yatsı - 21:14
__________________________________________________ _____

Hoşca paylaşımlar,hayırlı ramazanlar...

Konu Difuzyon tarafından (07 Ağustos 2011 Saat 01:09 ) değiştirilmiştir. Sebep: 2011 yılı için yeniden düzenlenmiştir.
 

IRCForumlari.NET Reklamlar
radyo44.com.tr
Alt 11 Ağustos 2010, 04:51   #2
Çevrimdışı
Cevap: Ramazan İmsakiyesi [2010]




Difuzyon farkı

 

Alt 11 Ağustos 2010, 08:39   #3
Çevrimdışı
Cevap: Ramazan İmsakiyesi [2010]




Aynen. Allah hayrini kabul etsin difi :f

 

Alt 11 Ağustos 2010, 12:31   #4
Çevrimdışı
Cevap: Ramazan İmsakiyesi [2010]




Emegine Saglık Cok Tesekkurler.. Ama Söyle birşey Oluor Nedendir Acaba ? bendemi Hata var yoksa ?

<boCek> *istanbul
<Casus_Bot> Bilgiler alınıyor..
<Casus_Bot> [Istanbul] 1
<Casus_Bot> İmsak - 2
<Casus_Bot> Güneş - 3
<Casus_Bot> Öğle - 4
<Casus_Bot> İkindi- 5
<Casus_Bot> Akşam - 6 (İftar)
<Casus_Bot> Yatsı - 7


Konu bøCek tarafından (11 Ağustos 2010 Saat 12:50 ) değiştirilmiştir.
 

Alt 11 Ağustos 2010, 17:31   #5
Çevrimdışı
xyL
xyL - ait Kullanıcı Resmi (Avatar)
Cevap: Ramazan İmsakiyesi [2010]




(17:26:08) <xyL> *Erzurum
(17:26:08) <IFTAR> Bilgiler alınıyor..
(17:26:14) <IFTAR> [Erzurum] 11 Agu 2010 - Çarşamba
(17:26:14) <IFTAR> İmsak - 03:21
(17:26:14) <IFTAR> Güneş - 05:14
(17:26:14) <IFTAR> Öğle - 12:30
(17:26:14) <IFTAR> İkindi- 16:21
(17:26:15) <IFTAR> Akşam - 19:27 (İftar) Kalan Süre: 2saat 46saniye
(17:26:15) <IFTAR> Yatsı - 21:05

sende sorun var sanırım..

 

Alt 11 Ağustos 2010, 18:07   #6
Çevrimdışı
Cevap: Ramazan İmsakiyesi [2010]




Çok qüseL oLmuş eLinize saqLık.. Ama ßunu tcL oLarak yapamazmıyız acaßa. ¿

 

Alt 11 Ağustos 2010, 18:30   #7
Çevrimiçi
Cevap: Ramazan İmsakiyesi [2010]




[18:28] <DaDaS> *erzurum
[18:28] <@KoRuMa> Bilgiler alınıyor..
[18:28] <@KoRuMa> [Erzurum] 11 Agu 2010 - Çarşamba
[18:28] <@KoRuMa> İmsak - 03:21
[18:28] <@KoRuMa> Güneş - 05:14
[18:28] <@KoRuMa> Öğle - 12:30
[18:28] <@KoRuMa> İkindi- 16:21
[18:28] <@KoRuMa> Akşam - 19:27 (İftar) Kalan Süre: 58dakika 18saniye
[18:28] <@KoRuMa> Yatsı - 21:05


Elıne Saglık Kardesım Supersın Ya
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Alt 11 Ağustos 2010, 19:46   #8
Çevrimdışı
Cevap: Ramazan İmsakiyesi [2010]




Yok Arkadas Bende Olmuyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yapamadim Ya
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kodu Aldim mIRC'e koydum Ardına #iftar yazanlari #turkiye yazdim Turkiye kanalında.
<boCek> *istanbul
<Casus_Bot> [Istanbul] 1
<Casus_Bot> İmsak - 2
<Casus_Bot> Güneş - 3
<Casus_Bot> Öğle - 4
<Casus_Bot> İkindi- 5
<Casus_Bot> Akşam - 6 (İftar)
<Casus_Bot> Yatsı - 7

yazdim yukardaki gibi cikiyor denedim herseyi eyledim ama cIx
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Alt 11 Ağustos 2010, 20:05   #9
Çevrimiçi
Cevap: Ramazan İmsakiyesi [2010]




bøCek Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yok Arkadas Bende Olmuyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yapamadim Ya
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kodu Aldim mIRC'e koydum Ardına #iftar yazanlari #turkiye yazdim Turkiye kanalında.
<boCek> *istanbul
<Casus_Bot> [Istanbul] 1
<Casus_Bot> İmsak - 2
<Casus_Bot> Güneş - 3
<Casus_Bot> Öğle - 4
<Casus_Bot> İkindi- 5
<Casus_Bot> Akşam - 6 (İftar)
<Casus_Bot> Yatsı - 7

yazdim yukardaki gibi cikiyor denedim herseyi eyledim ama cIx
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

on $*:text:/^[\*](\S+)$/i:#turkiye:{
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 aliniyor Lütfen 30 Saniye Bekleyiniz..
imsakiye
}
on !*:join:#turkiye:{
.notice $nick 0,4Hos geldiniz Hayirli Ramazanlar
.notice $nick 0,4Bulundugunuz ilin bugünkü imsakiye bilgileri için kanala 0,1*sehir yaziniz.Örnek: *istanbul
.notice $nick 0,4Hosca vakitler..Hayirli Ramazanlar
}
alias imsakiye {
$iif($isfile(ramazan.txt),.remove ramazan.txt)
$iif($window(@yeah),window -c @yeah)
.fopen -n difuzyon ramazan.txt
window -nh @yeah
sockclose ramazan
sockopen ramazan imsakiyeler.net 80
sockmark ramazan .fwrite -n difuzyon
}
on *:sockopen:ramazan:{
sockwrite -n $sockname GET $+(/ramazan-imsakiyeleri/,%\/,-imsakiyesi) HTTP/1.1
sockwrite -n $sockname Host: imsakiyeler.net $str($crlf,2)
}
on *:sockread:ramazan:{
if ($sockerr) { msg #turkiye Veri Alaninda hata olustu. | .fclose difuzyon | halt }
else {
var %dify
sockread %dify
if $regex(%dify,/404 Not Found/i) { sockclose $sockname | .fclose difuzyon | window -c @yeah | ignore -u10 $evalnext(%\/zeki) | msg #turkiye Verdiginiz bilgi tanimli degil Türkiye Harici Bilgi Gösterilmemektedir.60 sn. sonra yeni veri girebilirsiniz. | unset %\/* | halt }
if $regex(%dify,/<td>([^R]+)<\/td>/) { $sock($sockname).mark $regml(1) }
}
}
on *:sockclose:ramazan:{
if $read(ramazan.txt,w,$+(*,$token($regsubex($fulldat e,/((\d{2}[^\s]){2}\d{2})/,),3,32),*,2010,*)) {
filter -fwr $+($readn,-,$calc($readn +6)) ramazan.txt @yeah
.fclose difuzyon
msg #turkiye $+(7,[,1,$regsubex(%\/,/^(.)/,$upper(\1)),7]1) $replace($fline(@yeah,*,1).text,pt,Pazartesi,sa,Sa l?,ca,Çarsamba,pe,Persembe,cu,Cuma,Ct,Cumartesi,pa ,Pazar)
msg #turkiye imsak - $fline(@yeah,*,2).text
msg #turkiye Günes - $fline(@yeah,*,3).text
msg #turkiye Ögle $+($chr(160),-) $fline(@yeah,*,4).text
msg #turkiye ikindi- $fline(@yeah,*,5).text
msg #turkiye Aksam - $fline(@yeah,*,6).text 2(iftar icin )1 $iif($regex($duration($calc(($duration($+($fline(@ yeah,*,6).text,:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),4 Kalan Süre: $replace($regml(1),mins,dakika,secs,saniye,hrs,saa t))
msg #turkiye Yatsi - $fline(@yeah,*,7).text
unset %\/*
}



Bunu Copyle Remoteye Yapistir Birde öyle Dene Bakalim.
Kod Yapimcinin Ellerine Saglik

 

Alt 11 Ağustos 2010, 20:43   #10
Çevrimdışı
Cevap: Ramazan İmsakiyesi [2010]




Yok Calismiyor bende Neyse saglık olsun Kullanamicaz anlasılan. Yinede tesekkurler.

 

Konu Kapatılmıştır

Etiketler
2010, imsakiyesi, mirc, mirc download, mirc indir, ramazan, İmsakiyesi

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Ramazan İmsakiyesi [2011] Set mIRC Scripting Hazır Kodlar 18 29 Haziran 2014 10:39
Ramazan Özel Programları, Kanallarda Ramazan Programları, Televizyonda Ramazan Elysian TV Programları 0 27 Haziran 2014 10:31
Ramazan Bayramı Ne Zaman Başlıyor? 2014 Ramazan Ne Zaman? Oruç Ne Zaman Seth Haber Arşivi 0 24 Haziran 2014 17:08
Ramazan İmsakiyesi 2012 Ecrin İslamiyet 79 27 Temmuz 2012 16:25
11 Ayın Sultanı Ramazan / Hoş Geldin Ramazan (Dini Resimler) Sevda Dini Resimler 1 31 Temmuz 2011 22:38