[Forbidden]

Dünyadaki Ülkelerin ve Şehirlerin saatlerine tek tek bakabilirsiniz.

Komut: !saat Ülke veya Şehir

Örnek komutlar;

Komut: !saat Fransa
Komut: !saat Paris
Komut: !saat Meksika

Örnek;

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

[21:31]» <Atom> !saat Fransa
[21:31]» <Forbidden> Fransa [Saat] 19:31 [Tarih] 11 Ocak 2024 Perşembe
[21:31]» <Atom> -
[21:32]» <Atom> !Saat Paris
[21:32]» <Forbidden> Paris, Fransa [Saat] 19:31 [Tarih] 11 Ocak 2024 Perşembe
[21:32]» <Atom> -
[21:32]» <Atom> .saat Özbekistan
[21:32]» <Forbidden> Özbekistan [Saat] 23:32 [Tarih] 11 Ocak 2024 Perşembe

Kod;

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

on $*:text:/^[.!]saat (.+)$/i:#: {
  if (%saatchan) { msg # > $nick Saat sorgusu yaparken 10 sn beklemelisiniz | msg # > Saat sorgusu yapilacak ulkenin ilk harfini büyük ve türkçe karakter kullanmalisiniz. | return }
  set -eu10 %saatchan #
  set -eu10 %saatnere $replace($$2-,$chr(32),+)
  saat
}
alias saat { if $sock(saat) { .sockclose saat } | .sockopen saat $sit 80 }
on *:sockopen:saat: {
  $m GET /search?q=google+saat+ $+ %saatnere HTTP/1.1
  $m Host: $sit
  $m Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  $m Accept-Encoding: *
  $m $crlf
}
on *:sockread:saat:{
  var %saat
  if $sockerr { .sockclose $sockname | msg %saatchan > Socket Hatasi }
  sockread -f %saat
  var %patt = /(.+)BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd">(.+)/
  var %patt2 = /"r0bn4c rQMQod">(.+)</span></span></span>/
  var %patt3 = /<div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/$
  if ($+(*,%saatnere,*) iswm %saat && $regex(%saat,%patt)) {
    var %saat__ = $regml(2)
    noop $regex(%saat,%patt2)
    var %ulke_ $regml(1)
    noop $regex(%saat,%patt3)
    var %tarih_ = $regml(1)
    msg %saatchan %ulke_ [Saat] %saat__ [Tarih] %tarih_
  }
}
alias -l m return sockwrite -n $sockname
alias -l sit return 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">

 










    

        

         
         

        

        

        


        
        
            

                

                
                    
                        Konu Forbidden tarafından (11 Ocak 2024  Saat 21:55 ) değiştirilmiştir.
                    
                    
                
            
        
        

    

[eLsaa]

gayet güzel çalışma olmuş @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emeğine sağlık, yurt dışı yaşayan arkadaşlar ile sohbet ederken faydalı olacaktır.

[Sarya]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Emeğinize sağlık Başarılar diliyorum

[SNOOPY]

Emeğine sağlık üstad

[ZaLiM1979]

Emegine yüregine saglik @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] güzel Kod.
Benim bir mahrusatim var.. benim gibi yurtdisinda yasayan arkadaslar türkce karakter kulanamiyor o yüzden bazi sehirler/ülkeler gözterilmiyor.

Degismek mümkün mü? Saygilar..

[SpinoZi]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emeğine sağlık.

[Forbidden]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ne demek istedigini tam anlıyamadım log veya resim atar mısın

[ZaLiM1979]

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ne demek istedigini tam anlıyamadım log veya resim atar mısın

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
bu sadece bir misal sanirim Zürich'in i'si noktasiz yaziliyor türkce karakter olarak ondan olmuyor. ben Isvicre'de yasiyorum ve türkce karakter kulanamiyorum.



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

[OperServ]

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

Emegine yüregine saglik @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] güzel Kod. Benim bir mahrusatim var.. benim gibi yurtdisinda yasayan arkadaslar türkce karakter kulanamiyor o yüzden bazi sehirler/ülkeler gözterilmiyor. Degismek mümkün mü? Saygilar..

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

