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

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/)
-   -   Dünya saat sorgulama socket (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1025587-dunya-saat-sorgulama-socket.html)

Forbidden 11 Ocak 2024 21:48
Dünya saati sorgulama socket
 
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:
[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:
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 www.google.com

idyllic 12 Ocak 2024 01:45
Cevap: Dünya saat sorgulama socket
 
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 12 Ocak 2024 06:16
Cevap: Dünya saat sorgulama socket
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Emeğinize sağlık Başarılar diliyorum

SNOOPY 12 Ocak 2024 11:02
Cevap: Dünya saat sorgulama socket
 
Emeğine sağlık üstad

ZaLiM1979 12 Ocak 2024 19:34
Cevap: Dünya saat sorgulama socket
 
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 12 Ocak 2024 19:45
Cevap: Dünya saat sorgulama socket
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emeğine sağlık.

Forbidden 12 Ocak 2024 19:55
Cevap: Dünya saat sorgulama socket
 
@[Ü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 12 Ocak 2024 20:12
Cevap: Dünya saat sorgulama socket
 
Alıntı:
Forbidden Nickli Üyeden Alıntı (Mesaj 1042858230)
@[Ü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.


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

OperServ 12 Ocak 2024 20:32
Cevap: Dünya saat sorgulama socket
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042858223)
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:
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.
türkçe karakter sorununu giderecektir.

ZaLiM1979 12 Ocak 2024 20:38
Cevap: Dünya saat sorgulama socket
 
Alıntı:
OperServ Nickli Üyeden Alıntı (Mesaj 1042858254)
Kod:
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.
türkçe karakter sorununu giderecektir.

Mahlesef calismiyor..
Kod:
[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..

OperServ 12 Ocak 2024 21:02
Cevap: Dünya saat sorgulama socket
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042858260)
Mahlesef calismiyor..
Kod:
[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..
Kod:
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-,[şSıİğĞüÜöÖçÇ],[sSiIgGuUoOcC])
  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.
ekleyin.

ZaLiM1979 12 Ocak 2024 21:07
Cevap: Dünya saat sorgulama socket
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buda olmuyor..


Kod:
[12:01:2024|19:04:45] <TeuFeLs-KerL> !saat Zürich
[12:01:2024|19:04:59] <TeuFeLs-KerL> !saat Zürih
[12:01:2024|19:05:16] <TeuFeLs-KerL> !saat Zurih
[12:01:2024|19:05:28] <TeuFeLs-KerL> !saat Zurich
[12:01:2024|19:05:44] <TeuFeLs-KerL> !saat Zürıch
[12:01:2024|19:05:59] <TeuFeLs-KerL> !saat Zurıch

Ama status'da hata vermedi.

manikdepresif 12 Ocak 2024 21:34
Cevap: Dünya saat sorgulama socket
 
!time Vienna
!time China
Kod:
on $*:text:/^[.!](saat|time) (.+)$/i:#sohbet,#felsefe,#radyo,#mirchelp: {
  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  %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+time+ $+ %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 %reg = /div class="kCrYT"><span><span class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)</span></span></span><span class="BNeawe s3v9rd AP7Wnd"> / </span><span><span class="BNeawe s3v9rd AP7Wnd">(.+)</span></span></div><div class="Q0HXG"></div><div><div><div><div class="kCrYT"><div><div><div><div class="BNeawe iBp4i AP7Wnd"><div><div class="BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd"><div><div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/i
  if $regex(%saat,%reg) { msg %saatchan $regml(1) $regml(2) $regml(3) $regml(4) }
}
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.
calisiyorsa ikisini birlestireyim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Forbidden 12 Ocak 2024 21:54
Cevap: Dünya saat sorgulama socket
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod türkiye ye göre uyarlı ingilizce ülke şehir isimleri kullanmamalısın.

Kod çalışıyor;


