Hi,
ich haben bei einer Collision einen Sound mit drine, und....., ach was laber ich Code, Hilft mehr ;)
Function der Collision
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 )
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
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?