need help with adding a sound clip

[Brad71]

I got bored with the bouncing ball program so me and my friend wanted to alter it slightly. Mr. T's head bounces around instead of a ball and I want it to play a sound clip when he hits the edge. I figured that part out but don't know how to stop the sound from looping. here's the code, any suggestions.

code:

var picID : int picID := Pic.FileNew ("mr-t-head.bmp") var x, y, dirx, diry : int x := maxx div 2 y := maxy div 2 dirx := 1 diry := 1 process pity     loop         Music.PlayFile ("pitydafool.wav")     end loop end pity loop     x += dirx     y += diry     if x < 0 or x > maxx - 53 then         dirx := dirx * -1         fork pity     end if     if y < 0 or y > maxy - 85 then         diry := diry * -1         fork pity     end if     Pic.Draw (picID, x, y, picCopy)     View.Update     delay (10)     cls end loop

[Token]

just remove the loop from the process

[Brad71]

Thanks

[Token]

your welcome, its actually a pretty good idea for a program, you should draw multiple mr-t's and have them bounce into each other.