Rüya Tabiri

Rüya Tabiri

Kullanım Örnekleri:
.ruyada balık görmek
.ruyada tavşan görmek
.ruyada su içmek
.ruyada uçmak

on *:input:*:{
  if $regex($1-,/^[.!](tabir|r[üuÜ]yatabir(i)?|r[uüÜ]ya(da)?) (.+)/i) {
    .set -u10 %ruyachan $chan | tabir $2-
  }
}
on $*:Text:/^[.!](tabir|r[üuÜ]yatabir(i)?|r[üuÜ]ya(da)?) (.+)/i:#sohbet,#felsefe,#radyo,#mirchelp:{
  if %ruyachan {
    msg # < $+ $nick $+ > Ruya tabiri sorgulamasi yaparken 10 sn beklemelisiniz.
    return
  }
  .set -u10 %ruyachan $chan | tabir $2-
}
alias tabir {
  set -eu10 %ruyatabiritext $replace($1-,$chr(32),+) | write -c ruyatabir.txt | sockclose tabir | sockopen tabir www.google.com 80
}
on *:sockopen:tabir:{
  if $sockerr { .sockclose $sockname | echo -a Socket Hatasi }
  var %ko = sockwrite -n $sockname
  %ko GET /search?q=ruya+tabiri+ $+ $replace(%ruyatabiritext,ö,o,ş,s,ü,u,ç,c,ğ,g,ı,i) $+ &client=opera&hs=PHI HTTP/1.0
  %ko Host: www.google.com
  %ko $crlf
}
on *:sockread:tabir:{ var %ruy | sockread -f %ruy | write -al ruyatabir.txt %ruy }
on *:sockclose:tabir:{
  var %ruypat = /BNeawe s3v9rd AP7Wnd(.+)href/i
  var %m = 1
  while $read(ruyatabir.txt,r,%ruypat,%m) {
    var %m $calc($readn + 1)
    var %xc = $remove($trcevir($regml(1)),\x3c,span, class,\x3d,\x22,FCUp0c,rQMQod,\x22,\x3e,AP7Wnd,s3v9rd,sub,gMUaMb,r0bn4c,\n)
    if $regex(%xc,/(.+)/div/div/div/div/divdiv x54gtf/i) {
      msg %ruyachan $remove($regml(1),div,/,BNeawe,Ap5OSd,\n,\u2192,\u2026)
    }
  }
}
alias -l trcevir {  return $replace($1-,\xfc,ü,\xe7,ç,\u011f,ğ,\u0131,ı,\u015f,ş,\xf6,ö,\xd6,Ö,\xe2,a,\u0130,İ,\x27,',\xdc,Ü,\xc7,Ç,\u011e,Ğ) }

Bir önceki yazımda « Hava Raporu Bülten yazım var.