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

 Kayıt ol  Topluluk
8Beğeni(ler)
  • 6 Post By muratt_aziz
  • 1 Post By muratt_aziz
  • 1 Post By muratt_aziz

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 15 Şubat 2013, 17:37   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
namaz saatleri



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
}
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 16 Şubat 2013, 05:47   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: namaz saatleri



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..

 
Alıntı ile Cevapla

Alt 17 Şubat 2013, 00:56   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: namaz saatleri



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

 
Alıntı ile Cevapla

Alt 17 Şubat 2013, 03:58   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: namaz saatleri



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..

 
Alıntı ile Cevapla

Alt 17 Şubat 2013, 14:14   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: namaz saatleri



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
}
 
Alıntı ile Cevapla

Alt 17 Şubat 2013, 15:53   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: namaz saatleri



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

 
Alıntı ile Cevapla

Cevapla

Etiketler
namaz, saatleri

« önceki Konu | sonraki Konu »

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
İ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




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org