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 *BadOman 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)) *BadOman 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
}