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/)

- - Dünya saat sorgulama socket (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1025587-dunya-saat-sorgulama-socket.html)

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.

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.

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

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

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 :)

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

Cevap: Dünya saat sorgulama socket

Alıntı:

Forbidden Nickli Üyeden Alıntı (Mesaj 1042858570)

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

Cevap: Dünya saat sorgulama socket

ilk 3 satiri yapistirirsan yardimci olurum

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

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.