Sorry your browser is not supported!

sync on
start:
sync rate 30
do
cls
ink rgb(255,255,255),0
text 0,100,"Music1"
text 0,130,"Music2"
text 0,160,"Music3"
text 0,190,"QUIT"
text 260,0,"Favourite Hits"
`Music 1
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 then ink rgb(0,0,100),0 : text 0,100,"Music1"
if mousex() > 0 and mousex() < 100 and mousey() > 100 and mousey() < 120 and mouseclick()=1 then goto music1

`Music2
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 then ink rgb(0,0,100),0 : text 0,130,"Music2"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 and mouseclick()=1 then goto music2

`Music3
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 then ink rgb(0,0,100),0 : text 0,160,"Music3"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 and mouseclick()=1 then goto music3

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 then ink rgb(0,0,100),0 : text 0,190,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 and mouseclick()=1 then end
sync
loop
rem music 1
music1:
load music "Mind Trick.mid",1
play music 1
suspend for key
stop music 1
goto start
rem music 2
music2:
load music "Dodge This.mid",2
play music 2
suspend for key
stop music 2
goto start
rem music 3
music3:
load music "dj rankin - crazy frog remix 1.mp3",3
play music 3
suspend for key
stop music 3
goto start

sync on
sync rate 30

do
  Mx = MouseX(): My = MouseY(): Mc = MouseClick()
  Gosub Screen
  `Music 1
  if Mx > 0 and Mx < 100 and My > 100 and My < 120
    ink rgb(0,0,100),0 : text 0,100,"Music1"
    if Mc=1 then gosub music1
  Endif

  `Music2
  if Mx > 0 and Mx < 100 and My > 130 and My < 150
    ink rgb(0,0,100),0 : text 0,130,"Music2"
    if Mc=1 then gosub music2
  Endif

  `Music3
  if Mx > 0 and Mx < 100 and My > 160 and My < 180
    ink rgb(0,0,100),0 : text 0,160,"Music3"
    if Mc=1 then gosub music3
  Endif

  `QUIT
  if Mx > 0 and Mx < 100 and My > 190 and My < 210
    ink rgb(0,0,100),0 : text 0,190,"QUIT"
    if Mc=1 then end
  Endif
  sync
loop

Screen:
  cls
  ink rgb(255,255,255),0
  text 0,100,"Music1"
  text 0,130,"Music2"
  text 0,160,"Music3"
  text 0,190,"QUIT"
  text 260,0,"Favourite Hits"
return

rem music 1
music1:
  load music "Mind Trick.mid",1
  play music 1
  suspend for key
  stop music 1
Return

rem music 2
music2:
  load music "Dodge This.mid",2
  play music 2
  suspend for key
  stop music 2
Return

rem music 3
music3:
  load music "dj rankin - crazy frog remix 1.mp3",3
  play music 3
  suspend for key
  stop music 3
Return

sync on
sync rate 30

type menuItem
   x as integer
   y as integer
   title as string
   color as dword
endtype

dim menuItems(4) as menuItem

restore items
for t = 1 to 4
   read menuItems(t).x
   read menuItems(t).y
   read menuItems(t).title
next t

dim songs(3) as string
songs(1) = "c:\test.mp3"
songs(2) = "c:\test.mp3"
songs(3) = "c:\test.mp3"

clickFlag = 0

repeat
   gosub _handle_menu

   sync
until spacekey()



_handle_menu:
   MC = mouseClick()
   if MC = 0 then clickFlag = 0
   count = array count(menuItems())
   for t = 1 to count
      if mouseInText(menuItems(t).x, menuItems(t).y, menuItems(t).title) = 1
         menuItems(t).color = rgb(255,0,0)
         if MC = 1 and clickFlag = 0
            clickFlag = 1
            _call_action(menuItems(t).title)
         endif
      else
         menuItems(t).color = rgb(255,255,255)
      endif
      ink menuItems(t).color, 0
      text menuItems(t).x,menuItems(t).y,menuItems(t).title
   next t
RETURN

function _call_action(action as string)
   action = lower$(action)

   select action
      case "music 1" : controlMusic(1) : endcase
      case "music 2" : controlMusic(2) : endcase
      case "music 3" : controlMusic(3) : endcase
      case "quit" : end : endcase
   endselect

endfunction


function controlMusic(song as integer)
   if music exist(song) = 0
      load music songs(song), song
   endif
   if music playing(song) = 0
      play music song
   else
      stop music song
   endif
endfunction


function mouseInText(x as integer, y as integer, str as string)
   mx = mousex()
   my = mousey()
   if mx > x and mx < x+text width(str) and my > y and my < y+text height(str)
      exitfunction 1
   endif
endfunction 0



items:
data 0,100,"Music 1"
data 0,130,"Music 2"
data 0,160,"Music 3"
data 0,190,"Quit"