menu * {
  God Player:mp3
}
alias mp3 {
  dialog -meid Mp3 Mp3

}
alias F6 { 
  /mp3
}
dialog mp3 {
  title "GodPlayer Version 1.0"
  size -1 -1 217 110
  option dbu
  text "GodPlayer V1", 1, 43 96 39 8
  list 2, 134 14 70 76, size
  text "Da Shit Plx", 3, 139 4 30 8
  button "Load", 4, 135 93 28 12
  button "Unload", 5, 176 93 28 12
  box "Wtf is playing?", 6, 3 4 116 30
  text "No sht playin atm", 7, 5 11 112 21
  button "Play", 8, 32 34 31 12
  button "Stop", 10, 66 34 29 12
  button "< <", 11, 10 34 19 12
  button "> >", 12, 100 34 19 12
  button "Rewind", 13, 9 56 37 12
  button "Close", 14, 5 93 32 12
  button "Help", 15, 6 77 30 12
  button "Shout my song", 16, 88 77 44 12
  button "Credits", 17, 43 77 37 12
  text "OFF", 18, 101 91 14 8
  button "Up", 19, 120 10 13 12
  button "Dn", 20, 120 24 13 12
  text "Vol:", 21, 119 2 18 8 %vol
  button "Fast Fw.", 9, 69 56 37 12
  button "Clr Lst", 22, 170 4 30 8
}
on *:DIALOG:mp3:sclick:22:{
  remini godplayer.ini songs
  did -r $dname 2
}
on *:DIALOG:mp3:sclick:16:{
  if ($did(mp3,18) == off) {
    did -a $dname 18 On
  halt } 
  if ($did(mp3,18) == On) {
    did -a $dname 18 Off
  halt } 
}

on *:DIALOG:mp3:sclick:15:{
  window -els @Help
  /aline @Help Play/Stop - play selected track/Stops the playing song
  /aline @Help < < / > > - Plays next track/Plays previous track
  /aline @Help Close - Closes God Player
  /aline @Help Up/Dn - Volume up down
  /aline @Help Load/Unload/Clr Lst - Load track, Unload track, Clear the list
  /aline @Help Help - Loads help file
  /aline @Help Credits - use to view credits
  /aline @Help Fst Fw/Rewind - Fast forward 2seconds/Rewind 2 seconds
  /aline @Help Shout my song - /ames the song you are playing if selected (on mp3 end and start (not when skipping tracks))
}

on *:DIALOG:mp3:sclick:17:{
  /window -els @Credits 
  /aline @Credits Created by [-God-]
  /aline @Credits Finished on the 18/04/2007
  /aline @Credits Pm [-God-] on IRC if you find a bug
}

on *:DIALOG:mp3:sclick:11:{
  if ($insong) {
    var %m = $readini(godplayer.ini,Songs,$calc(%god - 1))
    if (!%m) {
    unset %god | splay $readini(godplayer.ini,Songs,1) | did -a mp3 7 File path: $insong.fname | inc %god }
    if (%m) {
      splay %m
      inc %god
      did -a mp3 7 File path: $insong.fname 
    }
  }
}
on *:DIALOG:mp3:sclick:12:{
  if ($insong) {
    var %m = $readini(godplayer.ini,Songs,$calc(%god + 1))
    if (!%m) {
    unset %god | splay $readini(godplayer.ini,Songs,1) | did -a mp3 7 File path: $insong.fname | inc %god }
    if (%m) {
      splay %m
      inc %god
      did -a mp3 7 File path: $insong.fname 
    }
  }
}

on *:DIALOG:mp3:sclick:13:{
  if ($insong) {
    splay seek $calc($insong.pos - 2000) 
  }
}
on *:DIALOG:mp3:sclick:9:{
  if ($insong) {
    splay seek $calc($insong.pos + 2000) 
  }
}


on *:DIALOG:mp3:dclick:2:{
  did -a $dname 7 File path: $readini(godplayer.ini,songs,$did(mp3,2,1).sel) 
  splay $readini(godplayer.ini,songs,$did(mp3,2,1).sel)
  if ($did(mp3,18) == on) {
    var %a = $duration($remove($insong.length,$right($insong.length,3))), %x = $remove($insong.length,$right($insong.length,3)), %p = $$nopath($insong.fname)
    var %n = 1
    while (%n <= $chan(0)) {
      if (%nomsg [ $+ [ $chan(%n) ] ] == yes) { inc %n }
      else {
        /describe $chan(%n) is now playing $iif($sound($insong.fname).title,7Song:6 $sound($insong.fname).title,7Song:6 $replace(%p,_,$chr(32))) 7Artist:6 $iif($sound($insong.fname).artist,$sound($insong.fname).artist,N/A) 7Album:6 $iif($sound($insong.fname).album,$sound($insong.fname).album,N/a) 7Genre:6 $iif($sound($insong.fname).genre,$sound($insong.fname).genre,N/A) 7Length:6 %a 7Volume:6 %vol $+ /13 7Bitrate:6 $iif($sound($insong.fname).bitrate,$sound($insong.fname).bitrate,N/A) 7Spamming; !nomp3) 

      inc %n }
    }
  }
}



