pokecrystal-board/engine/events/play_slow_cry.asm

PlaySlowCry:
	ldh a, [hScriptVar]
	call LoadCry
	jr c, .done

	ld hl, wCryPitch
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld bc, -$140
	add hl, bc
	ld a, l
	ld [wCryPitch], a
	ld a, h
	ld [wCryPitch + 1], a
	ld hl, wCryLength
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld bc, $60
	add hl, bc
	ld a, l
	ld [wCryLength], a
	ld a, h
	ld [wCryLength + 1], a
	farcall _PlayCry
	call WaitSFX

.done
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`PlaySlowCry:`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh a, [hScriptVar]`
"CryHeader" → "Cry"; "Cry" → "MonCry" 2018-01-16 20:47:45 -08:00			`call LoadCry`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`jr c, .done`

Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wCryPitch`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
			`ld bc, -$140`
			`add hl, bc`
			`ld a, l`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCryPitch], a`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`ld a, h`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCryPitch + 1], a`
			`ld hl, wCryLength`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
			`ld bc, $60`
			`add hl, bc`
			`ld a, l`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCryLength], a`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`ld a, h`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCryLength + 1], a`
"CryHeader" → "Cry"; "Cry" → "MonCry" 2018-01-16 20:47:45 -08:00			`farcall _PlayCry`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`call WaitSFX`

			`.done`
			`ret`