Kod:
21:54:01] <&Forbidden> !saat Zürih
[21:54:02] <~Atom> Forbidden, [Dünya-Saati] Zürih, İsviçre [Saat] 19:53 [Tarih] 12 Ocak 2024 Cuma
[21:54:04] <&Forbidden> -
[21:54:07] <&Forbidden> !saat Zürih
[21:54:08] <~Atom> Forbidden, [Dünya-Saati] Zürih, İsviçre [Saat] 19:53 [Tarih] 12 Ocak 2024 Cuma
[21:54:10] <&Forbidden> -
[21:54:15] <&Forbidden> !saat Japonya
[21:54:16] <~Atom> Forbidden, [Dünya-Saati] Tokyo, Japonya [Saat] 03:54 [Tarih] 13 Ocak 2024 Cumartesi
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çalışan kodu deneme yapmadan degiştirip bozup adama vermen yanlış bir hareket

ZaLiM1979 13 Ocak 2024 11:37
Cevap: Dünya saat sorgulama socket
 
Alıntı:
Forbidden Nickli Üyeden Alıntı (Mesaj 1042858330)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod türkiye ye göre uyarlı ingilizce ülke şehir isimleri kullanmamalısın.

Kod çalışıyor;


Kod:
21:54:01] <&Forbidden> !saat Zürih
[21:54:02] <~Atom> Forbidden, [Dünya-Saati] Zürih, İsviçre [Saat] 19:53 [Tarih] 12 Ocak 2024 Cuma
[21:54:04] <&Forbidden> -
[21:54:07] <&Forbidden> !saat Zürih
[21:54:08] <~Atom> Forbidden, [Dünya-Saati] Zürih, İsviçre [Saat] 19:53 [Tarih] 12 Ocak 2024 Cuma
[21:54:10] <&Forbidden> -
[21:54:15] <&Forbidden> !saat Japonya
[21:54:16] <~Atom> Forbidden, [Dünya-Saati] Tokyo, Japonya [Saat] 03:54 [Tarih] 13 Ocak 2024 Cumartesi
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çalışan kodu deneme yapmadan degiştirip bozup adama vermen yanlış bir hareket

yukarda resim yükledim bilmem gördünmü, ama Zürih birkac sekilde yazmayi denedim olmadi. Sanirim türkce karakterlerden dolayi calismiyor olabilir bende.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 11:08 -->-> Daha önceki mesaj 11:02 --

Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042858305)
!time Vienna
!time China
Kod:
on $*:text:/^[.!](saat|time) (.+)$/i:#sohbet,#felsefe,#radyo,#mirchelp: {
  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  %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+time+ $+ %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 %reg = /div class="kCrYT"><span><span class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)</span></span></span><span class="BNeawe s3v9rd AP7Wnd"> / </span><span><span class="BNeawe s3v9rd AP7Wnd">(.+)</span></span></div><div class="Q0HXG"></div><div><div><div><div class="kCrYT"><div><div><div><div class="BNeawe iBp4i AP7Wnd"><div><div class="BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd"><div><div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/i
  if $regex(%saat,%reg) { msg %saatchan $regml(1) $regml(2) $regml(3) $regml(4) }
}
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.
calisiyorsa ikisini birlestireyim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Sagolasin ama buda calismiyor. Sanirim sorun Türkce Karakter'ler yüzünde.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 11:37 -->-> Daha önceki mesaj 11:08 --

Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042858305)
!time Vienna
!time China
Kod:
on $*:text:/^[.!](saat|time) (.+)$/i:#sohbet,#felsefe,#radyo,#mirchelp: {
  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  %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+time+ $+ %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 %reg = /div class="kCrYT"><span><span class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)</span></span></span><span class="BNeawe s3v9rd AP7Wnd"> / </span><span><span class="BNeawe s3v9rd AP7Wnd">(.+)</span></span></div><div class="Q0HXG"></div><div><div><div><div class="kCrYT"><div><div><div><div class="BNeawe iBp4i AP7Wnd"><div><div class="BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd"><div><div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/i
  if $regex(%saat,%reg) { msg %saatchan $regml(1) $regml(2) $regml(3) $regml(4) }
}
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.
calisiyorsa ikisini birlestireyim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Calisiyormus bu.. sagolasin. #sohbet, vsy kanallari sildim calisti.. daha önce görmemistim orayi :)

