Code: Select all
SetWindow "Kaxzen rumpukone", 0, "Paina ESC lopettaaksesi"
SCREEN 325,20
Print "Keys: A,S,D,F,G. paina ESC lopettaaksesi."
snare=LoadSound ("media\snare.wav")
hihat=LoadSound ("media\hat.wav")
kick=LoadSound ("media\kick.wav")
tom=LoadSound ("media\tom.wav")
crash=LoadSound ("media\crash.wav")
Repeat
If KeyHit(cbkeya) Then PlaySound snare
If KeyHit(cbkeys) Then PlaySound hihat
If KeyHit(cbkeyd) Then PlaySound kick
If KeyHit(cbkeyf) Then PlaySound tom
If KeyHit(cbkeyg) Then PlaySound crash
Until EscapeKey()
DeleteSound snare
DeleteSound hihat
DeleteSound kick
DeleteSound tom
DeleteSound crash
Siis äänet on oikeassa kansiossaan, eli vika on jossain kohtaa koodia, mutta missä?