;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  If this doesnt work on your machine, or
;;;;;;;;;;   Script by billythekid   ;;;;;;;;;;  you have any questions, please don't
;;;;;;;;;; Find me in #IRCWavPlayers ;;;;;;;;;;  hesitate to get in touch.
;;;;;;;;;;  On PhaZeNet and DALnet   ;;;;;;;;;;  memo billythekid in PhaZeNet
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  

dialog -l wpmain {
  title "WP MP3 Player"
  size -1 -1 299 150
  option dbu notheme
  button "PLAY", 2, 248 125 47 11, default
  button "STOP", 4, 248 137 40 11
  button "Refresh", 5, 3 139 30 8
  tab "MP3", 8, 3 1 242 136
  list 1, 7 17 235 117, tab 8 sort size
  scroll "mp3position", 66, 35 139 211 8, tab 8 range 0 100 horizontal
  tab "WAV", 9
  list 10, 7 17 235 117, tab 9 sort size
  tab "WMA", 48
  list 49, 7 17 235 117, tab 48 sort size
  tab "ZIP", 12
  list 47, 7 17 235 117, tab 12 sort size
  tab "Channel", 3
  list 7, 7 17 235 106, tab 3 sort size extsel
  button "Remove", 21, 70 125 60 10, tab 3
  button "Clear All", 22, 217 125 26 10, tab 3
  button "Grab", 23, 7 125 60 10, tab 3
  tab "List Maker", 39
  button "Make List", 40, 6 115 150 20, tab 39
  check "Folder Names", 41, 26 22 64 8, tab 39
  check "Attach Message:", 44, 8 49 58 9, tab 39
  edit "", 45, 7 58 235 55, tab 39 multi return autovs vsbar
  check "MP3 Files", 42, 116 20 35 8, tab 39
  check "WAV Files", 43, 116 29 35 8, tab 39
  check "ZIP Files", 51, 116 38 35 8, tab 39
  button "Advertise List", 20, 157 115 86 20, tab 39
  check "File Sizes (Slower)", 26, 26 30 53 8, tab 39
  check "Bitrate/Rate/Mode(Very Slow)", 27, 26 38 85 8, tab 39
  box "Include", 28, 19 15 93 33, tab 39
  edit %wp.listnick, 34, 184 19 56 10, tab 39
  text "List Nick", 36, 158 20 25 8, tab 39
  check "WMA Files", 62, 116 47 35 8, tab 39
  tab "Search", 46
  list 15, 7 40 235 94, tab 46 sort size
  button "Search", 14, 8 29 115 10, tab 46
  edit "", 13, 7 17 235 10, tab 46
  button "Perform @find", 67, 126 29 115 10, tab 46
  tab "List Grabber", 54
  box "Current List Being Grabbed", 55, 8 19 232 20, tab 54
  text %wp.grablist, 56, 10 27 196 8, tab 54
  button "SelectList", 57, 207 25 30 10, tab 54
  list 58, 8 42 233 74, tab 54 size extsel
  button "Remove Line", 59, 9 119 61 15, tab 54
  button "Stop", 60, 190 119 26 15, tab 54
  text %wp.grabchan, 63, 75 124 84 8, tab 54
  button "Change", 64, 161 122 25 10, tab 54
  button "Resume", 61, 217 119 26 15, tab 54
  box "Channel", 32, 72 116 117 19, tab 54
  check "Play Messages", 16, 250 50 46 10
  check "Handle Sends", 17, 250 17 44 8
  check "Handle @find", 18, 250 2 44 8
  check "Silent Play", 35, 252 88 41 10
  link "WP", 50, 290 140 8 8
  check "Random", 6, 252 99 41 10
  check "Repeat", 11, 252 110 41 10
  edit %wp.slots, 52, 275 25 20 10
  text "Max Slots", 53, 250 25 25 10
  button "Change File", 65, 254 60 35 10
  button "Use Blank", 25, 254 70 35 10
  box "", 29, 248 46 49 38
  box "", 30, 248 84 49 38
  box "", 31, 248 12 49 34
  check "Send SLOTS", 33, 250 35 44 10
  menu "Settings", 37
  item "Folder Settings", 38, 37
  item "Set On Top", 19, 37
  item "Hide Spam", 68, 37
  item "Stealth", 24, 37
  item "About", 101, 37
}

dialog -l wpfolderset {
  title "Scanning"
  size -1 -1 284 185
  option dbu
  list 1, 2 13 280 157, sort size extsel hsbar
  button "Select Folders", 2, 2 172 279 12, default
  text "Hold Ctrl and click on available folders that you want to play from. Please only select parent folders to avoid doubles.", 3, 2 2 281 9, center
}

dialog -l wpwarn {
  title "WP MP3 Player Stealth Information"
  size -1 -1 183 52
  option dbu
  check "Don't show this warning again.", 1, 30 37 85 10
  text "**NOTE** NOT all players are compatible with stealth searching/grabbing. If a song does not send you may need to turn off stealth. ", 2, 30 8 146 25
  button "OK", 3, 139 36 37 12, default
  icon 4, 6 6 15 15
}

menu channel,status {
  WP MP3 Player
  .$submenu($wpmenus($1))
}

alias -l wpmenus {
  if $dialog(wpmain) && ( $chan($active).cid == %wp.cid ) {
    if ($1 == begin) return -
    if ($1 == 1) return Play to $active ONLY:wp.openplayer
    if ($1 == 2) return $iif(!$istok(%wp.chan,$active,230),$style(2)) Stop playing to $active : wp.delchan 
    if ($1 == 3) return Play to ALL current $network channels:wp.addallchans
    if ($1 == 4) return Stop playing to ALL selected channels:wp.delallchans
    if ($1 == 5) return $iif($istok(%wp.chan,$active,230),$style(2)) Add $active as channel:wp.addchan
    if ($1 == end) return -
  }
  else {
    if ($1 == begin) return -
    if ($1 == 1) return $iif($dialog(wpmain),$style(3)) Open WP MP3 Player:wp.openplayer
    if ($1 == 2) return Unload WP MP3 Player:wp.unload
    if ($1 == end) return -
  }
}
alias -l wp.unload {
  if $?!="Delete all WP Player settings?" {
    unset %wp.*
    .timer 1 16 echo -a 14,15This is the ghost of WP Player, I miss you already!
    unload -rs $qt( $script )
  }
  else {
    .timer 1 16 echo -a 14,15This is the ghost of WP Player, I miss you already!
    unload -rs $qt( $script )
  }
}
alias -l wp.addallchans {
  var %i = 0
  while %i < $chan(0) {
    inc %i
    set %wp.chan $addtok(%wp.chan,$chan(%i),230)
  }
  set %wp.chantotal $numtok(%wp.chan,230)
  dialog -ve wpmain
  did -v wpmain 16,17,18,25,33,35,52,53,65
}
alias -l wp.delallchans {
  set %wp.chan Status Window
  did -hu wpmain 16,17,18,25,33,35,52,53,65
  set %wp.chantotal $numtok(%wp.chan,230)
  wpopen
}
alias -l wp.addchan {
  set %wp.chan $addtok(%wp.chan,$active,230)
  set %wp.chantotal $numtok(%wp.chan,230)
  dialog -ve wpmain
  did -v wpmain 16,17,18,25,33,35,52,53,65
}
on *:PART:#:{
  if $nick == $me {
    if $findtok(%wp.chan,$chan,1,230) {
      set %wp.chan $remtok(%wp.chan,$chan,1,230)
      set %wp.chantotal $numtok(%wp.chan,230)
    }
    else halt
  }
}
on *:kick:#:{
  if $knick == $me {
    if $findtok(%wp.chan,$chan,1,230) {
      set %wp.chan $remtok(%wp.chan,$chan,1,230)
      set %wp.chantotal $numtok(%wp.chan,230)
    }
    else halt
  }
}
alias -l wp.delchan {
  set %wp.chan $remtok(%wp.chan,$active,1,230)
  set %wp.chantotal $numtok(%wp.chan,230)
}
alias -l wp.openplayer {
  unset %wp.chan*
  set %wp.chan $active 
  set %wp.chantotal $numtok(%wp.chan,230)
  wpopen
  set %wp.cid $cid
  set %wp.tab 1
  if ( %wp.chan == Status Window ) {
    did -hu wpmain 16,17,18,25,33,35,52,53,65
  }
  else did -v wpmain 16,17,18,25,33,35,52,53,65
}

