rendered paste bodymenu * {
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
}