Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
pret
GitHub Repository: pret/pokered
 Path: blob/master/audio/alternate_tempo.asm
1270 views
1
; an alternate start for MeetRival which has a different first measure

2
Music_RivalAlternateStart::

3
	ld c, BANK(Music_MeetRival)

4
	ld a, MUSIC_MEET_RIVAL

5
	call PlayMusic

6
	ld hl, wChannelCommandPointers

7
	ld de, Music_MeetRival_Ch1_AlternateStart

8
	call Audio1_OverwriteChannelPointer

9
	ld de, Music_MeetRival_Ch2_AlternateStart

10
	call Audio1_OverwriteChannelPointer

11
	ld de, Music_MeetRival_Ch3_AlternateStart

12


13
Audio1_OverwriteChannelPointer:

14
	ld a, e

15
	ld [hli], a

16
	ld a, d

17
	ld [hli], a

18
	ret

19


20
; an alternate tempo for MeetRival which is slightly slower

21
Music_RivalAlternateTempo::

22
	ld c, BANK(Music_MeetRival)

23
	ld a, MUSIC_MEET_RIVAL

24
	call PlayMusic

25
	ld hl, wChannelCommandPointers

26
	ld de, Music_MeetRival_Ch1_AlternateTempo

27
	jp Audio1_OverwriteChannelPointer

28


29
; applies both the alternate start and alternate tempo

30
Music_RivalAlternateStartAndTempo::

31
	call Music_RivalAlternateStart

32
	ld hl, wChannelCommandPointers

33
	ld de, Music_MeetRival_Ch1_AlternateStartAndTempo

34
	jp Audio1_OverwriteChannelPointer

35


36
; an alternate tempo for Cities1 which is used for the Hall of Fame room

37
Music_Cities1AlternateTempo::

38
	ld a, 10

39
	ld [wAudioFadeOutCounterReloadValue], a

40
	ld [wAudioFadeOutCounter], a

41
	ld a, $ff ; stop playing music after the fade-out is finished

42
	ld [wAudioFadeOutControl], a

43
	ld c, 100

44
	call DelayFrames ; wait for the fade-out to finish

45
	ld c, BANK(Music_Cities1)

46
	ld a, MUSIC_CITIES1

47
	call PlayMusic

48
	ld hl, wChannelCommandPointers

49
	ld de, Music_Cities1_Ch1_AlternateTempo

50
	jp Audio1_OverwriteChannelPointer

51


52