alias mp3_tek {
  var %a = $shortfn($msfile(D:,Mp3 Klasörünü Seçiniz..,Ekle))
  if (%a) {
    var %i = 1
    while (%i <= $msfile(0)) {
      write $text(liste.txt) $msfile(%i)
      inc %i
    }
    did -r T_bar 60
    mp3_liste
  }
}
alias  mp3_klasör {
  window -h @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  loadbuf @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $text(liste.txt)
  var %x = $findfile($shortfn($sdir(D:)),*.mp3,0,aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1-)
  savebuf @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $text(liste.txt)
  window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  did -r T_bar 60
  mp3_liste
}
alias mp3_stop { 
  if ($dialog(T_bar)) {
    .splay stop
    .timermpos_mp3bar off
    .timertrak off
    did -ra T_bar 63 00:00 / 00:00
    did -ra T_bar 61 Çalmıyor..
    did -i T_bar 62 1 params 0
  }
}
alias mp3_pause {
  if ($oku(Mp3) && $insong) {
    if ($oku(Mp3Pause) = pause) {
      splay resume
      Yaz Mp3Pause resume
    }
    elseif ($oku(Mp3Pause) = resume) {
      splay pause
      Yaz Mp3Pause pause
    }
  }
}
alias mp3_geri {
  var %x = $read($text(liste.txt), w, * $+ $oku(Mp3) $+ *)
  if (%x) { 
    var %line = $readn 
    if (%line == 1) { 
      var %line = $lines($text(liste.txt))
      Yaz Mp3 $read($text(liste.txt), %line)
      mp3_çaldır
    }
    else { 
      Yaz Mp3 $read($text(liste.txt),$calc(%line - 1))
      mp3_çaldır
    }
  }
}
alias mp3_ileri {
  var %x = $read($text(liste.txt), w, * $+ $oku(MP3) $+ *)
  var %c = $readn,%lines = $lines($text(liste.txt))
  if (%x) { 
    var %line = $readn 
    if (%line == $lines($text(liste.txt))) { 
      var %line = 1
      Yaz Mp3 $read($text(liste.txt), %line)
      mp3_çaldır
    }
    else { 
      Yaz Mp3 $read($text(liste.txt),$calc(%line + 1))
      mp3_çaldır
    }
  }
}
alias mp3_çaldır {
  if ($oku(MP3)) {
    .splay -p " $+ $shortfn($oku(MP3)) $+ "
    var %read = $read($text(liste.txt),w,$oku(MP3)),%line = $iif($readn = 0,$lines($text(liste.txt)),$readn)
    if ($dialog(T_bar)) { did -c T_bar 60 %line }
    $iif($dialog(T_bar),.timermpos_T_bar 0 1 $!iif($dialog(T_bar) && $!insong,did -ra T_bar 63 $!mpos $chr(47) $!mlen))
    $iif($dialog(T_bar),.timertrak 0 1 $!iif($dialog(T_bar),mp3trak))
    $iif($dialog(T_bar),did -ra T_bar 61 $remove($nopath($oku(MP3)),.mp3))
    if ($oku(MP3Anons) == evet && $server) {
      if ($oku(MP3a) = kanala) {
        scid $scon($activecid) ame $replace($oku(MP3Msg),<artist>,$sound($oku(MP3)).artist,<song>,$sound($oku(MP3)).title,<duration>,$mlen($oku(MP3)),<kbps>,$sound($oku(MP3)).bitrate $+ .kbps,<khz>,$calc($sound($oku(mp3)).sample / 1000) $+ .khz,<fname>,$remove($nopath($oku(MP3)),.mp3)) 
      }
      else {
        scid $scon($activecid) ame $replace($oku(MP3Msg),<artist>,$sound($oku(MP3)).artist,<song>,$sound($oku(MP3)).title,<duration>,$mlen($oku(MP3)),<kbps>,$sound($oku(MP3)).bitrate $+ .kbps,<khz>,$calc($sound($oku(mp3)).sample / 1000) $+ .khz,<fname>,$remove($nopath($oku(MP3)),.mp3)) 
      }

      elseif ($oku(MP3AdvMeth) = allchans) {
        mp3_netadv
      }
    }
  }
}