on 1:dialog:wpmain:close:0: {
  .disable #wpsends #wpfinds #wprandom #wprepeat #wpstealth
  .timerwplayer off
  .timerwpslotshow off
  .timerwp-player off
  unset %wp.chan* 
}
on *:getfail:*.mp3,*.wav,*.zip,*.wma:{
  if $dialog(wpmain) {
    if $nopath( $filename ) isin $did(wpmain,58,1) || $nopath( $filename ) isin $replace( $did(wpmain,58,1) , $chr(32) , $chr(95) ) {
      wpgrab
    }
  }
}
on *:FILERCVD:*.mp3:{
  if $dialog(wpmain) {
    var %i 0
    while %i < %wp.mp3dirtotal {
      inc %i
      if $nofile($filename) == $eval(% $+ wp.mp3dir $+ %i , 3 ) { 
        did -a wpmain 1 $nopath($filename) 
      }
    }
    if $nopath( $filename ) isin $did(wpmain,58,1) || $nopath( $filename ) isin $replace( $did(wpmain,58,1) , $chr(32) , $chr(95) ) {
      set %wp.grabfile $did(wpmain,58,1).text
      set %wp.delnum $read( %wp.grablist , w , * $+ %wp.grabfile $+ * )
      write -dl $+ $readn %wp.grablist 
      did -d wpmain 58 1
      wpgrab
    }
  }
}
on *:FILERCVD:*.wav:{
  if $dialog(wpmain) {
    var %i 0
    while %i < %wp.wavdirtotal {
      inc %i
      if $nofile($filename) == $eval(% $+ wp.wavdir $+ %i , 3 ) { 
        did -a wpmain 10 $nopath($filename) 
      }
    }
    if $nopath( $filename ) isin $did(wpmain,58,1) || $nopath( $filename ) isin $replace( $did(wpmain,58,1) , $chr(32) , $chr(95) ) {
      set %wp.grabfile $did(wpmain,58,1).text
      set %wp.delnum $read( %wp.grablist , w , * $+ %wp.grabfile $+ * )
      write -dl $+ $readn %wp.grablist 
      did -d wpmain 58 1
      wpgrab
    }
  }
}
on *:FILERCVD:*.zip:{
  if $dialog(wpmain) {
    var %i 0
    while %i < %wp.zipdirtotal {
      inc %i
      if $nofile($filename) == $eval(% $+ wp.zipdir $+ %i , 3 ) { 
        did -a wpmain 47 $nopath($filename) 
      }
    }
    if $nopath( $filename ) isin $did(wpmain,58,1) || $nopath( $filename ) isin $replace( $did(wpmain,58,1) , $chr(32) , $chr(95) ) {
      set %wp.grabfile $did(wpmain,58,1).text
      set %wp.delnum $read( %wp.grablist , w , * $+ %wp.grabfile $+ * )
      write -dl $+ $readn %wp.grablist 
      did -d wpmain 58 1
      wpgrab
    }
  }
}
on *:FILERCVD:*.wma:{
  if $dialog(wpmain) {
    var %i 0
    while %i < %wp.wmadirtotal {
      inc %i
      if $nofile($filename) == $eval(% $+ wp.wmadir $+ %i , 3 ) { 
        did -a wpmain 49 $nopath($filename) 
      }
    }
    if $nopath( $filename ) isin $did(wpmain,58,1) || $nopath( $filename ) isin $replace( $did(wpmain,58,1) , $chr(32) , $chr(95) ) {
      set %wp.grabfile $did(wpmain,58,1).text
      set %wp.delnum $read( %wp.grablist , w , * $+ %wp.grabfile $+ * )
      write -dl $+ $readn %wp.grablist 
      did -d wpmain 58 1
      wpgrab
    }
  }
}
on *:load:{
  set %wp.disclaimer1 Music list for pre-approval only. Please delete any tracks from your Hard Drive after 24 hours.
  set %wp.disctot 1
  set %wp.slots 10
  write wpplaymessages.txt The time here is now $ $+ time(h:nn TT)
  write wpplaymessages.txt $ $+ me waves hello to everyone
  write wpplaymessages.txt Can you feel it?
  write wpplaymessages.txt I Can't Stop Dancing!
  write wpplaymessages.txt $ $+ me does it with tunes.
  write wpplaymessages.txt $ $+ me loves to play hard!
  write wpplaymessages.txt 4,1¸7.8­9·3~10^2¯12^11~6·13­5.4¸
  write wpplaymessages.txt This one is fantAAAAstic!
  write wpplaymessages.txt This thingy ROCKS!
  write wpplaymessages.txt $ $+ server must love me ;)
  write wpplaymessages.txt Can it really be $ $+ time(h:nn TT) already?
  set %wp.messfile wpNOplaymessage.txt
  set %wp.listnick $me
  write wpNOplaymessage.txt
  write -c wphidespam.mrc alias wphidespam $chr(123)
  write wphidespam.mrc if !$ $+ did(wpmain,68).state $chr(123)
  write wphidespam.mrc did -c wpmain 68
  write wphidespam.mrc .enable #wphidespam
  write wphidespam.mrc $chr(125)
  write wphidespam.mrc else $chr(123)
  write wphidespam.mrc did -u wpmain 68
  write wphidespam.mrc .disable #wphidespam
  write wphidespam.mrc $chr(125)
  write wphidespam.mrc $chr(125)
  write wphidespam.mrc
  write wphidespam.mrc #wphidespam on
  write wphidespam.mrc
  write wphidespam.mrc on ^*:text:*:#: $chr(123)
  write wphidespam.mrc if $ $+ dialog(wpmain) $chr(123)
  write wphidespam.mrc if $ $+ did(wpmain,68).state $chr(123)
  write wphidespam.mrc if ( ! $ $+ + $ $+ nick isin $ $+ 1- ) $chr(123) 
  write wphidespam.mrc haltdef 
  write wphidespam.mrc halt 
  write wphidespam.mrc $chr(125)
  write wphidespam.mrc if ( @ $ $+ + $ $+ nick isin $ $+ 1- ) $chr(123) 
  write wphidespam.mrc haltdef 
  write wphidespam.mrc halt 
  write wphidespam.mrc $chr(125)
  write wphidespam.mrc $chr(125)
  write wphidespam.mrc $chr(125)
  write wphidespam.mrc $chr(125)
  write wphidespam.mrc 
  write wphidespam.mrc #wphidespam end
  .load -rs wphidespam.mrc
  echo -a 15,1<<<PRIVATE>>> WP MP3 Player loaded successfully
  echo -a 15,1<<<PRIVATE>>> Play messages from %wp.messfile
  echo -a 15,1<<<PRIVATE>>> Right click in a window to begin
}
alias -l wp-player {
  set %wp.pos $int( $calc( ( $insong.pos / $insong.length ) * 100 ))
  did -c wpmain 66 %wp.pos
}
alias -l wpopen {
  if !$dialog(wpmain) { dialog -md wpmain wpmain }
  else dialog -ve wpmain
}

alias -l wp.refresh {
  if $insong {
    did -z wpmain 66 0 $insong.length
    did -c wpmain 66 $insong.pos
  }
  did -r wpmain 1,10,47,49
  var %num 0
  while %num < %wp.mp3dirtotal {
    inc %num
    set %wp1 $findfile($eval(% $+ wp.mp3dir $+ %num,4),*.mp3,0,did -a wpmain 1 $nopath($1-) )
  }
  var %num 0
  while %num < %wp.wavdirtotal {
    inc %num
    set %wp1 $findfile($eval(% $+ wp.wavdir $+ %num,4),*.wav,0,did -a wpmain 10 $nopath($1-) ) 
  }
  var %num 0
  while %num < %wp.zipdirtotal {
    inc %num
    set %wp1 $findfile($eval(% $+ wp.zipdir $+ %num,4),*.zip,0,did -a wpmain 47 $nopath($1-) )
  }
  var %num 0
  while %num < %wp.wmadirtotal {
    inc %num
    set %wp1 $findfile($eval(% $+ wp.wmadir $+ %num,4),*.wma,0,did -a wpmain 49 $nopath($1-) )
  }
  unset %wp1
  did -c wpmain %wp.tab $didwm(wpmain , %wp.tab , $wpremchar($nopath(%wp.playsong) ) )
}

on 1:dialog:wpwarn:sclick:3:{
  if $did(1).state == 1 { 
    set %wp.hidewarn $true
  }
  else set %wp.hidewarn $false
  dialog -x wpwarn
  wpstealth2
}
on 1:dialog:wpwarn:close:*:{
  if $did(1).state == 1 { 
    set %wp.hidewarn $true
  }
  else set %wp.hidewarn $false
  wpstealth2
}
alias -l wpstealth {
  if $did(wpmain,24).state == 0 {
    if %wp.hidewarn != $true { 
      var %i $dialog(wpwarn,wpwarn,-4)
    }
    else wpstealth2
  }
  else {
    did -u wpmain 24
    .disable #wpstealth
  }
}
alias -l wpstealth2 {
  did -c wpmain 24
  .enable #wpstealth
}
#wpstealth off
on *:INPUT:#:{
  if ( @find == $1 ) || ( @locator == $1 ) {
    .ctcp # search $encode($2-)
    echo # <<<PRIVATE>>> Stealth searching # for $wpremchar($2-)
    haltdef
  }
  if ( $right($1,-1) ison # ) && ( $left($1,1) == $chr(33) ) {
    .ctcp $right($1,-1) get $2-
    echo # <<<PRIVATE>>> Stealth request for $2- Sent to $right($1,-1)
    haltdef
  }
}
on *:INPUT:?:{
  if ( $right($1,-1) == $active ) && ( $left($1,1) == $chr(33) ) {
    .ctcp $right($1,-1) get $2-
    echo -a <<<PRIVATE>>> Stealth request for $2- Sent to $right($1,-1)
    haltdef
  }
}

#wpstealth end
on 1:dialog:wpmain:init:0: {
  wp.refresh
  wpshowgrabs
  var %i 0
  while %i < %wp.disctot {
    inc %i
    did -i wpmain 45 %i $eval( % $+ wp.disclaimer $+ %i , 3 )
  }
}

on 1:dialog:wpmain:menu:*:{
  if $did == 38 { wpfolderset }
  elseif $did == 19 { wpontop }
  elseif $did == 24 { wpstealth }
  elseif $did == 101 { wpabout }
  elseif $did == 68 { wphidespam }
}
on 1:dialog:wpmain:scroll:66: {
  wpposition
}
alias -l wpposition {
  did -z wpmain 66 0 100
  did -c wpmain 66 $did(66).sel
  if $insong {
    set %wp.pc $int( $calc( ( $sound($insong.fname).length / 100 ) * $did(66).sel ) )
    splay seek %wp.pc
  }
}

