alias googlearama {
  var %rand $rand(0,99999)
  sockopen $+(google,%rand) www.google.com 80 
  sockmark $+(google,%rand) $2-
  if !$hget(google,stat) { echo -a -/- 4 $1 2adresi4 $2- 2kelimesinde4 google 2uzerinde bilgilere bakiliyor bekleyiniz. }
  hadd -m google web $+(http://,$1)
  hadd -m google kelime $2-
}
 
on $*:sockopen:/^google/i: {
  sockwrite -n $sockname GET $+(/search?num=500&q=,$replace($sock($sockname).mark,$chr(32),+),&hl=tr&gbv=2) HTTP/1.1 
  sockwrite -n $sockname Host: www.google.com.tr
  sockwrite -n $sockname $crlf 
}
on $*:sockread:/^google/i: {
  var %2 | sockread %2 | tokenize 32 %2
  if (*ile ilgili hiçbir arama sonucu* iswm %2) {
    echo -a 1Belirtiginiz $sock($sockname).mark kelimesi google aramalarinda bulunmamaktadir.
    sockclose $sockname 
    .hfree -sw googlearama | .hfree -sw google
    return 
  }
  if (href="/url?q isin %2) { _google $sockname %2 }
  if (*Görselle ara* iswm %2) {
    if $hget(googlearama) {
      var %x 1 | while $hget(googlearama,%x).item {
        if $hget(google,web) isin $v1 {
          echo -a 1Sorgulanan Web:4 $hget(google,web)
          echo -a 1Sorgulanan Kelime:4 $hget(google,kelime)
          echo -a 1Google Üzerinde:4 $siralama($hget(googlearama,$hget(googlearama,%x).item))
          echo -a 1Google İndex:4 $hget(googlearama,%x).item
          echo -a
          .hinc -m google bulunan 1
        }
        inc %x
      }
      if $hget(google,bulunan) {
        echo -a 1Google üzerinde ilk4 100 sirada4 $hget(google,web) web adresi4 $hget(google,kelime) kelimesiyle4 $hget(google,bulunan) kere index almistir.
        .hfree -sw googlearama | .hfree -sw google
        sockclose $sockname
        return
      }
    }
    echo -a 1Belirtilen $hget(google,web) adresi $hget(google,kelime) kelimesinde ilk4 100 sitede yer almamaktadir.
    sockclose $sockname
    .hfree -sw googlearama | .hfree -sw google
  }
}
alias _google {
  var %x 1
  while $pos($2-,href="/url?q=http,%x) {
    var %web $token($token($mid($1-,$v1),1,38),4,61)
    if (webcache. !isin %web) { .hinc -m google inc 1 | .hadd -m googlearama %web  $hget(google,inc) | ;echo -a 4 $hget(google,inc) - %web }
    inc %x
  }
}
alias siralama {
  if ($gettok($calc($gettok($1,1,46) / 10),2,46)  / 10),2,46) == $null) { return $gettok($calc($gettok($1,1,46) / 10),1,46) Sayfa $gettok($1,2,46) Sirada | halt }
  return $calc($gettok($calc($1 / 10),1,46) +1) Sayfa $iif(!$gettok($calc($1 / 10),2,46),1,$gettok($calc($1 / 10),2,46)) Sirada
}