blob: 719c50e7de18c40a62fa773fd564e2c60dfbeb34 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
AbleToPlaySlotsCheck ; 2ff09 (b:7f09)
ld a, [$c102]
and $8
jr z, .done ; not able
ld b, COIN_CASE
ld a, $1c
call Predef ; IsItemInBag_
ld a, b
and a
ld b, $33 ; GameCornerCoinCaseText
jr z, .printCoinCaseRequired
ld hl, wPlayerCoins
ld a, [hli]
or [hl]
jr nz, .done ; able to play
ld b, $32 ; GameCornerNoCoinsText
.printCoinCaseRequired
call EnableAutoTextBoxDrawing
ld a, b
call PrintPredefTextID
xor a
.done
ld [$cd3d], a
ret
GameCornerCoinCaseText: ; 2ff32 (b:7f32)
TX_FAR _GameCornerCoinCaseText
db "@"
GameCornerNoCoinsText: ; 2ff37 (b:7f37)
TX_FAR _GameCornerNoCoinsText
db "@"
|
