Rüya Tabirleri

on *:input:*:{
  if $regex($1-,/^[.!](r[uüÜ]ya|tabir|r[üuÜ]yatabir(i)?|r[uüÜ]yada) (.+)/i) {
    .set -u10 %ruyachan $chan | tabir $2-
  }
}
on $*:Text:/^[.!](r[uüÜ]ya|tabir|r[üuÜ]yatabir(i)?|r[üuÜ]yada) (.+)/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=rüya+tabiri+ $+ %ruyatabiritext $+ &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 htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }
alias -l trcevir {  return $replace($1-,\xfc,ü,\xe7,ç,\u011f,ğ,\u0131,ı,\u015f,ş,\xf6,ö,\xd6,Ö,\xe2,a,\u0130,İ,\x27,',\xdc,Ü,\xc7,Ç,\u011e,Ğ) }
alias -l trkarakter return $replacex($1-,ı,$eval(%C4%B1,0),İ,$eval(%C4%B0,0),ğ,$eval(%C4%9F,0),Ğ,$eval(%C4%9E,0),Ş,$eval(%C5%9E,0),ş,$eval(%C5%9F,0),ö,$eval(%C3%B6,0),Ö,$eval(%C3%96,0),ç,$eval(%C3%A7,0),Ç,$eval(%C3%87,0),ü,$eval(%C3%BC,0),Ü,$eval(%C3%9C,0))