mirror of https://github.com/pret/pokecrystal.git
69 lines
1.2 KiB
NASM
69 lines
1.2 KiB
NASM
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_far UnknownText_0x1c0b03
|
|
db "@"
|
|
|
|
UnknownText_0x5072b:
|
|
; Looks like there's nothing here…
|
|
text_far UnknownText_0x1c0b1a
|
|
db "@"
|