alias mp3_Temizle {
  var %x = $input(Şarkı Listesi Temizlenecek Eminmisiniz?,yq,Seciniz...)
  if (%x = $true) { 
    did -r T_bar 60
    write -c $text(liste.txt)
    mp3_liste
  }
}
on *:dialog:T_bar:close:*: {
  .timermpos_mp3bar off
  .timertrak off 
}
on *:MP3End: {
  if ($dialog(T_bar)) {
    did -ra T_bar 63 00:00 / 00:00
  }
  if ($oku(Mp3Mode) = Karışık) {
    Yaz mp3 $read($text(liste.txt))
    mp3_çaldır
  }
  elseif ($oku(Mp3Mode) = Tekrar) {
    mp3_çaldır
  }
  elseif ($oku(Mp3Mode) = Devamlı) { 
    mp3_ileri 
  }
  elseif ($oku(Mp3Mode) = Normal) {
    mp3_stop
  }
  else {
    .timertrak off
    .timermpos_mp3bar off
  }
}

alias mp3_mod {
  $iif($1 = 1,Yaz MP3Mode normal)
  $iif($1 = 2,Yaz MP3Mode Karışık)
  $iif($1 = 3,Yaz MP3Mode Tekrar)
  $iif($1 = 4,Yaz MP3Mode Devamlı)
}

alias mp3_anons {
  if ($oku(MP3Anons) = on) {
    Yaz MP3Anons off
  }
  elseif ($oku(MP3Anons) = off) {
    Yaz MP3Anons on
  }
}

alias mp3_liste { .filter -k $text(liste.txt) $iif($1 = -d,mp3_add2,mp3_add) | if ($1 != -d) { .signal mp3_liste } }
alias mp3_add { did -a T_bar 60 $remove($nopath($1-),.mp3) | did -c T_bar 60 1 }
alias mp3_add2 { did -a mp3_dosya 1 $remove($nopath($1-),.mp3) }
on *:signal:mp3_liste: {
  if ($oku(MP3)) {
    var %r = $read($text(liste.txt),w,$oku(MP3)),%c = $readn
    did -c T_bar 60 %c
  }
}
alias mp3_dosya { 
  if (!$dialog(mp3_dosya)) dialog -m mp3_dosya mp3_dosya
  else { dialog -x mp3_dosya }
}
dialog mp3_dosya {
  title "Çalma Listesi"
  size -1 -1 137 111
  option dbu
  icon $icl, 0
  list 1, 2 2 133 94, size
  button "Sil", 2, 57 98 35 10
  button "Tamam", 3, 98 98 35 10, ok
}
on *:dialog:mp3_dosya:*:*:{ 
  if ($devent == init) { 
    mdx MarkDialog $dname
    mdx SetFont $dname 1,2,3 11 1100 Tahoma
    mp3_liste -d
  }
  if ($devent == close) {
    did -r T_bar 60
    mp3_liste
  }
  if ($devent == sclick) { 
    if $did == 2 {   
      if ($did($dname,1).sel) {
        var %s = $ifmatch
        .write -dl $+ %s $text(liste.txt)
        did -r $dname 1
        mp3_liste -d
      }
    }
    if $did == 3 { dialog -c $dname  } 
  }
}
dialog vol {
  title ""
  size -1 -1 20 40
  option dbu
  list 1, 5 0 12 44, size
  check "Zzz;)", 2, 0 44 22 8
}
on *:Dialog:vol:*:*:{ 
  if ($devent == init) { 
    var %N = $dname
    mdx MarkDialog %N
    mdx SetDialog vol Style dlgframe
    mdx SetBorderStyle %N 1
    mdx SetControlMDX 1 Trackbar both noticks vertical tooltips > $bars
    did -i vol 1 1 params $calc(65535 - $vol(master)) 0 65535 * * * * 16
    if ($calc(65535 - $vol(master)) 0 65535 * * * * 20 = 0) { did -c vol 2 }
    dialog -s vol 850 1 40 90
  }
  if ($devent == sclick) { 
    var %N = $dname 
    if ($did == 0) { 
      dialog -x %N
    }
    if ($did == 1) {  
      did -u %N 2
      vol -v $calc(65535 - $gettok($did($did,1),1,32))
      if ($gettok($did($did,1),9,32) = tiptext) { did -i %N $did 1 tiptext $iif($int($calc($vol(master) /655.35)) = 0,Sessiz,$int($calc($vol(master) /655.35)) $+ %) }
      if ($gettok($did($did,1),1,32) = 65535) { did -c %N 2 }
    }
    if ($did == 2) { 
      if ($vol(master) = 0) { vol -v 65535 }
      if ($vol(master) != 0) { vol -v 0 }
      :a
      did -ci %N 1 1 params $calc(65535 - $vol(master)) 0 65535 * * * * 20
      halt
    }

  }


}
alias mp3trak { 
  if ($dialog(T_bar)) { 
    did -i T_bar 62 1 params $round($calc($calc($inmp3.pos / $inmp3.length) * 100),0) 
  } 
  else { .timertrak off }
}
alias mpos {
  if (!$insong) { return 2 | halt }
  var %x = $calc($insong.pos /1000)
  return $gmt(%x,$iif(%x >= 3600,hh:nn:ss,nn:ss))
}