on 1:dialog:wpmain:sclick:*:{
  if $did == 50 { run http://the-kid.org/wphelp.zip }
  elseif $did == 5 { wp.refresh }
  elseif $did == 14 { wpsearch }
  elseif $did == 67 { wpdofind }
  elseif $did == 8 { did -t wpmain 2 | set %wp.tab 1 }
  elseif $did == 9 { did -t wpmain 2 | set %wp.tab 10 }
  elseif $did == 12 { did -t wpmain 2 | set %wp.tab 47 }
  elseif $did == 48 { did -t wpmain 2 | set %wp.tab 49 }
  elseif $did == 46 { did -t wpmain 14 | set %wp.tab 15 | did -f wpmain 13 }
  elseif $did == 2 { .timerwplayer off | wp.playsong }
  elseif $did == 4 { splay stop }
  elseif $did == 6 { wprandsel }
  elseif $did == 11 { wprepeat }
  elseif $did == 35 { wpsilent }
  elseif $did == 33 { wpslots }
  elseif $did == 40 { wpmakelist }
  elseif $did == 17 { wpsends }
  elseif $did == 18 { wpfinds }
  elseif $did == 65 { wpmessages }
  elseif $did == 61 { set %wp.grabs on | wpgrab }
  elseif $did == 64 { wpgrabchan }
  elseif $did == 57 { wpgrablist }
  elseif $did == 59 { wplosegrab }
  elseif $did == 60 { set %wp.grabs off }
  elseif $did == 20 { wpadvertise }
  elseif $did == 21 { wpremoveline }
  elseif $did == 22 { wpclearchan }
  elseif $did == 23 { wp.grabsong }
  elseif $did == 25 { set %wp.messfile wpNOplaymessage.txt | write -c wpNOplaymessage.txt }
}

alias -l wpremoveline {
  while ( $did(wpmain,7).sel )  {
    did -d wpmain 7 $v1
  }
}
alias -l wpclearchan {
  did -r wpmain 7 
}
alias -l wpadvertise {
  if %wp.list {
    unset %wp.listthings
    if %wp.listmp3s && %wp.totmp3 {
      set %wp.listthings $addtok(%wp.listthings ,4 %wp.totmp3 MP3s,32)
    }
    if %wp.listwavs && %wp.totwav {
      set %wp.listthings $addtok(%wp.listthings ,8 %wp.totwav WAVs,32)
    }
    if %wp.listwmas && %wp.totwma {
      set %wp.listthings $addtok(%wp.listthings ,9 %wp.totwma WMAs,32)
    }
    if %wp.listzips && %wp.totzip {
      set %wp.listthings $addtok(%wp.listthings ,11 %wp.totzip ZIPs,32)
    }
    var %i 0
    while %i < %wp.chantotal {
      inc %i
      if ( $me ison $gettok(%wp.chan,%i,230) ) {
        msg $gettok(%wp.chan,%i,230) 13,1To get my list of %wp.listthings type0 @ $+ $me 13in channel. Last updated7 %wp.musiclistmakerdate     
      }
    }
  }
  else echo -a <<<PRIVATE>>> You have not made a list yet!  
}

on *:dialog:wpmain:edit:13:{
  did -t wpmain 14 
  set %wp.tab 15 
}
on *:dialog:wpmain:dclick:*:{
  if ( $did == 7 ) { wp.grabsong }
  elseif ( $did == 1 ) { wp.playsong }
  elseif ( $did == 10 ) { wp.playsong }
  elseif ( $did == 47 ) { wp.playsong }
  elseif ( $did == 15 ) { wp.playsong }
  elseif ( $did == 49 ) { wp.playsong }
}
alias -l wpgrab {
  if !%wp.grabchan { 
    set %wp.warn $input( No Channel Selected , owd , Channel Error ) 
    unset %wp.warn 
    dialog -v wpmain
    halt
  }
  if !%wp.grablist {
    set %wp.warn $input( No List Selected , owd , List Error ) 
    unset %wp.warn 
    dialog -v wpmain
    halt
  }
  if $me !ison %wp.grabchan {
    set %wp.warn $input( Plese Enter %wp.grabchan To Begin, owd , Channel Error ) 
    unset %wp.warn 
    dialog -v wpmain
    halt
  }
  if $did(wpmain,58,1) {
    if %wp.grabs == on {
      if $did(wpmain,24).state == 0 {
        msg %wp.grabchan $gettok($did(wpmain,58,1),1,58)
      }
      else {
        .ctcp $right($gettok($did(wpmain,58,1),1,32),-1) GET $gettok($gettok($did(wpmain,58,1),2-,32),1,58)
      }
    }
  }
}


alias -l wpontop {
  if $did(wpmain,19).state == 0 {
    did -c wpmain 19
    dialog -o wpmain
  }
  else {
    did -u wpmain 19
    dialog -n wpmain
  }
}
alias -l wpgrabchan {
  set %wp.grabchan #$$input(Please Select Channel To Grab On, ceqd, Input Channel Here with or without #)
  did -a wpmain 63 %wp.grabchan
  dialog -v wpmain
}

alias -l wpgrablist {
  set %wp.grablist " $+ $$sfile($scriptdir*.txt,Please select the list you wish to grab from) $+ "
  did -a wpmain 56 %wp.grablist
  wpshowgrabs
  dialog -v wpmain
}

alias -l wpshowgrabs {
  if %wp.grablist {
    filter -foc %wp.grablist wpmain 58 !*
  }
}

alias -l wplosegrab {
  set %wp.totlines $did(wpmain,58,0).sel
  var %i 0
  while %i < %wp.totlines {
    inc %i
    set %wp.grabline $did(wpmain,58,1).sel
    set %wp.grabfile $did(wpmain,58,%wp.grabline)
    set %wp.delnum $read( %wp.grablist , w , * $+ %wp.grabfile $+ * )
    write -dl $+ $readn %wp.grablist 
    did -d wpmain 58 %wp.grabline
  }
}

ctcp *:ACCEPTED: {
  echo -a <<<PRIVATE>>> $nick has accepted your request for $6- and will send when ready
  echo -a <<<PRIVATE>>> You now have $4 files of $nick $+ 's $5 available slots.
  haltdef
}
ctcp *:Status*: {
  if ( $did(wpmain,17).state == 1 ) {
    set %wp.serving ON
  }
  else set %wp.serving OFF
  if ( $did(wpmain,18).state == 1 ) {
    set %wp.finding ON
  }
  else set %wp.finding OFF
  if ( $istok( %wp.chan , $2 , 230 ) ) {
    set %wp.mode N - Normal
  }
  else set %wp.mode Not A Serving Channel
  .ctcp $nick WP-Status reply: 5,0<=-12 WP MP3 Player 5-=-4 Channel: $2 5-=-4 Server: %wp.serving 5-=-4 Mode: %wp.mode 5-=-4 Priority: Normal 5-=-4 Search: %wp.finding 5-=-4 FileLimits: ON 5-=-4 SizeLimits: OFF 5-=-4 ListLimits: OFF 5-=-4 SpeedLimits: OFF 5-=-4 List Date: $asctime( %wp.listtime2 , yyyy-mm-dd ) 5-=-12 http://billy.the-kid.org 5-=>
}
#wpfinds on
ctcp *:SEARCH: {
  set %wp.sendnick $nick
  set %wp.fmp3 $decode($2-)
  wpfindit
  haltdef
}
ctcp *:LIST: {
  if ( $me = $target ) {
    wpsendlist
    haltdef
  }
}
ctcp *:QUE: {
  wpsendque
  haltdef
}
ctcp *:remove: {
  wp-remove
  haltdef
}
alias -l wpsendlist {
  dcc send -n $nick %wp.list
  inc %wp.listcounter
  .notice $nick 13,1You are the8 $ord( %wp.listcounter ) 13person to grab my list.13,13 8,8 15,1 WP MP3 Player
}
alias -l wpsendque {
  .notice $nick 13,1I do not operate a que system. I currently have8 %wp.slots 13slots.8 $send(0) 13in use leaving8 $calc( %wp.slots - $send(0) ) 13available.
  .notice $nick 13,1You are grabbing8 $send( $nick , 0 ) 13files at the moment.13,13 8,8 15,1 WP MP3 Player
}
alias -l wp-remove {
  close -s $nick
}
on ^*:text:*@*:*:{
  if ( @ $+ $me == $1 ) { 
    wpsendlist
  }
  elseif ( @ $+ $me $+ -remove == $1 ) {
    wp-remove
  }
  elseif ( @ $+ $me $+ -que == $1 ) {
    wpsendque
  }
  if ( @find isin $1 ) || ( @locator isin $1 ) {
    set %wp.sendnick $nick
    set %wp.fmp3 $2-
    wpfindit
  }
}
alias -l wpfindit { 
  var %num 0
  while %num < %wp.mp3dirtotal {
    inc %num
    set %wpmp3 $findfile( $eval(% $+ wp.mp3dir $+ %num,3), $wpremchar(%wp.fmp3),0,1, if ( $istok(.zip .mp3 .wav .wma, $right( $1- , 4 ) , 32 ) ) write -i wpresult.txt ! $+ $me $nopath($1-) )
    unset %wpmp3
  }
  var %num 0
  while %num < %wp.wavdirtotal {
    inc %num
    set %wpmp3 $findfile( $eval(% $+ wp.wavdir $+ %num,3), $wpremchar(%wp.fmp3),0,1, if ( $istok(.zip .mp3 .wav .wma, $right( $1- , 4 ) , 32 ) ) write -i wpresult.txt ! $+ $me $nopath($1-) )
    unset %wpmp3
  }
  var %num 0
  while %num < %wp.zipdirtotal {
    inc %num
    set %wpmp3 $findfile( $eval(% $+ wp.zipdir $+ %num,3), $wpremchar(%wp.fmp3),0,1, if ( $istok(.zip .mp3 .wav .wma, $right( $1- , 4 ) , 32 ) ) write -i wpresult.txt ! $+ $me $nopath($1-) )
    unset %wpmp3
  }
  var %num 0
  while %num < %wp.wmadirtotal {
    inc %num
    set %wpmp3 $findfile( $eval(% $+ wp.wmadir $+ %num,3), $wpremchar(%wp.fmp3),0,1, if ( $istok(.zip .mp3 .wav .wma, $right( $1- , 4 ) , 32 ) ) write -i wpresult.txt ! $+ $me $nopath($1-) )
    unset %wpmp3
  }
  set %wp.findtot $lines(wpresult.txt)
  if %wp.findtot != 0 { 
    .msg %wp.sendnick 13,1Total8 %wp.findtot 13matches for8 $wpremchar(%wp.fmp3)
    if %wp.findtot <= 15 {
      write -i wpresult.txt 13,1That's all I have for8 $wpremchar(%wp.fmp3)
    }
    else {
      var %i 0
      while %i < 10 {
        inc %i 
        write -i wpresult2.txt $read(wpresult.txt,%i)
      }
      write -c wpresult.txt
      filter -ff wpresult2.txt wpresult.txt
      .remove wpresult2.txt
      .msg %wp.sendnick 13,1Showing first 10 results. 
      write -i wpresult.txt 13,1Get my list by typing8 @ $+ $me 13in channel.
    }
    .play %wp.sendnick wpresult.txt 3000
    .remove wpresult.txt
  }
}
#wpfinds end

#wpsends on
on 1:FILESENT:*.mp3,*.wav,*.zip,*.wma:{
  inc %wp.sent
  .notice $nick 13,1Send of8,1 $nopath($filename)  13complete, file number9 %wp.sent 13shared to date.
}
alias -l wp.sendfile {
  set %wp.findsend 0
  :wp.getfile
  inc %wp.findsend
  set %wp.sendsearch $left( %wp.lookthrough , $pos( %wp.lookthrough , $right( %wp.sendtype , 1 ) , %wp.findsend ) )
  if ( $right( %wp.sendsearch , 4 ) != $null ) && ( $right( %wp.sendsearch , 4 ) != %wp.sendtype ) { goto wp.getfile }
  elseif ( $right( %wp.sendsearch , 4 ) == $null ) { 
    .notice %wp.sendnick 13,1Sorry %wp.sendnick I don't understand the request.
  }
  else {
    var %i 0
    set %wp.findfile $null
    while %i < %wp.mp3dirtotal {
      inc %i
      if $findfile( $eval(% $+ wp.mp3dir $+ %i,3) , %wp.sendsearch ,1) != $null {
        set %wp.sendfile $findfile( $eval(% $+ wp.mp3dir $+ %i,3) , %wp.sendsearch ,1)
      }
    }
    var %i 0
    set %wp.findfile $null
    while %i < %wp.wavdirtotal {
      inc %i
      if $findfile( $eval(% $+ wp.wavdir $+ %i,3) , %wp.sendsearch ,1) != $null {
        set %wp.sendfile $findfile( $eval(% $+ wp.wavdir $+ %i,3) , %wp.sendsearch ,1)
      }
    }
    var %i 0
    set %wp.findfile $null
    while %i < %wp.zipdirtotal {
      inc %i
      if $findfile( $eval(% $+ wp.zipdir $+ %i,3) , %wp.sendsearch ,1) != $null {
        set %wp.sendfile $findfile( $eval(% $+ wp.zipdir $+ %i,3) , %wp.sendsearch ,1)
      }
    }
    var %i 0
    set %wp.findfile $null
    while %i < %wp.wmadirtotal {
      inc %i
      if $findfile( $eval(% $+ wp.wmadir $+ %i,3) , %wp.sendsearch ,1) != $null {
        set %wp.sendfile $findfile( $eval(% $+ wp.wmadir $+ %i,3) , %wp.sendsearch ,1)
      }
    }
    if ( %wp.sendfile == $null ) {
      .notice %wp.sendnick 13,1Sorry %wp.sendnick I don't have that file
      halt
    }
  }
  return %wp.sendfile
}

on ^*:text:$(*!*):*:{
  if $network != DALnet {
    if ( ! $+ $me isin $1 ) || ( ! $+ %wp.listnick isin $1 ) && ( $nick != $me ) { 
      set %wp.lookthrough $2-
      set %wp.sendnick $nick
      if ( .wav isin %wp.lookthrough ) {
        set %wp.sendtype .wav
      }
      elseif ( .mp3 isin %wp.lookthrough ) { 
        set %wp.sendtype .mp3
      }
      elseif ( .zip isin %wp.lookthrough ) {
        set %wp.sendtype .zip
      }
      elseif ( .wma isin %wp.lookthrough ) {
        set %wp.sendtype .wma
      }
      if $send(0) < %wp.slots {
        wp.sendfile
        if %wp.lookthrough != $null {
          dcc send -n %wp.sendnick %wp.sendfile
          .notice %wp.sendnick sending14 $nopath( %wp.sendfile ) as requested  
          unset %wp.sendfile
        } 
      }
      else {
        .notice %wp.sendnick Sorry %wp.sendnick, all %wp.slots available slots are in use, try again later for $nopath($wp.sendfile) 
      }
      close -m $nick
    }
  }
  elseif ( $network == DALnet ) {
    if ( ! $+ $me isin $1 ) || ( ! $+ %wp.listnick isin $1 )  {
      .notice $nick 4,5No Sharing In DALnet I'm afraid, this is DALnet policy.
    }
  }
}
ctcp *:get: {
  if $network != DALnet {
    set %wp.lookthrough $2-
    set %wp.sendnick $nick
    if ( .wav isin %wp.lookthrough ) {
      set %wp.sendtype .wav
    }
    elseif ( .mp3 isin %wp.lookthrough ) { 
      set %wp.sendtype .mp3
    }
    elseif ( .zip isin %wp.lookthrough ) {
      set %wp.sendtype .zip
    }
    elseif ( .wma isin %wp.lookthrough ) {
      set %wp.sendtype .wma
    }
    if $send(0) < %wp.slots {
      wp.sendfile
      if %wp.lookthrough != $null {
        dcc send -n %wp.sendnick %wp.sendfile
        .notice %wp.sendnick sending14 $nopath( %wp.sendfile ) as requested  
        unset %wp.sendfile
      } 
    }
    else {
      .notice %wp.sendnick Sorry %wp.sendnick, all %wp.slots available slots are in use, try again later for $nopath($wp.sendfile) 
    }
    close -m $nick
    haltdef
  }
  elseif ( $network == DALnet ) && ( ( ! $+ $me isin $1 ) || ( ! $+ %wp.listnick isin $1 ) ) {
    .notice $nick 4,5No Sharing In DALnet I'm afraid, this is DALnet policy.
  }
}
#wpsends end

alias -l wpfinds {
  if $did(wpmain,18).state == 1 {
    .enable #wpfinds
  }
  else .disable #wpfinds
}

alias -l wpsends {
  if $did(wpmain,17).state == 1 {
    .enable #wpsends
    did -m wpmain 52
    set %wp.slots $did(wpmain,52)
  }
  else {
    .disable #wpsends
    did -n wpmain 52
  }
}

alias -l wpsilent {
  ;if silent is checked
  if $did(wpmain,35).state == 1 {
    ;uncheck and disable repeat
    did -ub wpmain 11
    .disable #wprepeat
    ;if random is checked
    if $did(wpmain,6).state == 1 {
      .enable #wprandom
      ;and set random timer
      .timerwplayer -o 0 180 wprandom
    }
    splay stop
  }
  ;if silent is unchecked
  elseif $did(wpmain,35).state == 0 {
    ;make sure the random timer is off
    .timerwplayer off
    ;enable repeat
    did -e wpmain 11
    .disable #wprepeat
    ;check if random play is checked 
    if $did(wpmain,6).state == 1 {
      wprandom
    }
  }
}

alias -l wpfolderset {
  unset %wp.mp3dir* %wp.wavdir* %wp.zipdir* %wp.wmadir*
  unset %wp.kind
  wp.select_folder
}

alias -l wp.select_folder {
  dialog -md wpfolderset wpfolderset
  window -Ck0dhrn @wp
  set %wp.drive $sdir($left($mircdir,2),Select drive to scan) 
  wpscandrive
}

alias -l wpscandrive {
  if !%wp.kind { set %wp.kind .mp3 }
  elseif %wp.kind == .mp3 { set %wp.kind .wav }
  elseif %wp.kind == .wav { set %wp.kind .zip }
  elseif %wp.kind == .zip { set %wp.kind .wma }
  elseif %wp.kind == .wma {
    unset %wp.kind
    dialog -x wpfolderset
    if $input(Would you like to add folders from another drive) == $true {
      wp.select_folder
    }
    else {
      wp.refresh
      dialog -v wpmain
    }
    halt
  }
  close -@ @wp
  window -Ck0dhrn @wp
  dialog -x wpfolderset
  dialog -md wpfolderset wpfolderset
  wp.foldersearch
}

alias -l wp.foldersearch {
  set %wp.wp $findfile( %wp.drive , * $+ %wp.kind , 0 , aline -n @wp $nofile($1-))
  wpsubdirdel
  filter -wo @wp wpfolderset 1  *
  did -o wpfolderset 2 1 select %wp.kind folders
}
alias -l wpsubdirdel {
  var %i 0
  var %d 1
  while %i < $line(@wp,0) {
    inc %i
    inc %d
    set %wp.compare $line(@wp,%i)
    set %wp.with $line(@wp,%d)
    if ( $left( %wp.with , $len( %wp.compare ) ) == %wp.compare ) {
      dline @wp %d
      dec %i
      dec %d
    }
  }
}
on 1:dialog:wpfolderset:sclick:2:{
  set %wp.selecttotal $did(wpfolderset,1,0).sel
  set %wp.wp 0
  set %wp.two 1
  while %wp.wp < %wp.selecttotal {
    inc %wp.wp
    set %wp.foldern $did(wpfolderset,1,%wp.wp).sel
    :setfolder
    if !$eval(% $+ wp $+ %wp.kind $+ dir $+ %wp.two,4) { 
      set % $+ wp $+ %wp.kind $+ dir $+ %wp.two $did(wpfolderset,1,%wp.foldern))
      set % $+ wp $+ %wp.kind $+ dirtotal %wp.two
    }
    else {
      inc %wp.two
      goto setfolder
    }
  }
  wpscandrive
}


