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
|
BluesHouseScript:
call EnableAutoTextBoxDrawing
ld hl, BluesHouseScriptPointers
ld a, [wBluesHouseCurScript]
jp CallFunctionInTable
BluesHouseScriptPointers:
dw BluesHouseScript0
dw BluesHouseScript1
BluesHouseScript0:
SetEvent EVENT_ENTERED_BLUES_HOUSE
; trigger the next script
ld a, 1
ld [wBluesHouseCurScript], a
ret
BluesHouseScript1:
ret
BluesHouseTextPointers:
dw BluesHouseText1
dw BluesHouseText2
dw BluesHouseText3
BluesHouseText1:
TX_ASM
CheckEvent EVENT_GOT_TOWN_MAP
jr nz, .GotMap
CheckEvent EVENT_GOT_POKEDEX
jr nz, .GiveMap
ld hl, DaisyInitialText
call PrintText
jr .done
.GiveMap
ld hl, DaisyOfferMapText
call PrintText
lb bc, TOWN_MAP, 1
call GiveItem
jr nc, .BagFull
ld a, HS_TOWN_MAP
ld [wMissableObjectIndex], a
predef HideObject ; hide table map object
ld hl, GotMapText
call PrintText
SetEvent EVENT_GOT_TOWN_MAP
jr .done
.GotMap
ld hl, DaisyUseMapText
call PrintText
jr .done
.BagFull
ld hl, DaisyBagFullText
call PrintText
.done
jp TextScriptEnd
DaisyInitialText:
TX_FAR _DaisyInitialText
db "@"
DaisyOfferMapText:
TX_FAR _DaisyOfferMapText
db "@"
GotMapText:
TX_FAR _GotMapText
TX_SFX_KEY_ITEM
db "@"
DaisyBagFullText:
TX_FAR _DaisyBagFullText
db "@"
DaisyUseMapText:
TX_FAR _DaisyUseMapText
db "@"
BluesHouseText2: ; Daisy, walking around
TX_FAR _BluesHouseText2
db "@"
BluesHouseText3: ; map on table
TX_FAR _BluesHouseText3
db "@"
|
