pokered/engine/game_corner_slots2.asm

AbleToPlaySlotsCheck: ; 2ff09 (b:7f09)
	ld a, [wSpriteStateData1 + 2]
	and $8
	jr z, .done ; not able
	ld b, COIN_CASE
	predef GetQuantityOfItemInBag
	ld a, b
	and a
	ld b, (GameCornerCoinCaseText_id - TextPredefs) / 2 + 1
	jr z, .printCoinCaseRequired
	ld hl, wPlayerCoins
	ld a, [hli]
	or [hl]
	jr nz, .done ; able to play
	ld b, (GameCornerNoCoinsText_id - TextPredefs) / 2 + 1
.printCoinCaseRequired
	call EnableAutoTextBoxDrawing
	ld a, b
	call PrintPredefTextID
	xor a
.done
	ld [wCanPlaySlots], a
	ret

GameCornerCoinCaseText: ; 2ff32 (b:7f32)
	TX_FAR _GameCornerCoinCaseText
	db "@"

GameCornerNoCoinsText: ; 2ff37 (b:7f37)
	TX_FAR _GameCornerNoCoinsText
	db "@"
misc 2015-07-19 03:49:52 +00:00			`AbleToPlaySlotsCheck: ; 2ff09 (b:7f09)`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wSpriteStateData1 + 2]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and $8`
			`jr z, .done ; not able`
			`ld b, COIN_CASE`
named more variables 2015-08-13 05:14:31 +00:00			`predef GetQuantityOfItemInBag`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, b`
			`and a`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`ld b, (GameCornerCoinCaseText_id - TextPredefs) / 2 + 1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jr z, .printCoinCaseRequired`
			`ld hl, wPlayerCoins`
			`ld a, [hli]`
			`or [hl]`
			`jr nz, .done ; able to play`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`ld b, (GameCornerNoCoinsText_id - TextPredefs) / 2 + 1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`.printCoinCaseRequired`
			`call EnableAutoTextBoxDrawing`
			`ld a, b`
			`call PrintPredefTextID`
			`xor a`
			`.done`
misc 2015-07-19 03:49:52 +00:00			`ld [wCanPlaySlots], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret`

			`GameCornerCoinCaseText: ; 2ff32 (b:7f32)`
			`TX_FAR _GameCornerCoinCaseText`
			`db "@"`

			`GameCornerNoCoinsText: ; 2ff37 (b:7f37)`
			`TX_FAR _GameCornerNoCoinsText`
			`db "@"`