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

 Kayıt ol  Topluluk
15Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Ağustos 2011, 01:05   #1
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Ramazan İmsakiyesi [2011]




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 yapim: 2010
Kod yapimcisi: Difuzyon

Kod 2011 senesi için edit yapilmistir! ins her sene böyle ilerlemeye devam edecektir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/^[\*](\S+)$/i:#iftar:{ var %1 $lower($replace($regml(1),ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)) if ($sock($+(ramazan,*,%1))) { echo -a $regml(1) zaten kontrol ediliyor.. | halt } sockopen $+(ramazan,*,%1)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(ramazan,*,%1) %1 msg # 6 $upper($regml(1)) 2ili bilgileri alinyor.. } on *:sockopen:ramazan*: { sockwrite -nt $sockname GET $+(/turkiye/,$sock($sockname).mark,-ezan-vakti.html) HTTP/1.1 sockwrite -nt $sockname HOST:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf } on *:sockread:ramazan*: { var %63 | sockread %63 if ($regex(%63,Sayfama hosgeldiniz)) { msg #iftar 2Belirtiginiz $(6,$qt($sock($sockname).mark),2) adresi ile ilgili bilgi bulunamamistir. | halt } if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) { $iif($free($gettok(%63,5,34)),msg #iftar 6 $qt(Tarih) 2 $replace($free($gettok(%63,5,34)),pa,Pazar,pt,Pazartesi,sa,Salı,ca,Çarşamba,pe,Perşembe,cu,Cuma,Ct,Cumartesi)) $iif($free($gettok(%63,7,34)),msg #iftar 6 $qt(Imsak) 2 $free($gettok(%63,7,34))) $iif($free($gettok(%63,9,34)),msg #iftar 6 $qt(Gunes) 2 $free($gettok(%63,9,34))) $iif($free($gettok(%63,11,34)),msg #iftar 6 $qt(Ogle) 2 $free($gettok(%63,11,34))) $iif($free($gettok(%63,13,34)),msg #iftar 6 $qt(Ikindi) 2 $free($gettok(%63,13,34))) $iif($free($gettok(%63,15,34)),msg #iftar 6 $qt(Aksam) 2 $free($gettok(%63,15,34)) 6 $qt(Iftar) 2 $iif($regex($duration($calc(($duration($+($free($gettok(%63,15,34)),:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),Kalan Sure: $replace($regml(1),mins,dakika,secs,saniye,hr,saat))) $iif($free($gettok(%63,17,34)),msg #iftar 6 $qt(Yatsi) 2 $free($gettok(%63,17,34))) } } 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 free { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;, ) return %x }

