Sorry your browser is not supported!

exit$="Exit"

x1=200
y1=200

w1=text width(exit$)
h1=text height(exit$)

do
if mousex()>=x1 and mousex()<=x1+w1 and mousey()>=y1 and mousey()<=y1+h1
      ink rgb(0,232,0),0
      rollover=2
      if mouseclick()=1 then end
   else
  ink rgb(255,255,255),0
      rollover=1
   endif
   text x1,y1,exit$
loop

Rem * Title  : Recording Sounds
Rem * Author : DBS-LB
Rem * Date   : June 2001
rem ================================================
rem DARK BASIC EXAMPLE PROGRAM 10
rem ================================================
rem This program will record, save and play a sound
rem ------------------------------------------------
sync on : sync rate 0

rem Clear screen
set text font "Arial"
cls rgb(8,16,8)

rem Main loop
do

   rem User prompt buttons
   ink rgb(255,255,0),0 : set text size 50
   center text 320,80,"DarkBASIC Sound Maker"

   rem Status prompt
   ink rgb(8,16,8),0 : box 0,300,639,479
   ink rgb(55,55,0),0 : set text size 40
   select recordflag
      case 0 : center text 320,350,"NO SOUND IN MEMORY" : endcase
      case 1 : center text 320,350,"RECORDING SOUND" : endcase
      case 2 : center text 320,350,"STOPPED AND SAVED TO FILE" : endcase
      case 3 : center text 320,350,"SOUND PLAYING" : endcase
      case 4 : center text 320,350,"SOUND READY" : endcase
      case default : center text 320,350,"NOUT" : endcase
   endselect

   rem Show and operate buttons
   buttonselected=0
   if makebutton(110,240,"RECORD SOUND")>0 then buttonselected=1
   if makebutton(320,240,"STOP AND SAVE")>0 then buttonselected=2
   if makebutton(530,240,"PLAYBACK SOUND")>0 then buttonselected=3

   rem Detect button selection
   if buttonselected=1 and (recordflag=0 or recordflag=4)
      recordflag=1 : record sound 1,10
   endif
   if buttonselected=2 and recordflag=1
      recordflag=2 : stop recording sound
      save sound "sample.wav",1
   endif
   if buttonselected=3 and (recordflag=2 or recordflag=4)
      recordflag=3 : play sound 1
   endif
   if recordflag=3
      if sound playing(1)=0 then recordflag=4
   endif

   rem Update screen
   sync

rem End loop
loop

function makebutton(x,y,desc$)
   buttonpressed=0
   ink rgb(0,255,0),0 : box x-102,y-34,x+102,y+34
   ink rgb(0,128,0),0 : box x-100,y-32,x+100,y+32
   ink rgb(55,55,0),0
   myx=mousex() : myy=mousey()
   if myx>x-100 and myx<x+100
      if myy>y-32 and myy<y+32
         buttonpressed=1
      endif
   endif
   if buttonpressed=1 then ink rgb(255,255,0),0
   set text size 18 : center text x,y-8,desc$
   if mouseclick()=0 then buttonpressed=0
endfunction buttonpressed

a$= "Start Game"
b$ = "Load Game"
c$ = "Quit Game"
rem main menu choice
choice = 0


do
rem so that choice can only be between 1 and 3
if choice < 1 then choice = 1
if choice > 3 then choice = 3

rem set the text colour
if choice = 1
ink rgb(24,189,211),1
center text 300,300,a$
else
ink rgb(244,214,210),1
center text 300,300,a$
endif

if choice = 2
ink rgb(24,189,211),1
center text 300,315,b$
else
ink rgb(244,214,210),1
center text 300,315,b$
endif

if choice = 3
ink rgb(24,189,211),1
center text 300,330,c$
else
ink rgb(244,214,210),1
center text 300,330,c$
endif

rem the upkey commands
if upkey() = 1 and press=0
press=1
choice = choice - 1
endif

if downkey() = 1 and press=0
press=1
choice = choice +1
endif
if upkey()=0 and downkey()=0 then press=0

rem when enter is pressed
if returnkey() = 1

if choice = 1
cls
print "you chosse start game"
endif

if choice = 2
cls
print "You Chosse Load Game"
endif

if choice = 3
end
endif

endif

loop