on *:load:{
  set %mp3inmeyeri $mircdirmp3
  set %sesayarı 100
  echo -a 12*** 4Music downloader v0.2 12başarıyla yüklendi.
  echo -a 12*** Music downloader'ı açmak için: 4/mp3down 12yazmanız veya  popups menüsünden 4Music Downloader 12bölümü altından 4Downloader'a  12tıklamanız gerekmektedir.
  echo -a 12*** Music Player'ı açmak için ise: 4/musicplay 12yazmanız  veya popups menüsünden 4Music Downloader 12bölümü altından 4Player'a  12tıklamanız gerekmektedir.
  echo -a 12*** 4Music downloader v0.2 $lines($script) 12satırdan oluşmuştur.
  echo -a 12---
  echo -a 12*** Music downloader by 4Paint
}

alias mp3skull {
  .remove mp3skullc.txt
  unset %ssss
  if $isfile(linkler.txt) { .remove linkler.txt }
  if $isfile(kbps.txt) { .remove kbps.txt }
  set %linktl $linkyarat($1-)
  sockclose mp3skull
  sockopen mp3skull mp3skull.com 80
}

on *:sockopen:mp3skull:{
  if $sockerr { echo -a Bağlantı hatası. | halt | sockclose * | .timer 1 2 did -ra mp3sk 3 Bağlantı hatası. }
  var %s = sockwrite -n $sockname
  %s GET /mp3/ $+ %linktl $+ .html HTTP/1.1
  %s Host: mp3skull.com
  %s $crlf
}
on *:sockread:mp3skull:{

  sockread 8192 &r
  bwrite mp3skullc.txt -1 -1 &r

}
on *:sockclose:mp3skull:{
  did -r mp3sk 3
  okuyombenya
  if !$okuttumbenya {  did -a mp3sk 3 Arşivde böyle bir içerik yok. }
  var %b 1
  while %b <= $okuttumbenya {
    did -a mp3sk 3 $mp3skulltr($htmlfree($read(mp3skullc.txt,$calc($okuttumbenya(%b) + 5))))
    inc %b
  }
}


alias mp3skulltr return $replacecs($1-,ı,ı,ğ,ğ,ş,şe,þ,ş,ö,ö,ý,ı,Ç,Ç,ü,ü,ý,ı,Ý,İ,&amp;,&,Ö,Ö,ö,ö,Ş,ş)

alias linkyarat { return $Replace($removecs($1-,ı,ğ,ü,ş,ö,ç,Ğ,Ü,Ş,İ,Ç),$chr(32),_) }

alias okuyombenya {
  if $hget(show) { hfree show }
  unset %show
  var %b 1
  while %b <= 100 {
    if $read(mp3skullc.txt,w,*show $+ %b $+ *) { inc %show 1 | hadd -m show %show $readn }
    inc %b
  }
}
alias okuttumbenya { if !$1 {    return %show  } | else { return $hget(show,$1) } }

