Sorry your browser is not supported!

do
play sound 1 
gui1x=gui1x+15
sprite 1,gui1x,150,1
if gui1x>=250
gui1x=250
stop sound 1 
endif
sync
loop

play sound 1 

do
    gui1x=gui1x+15
    sprite 1,gui1x,150,1
    if gui1x>=250
    gui1x=250
    stop sound 1 
    endif
    sync
loop

rem ---------------------------------------------------
rem sound playing with rapid fire and non rapid fire
rem indi 2003
rem ---------------------------------------------------

rem temp setup
sync on
sync rate 60

rem load a sound
load sound "blip.wav",1

rem engage temp 3d
make object cube 1,10


rem PREMAIN
disable escapekey

rem MAIN
do

rem rapid fire approach yuk bleh avoid it
if inkey$()="a"
play sound 1
endif


rem change UniqueName to resemble what it does
rem u will need one for each key u make if u plan to use it more than once

rem KEY 31 = s
If keystate(31)=1 and UniqueName_Control_switch=0
   UniqueName_Control_toggle=1-UniqueName_Control_toggle
   UniqueName_Control_switch=1
   Endif
   If keystate(31)=0 then UniqueName_Control_switch=0
   if UniqueName_Control_toggle = 1
   play sound 1
   UniqueName_Control_toggle = 0
   endif

text 10,10,"the scan code of the key being pressed is :"+STR$(scancode())


if escapekey()=1
delete object 1
   delete sound 1
end
endif

sync
loop