This is a Dialog with Mp3 System, Away System, and Nickserv/X Login System. Bugs fixed if you find any bugs contact me, thx.
dialog xol {
title "Mp3, Away, X Login system"
size -1 -1 176 123
option dbu
tab "Mp3 Player", 1, 1 2 174 123
button "Set Folder", 3, 7 34 37 12, tab 1
button "Play", 4, 7 47 37 12, tab 1
button "Resume", 5, 84 60 37 12, tab 1
button "Pause", 6, 45 60 37 12, tab 1
button "Stop", 7, 7 60 37 12, tab 1
button "Select Song", 8, 123 60 37 12, tab 1
scroll "", 9, 49 34 110 14, tab 1 range 0 100 horizontal
edit %pl.le, 10, 52 80 108 10, tab 1 read multi return autohs
edit %folder, 14, 52 105 108 10, tab 1 read multi return autohs
edit %song, 41, 52 93 108 10, tab 1 read multi return autohs
text "Song length:", 42, 19 82 34 7, tab 1
text "Song name:", 43, 19 94 30 8, tab 1
text "Mp3 Folder:", 44, 19 106 31 9, tab 1
text "Mp3 Player made it By CharltonJ", 45, 50 19 79 12, tab 1
tab "Away System", 2
edit %reason, 15, 59 35 78 10, tab 2
box "Reasons:", 16, 16 25 126 52, tab 2
edit %awnick, 17, 59 48 78 10, tab 2
text "Away Reason:", 18, 19 36 37 10, tab 2
text "Away Nick:", 19, 19 48 37 10, tab 2
button "Away", 20, 5 88 92 12, tab 2
text " Put your away reason and your away nick here.", 21, 24 61 73 14, tab 2
box "Away or Back:", 22, 3 79 98 39, tab 2
button "Back", 23, 5 103 92 12, tab 2
text " This simple away system is also made it by CharltonJ..", 24, 103 97 68 18, tab 2
tab "X Login System", 25
edit %userx, 26, 52 34 57 10, tab 25
box "X Login for undernet or another (only X or W)", 27, 10 22 120 50, tab 25
text " Username:", 28, 12 36 36 8, tab 25
edit %passx, 29, 52 46 57 10, tab 25 pass multi return autohs
text " Password:", 30, 13 47 35 8, tab 25
edit %XIP, 31, 52 57 57 10, tab 25 multi return autohs
text "Set X Ip to login", 32, 12 58 41 11, tab 25
box " Chanserv Login System", 33, 10 72 120 43, tab 25
edit %CPA, 34, 55 96 50 10, tab 25 pass multi return autohs
text "Password:", 35, 13 97 38 8, tab 25
edit %CNick, 36, 55 85 50 10, tab 25
text "Nickname:", 37, 13 87 38 8, tab 25
button "Login", 38, 108 76 20 37, tab 25
button "Login", 39, 109 33 19 34, tab 25
text "This X login system is created by CharltonJ with some help of G13AoUsTiS, thanks for the help... enjoy using it you can find us on undernet @ #Chatting :)", 40, 132 22 40 96, tab 25
tab "Credits", 46
box "Mp3 Player", 47, 7 20 140 32, tab 46
text "The mp3 player is also made it by CharltonJ if you find any bugs on it please contact me. you can find me on Undernet @ #Chatting.", 48, 9 26 135 24, tab 46
box "Away system.", 49, 7 55 140 35, tab 46
text "The away system was completed by CharltonJ with no help, if you find any bugs in it please contact me. you can find me on Undernet @ #Chatting :)", 50, 10 63 132 25, tab 46
box "X/NickServ Login System", 51, 8 92 139 29, tab 46
text "The X/Nickserv login system made it by CharltonJ with a little help of G13AoUsTiS. if you find any bugs please contact us. Undernet @ #Chatting", 52, 11 99 132 20, tab 46
menu "File", 11
item "Okey", 12, 11, ok
item "eXit", 13, 11, cancel
}
on 1:dialog:xol:sclick:3: {
set %folder $sdir="set mp3 folder"
echo -a Folder Changed to " $+ %mp3dir $+ "
dialog -x xol
dialog -m xol xol
}
on 1:dialog:xol:sclick:8: {
set %mp3 $sfile(%folder $+ $did(8).seltext)
set %pl.le $gmt($calc($insong.length / 1000),HH:nn:ss)
set %song $nopath(%mp3) | splay %mp3 | /dialog -c xol xol | /timer 1 0 /dialog -m xol xol | /echo $active 1[13 $+ $nopath($insong.fname) $+ 1]
}
on 1:dialog:xol:sclick:5: {
splay pause
}
on 1:dialog:xol:sclick:6: {
splay resume
}
on 1:dialog:xol:sclick:7: {
splay stop
}
on *:dialog:xol:edit:*: {
if ($did == 26) { /set %userx $did(xol,26) }
if ($did == 29) { /set %passx $did(xol,29) }
if ($did == 31) { /set %xip $did(xol,31) }
if ($did == 34) { /set %cpa $did(xol,34) }
if ($did == 36) { /set %cnick $did(xol,36) }
if ($did == 15) { /set %reason $did(xol,15) }
}
on *:dialog:xol:sclick:*: {
if ($did == 38) { /nick %Cnick | /nickserv identify %cpa }
if ($did == 39) { /msg %Xip login %userx %passx }
if ($did == 9) { /dialog -m xol xol }
if ($did == 20) { /ame is away: %reason left at: $time *Revolution Away System* | set %mtime $ctime | /set %backnick $me | //nick $did(xol,17) }
if ($did == 23) { /ame is back, from: %reason Duration: $duration($calc($ctime - %mtime)) *Revolution Away System* | //nick %backnick }
}
on *:dialog:xol:edit:*: {
if ($did == 15) { /set %reason $did(xol,15) }
}
on *:dialog:xol:*:*: {
if ($devent == scroll) {
if ($did == 9) {
vol -w $calc($did($dname,9).sel * 655.35)
set %vol $vol(song)
}
}
}
menu * {
-
Systems:dialog -m xol xol
}