[Данил]

a:int

Function RefreshButtonImage (ImBtn,x,y,n,)
If RectsOverlap (x-ImageWidth(ImBtn)/2,y-ImageHeight(ImBtn)/2,ImageWidth(ImBtn),ImageHeight(ImBtn),MouseX(),Mo useY(),1,1) Then
If a = 0 then PlaySound (s_select); a = 1
If MouseHit (1) Then
Buttons(n)=1
EndIf
EndIf
iDrawImage ImBtn,x,y
End Function

эм? проиграется всего один раз. а если надо сделать , чтобы потом еще проигрывалось - можно таймер поставить. ну, или :

Function RefreshButtonImage (ImBtn,x,y,n,)
If RectsOverlap (x-ImageWidth(ImBtn)/2,y-ImageHeight(ImBtn)/2,ImageWidth(ImBtn),ImageHeight(ImBtn),MouseX(),Mo useY(),1,1) Then
If a = 0 then PlaySound (s_select); a = 1
If MouseHit (1) Then
Buttons(n)=1
EndIf
Else
a=0
EndIf
iDrawImage ImBtn,x,y
End Function