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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - namaz saatleri (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/523731-namaz-saatleri.html)

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:

 

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

}

Cevap: namaz saatleri

Herhangi birisi * ile başlayan rastgele bir kelime yazdığında sorgulama yapıyor.. :) Örnek: *tşk gibi.. Bu komutu kendimize göre uyarlayabilir miyiz? Yani sadece kendim yazdığımda cevap verecek..

Cevap: namaz saatleri

Kod:

 

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

Cevap: namaz saatleri

Alıntı:

muratt_aziz Nickli Üyeden Alıntı (Mesaj 1041281346)

Kod:

 

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

}

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

Cevap: namaz saatleri

Kod:

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

}

Cevap: namaz saatleri

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