on $*:text:/^[.!]saat (.+)$/i:#: {
  if (%saatchan) { 
    msg # > $nick Saat sorgusu yaparken 10 sn beklemelisiniz | msg # > Saat sorgusu yapılacak ülkenin ilk harfini büyük ve türkçe karakter kullanmalısınız. | return 
  }
  set -eu10 %saatchan #
  set -eu10 %saatnere $replace($$2-,$chr(32),+)
  saat
}
alias saat { 
  if $sock(saat) { 
    .sockclose saat 
  } 
  .sockopen saat $sit 80 
}
on *:sockopen:saat: {
  var %turreplace = ş:s,Ş:S,ı:i,İ:I,ğ:g,Ğ:G,ü:u,Ü:U,ö:o,Ö:O,ç:c,Ç:C
  var %saatnere = $replace(%saatnere,%turreplace)
  $m GET /search?q=google+saat+ $+ %saatnere HTTP/1.1
  $m Host: $sit
  $m Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  $m Accept-Encoding: *
  $m $crlf
}
on *:sockread:saat:{
  var %saat
  if $sockerr { 
    .sockclose $sockname 
    msg %saatchan > Socket Hatasi 
  }
  sockread -f %saat
  var %patt = /(.+)BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd">(.+)/
  var %patt2 = /"r0bn4c rQMQod">(.+)</span></span></span>/
  var %patt3 = /<div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/$
  if ($+(*,%saatnere,*) iswm %saat && $regex(%saat,%patt)) {
    var %saat__ = $regml(2)
    noop $regex(%saat,%patt2)
    var %ulke_ $regml(1)
    noop $regex(%saat,%patt3)
    var %tarih_ = $regml(1)
    msg %saatchan %ulke_ [Saat] %saat__ [Tarih] %tarih_
  }
}
alias -l m return sockwrite -n $sockname
alias -l sit return 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">

Buyur türkçe karakter sorununu giderecektir. 










    

        

         
         

        

        
        
            

                __________________

             Herkes bir, İş için yaratılmıştır.
            
        
        

        


        

    

[ZaLiM1979]

OperServ 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! on $*:text:/^[.!]saat (.+)$/i:#: { if (%saatchan) { msg # > $nick Saat sorgusu yaparken 10 sn beklemelisiniz | msg # > Saat sorgusu yapılacak ülkenin ilk harfini büyük ve türkçe karakter kullanmalısınız. | return } set -eu10 %saatchan # set -eu10 %saatnere $replace($$2-,$chr(32),+) saat } alias saat { if $sock(saat) { .sockclose saat } .sockopen saat $sit 80 } on *:sockopen:saat: { var %turreplace = ş:s,Ş:S,ı:i,İ:I,ğ:g,Ğ:G,ü:u,Ü:U,ö:o,Ö:O,ç:c,Ç:C var %saatnere = $replace(%saatnere,%turreplace) $m GET /search?q=google+saat+ $+ %saatnere HTTP/1.1 $m Host: $sit $m Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 $m Accept-Encoding: * $m $crlf } on *:sockread:saat:{ var %saat if $sockerr { .sockclose $sockname msg %saatchan > Socket Hatasi } sockread -f %saat var %patt = /(.+)BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd">(.+)/ var %patt2 = /"r0bn4c rQMQod">(.+)</span></span></span>/ var %patt3 = /<div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/$ if ($+(*,%saatnere,*) iswm %saat && $regex(%saat,%patt)) { var %saat__ = $regml(2) noop $regex(%saat,%patt2) var %ulke_ $regml(1) noop $regex(%saat,%patt3) var %tarih_ = $regml(1) msg %saatchan %ulke_ [Saat] %saat__ [Tarih] %tarih_ } } alias -l m return sockwrite -n $sockname alias -l sit return Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js"> Buyur türkçe karakter sorununu giderecektir.

Mahlesef calismiyor..

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

[12:01:2024|18:36:29] <TeuFeLs-KerL> !saat Zürich
[12:01:2024|18:36:34] <TeuFeLs-KerL> !saat Zurich
[12:01:2024|18:36:34] <KuRDo> > TeuFeLs-KerL Saat sorgusu yaparken 10 sn beklemelisiniz
[12:01:2024|18:36:34] <KuRDo> > Saat sorgusu yapılacak ülkenin ilk harfini büyük ve türkçe karakter kullanmalısınız.
[12:01:2024|18:36:54] <TeuFeLs-KerL> !saat Zurich
[12:01:2024|18:37:08] <TeuFeLs-KerL> !saat Zürih
 [12:01:2024|18:37:22] <TeuFeLs-KerL> !saat Zurih

Bu Kod su hatayi verdi: [18:42] * Invalid parameters: $replace (line 17, DunyaSaat.mrc)
Satir 17 $replace hatasi..