PicDownload (Resim İndiricisi)

Bu kod ile web'den aynı anda birden fazla resim 

dosyasını belirttiğiniz klasöre indirebilirsiniz.

İndirilen resimlerin adı belirttiğiniz adresdeki resmin

adı ile klasöre kaydedilir.

Kullanımı:

/picdown <download adı> <resmin adresi> <resmin kaydedileceği klasör>

Örnek:

/picdown mircarge http://www.mircclub.org/resim/banner.PNG c:\images\


Resmin indirilmesinin tamamlandığını anlamak için:

on *:signal:picdown_complete:

event'ından yararlanacağız.

Örnek:

on *:signal:picdown_complete: echo -a $1-

Verilecek yanıt: Download tamamlandı!: <download adı> <resmin kaydedildiği klasör\resmin adı>
===================================================================================
*/
alias gfil return $gettok($1,-1,46)
alias picdown {
  if (!$1) echo -a Download'ın adı girilmedi.
  elseif (!$2) echo -a İndirilecek resim dosyasının adresi girilmedi.
  elseif (!$gfil == png) || (!$gfil == bmp) || (!$gfil == gif) || (!$gfil == jpg) echo -a İndirilecek resim dosyasının uzantısı *.bmp,*.jpg,*.gif yada *.png olmalıdır.
  elseif (!$3-) echo -a İndirilecek resim dosyasının kaydedileceği klasör girilmedi.
  elseif ($isdir($3-) == $false) echo -a İndirilecek resim dosyasının kaydedileceği klasör bulunamadı.Hiç oluşturulmamış,silinmiş yada ismi değiştirilmiş olabilir.
  elseif (!$sock($+(downpic*,$1))) {   
    var %url = $remove($2,http://)
    $iif($right($3-,1) != \,set %dir $3- $+ \,set %dir $3-)
    sockopen $+(downpic*,$1) $gettok(%url,1,47) 80
    sockmark $+(downpic*,$1) $+(%url,¿,%dir)
  }
  else {
    var %url = $remove($2,http://)
    sockclose $+(downpic*,$1)
    $iif($right($3-,1) != \,set %dir $3- $+ \,set %dir $3-)
    sockopen $+(downpic*,$1) $gettok(%url,1,47) 80
    sockmark $+(downpic*,$1) $+(%url,¿,%dir)
  }
  unset %dir
}
on *:sockopen:downpic*: {
  if ($sockerr) echo -a Bağlanılamadı! $+ ( $+ $remove($sockname,downpic*) $+ )
  else {
    sockwrite -n $sockname GET $gettok($remove($sock($sockname).mark,$gettok($sock($sockname).mark,1,47)),1,191) HTTP/1.0
    sockwrite -n $sockname Host: $gettok($sock($sockname).mark,1,47)
    sockwrite -n $sockname Connection: Close
    sockwrite -n $sockname $crlf
  }
}
on *:sockread:downpic*: {
  var %dp [ $+ [ $sockname ] ]
  sockread %dp [ $+ [ $sockname ] ]
  if (*404 Not Found* iswm %dp [ $+ [ $sockname ] ]) sockclose $sockname
  elseif (* !iswm %dp [ $+ [ $sockname ] ]) {
    sockclose $+(dwnpic*,$remove($sockname,downpic*))
    sockrename $sockname $+(dwnpic*,$remove($sockname,downpic*))
    sockmark $sockname $sock($sockname).mark
    write -c $qt($gettok($sock($sockname).mark,2,191) $+ $gettok($gettok($sock($sockname).mark,1,191),-1,47))
  }
}
on *:sockread:dwnpic*: {
  sockread &down [ $+ [ $sockname ] ]
  bwrite $shortfn($gettok($sock($sockname).mark,2,191) $+ $gettok($gettok($sock($sockname).mark,1,191),-1,47)) -1 -1 &down [ $+ [ $sockname ] ]
}
on *:sockclose:dwnpic*: .signal -n PicDown_Complete Download tamamlandı!: $remove($sockname,dwnpic*) $gettok($sock($sockname).mark,2,191) $+ $gettok($gettok($sock($sockname).mark,1,191),-1,47)