menu 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
}