; Google Zamazingosu
; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
; Alayına CipriX (:
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias -l ue return $regsubex($1-,/\G(.)/g,$iif(($prop && \1 !isalnum) || !$prop,$chr(37) $+ $base($asc(\1),10,16),\1))
alias google {
  if $1 == -a && $2 {
    .set %google.arama $ue($2-)
    .set %google.arama.2 $2-
    .sockclose google-1
    .sockopen google-1 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
    .halt
  }
  if $1 == -i && $2 && [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $2 {
    .set %google.birinci $remove($2,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].)
    sockclose google-3
    sockopen google-3 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
    .halt
  }
  if $1 == -k && $3 && [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $2 {
    .set %google.sitesi $2
    .set %google.kelimesi $ue($3-)
    .set %google.kelimesi.2 $3-
    sockclose google-4
    sockopen google-4 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
    .halt
  }
  else {
    echo -a /google Hata! kullanılabilecek parametreler: -a [kelime] , -i [site] , -k [site] [kelime]
  }
}
alias -l google.goster {
  var %i 1
  while %i <= $numtok($1-,32) {
    if $remove($gettok($1-,%i,32),.) isnum {
      echo -a 3** 4Googlede  $+ %google.arama.2 $+  kelimesinde toplam 1 $+ $gettok($1-,%i,32) 4site bulunmuştur.
      sockclose google-2
      sockopen google-2 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
      .halt
    }
    inc %i
  }
}
alias -l google.goster-2 {
  var %i 1
  while %i <= $numtok($1-,32) {
    if $remove($gettok($1-,%i,32),.) isnum {
      echo -a 3** 4Google  $+ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]. $+ %google.birinci $+  sitesinin 1 $+ $gettok($1-,%i,32) 4sayfasını barındırmaktadır.
      .unset %google*
      .sockclose google*
      .halt
    }
    inc %i
  }
}
on *:sockopen:google-1:{
  sockwrite -n $sockname $eval(GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) $+ %google.arama $+ $eval(&btnG=Google'da+Ara&,HTTP/1.0,0)
  sockwrite -n $sockname
}
on *:sockread:google-1:{
  var %kacsonucvar 
  sockread %kacsonucvar 
  if (*yaklaşık* iswm %kacsonucvar) google.goster $htmlfree($gettok(%kacsonucvar,20-,32))
}
on *:sockopen:google-2:{
  sockwrite -n $sockname $eval(GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) $+ %google.arama $+ $eval(&btnI=Şansımı+Denemek+İstiyorum HTTP/1.0,0)
  sockwrite -n $sockname
}
on *:sockread:google-2:{
  var %sonsite
  sockread %sonsite
  if Location isin %sonsite { 
    echo -a 3** 4Bu sitelerin birincisi 1 $+ $gettok(%sonsite,2,32) 4sitesidir.
    .set %google.birinci $remove($gettok($gettok(%sonsite,2,32),2-,46),/)
    sockclose google-3
    sockopen google-3 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  }
}
on *:sockopen:google-3:{
  sockwrite -n $sockname $eval(GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) $+ site: $+ %google.birinci HTTP/1.0
  sockwrite -n $sockname
}
on *:sockread:google-3:{
  var %kacsonucvar.2
  sockread %kacsonucvar.2
  if (*yaklaşık* iswm %kacsonucvar.2) { google.goster-2 $htmlfree($gettok(%kacsonucvar.2,20-,32)) }
}
on *:sockopen:google-4:{
  sockwrite -n $sockname $eval(GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) $+ %google.kelimesi $+ $eval(&btnG=Google'da+Ara&,HTTP/1.0,0)
  sockwrite -n $sockname
}
on *:sockread:google-4:{
  var %kacsonucvar 
  sockread %kacsonucvar 
  if (* $+ %google.sitesi $+ * iswm %kacsonucvar) {
    .set %google.aldimi Evet
    echo -a 3** 4Google http:// $+ %google.sitesi sitesini  $+ %google.kelimesi.2 kelimesinde 1ilk 104'a ALMIŞ!
    .unset %google*
    .halt
  }
}
on *:sockclose:google-4:{
  if !%google.aldimi {
    echo -a 3** 4Google http:// $+ %google.sitesi sitesini  $+ %google.kelimesi.2 kelimesinde 1ilk 104'a ALMAMIŞ!
  }
  .sockclose google*
  .unset %google.*
  .halt
}