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
|
SweetScentFromMenu:
ld hl, .SweetScent
call QueueScript
ld a, $1
ld [wFieldMoveSucceeded], a
ret
.SweetScent:
reloadmappart
special UpdateTimePals
callasm GetPartyNick
writetext UnknownText_0x50726
waitbutton
callasm SweetScentEncounter
iffalse SweetScentNothing
checkflag ENGINE_BUG_CONTEST_TIMER
iftrue .BugCatchingContest
randomwildmon
startbattle
reloadmapafterbattle
end
.BugCatchingContest:
farjump BugCatchingContestBattleScript
SweetScentNothing:
writetext UnknownText_0x5072b
waitbutton
closetext
end
SweetScentEncounter:
farcall CanUseSweetScent
jr nc, .no_battle
ld hl, wStatusFlags2
bit STATUSFLAGS2_BUG_CONTEST_TIMER_F, [hl]
jr nz, .not_in_bug_contest
farcall GetMapEncounterRate
ld a, b
and a
jr z, .no_battle
farcall ChooseWildEncounter
jr nz, .no_battle
jr .start_battle
.not_in_bug_contest
farcall ChooseWildEncounter_BugContest
.start_battle
ld a, $1
ld [wScriptVar], a
ret
.no_battle
xor a
ld [wScriptVar], a
ld [wBattleType], a
ret
UnknownText_0x50726:
; used SWEET SCENT!
text_jump UnknownText_0x1c0b03
db "@"
UnknownText_0x5072b:
; Looks like there's nothing here…
text_jump UnknownText_0x1c0b1a
db "@"
|