dialog mp3sk {
  title "Music Downloader v0.2"
  size -1 -1 320 220
  option dbu
  edit "", 1, 72 18 196 10, autohs
  button "Ara", 2, 273 18 37 10, default
  list 3, 6 44 225 120, size hsbar
  edit "", 5, 236 60 76 10, read
  text "Şarkıcı ve şarkı adı girin:", 4, 9 18 62 10
  link "Sadece şarkıcı veya sadece şarkı adı girebilirsiniz.", 6, 9 32 131 8
  text "Bilgiler", 7, 259 44 25 8
  edit "", 8, 236 72 76 10, read
  edit "", 9, 236 84 76 10, read
  button "İndir", 10, 254 107 37 12
  text "Ayarlar", 11, 259 126 25 8
  edit "Kayıt yeri:", 12, 236 136 32 10, read autohs
  edit "İndirme bitince çal:", 13, 236 151 55 10, read
  edit "", 14, 267 136 41 10, read
  check "", 15, 294 151 8 10
  button "...", 16, 309 136 8 10
  edit "", 17, 60 176 207 10, read
  text "Durum:", 18, 29 176 25 10
  box "İndirme bölümü", 19, 5 166 311 40
  edit "Alınan veri:", 20, 29 191 60 10, read
  edit "Geçen süre:", 21, 100 191 54 10, read autohs
  edit "Yüzde:", 22, 162 191 50 10, read
  edit "", 23, 217 191 50 10, read
  button "Kapat", 24, 145 207 30 12, cancel
  button "İptal", 25, 273 183 37 12
  text "by Paint", 26, 297 1 26 8
}
on *:Dialog:mp3sk:init:*:{

  if %indirmebittinceoo { did -c $dname 15 } | else { did -u $dname 15 }
  if $sock(download*) {   .timerindiriyor1 0 1 dialogahele }
  did -ra $dname 14 %mp3inmeyeri
}
on *:dialog:mp3sk:sclick:15:{
  if ($did(15).state == 1) { set %indirmebittinceoo ok | echo -a ***  İndirme bitince çal aktif. } | else {  unset %indirmebittinceoo | echo  -a *** İndirme bitince çal kapalı. } 

}
on *:dialog:mp3sk:sclick:25,16:{
  if $did == 25 {
    if $sock(download*) || $sock(hulk3) {
    sockclose download*  | sockclose hulk3 | echo -a *** İndirme iptal edildi. }
    else { echo -a *** İndirme yok. }
  }
  if $did == 16 { 
    unset %mp3inmeyeri
    .set %mp3inmeyeri $sdir(*,Müziklerin ineceği klasörü seçin)
    $iif(!$isdir(%mp3inmeyeri),set %mp3inmeyeri $mircdirmp3)
    did -ra $dname 14 %mp3inmeyeri
  }
}
on *:dialog:mp3sk:sclick:6:{
  echo -a %mp3linki açılıyor.
  .timer 1 1 run %mp3linki

}
on *:dialog:mp3sk:sclick:2:{
  did -ra mp3sk 3 Arama yapılıyor...
  mp3skull $did(1)
}
on *:Dialog:mp3sk:close:{
  timerindiriyor1 off
  if $sock(download*) { echo -a *** İndirme işlemi devam ediyor... }
}
on *:dialog:mp3sk:sclick:10:{
  if $download(0) == 1 { echo -a Zaten bir şarkı iniyor, lütfen bekleyin... | halt }
  unset %hulkget | unset %hulkhost
  set %hulkboyut $remove(%hul1kboyut1,mb)
  set %file MusicDown $+ $rand(1,9) $+ $rand(9,18) $+ $rand(998,1300) $+ $rand(1,1399) $+ .mp3
  download -o mp3sk %mp3linki %mp3inmeyeri
  .timerindiriyor1 0 1 dialogahele
}

alias dialogahele { 
  if $download(1).status == Downloading && $dialog(mp3sk) { 
    .did -ra mp3sk 21 Geçen süre: $replace($duration($download(1).secs),min,dk,secs,sn,mins,dk)
    .did -ra  mp3sk 23 $download(1).status
    .did -ra mp3sk 20 Alınan veri: $bytes($download(1).rcvd,m) mb
    .did -ra mp3sk 22 Yüzde: $left($calc($download(1).rcvd * (100 / $download(1).size)),4)
    did -ra mp3sk 17 $str(|,$left($calc($download(1).rcvd * (100 / $download(1).size)),2))

  }

  else {
    if $sock(hulk3) && $dialog(mp3sk) {
      .did -ra mp3sk 21 Geçen süre: $replace($duration($hulk3().süre),min,dk,secs,sn,mins,dk)
      .did -ra  mp3sk 23 Downloading
      .did -ra mp3sk 20 Alınan veri: $bytes($hulk3().boyut,m) mb
      .did -ra mp3sk 22 Yüzde: $left($calc($hulk3().boyut * (100 / $calc(1048576 * %hulkboyut))),4)
      .did -ra mp3sk 17 $str(|,$left($calc($hulk3().boyut * (100 / $calc(1048576 * %hulkboyut))),2))

      halt
    }
    if $dialog(mp3sk) {
      did -ra mp3sk 20 Alınan veri: | did -ra mp3sk 21 Geçen süre: | did -ra mp3sk 22 Yüzde: | did -r mp3sk 23 | did -r mp3sk 17

} } }
on *:SIGNAL:download_complete:{ 
  echo -a $1-
  if hulk !isin $1- {
    echo -a * Tamamlandı: $download($1).file
    $iif(%indirmebittinceoo,.timer 1 0 splay -p $download($1).file $(|) musicplay)
  }
else { $iif(%indirmebittinceoo,.timer 1 0 splay -p $2- $(|) musicplay) } }