on *:DIALOG:mp3:sclick:19:{ 
  if (%vol < 13) { 
    set %vol $calc(%vol + 1) 
    vol -v $calc(%vol * 5000)
    did -a $dname 21 Vol: %vol 
  } 
} 
on *:DIALOG:mp3:sclick:20:{ 
  if (%vol > 1) { 
    set %vol $calc(%vol - 1) 
    vol -v $calc(%vol * 5000)
    did -a $dname 21 Vol: %vol 
  } 
}
on *:DIALOG:mp3:sclick:5:{
  if ($did(mp3,2).seltext != $null) {
    /rembak
  } 
}
alias loadsht {
  /did -r $dname 2
  if ($ini(godplayer.ini,songs,0) > 0) { 
    var %i = 0 
    while (%i < $ini(godplayer.ini,songs,0)) {  
      inc %i 
    did -a $dname 2 %i $remove($nopath($readini(godplayer.ini,Songs,%i)),.mp3) }
  }
}

alias rembak {
  remini godplayer.ini songs $did(mp3,2,1).sel
  /did -r $dname 2
  if ($ini(godplayer.ini,songs,0) > 0) { 
    var %i = 0 
    while (%i < $ini(godplayer.ini,songs,0)) {  
      inc %i 
      did -a $dname 2 %i $remove($nopath($readini(godplayer.ini,Songs,%i)),.mp3) 
    }
  }
}


on *:DIALOG:mp3:sclick:10:{
  splay stop
  did -a $dname 7 No sht playin atm
}

on *:DIALOG:mp3:sclick:14:{
  /mp3.die
} 

on *:DIALOG:mp3:sclick:4:{ 
  var %dafile = $msfile(*.mp3,Wt shit u wanna listen to,Load it)
  var %load = 0 
  while (%load < %dafile) {
    inc %load
    writeini godplayer.ini songs $calc($ini(godplayer.ini,Songs,0) + 1) $msfile(%load)
    did -a $dname 2 $remove($nopath($msfile(%load)),.mp3)))
  }
  /loadsht
} 

on *:DIALOG:mp3:sclick:8:{
  did -a $dname 7 File path: $readini(godplayer.ini,songs,$did(mp3,2,1).sel) 
  splay $readini(godplayer.ini,songs,$did(mp3,2,1).sel)
  if ($did(mp3,18) == on) {
    var %a = $duration($remove($insong.length,$right($insong.length,3))), %x = $remove($insong.length,$right($insong.length,3)), %p = $$nopath($insong.fname)
    var %n = 1
    while (%n <= $chan(0)) {
      if (%nomsg [ $+ [ $chan(%n) ] ] == yes) { inc %n }
      else {
        /describe $chan(%n) is now playing $iif($sound($insong.fname).title,7Song:6 $sound($insong.fname).title,7Song:6 $replace(%p,_,$chr(32))) 7Artist:6 $iif($sound($insong.fname).artist,$sound($insong.fname).artist,N/A) 7Album:6 $iif($sound($insong.fname).album,$sound($insong.fname).album,N/a) 7Genre:6 $iif($sound($insong.fname).genre,$sound($insong.fname).genre,N/A) 7Length:6 %a 7Volume:6 %vol $+ /13 7Bitrate:6 $iif($sound($insong.fname).bitrate,$sound($insong.fname).bitrate,N/A) 7Spamming; !nomp3) 

      inc %n }

    }
  }
}
ON *:MP3END:{ 
  var %m = $readini(godplayer.ini,Songs,$calc(%god + 1))
  if (!%m) && ($did(mp3,18) = off) {
  unset %god | splay $readini(godplayer.ini,Songs,1) | did -a mp3 7 File path: $insong.fname | inc %god }
  if ($did(mp3,18) == On) && (!%m) { 
    unset %god | splay $readini(godplayer.ini,Songs,1) | did -a mp3 7 File path: $insong.fname
    var %a = $duration($remove($insong.length,$right($insong.length,3))), %x = $remove($insong.length,$right($insong.length,3)), %p = $$nopath($insong.fname)
    var %n = 1
    while (%n <= $chan(0)) {
      if (%nomsg [ $+ [ $chan(%n) ] ] == yes) { inc %n }
      else {
        /describe $chan(%n) is now playing $iif($sound($insong.fname).title,7Song:6 $sound($insong.fname).title,7Song:6 $replace(%p,_,$chr(32))) 7Artist:6 $iif($sound($insong.fname).artist,$sound($insong.fname).artist,N/A) 7Album:6 $iif($sound($insong.fname).album,$sound($insong.fname).album,N/a) 7Genre:6 $iif($sound($insong.fname).genre,$sound($insong.fname).genre,N/A) 7Length:6 %a 7Volume:6 %vol $+ /13 7Bitrate:6 $iif($sound($insong.fname).bitrate,$sound($insong.fname).bitrate,N/A) 7Spammming; !nomp3) 

      inc %n }
    }
  }

  elseif (%m) { 
    splay %m
    inc %god
    did -a mp3 7 File path: $insong.fname
    if ($did(mp3,18) == On) { 
      var %a = $duration($remove($insong.length,$right($insong.length,3))), %x = $remove($insong.length,$right($insong.length,3)), %p = $$nopath($insong.fname)
      var %n = 1
      while (%n <= $chan(0)) {
        if (%nomsg [ $+ [ $chan(%n) ] ] == yes) { inc %n }
        else {
          /describe $chan(%n) is now playing $iif($sound($insong.fname).title,7Song:6 $sound($insong.fname).title,7Song:6 $replace(%p,_,$chr(32))) 7Artist:6 $iif($sound($insong.fname).artist,$sound($insong.fname).artist,N/A) 7Album:6 $iif($sound($insong.fname).album,$sound($insong.fname).album,N/a) 7Genre:6 $iif($sound($insong.fname).genre,$sound($insong.fname).genre,N/A) 7Length:6 %a 7Volume:6 %vol $+ /13 7Bitrate:6 $iif($sound($insong.fname).bitrate,$sound($insong.fname).bitrate,N/A) 7Spamming; !nomp3) 

        inc %n }
      }
    }

  } 
} 


