View

Itachi MP3Player

Snippet Author: ZabuzaMomochi
Rated:

Snippet Description: Just another mp3 player.

;Itachi mp3 player
;Please remember to also close the miniplayer window when your finished

dialog IMp3 {
  title "Itachi's Mp3 Player"
  size -1 -1 262 180
  option dbu
  list 1, 0 48 250 60, size
  button "Stop The Song", 3, 0 108 80 12
  button "Pause The Song", 4, 0 120 80 12
  button "Resume The Song", 5, 0 132 80 12
  button "Decrease The Volume", 6, 182 120 80 12
  button "Increase The Volume", 7, 182 108 80 12
  button "Close", 8, 222 0 40 47, multi
  list 9, 0 12 221 21, size
  button "Add a song to your playlist", 10, 0 35 74 12
  button "Player ON", 11, 148 35 74 12
  button "Player OFF", 12, 74 35 74 12
  button "Mute the song", 2, 182 132 80 12
  Button "Msg ON", 29, 0 0 60 12
  button "Msg OFF" 30, 60 0 60 12
  Text "Thank you for using [I]Mp3 Itachi Script 1.0", 20, 80 145 110 8
  Link "Hawkee forums", 21, 115 130 60 20
  Menu "File", 22
  Item "Play file", 23
  item "Close", 24, ok
  item "Stop File", 25
  Item "Pause File", 26
  Item "Resume File", 27
  Item "Select Directory", 28
}
alias F3 { 
  dialog -md Imp3 Imp3 
  dialog -md Miniplayer Miniplayer
}
On *:DIALOG:IMp3:*:*: {
  If ($devent = sclick) {
    If ($did = 2) { If (%play = on) { vol -v 0 } }
    If ($did = 3) { If (%play = on) { splay stop } }
    If ($did = 4) { If (%play = on) { splay Pause } }
    If ($did = 5) { If (%play = on) { splay Resume } }
    If ($did = 6) {
      If (%vol < 0) { set %vol 65535 | goto one }
      If (%vol > 0) {
        :one
        dec %vol $calc(65535/5)
        vol -v %vol
      }
    }
    If ($did = 7) && (%play = on) {
      If (%vol > 0) { set %vol 65535 | goto one }
      If (%vol < 0) { set %vol 0 | goto one }
      :one
      inc %vol $calc(65535/5)
      vol -v %vol
    }
    If ($did = 8) { dialog -x Imp3 Imp3 }
    If ($did = 10) { set %sz $sfile(%dir) | set %m $replace(%sz,%dir,$chr(32)) | write -i songs.txt %m | didtok IMp3 1 C %m | Didtok MiniPlayer 9 C %m }
    If ($did = 11) { set %play on }
    If ($did = 12) { set %play off }
    if ($did = 28) {   
      set %dir $sdir="Whats The Directory You Want Your Files To Play From?"
      write SongFiles.txt  
    }
    if ($did = 23) { 
      if (%msgset == on) {
        start
        if (%msgset == off) {
          ostart
        }
      }
    }
    if ($did = 25) { splay stop }
    if ($did = 26) { splay pause }
    if ($did = 27) { splay resume } 
    if ($did = 29) { set %msgset on }
    if ($did = 30) { set %msgset off }  
  }
  If ($devent = dclick) {
    If ($did = 1) {
      if (%msgset = on) {
        splay -p %dir $+ $read(songs.txt, w, * $+ $gettok($did(1).seltext,1-,4) $+ *)
        set %reapsong %dir $+ $read(songs.txt, w, * $+ $gettok($did(1).seltext,1-,4) $+ *)
        timer1 1 .00000000001 start
      }     
      if (%msgset = off) {
        splay -p %dir $+ $read(songs.txt, w, * $+ $gettok($did(1).seltext,1-,4) $+ *)
        set %reapsong %dir $+ $read(songs.txt, w, * $+ $gettok($did(1).seltext,1-,4) $+ *)
        timer1 1 .00000000001 OStart        
      }
    }
    If ($did = 9) { 
      if (%msgset = on) {
        start
      }
      If (%msgset = off) {
        OStart
      }
    }
    if ($did = 21) {
      run iexplore.exe http://www.hawkee.com
      echo -a You will now be directed to hawkee forums!
    }  
  }
  If ($devent = init) {
    var %i 1
    :start
    If ($read(songs.txt,%i)) {
      didtok Imp3 1 C $replace($read(songs.txt,%i),.mp3,$chr(32))
      inc %i
      goto start
    }
    Elseif (!$read(songs.txt,%i)) {
      unset %i
      halt
    }
  }
}
alias temp { return $replace(%reapsong,%dir,$chr(32),.mp3,$chr(32)) }
on *:TEXT:!Get*:*: { 
  dcc send $nick $insong.fname
}
on *:mp3end: {
  If (%song = off) { halt | }
  If (%song = on) {
    set %repeat $?!="Would you like it to repeat?"
    If (%repeat = $true) { 
      if (%msgset == on) {
        splay -p %reapsong 
        timer1 1 1 /start 
      }
      if (%msgset == Off) {
        timer 1 1 /ostart
      }
    }
    If (%repeat = $false) { echo Please Select Another Song | halt }
    If (!%repeat) { echo Invalid selection | halt } 
  }
}
on *:Load: {
  echo -a Itachi Mp3 Player 1.0 - Press F3 for Settings.
  if (%Dir == $null) {
    set %dir $sdir="Whats The Directory You Want Your Files To Play From?"
    write SongFiles.txt
    Else { Halt | }
  }
}
Dialog miniplayer {
  title "MiniMp3"
  size -1 -1 150 40
  option dbu
  List 9, 0 0 130 30
  Button "Play", 2, 130 0 20 10
  Button "Pause", 3, 130 10 20 10
  Button "Resume", 4, 130 20 20 10
  Button "Add A Song", 5, 0 25 40 15
  Button "Close", 6, 40 25 40 15, ok 
  Button "Stop", 7, 130 30 20 10
  Button "Mp3Player", 8, 80 25 45 15
}
on *:DIALOG:Miniplayer:*:*: {
  if ($Devent = Dclick) {
    if ($did = 9) {
      if (%msgset == on) {
        splay -p %dir $+ $read(songs.txt, w, * $+ $gettok($did(9).seltext,1-,4) $+ *)
        set %reapsong %dir $+ $read(songs.txt, w, * $+ $gettok($did(9).seltext,1-,4) $+ *)
        timer1 1 .00000000001 /start      
      }
      If (%Msgset == off) {
        splay -p %dir $+ $read(songs.txt, w, * $+ $gettok($did(9).seltext,1-,4) $+ *)
        set %reapsong %dir $+ $read(songs.txt, w, * $+ $gettok($did(9).seltext,1-,4) $+ *)
        timer1 1 .00000000001 /ostart
      }
    }
  }
  if ($Devent = SClick) {
    if ($Did = 2) {
      if (%Msgset == on) {
        splay -p %dir $+ $read(songs.txt, w, * $+ $gettok($did(1).seltext,1-,4) $+ *)
        set %reapsong %dir $+ $read(songs.txt, w, * $+ $gettok($did(9).seltext,1-,4) $+ *)
        timer1 1 .00000000001 start      
      }
      if (%Msgset == off) {
        splay -p %dir $+ $read(songs.txt, w, * $+ $gettok($did(9).seltext,1-,4) $+ *)
        set %reapsong %dir $+ $read(songs.txt, w, * $+ $gettok($did(9).seltext,1-,4) $+ *)
        timer1 1 .00000000001 ostart      
      }
    }
    if ($did = 3) { splay pause }
    if ($Did = 4) { Splay resume } 
    if ($Did = 5) { set %sz $sfile(%dir) | set %m $replace(%sz,%dir,$chr(32)) | write -i songs.txt %m | didtok IMp3 1 C %m | Didtok MiniPlayer 9 C %m } 
    if ($Did = 7) { Splay Stop }  
    if ($Did = 8) { dialog -md Imp3 Imp3 }  
  }
}
alias start {
  If ($insong) {
    did -r IMp3 9 | Did -r Miniplayer 9
    didtok IMp3 9 C Now Playing: $temp | didtok MiniPlayer 9 C Now Playing: $temp
    msg $Active %Header I'm Listening To11 $temp $+ , %Seperator 2Length:11 $asctime($calc($sound($insong.fname).length / 1000 ),nn:ss) $+ . %Seperator 4Type !Get to download song %Seperator You have $asctime($calc($sound($insong.fname).length / 1000 ),nn:ss) minute/seconds to download the song!2 9ItAcHi ScRiPt %Footer
  }
}
Alias OStart {
  if ($insong) {
    did -r IMp3 9 | did -r Miniplayer 9
    didtok IMp3 9 C Now Playing: $Temp | didtok MiniPLayer 9 C Now Playing: $temp
    Echo -a Now playing: $Temp $+ . ItAcHi ScRiPt  
  }
}
dialog Mp3Set {
  Title "Color Modifications"
  Size -1 -1 190 170
  option dbu
  Edit "-=|=[[", 1, 30 10 50 10, autohs %Header
  Text "Seperator", 2, 0 0 30 7
  Edit "]-[", 3, 30 0 50 10, autohs %Seperator
  Text "Header" 4, 0 10 30 7
  Edit "]]=|=-", 5, 30 20 50 10, autohs %Footer
  Text "Footer", 6, 0 20 30 7
  Button "Save", 7, 0 130 40 40, ok
  Button "Cancel", 8, 150 130 40 40, cancel
  Button "Open Mini Player", 9, 100 100 70 20
  Button "Open Dialog And MiniPlayer", 10, 20 100 70 20
  Link "NoodleSoup", 11, 80 80 40 40
  Link "Hawkee", 12, 80 70 40 40
}
on *:DIALOG:Mp3Set:*:*: {
  if ($devent = SClick) {
    if ($did = 9) {
      dialog -md MiniPlayer MiniPlayer
    }
    if ($did = 10) {
      f3
    }
  }
  if ($devent = DClick) {
    if ($Did = 11) {
      run www.noodlesoup.co.nr
    }
    if ($Did = 12) {
      Run www.hawkee.com
    }
  }
}
Menu Channel {
  ...Mp3Player
  .Settings:dialog -md Mp3Set Mp3Set
  .Mp3Player:f3
  .MiniPlayer:dialog -md MiniPlayer MiniPlayer
}

Favorite Script -

Smilies	Message:
	Comments:

X-Static Codes

Search

Scripting

Links

Sponsors

Stats

View

Itachi MP3Player