on *:dialog:mp3sk:sclick:3:{
  bilgiyukletpanpa $did(3).sel
echo -a $mp3skulltr($did(3).seltext) }

alias bilgiyukletpanpa {
  if $okuttumbenya {
    if $okuttumbenya($1) {
      set %bilgiciosman $replace($read(mp3skullc.txt,$calc($okuttumbenya($1) +3)),<br />,½)
      did -ra mp3sk 5 Süre: $remove($gettok(%bilgiciosman,2,$asc(½)),</div>)
      did -ra mp3sk 8 Kalite: $remove($gettok(%bilgiciosman,1,$asc(½)),$chr(9),</div>)
      did -ra mp3sk 9 Boyut:  $remove($gettok(%bilgiciosman,3,$asc(½)),</div>) | set  %hul1kboyut1 $remove($gettok(%bilgiciosman,3,$asc(½)),</div>)
      set %mp3linki $remove($gettok($read(mp3skullc.txt,$calc($okuttumbenya($1) +9)),3-4,$asc(")),><a href=")
      set %mp3linki $replace(%mp3linki,$chr(32),%20)
      did -ra mp3sk 6 %mp3linki
    }
  }
}

alias mp3down {   $iif(!$dialog(mp3sk),dialog -m mp3sk mp3sk,echo -a *** Music downlader aktif.)  }


dialog musicdwply {
  title "Basic Music Player v0.1"
  size -1 -1 250 72
  option dbu
  edit "Çalan parça:", 1, 7 4 236 12, read
  scroll "", 2, 7 20 238 8, horizontal range 100
  button "Durdur", 3, 101 35 37 12
  box "Ses", 4, 141 31 108 41
  scroll "", 5, 146 43 100 8, horizontal range 100
  text "Ses", 6, 181 58 25 8
  edit "Süre:", 7, 5 40 50 10, read
  edit "Boyut:", 8, 56 40 40 10, read
  edit "Tarz:", 9, 5 53 50 10, read
  box "Bilgiler", 10, 1 31 98 41
  edit "Kalite:", 11, 56 53 40 10, read
  button "Şarkı seç", 12, 101 53 37 12
}
on *:Dialog:musicdwply:sclick:12:{ unset %mp3yeri | splay stop | set  %mp3yeri $sfile(*.mp3,Müzik seçin) | $iif(%mp3yeri,splay -p  %mp3yeri,echo -a *** Dosya seçmediniz.) }
on *:Dialog:musicdwply:sclick:3:{
  if $insong {
    if !$insong.pause {
    splay pause | did -ra $dname 3 Devam | halt    }
    if $insong.pause {  
    splay resume | did -ra $dname 3 Durdur }

  }

}
on *:dialog:musicdwply:close:{ timermp3* off }
on *:dialog:musicdwply:init:*:{
  mp3debirseyler
  .timermp3ply 0 1 mp3debirseyler
  did -ra musicdwply 6 Ses: %sesayarı
  did -c musicdwply 5 %sesayarı
}

alias mp3debirseyler {
  if $inmp3 == $true && $dialog(musicdwply) {
    did -ra musicdwply 7 Süre: $time($calc($insong.pos / 1000),nn:ss))  
    heleilerlet
    did -ra musicdwply 1 Çalan parça: $nopath($insong.fname)
    did -ra musicdwply 8 Boyut: $bytes($file($shortfn($insong.fname)).size,m).suf
    did -ra musicdwply 9 Tarz: $sound($insong.fname).genre
    did -ra musicdwply 11 Kalite: $sound($insong.fname).bitrate kb/s 
  } 
}


alias heleilerlet pos.seek
alias -l pos.seek { 
  if ($dialog(musicdwply) != $null) && ($inmp3 == $true) { 
    set %muzikinyeri $insong.fname
    did -c musicdwply 2 $round($calc($calc($insong.pos / $insong.length) * 100),0) 
  } 
  elseif ($dialog(musicdwply) == $null) { 
    .timer.pos.seek off 
  } 
} 
on *:dialog:musicdwply:scroll:5: { 
  did -ra musicdwply 6 Ses: $did(musicdwply,5).sel
  set %sesayarı $did(musicdwply,5).sel

  ;echo -a $calc(($vol(song) / 65535) * 100)
  vol -v $calc((65535 / 100) * $did(musicdwply,5).sel)


}
on *:dialog:musicdwply:scroll:2: { 

  if ($inmp3 == $true) {     $iif($insong.pause,.timer 1 0 splay resume $(|) did -ra $dname 3 Durdur)
    var %t = $round($calc($did(musicdwply,2).sel / 22000 * $inmp3.length),0) 
    .splay seek $calc((%t + $did(musicdwply,2).sel) * 200) 
  } 
  else { splay -p %muzikinyeri
    splay resume

    var %t = $round($calc($did(musicdwply,2).sel / 22000 * $inmp3.length),0) 
    .splay seek $calc((%t + $did(musicdwply,2).sel) * 200) 

}  } 

alias benimicinla {
  .timertitle1 -h 1 200 did -a mp3sk 26 by P
  .timertitle2 -h 1 400 did -a mp3sk 26 by Pa
  .timertitle3 -h 1 600 did -a mp3sk 26 by Pai
  .timertitle4 -h 1 800 did -a mp3sk 26 by Pain
  .timertitle5 -h 1 850 did -a mp3sk 26 by Paint
  .timertitle5 -h 1 850 did -a mp3sk 26 by Paint

}
alias musicplay { $iif(!$dialog(musicdwply),dialog -m musicdwply musicdwply,echo -a *** Müzik çalar aktif.) }
alias musicdwply { dialog -m musicdwply musicdwply }
;    Örnek:        on *:SIGNAL:download_fail:echo -s * Geçersiz download: $download($1).file - $2-
on *:SIGNAL:download_fail:echo -a * Geçersiz download: $download($1).file - $2-



; HTTP Downloader v1.2 by ^BeAsT^
;===============================
; /download komutu:
;    /download komutu dosya indirme olayını başlatan komutdur.
;    Not: URL'den indirilen dosya, indirileceği klasöre URL'deki adı ile indirilir.
;    Kullanımı:        /download [-o] <isim> <url> <klasör>
;    Örnek:        /download mIRC http://www.mirc.co.za/download/mirc603.exe C:\mIRC\Download\
;
;    -o parametresi İndirilecek dosyanın adı ile indirilecek klasörde  aynı isimde bir dosya daha varsa, onun üzerine yazar(indirir/kaydeder).
;    Not: Bir download'ı(indirmeyi) sonlandırmak/iptal etmek istiyorsanız: /close -d <isim> komutunu kullanabilirsiniz.
;
; $download(<name/N>) tanımlayıcısı:
;    Bu tanımlayıcı ile download'lar(indirmeler) hakkında bilgiler alabilirsiniz.
;               Özellikler: ip, status, url, file, type, size, rcvd, cps, pc, secs
;    $download(0)    Toplam indirilme sayısını verir.
;    $download(1)    1. download'ın adını verir.
;    $download(2).file    2. download olayında indirilen dosyanın adını verir.
;    $download(2).rcvd    2.download olayında alınan byte değerini verir.
;
; Events(Olaylar):
;    Download olayı başarılı bir şekilde tamamlandığında bu event'ı kullanacaksınız.
;    Kullanımı:        on *:SIGNAL:download_complete:<komut>
;    Örnek:        on *:SIGNAL:download_complete:echo -s * Tamamlandı: $download($1).file
;
;    Download geçersiz olduğunda kullanacağınız event:
;    Kullanımı:        on *:SIGNAL:download_fail:<komut>
;    Örnek:        on *:SIGNAL:download_fail:echo -s * Geçersiz download: $download($1).file - $2-


alias download {

  if (!$isid) {
    var %4 = $iif($1 == -o,$true)
    if (%4) { tokenize 32 $2- }
    var %1 = download $+ $1,%2 = $longfn($3-)
    if (!$3) { var %3 = insufficient parameters }
    elseif ($sock(%1)) { var %3 = $+(',$1,') name in use }
    elseif (!$isdir(%2)) { var %3 = no such dir $+(',%2,') }
    if (%3) { if ($show) { echo $color(info) -se * /download: %3 } | return }
    unset % [ $+ [ %1 $+ .* ] ]
    set % [ $+ [ %1 $+ .file ] ] $+(%2,$iif($right(%2,1) != $chr(92),$chr(92)),$gettok($2,-1,47))
    set % [ $+ [ %1 $+ .url ] ] http:// $+ $remove($2,http://))
    set % [ $+ [ %1 $+ .ctime ] ] $ctime 0
    set % [ $+ [ %1 $+ .status ] ] Connecting
    if (%4) { .remove $+(",$dl.var(%1,file),") }
    sockopen %1 $gettok($remove($2,http://),1,47) 80
  }
  else {
    if ($1 == 0) { return $sock(download*,0) }
    if ($iif($1 isnum,$sock(download*,$1),$sock(download $+ $1))) {
      var %1 = $ifmatch,%2 = $dl.var(%1,file),%3 = $dl.var(%1,size),%4 = $file($shortfn(%mp3inmeyeri) $+ %file).size
      if (!$prop) { return $right(%1,-8) }
      elseif ($prop == ip) { return $sock(%1).ip }
      elseif ($prop == status) { return $dl.var(%1,status) }
      elseif ($prop == url) { return $dl.var(%1,url) }
      elseif ($prop == file) { return %file }
      elseif ($prop == type) { return $dl.var(%1,type) }
      elseif ($prop == size) { return %3 }
      elseif ($prop == rcvd) { return %4 }
      elseif ($prop == cps) { return $int($calc(%4 / ($ctime - $dl.var(%1,ctime,2)))) }
      elseif ($prop == pc) { return $int($calc($file(%2).size * 100 / %3)) }
      elseif ($prop == secs) { return $calc($ctime - $dl.var(%1,ctime,1)) }
    }
  }
}
alias -l dl.var { return $gettok(% [ $+ [ $+($1,.,$2) ] ],$iif(!$3,1-,$3),32) }
alias -l dl.fail { var %1 = $right($1,-8) | .signal -n download_fail %1 $2- | close -d %1 }
alias -l dl.httpcode {
  var %1 = $1 | goto %1
  :%1 | return
}
alias close {
  if ($1 == -d) {
    var %1 = download $+ $2
    if ($sock(%1)) { unset % [ $+ [ %1 $+ .* ] ] | sockclose %1 }
  }
  else { close $1- }
}

on *:sockopen:download*:{

  if ($sockerr) { dl.fail $sockname Unable to Connect | return }
  var %1 = $dl.var($sockname,url),%2 = $dl.var($sockname,file)
  set % [ $+ [ $sockname $+ .status ] ] Requesting File
  if hulkshare isin %hulkhost && hulkdl isin %hulkget {
    var %b sockwrite -n $sockname
    %b GET %hulkget HTTP/1.1
    %b Host: %hulkhost
    %b User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1
    %b Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    %b Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
    %b Accept-Encoding: gzip, deflate
    %b Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
    %b DNT: 1
    %b Connection: close
    %b $crlf    
  halt }
  if hulkshare isin %1 && /dl/ isin %1 {
    var %b sockwrite -n $sockname
    %b GET %1 HTTP/1.1
    %b Host: $gettok($remove(%1,http://),1,47)
    %b User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1
    %b Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    %b Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
    %b Accept-Encoding: gzip, deflate
    %b Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
    %b DNT: 1
    %b Connection: close
    %b $crlf
    halt
  }






  if 4shared isin %1 {
    var %b sockwrite -tn $sockname
    %b GET %1 HTTP/1.1
    %b Host: $gettok($remove(%1,http://),1,47)
    %b User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1
    %b Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    %b Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
    %b Accept-Encoding: gzip, deflate
    %b Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
    %b DNT: 1
    %b Connection: keep-alive
    %b Cookie:  __utmz=210074320.1339266543.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none);  ADMIN_IDv2=""; Login=113228726;  Password=f5276e615df42046b68d86a224422da7; saveLogin=true;  autoLogin=true; premiumLogin=true; ulin=true; WWW_JSESSIONID=""
    %b $crlf
  }
  else {
    sockwrite -tn $sockname GET %1 HTTP/1.1
    sockwrite -tn $sockname Host: $gettok($remove(%1,http://),1,47)
    sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1
    sockwrite -tn $sockname Accept: *.*, */*
    sockwrite -tn $sockname Range: $+(bytes=,$iif($exists(%2),$file(%2).size,0),-)
    sockwrite -tn $sockname Connection: close
    sockwrite -tn $sockname $crlf
  }
}
on *:sockclose:download*:{ if ($dl.var($sockname,status) != done) { dl.fail $sockname Disconnected } }


alias hulkindirtcek { download -o $1- }



on *:sockread:download*:{
  var %data
  sockread %data
  if location isin %data && cdn isin %data {
    set %hulkget / $+ $gettok($gettok(%data,2,32),3-,$asc(/))
    set %hulkhost $gettok($gettok(%data,2,32),2-2,$asc(/))
    sockclose *
    hulk3 %hulkget %hulkhost
    echo -a he çalıştırdım http:// $+ %hulkhost $+ %hulkget
    halt
  }
  if location isin %data && trckr isin %data {
    set %hulkget / $+ $gettok($gettok(%data,2,32),3-,$asc(/))
    set %hulkhost $gettok($gettok(%data,2,32),2-2,$asc(/)) 
    set %sockname $sockname
    sockclose *
    sockopen %sockname %hulkhost 80 
    halt
  }


  if hulk isin %1 { halt }


  if ($dl.var($sockname,status) != downloading) {
    var %1 | sockread %1 | tokenize 32 %1
    if ($1 == HTTP/1.1) { if ($2 != 200 && $2 != 206) { dl.fail $sockname $iif($dl.httpcode($2),$ifmatch,$3-) } }
    elseif ($1 == Content-Range:) { set % [ $+ [ $sockname $+ .size ] ] $gettok($3,-1,47) }
    elseif ($1 == Content-Type:) { set % [ $+ [ $sockname $+ .type ] ] $2- }
    elseif (!$1) {
      set % [ $+ [ $sockname $+ .ctime ] ] $dl.var($sockname,ctime,1) $ctime
      set % [ $+ [ $sockname $+ .status ] ] Downloading
      return
    }
  }
  else {
    var %1 = $shortfn(%mp3inmeyeri) $+ %file

    :sockread
    sockread &1
    if (!$sockbr) { return }
    bwrite %1 -1 -1 &1
    unset % [ $+ [ $sockname $+ .resume ] ]
    if ($file(%1).size < $dl.var($sockname,size)) { goto sockread }
    else {
      var %1 = $right($sockname,-8),%2 = $dl.var($sockname,file)
      set % [ $+ [ $sockname $+ .status ] ] Done
      .signal -n download_complete %1
      close -d %1
    }
  }
}
on *:exit:{ unset %download* | sockclose download* }
on *:unload:{ unset %download* | sockclose download* }



alias hulk3 { 
  if $2 {
    set %hulk3süre $ctime
  sockclose hulk3 | set %hulkhost $2 | set %hulkget $1 | sockopen hulk3  $2 80 | set %hulkkaydı MusicDown $+ $rand(1,9) $+ $rand(9,18) $+  $rand(998,1300) $+ $rand(1,1399) $+ .mp3 | halt }

  if $sock(hulk3) {
    if $prop == süre { return $calc($ctime - %hulk3süre) }
    if $prop == boyut { return $file(%mp3inmeyeri $+ %hulkkaydı).size }
    if $prop == toplamboyut { return %hulkboyut }
  }
}

on *:sockopen:hulk3:{
  echo -a $sockname
  var %b sockwrite -tn $sockname
  %b GET %hulkget HTTP/1.0
  %b Host: %hulkhost
  %b User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1
  %b Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %b Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
  %b Accept-Encoding: gzip, deflate
  %b Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
  %b DNT: 1
  %b Connection: close
  %b $crlf
}
on *:sockread:hulk3:{
  sockread 8192 &r
  .bwrite $shortfn(%mp3inmeyeri) $+ %hulkkaydı -1 -1 &r
  if $bytes($hulk3().boyut,m) >= %hulkboyut { 
    .signal -n download_complete hulk3 $shortfn(%mp3inmeyeri) $+ %hulkkaydı 
  }
}


menu menubar,channel,status,query {
  Music Downloader
  .Downloader:/mp3down
  .Player:/musicplay
}