[manikdepresif]

her sene oldugu gibi iftar botu calisma hazirliklarinin baslatilmasi hakkinda calismalarin ortaya atilmasi

[manikdepresif]

Merhaba arkadaşlar ramazan iftar ve imsak vakitleri hakkinda daha once yapmis oldugum calismaya benzer bir calisma yaptim.
[Kodun gorevi]
imsakiye.txt belgesi icinde (asagiya linkini biraktim) yazili olan vilayetleri amsg seklinde timer ile anons yapiyor ve !iftar vilayet ya da !imsak vilayet yazildigi zaman iftar ya da imsak sürelerini veriyor.
[Kullanim]
imsakiye.txt indirme linki : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
yukarida ekli olan dosyayi bilgisayariniza indirin. Daha sonra //run $mircdir acilan klasore atin ve asagidaki kodu remotenize koyun.
/iftarlar komutu ile aktif edebilirsiniz.
Not: Ramazan 19 subatta baslayacagi icin o zamana kadar calismayacaktir.
[KOD]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

;Kullanilacak komut: /iftarlar 

alias imsakiye-genel {
  if !$isfile(imsakiye.txt) { echo $color(info) > Kaynak dosyasi mirc klasorunde degil. | return }
  var %me = 0, %ze = *[*]*, %ce = 1
  while ($read(imsakiye.txt,w,%ze,%me)) {
    var %vlyt+zmn = %vlyt+zmn $v1
    inc %ce
    if (2 // %ce) { var %ze = * $+ $replace($date(dd mmmm yyyy),march,mart,february,Şubat) $+ * | goto je }
    var %ze = *[*]*
    var %tmr = $replace($gettok(%vlyt+zmn,1,32),Ş,s,İ,i,Ğ,g,Ü,u,Ö,o,Ç,c,ı,i,ş,s,ğ,g,ü,u,ö,o,I,i)
    $+(.timer,imsak_,%tmr) -o $gettok(%vlyt+zmn,3,9) 1 1 amsg $lower(%tmr) icin imsak vakti $gettok(%vlyt+zmn,3,9)
    $+(.timer,iftar_,%tmr) -o $gettok(%vlyt+zmn,7,9) 1 1 amsg $lower(%tmr) icin iftar vakti $gettok(%vlyt+zmn,7,9) | var %vlyt+zmn 
    :je
    var %me = $calc($readn + 1)
  }
}

alias iftarlar { .timerimsakiye  0 300 imsakiye-genel  }

on $*:text:/^[!.](i(ft|ms)a(r|k)) (.+)/i:#:{
  var %turkcekar_duzelt = $chr(91) $+ $replace($2,Ş,?,ş,?,i,?,İ,?,ı,?,I,?,ö,?,Ö,?,ü,?,Ü,?,ğ,?,Ğ,?,ç,?,Ç,?) $+  $chr(93)
  if $read(imsakiye.txt,w,%turkcekar_duzelt) {
    var %readn = $readn
    var %ze = * $+ $replace($date(dd mmmm yyyy),march,mart,february,Şubat) $+ *
    if (?iftar iswm $1) {
      if $read(imsakiye.txt,%ze,$calc(%readn + 1)) { 
        msg # > $2 vilayeti icin iftar vakti $chr(91) $+ $gettok($v1,7,9) $+ $chr(93) $chr(124) iftara kalan sure: $replace($duration($calc($ctime($time(dd/mm/yy) $gettok($v1,7,9)) - $ctime)),secs, $+ $chr(32) $+ saniye,sec, $+ $chr(32) $+ saniye,hrs, $+ $chr(32) $+ saat,hr, $+ $chr(32) $+ saat,mins, $+ $chr(32) $+ dakika,min, $+ $chr(32) $+ dakika)
        halt
      }
    }
    if (?imsak iswm $1) {
      if $read(imsakiye.txt,%ze,$calc(%readn + 1)) {  
        msg # > $2 vilayeti icin imsak vakti $chr(91) $+ $gettok($v1,3,9) $+ $chr(93)
        halt
      }
    }
  }
}
on 1:start:{ .timerimsakiye 0 300 imsakiye-genel }
on *:connect:{ .timerimsakiye 0 300 imsakiye-genel }