alias -l wprandsel {
  if $did(wpmain,6).state == 1 { 
    did -u wpmain 11
    .enable #wprandom
    .disable #wprepeat
    if %wp.tab == 47 { .timerwplayer -o 0 180 wprandom }
    if !$insong { wprandom }
  }
  elseif $did(wpmain,6).state == 0 {
    .disable #wprandom
    .disable #wprepeat
    .timerwplayer off
  }

  if $did(wpmain,35).state == 1 {
    wpsilent
  }
}

alias -l wprepeat {
  if $did(wpmain,11).state == 1 {
    did -u wpmain 6
    .disable #wprandom
    .enable #wprepeat

  }
  elseif $did(wpmain,11).state == 0 {
    .disable #wprepeat
  }
}

#wprepeat off
on *:mp3end:{
  if $did(wpmain,11).state == 1 {
    splay $filename 
    wp.spam
  }
}
on *:waveend:{
  if $did(wpmain,11).state == 1 {
    splay $filename
    wp.spam
  }
}

#wprepeat end
#wprandom on

on *:mp3end:{
  if $did(wpmain,6).state == 1 {
    wprandom  
  }
}
on *:waveend:{
  if $did(wpmain,6).state == 1 {
    wprandom  
  }
} 
#wprandom end
alias -l wprandom {
  if %wp.tab == 47 { 
    set %wp.playsong $did( wpmain , %wp.tab , $rand( 1 , $did(wpmain,%wp.tab).lines ).text )
    did -c wpmain %wp.tab $didwm( wpmain , %wp.tab , %wp.playsong ) 
    wp.spam 
    halt 
  }
  if $dialog(wpmain) { 
    splay stop
    set %wp.play $did( wpmain , %wp.tab , $rand( 1 , $did(wpmain,%wp.tab).lines ).text )
    var %i 0
    while %i < %wp.mp3dirtotal {
      inc %i
      if $findfile( $eval( % $+ wp.mp3dir $+ %i , 3 ) , %wp.play , 1 ) {
        set %wp.playsong $findfile($eval( % $+ wp.mp3dir $+ %i , 3 ) , %wp.play ,1 )
      }
    }
    var %i 0
    while %i < %wp.wavdirtotal {
      inc %i
      if $findfile( $eval( % $+ wp.wavdir $+ %i , 3 ) , %wp.play , 1 ) {
        set %wp.playsong $findfile($eval( % $+ wp.wavdir $+ %i , 3 ) , %wp.play ,1 )
      }
    }
    var %i 0
    while %i < %wp.wmadirtotal {
      inc %i
      if $findfile( $eval( % $+ wp.wmadir $+ %i , 3 ) , %wp.play , 1 ) {
        set %wp.playsong $findfile($eval( % $+ wp.wmadir $+ %i , 3 ) , %wp.play ,1 )
      }
    }
    did -c wpmain %wp.tab $didwm( wpmain , %wp.tab , $nopath( %wp.playsong ) ) 
    if $did(wpmain,35).state == 0 {
      .splay %wp.playsong
    }
    wp.spam
  }
}
alias -l wpdofind {
  set %wp.dowhat $wpremchar($did(wpmain,13))
  var %i 0
  while %i < $numtok(%wp.chan,230) {
    inc %i
    if $did(wpmain,24).state == 0 {
      msg $gettok(%wp.chan,%i,230) @find %wp.dowhat
    }
    else ctcp $gettok(%wp.chan,%i,230) SEARCH $encode(%wp.dowhat)
  }
}

