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

muratt_aziz · 15 Şubat 2013, 17:37

Selamun Aleyküm Arkadaşlar

Mircimde Deforma olmuş bir ramazan imsakiye koduna denk geldim
Malum Ramazanda değiliz Biraz Kurcalayıp Diyanet İşleri web sitesinden Türkiye Namaz Saatleri Botu Olarak Kodu Değiştirdim Umarım İşinize Yarar

Kullanımı Kanal Geleninde *il Şeklinde Sorgulama ile Çalışmaktatır.
Örnek: *Ordu
Örnek2: *İstanbul

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

 
on $*:text:/^[\*](\S+)$/i:#:{ set %knl #
  var %1 $lower($replace($regml(1),ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g,Ã§,c)) 
  if ($sock($+(ramazan,*,%1))) { msg # 4 $regml(1) 6ili zaten kontrol ediliyor.. | halt }
  if mersin isin $1 { var %1 $lower(icel) } 
  if $regex($1-, /[bcçdfgğhjklmnprsştvyzaeuioüÜÖöİı:;]/gi) == 0 { msg # 7Hatalı Kullanım 6*il şeklinse Sorgunuzu Yapınız Örnek:    6*ordu  | halt }
  sockopen $+(ramazan,*,%1) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  sockmark $+(ramazan,*,%1) %1
  msg # 6 %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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -nt $sockname $crlf
}
on *:sockread:ramazan*: {
  var %63 | sockread %63
  if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) {
    $iif($free($gettok(%63,5,34)),msg %knl $qt(Tarih) $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 %knl $qt(6Sabah Namazı) $free($gettok(%63,7,34)))
    $iif($free($gettok(%63,9,34)),msg %knl $qt(6Kıple Gunes Yönü) $free($gettok(%63,9,34)))
    $iif($free($gettok(%63,11,34)),msg %knl $qt(6Ogle Namazı) $free($gettok(%63,11,34)))
    $iif($free($gettok(%63,13,34)),msg %knl $qt(6Ikindi Namazı) $free($gettok(%63,13,34)))
    $iif($free($gettok(%63,15,34)),msg %knl $qt(6Aksam Namazı) $free($gettok(%63,15,34)))
    $iif($free($gettok(%63,17,34)),msg %knl $qt(6Yatsi Namazı) $free($gettok(%63,17,34)))
  }
}
alias free {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}

Tai_Pan · 16 Şubat 2013, 05:47

Herhangi birisi * ile başlayan rastgele bir kelime yazdığında sorgulama yapıyor..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Örnek: *tşk gibi.. Bu komutu kendimize göre uyarlayabilir miyiz? Yani sadece kendim yazdığımda cevap verecek..