alias mlen {
  if ($1) {
    if (!$exists($1-)) { return 1 | halt }
    var %x = $calc($sound($1-).length /1000)
    return $gmt(%x,$iif(%x >= 3600,hh:nn:ss,nn:ss))
  }
  if (!$1) {
    if (!$insong) { return 00.00 | halt }
    var %x = $calc($insong.length /1000)
    return $gmt(%x,$iif(%x >= 3600,hh:nn:ss,nn:ss))
  }
}

on *:join:#: { if $nick == $me { xpencere $chan } }
alias xpencere {
  if !$widnow(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -dp +L @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 0 250 100 | window -h @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
  drawrect -f @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(background) 50 $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).x  $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).y $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).w $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).h
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(own text) TimesNewRoman 30 30 40 $1
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(info text) TimesNewRoman 14 20 15 Sohbetin Tek Adresi  
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(ctcp text) TimesNewRoman 15 100 30 irc.RenkSohbet.com
  drawsave @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+($chan,_tmp.bmp)
  background -p $1 $+($chan,_tmp.bmp)
  .remove $+($chan,_tmp.bmp)
  set %checks $color(background)
}


#sefect on
on 1:open:?:{ 
  if ($nick == $me) { halt }
  else { splay sounds\ao.wav | halt } 
}

on ^1:join:#: { 
  if ($nick != $me) { halt }
  else { splay sounds\join.wav | halt } 
}
on 1:part:#: {
  if ($nick != $me) { halt }
  else { splay sounds\part.wav | halt } 
}
on 1:voice:#: {
  if ($vnick != $me) { halt }
  else { splay sounds\voice.wav | halt } 
}
on 1:devoice:#: {
  if ($vnick != $me) { halt }
  else { splay sounds\devoice.wav | halt } 
}
on *:op:#: {
  if ($opnick == $me) {
    splay sounds\op.wav
  }
}
on 1:deop:#: {
  if ($opnick != $me) { halt }
  else { splay sounds\deop.wav | halt } 
}
on 1:connect:{ splay sounds\connect.wav }
on 1:disconnect:{ splay sounds\disconnect.wav }
on 1:kick:#: {
  if ($knick != $me) { halt }
  else { splay sounds\kick.wav | halt } 
}

#sefect end