Forbidden 13 Ocak 2024 14:17
Cevap: Dünya saat sorgulama socket
 
Kod istek üzerine değiştirilmiş ve güncellenmiştir.
Kod hem ingilizce hem türkçe ülke isimleri yazılarak dünya saatine bakılabilir hale getirilmiştir.

Kodun işleyişi şu şekildedir;

Saat: komutu Türkçe
Time: komutu İngilizce

Örnek komutlar;

!Saat Türkiye
!Time Turkey
!Saat Brezilya
!Time Brazil
!time Mexico
!saat Meksika

Yardımları için @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] jeun ustaya teşekkür ederim.

Kod;
Kod:
on $*:text:/^[.!](saat|time) (.+)$/i:#: {
  unset %trsaat %engsaat
  $iif($regml(1) == saat,set %trsaat OK,set %engsaat OK)
  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: {
  if %engsaat {
    $m GET /search?q=google+time+ $+ %saatnere HTTP/1.1
  }
  if %trsaat {
    $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
  if %engsaat {
    var %reg = /div class="kCrYT"><span><span class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)</span> $+ $&
      </span></span><span class="BNeawe s3v9rd AP7Wnd"> / </span><span><span class="BNeawe s3v9rd AP7Wnd">(.+)</span></span> $+ $&
      </div><div class="Q0HXG"></div><div><div><div><div class="kCrYT"><div><div><div><div class="BNeawe iBp4i AP7Wnd"><div> $+ $&
      <div class="BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd"><div> $+ $&
      <div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/i
    if $regex(%saat,%reg) { msg %saatchan $regml(1) $regml(2) $regml(3) $regml(4) }
  }
  if %trsaat {
    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.
color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ZaLiM1979 13 Ocak 2024 17:22
Cevap: Dünya saat sorgulama socket
 
Alıntı:
Forbidden Nickli Üyeden Alıntı (Mesaj 1042858570)
Kod istek üzerine değiştirilmiş ve güncellenmiştir.
Kod hem ingilizce hem türkçe ülke isimleri yazılarak dünya saatine bakılabilir hale getirilmiştir.

Kodun işleyişi şu şekildedir;

Saat: komutu Türkçe
Time: komutu İngilizce

Örnek komutlar;

!Saat Türkiye
!Time Turkey
!Saat Brezilya
!Time Brazil
!time Mexico
!saat Meksika

Yardımları için @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] jeun ustaya teşekkür ederim.

Kod;
Kod:
on $*:text:/^[.!](saat|time) (.+)$/i:#: {
  unset %trsaat %engsaat
  $iif($regml(1) == saat,set %trsaat OK,set %engsaat OK)
  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: {
  if %engsaat {
    $m GET /search?q=google+time+ $+ %saatnere HTTP/1.1
  }
  if %trsaat {
    $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
  if %engsaat {
    var %reg = /div class="kCrYT"><span><span class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)</span> $+ $&
      </span></span><span class="BNeawe s3v9rd AP7Wnd"> / </span><span><span class="BNeawe s3v9rd AP7Wnd">(.+)</span></span> $+ $&
      </div><div class="Q0HXG"></div><div><div><div><div class="kCrYT"><div><div><div><div class="BNeawe iBp4i AP7Wnd"><div> $+ $&
      <div class="BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd"><div> $+ $&
      <div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/i
    if $regex(%saat,%reg) { msg %saatchan $regml(1) $regml(2) $regml(3) $regml(4) }
  }
  if %trsaat {
    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.
color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

* /set: invalid parameters (line 3, DunyaSaat.mrc)
bu hatayi verdi status penceresinden..

manikdepresif 13 Ocak 2024 18:36
Cevap: Dünya saat sorgulama socket
 
ilk 3 satiri yapistirirsan yardimci olurum

ZaLiM1979 13 Ocak 2024 18:38
Cevap: Dünya saat sorgulama socket
 
Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042858683)
ilk 3 satiri yapistirirsan yardimci olurum

Kod:
on $*:text:/^[.!](saat|time) (.+)$/i:#: {
  unset %trsaat %engsaat
  $iif($regml(1) == saat,set %trsaat OK,set %engsaat OK)

buyur..

manikdepresif 13 Ocak 2024 18:43
Cevap: Dünya saat sorgulama socket
 
burada hata gerektirecek bir neden goremiyorum.
belki sen onceki kodlar falan duruyordur onlardan yuklemissindir 2 tane farkli script vardir ondan alabiliyordur hatayi.

ZaLiM1979 13 Ocak 2024 18:45
Cevap: Dünya saat sorgulama socket
 
Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042858690)
burada hata gerektirecek bir neden goremiyorum.
belki sen onceki kodlar falan duruyordur onlardan yuklemissindir 2 tane farkli script vardir ondan alabiliyordur hatayi.



önceki kodu /* ve */ arasina ekledim, yani etkisiz hale getirdim.

manikdepresif 13 Ocak 2024 18:50
Cevap: Dünya saat sorgulama socket
 
dunya.mrc dosyasinin icinde ne var ne yok komple yapistir goreyim

ZaLiM1979 13 Ocak 2024 19:18
Cevap: Dünya saat sorgulama socket
 
Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042858698)
dunya.mrc dosyasinin icinde ne var ne yok komple yapistir goreyim