alias -l wpsearch { 
  set %wp.smp3 $did(wpmain,13)
  did -r wpmain 15 
  var %num 0
  while %num < %wp.mp3dirtotal {
    inc %num
    set %wpmp3 $findfile( $eval(% $+ wp.mp3dir $+ %num,3), $wpremchar(%wp.smp3) $+ .mp3,0,1,did -a wpmain 15 $nopath($1-) )
    unset %wpmp3
  }
  var %num 0
  while %num < %wp.wavdirtotal {
    inc %num
    set %wpmp3 $findfile( $eval(% $+ wp.wavdir $+ %num,3), $wpremchar(%wp.smp3) $+ .wav,0,1,did -a wpmain 15 $nopath($1-) )
    unset %wpmp3
  }
  var %num 0
  while %num < %wp.zipdirtotal {
    inc %num
    set %wpmp3 $findfile( $eval(% $+ wp.zipdir $+ %num,3), $wpremchar(%wp.smp3) $+ .zip,0,1,did -a wpmain 15 $nopath($1-) )
    unset %wpmp3
  }
  var %num 0
  while %num < %wp.wmadirtotal {
    inc %num
    set %wpmp3 $findfile( $eval(% $+ wp.wmadir $+ %num,3), $wpremchar(%wp.smp3) $+ .wma,0,1,did -a wpmain 15 $nopath($1-) )
    unset %wpmp3
  }
  if $did(wpmain,15,1) {
    did -t wpmain 2
  }
  else did -t wpmain 67
}

alias -l wpremchar { 
  var %cleanup $strip($+( * , $replace( $1- , $chr(32) , $chr(42) , $chr(42) , $chr(42) , $chr(95) , $chr(42) , $chr(45) , $chr(42) , $chr(46) , $chr(42) , $chr(40) , $chr(42) , $chr(41) , $chr(42) , $chr(39) , $chr(42) , @find , $chr(42) , @locator , $chr(42) , $chr(34) , $chr(42) , @show , $chr(42) , $chr(38) , $chr(42) , $chr(124) , $chr(42) ) , * ))
  var %i 0
  while %i < $len(%cleanup) {
    inc %i
    var %cleanup $replace( %cleanup , ** , * ) 
  }
  return %cleanup
}

alias -l wpabout {
  if $exists($scriptdirwpabout.exe) {
    .run $scriptdirwpabout.exe
  }
  else .run http://the-kid.org/wpabout.html
}
alias -l wp.grabsong {
  if ( $me ison $gettok( $did(wpmain,7).seltext , 1 , 32 ) ) {
    while ( $did(wpmain,7).sel ) {
      if $did(wpmain,24).state == 0 {
        msg $did(wpmain,7).seltext 
        did -d wpmain 7 $did(wpmain,7).sel
      }
      else {
        set %wp.stealthchangrab $did(wpmain,7).seltext
        .ctcp $right($gettok(%wp.stealthchangrab,2,32),-1) GET $gettok(%wp.stealthchangrab,3-,32)
        did -d wpmain 7 $did(wpmain,7).sel
        var %i 0
        while %i < %wp.chantotal {
          inc %i
          echo $gettok(%wp.chan,%i,230) <<<PRIVATE>>> Stealth request for $gettok(%wp.stealthchangrab,3-,32) Sent to $right($gettok(%wp.stealthchangrab,2,32),-1)
        }
      }
    }
  }
  else {
    echo 4 -a <<<PRIVATE>>> You are no longer in1 $gettok( $did(wpmain,7).seltext , 1 , 32 ) 4or1 $gettok( $did(wpmain,7).seltext , 1 , 32 ) 4is on another network. 
    echo 4 -a <<<PRIVATE>>> WP MP3 Player is currently operating in the1 $network 4network.
  }
}
alias -l wp.playsong {
  if %wp.tab == 47 { 
    set %wp.playsong $did(wpmain,%wp.tab).seltext
    wp.spam 
    halt 
  }
  if $did(wpmain,%wp.tab).seltext {
    splay stop
    var %num 0
    while %num < %wp.mp3dirtotal {
      inc %num
      if $findfile( $eval(% $+ wp.mp3dir $+ %num,2) , $did(wpmain,%wp.tab).seltext , 1 ) {
        set %wp.playsong $findfile( $eval(% $+ wp.mp3dir $+ %num,2) , $did(wpmain,%wp.tab).seltext , 1 )
        goto playsong
      }
    }
    var %num 0
    while %num < %wp.wavdirtotal {
      inc %num
      if $findfile( $eval(% $+ wp.wavdir $+ %num,2) , $did(wpmain,%wp.tab).seltext , 1 ) {
        set %wp.playsong $findfile( $eval(% $+ wp.wavdir $+ %num,2) , $did(wpmain,%wp.tab).seltext , 1 )
        goto playsong
      }
    }
    var %num 0
    while %num < %wp.zipdirtotal {
      inc %num
      if $findfile( $eval(% $+ wp.zipdir $+ %num,2) , $did(wpmain,%wp.tab).seltext , 1 ) {
        set %wp.playsong $findfile( $eval(% $+ wp.zipdir $+ %num,2) , $did(wpmain,%wp.tab).seltext , 1 )
        goto playsong
      }
    }
    var %num 0
    while %num < %wp.wmadirtotal {
      inc %num
      if $findfile( $eval(% $+ wp.wmadir $+ %num,2) , $did(wpmain,%wp.tab).seltext , 1 ) {
        set %wp.playsong $findfile( $eval(% $+ wp.wmadir $+ %num,2) , $did(wpmain,%wp.tab).seltext , 1 )
        goto playsong
      }
    }
    :playsong
    if $did(wpmain,35).state == 0 {
      .splay %wp.playsong
    }
    wp.spam
    return %wp.playsong
  }
}

alias -l wpmessages {
  set %wp.messfile $$sfile($scriptdir,Select Play Messages File)
}
alias -l wp.message {
  set %wp.message $read(%wp.messfile)
  return %wp.message
}

alias -l wpslots {
  if $did(wpmain,33).state == 1 {
    wpshowslots
    .timerwpslotshow -o 0 600 wpshowslots 
  }
  else .timerwpslotshow off
}

alias -l wpshowslots {
  if $server {
    if ( $calc( %wp.slots - $send(0) ) > 0 ) {
      set %wp.slottime NOW
    }
    else set %wp.slottime 2m
    var %i 0
    while %i < %wp.chantotal {
      inc %i
      if ( $gettok(%wp.chan,%i,230) != Status Window )  {
        .ctcp $gettok(%wp.chan,%i,230) SLOTS %wp.slots $calc( %wp.slots - $send(0) ) %wp.slottime 0 999 0 %wp.listfiles %wp.totfilesize 0 %wp.listtime2 $uptime(server,3) WP-MP3-Player 
      }
    }
  }
}

alias -l wp.spam {
  .timerwp-player -o 0 1 wp-player
  did -c wpmain 66 0
  if $server {
    if $did(wpmain,16).state == 1 {
      var %i 0
      while %i < %wp.chantotal {
        inc %i
        if ( $gettok(%wp.chan,%i,230) != Status Window )  {
          if ( $right(%wp.playsong,3) == wav ) {
            .ctcp $gettok(%wp.chan,%i,230) WAV $nopath(%wp.playsong)
            msg $gettok(%wp.chan,%i,230) 13,1Type8 ! $+ $me $nopath(%wp.playsong) 13To get this8 $bytes($file( %wp.playsong ).size,m).suf 13wav file. 8,8 13,13 0,1 $wp.message 13,13 8,8 15,1 WP MP3 Player
          }
          elseif ( $right(%wp.playsong,3) == mp3 ) {
            .ctcp $gettok(%wp.chan,%i,230) MP3 $nopath(%wp.playsong)
            msg $gettok(%wp.chan,%i,230) 13,1Type8 ! $+ $me $nopath(%wp.playsong) 13To get this8 $bytes($file( %wp.playsong ).size,m).suf 13mp3 file. 8,8 13,13 0,1 $wp.message 13,13 8,8 15,1 WP MP3 Player
          }
          elseif ( $right(%wp.playsong,3) == zip ) {
            .ctcp $gettok(%wp.chan,%i,230) zip $nopath(%wp.playsong)
            msg $gettok(%wp.chan,%i,230) 13,1Type8 ! $+ $me $nopath(%wp.playsong) 13To get this8 $bytes($file( %wp.playsong ).size,m).suf 13zip file. 8,8 13,13 0,1 $wp.message 13,13 8,8 15,1 WP MP3 Player
          }
          elseif ( $right(%wp.playsong,3) == wma ) {
            .ctcp $gettok(%wp.chan,%i,230) WMA $nopath(%wp.playsong)
            msg $gettok(%wp.chan,%i,230) 13,1Type8 ! $+ $me $nopath(%wp.playsong) 13To get this8 $bytes($file( %wp.playsong ).size,m).suf 13wma file. 8,8 13,13 0,1 $wp.message 13,13 8,8 15,1 WP MP3 Player
          }
        }
        elseif ( $gettok(%wp.chan,%i,230) == Status Window )  {
          echo $gettok(%wp.chan,%i,230) <<<PRIVATE>>> Now Playing $nopath(%wp.playsong)
        }
        else halt
      }
    }
    elseif $did(wpmain,16).state == 0 {
      var %i 0
      while %i < %wp.chantotal {
        inc %i
        echo $gettok(%wp.chan,%i,230) <<<PRIVATE>>> Now Playing $nopath(%wp.playsong)
      }
    }
  }
}