on *:DIALOG:mp3:init:*:{
  if (!%vol) { 
    set %vol 8
    vol -v $calc(%vol * 5000)
    did -a $dname 21 Vol: %vol 
    if ($ini(godplayer.ini,songs,0) > 0) { 
      var %i = 0 
      while (%i < $ini(godplayer.ini,songs,0)) {  
        inc %i 
        did -a $dname 2 %i $remove($nopath($readini(godplayer.ini,Songs,%i)),.mp3) 
      } 
    }
  }
  elseif (%vol) { 
    vol -v $calc(%vol * 5000)
    did -a $dname 21 Vol: %vol
    if ($ini(godplayer.ini,songs,0) > 0) { 
      var %i = 0 
      while (%i < $ini(godplayer.ini,songs,0)) {  
        inc %i 
        did -a $dname 2 %i $remove($nopath($readini(godplayer.ini,Songs,%i)),.mp3) 
      } 
    } 
  }
}
On $*:text:/^[!@.]no ?mp3/Si:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) && (%nomsg [ $+ [ $chan ] ]) {
  notice $nick $chan is already not recieving what i am playing !yesmp3 to undo }
  if ($nick isop $chan) || ($nick ishop $chan) && (!%nomsg [ $+ [ $chan ] ]) {
    set %nomsg [ $+ [ $chan ] ] yes
  notice $nick $chan will no longer recieve what i am playing !yesmp3 to undo }
  elseif ($nick isvoice $chan) || ($nick isreg $chan) { notice $nick You are not da op or da hop 
  }
}
On $*:text:/^[!@.]yes ?mp3/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) && (%nomsg [ $+ [ $chan ] ]) {
    unset %nomsg [ $+ [ $chan ] ]
    notice $nick $chan will now recieve what i am playing !nomp3 to undo
  halt }
  if ($nick isop $chan) || ($nick ishop $chan) && (!%nomsg [ $+ [ $chan ] ]) {
    notice $nick $chan is already recieving what i am playing !yesmp3 to undo
  halt }
  elseif ($nick isvoice $chan) || ($nick isreg $chan) { notice $nick You are not da op or da hop 
  }
}

alias yesmp3 {
  if ($1) {
    unset %nomsg [ $+ [ $1 ] ]
  msg $1 $($+(7,$1 will now recieve what i am playing)) }
  if (!$1) {
    unset %nomsg [ $+ [ $active ] ]
  /msg $active $($+(7,$active will now recieve what i am playing)) }
}
alias nomp3 {
  if ($1) {
    set %nomsg [ $+ [ $1 ] ] yes
  msg $1 $($+(7,$1 will now no longer recieve what i am playing)) }
  if (!$1) {
    set %nomsg [ $+ [ $active ] ] yes
    /msg $active $($+(7,$active will now no longer recieve what i am playing))
  }
}


on *:DIALOG:mp3:close:*:{
  splay stop 
}

alias mp3.die {
  var %i 217
  while (%i >= 0) {
    dialog -srb mp3 -1 -1 %i %i
    var %t 2
    while (%t <= 110) inc %t
    dec %i
  }
  dialog -c mp3
}