DunyaSaat.mrc icinde olan hersey bu.. alt kisim /* ve */ arasina eklemisim ki aktiv olmasin.


Kod:
on $*:text:/^[.!](saat|time) (.+)$/i:#: {
  unset %trsaat %engsaat
  $iif($regml(1) == saat,set %trsaat OK,set %engsaat OK)
  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: {
  if %engsaat {
    $m GET /search?q=google+time+ $+ %saatnere HTTP/1.1
  }
  if %trsaat {
    $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
  if %engsaat {
    var %reg = /div class="kCrYT"><span><span class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)</span> $+ $&
    </span></span><span class="BNeawe s3v9rd AP7Wnd"> / </span><span><span class="BNeawe s3v9rd AP7Wnd">(.+)</span></span> $+ $&
    </div><div class="Q0HXG"></div><div><div><div><div class="kCrYT"><div><div><div><div class="BNeawe iBp4i AP7Wnd"><div> $+ $&
    <div class="BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd"><div> $+ $&
    <div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/i
    if $regex(%saat,%reg) { msg %saatchan $regml(1) $regml(2) $regml(3) $regml(4) }
  }
  if %trsaat {
    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.
color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
on $*:text:/^[.!](saat|time) (.+)$/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  %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+time+ $+ %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 %reg = /div class="kCrYT"><span><span class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)</span></span></span><span class="BNeawe s3v9rd AP7Wnd"> / </span><span><span class="BNeawe s3v9rd AP7Wnd">(.+)</span></span></div><div class="Q0HXG"></div><div><div><div><div class="kCrYT"><div><div><div><div class="BNeawe iBp4i AP7Wnd"><div><div class="BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd"><div><div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/i
  if $regex(%saat,%reg) { msg %saatchan $regml(1) $regml(2) $regml(3) $regml(4) }
}
alias -l m return sockwrite -n $sockname
alias -l sit return  [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
*/

manikdepresif 13 Ocak 2024 19:31
Cevap: Dünya saat sorgulama socket
 
kodda hata yok kardesim, herhangi bir sikintisi yok eskiden almis oldugun bir hatadir sanirim.

ZaLiM1979 13 Ocak 2024 19:46
Cevap: Dünya saat sorgulama socket
 
Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042858709)
kodda hata yok kardesim, herhangi bir sikintisi yok eskiden almis oldugun bir hatadir sanirim.

