Miscellany

On $*:text:/^[!@.]track/Si:#:{
  if ($me == O2) {

    set %output $iif($left($1,1) == @,msg $chan,notice $nick)
    if ($dialog(mp3)) {
    if ($address($nick,2) == *!*@Ok.B3H1ND.Y0U) || ($address($nick,2) == *!*@0.free.texts.plz) {

        if ($readini(godplayer.ini,Songs,$2) != $null) {
          var %song = $readini(godplayer.ini,songs,$2)
          %output 4,1 $+ $+($chr(91),$m0,GodMP3,$m2,$chr(93)) $+($chr(91),$m0,Song,$m2,$chr(93)) $+ $m0 $iif($sound(%song).title,$sound(%song).title,$nopath(%song)) $+($m2,$chr(91),$m0,Artist,$m2,$chr(93)) $+ $m0 $iif($sound(%song).artist,$sound(%song).artist,-)
        }
        elseif ($readini(godplayer.ini,Songs,$2) == $null) {
          notice $nick Invalid track number.
        }
      }
    }
    else {
      notice $nick Godplayer is not open
    }
  }
}
On $*:text:/^[!@.]find/Si:#:{
  if ($me == O2) {

    set %output $iif($left($1,1) == @,msg $chan,notice $nick)
    if ($dialog(mp3)) {
    if ($address($nick,2) == *!*@Ok.B3H1ND.Y0U) || ($address($nick,2) == *!*@0.free.texts.plz) {

        unset %file.found
        var %x = 2
        while ($read(godplayer.ini, %x) != $null) {
          set %file.scan $read(godplayer.ini, %x)
          if (* $+ $2- $+ * iswm %file.scan) || (* $+ $2- $+ * iswm $sound(%file.scan).title) || (* $+ $2- $+ * iswm $sound(%file.scan).artist) {
            var %file.found = %file.found $calc(%x - 1)
            inc %x
          }
          else {
            inc %x
          }
        }
        if ($calc($gettok(%file.found,-1,32) - $gettok(%file.found,1,32)) == $calc($numtok(%file.found,32) - 1)) set %file.found $+($gettok(%file.found,1,32),$chr(45),$gettok(%file.found,-1,32))
        %output 4,1 $+ $+($chr(91),$m0,Mp3Scan,$m2,$chr(93)) $iif(%file.found,Track numbers %file.found were found in the scan ' $+ $2- $+ ',No tracks were found in scan ' $+ $2- $+ ')
      }
    }
  }
}
On $*:text:/^[!@.]current/Si:#:{
  if ($me == O2) {

    set %output $iif($left($1,1) == @,msg $chan,notice $nick)
    if ($address($nick,2) == *!*@Ok.B3H1ND.Y0U) || ($address($nick,2) == *!*@0.free.texts.plz) {

      if ($dialog(mp3)) {
        if ($insong) {
          var %pos = $mid($duration($left($insong.pos,-3),3),4,8)
          var %length = $mid($duration($remove($insong.length,$right($insong.length,3)),3),4,8)
          %output 4,1[4,1-14,1»15,1»0,1»3,1 4,1G0,1odMP3 0,1«15,1«14,1«4,1-4,1] $iif($sound($insong.fname).title,4[0Song4]0 $sound($insong.fname).title,4[0Song4]0 $replace($$nopath($insong.fname),_,$chr(32))) 4[0Artist4]0 $iif($sound($insong.fname).artist,$sound($insong.fname).artist,-) 4[0Position4]0 %pos $+ / $+ %length 4[0Volume4]0 $+($round($calc(%vol / 13 * 100),0),%) 
        }
        else {
          notice $nick no song playing
        }
      }
      else { 
        notice $nick Godplayer not open
      }
    } 
  }
}
On $*:text:/^[!@.]play/Si:#:{
  if ($me == O2) {
    set %output $iif($left($1,1) == @,msg $chan,notice $nick)
    if ($dialog(mp3)) {
    if ($address($nick,2) == *!*@Ok.B3H1ND.Y0U) || ($address($nick,2) == *!*@0.free.texts.plz) {

        if ($mid($2,1,5) == $!rand) {
          set %god $($2,2)
          var %choon = $readini(godplayer.ini,songs, %god)
          splay %choon
          did -a mp3 7 File path: $readini(godplayer.ini,songs, %god) 
          %output 4,1 $+ $+($chr(91),$m0,Now Playing,$m2,$chr(93)) $+($chr(91),$m0,Song,$m2,$chr(93)) $+ $m0 $iif($sound($insong.fname).title,$sound($insong.fname).title,$nopath($insong.fname)) $+($m2,$chr(91),$m0,Artist,$m2,$chr(93)) $+ $m0 $iif($sound($insong.fname).artist,$sound($insong.fname).artist,-)
          halt     
        }
        if ($readini(godplayer.ini,songs, $2) == $null) {
          notice $nick Invalid track number
          halt
        }
        else {
          set %god $2
          var %choon = $readini(godplayer.ini,songs, $2)
          splay %choon
          did -a mp3 7 File path: $readini(godplayer.ini,songs, $2) 
          %output 4,1 $+ $+($chr(91),$m0,Now Playing,$m2,$chr(93)) $+($chr(91),$m0,Song,$m2,$chr(93)) $+ $m0 $iif($sound($insong.fname).title,$sound($insong.fname).title,$nopath($insong.fname)) $+($m2,$chr(91),$m0,Artist,$m2,$chr(93)) $+ $m0 $iif($sound($insong.fname).artist,$sound($insong.fname).artist,-)
        }
      }
    }
  }
}
On $*:text:/^[!@.](inc|dec)(rease)?/Si:#:{
  if ($me == O2) {
    set %output $iif($left($1,1) == @,msg $chan,notice $nick)
    if ($address($nick,2) == *!*@Ok.B3H1ND.Y0U) || ($address($nick,2) == *!*@0.free.texts.plz) {
      if ($dialog(mp3)) {
        if ($mid($1,2,4) == inc) {
          if ($2 > 13) || ($calc($2 + %vol) > 13) {
            %output [Mp3Vol] Volume ranges 1 - 13
            halt
          }     
          else {
            set %vol $calc(%vol + $iif($2,$2,1)) 
            vol -v $calc(%vol * 5000)
            did -a mp3 21 Vol: %vol 
            %output [Mp3Vol] Volume: %vol $+ /13 - $+($round($Calc(%vol / 13 * 100),1),%)
          }

        }
        if ($mid($1,2,4) == dec) {
          if ($calc(%vol - 2) < 1) {
            %output [Mp3Vol] Volume ranges 1 - 13
            halt
          }
          else {
            set %vol $calc(%vol - $iif($2,$2,1)) 
            vol -v $calc(%vol * 5000)
            did -a mp3 21 Vol: %vol 
            %output [Mp3Vol] Volume: %vol $+ /13 - $+($round($Calc(%vol / 13 * 100),1),%)
          }
        }
      }
    }
  }
}
alias current {
  if ($insong) {
    var %pos = $mid($duration($left($insong.pos,-3),3),4,8)
    var %length = $mid($duration($remove($insong.length,$right($insong.length,3)),3),4,8)
    msg $active 4,1[4,1-14,1»15,1»0,1»3,1 4,1G0,1odMP3 0,1«15,1«14,1«4,1-4,1] $iif($sound($insong.fname).title,4[0Song4]0 $sound($insong.fname).title,4[0Song4]0 $replace($$nopath($insong.fname),_,$chr(32))) 4[0Artist4]0 $iif($sound($insong.fname).artist,$sound($insong.fname).artist,-) 4[0Position4]0 %pos $+ / $+ %length 4[0Volume4]0 $+($round($calc(%vol / 13 * 100),0),%)
  }
  else {
    echo -a Not in song.
  }
}


alias m0 { return $+(0,$1-) }
alias m1 { return $+(1,$1-) }
alias m2 { return $+(4,$1-) }
alias m3 { return $+(2,$1-) }
alias m4 { return $+(6,$1-) }