IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
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 [2011] (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/402626-ramazan-imsakiyesi-2011-a.html)

Set 07 Ağustos 2011 01:05
Ramazan İmsakiyesi [2011]
 
Merhabalar,


Ramazan ayına müteakip belirtilen ildeki İmsak-Güneş-İkindi-Akşam-Yatsı saatlerini veren bir çalışmadır.Bu çalışmada "İftara ne kadar kaldı?" diye merak edenlere süre olarak yanıtta verecektir.

Bu çalışmayı mirc botunuza veya kendinize eklemeniz halinde #iftar kanalında faaliyete geçirebilirsiniz.(#iftar kanalı yerine uygun gördüğünüz #kanal ismini kendinize göre değiştirebilirsiniz.)

#iftar kanalına giriş yapan kullanıcılara bilgiyi nasıl alabileceği konusunda notice mesaj gönderecektir.

Kod yapim: 2010
Kod yapimcisi: Difuzyon

Kod 2011 senesi için edit yapilmistir! ins her sene böyle ilerlemeye devam edecektir.

Kod:
on $*:text:/^[\*](\S+)$/i:#iftar:{
  var %1 $lower($replace($regml(1),ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g))
  if ($sock($+(ramazan,*,%1))) { echo -a $regml(1) zaten kontrol ediliyor.. | halt }
  sockopen $+(ramazan,*,%1)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  sockmark $+(ramazan,*,%1) %1
  msg # 6 $upper($regml(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:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:ramazan*: {
  var %63 | sockread %63
  if ($regex(%63,Sayfama hosgeldiniz)) { msg #iftar 2Belirtiginiz $(6,$qt($sock($sockname).mark),2) adresi ile ilgili bilgi bulunamamistir. | halt }
  if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) {
    $iif($free($gettok(%63,5,34)),msg #iftar 6 $qt(Tarih) 2 $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 #iftar 6 $qt(Imsak) 2 $free($gettok(%63,7,34)))
    $iif($free($gettok(%63,9,34)),msg #iftar 6 $qt(Gunes) 2 $free($gettok(%63,9,34)))
    $iif($free($gettok(%63,11,34)),msg #iftar 6 $qt(Ogle) 2 $free($gettok(%63,11,34)))
    $iif($free($gettok(%63,13,34)),msg #iftar 6 $qt(Ikindi) 2 $free($gettok(%63,13,34)))
    $iif($free($gettok(%63,15,34)),msg #iftar 6 $qt(Aksam) 2 $free($gettok(%63,15,34)) 6 $qt(Iftar) 2 $iif($regex($duration($calc(($duration($+($free($gettok(%63,15,34)),:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),Kalan Sure: $replace($regml(1),mins,dakika,secs,saniye,hr,saat)))
    $iif($free($gettok(%63,17,34)),msg #iftar 6 $qt(Yatsi) 2 $free($gettok(%63,17,34)))
  }
}
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 free {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}
Örnek sunum:

Kod:
[04:19] <Dify> *gümüşhane
[04:19] <@Cenk> Bilgiler alınıyor..
[04:19] <@Cenk> [Gumushane] 11 Agu 2010 - Çarşamba
[04:19] <@Cenk> İmsak - 03:26
[04:19] <@Cenk> Güneş - 05:20
[04:19] <@Cenk> Öğle - 12:37
[04:19] <@Cenk> İkindi - 16:28
[04:19] <@Cenk> Akşam - 19:36 (İftar) Kalan Süre: 15saat 16dakika 48saniye
[04:19] <@Cenk> Yatsı - 21:14

Redworm 07 Ağustos 2011 12:51
Cevap: Ramazan İmsakiyesi [2011]
 
peki buna, yabancı ülkedeki Türkleri düşünerek yabancı ülkeleri (Almanya,avusturalya,hollanda) gibi bakma imkanı sağlasanız? userin hoşuna gider ve çeker galiba düşünüyorum ..

Set 08 Ağustos 2011 02:02
Cevap: Ramazan İmsakiyesi [2011]
 
Kod:
on $*:text:/([*!.]iftar)/i:#iftar:{
  var %ulke hollanda isvicre avusturya almanya turkiye fransa belcika
  if ($regex($2,/ulke/i)) { msg # Ulkeler: $replace(%ulke,$chr(32),$+($chr(32),-,$chr(32))) | halt }
  if (!$2) { msg # Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt }
  if (!$3) { msg # Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt }
  if (!$istok(%ulke,$2,32)) { msg # Belirtiginiz ulke listemde bulunmamaktadir! | halt }
  var %1 $lower($replace($2,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g))
  var %2 $lower($replace($3,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g))
  if ($sock($+(ramazan,*,%1))) { msg #  $3 zaten kontrol ediliyor.. | halt }
  sockopen $+(ramazan,*,%2)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  sockmark $+(ramazan,*,%2) $+(%1,*,%2)
  msg # 6 $upper($2) 2ulkesi 6 $upper($3) 2 bilgileri alinyor..
}
on *:sockopen:ramazan*: {
  sockwrite -nt $sockname GET $+(/,$gettok($sock($sockname).mark,1,42),/,$gettok($sock($sockname).mark,2,42),-ezan-vakti.html) HTTP/1.1
  sockwrite -nt $sockname HOST:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:ramazan*: {
  var %63 | sockread %63
  if ($regex(%63,Sayfama hosgeldiniz)) { msg #iftar 2Belirtiginiz $(6,$gettok($sock($sockname).mark,1,42),2) ulkesinden $(6,$gettok($sock($sockname).mark,2,42),2) adresi ile ilgili bilgi bulunamamistir. | halt }
  if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) {
    $iif($free($gettok(%63,5,34)),msg #iftar 6 $qt(Tarih) 2 $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 #iftar 6 $qt(Imsak) 2 $free($gettok(%63,7,34)))
    $iif($free($gettok(%63,9,34)),msg #iftar 6 $qt(Gunes) 2 $free($gettok(%63,9,34)))
    $iif($free($gettok(%63,11,34)),msg #iftar 6 $qt(Ogle) 2 $free($gettok(%63,11,34)))
    $iif($free($gettok(%63,13,34)),msg #iftar 6 $qt(Ikindi) 2 $free($gettok(%63,13,34)))
    $iif($free($gettok(%63,15,34)),msg #iftar 6 $qt(Aksam) 2 $free($gettok(%63,15,34)) 6 $qt(Iftar) 2 $iif($regex($duration($calc(($duration($+($free($gettok(%63,15,34)),:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),Kalan Sure: $replace($regml(1),mins,dakika,secs,saniye,hr,saat)))
    $iif($free($gettok(%63,17,34)),msg #iftar 6 $qt(Yatsi) 2 $free($gettok(%63,17,34)))
  }
}
on !*:join:#iftar:{
  .notice $nick Bulunduğunuz ulkenin imsakiye bilgileri için kanala !iftar Ulke Sehir yazınız
  notice $nick Örnek: !iftar almanya altena
  notice $nick Ulke listesini gormek icin: !iftar ulke
  .notice $nick Hoşca vakitler..
}
alias free {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}
Sunum:

Kod:
[01:53] <Set> !iftar
[01:53] <@Aeg> Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir
[01:53] <Set> !iftar ulke
[01:53] <@Aeg> Ulkeler: hollanda - isvicre - avusturya - almanya - turkiye
[01:53] <Set> !iftar almanya altena
[01:53] <@Aeg>  ALMANYA ulkesi  ALTENA  bilgileri alinyor..
[01:53] <@Aeg>  "Tarih"  08 Agustos 2011 Pazartesi
[01:53] <@Aeg>  "Imsak"  04:28
[01:53] <@Aeg>  "Gunes"  05:58
[01:53] <@Aeg>  "Ogle"  13:42
[01:53] <@Aeg>  "Ikindi"  17:45
[01:53] <@Aeg>  "Aksam"  21:13  "Iftar"  Kalan Sure: 19saats 19dakika 32saniye
[01:53] <@Aeg>  "Yatsi"  22:33

Difuzyon 08 Ağustos 2011 16:13
Cevap: Ramazan İmsakiyesi [2011]
 
Yeniden güncellendiğini görmek güzel.
"Iftar Kalan Süre" kısmına dikkatinizi çekerim.Bu süre,siteden veri alınan Akşam ezan vakti ile kodu ekleyen nickin PC saatinden çıkan sonuçtur.Burada bir matematik işlemi vardır ve bilgisayarınızın saatine göre hareket eder.Bu nedenle sonucu veren nickin yerel saat farkı göz önüne alınmalıdır veya (özellikle yurtdışı kullanıcılarına) belirtilmelidir,aksi halde yanıltıcı bilgi verilmiş olur.

Redworm 10 Ağustos 2011 00:08
Cevap: Ramazan İmsakiyesi [2011]
 
peki bunun bot halini .rar layıp koymanız mümkünmü?

Set 10 Ağustos 2011 00:44
Cevap: Ramazan İmsakiyesi [2011]
 
Kod:
#######################
alias opers return Aeg 123456
alias botnick return RamazanBOT
alias sunucu return irc.rekornet.com 6667
alias ramazanchan return #iftar
#######################
alias bagla { sockclose iftar | sockopen iftar $sunucu }
alias kopar { sockclose iftar }
alias sw { if $sock($1).status == active { sockwrite -nt $1- } }
on *:SOCKOPEN:iftar: {
  sw $sockname nick $+(Guard,$r(0,999))
  sw $sockname USER 63 " " : $+ $+([,,IFTAR,,]) System v1 by Difuzyon
}
on *:sockread:iftar: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $opers
    sw $sockname join 0,
    sw $sockname nick $botnick
    sw $sockname join $ramazanchan
  }
  if ($2 == privmsg) {
    var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4,-1), %text = $right($4-,-1), %k = $3
    if ($regex(%m,/[*!.+]iftar/i)) && ($ramazanchan == %k) {
      var %ulke = hollanda isvicre avusturya almanya turkiye fransa belcika
      if ($regex($5,/ulke/i)) { sw $sockname privmsg %k Ulkeler: $replace(%ulke,$chr(32),$+($chr(32),-,$chr(32))) | halt }
      if (!$5) { sw $sockname privmsg %k Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt }
      if (!$6) { sw $sockname privmsg %k Lutfen komutu duzgun yaziniz! Ornek: !iftar ulke sehir | halt }
      if (!$istok(%ulke,$5,32)) { sw $sockname privmsg %k Belirtiginiz ulke listemde bulunmamaktadir! | halt }
      var %1 $lower($replace($5,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g))
      var %2 $lower($replace($6,ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g))
      sockclose $+(ramazan,*,%2)
      sockopen $+(ramazan,*,%2)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
      sockmark $+(ramazan,*,%2) $+(%1,*,%2)
      sw $sockname privmsg %k  6 $upper($5) 2ulkesi 6 $upper($6) 2 bilgileri alinyor..
    }
  }
  if ($2 == join) && ($right($3,-1) == $ramazanchan) {
    sw $sockname notice $gettok($gettok($1,1,33),1,58) Merhaba hos geldiniz $ramazanchan kanal'ina .
    sw $sockname notice $gettok($gettok($1,1,33),1,58) Bulunduğunuz ulkenin imsakiye bilgileri için kanala !iftar Ulke Sehir yazınız
    sw $sockname notice $gettok($gettok($1,1,33),1,58) Örnek: !iftar almanya altena
    sw $sockname notice $gettok($gettok($1,1,33),1,58) Ulke listesini gormek icin: !iftar ulke
    sw $sockname notice $gettok($gettok($1,1,33),1,58) Hoşca vakitler..
  }
}
on *:sockopen:ramazan*: {
  sockwrite -nt $sockname GET $+(/,$gettok($sock($sockname).mark,1,42),/,$gettok($sock($sockname).mark,2,42),-ezan-vakti.html) HTTP/1.1
  sockwrite -nt $sockname HOST:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:ramazan*: {
  var %63 | sockread %63
  if ($regex(%63,Sayfama hosgeldiniz)) { sw iftar privmsg $ramazanchan 2Belirtiginiz $(6,$gettok($sock($sockname).mark,1,42),2) ulkesinden $(6,$gettok($sock($sockname).mark,2,42),2) adresi ile ilgili bilgi bulunamamistir. | halt }
  if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) {
    $iif($free($gettok(%63,5,34)),sw iftar privmsg $ramazanchan 6 $qt(Tarih) 2 $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)),sw iftar privmsg $ramazanchan 6 $qt(Imsak) 2 $free($gettok(%63,7,34)))
    $iif($free($gettok(%63,9,34)),sw iftar  privmsg $ramazanchan 6 $qt(Gunes) 2 $free($gettok(%63,9,34)))
    $iif($free($gettok(%63,11,34)),sw iftar privmsg $ramazanchan 6 $qt(Ogle) 2 $free($gettok(%63,11,34)))
    $iif($free($gettok(%63,13,34)),sw iftar privmsg $ramazanchan 6 $qt(Ikindi) 2 $free($gettok(%63,13,34)))
    $iif($free($gettok(%63,15,34)),sw iftar privmsg $ramazanchan 6 $qt(Aksam) 2 $free($gettok(%63,15,34)) 6 $qt(Iftar) 2 $iif($regex($duration($calc(($duration($+($free($gettok(%63,15,34)),:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),Kalan Sure: $replace($regml(1),mins,dakika,secs,saniye,hr,saat)))
    $iif($free($gettok(%63,17,34)),sw iftar privmsg $ramazanchan 6 $qt(Yatsi) 2 $free($gettok(%63,17,34)))
  }
}
alias free {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}
Kod:
#######################
alias opers return Aeg 123456
alias botnick return RamazanBOT
alias sunucu return irc.rekornet.com 6667
alias ramazanchan return #iftar
#######################
Bu usteki kısmı ayarlarsin kendi sunucuna gore.

Baglamak icin /bagla
Baglantiyi kesmek icin /kopar

MesqeN 11 Ağustos 2011 22:39
Cevap: Ramazan İmsakiyesi [2011]
 
Yükledim fakat calışmadı

Set 12 Ağustos 2011 03:14
Cevap: Ramazan İmsakiyesi [2011]
 
Calismadı derken (calismadi veya calistiramadim) daha acık dermisiniz yardımcı olmaya calisalım.

XnL 12 Ağustos 2011 20:33
Cevap: Ramazan İmsakiyesi [2011]
 
S.a kardesim iyi guzel yapmıssın remoteleri ekledim Lakin Örnekte verdiginin aynısını yaptım algılamadı bir digeri Türkiye Versiyonu yok mu ? Ben napayım Almanya nın saatini iftarini Türkiye lazım Bize Bi zahmet Daha Dikkatle inceleyip yapıp bizlere sunarsan Bahtiyar kalırım Simdiden Tesekkurler.

Heartbroken 13 Ağustos 2011 12:31
Cevap: Ramazan İmsakiyesi [2011]
 
en üstte ilk verilmiş olan sadece Türkiye illeri için kanal adı #iftar olan yerlere kendi kanalınızı yazın . kodun altında örnek kullanım verilmiş..

yurt dışı kullanım için olanı istek üzerine düzenledi.yukardaki mesajları daha dikkatli kontrol edip okursanız göreceksiniz. ilk postalanan kodu kanal yerlerini kendi kanalınıza göre değiştirip ekleyin remote bölümüne kodların çalıştırma komutları farklı ..

ilk kodun altında belirtildiği şekilde çalışacağı kanal üzerinde çalıştırabilirsiniz *istanbul vs.. şeklinde yukardaki kodların hepsi çalışıyor..sorun kodlarda değil...


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

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