* /set: invalid parameters (line 3, DunyaSaat.mrc)
-
* /set: invalid parameters (line 3, DunyaSaat.mrc)


Yok yeni aldigim bir hata mahlesef..
Kulandigim mirc versionu 7.76

Forbidden 13 Ocak 2024 20:06
Cevap: Dünya saat sorgulama socket
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod da bir hata yok. Gayet saglıklı çalışıyor farklı bir mirce yükle öyle dene. Kodun güncel hali bu.

Kod:
on $*:text:/^[.!](saat|time) (.+)$/i:#: {
  unset %trsaat %engsaat
  $iif($regml(1) == saat,set %trsaat OK,set %engsaat OK)
  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: {
  if %engsaat {
    $m GET /search?q=google+time+ $+ %saatnere HTTP/1.1
  }
  if %trsaat {
    $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
  if %engsaat {
    var %reg = /div class="kCrYT"><span><span class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)</span> $+ $&
      </span></span><span class="BNeawe s3v9rd AP7Wnd"> / </span><span><span class="BNeawe s3v9rd AP7Wnd">(.+)</span></span> $+ $&
      </div><div class="Q0HXG"></div><div><div><div><div class="kCrYT"><div><div><div><div class="BNeawe iBp4i AP7Wnd"><div> $+ $&
      <div class="BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd"><div> $+ $&
      <div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/i
    if $regex(%saat,%reg) { msg %saatchan $regml(1) $regml(2) $regml(3) $regml(4) }
  }
  if %trsaat {
    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.
color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ZaLiM1979 14 Ocak 2024 14:02
Cevap: Dünya saat sorgulama socket
 
Alıntı:
Forbidden Nickli Üyeden Alıntı (Mesaj 1042858731)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod da bir hata yok. Gayet saglıklı çalışıyor farklı bir mirce yükle öyle dene. Kodun güncel hali bu.

Kod:
on $*:text:/^[.!](saat|time) (.+)$/i:#: {
  unset %trsaat %engsaat
  $iif($regml(1) == saat,set %trsaat OK,set %engsaat OK)
  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: {
  if %engsaat {
    $m GET /search?q=google+time+ $+ %saatnere HTTP/1.1
  }
  if %trsaat {
    $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
  if %engsaat {
    var %reg = /div class="kCrYT"><span><span class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)</span> $+ $&
      </span></span><span class="BNeawe s3v9rd AP7Wnd"> / </span><span><span class="BNeawe s3v9rd AP7Wnd">(.+)</span></span> $+ $&
      </div><div class="Q0HXG"></div><div><div><div><div class="kCrYT"><div><div><div><div class="BNeawe iBp4i AP7Wnd"><div> $+ $&
      <div class="BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd"><div> $+ $&
      <div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/i
    if $regex(%saat,%reg) { msg %saatchan $regml(1) $regml(2) $regml(3) $regml(4) }
  }
  if %trsaat {
    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.
color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bunu bos bir mirc (version 7.76) hic bir addon yüklü olmadan yükledim ve denedim..
sonuc..


Kod:
[14:01:2024|11:57:07] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !saat Türkiye
[14:01:2024|11:58:04] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !Saat Türkiye
[14:01:2024|12:01:02] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !time Brazil
[14:01:2024|12:01:13] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !Time Brazil
[14:01:2024|12:01:36] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !saat Bingöl
[14:01:2024|12:01:44] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !Saat Bingöl
[14:01:2024|12:01:55] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !time France
 [14:01:2024|12:02:04] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !Time France





Kod:
* /set: invalid parameters (line 3, Dunya.mrc)
-
* /set: invalid parameters (line 3, Dunya.mrc)
-
* /set: invalid parameters (line 3, Dunya.mrc)
-
* /set: invalid parameters (line 3, Dunya.mrc)
-
* /set: invalid parameters (line 3, Dunya.mrc)
-
* /set: invalid parameters (line 3, Dunya.mrc)
-
* /set: invalid parameters (line 3, Dunya.mrc)
-
* /set: invalid parameters (line 3, Dunya.mrc)
-





Mahlesef calismiyor.

manikdepresif 14 Ocak 2024 14:22
Cevap: Dünya saat sorgulama socket
 
Kod:
$iif($regml(1) == saat,set %trsaat OK,set %engsaat OK)
bu yukardaki kismi silip, asagidaki kodu sildigin satira ekleyip dener misin. (3. satir)
-
Kod:
if ($regml(1) == saat) { set %trsaat OK } | else { set %engsaat OK  }

ZaLiM1979 14 Ocak 2024 14:31
Cevap: Dünya saat sorgulama socket
 
Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042859035)
Kod:
$iif($regml(1) == saat,set %trsaat OK,set %engsaat OK)
bu yukardaki kismi silip, asagidaki kodu sildigin satira ekleyip dener misin. (3. satir)
-
Kod:
if ($regml(1) == saat) { set %trsaat OK } | else { set %engsaat OK  }

Sagolasin, simdi oluyor ama sanirim Türkce karakter sorunu var.
!saat Isvec ve !saat Isvicre yaparken calismadi ve hata'da vermedi.



Kod:
[14:01:2024|12:27:30] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !time France
[14:01:2024|12:27:31] <TesT> Fransa Yerel Saat 12:27 14 Ocak 2024 Pazar
[14:01:2024|12:27:48] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !saat Türkiye
[14:01:2024|12:27:48] <TesT> Türkiye [Saat] 14:27 [Tarih] 14 Ocak 2024 Pazar
[14:01:2024|12:28:08] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !time Sweden
[14:01:2024|12:28:09] <TesT> Ýsveç Yerel Saat 12:28 14 Ocak 2024 Pazar
[14:01:2024|12:28:25] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !saat Isvec
[14:01:2024|12:28:58] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !saat Isvec
[14:01:2024|12:29:14] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !saat Isvicre
[14:01:2024|12:29:29] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !time Switzerland
[14:01:2024|12:29:30] <TesT> Ýsviçre Yerel Saat 12:29 14 Ocak 2024 Pazar

manikdepresif 14 Ocak 2024 14:52
Cevap: Dünya saat sorgulama socket
 
!saat İsviçre olarak yazarsan calisir.

ZaLiM1979 14 Ocak 2024 15:01
Cevap: Dünya saat sorgulama socket
 
Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042859039)
!saat İsviçre olarak yazarsan calisir.
Mahlesef calismiyor, saglik olsun, bukadarida iyi.


Kod:
[14:01:2024|12:57:54] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !saat İsviçre
[14:01:2024|12:58:27] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !saat Isviçre
[14:01:2024|12:58:49] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !saat İsviçre
[14:01:2024|12:59:19] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !saat İsviçre
[14:01:2024|12:59:44] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-KerL> !saat ısviçre

manikdepresif 14 Ocak 2024 15:11
Cevap: Dünya saat sorgulama socket
 
!time country olarak kullanabilirsin. Senin icin o ozelligi ayarladim.

ZaLiM1979 14 Ocak 2024 15:19
Cevap: Dünya saat sorgulama socket
 
Alıntı:
manikdepresif Nickli Üyeden Alıntı (Mesaj 1042859044)
!time country olarak kullanabilirsin. Senin icin o ozelligi ayarladim.
Tamam, eyvallah

ByaSiL 05 Nisan 2025 14:51
Cevap: Dünya saat sorgulama socket
 
Bu remotede aşağıdaki hatayı alıyorum neden olabilir.

[14:48] ON Unknown command


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:06.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk