pokecrystal-board/engine/routines/playslowcry.asm

PlaySlowCry: ; fb841
	ld a, [ScriptVar]
	call LoadCryHeader
	jr c, .done

	ld hl, CryPitch
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld bc, -$140
	add hl, bc
	ld a, l
	ld [CryPitch], a
	ld a, h
	ld [CryPitch + 1], a
	ld hl, CryLength
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld bc, $60
	add hl, bc
	ld a, l
	ld [CryLength], a
	ld a, h
	ld [CryLength + 1], a
	farcall _PlayCryHeader
	call WaitSFX

.done
	ret
; fb877
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`PlaySlowCry: ; fb841`
			`ld a, [ScriptVar]`
			`call LoadCryHeader`
			`jr c, .done`

			`ld hl, CryPitch`
			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
			`ld bc, -$140`
			`add hl, bc`
			`ld a, l`
			`ld [CryPitch], a`
			`ld a, h`
			`ld [CryPitch + 1], a`
			`ld hl, CryLength`
			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
			`ld bc, $60`
			`add hl, bc`
			`ld a, l`
			`ld [CryLength], a`
			`ld a, h`
			`ld [CryLength + 1], a`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall _PlayCryHeader`
Copy pokered's organization some more, with further constant and data files 2017-12-15 14:22:52 -08:00			`call WaitSFX`

			`.done`
			`ret`
			`; fb877`