rendered paste bodymenu channel,status,nicklist,menubar {
GreatDialog:/dialog -m GreatDialog GreatDialog
}
dialog GreatDialog {
title "Great Dialog's Options"
size -1 -1 103 100
option dbu
box "Channel List", 99, 2 2 99 90
button "Tony's Top Chans" , 1, 5 10 47 20
button "PC Channels" , 2, 5 30 47 20
button "Drag's MiscTools" , 3, 5 50 47 20
button "Couch's Mp3" , 4, 53 30 47 20
button "Metallicas Mode's" , 5, 53 50 47 20
Button "Im A Bot" , 6, 11 74 80 8
button "Im Not A Bot" , 7, 11 82 80 8
button "Tony's Top Bots" , 8, 53 10 47 20
text "Created By: XXHalo3XX ©", 20, 20 93 66 8
}
on *:dialog:GreatDialog:sclick:1:{ dialog -m TopChans TopChans
}
on *:dialog:GreatDialog:sclick:2:{ dialog -m Plist Plist
}
on *:dialog:GreatDialog:sclick:3:{ dialog -x GreatDialog GreatDialog | dialog -m MiscTools MiscTools
}
on *:dialog:greatDialog:sclick:5:{ dialog -m Modes Modes
}
on *:dialog:GreatDialog:sclick:4:{ dialog -m Mp3player Mp3player
}
on *:dialog:GreatDialog:sclick:6:{ /mode $me +B }
on *:dialog:GreatDialog:sclick:7:{ /mode $me -B }
dialog TopChans {
title "Main Channels"
size -1 -1 162 107
option dbu
button "#Idle", 1, 7 51 37 12
button "#Baked", 2, 7 39 37 12
button "#mIRC", 3, 7 27 37 12
button "#irchelp", 4, 7 15 37 12
box "Top Channels", 5, 3 7 155 96
button "#Kitten", 6, 7 63 37 12
button "#OSS", 7, 7 75 37 12
button "#guildwars", 8, 7 87 37 12
button "#Jdawg140", 9, 44 15 37 12
button "#Bots", 10, 81 15 37 12
button "#Vivec", 11, 118 15 37 12
button "#RsHelp", 12, 44 27 37 12
button "#IRCBots", 13, 81 27 37 12
button "#Idle-Rpg", 14, 44 51 37 12
button "#Zezima", 15, 44 63 37 12
button "#thetavern", 16, 44 75 37 12
button "#General", 17, 44 87 37 12
button "#jeffrey", 18, 81 39 37 12
button "#RsMarket", 19, 44 39 37 12
button "#`Joe", 20, 118 27 37 12
button "#Scripting", 21, 118 39 37 12
button "#Adec", 22, 81 51 37 12
button "#mIRC.ms", 23, 81 63 37 12
button "#Ð¥ñð", 24, 81 75 37 12
button "#MircAddicts", 25, 81 87 37 12
button "#Gsus", 26, 118 51 37 12
button "#Graphics", 27, 118 63 37 12
button "#WoW", 28, 118 75 37 12
button "#RSPC", 29, 118 87 37 12
}
on *:dialog:TopChans:sclick:1:{ /join #idle }
on *:dialog:TopChans:sclick:2:{ /join #baked }
on *:dialog:TopChans:sclick:3:{ /join #mIRC }
on *:dialog:TopChans:sclick:4:{ /join #irchelp }
on *:dialog:TopChans:sclick:6:{ /join #kitten }
on *:dialog:TopChans:sclick:7:{ /join #OSS }
on *:dialog:TopChans:sclick:8:{ /join #GuildWars }
on *:dialog:TopChans:sclick:9:{ /join #Jdawg140 }
on *:dialog:TopChans:sclick:10:{ /join #Bots }
on *:dialog:TopChans:sclick:11:{ /join #Vivec }
on *:dialog:TopChans:sclick:12:{ /join #Rshelp }
on *:dialog:TopChans:sclick:13:{ /join #IRCBots }
on *:dialog:TopChans:sclick:14:{ /join #Idle-Rpg }
on *:dialog:TopChans:sclick:15:{ /join #Zezima }
on *:dialog:TopChans:sclick:16:{ /join #TheTavern }
on *:dialog:TopChans:sclick:17:{ /join #General }
on *:dialog:TopChans:sclick:18:{ /join #Jeffrey }
on *:dialog:TopChans:sclick:19:{ /join #RsMarket }
on *:dialog:TopChans:sclick:20:{ /join #`Joe }
on *:dialog:TopChans:sclick:21:{ /join #Scripting }
on *:dialog:TopChans:sclick:22:{ /join #Adec }
on *:dialog:TopChans:sclick:23:{ /join #mIRC.ms }
on *:dialog:TopChans:sclick:24:{ /join #Ð¥ñð }
on *:dialog:TopChans:sclick:25:{ /join #MircAddicts }
on *:dialog:TopChans:sclick:26:{ /join #Gsus }
on *:dialog:TopChans:sclick:27:{ /join #Graphics }
on *:dialog:TopChans:sclick:28:{ /join #WoW }
on *:dialog:TopChans:sclick:29:{ /join #RSPC }
dialog Plist {
title "Pestcontrol List"
size -1 -1 103 95
option dbu
box "PestControl Chan List", 99, 2 2 99 78
button "Pest Hq" , 1, 8 11 37 12
button "Pest" , 2, 60 11 37 12
button "Pc", 3, 8 27 37 12
button "PCElites", 4, 60 27 37 12
button "ARPC_Lobby" , 5, 8 43 37 12
button "ThePc" , 6, 60 43 37 12
button "Hq" , 7, 8 57 37 12
button "LuckyPc" , 8, 154 11 37 12
button "Fastpcw" , 9, 60 57 37 12
text "Created By: XXHalo3XX ©", 10, 21 73 66 8
}
dialog MiscTools {
title "Misc Tools"
size -1 -1 345 220
option pixels
box "Web Browsers", 1, 10 10 150 120
button "Internet Explorer", 2, 25 30 120 25
button "FireFox", 3, 25 63 120 25
button "NetScape", 4, 25 95 120 25
box "Extras", 5, 10 130 150 80
button "Outlook Express", 6, 25 145 120 25
button "Windows Update", 7, 25 175 120 25
box "Windows", 8, 170 10 165 165
button "Calculator", 9, 185 30 60 25
button "Wordpad", 10, 260 30 60 25
button "MS Paint", 11, 185 65 60 25
button "Notepad", 12, 260 65 60 25
button "Command", 13, 185 100 60 25
button "Telnet", 14, 260 100 60 25
button "Char-Map", 15, 186 135 60 25
button "Explorer", 16, 259 135 60 25
button "Exit", 17, 260 190 70 25, ok
}
on *:dialog:_tools:sclick:2:run iexplore
on *:dialog:_tools:sclick:3:run firefox
on *:dialog:_tools:sclick:4:run netscape
on *:dialog:_tools:sclick:6:run msimn
on *:dialog:_tools:sclick:7:run wupdmgr
on *:dialog:_tools:sclick:9:run calc
on *:dialog:_tools:sclick:10:run wordpad
on *:dialog:_tools:sclick:11:run mspaint
on *:dialog:_tools:sclick:12:run notepad
on *:dialog:_tools:sclick:13:run cmd
on *:dialog:_tools:sclick:14:run telnet
on *:dialog:_tools:sclick:15:run charmap
on *:dialog:_tools:sclick:16:run explorer
dialog Modes {
title "Channel Modes v1.0"
size -1 -1 202 130
option dbu
button "Moderate", 1, 8 11 37 12
box "Channel Modes", 2, 4 4 99 121
button "Private", 3, 8 27 37 12
button "Secret", 4, 8 43 37 12
button "Key", 5, 8 59 37 12
button "Limit", 6, 8 84 37 12
edit "", 7, 8 71 37 10
edit "", 8, 8 96 37 10
button "De Moderate", 9, 60 11 37 12
button "De Private", 10, 60 27 37 12
button "De Secret", 11, 60 43 37 12
button "De Key", 12, 60 59 37 12
button "De Limit", 13, 60 84 37 12
box "Channel Access", 14, 105 4 93 121
button "Op", 15, 109 11 37 12
button "Half Op", 16, 109 33 37 12
button "Voice", 17, 109 55 37 12
button "Ban", 18, 109 77 37 12
button "Kick Ban", 19, 155 99 37 12
button "Kick", 20, 109 99 37 12
button "De Op", 21, 154 11 37 12
button "De Half Op", 22, 154 33 37 12
button "De Voice", 23, 154 55 37 12
button "UnBan", 24, 155 77 37 12
edit "", 25, 109 23 37 10
edit "", 26, 109 45 37 10
edit "", 27, 109 67 37 10
edit "", 28, 109 89 37 10
edit "", 29, 109 111 37 10
edit "", 30, 155 23 36 10
edit "", 31, 155 45 36 10
edit "", 32, 155 67 36 10
edit "", 33, 155 89 37 10
edit "", 34, 155 111 37 10
link "Created By: Metallica ©", 35, 29 111 66 8
}
menu * {
Channel Protection: /dialog -m chan chan
}
on *:dialog:chan:sclick:1: { mode $active +m
msg $active Channel Mode: Moderated $chr(91) On $chr(93)
}
on *:dialog:chan:sclick:9: { mode $active -m
msg $active Channel Mode: Moderated $chr(91) Off $chr(93)
}
on *:dialog:chan:sclick:3: { mode $active +p
msg $active Channel Mode: Private $chr(91) On $chr(93)
}
on *:dialog:chan:sclick:10: { mode $active -p
msg $active Channel Mode: Private $chr(91) Off $chr(93)
}
on *:dialog:chan:sclick:4: { mode $active +s
msg $active Channel Mode: Secret $chr(91) On $chr(93)
}
on *:dialog:chan:sclick:11: { mode $active -s
msg $active Channel Mode: Secret $chr(91) Off $chr(93)
}
on *:dialog:chan:sclick:15: { mode $active +o $did(25) }
on *:dialog:chan:sclick:21: { mode $active -o $did(30) }
on *:dialog:chan:sclick:16: { mode $active +h $did(26) }
on *:dialog:chan:sclick:22: { mode $active -h $did(31) }
on *:dialog:chan:sclick:17: { mode $active +v $did(27) }
on *:dialog:chan:sclick:23: { mode $active -v $did(32) }
on *:dialog:chan:sclick:18: { mode $active +b $address($did(28),2) }
on *:dialog:chan:sclick:24: { mode $active -b $address($did(33),2) }
on *:dialog:chan:sclick:19: { mode $active +b $address($did(34),2)
kick $active $did(34)
}
on *:dialog:chan:sclick:20: { kick $active $did(29) }
on *:dialog:chan:sclick:5: { mode $active +k $did(7)
set %keycode. [ $+ [ $chan ] ] $did(7)
}
on *:dialog:chan:sclick:12: { mode $active -k %keycode. [ $+ [ $chan ] ] }
on *:dialog:chan:sclick:6: { mode $active +l $did(8)
set %limit. [ $+ [ $chan ] ] $did(8)
}
on *:dialog:chan:sclick:13: { mode $active -l }
dialog -l Mp3player {
title "Jordie's Mp3 Player"
size -1 -1 194 149
option dbu
box "Volume", 14, 2 107 27 40
button "Up", 15, 6 116 18 12
button "Down", 16, 6 130 18 12
box "Other", 17, 30 107 162 40
check "Mute", 18, 33 114 25 10
check "Shuffle", 19, 33 124 30 10
check "Repeat", 20, 33 134 30 10
button "Play", 21, 65 112 37 12
button "Stop", 22, 108 112 37 12
button "Pause", 23, 152 112 37 12
button "< Skip", 24, 65 129 21 12
button "< Rewind", 25, 89 129 36 12
button "Skip >", 26, 168 129 21 12
button "Forward >", 27, 129 129 36 12
tab "Songs", 8, 1 1 191 104
box "Songs", 43, 68 16 123 88, tab 8
list 13, 70 24 120 69, tab 8 size
list 10, 5 24 59 66, tab 8 size
box "Playlists", 9, 3 16 64 88, tab 8
button "Add", 11, 7 91 24 12, tab 8
button "Del", 12, 37 91 24 12, tab 8
edit "", 33, 70 92 120 10, tab 8 read autohs
tab "Most Played", 50
box "Most Played", 44, 68 16 123 88, tab 50
list 45, 70 24 120 69, tab 50 size
button "Del", 47, 37 91 24 12, tab 50
button "Add", 48, 7 91 24 12, tab 50
list 49, 5 24 59 66, tab 50 size
box "Playlists", 51, 3 16 64 88, tab 50
edit "", 32, 70 93 120 10, tab 50 read autohs
tab "Settings", 46
text "Directory", 54, 8 23 22 8, tab 46
text "Song", 55, 97 23 12 8, tab 46
text "Volume", 57, 146 23 17 8, tab 46
edit "", 58, 146 33 15 10, tab 46 limit 3
text "%", 59, 161 34 6 8, tab 46
check "Mute", 60, 146 44 24 10, tab 46
check "Play This Song?", 2, 4 91 50 10, tab 46
list 28, 3 32 60 58, tab 46 size vsbar
list 29, 66 32 76 58, tab 46 size vsbar
box "On Start", 30, 2 16 187 87, tab 46
edit "", 31, 55 91 131 10, tab 46 read autohs
menu "File", 4
item "Add Directory", 3, 4
item "Del Directory", 5, 4
item "Exit", 6, 4, ok cancel
menu "Display", 1
item "Message", 7, 1
}
dialog -l Mp3Player2 {
title "Jordie's Mp3 Player"
size -1 -1 109 71
option dbu
radio "Echo", 1, 5 4 27 10
radio "Message All", 2, 5 14 42 10
radio "Describe All", 3, 5 24 41 10
text "Main Color:", 4, 54 4 27 8
edit "06", 5, 89 3 13 10, limit 2
text "Second Color:", 6, 54 14 34 8
edit "13", 7, 89 13 13 10, limit 2
text "Message:", 8, 42 35 23 8
edit "Playing: [title] by [artist] - [length] - [bits]", 9, 1 44 107 11, autohs
button "Save", 10, 10 57 23 11
button "Exit", 11, 74 57 23 11, ok cancel
button "Help", 12, 42 57 23 11
}
dialog -l Mp3Help {
title "Mp3 Help"
size -1 -1 65 65
option dbu
text "[artist] - The artist [length] - The length [bits] - The bits [title] - The title [album] - The album [type] - The type", 1, 6 2 53 42
button "Ok", 2, 12 48 37 12, ok cancel
}
menu * {
Mp3 Player:/dialog -md Mp3Player Mp3Player
}
on *:Dialog:Mp3Player:*:*: {
if ($devent == dclick) {
if ($did == 13) {
if ($did(10).seltext) {
/splay -p $+($RMP3(Directory,$did(10).seltext),$+($did(13).seltext,.mp3))
$song($+($RMP3(Directory,$did(10).seltext),$did(13).seltext,.mp3))
$RMP3(Message,Display) $message($RMP3(message,message))
}
}
}
elseif ($devent == sclick) {
if ($did == 11) {
var %PL = $$?="Directory to Add"
var %PL = $replace(%PL,$chr(32),-)
if (!%PL) {
//echo -a Error.
halt
}
var %dir = $sdir(*,Music Folder)
writeini JordiesMP3.ini Directory $iif(%PL,%PL,Playlist) %dir
/MP3_List
}
elseif ($did == 12) {
var %PL = $iif($did(10).seltext,$did(10).seltext,$iif($did(49).seltext,$did(49).seltext))
if (%PL == $null) halt
remini JordiesMP3.ini Directory %PL
/MP3_List
}
elseif ($did == 3) {
var %PL = $$?="Directory to Add"
var %PL = $replace(%PL,$chr(32),-)
if (!%PL) {
//echo -a Error.
halt
}
var %dir = $sdir(*,Music Folder)
writeini JordiesMP3.ini Directory $iif(%PL,%PL,Playlist) %dir
/MP3_List
}
elseif ($did == 5) {
var %PL = $iif($did(10).seltext,$did(10).seltext,$iif($did(49).seltext,$did(49).seltext))
if (%PL == $null) halt
remini JordiesMP3.ini Directory %PL
/MP3_List
}
elseif ($did == 10) {
did -r $dname 13
/noop $findfile($RMP3(Directory,$did(10).seltext),*.mp3,0,did -a $dname 13 $nopath($left($1-,-4)))
/mostplay
Match 10
}
elseif ($did == 21) {
if ($did(10).seltext) {
if ($insong.pause == $true) {
/splay resume
}
else {
/splay -p $+($RMP3(Directory,$did(10).seltext),$+($did(13).seltext,.mp3))
$song($+($RMP3(Directory,$did(10).seltext),$did(13).seltext,.mp3))
$RMP3(Message,Display) $message($RMP3(message,message))
}
}
}
elseif ($did == 15) {
/volume up
}
elseif ($did == 16) {
/volume dwn
}
elseif ($did == 19) {
if ($did(20).state = 1) did -u $dname 20
}
elseif ($did == 20) {
if ($did(19).state = 1) did -u $dname 19
}
elseif ($did == 22) {
/splay stop
}
elseif ($did == 23) {
/splay pause
}
elseif ($did == 24) {
if ($did(10).seltext) {
if ($did(13).sel == 1) {
did -c $dname 13 $did(13).lines
}
else {
did -c $dname 13 $calc($did(13).sel - 1)
}
splay -p $+($RMP3(Directory,$did(10).seltext),$did(13).seltext,.mp3)
$song($+($RMP3(Directory,$did(10).seltext),$did(13).seltext,.mp3))
$RMP3(Message,Display) $message($readini(JordiesMP3.ini,message,message))
}
}
elseif ($did == 26) {
if ($did(10).seltext) {
if ($did(13).sel == $did(13).lines) {
did -c $dname 13 1
}
else {
did -c $dname 13 $calc($did(13).sel + 1)
}
splay -p $+($readini(JordiesMP3.ini,Directory,$did(10).seltext),$did(13).seltext,.mp3)
$readini(JordiesMP3.ini,Message,Display) $message($RMP3(message,message))
}
}
elseif ($did == 18) {
if ($did(18).state == 1) {
vol -vu1
}
elseif ($did(18).state == 0) {
vol -vu2
}
}
elseif ($did == 27) {
if ($did(10).seltext) {
splay -p seek $calc($insong.pos + 5000)
}
}
elseif ($did == 25) {
if ($did(10).seltext) {
splay -p seek $calc($insong.pos - 5000)
}
}
elseif ($did == 49) {
/mostplay
Match 49
}
elseif ($did == 60) {
writeini JordiesMP3.ini Start Mute $iif($did(60).state == 1,On,Off)
}
elseif ($did == 28) {
did -r $dname 29
/noop $findfile($RMP3(Directory,$did(28).seltext),*.mp3,0,did -a $dname 29 $nopath($left($1-,-4)))
}
elseif ($did == 2) {
if ($did(29).seltext && $did(2).state == 1) {
writeini JordiesMP3.ini Start Song $+($RMP3(Directory,$did(28).seltext),$did(29).seltext)
writeini JordiesMP3.ini Start DirNum $did(28).sel $did(28).seltext
writeini JordiesMP3.ini Start SongNum $did(29).sel
}
}
elseif ($did(2).state == 0) {
remini JordiesMP3.ini Start Song
remini JordiesMP3.ini Start DirNum
remini JordiesMP3.ini Start SongNum
}
match 10
}
elseif ($devent == init) {
MP3_List
timerMP3player 0 1 /title
if ($RMP3(Start,Song)) splay -p $+($iif($RMP3(Start,Song),$RMP3(Start,Song),$RMP3(Close,Song)),.mp3)
if ($RMP3(Volume,Volume)) {
vol -v $ceil($calc(($RMP3(Volume,Volume) * 65535) / 100))
did -ar $dname 58 $RMP3(Volume,Volume)
}
if ($RMP3(Start,Mute) == on) {
did -c $dname 18,60
vol -vu1
}
if ($did(10).lines >= 1) {
did -c $dname 10 1
/noop $findfile($RMP3(Directory,$did(10).seltext),*.mp3,0,did -a $dname 13 $nopath($left($1-,-4)))
}
if ($RMP3(Start,SongNum) && $RMP3(Start,DirNum)) {
did -c $dname 28 $RMP3(Start,DirNum)
/noop $findfile($RMP3(Directory,$gettok($RMP3(Start,DirNum),2,32)),*.mp3,0,did -a $dname 29 $nopath($left($1-,-4)))
did -c $dname 29,13 $RMP3(Start,SongNum)
did -c $dname 2
match 10
}
/title
}
elseif ($devent == close) {
timerMP3player off
vol -vu2
/splay stop
}
elseif ($devent == menu) {
if ($did == 7) {
dialog -m Mp3Player2 Mp3Player2
}
elseif ($did == 61) dialog -m Mp3Player3 Mp3Player3
}
elseif ($devent == edit) {
if ($did == 58) {
if ($did(58).text <= 100) {
writeini JordiesMP3.ini Volume Volume $did(58).text
}
}
}
}
on *:Dialog:Mp3Player2:*:*: {
if ($devent == sclick) {
if ($did == 12) {
dialog -m Mp3Help Mp3Help
}
elseif ($did == 10) {
if ($did(10).text != $null) {
if ($did(1).state == 1) var %did = //echo -a
elseif ($did(2).state == 1) var %did = /amsg
elseif ($did(3).state == 1) var %did = /ame
writeini JordiesMP3.ini Colors C1 $did(5).text
writeini JordiesMP3.ini Colors C2 $did(7).text
//echo -a Saved to $remove(%did,/) $+ : $message($did(10).text).no
writeini JordiesMP3.ini Message Display %did
writeini JordiesMP3.ini Message Message $did(10).text
}
}
}
elseif ($devent == init) {
var %did = $RMP3(Message,Display)
if (%did == //echo -a) var %num = 1
elseif (%did == /amsg) var %num = 2
elseif (%did == /ame) var %num = 3
if ($readini(JordiesMP3.ini,message,message)) {
did -ar $dname 9 $v1
}
did -c $dname %num
if ($RMP3(Colors,C1)) did -ar $dname 5 $v1
if ($RMP3(Colors,C2)) did -ar $dname 7 $v1
}
}
on *:MP3END: {
if ($did(Mp3Player,19).state = 1) {
var %rand = $rand(1,$did(Mp3Player,13).lines)
while (%rand == $did(MP3Player,13).sel) {
var %rand = $rand(1,$did(Mp3Player,13).lines)
}
did -c Mp3Player 13 %rand
splay -p $+($RMP3(Directory,$did(MP3Player,10).seltext),$did(MP3Player,13).seltext,.mp3)
$song($+($RMP3(Directory,$did(MP3Player,10).seltext),$did(MP3Player,13).seltext,.mp3))
}
elseif ($did(Mp3Player,20).state = 1) {
$song($+($RMP3(Directory,$did(MP3Player,10).seltext),$did(MP3Player,13,1).seltext,.mp3))
splay -p $+($RMP3(Directory,$did(MP3Player,10).seltext),$did(MP3Player,13,1).seltext,.mp3)
}
else {
if ($did(Mp3Player,13).sel == $did(Mp3Player,13).lines) {
did -c Mp3Player 13 1
}
else {
did -c Mp3Player 13 $calc($did(Mp3Player,13).sel + 1)
}
$song($+($RMP3(Directory,$did(Mp3Player,10).seltext),$did(Mp3Player,13).seltext,.mp3))
splay -p $+($RMP3(Directory,$did(Mp3Player,10).seltext),$did(Mp3Player,13).seltext,.mp3)
}
$RMP3(Message,Display) $message($RMP3(message,message))
}
alias -l title {
if ($insong.fname != $null) {
dialog -t Mp3Player Jordie's Mp3 - $remove($duration($calc($insong.pos / 1000 ),3),00:0) - Vol: $int($calc(($vol(master) / 65535) * 100)) $+ % - $sound($insong.fname).title
}
else dialog -t Mp3Player Jordie's Mp3
}
alias -l MP3_List {
did -r Mp3Player 10,49,28
var %x = 1
while ($ini(JordiesMP3.ini,Directory,%x)) {
did -a Mp3Player 10,49,28 $v1
inc %x
}
}
alias -l Volume {
if ($1 == up) {
var %volume = $iif($vol(master) >= 5000,5000,$vol(master))
vol -v $calc($vol(master) + %volume)
}
elseif ($1 == dwn) {
var %volume = $iif($vol(master) >= 5000,5000,$vol(master))
vol -v $calc($vol(master) - %volume)
}
}
alias -l RMP3 return $readini(JordiesMP3.ini,$1,$2)
alias -l Song {
tokenize 32 $replace($1-,_,$chr(32))
var %file = $replace($remove($1-,$RMP3(Directory,$did(MP3Player,10).seltext),.mp3),$chr(32),_)
writeini JordiesMP3.ini $+(MP,-,$did(MP3Player,10).seltext) %file $calc($RMP3($+(MP,-,$did(MP3Player,10).seltext),%file) + 1)
/MostPlay
}
alias -l Match {
did -c Mp3Player $iif($1 == 49,10,49) $did(Mp3Player,$iif($1 == 49,49,10)).sel
if ($did(Mp3Player,29).seltext) did -ar Mp3Player 31 $did(Mp3Player,29).seltext
if ($did(Mp3Player,45).seltext) did -ar Mp3Player 32 $did(Mp3Player,45).seltext
if ($did(Mp3Player,13).seltext) did -ar Mp3Player 33 $did(Mp3Player,13).seltext
}
alias -l MostPlay {
var %y = 1
while ($findfile($RMP3(Directory,$did(MP3player,10).seltext),*.mp3,%y)) {
if ($RMP3($+(MP,-,$did(MP3Player,49).seltext),$left($v1,-4)) == $null) {
var %file = $remove($findfile($RMP3(Directory,$did(MP3player,49).seltext),*.mp3,%y),$RMP3(Directory,$did(Mp3Player,49).seltext))
writeini JordiesMP3.ini $+(MP,-,$did(MP3Player,49).seltext) $left($replace(%file,$chr(32),_),-4) 0
}
inc %y
}
did -r MP3Player 45
var %x = 1
while ($ini(JordiesMP3.ini,$+(MP,-,$did(MP3Player,49).seltext),%x)) {
did -a MP3Player 45 $RMP3($+(MP,-,$did(MP3Player,49).seltext),$v1) - $replace($v1,_,$chr(32))
inc %x
}
filter -ietcuo 1 32 Mp3Player 45 Mp3Player 45
match 10
}
alias -l message {
var %c1 = $+($chr(3),$RMP3(Colors,C1))
var %c2 = $+($chr(3),$RMP3(Colors,C2))
var %msg = $1-
if (%msg == $null) {
writeini JordiesMP3.ini Message Message Playing: [title] by [artist] - [length] - [bits]
var %msg = Playing: [title] by [artist] - [length] - [bits]
}
if ($prop == no) {
%msg = $replace(%msg,[artist],%c2 $+ [artist] $+ %c1)
%msg = $replace(%msg,[length],%c2 $+ [length] $+ %c1)
%msg = $replace(%msg,[title],%c2 $+ [title] $+ %c1)
%msg = $replace(%msg,[bits],%c2 $+ [bits] $+ %c1)
}
else {
var %artist = $iif($sound($insong.fname).artist,$sound($insong.fname).artist,--)
var %length = $iif($sound($insong.fname).length,$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),--)
var %title = $iif($sound($insong.fname).title,$sound($insong.fname).title,--)
var %bit = $iif($sound($insong.fname).bitrate,$sound($insong.fname).bitrate,--)
%msg = $replace(%msg,[artist],%c2 $+ %artist $+ %c1)
%msg = $replace(%msg,[length],%c2 $+ %length $+ %c1)
%msg = $replace(%msg,[title],%c2 $+ %title $+ %c1)
%msg = $replace(%msg,[bits],%c2 $+ %bit $+ %c1)
}
return %msg
match 10
}