Ramazan İmsakiyesi [2010] - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Difuzyon · 11 Ağustos 2010, 04:37

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...

fener1907 · 11 Ağustos 2010, 04:51

Difuzyon farkı

Freedom · 11 Ağustos 2010, 08:39

Aynen. Allah hayrini kabul etsin difi :f

bøCek · 11 Ağustos 2010, 12:31

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

xyL · 11 Ağustos 2010, 17:31

(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..

eTheRciTy · 11 Ağustos 2010, 18:07

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

DaDaS · 11 Ağustos 2010, 18:30

[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.

bøCek · 11 Ağustos 2010, 19:46

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.

TUNAHAN · 11 Ağustos 2010, 20:05

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

bøCek · 11 Ağustos 2010, 20:43

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

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

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.