IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

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