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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
;INCLUDE "engine/bank3c/overworld.asm"
INCBIN "baserom.gbc",$f0000,$f0274 - $f0000
ResetStatusAndHalveMoneyOnBlackout:: ; f0274 (3c:4274)
; Reset player status on blackout.
xor a
ld [wd435],a
xor a ; gamefreak copypasting functions (double xor a)
ld [wBattleResult], a
ld [wWalkBikeSurfState], a
ld [W_ISINBATTLE], a
ld [wMapPalOffset], a
ld [wNPCMovementScriptFunctionNum], a
ld [hJoyHeld], a
ld [wNPCMovementScriptPointerTableNum], a
ld [wFlags_0xcd60], a
ld [$ff9f], a
ld [$ff9f + 1], a
ld [$ff9f + 2], a
call HasEnoughMoney
jr c, .lostmoney ; never happens
; Halve the player's money.
ld a, [wPlayerMoney]
ld [$ff9f], a
ld a, [wPlayerMoney + 1]
ld [$ff9f + 1], a
ld a, [wPlayerMoney + 2]
ld [$ff9f + 2], a
xor a
ld [$ffa2], a
ld [$ffa3], a
ld a, 2
ld [$ffa4], a
predef DivideBCDPredef3
ld a, [$ffa2]
ld [wPlayerMoney], a
ld a, [$ffa2 + 1]
ld [wPlayerMoney + 1], a
ld a, [$ffa2 + 2]
ld [wPlayerMoney + 2], a
.lostmoney
ld hl, wd732
set 2, [hl]
res 3, [hl]
set 6, [hl]
ld a, %11111111
ld [wJoyIgnore], a
predef_jump HealParty
Func_f02da:: ; f02da (3c:42da)
ld a,[W_CURMAP]
cp VERMILION_GYM ; ??? new thing about verm gym?
jr z,.asm_f02ee
ld c,a
ld hl,Pointer_f02fa
.asm_f02e5
ld a,[hli]
cp c
jr z,.asm_f02f4
cp a,$ff
jr nz,.asm_f02e5
ret
.asm_f02ee
ld hl,wd126
set 6,[hl]
ret
.asm_f02f4
ld hl,wd126
set 5,[hl]
ret
Pointer_f02fa:: ; f02fa (3c:42fa)
db $cf,$d0,$d1,$d2,$d3,$d4
db $d5,$e9,$ea,$eb,$d6,$d7
db $d8,$a5,$a6,$87,$c7,$ca
db $c6,$6c,$c2,$71,$f5,$f6
db $f7,$ff
BeachHouse_GFX:: ; f0314 (3c:4314)
INCBIN "gfx/tilesets/beachhouse.2bpp"
BeachHouse_Block:: ; f0914 (3c:4914)
INCBIN "gfx/blocksets/beachhouse.bst"
Func_f0a55:: ; f0a55 (3c:4a55)
ld hl,Pointer_f0a76 ; 3c:4a76
.loop
ld a,[hli]
cp a,$ff
ret z
ld b,a
ld a,[W_CURMAP]
cp b
jr z,.asm_f0a68
inc hl
inc hl
inc hl
jr .loop
.asm_f0a68
ld a,[hli]
ld c,a
ld b,$0
ld a,[hli]
ld h,[hl]
ld l,a
ld de,W_MISSABLEOBJECTLIST
call CopyData
ret
Pointer_f0a76:: ; f0a76 (3c:4a76)
db $27,$07,$7b,$4a,$ff
db $01,$ec,$02,$ed,$03,$ee,$ff
INCBIN "baserom.gbc",$f0a82,$f4000 - $f0a82
|
