include "includes.i"

	xdef	PlayNextSound
	
PlayNextSound:
	if SFX=1	
	move.w  #2,AUD3LEN(a6) ; set the empty sound for the next sample to be played	
	move.l	#emptySound,AUD3LCH(a6)
	endif
	rts	

	if SFX=1
	xdef	PlayJumpSound
	xdef	PlayFallingSound
	xdef    PlayChachingSound
	xdef    PlayWhooshSound
	xdef    PlayYaySound	
	xdef	PlayZapSound
	
PlayJumpSound:
	lea     jump(pc),a1
        move.l  a1,AUD3LCH(a6)
        move.w  #123,AUD3PER(a6)
        move.w  #64,AUD3VOL(a6)
	move.w  #(endJump-jump)/2,AUD3LEN(a6) ;Set length in words
	move.w	#(DMAF_AUD3|DMAF_SETCLR),DMACON(a6)
	rts

PlayWhooshSound:
	KillSound
	lea     whoosh,a1
        move.l  a1,AUD3LCH(a6)
        move.w  #256,AUD3PER(a6)
        move.w  #64,AUD3VOL(a6)
	move.w  #(endWhoosh-whoosh)/2,AUD3LEN(a6) ;Set length in words
	move.w	#(DMAF_AUD3|DMAF_SETCLR),DMACON(a6)
	rts	


PlayFallingSound:
	KillSound
	lea     falling(pc),a1
        move.l  a1,AUD3LCH(a6)
        move.w  #256,AUD3PER(a6)
        move.w  #25,AUD3VOL(a6) 
	move.w  #(endFalling-falling)/4,AUD3LEN(a6) ;Set length in words
	move.w	#(DMAF_AUD3|DMAF_SETCLR),DMACON(a6)
	rts

PlayChachingSound:
	KillSound	
	lea     chaching,a1
        move.l  a1,AUD3LCH(a6)
        move.w  #256,AUD3PER(a6)
        move.w  #64,AUD3VOL(a6) 
	move.w  #(endChaching-chaching)/2,AUD3LEN(a6) ;Set length in words
	move.w	#(DMAF_AUD3|DMAF_SETCLR),DMACON(a6)
	rts

PlayYaySound:
	KillSound	
	lea     yay,a1
        move.l  a1,AUD3LCH(a6)
        move.w  #423,AUD3PER(a6)
        move.w  #64,AUD3VOL(a6) 
	move.w  #(endYay-yay)/2,AUD3LEN(a6) ;Set length in words
	move.w	#(DMAF_AUD3|DMAF_SETCLR),DMACON(a6)
	rts

PlayZapSound:
	KillSound	
	lea     zap,a1
        move.l  a1,AUD3LCH(a6)
        move.w  #124,AUD3PER(a6)
        move.w  #64,AUD3VOL(a6) 
	move.w  #(endZap-zap)/2,AUD3LEN(a6) ;Set length in words
	move.w	#(DMAF_AUD3|DMAF_SETCLR),DMACON(a6)
	rts

	align	4
jump:
	incbin	"out/jump.raw"
endJump:	
	align	4
falling:
	incbin	"out/falling.raw"
endFalling:
	align 4
chaching:
	incbin	"out/chaching.raw"
endChaching:
	align 4
whoosh:
	incbin	"out/whoosh.raw"
endWhoosh:
	align 4
yay:
	incbin	"out/yay.raw"
endYay:
zap:
	;; incbin	"out/zap.raw"
	incbin	"out/yay.raw"	
endZap:
	align 4

	align	2
emptySound:
	dc.l	0
	endif