ctcp *:sound: {
  if ( $dialog(wpmain) ) && ( $right($2,4) == .wav ) && ( !$didwm( wpmain , 10 , $2 ) ) && ( $cid == %wp.cid ) { 
    did -i wpmain 7 1 $chan ! $+ $nick $2 
  }
  elseif ( $dialog(wpmain) ) && ( $right($2-,4) == .wav ) && ( !$didwm( wpmain , 10 , $2- ) ) && ( $cid == %wp.cid ) { 
    did -i wpmain 7 1 $chan ! $+ $nick $2- 
  }
  elseif ( $dialog(wpmain) ) && ( $right($2-,4) == .mp3 ) && ( !$didwm( wpmain , 1 , $2- ) ) && ( $cid == %wp.cid ) { 
    did -i wpmain 7 1 $chan ! $+ $nick $2- 
  }
  haltdef
}

ctcp *:*mp3: {
  if ( $dialog(wpmain) ) && ( !$didwm( wpmain , 1 , $2- ) ) && ( $cid == %wp.cid ) { 
    did -i wpmain 7 1 $chan ! $+ $nick $2- 
  }
  haltdef
}
ctcp *:*wma: {
  if ( $dialog(wpmain) ) && ( !$didwm( wpmain , 49 , $2- ) ) && ( $cid == %wp.cid ) { 
    did -i wpmain 7 1 $chan ! $+ $nick $2- 
  }
  haltdef
}
ctcp *:SLOTS: {
  haltdef
}


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;        W-P-Listmaker          ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias -l wpmakelist {
  if $did(wpmain,41).state == 1 { set %wp.how F }
  else set %wp.how S
  if $did(wpmain,42).state == 1 { set %wp.listmp3s $true }
  else set %wp.listmp3s $false
  if $did(wpmain,43).state == 1 { set %wp.listwavs $true }
  else set %wp.listwavs $false
  if $did(wpmain,51).state == 1 { set %wp.listzips $true }
  else set %wp.listzips $false
  if $did(wpmain,62).state == 1 { set %wp.listwmas $true }
  else set %wp.listwmas $false
  if $did(wpmain,44).state == 1 { 
    set %wp.addtext $true 
    set %wp.disctot $did(wpmain,45).lines
    var %i 0
    while %i < %wp.disctot {
      inc %i
      set % $+ wp.disclaimer $+ %i $did(wpmain,45,%i).text 
    }
    if ( $eval( % $+ wp.disclaimer $+ %wp.disctot , 3 ) == $null ) { 
      unset % $+ wp.disclaimer $+ %wp.disctot 
      dec %wp.disctot
    }
  }
  else set %wp.addtext $false
  if $did(wpmain,26).state == 1 { set %wp.sizes Y }
  else set %wp.sizes N
  if $did(wpmain,27).state == 1 { set %wp.bitrate Y }
  else set %wp.bitrate N
  wp.makemusiclist
}

alias -l wp.makemusiclist {
  if %wp.list != $null { .remove %wp.list }
  unset %wp.totwav %wp.totmp3 %wp.totzip %wp.totwma
  set %wp.listnick $mkfn($did(wpmain,34) ) 
  window -Ck0dharo @wp-Listmaking-in-progress -1 -1 800 100
  set %wp.listfiles 0  
  set %wp.listtime $ctime
  set %wp.num 0
  inc %wp.num
  set %wp.list " $+ $scriptdir $+ %wp.listnick $+ -[ $+ $Replace($adate,/,-) $+ ]-wp.txt $+ "
  if %wp.num == 1 {
    write -c %wp.list -------------------------------------------------
    write -i %wp.list -------------------------------------------------
    write -i %wp.list ----=====<        W-P Listmaker        >=====----
    write -i %wp.list ------------------------------------------------- 
    write -i %wp.list ------------------------------------------------- 
    write -i %wp.list
  }
  if %wp.addtext == $true { 
    var %i 0
    while %i < %wp.disctot {
      inc %i
      write -i %wp.list $eval(% $+ wp.disclaimer $+ %i , 3 )
    }
  }
  set %wp.totfilesize 0
  if %wp.how == F {
    if %wp.listmp3s == $true { wp.makemp3list }
    if %wp.listwavs == $true { wp.makewavlist }
    if %wp.listzips == $true { wp.makeziplist }
    if %wp.listwmas == $true { wp.makewmalist }
  }
  elseif %wp.how == S {
    if %wp.listmp3s == $true { wp.makemp3list.s }
    if %wp.listwavs == $true { wp.makewavlist.s }
    if %wp.listzips == $true { wp.makeziplist.s }
    if %wp.listwmas == $true { wp.makewmalist.s }

    set %wp.listfiles $calc( %wp.totwav + %wp.totmp3 + %wp.totzip + %wp.totwma )
  }
  set %wp.listtime2 $ctime
  set %wp.listsecs $eval( $calc( %wp.listtime2 - %wp.listtime ) , 2 )
  write %wp.list  
  write %wp.list ----=====<        W-P Listmaker        >=====----
  write %wp.list   
  write %wp.list Total %wp.listfiles files.
  write %wp.list List made in $eval( $calc( %wp.listtime2 - %wp.listtime ) , 3 ) second(s). ( $int($calc( %wp.listfiles / %wp.listsecs )) files per second )
  write %wp.list   
  set %wp.musiclistmakerdate $time(h:nntt dddd ddoo mmmm yyyy )
  write -il7 %wp.list Total %wp.listfiles files. ( $bytes(%wp.totfilesize , m).suf total )
  write -il8 %wp.list List made in $eval( $calc( %wp.listtime2 - %wp.listtime ) , 3 ) second(s). ( $int($calc( %wp.listfiles / %wp.listsecs )) files per second )
  write -il9 %wp.list Updated at %wp.musiclistmakerdate
  write -il10 %wp.list
  echo @wp-listmaking-in-progress 12,15List saved as4 %wp.list 12<-- Double click to view
  echo @wp-listmaking-in-progress 12,15List took4 $eval( $calc( %wp.listtime2 - %wp.listtime ) , 2 ) 12second(s) to make
  window -u @wp-Listmaking-in-progress 
}

alias -l wp.makemp3list {
  set %wp.lmdir $eval( % $+ wp.mp3dir $+ %wp.num , 3 ) 
  wp.loadmp3list
}
alias -l wp.loadmp3list {
  window -hnls @billy
  if %wp.sizes == Y && %wp.bitrate == N {
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $bytes($file($1-).size,m).suf )
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , inc %wp.totfilesize $file($1-).size )
  }
  elseif %wp.sizes == N && %wp.bitrate == N {
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , aline @billy ! $+ %wp.listnick $nopath($1-) )
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , inc %wp.totfilesize $file($1-).size )
  }
  elseif %wp.sizes == Y && %wp.bitrate == Y {
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $bytes($file($1-).size,m).suf $sound($1-).bitrate $+ / $+ $calc($sound($1-).sample / 1000 ) $+ / $+ $sound($1-).mode )
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , inc %wp.totfilesize $file($1-).size )
  }
  elseif %wp.sizes == N && %wp.bitrate == Y {
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $sound($1-).bitrate $+ / $+ $calc($sound($1-).sample / 1000 ) $+ / $+ $sound($1-).mode )
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , inc %wp.totfilesize $file($1-).size )
  }
  unset %billy
  set %wp.totmp3s $line(@billy,0)
  if %wp.totmp3s != 0 {
    write -i %wp.list
    write -i %wp.list $str(=,$len(Total %wp.totmp3s mp3 Files in %wp.lmdir))
    write -i %wp.list Total %wp.totmp3s mp3 Files in %wp.lmdir 
    write -i %wp.list $str(=,$len(Total %wp.totmp3s mp3 Files in %wp.lmdir))
    filter -wf @billy %wp.list 
  }
  close -@ @billy
  inc %wp.totmp3 %wp.totmp3s
  inc %wp.listfiles %wp.totmp3s
  if %wp.num < %wp.mp3dirtotal { inc %wp.num | wp.makemp3list }
  else {
    set %wp.num 0
    return
  }
}
alias -l wp.makewavlist {
  set %wp.lmdir $eval( % $+ wp.wavdir $+ %wp.num , 3 ) 
  wp.loadwavlist
}
alias -l wp.loadwavlist {
  window -hnls @billy
  if %wp.sizes == Y  {
    set %billy $findfile($eval( % $+ wp.wavdir $+ %wp.num , 3 ), *.wav, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $bytes($file($1-).size,m).suf )
    set %billy $findfile($eval( % $+ wp.wavdir $+ %wp.num , 3 ), *.wav, * , inc %wp.totfilesize $file($1-).size )
  }
  else {
    set %billy $findfile($eval( % $+ wp.wavdir $+ %wp.num , 3 ), *.wav, * , aline @billy ! $+ %wp.listnick $nopath($1-) )
    set %billy $findfile($eval( % $+ wp.wavdir $+ %wp.num , 3 ), *.wav, * , inc %wp.totfilesize $file($1-).size )
  }
  unset %billy
  set %wp.totwavs $line(@billy,0)
  if %wp.totwavs != 0 { 
    write -i %wp.list
    write -i %wp.list $str(=,$len(Total %wp.totwavs wav Files in %wp.lmdir))
    write -i %wp.list Total %wp.totwavs wav Files in %wp.lmdir 
    write -i %wp.list $str(=,$len(Total %wp.totwavs wav Files in %wp.lmdir))
    filter -wf @billy %wp.list 
  }
  close -@ @billy
  inc %wp.totwav %wp.totwavs
  inc %wp.listfiles %wp.totwavs
  if %wp.num < %wp.wavdirtotal { inc %wp.num | wp.makewavlist }
  else {
    set %wp.num 0
    return
  }
}
alias -l wp.makeziplist {
  set %wp.lmdir $eval( % $+ wp.zipdir $+ %wp.num , 3 ) 
  wp.loadziplist
}
alias -l wp.loadziplist {
  window -hnls @billy
  if %wp.sizes == Y {
    set %billy $findfile($eval( % $+ wp.zipdir $+ %wp.num , 3 ), *.zip, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $bytes($file($1-).size,m).suf )
    set %billy $findfile($eval( % $+ wp.zipdir $+ %wp.num , 3 ), *.zip, * , inc %wp.totfilesize $file($1-).size )
  }
  else {
    set %billy $findfile($eval( % $+ wp.zipdir $+ %wp.num , 3 ), *.zip, * , aline @billy ! $+ %wp.listnick $nopath($1-) )
    set %billy $findfile($eval( % $+ wp.zipdir $+ %wp.num , 3 ), *.zip, * , inc %wp.totfilesize $file($1-).size )
  }
  unset %billy
  set %wp.totzips $line(@billy,0)
  if %wp.totzips != 0 {
    write -i %wp.list
    write -i %wp.list $str(=,$len(Total %wp.totzips zip Files in %wp.lmdir))
    write -i %wp.list Total %wp.totzips zip Files in %wp.lmdir 
    write -i %wp.list $str(=,$len(Total %wp.totzips zip Files in %wp.lmdir))
    filter -wf @billy %wp.list 
  }
  close -@ @billy
  inc %wp.totzip %wp.totzips
  inc %wp.listfiles %wp.totzips
  if %wp.num < %wp.zipdirtotal { inc %wp.num | wp.makeziplist }
  else {
    set %wp.num 0
    return
  }
}
alias -l wp.makewmalist {
  set %wp.lmdir $eval( % $+ wp.wmadir $+ %wp.num , 3 ) 
  wp.loadwmalist
}
alias -l wp.loadwmalist {
  window -hnls @billy
  if %wp.sizes == Y {
    set %billy $findfile($eval( % $+ wp.wmadir $+ %wp.num , 3 ), *.wma, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $bytes($file($1-).size,m).suf )
    set %billy $findfile($eval( % $+ wp.wmadir $+ %wp.num , 3 ), *.wma, * , inc %wp.totfilesize $file($1-).size )
  }
  else {
    set %billy $findfile($eval( % $+ wp.wmadir $+ %wp.num , 3 ), *.wma, * , aline @billy ! $+ %wp.listnick $nopath($1-) )
    set %billy $findfile($eval( % $+ wp.wmadir $+ %wp.num , 3 ), *.wma, * , inc %wp.totfilesize $file($1-).size )
  }
  unset %billy
  set %wp.totwmas $line(@billy,0)
  if %wp.totwmas != 0 {
    write -i %wp.list
    write -i %wp.list $str(=,$len(Total %wp.totwmas wma Files in %wp.lmdir))
    write -i %wp.list Total %wp.totzips wma Files in %wp.lmdir 
    write -i %wp.list $str(=,$len(Total %wp.totwmas wma Files in %wp.lmdir))
    filter -wf @billy %wp.list 
  }
  close -@ @billy
  inc %wp.totwma %wp.totwmas
  inc %wp.listfiles %wp.totwmas
  if %wp.num < %wp.wmadirtotal { inc %wp.num | wp.makewmalist }
  else {
    set %wp.num 0
    return
  }
}