Ramazan ayinin tum inanan kardeslerim icin bolluk, bereket ve dostluklarda artis gunahsiz bir ay olmasini Allah'tan niyaz ediyorum.

[Carpediem]

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hızlısın hocam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[manikdepresif]

kimseden ses cikmayinca...

[manikdepresif]

Kodda kucuk bir hata varmis duzeltip koyuyorum.
-

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

;Kullanilacak komut: /iftarlar 

alias imsakiye-genel {
  if !$isfile(imsakiye.txt) { echo $color(info) > Kaynak dosyasi mirc klasorunde degil. | return }
  var %me = 0, %ze = *[*]*, %ce = 1
  while ($read(imsakiye.txt,w,%ze,%me)) {
    var %vlyt+zmn = %vlyt+zmn $v1
    inc %ce
    if (2 // %ce) { var %ze = * $+ $replace($date(dd mmmm yyyy),march,mart,february,Şubat) $+ * | goto je }
    var %ze = *[*]*
    var %tmr = $replace($gettok(%vlyt+zmn,1,32),Ş,s,İ,i,Ğ,g,Ü,u,Ö,o,Ç,c,ı,i,ş,s,ğ,g,ü,u,ö,o,I,i)
    $+(.timer,imsak_,%tmr) -o $gettok(%vlyt+zmn,3,9) 1 1 amsg $lower(%tmr) icin imsak vakti $gettok(%vlyt+zmn,3,9)
    $+(.timer,iftar_,%tmr) -o $gettok(%vlyt+zmn,7,9) 1 1 amsg $lower(%tmr) icin iftar vakti $gettok(%vlyt+zmn,7,9) | var %vlyt+zmn 
    :je
    var %me = $calc($readn + 1)
  }
}

alias iftarlar { .timerimsakiye  0 300 imsakiye-genel  }

on $*:text:/^[!.](i(ft|ms)a(r|k)) (.+)/i:#:{
  var %turkcekar_duzelt = $chr(91) $+ $replace($2,Ş,?,ş,?,i,?,İ,?,ı,?,I,?,ö,?,Ö,?,ü,?,Ü,?,ğ,?,Ğ,?,ç,?,Ç,?) $+  $chr(93)
  if $read(imsakiye.txt,w,%turkcekar_duzelt) {
    var %readn = $readn
    var %ze = * $+ $replace($date(dd mmmm yyyy),march,mart,february,Şubat) $+ *
    if (?iftar iswm $1) {
      if $read(imsakiye.txt,w,%ze,$calc(%readn + 1)) { 
        msg # > $2 vilayeti icin iftar vakti $chr(91) $+ $gettok($v1,7,9) $+ $chr(93) $chr(124) iftara kalan sure: $replace($duration($calc($ctime($time(dd/mm/yy) $gettok($v1,7,9)) - $ctime)),secs, $+ $chr(32) $+ saniye,sec, $+ $chr(32) $+ saniye,hrs, $+ $chr(32) $+ saat,hr, $+ $chr(32) $+ saat,mins, $+ $chr(32) $+ dakika,min, $+ $chr(32) $+ dakika)
        halt
      }
    }
    if (?imsak iswm $1) {
      if $read(imsakiye.txt,w,%ze,$calc(%readn + 1)) {  
        msg # > $2 vilayeti icin imsak vakti $chr(91) $+ $gettok($v1,3,9) $+ $chr(93)
        halt
      }
    }
  }
}
on 1:start:{ .timerimsakiye 0 300 imsakiye-genel }
on *:connect:{ .timerimsakiye 0 300 imsakiye-genel }