menu * {
  .Google Sıra Bulucu:if !$dialog(reg) { dialog -m reg reg }
}

dialog reg {
  title "Google Sıra Bulucu"
  size -1 -1 200 234
  option dbu
  edit "", 1, 8 18 174 10, multi autohs
  text "Site", 2, 9 9 25 8
  text "Kelime", 3, 9 31 25 8
  edit "", 4, 8 41 174 11, multi autohs
  text "", 6, 154 60 25 8
  text "Bilgiler ", 7, 7 67 66 8
  edit "", 5, 7 79 187 148, read multi vsbar
  button "Ara", 8, 70 55  40 15 8
}

on *:dialog:reg:sclick:*:{
  if $did(8) { 
    did -r reg 5 
    googlearama $did(reg,1).text $did(reg,4).text  
  }
}
alias googlearama {
  var %rand $rand(0,99999)
  sockopen $+(google,%rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 
  sockmark $+(google,%rand) $2-
  did -i reg 5 1 -/-   $1 " adresi " $2- " kelimesinde google uzerinde bilgilere bakiliyor bekleyiniz.
  hadd -m google web $+(http://,$1)
  hadd -m google kelime $2-
}
on $*:sockopen:/^google/i: {
  sockwrite -n $sockname GET $+(/search?num=100&q=,$replace($sock($sockname).mark,$chr(32),+),&hl=tr&gbv=2) HTTP/1.1 
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf 
}
on $*:sockread:/^google/i: {
  var %2 | sockread %2
  if (*ile ilgili hiçbir arama sonucu* iswm %2) {
    .did -i reg 5 2 Belirtiginiz $sock($sockname).mark  kelimesi  google aramalarinda bulunmamaktadir.
    sockclose $sockname 
    .hfree -sw googlearama
    .hfree -sw google
    return 
  }  
  if (class="r"><a href="/url?q isin %2) {
    _google $sockname %2
  }
  if (Google\u0026#39;da isin %2) {
    if $hget(googlearama) {
      var %x 1
      while $hget(googlearama,%x).item {
        if ($hget(google,web) isin $v1) { 
          .did -i reg 5 3 Sorgulanan web    : $hget(google,web)
          .did -i reg 5 4 Sorgulanan kelime : $hget(google,kelime)
          .did -i reg 5 5 Google uzerinde    : $strip($siralama($hget(googlearama,$v2)))
          .did -i reg 5 6 -/- Google uzerinde ilk 100 sirada $hget(google,kelime) kelimesiyle $hget(googlearama,%x).item  link'iyle index almistir.
          .did -i reg 5 7 -
          hinc -m google bulunan 1
        }
        inc %x
      }
      if $hget(google,bulunan) {
        did -i reg 5 8  Google uzerinde ilk 100 sirada $hget(google,web)  web adresi $hget(google,kelime)  kelimesiyle $hget(google,bulunan)  kere index almistir.
        .hfree -sw googlearama
        .hfree -sw google
        sockclose $sockname
        return
      }
    }
    .did -i reg 5 2 Belirtilen  $hget(google,web)  adresi $hget(google,kelime) kelimesinde ilk  100  sitede yer almamaktadir.
    sockclose $sockname
    .hfree -sw googlearama
    .hfree -sw google
  }
}
alias _google {
  var %x 1
  while $pos($2-,class="r"><a href="/url?q=http:,%x) {
    var %web $token($token($mid($2-,$v1,300),4,61),1,38)
    if (google !isin %web) {
      hinc -m google inc 1
      hadd -m googlearama %web  $hget(google,inc) 
    }
    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
}