mirror of https://github.com/pret/pokecrystal.git
67 lines
1.1 KiB
NASM
67 lines
1.1 KiB
NASM
SweetScentFromMenu:
|
|
ld hl, .SweetScent
|
|
call QueueScript
|
|
ld a, $1
|
|
ld [wFieldMoveSucceeded], a
|
|
ret
|
|
|
|
.SweetScent:
|
|
refreshmap
|
|
special UpdateTimePals
|
|
callasm GetPartyNickname
|
|
writetext UseSweetScentText
|
|
waitbutton
|
|
callasm SweetScentEncounter
|
|
iffalse SweetScentNothing
|
|
checkflag ENGINE_BUG_CONTEST_TIMER
|
|
iftrue .BugCatchingContest
|
|
randomwildmon
|
|
startbattle
|
|
reloadmapafterbattle
|
|
end
|
|
|
|
.BugCatchingContest:
|
|
farsjump BugCatchingContestBattleScript
|
|
|
|
SweetScentNothing:
|
|
writetext SweetScentNothingText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
SweetScentEncounter:
|
|
farcall CanEncounterWildMon
|
|
jr nc, .no_battle
|
|
ld hl, wStatusFlags2
|
|
bit STATUSFLAGS2_BUG_CONTEST_TIMER_F, [hl]
|
|
jr nz, .in_bug_contest
|
|
farcall GetMapEncounterRate
|
|
ld a, b
|
|
and a
|
|
jr z, .no_battle
|
|
farcall ChooseWildEncounter
|
|
jr nz, .no_battle
|
|
jr .start_battle
|
|
|
|
.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
|
|
|
|
UseSweetScentText:
|
|
text_far _UseSweetScentText
|
|
text_end
|
|
|
|
SweetScentNothingText:
|
|
text_far _SweetScentNothingText
|
|
text_end
|