James

Menu NickList {
  -
  Whois:whois $snick($chan,1)
  -
  Kick:kick # $snick($chan,1)
  Ban:ban # $snick($chan,1) 3
  KickBan:ban -k # $snick($chan,1) 3
  -
  CTCP
  .PING:ctcp $snick($chan,1) PING
  .VERSION:ctcp $snick($chan,1) VERSION
  .TIME:ctcp $snick($chan,1) TIME
  DCC
  .CHAT:DCC CHAT $snick($chan,1)
  .SEND:DCC SEND $snick($chan,1)
  Control
  .Owner:mode $chan + $+ $str(q,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .DeOwner:mode $chan - $+ $str(q,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .Admin:mode $chan + $+ $str(a,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .DeAdmin:mode $chan - $+ $str(a,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .op:mode $chan + $+ $str(o,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .Deop:mode $chan - $+ $str(o,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .Halfop:mode $chan + $+ $str(h,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .DeHalfop:mode $chan - $+ $str(h,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .Voice:mode $chan + $+ $str(v,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  .DeVoice:mode $chan - $+ $str(v,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  -
  Owner:mode $chan + $+ $str(q,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  DeOwner:mode $chan - $+ $str(q,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  Admin:mode $chan + $+ $str(a,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  DeAdmin:mode $chan - $+ $str(a,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  op:mode $chan + $+ $str(o,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  Deop:mode $chan - $+ $str(o,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  Halfop:mode $chan + $+ $str(h,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  DeHalfop:mode $chan - $+ $str(h,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  Voice:mode $chan + $+ $str(v,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  DeVoice:mode $chan - $+ $str(v,$snick($chan,0)) $replace($snicks($chan),$chr(44),$chr(32))
  -
}

menu * {
  iPod:iPod
}
Alias iPod {
  dialog -md iPod iPod
}
dialog iPod {
  title "Jdawg's iPod"
  size -1 -1 80 100
  option dbu
  button "Ok", 1, 0 0 16 8, ok
  button "X", 2, 64 0 16 8, cancel
  text "iPod V.01", 3, 16 8 47 8, center
  list 4, 12 20 58 72, vsbar hsbar
  button "UP", 5, 0 92 20 8,
  button "Down", 6, 20 92 20 8,
  button "ImPort", 7, 40 92 20 8,
  button "ExPort", 8, 60 92 20 8,
  check , 9, 19 84 8 8,
  text "AME", 10, 27 84 11 8, center
  check , 11, 39 84 8 8,
  text "AMSG", 12, 47 84 14 8, center
  button "Play", 13, 0 84 16 8
  button "Stop", 14, 64 84 16 8
  button "Skip", 15, 0 8 16 8,
  button "Pause", 16, 63 8 17 8,
  button "Clear List", 17, 16 0 48 8, center
}
on *:DIALOG:iPod:sclick:5:{
  if (%vol < 13) {
    set %vol $calc(%vol + 1)
    vol -v $calc(%vol * 5000)
  }
}
on *:DIALOG:iPod:sclick:16:{
  splay pause
}
on *:DIALOG:iPod:sclick:14:{
  splay stop
}
on *:DIALOG:iPod:sclick:6:{
  if (%vol > 1) {
    set %vol $calc(%vol - 1)
    vol -v $calc(%vol * 5000)
  }
}
on *:DIALOG:iPod:sclick:9:{
  if ($did(11).state) {
    did -u $dname 11
  }
}
on *:DIALOG:iPod:sclick:11:{
  if ($did(9).state) {
    did -u $dname 9
  }
}

on *:DIALOG:iPod:sclick:15:{
  tokenize 32 $did(iPod,4).seltext
  inc %iPod
  splay $qt($readini(iPod.ini,Songs,%iPod))
  did -a iPod 3 $sound($qt($insong.fname)).title
  set %iPodgt1 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),1,32)
  set %iPodgt2 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),2,32)
  if ($did(iPod,9).state) {
    ipodame
  }
  if ($did(iPod,11).state) {
    ipodamsg
  }
}
ON *:MP3END:{
  inc %iPod
  splay $qt($readini(iPod.ini,Songs,$calc(%iPod + 1)))
  did -a iPod 3 $sound($qt($insong.fname)).title
  set %iPodgt1 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),1,32)
  set %iPodgt2 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),2,32)
  if ($did(iPod,9).state) {
    ipodame
  }
  if ($did(iPod,11).state) {
    ipodamsg
  }
}
on *:DIALOG:iPod:sclick:13:{
  tokenize 32 $did(iPod,4).seltext
  if ($insong.pause) {
    splay resume
    halt
  }
  splay $qt($readini(iPod.ini,Songs,$removE($gettok($did(iPod,4).seltext,1,46),»,«)))
  did -a $dname 3 $sound($qt($insong.fname)).title
  set %iPodgt1 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),1,32)
  set %iPodgt2 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),2,32)
  set %iPod $gettok($removE($gettok($did(iPod,4).seltext,1,46),»,«),1,32)
  if ($did(iPod,9).state) {
    ipodame
  }
  if ($did(iPod,11).state) {
    ipodamsg
  }
}
on *:DIALOG:iPod:sclick:7:{
  var %iPod = $$msfile(*.mp3,Select Songs to Add to Your Playlist,Add Song(s))
  var %i = 0
  while (%i < %iPod) {
    inc %i   
    writeini iPod.ini Songs $calc($ini(iPod.ini,Songs,0) + 1) $msfile(%i)
    did -a $dname 4 » $+ $calc($did(iPod,4).lines + 1) $+ « $remove($nopath($msfile(%i)),.mp3)
  }
}
on *:DIALOG:iPod:sclick:8:{
  if ($did($dname,4).seltext) {
    remini iPod.ini Songs $removE($gettok($did($dname,4).seltext,1,46),»,«)
    r_iPod
  }
}
on *:DIALOG:iPod:sclick:17:{
  did -r $dname 4
  remini iPod.ini Songs
}
alias -l r_iPod {
  did -r iPod 4
  var %iPodTime $ctime
  var %i = 0
  var %z = 0
  while (%i < $ini(iPod.ini,Songs,0)) {
    inc %i
    write $+(%iPodTime,.txt) $readini(iPod.ini,Songs,$ini(iPod.ini,Songs,%i))
  }
  remini iPod.ini Songs
  while (%z < $lines($+(%iPodTime,.txt))) {
    inc %z
    writeini iPod.ini Songs %z $read($+(%iPodTime,.txt),%z)
    did -a $dname 4 $+(»,%z,«) $remove($nopath($readini(iPod.ini,Songs,%z)),.mp3)
  }
  .remove $+(%iPodTime,.txt)
}
on *:DIALOG:iPod:init:*:{
  .timer 1 1 did -z iPod 4
  set %vol 5
  vol -v $calc(5*5000)
  if ($ini(iPod.ini,Songs,0) > 0) {
    var %i = 0
    while (%i < $ini(iPod.ini,Songs,0)) {
      inc %i
      did -a $dname 4 $+(»,%i,«) $remove($nopath($readini(iPod.ini,Songs,%i)),.mp3)
    }
  }
} 
Alias ipodame {
  var %i = 0
  while (%i < $chan(0)) {
    inc %i
    if ($chan(%i) !isin %noiPod) {
      describe $chan(%i) is now playing04 $iif($sound($qt($insong.fname)).title,$sound($qt($insong.fname)).title,Unknown Name) 10By04 $iif($sound($qt($insong.fname)).artist,$sound($qt($insong.fname)).artist,Unknown Artist) 10Album04 $iif($sound($qt($insong.fname)).album,$sound($qt($insong.fname)).album,Unknown Album) 10Published04 $iif($sound($qt($insong.fname)).year,$sound($qt($insong.fname)).year,Unknown Year) 10(0400:0010/04 $+ $&
        $iif($len(%iPodgt1) == 1,0 $+ %iPodgt1,%iPodgt1) $+ : $+ $&
        $iif($len(%iPodgt2) == 1,0 $+ %iPodgt2,%iPodgt2) $+ 10)
    }
  }
}
ALias ipodamsg {
  var %i = 0
  while (%i < $chan(0)) {
    inc %i
    if ($chan(%i) !isin %noiPod) {
      msg $chan(%i) 10[04AMSG10] Now playing04 $iif($sound($qt($insong.fname)).title,$sound($qt($insong.fname)).title,Unknown Name) 10By04 $iif($sound($qt($insong.fname)).artist,$sound($qt($insong.fname)).artist,Unknown Artist) 10Album04 $iif($sound($qt($insong.fname)).album,$sound($qt($insong.fname)).album,Unknown Album) 10Published04 $iif($sound($qt($insong.fname)).year,$sound($qt($insong.fname)).year,Unknown Year) 10(0400:0010/04 $+ $&
        $iif($len(%iPodgt1) == 1,0 $+ %iPodgt1,%iPodgt1) $+ : $+ $&
        $iif($len(%iPodgt2) == 1,0 $+ %iPodgt2,%iPodgt2) $+ 10)
    }
  }
}
Alias killmsg {
  set %noiPod %noiPod #$$1
  echo -ta #$$1 added
}