alias indir {
  if $hget(indirt) {
    .hfree -s indirt
  }
  unset %indir*
  set %sitem $$?"Lütfen Kendi Sitenizi Yazınız ornek: sohbetce.net"
  if %sitem == $null {
    :r
    set %sitem $$?"Lütfen Kendi Sitenizi Yazınız ornek: sohbetce.net"
    if %sitem == $chr(32) {
      goto r
    }
  }
  sockopen indir [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on 1:sockopen:*: {
  if $sockname == indir {
    if $hget(indirt) {
      .hfree -s indirt
    }
    unset %indir*
    sw $sockname GET /index.html HTTP/1.1
    sw $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    sw $sockname $crlf
  }
  elseif indir isin $sockname {
    write -c $shortfn(download/ $+ $nopath($gettok($sockname,1,900)))
    sw $sockname GET / $+ $gettok($gettok($sockname,1,900),2-,47) HTTP/1.1
    sw $sockname Host: $gettok($gettok($sockname,1,900),1,47)
    sw $sockname $crlf
  }
}
alias _sockopen {
  if $sock($1).status != active && $sock($1).status !== connecting {
    sockopen $1-
  }
}
on 1:sockread:*: {
  if $sockname == indir {
    var %r
    sockread %r
    if color="#cccccc" isin %r && <A HREF=" isin %r && .htm isin %r {
      _sockopen [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $remove($gettok($mid(%r,- $pos(%r,htm,1),59),2,34),[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) $+ $chr(900) $+ indir [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
    }
  }
  elseif indir isin $sockname {
    if $hget(indirt,$hash($sockname,32)) != 1 {
      sockread %indir [ $+ [ $hash($sockname,32) ] ]
      if %indir [ $+ [ $hash($sockname,32) ] ] == $null {
        hadd -m indirt $hash($sockname,32) 1
      }
    }
    else {
      sockread 800 &r
      var %i 1 , %lin $numtok($bvar(&r,1,$bvar(&r,0).long).text,10)
      while %i <= %lin {
        var %r = $gettok($bvar(&r,1,$bvar(&r,0).long).text,%i,10)
        if title=" isin %r && <a href=" isin %r {
          _sockopen [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $remove($gettok($mid(%r,- $pos(%r,htm,1),59),2,34),[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) $+ $chr(900) $+ indir [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
        }        
        inc %i
      }
      .bwrite download/ $+ $nopath($gettok($sockname,1,900)) -1 -1 $replace($bvar(&r,1,$bvar(&r,0).long).text,hayta.net,%sitem)
    }
  }
}
on 1:sockclose:*: {
  if $sockname != indir && indir isin $sockname {
    if $sock(*indir,0) == 0 {
      if $hget(indirt) {
        .hfree -s indirt
      }
      unset %indir*
      echo -s Download Tamamlandı.
    }
  }
}  
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}