muratt_aziz · 17 Şubat 2013, 00:56

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

 
alias ezan { set %knl #
  var %1 $replace($1,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g,Ã§,c)
  if ($sock($+(ramazan,*,%1))) { msg # 4 $regml(1) 6ili zaten kontrol ediliyor.. | halt }
  if mersin isin $1 { var %1 $lower(icel) } 
  if $regex($1-, /[bcçdfgğhjklmnprsştvyzaeuioüÜÖöİı:;]/gi) == 0 { msg # 7Hatalı Kullanım 6*il şeklinse Sorgunuzu Yapınız Örnek:    6*ordu  | halt }
  sockopen $+(ramazan,*,%1) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  sockmark $+(ramazan,*,%1) %1 
  msg # 6 %1 2ili bilgileri alinyor..
}
on $*:text:/^[\*](\S+)$/i:#:{ set %knl #
  if ($len($1-) > 3) {
    var %1 $lower($replace($regml(1),ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g,Ã§,c)) 
    if ($sock($+(ramazan,*,%1))) { msg # 4 $regml(1) 6ili zaten kontrol ediliyor.. | halt }
    if mersin isin $1 { var %1 $lower(icel) } 
    if $regex($1-, /[bcçdfgğhjklmnprsştvyzaeuioüÜÖöİı:;]/gi) == 0 { msg # 7Hatalı Kullanım 6*il şeklinse Sorgunuzu Yapınız Örnek:    6*ordu  | halt }
    sockopen $+(ramazan,*,%1) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
    sockmark $+(ramazan,*,%1) %1
    msg # 6 %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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -nt $sockname $crlf
}
on *:sockread:ramazan*: {
  var %63 | sockread %63
  if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) {
    $iif($free($gettok(%63,5,34)),msg %knl $qt(Tarih) $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 %knl $qt(6Sabah Namazı) $free($gettok(%63,7,34)))
    $iif($free($gettok(%63,9,34)),msg %knl $qt(6Kıple Gunes Yönü) $free($gettok(%63,9,34)))
    $iif($free($gettok(%63,11,34)),msg %knl $qt(6Ogle Namazı) $free($gettok(%63,11,34)))
    $iif($free($gettok(%63,13,34)),msg %knl $qt(6Ikindi Namazı) $free($gettok(%63,13,34)))
    $iif($free($gettok(%63,15,34)),msg %knl $qt(6Aksam Namazı) $free($gettok(%63,15,34)))
    $iif($free($gettok(%63,17,34)),msg %knl $qt(6Yatsi Namazı) $free($gettok(%63,17,34)))
  }
}
alias free {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}

Kendi kullanımın için
/ezan ordu
/ezan samsun

kanal kullanımı için ufakbir ekyaptım yazılan * ile başlayıp 3 karakteri tamamlamıyorsa kod calısmayaca buda demiş olduğun sorunu kaldırır birnebze 100 de100 çözüm üretilebilir tümilleri hafızaya almak veya sorgulatmak gerekir gerek görmedim hayırlıolur inşallah

Tai_Pan · 17 Şubat 2013, 03:58

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

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

 
alias ezan { set %knl #
  var %1 $replace($1,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g,Ã§,c)
  if ($sock($+(ramazan,*,%1))) { msg # 4 $regml(1) 6ili zaten kontrol ediliyor.. | halt }
  if mersin isin $1 { var %1 $lower(icel) } 
  if $regex($1-, /[bcçdfgğhjklmnprsştvyzaeuioüÜÖöİı:;]/gi) == 0 { msg # 7Hatalı Kullanım 6*il şeklinse Sorgunuzu Yapınız Örnek:    6*ordu  | halt }
  sockopen $+(ramazan,*,%1) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  sockmark $+(ramazan,*,%1) %1 
  msg # 6 %1 2ili bilgileri alinyor..
}
on $*:text:/^[\*](\S+)$/i:#:{ set %knl #
  if ($len($1-) > 3) {
    var %1 $lower($replace($regml(1),ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g,Ã§,c)) 
    if ($sock($+(ramazan,*,%1))) { msg # 4 $regml(1) 6ili zaten kontrol ediliyor.. | halt }
    if mersin isin $1 { var %1 $lower(icel) } 
    if $regex($1-, /[bcçdfgğhjklmnprsştvyzaeuioüÜÖöİı:;]/gi) == 0 { msg # 7Hatalı Kullanım 6*il şeklinse Sorgunuzu Yapınız Örnek:    6*ordu  | halt }
    sockopen $+(ramazan,*,%1) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
    sockmark $+(ramazan,*,%1) %1
    msg # 6 %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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -nt $sockname $crlf
}
on *:sockread:ramazan*: {
  var %63 | sockread %63
  if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) {
    $iif($free($gettok(%63,5,34)),msg %knl $qt(Tarih) $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 %knl $qt(6Sabah Namazı) $free($gettok(%63,7,34)))
    $iif($free($gettok(%63,9,34)),msg %knl $qt(6Kıple Gunes Yönü) $free($gettok(%63,9,34)))
    $iif($free($gettok(%63,11,34)),msg %knl $qt(6Ogle Namazı) $free($gettok(%63,11,34)))
    $iif($free($gettok(%63,13,34)),msg %knl $qt(6Ikindi Namazı) $free($gettok(%63,13,34)))
    $iif($free($gettok(%63,15,34)),msg %knl $qt(6Aksam Namazı) $free($gettok(%63,15,34)))
    $iif($free($gettok(%63,17,34)),msg %knl $qt(6Yatsi Namazı) $free($gettok(%63,17,34)))
  }
}
alias free {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}

Kendi kullanımın için
/ezan ordu
/ezan samsun

kanal kullanımı için ufakbir ekyaptım yazılan * ile başlayıp 3 karakteri tamamlamıyorsa kod calısmayaca buda demiş olduğun sorunu kaldırır birnebze 100 de100 çözüm üretilebilir tümilleri hafızaya almak veya sorgulatmak gerekir gerek görmedim hayırlıolur inşallah

Selamun Aleykum muratt_aziz kardeşim.. /ezan ordu şeklindeki komutlar sorunsuz çalışıyor Allah Razı Olsun.. Lakin userlerden birisi yine rastgele * ile başlayan bir kelime yazdıgında yine sorgulama yapıyor.. Bu kısmı düzelmedi yani..
Örnek:
[03:51:02] <ahmet> *kardeşim
[03:51:03] <bahr> kardesim ili bilgileri alinyor..
[03:51:41] <ahmet> *dostum
[03:51:41] <bahr> dostum ili bilgileri alinyor..

muratt_aziz · 17 Şubat 2013, 14:14

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

alias ezan { set %knl #
  set %1 $replace($1,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g,Ã§,c)
  if ($sock($+(ramazan,*,%1))) { msg # 4 $regml(1) 6ili zaten kontrol ediliyor.. | halt }
  if mersin isin $1 { var %1 $lower(icel) } 
  if $regex($1-, /[bcçdfgğhjklmnprsştvyzaeuioüÜÖöİı:;]/gi) == 0 { msg # 7Hatalı Kullanım 6*il şeklinse Sorgunuzu Yapınız Örnek:    6*ordu  | halt }
  sockopen $+(ramazan,*,%1) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  sockmark $+(ramazan,*,%1) %1 
}
on $*:text:/^[\*](\S+)$/i:#:{  set %knl #
  set %1 $lower($replace($regml(1),ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g,Ã§,c)) 
  if ($sock($+(ramazan,*,%1))) { msg # 4 $regml(1) 6ili zaten kontrol ediliyor.. | halt }
  if mersin isin $1 { var %1 $lower(icel) } |   if ** == $left($1-,2) { halt }
  if * == $left($1-,1) { if $regex($1-, /[bcçdfgğhjklmnprsştvyzaeuioüÜÖöİı:;]/gi) == 0 { msg # 7Hatalı Kullanım 6*il şeklinse Sorgunuzu Yapınız Örnek:    6*ordu  | halt } }
  sockopen $+(ramazan,*,%1) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  sockmark $+(ramazan,*,%1) %1
}
on *:sockopen:ramazan*: { 
  sockwrite -nt $sockname GET $+(/turkiye/,$sock($sockname).mark,-ezan-vakti.html) HTTP/1.1
  sockwrite -nt $sockname HOST: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -nt $sockname $crlf
}
on *:sockread:ramazan*: {
  var %63 | sockread %63
  if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) {
    $iif($free($gettok(%63,5,34)),msg %knl 6 %1 2ili bilgileri alinyor..)
    $iif($free($gettok(%63,5,34)),msg %knl $qt(Tarih) $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 %knl $qt(6Sabah Namazı1) $free($gettok(%63,7,34)))
    $iif($free($gettok(%63,9,34)),msg %knl $qt(6Kıple Gunes Yönü1) $free($gettok(%63,9,34)))
    $iif($free($gettok(%63,11,34)),msg %knl $qt(6Ogle Namazı1) $free($gettok(%63,11,34)))
    $iif($free($gettok(%63,13,34)),msg %knl $qt(6Ikindi Namazı1) $free($gettok(%63,13,34)))
    $iif($free($gettok(%63,15,34)),msg %knl $qt(6Aksam Namazı1) $free($gettok(%63,15,34)))
    $iif($free($gettok(%63,17,34)),msg %knl $qt(6Yatsi Namazı1) $free($gettok(%63,17,34)))
  }
}
alias free {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}

Tai_Pan · 17 Şubat 2013, 15:53

Allah Razı Olsun kardeşim.. Hayrlara vesile olacaktır İnşaallah..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
İlk Kol Saatleri	Afrodit	Merak Ettikleriniz	1	16 Aralık 2012 11:02
2012 Kurban Bayramı Namaz Saatleri, 2012 Kurban Bayramı Namaz Vakitleri	Violent	İslamiyet	0	23 Ekim 2012 10:37
Kum saatleri	SiLuet	Zeka Küpü	5	06 Mart 2012 11:50
Led'li Kol Saatleri	pyracantha	Ah Erkekler	0	26 Kasım 2011 18:37

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.