alias -l wp.makemp3list.s {
  set %wp.lmdir $eval( % $+ wp.mp3dir $+ %wp.num , 3 ) 
  window -hnls @billy
  if %wp.sizes == Y && %wp.bitrate == N {
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $bytes($file($1-).size,m).suf )
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , inc %wp.totfilesize $file($1-).size )
  }
  elseif %wp.sizes == N && %wp.bitrate == N {
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , aline @billy ! $+ %wp.listnick $nopath($1-) )
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , inc %wp.totfilesize $file($1-).size )
  }
  elseif %wp.sizes == Y && %wp.bitrate == Y {
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $bytes($file($1-).size,m).suf $sound($1-).bitrate $+ / $+ $calc($sound($1-).sample / 1000 ) $+ / $+ $sound($1-).mode )
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , inc %wp.totfilesize $file($1-).size )
  }
  elseif %wp.sizes == N && %wp.bitrate == Y {
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $sound($1-).bitrate $+ / $+ $calc($sound($1-).sample / 1000 ) $+ / $+ $sound($1-).mode )
    set %billy $findfile($eval( % $+ wp.mp3dir $+ %wp.num , 3 ), *.mp3, * , inc %wp.totfilesize $file($1-).size )
  }
  unset %billy
  set %wp.totmp3 $line(@billy,0)
  wp.loadmp3list.s
}
alias -l wp.loadmp3list.s {
  if %wp.num < %wp.mp3dirtotal { inc %wp.num | wp.makemp3list.s | return }
  else {
    set %wp.totmp3 $line(@billy,0)
  }
  write -i %wp.list
  write -i %wp.list $str(=,$len(Total %wp.totmp3 mp3 Files))
  write -i %wp.list Total %wp.totmp3 mp3 Files
  write -i %wp.list $str(=,$len(Total %wp.totmp3 mp3 Files))
  filter -wf @billy %wp.list 
  close -@ @billy
  set %wp.num 1
}

alias -l wp.makewavlist.s {
  set %wp.lmdir $eval( % $+ wp.wavdir $+ %wp.num , 3 ) 
  window -hnls @billy
  if %wp.sizes == Y {
    set %billy $findfile($eval( % $+ wp.wavdir $+ %wp.num , 3 ), *.wav, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $bytes($file($1-).size,m).suf )
    set %billy $findfile($eval( % $+ wp.wavdir $+ %wp.num , 3 ), *.wav, * , inc %wp.totfilesize $file($1-).size )
  }
  else {
    set %billy $findfile($eval( % $+ wp.wavdir $+ %wp.num , 3 ), *.wav, * , aline @billy ! $+ %wp.listnick $nopath($1-) )
    set %billy $findfile($eval( % $+ wp.wavdir $+ %wp.num , 3 ), *.wav, * , inc %wp.totfilesize $file($1-).size )
  }
  unset %billy
  set %wp.totwav $line(@billy,0)
  wp.loadwavlist.s
}
alias -l wp.loadwavlist.s {
  if %wp.num < %wp.wavdirtotal { inc %wp.num | wp.makewavlist.s | return }
  else {
    set %wp.totwav $line(@billy,0)
  }
  write -i %wp.list
  write -i %wp.list $str(=,$len(Total %wp.totwav wav Files))
  write -i %wp.list Total %wp.totwav wav Files
  write -i %wp.list $str(=,$len(Total %wp.totwav wav Files))
  filter -wf @billy %wp.list 
  close -@ @billy
  set %wp.num 1
}
alias -l wp.makewmalist.s {
  set %wp.lmdir $eval( % $+ wp.wmadir $+ %wp.num , 3 ) 
  window -hnls @billy
  if %wp.sizes == Y {
    set %billy $findfile($eval( % $+ wp.wmadir $+ %wp.num , 3 ), *.wma, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $bytes($file($1-).size,m).suf )
    set %billy $findfile($eval( % $+ wp.wmadir $+ %wp.num , 3 ), *.wma, * , inc %wp.totfilesize $file($1-).size )
  }
  else {
    set %billy $findfile($eval( % $+ wp.wmadir $+ %wp.num , 3 ), *.wma, * , aline @billy ! $+ %wp.listnick $nopath($1-) )
    set %billy $findfile($eval( % $+ wp.wmadir $+ %wp.num , 3 ), *.wma, * , inc %wp.totfilesize $file($1-).size )
  }
  unset %billy
  set %wp.totwma $line(@billy,0)
  wp.loadwmalist.s
}
alias -l wp.loadwmalist.s {
  if %wp.num < %wp.wmadirtotal { inc %wp.num | wp.makewmalist.s | return }
  else {
    set %wp.totwma $line(@billy,0)
  }
  write -i %wp.list
  write -i %wp.list $str(=,$len(Total %wp.totwma wma Files))
  write -i %wp.list Total %wp.totwma wma Files
  write -i %wp.list $str(=,$len(Total %wp.totwma wma Files))
  filter -wf @billy %wp.list 
  close -@ @billy
  set %wp.num 1
}
alias -l wp.makeziplist.s {
  set %wp.lmdir $eval( % $+ wp.zipdir $+ %wp.num , 3 ) 
  window -hnls @billy
  if %wp.sizes == Y {
    set %billy $findfile($eval( % $+ wp.zipdir $+ %wp.num , 3 ), *.zip, * , aline @billy ! $+ %wp.listnick $nopath($1-) $chr(9) $chr(9) ::INFO:: $bytes($file($1-).size,m).suf )
    set %billy $findfile($eval( % $+ wp.zipdir $+ %wp.num , 3 ), *.zip, * , inc %wp.totfilesize $file($1-).size )
  }
  else {
    set %billy $findfile($eval( % $+ wp.zipdir $+ %wp.num , 3 ), *.zip, * , aline @billy ! $+ %wp.listnick $nopath($1-) )
    set %billy $findfile($eval( % $+ wp.zipdir $+ %wp.num , 3 ), *.zip, * , inc %wp.totfilesize $file($1-).size )
  }
  unset %billy
  set %wp.totzip $line(@billy,0)
  wp.loadziplist.s
}
alias -l wp.loadziplist.s {
  if %wp.num < %wp.zipdirtotal { inc %wp.num | wp.makeziplist.s | return }
  else {
    set %wp.totzip $line(@billy,0)
  }
  write -i %wp.list
  write -i %wp.list $str(=,$len(Total %wp.totzip zip Files))
  write -i %wp.list Total %wp.totzip zip Files
  write -i %wp.list $str(=,$len(Total %wp.totzip zip Files))
  filter -wf @billy %wp.list 
  close -@ @billy
  set %wp.num 1
}

on ^*:HOTLINK:*:@wp-listmaking-in-progress:{
  if ( $1 isin %wp.list ) { return }
  else halt
}
on 1:HOTLINK:*:@wp-listmaking-in-progress:run %wp.list

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                   Renamer                   ;            Added 06 June 2006           ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  If this doesnt work on your machine, or
;;;;;;;;;;   Script by billythekid   ;;;;;;;;;;  you have any questions, please don't
;;;;;;;;;; Find me in #IRCWavPlayers ;;;;;;;;;;  hesitate to get in touch.
;;;;;;;;;;  On PhaZeNet and DALnet   ;;;;;;;;;;  All my scripts can be found at 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  http://billy.the-kid.org

;;;;;;;;;
;Dialogs;
;;;;;;;;;

