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.