Playsound wird auf einmal Lauter !?!?

[Schranz0r]

Hi,
ich haben bei einer Collision einen Sound mit drine, und....., ach was laber ich Code, Hilft mehr

Function der Collision
 

Code (glbasic) Select Expand

FUNCTION Collblock: spr, color
Coll = 0
IF SPRCOLL(spr,x*TS,y*TS,1001,PX,PY+10) // Unten
dir = 0
IF BallColor = color AND Coll = 0
Level[x][y] = 0
Bouncesound()
SELECT color
CASE 0
Green = Green - 1
CASE 1
Blue = Blue - 1
CASE 2
Red = Red - 1
ENDSELECT
Coll = 1
ENDIF
ENDIF

IF SPRCOLL(spr,x*TS,y*TS,1000,PX,PY-2) // Oben
dir = 1
IF BallColor = color AND Coll = 0
Level[x][y] = 0
Bouncesound()
SELECT color
CASE 0
Green = Green - 1
CASE 1
Blue = Blue - 1
CASE 2
Red = Red - 1
ENDSELECT
Coll = 1
ENDIF

ENDIF

IF SPRCOLL(spr,x*TS,y*TS,1002,PX-2,PY)
PX = PX + 10 // Links
IF BallColor = color AND Coll = 0
Level[x][y] = 0
Bouncesound()
SELECT color
CASE 0
Green = Green - 1
CASE 1
Blue = Blue - 1
CASE 2
Red = Red - 1
ENDSELECT
Coll = 1
ENDIF

ENDIF
IF SPRCOLL(spr,x*TS,y*TS,1003,PX+10,PY)
PX = PX - 10 // Rechts
IF BallColor = color AND Coll = 0
Level[x][y] = 0
Bouncesound()
SELECT color
CASE 0
Green = Green - 1
CASE 1
Blue = Blue - 1
CASE 2
Red = Red - 1
ENDSELECT
Coll = 1
ENDIF
ENDIF

ENDFUNCTIONFunction der Soundausagbe:
(Hab ich gemacht weil ich dachte, es liegt daran das der Sound sich evtl automatisch wieder auf Lautstärke 1 setzt )

Code (glbasic) Select Expand

FUNCTION Bouncesound:
       PLAYSOUND(3,0,0.8)
ENDFUNCTIONAn machen stellen Bounced der Ball schnell hin und her, da wird er dann lauter !
Vielleicht ein Bug?

Grüße

[D2O]

Wird Playsound nicht immer wieder, sollange die Collision stattfindet, aufgerufen?

Du solltest vielecht überprüfen ob der Sound noch abgespielt wird und erst dann wieder aufrufen?