dialog -l btkmp3 {
  title "btk renamer mp3 select"
  size -1 -1 405 340
  option dbu notheme
  list 1, 5 5 395 310, sort size extsel
  text Please select files you wish renamed. These will be done one at a time so don't pick too many! To select more than one file hold down ctrl and click(or drag over all files req'd), 2, 5 320 235 15
  button "Rename Selection", 3, 350 317 50 20
}
dialog -l btkrename {
  title "btk-renamer"
  size -1 -1 530 140
  option dbu notheme
  box "Rename Settings (This will not affect the ID3 tags, only the filename)", 1, 270 5 255 130
  text "Preview :", 2, 275 103 23 10
  text %btk.preview, 3, 300 103 220 15
  check "Artist", 4, 280 25 30 10, disable left
  check "Album", 5, 280 35 30 10, disable left
  check "Track", 6, 280 45 30 10, disable left
  check "Title", 7, 280 55 30 10, disable left
  check "Year", 8, 280 65 30 10, disable left
  check "Genre", 9, 280 75 30 10, disable left
  text "Use Original", 16, 292 15 29 8
  edit %btksetup, 18, 275 90 205 12, disable
  box "", 19, 265 5 1 110
  box "Current Info (From ID3 tags)", 20, 5 5 255 110
  text "Current Name:", 21, 10 100 36 10
  text $nopath(%btk.origfile), 22, 50 100 205 10
  text $nofile(%btk.origfile), 23, 50 90 205 8, hide
  text "Artist", 24, 10 25 25 8
  text "Album", 25, 10 35 25 8
  text "Track", 26, 10 45 25 8
  text "Title", 27, 10 55 25 8
  text "Year", 28, 10 65 25 8
  text "Genre", 29, 10 75 25 8
  edit "", 30, 315 25 205 10, disable
  edit "", 31, 315 35 205 10, disable
  edit "", 32, 315 45 205 10, disable
  edit "", 33, 315 55 205 10, disable
  edit "", 34, 315 65 205 10, disable
  edit "", 35, 315 75 205 10, disable
  edit "Artist Name", 36, 40 25 215 10, disable
  edit "Album Name", 37, 40 35 215 10, disable
  edit "Track Number", 38, 40 45 215 10, disable
  edit "Track Name", 39, 40 55 215 10, disable
  edit "Year Recorded", 40, 40 65 215 10, disable
  edit "Genre/Style", 41, 40 75 215 10, disable
  button "Rename", 43, 485 120 37 12, disable
  button "Preview In Status", 10, 300 120 50 12, disable
  button "Cancel", 11, 445 120 37 12, disable
  button "Play File", 12, 5 120 37 12, disable
  button "Delete File", 13, 45 120 37 12, disable
  button "Default", 14, 480 90 37 10
  menu "Get Files", 44
  item "Get Files", 45, 44
}

;;;;;;;
;Menus;
;;;;;;;

Menu Status {
  MP3 Renamer:btkopen
}

;;;;;;;;
;Events;
;;;;;;;;

on 1:dialog:btkrename:close:0:{
  .remove btktemp.txt
}
on 1:dialog:btkrename:edit:*:{
  btkrefresh
}
on 1:dialog:btkrename:sclick:*:{
  if $did == 43 { btkrename }
  elseif ( ( 4 <= $did ) && ( $did <= 9 ) ) { 
    btkenabling 
  }
  elseif $did == 10 { btkpreview }
  elseif $did == 11 { btkimport }
  elseif $did == 12 { splay $qt(%btk.origfile) }
  elseif $did == 13 { btkdelete }
  elseif $did == 14 { 
    set %btksetup [&genre]&artist_&album(&year)_Track-&track---&title
    did -o btkrename 18 1 %btksetup 
  } 
}
on 1:dialog:btkrename:menu:45:{
  if $dialog(wpmain) {
    dialog -x btkrename
    dialog -md btkrename btkrename
    dialog -md btkmp3 btkmp3 
  }
  else {
    var %i 0
    while %i < 45 {
      inc %i
      did -h btkrename %i
    }
    did -r btkrename 23
    did -a btkrename 23 WP MP3 Player is not open, Please reopen WP MP3 Player and try again!
    did -v btkrename 23
  }
}
on 1:dialog:btkmp3:sclick:*:{
  if $did == 3 {
    btkpullmp3s 
    btkimport
  }
}
on 1:dialog:btkmp3:init:0:{
  wp.refresh
  var %i 0
  while %i < $did(wpmain,1).lines {
    inc %i
    did -a btkmp3 1 $did(wpmain,1,%i)
  }
}

;;;;;;;;;
;Aliases;
;;;;;;;;;

Alias -l btkopen {
  if !%btksetup { set %btksetup [&genre]&artist_&album(&year)_Track-&track---&title }
  if !$dialog(btkrename) {
    unset %btk.*
    dialog -md btkrename btkrename
  }
  else dialog -v btkrename
}
alias -l btkrename {
  .reseterror
  .rename $qt(%btk.origfile) $qt($did(btkrename,23) $+ %btk.manpreview $+ .mp3)
  if $error { 
    var %i == $input($error , wo, btk renamer)
  }
  else {
    echo -s 15,12<<9  Rename  15>>8 Folder : $did(btkrename,23)
    echo -s 15,12<<9Successful15>>8 $qt($nopath(%btk.origfile)) to %btk.manpreview $+ .mp3
    btkimport
  }
}
alias -l btkpreview {
  echo -s 15,12<<Preview!>>8 Folder : $did(btkrename,23)
  echo -s 15,12<<Preview!>>8 $qt($nopath(%btk.origfile)) to %btk.manpreview $+ .mp3
  echo -s 15,12<<Preview!>>8 If you wish to rename the file click Rename
  echo -s 15,12<<Preview!>>8 Otherwise click Cancel for the next file.
}
Alias -l btkpullmp3s {
  write -c btktemp.txt
  while ( $did(btkmp3,1).sel ) {
    write btktemp.txt $did(btkmp3,1).seltext
    did -d btkmp3 1 $did(btkmp3,1).sel
  }
  dialog -x btkmp3
}
Alias -l btkimport {
  if $read(btktemp.txt,1) {
    btksetvars
    did -r btkrename 30,31,32,33,34,35,36,37,38,39,40,41,3
    btkshowinfo
    did -e btkrename 4,5,6,7,8,9,30,31,32,33,34,35,18,10,11,12,13,43
  }
  else {
    did -r btkrename 30,31,32,33,34,35,36,37,38,39,40,41,3,22
    did -b btkrename 4,5,6,7,8,9,30,31,32,33,34,35,18,10,11,12,13,43
    var %i $input(No Files Selected or End of Selection,wo,btk renamer)
    wp.refresh
  } 
}
alias -l btksetvars {
  var %i 0
  while %i < %wp.mp3dirtotal {
    inc %i
    if $findfile( $eval(% $+ wp.mp3dir $+ %i , 2 ) , $read(btktemp.txt,1) , 1 ) {
      set %btk.origfile $ifmatch
    }
  }
  write -dl1 btktemp.txt
  set %btk.artist $sound(%btk.origfile).artist
  set %btk.album $sound(%btk.origfile).album
  set %btk.track $sound(%btk.origfile).track
  set %btk.title $sound(%btk.origfile).title
  set %btk.year $sound(%btk.origfile).year
  set %btk.genre $sound(%btk.origfile).genre
  set %btk.key &artist &album &track &title &year &genre
  btksetrefresh
}
alias -l btksetrefresh {
  set %btk.preview %btk.artist $+ & $+ %btk.album $+ & $+ %btk.track $+ & $+ %btk.title $+ & $+ %btk.year $+ & $+ %btk.genre 
  set %btk.manpreview $replace($did(btkrename,18),&artist,$gettok(%btk.preview,1,38),&album,$gettok(%btk.preview,2,38),&track,$gettok(%btk.preview,3,38),&title,$gettok(%btk.preview,4,38),&year,$gettok(%btk.preview,5,38),&genre,$gettok(%btk.preview,6,38))
  set %btksetup $did(btkrename,18)
}
alias -l btkrefresh {
  var %i 3
  var %o 35
  var %v 29
  while %i < 9 {
    inc %i
    inc %o 
    inc %v
    if $did(btkrename,%i).state {
      if $did(btkrename,%o) {
        did -o btkrename %v 1 $ifmatch
      }
    }
    if %v == 30 { 
      if $did(btkrename,%v) {
        set %btk.artist $ifmatch 
      }
      else set %btk.artist NoInfo
    }
    elseif %v == 31 { 
      if $did(btkrename,%v) {
        set %btk.album $ifmatch
      }
      else set %btk.album NoInfo
    }
    elseif %v == 32 { 
      if $did(btkrename,%v) {
        set %btk.track $ifmatch
      }
      else set %btk.track NoInfo
    }
    elseif %v == 33 { 
      if $did(btkrename,%v) {
        set %btk.title $ifmatch
      }
      else set %btk.title NoInfo
    }
    elseif %v == 34 { 
      if $did(btkrename,%v) {
        set %btk.year $ifmatch
      }
      else set %btk.year NoInfo
    }
    elseif %v == 35 { 
      if $did(btkrename,%v) {
        set %btk.genre $ifmatch
      }
      else set %btk.genre NoInfo
    }  
  }
  btksetrefresh
  did -r btkrename 3
  did -a btkrename 3 %btk.manpreview
}
alias -l btkshowinfo {
  did -a btkrename 22 $nopath(%btk.origfile)
  did -a btkrename 23 $nofile(%btk.origfile)
  did -a btkrename 36,30 %btk.artist
  did -a btkrename 37,31 %btk.album
  did -a btkrename 38,32 %btk.track
  did -a btkrename 39,33 %btk.title
  did -a btkrename 40,34 %btk.year
  did -a btkrename 41,35 %btk.genre
  did -a btkrename 3 %btk.manpreview
}
alias -l btkenabling {
  var %i 3
  var %o 35
  var %v 29
  while %i < 9 {
    inc %i    
    inc %v
    inc %o
    if $did(btkrename,%i).state { 
      did -o btkrename %v 1 $did(btkrename,%o)
    }
  }
  btkrefresh
}
alias -l btkdelete {
  if $input(Are You Sure you want to move $nopath(%btk.origfile) to the recycle bin?,qc,btk mp3 renamer) {
    .remove -b $qt(%btk.origfile)
    echo -s 4,12Removed15 %btk.origfile 4to recycle bin.
    btkimport

  }
}