IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 3 Toplam 3 Sayfadan 12 3
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Ramazan İmsakiyesi [2010] (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/347682-ramazan-imsakiyesi-2010-a.html)

sahr 18 Ağustos 2010 15:32
Cevap: Ramazan İmsakiyesi [2010]
 
bu kodu diğer ülkeleride kapsayacak şelilde değişe bilirmiyiz kimi arkadas almanyadan kimöi baska yerden girenler var teşekürler emeği geçenlere

ehmt123 22 Ağustos 2010 19:25
Cevap: Ramazan İmsakiyesi [2010]
 
selam öncellikle emegine saglik. Rica Etsem *istanbul örnegin yazdıgında gelen bilgileri nicke notice olarak bildirebilirmi yardımcı olursan sevınırım..

insane 22 Ağustos 2010 23:04
Cevap: Ramazan İmsakiyesi [2010]
 
Alıntı:
ehmt123 Nickli Üyeden Alıntı (Mesaj 1040491030)
selam öncellikle emegine saglik. Rica Etsem *istanbul örnegin yazdıgında gelen bilgileri nicke notice olarak bildirebilirmi yardımcı olursan sevınırım..
Kod:
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)
    .notice $nick $+(7,[,1,$regsubex(%\/,/^(.)/,$upper(\1)),7]1) $replace($regsubex($token(%\/yeah,1-4,32),/\d{2}\x3A\d{2}/,$null),pt,Pazartesi,sa,Salı,ca,Çarşamba,pe,Perşembe,cu,Cuma,Ct,Cumartesi,pa,Pazar)
    .notice $nick İmsak - $mid($token(%\/yeah,4,32),3,7)
    .notice $nick Güneş - $token(%\/yeah,5,32)
    .notice $nick Öğle $+($chr(160),-) $token(%\/yeah,6,32)
    .notice $nick İkindi- $token(%\/yeah,7,32)
    .notice $nick 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))
    .notice $nick Yatsı - $token(%\/yeah,9,32)
    unset %\/*
  }
}

ehmt123 23 Ağustos 2010 09:40
Cevap: Ramazan İmsakiyesi [2010]
 
Alıntı:
ReaList Nickli Üyeden Alıntı (Mesaj 1040491232)
Kod:
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)
    .notice $nick $+(7,[,1,$regsubex(%\/,/^(.)/,$upper(\1)),7]1) $replace($regsubex($token(%\/yeah,1-4,32),/\d{2}\x3A\d{2}/,$null),pt,Pazartesi,sa,Salı,ca,Çarşamba,pe,Perşembe,cu,Cuma,Ct,Cumartesi,pa,Pazar)
    .notice $nick İmsak - $mid($token(%\/yeah,4,32),3,7)
    .notice $nick Güneş - $token(%\/yeah,5,32)
    .notice $nick Öğle $+($chr(160),-) $token(%\/yeah,6,32)
    .notice $nick İkindi- $token(%\/yeah,7,32)
    .notice $nick 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))
    .notice $nick Yatsı - $token(%\/yeah,9,32)
    unset %\/*
  }
}

Dostum Bunu bende denemiştim. Ama Bu $nick oLayı olmuyor... denemeden lütfen paylasma Bu senın yaptıgın Notice olarak kendi echonda gibi biRşey gösteriyor.

Heartbroken 23 Ağustos 2010 11:00
Cevap: Ramazan İmsakiyesi [2010]
 
Slm öncelikle kod gerçekten güzel elinize emeğinize sağlık..

yanlız bikaç sorun* yada sorum var ..şöyleki

kod sadece tek kanal üstünde çalışıyor birden fazla kanala ayarlamaya çalıştıysamda olmadı.illa ki tek bi kanal adı yazılırsa oluyor.

ikinci durumsa şu pazartesi yazısında bi sorun var

10:53:54: <Heartbroken>*van
10:54:00: <k_1>Bilgiler alınıyor..
10:54:32: <k_1>[Van] 23 Agustos 2010 Pazarzartesi
10:54:34: <k_1>İmsak - 03:50
10:54:34: <k_1>Güneş - 05:21
10:54:34: <k_1>Öğle - 　- 12:17
10:54:34: <k_1>İkindi - 15:58
10:54:34: <k_1>Akşam - 19:00 (İftar)Kalan Süre: 8saat 5dakika 29saniye
10:54:34: <k_1>Yatsı - 20:23

görüldüğü gibi pazarzatesi diye çıkıyor.:p

üçüncü durumsa ''öğle'' kısmında kodun $+($chr(160),-) $token(%\/yeah,6,32)
bu kısmı çıkımıyor.

görebildiğim sorunlar bunlar oldu .herşeye rağmen işlevsel kullanışlı bir kod güzel çalışmanız için teşekkür ederiz.

AntepLi 25 Ağustos 2010 02:16
Cevap: Ramazan İmsakiyesi [2010]
 
( : Herzamanki Hal'i


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:43.
Sayfa 3 Toplam 3 Sayfadan 12 3
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk