Çevrimdışı

Bu Seneye ait imsakiye lazım elinde olan varmı !il

[01:46] !istanbul
[01:46] < @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> Bilgiler alınıyor..
[01:46] < @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> [Istanbul] 11 Haziran

[01:46] < @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> İmsak – 04:51
[01:46] < @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> Güneş – 06:23
[01:46] < @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> Öğle – 13:11
[01:46] < @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> İkindi- 16:50
[01:46] < @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> Akşam – 19:47 (İftar) Kalan Süre: 18saat 3saniye
[01:46] < @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> Yatsı – 21:12

gibi çalışan olursa çok iyi olur şimdiden tşkler

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 %\/*
}
}

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadaşımız 2010 yılı için yapmıştı bunu bu sene için nasıl düzenleriz

 

Çevrimdışı

Coder arkadaşların hepsi tatile çıkmış galiba
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

İnternette olup IRC'ye girmiş birisinin, web de google 'a sorarak öğreneceği bir bilgiyi IRC'de sunmanın "mantıgınına ve saçmalığına akıl erdirememiş olabilirmi" diye düşündün mü acaba?

__________________
2b|!2b=?

 

Çevrimdışı

CoCoRiCo Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

İnternette olup IRC'ye girmiş birisinin, web de google 'a sorarak öğreneceği bir bilgiyi IRC'de sunmanın "mantıgınına ve saçmalığına akıl erdirememiş olabilirmi" diye düşündün mü acaba?

Teşekkür ederim ilgin için lakin buna benzer bir şey bulamadım bula bilsem biraz kurcalardım en azından lakin çalışmayan bir şey üzerinden ilerleme yapadım tabi sizde haklısınız geliştirin kendinizi diyorsunuz bu konuda kesin kez haklısınız ona söz yok ama bunlada uğraştım başaramadım o sebep ile yardım istedim.

 

Çevrimdışı

Neyse Konu Kilitlene bilir ayrıca Son yardım isteyişim oLacak cevabınız ile..

 

Çevrimdışı

Amacımız öğretmektir, öğretirken de makul mantıklı konularda yardım etmek ve öğretmektir. Derdimiz ego falan değil kimsenin de şevkini kırmak istemeyiz.

__________________
2b|!2b=?