Örnek sunum:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[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



Konu Set tarafından (07 Ağustos 2011 Saat 01:19 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 07 Ağustos 2011, 12:51   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ramazan İmsakiyesi [2011]




peki buna, yabancı ülkedeki Türkleri düşünerek yabancı ülkeleri (Almanya,avusturalya,hollanda) gibi bakma imkanı sağlasanız? userin hoşuna gider ve çeker galiba düşünüyorum ..

__________________

Kırk gün kar yağar, bir gün av olur ..
 
Alıntı ile Cevapla

Alt 08 Ağustos 2011, 02:02   #3
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ramazan İmsakiyesi [2011]




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/([*!.]iftar)/i:#iftar:{ var %ulke hollanda isvicre avusturya almanya turkiye fransa belcika if ($regex($2,/ulke/i)) { msg # Ulkeler: $replace(%ulke,$chr(32),$+($chr(32),-,$chr(32))) | halt } if (!$2) { msg # Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt } if (!$3) { msg # Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt } if (!$istok(%ulke,$2,32)) { msg # Belirtiginiz ulke listemde bulunmamaktadir! | halt } var %1 $lower($replace($2,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)) var %2 $lower($replace($3,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)) if ($sock($+(ramazan,*,%1))) { msg #  $3 zaten kontrol ediliyor.. | halt } sockopen $+(ramazan,*,%2)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(ramazan,*,%2) $+(%1,*,%2) msg # 6 $upper($2) 2ulkesi 6 $upper($3) 2 bilgileri alinyor.. } on *:sockopen:ramazan*: { sockwrite -nt $sockname GET $+(/,$gettok($sock($sockname).mark,1,42),/,$gettok($sock($sockname).mark,2,42),-ezan-vakti.html) HTTP/1.1 sockwrite -nt $sockname HOST:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf } on *:sockread:ramazan*: { var %63 | sockread %63 if ($regex(%63,Sayfama hosgeldiniz)) { msg #iftar 2Belirtiginiz $(6,$gettok($sock($sockname).mark,1,42),2) ulkesinden $(6,$gettok($sock($sockname).mark,2,42),2) adresi ile ilgili bilgi bulunamamistir. | halt } if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) { $iif($free($gettok(%63,5,34)),msg #iftar 6 $qt(Tarih) 2 $replace($free($gettok(%63,5,34)),pa,Pazar,pt,Pazartesi,sa,Salı,ca,Çarşamba,pe,Perşembe,cu,Cuma,Ct,Cumartesi)) $iif($free($gettok(%63,7,34)),msg #iftar 6 $qt(Imsak) 2 $free($gettok(%63,7,34))) $iif($free($gettok(%63,9,34)),msg #iftar 6 $qt(Gunes) 2 $free($gettok(%63,9,34))) $iif($free($gettok(%63,11,34)),msg #iftar 6 $qt(Ogle) 2 $free($gettok(%63,11,34))) $iif($free($gettok(%63,13,34)),msg #iftar 6 $qt(Ikindi) 2 $free($gettok(%63,13,34))) $iif($free($gettok(%63,15,34)),msg #iftar 6 $qt(Aksam) 2 $free($gettok(%63,15,34)) 6 $qt(Iftar) 2 $iif($regex($duration($calc(($duration($+($free($gettok(%63,15,34)),:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),Kalan Sure: $replace($regml(1),mins,dakika,secs,saniye,hr,saat))) $iif($free($gettok(%63,17,34)),msg #iftar 6 $qt(Yatsi) 2 $free($gettok(%63,17,34))) } } on !*:join:#iftar:{ .notice $nick Bulunduğunuz ulkenin imsakiye bilgileri için kanala !iftar Ulke Sehir yazınız notice $nick Örnek: !iftar almanya altena notice $nick Ulke listesini gormek icin: !iftar ulke .notice $nick Hoşca vakitler.. } alias free { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;, ) return %x }

Sunum:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[01:53] <Set> !iftar [01:53] <@Aeg> Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir [01:53] <Set> !iftar ulke [01:53] <@Aeg> Ulkeler: hollanda - isvicre - avusturya - almanya - turkiye [01:53] <Set> !iftar almanya altena [01:53] <@Aeg> ALMANYA ulkesi ALTENA bilgileri alinyor.. [01:53] <@Aeg> "Tarih" 08 Agustos 2011 Pazartesi [01:53] <@Aeg> "Imsak" 04:28 [01:53] <@Aeg> "Gunes" 05:58 [01:53] <@Aeg> "Ogle" 13:42 [01:53] <@Aeg> "Ikindi" 17:45 [01:53] <@Aeg> "Aksam" 21:13 "Iftar" Kalan Sure: 19saats 19dakika 32saniye [01:53] <@Aeg> "Yatsi" 22:33



Konu Set tarafından (08 Ağustos 2011 Saat 16:26 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 08 Ağustos 2011, 16:13   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ramazan İmsakiyesi [2011]




Yeniden güncellendiğini görmek güzel.
"Iftar Kalan Süre" kısmına dikkatinizi çekerim.Bu süre,siteden veri alınan Akşam ezan vakti ile kodu ekleyen nickin PC saatinden çıkan sonuçtur.Burada bir matematik işlemi vardır ve bilgisayarınızın saatine göre hareket eder.Bu nedenle sonucu veren nickin yerel saat farkı göz önüne alınmalıdır veya (özellikle yurtdışı kullanıcılarına) belirtilmelidir,aksi halde yanıltıcı bilgi verilmiş olur.

 
Alıntı ile Cevapla

Alt 10 Ağustos 2011, 00:08   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ramazan İmsakiyesi [2011]




peki bunun bot halini .rar layıp koymanız mümkünmü?

__________________

Kırk gün kar yağar, bir gün av olur ..
 
Alıntı ile Cevapla

Alt 10 Ağustos 2011, 00:44   #6
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ramazan İmsakiyesi [2011]




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
####################### alias opers return Aeg 123456 alias botnick return RamazanBOT alias sunucu return irc.rekornet.com 6667 alias ramazanchan return #iftar ####################### alias bagla { sockclose iftar | sockopen iftar $sunucu } alias kopar { sockclose iftar } alias sw { if $sock($1).status == active { sockwrite -nt $1- } } on *:SOCKOPEN:iftar: { sw $sockname nick $+(Guard,$r(0,999)) sw $sockname USER 63 " " : $+ $+([,,IFTAR,,]) System v1 by Difuzyon } on *:sockread:iftar: { if !$sock($sockname) { echo -a Baglanti Koptu! | halt } var %q sockread %q tokenize 32 %q if $1 == PING { sw $sockname PONG $2 } if $2 == 376 { sw $sockname oper $opers sw $sockname join 0, sw $sockname nick $botnick sw $sockname join $ramazanchan } if ($2 == privmsg) { var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4,-1), %text = $right($4-,-1), %k = $3 if ($regex(%m,/[*!.+]iftar/i)) && ($ramazanchan == %k) { var %ulke = hollanda isvicre avusturya almanya turkiye fransa belcika if ($regex($5,/ulke/i)) { sw $sockname privmsg %k Ulkeler: $replace(%ulke,$chr(32),$+($chr(32),-,$chr(32))) | halt } if (!$5) { sw $sockname privmsg %k Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt } if (!$6) { sw $sockname privmsg %k Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt } if (!$istok(%ulke,$5,32)) { sw $sockname privmsg %k Belirtiginiz ulke listemde bulunmamaktadir! | halt } var %1 $lower($replace($5,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)) var %2 $lower($replace($6,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)) sockclose $+(ramazan,*,%2) sockopen $+(ramazan,*,%2)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(ramazan,*,%2) $+(%1,*,%2) sw $sockname privmsg %k 6 $upper($5) 2ulkesi 6 $upper($6) 2 bilgileri alinyor.. } } if ($2 == join) && ($right($3,-1) == $ramazanchan) { sw $sockname notice $gettok($gettok($1,1,33),1,58) Merhaba hos geldiniz $ramazanchan kanal'ina . sw $sockname notice $gettok($gettok($1,1,33),1,58) Bulunduğunuz ulkenin imsakiye bilgileri için kanala !iftar Ulke Sehir yazınız sw $sockname notice $gettok($gettok($1,1,33),1,58) Örnek: !iftar almanya altena sw $sockname notice $gettok($gettok($1,1,33),1,58) Ulke listesini gormek icin: !iftar ulke sw $sockname notice $gettok($gettok($1,1,33),1,58) Hoşca vakitler.. } } on *:sockopen:ramazan*: { sockwrite -nt $sockname GET $+(/,$gettok($sock($sockname).mark,1,42),/,$gettok($sock($sockname).mark,2,42),-ezan-vakti.html) HTTP/1.1 sockwrite -nt $sockname HOST:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf } on *:sockread:ramazan*: { var %63 | sockread %63 if ($regex(%63,Sayfama hosgeldiniz)) { sw iftar privmsg $ramazanchan 2Belirtiginiz $(6,$gettok($sock($sockname).mark,1,42),2) ulkesinden $(6,$gettok($sock($sockname).mark,2,42),2) adresi ile ilgili bilgi bulunamamistir. | halt } if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) { $iif($free($gettok(%63,5,34)),sw iftar privmsg $ramazanchan 6 $qt(Tarih) 2 $replace($free($gettok(%63,5,34)),pa,Pazar,pt,Pazartesi,sa,Salı,ca,Çarşamba,pe,Perşembe,cu,Cuma,Ct,Cumartesi)) $iif($free($gettok(%63,7,34)),sw iftar privmsg $ramazanchan 6 $qt(Imsak) 2 $free($gettok(%63,7,34))) $iif($free($gettok(%63,9,34)),sw iftar privmsg $ramazanchan 6 $qt(Gunes) 2 $free($gettok(%63,9,34))) $iif($free($gettok(%63,11,34)),sw iftar privmsg $ramazanchan 6 $qt(Ogle) 2 $free($gettok(%63,11,34))) $iif($free($gettok(%63,13,34)),sw iftar privmsg $ramazanchan 6 $qt(Ikindi) 2 $free($gettok(%63,13,34))) $iif($free($gettok(%63,15,34)),sw iftar privmsg $ramazanchan 6 $qt(Aksam) 2 $free($gettok(%63,15,34)) 6 $qt(Iftar) 2 $iif($regex($duration($calc(($duration($+($free($gettok(%63,15,34)),:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),Kalan Sure: $replace($regml(1),mins,dakika,secs,saniye,hr,saat))) $iif($free($gettok(%63,17,34)),sw iftar privmsg $ramazanchan 6 $qt(Yatsi) 2 $free($gettok(%63,17,34))) } } alias free { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;, ) return %x }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
####################### alias opers return Aeg 123456 alias botnick return RamazanBOT alias sunucu return irc.rekornet.com 6667 alias ramazanchan return #iftar #######################

Bu usteki kısmı ayarlarsin kendi sunucuna gore.

Baglamak icin /bagla
Baglantiyi kesmek icin /kopar


Konu Set tarafından (10 Ağustos 2011 Saat 00:57 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 11 Ağustos 2011, 22:39   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ramazan İmsakiyesi [2011]




Yükledim fakat calışmadı

 
Alıntı ile Cevapla

Alt 12 Ağustos 2011, 03:14   #8
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ramazan İmsakiyesi [2011]




Calismadı derken (calismadi veya calistiramadim) daha acık dermisiniz yardımcı olmaya calisalım.

 
Alıntı ile Cevapla

Alt 12 Ağustos 2011, 20:33   #9
Çevrimdışı
XnL
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ramazan İmsakiyesi [2011]




S.a kardesim iyi guzel yapmıssın remoteleri ekledim Lakin Örnekte verdiginin aynısını yaptım algılamadı bir digeri Türkiye Versiyonu yok mu ? Ben napayım Almanya nın saatini iftarini Türkiye lazım Bize Bi zahmet Daha Dikkatle inceleyip yapıp bizlere sunarsan Bahtiyar kalırım Simdiden Tesekkurler.

 
Alıntı ile Cevapla

Alt 13 Ağustos 2011, 12:31   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ramazan İmsakiyesi [2011]




en üstte ilk verilmiş olan sadece Türkiye illeri için kanal adı #iftar olan yerlere kendi kanalınızı yazın . kodun altında örnek kullanım verilmiş..

yurt dışı kullanım için olanı istek üzerine düzenledi.yukardaki mesajları daha dikkatli kontrol edip okursanız göreceksiniz. ilk postalanan kodu kanal yerlerini kendi kanalınıza göre değiştirip ekleyin remote bölümüne kodların çalıştırma komutları farklı ..

ilk kodun altında belirtildiği şekilde çalışacağı kanal üzerinde çalıştırabilirsiniz *istanbul vs.. şeklinde yukardaki kodların hepsi çalışıyor..sorun kodlarda değil...


Konu Heartbroken tarafından (13 Ağustos 2011 Saat 13:27 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
2011, ramazan, İmsakiyesi


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

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 Özel Programları, Kanallarda Ramazan Programları, Televizyonda Ramazan Elysian TV Programları 0 27 Haziran 2014 10:31
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
2011 Yaz Moda Trendleri - Topshop 2011 Yaz + Haute Hippie 2011 Yaz koleksiyonu. Sevda Ah Kadınlar 1 27 Aralık 2010 01:59
Ramazan İmsakiyesi [2010] Difuzyon mIRC Scripting Hazır Kodlar 25 25 Ağustos 2010 02:16