pokecrystal-board/engine/events/sweet_scent.asm

SweetScentFromMenu:
	ld hl, .SweetScent
	call QueueScript
	ld a, $1
	ld [wFieldMoveSucceeded], a
	ret

.SweetScent:
	reloadmappart
	special UpdateTimePals
	callasm GetPartyNick
	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 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

UseSweetScentText:
	text_far _UseSweetScentText
	text_end

SweetScentNothingText:
	text_far _SweetScentNothingText
	text_end
Remove all address comments 2018-06-24 16:09:41 +02:00			`SweetScentFromMenu:`
Labelling Sweet Scent. 2017-10-25 00:14:05 -04:00			`ld hl, .SweetScent`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`call QueueScript`
			`ld a, $1`
Elevator 2015-12-17 17:51:32 -05:00			`ld [wFieldMoveSucceeded], a`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`ret`

Remove even more address comments That should be all of them this time 2018-06-25 02:10:37 +02:00			`.SweetScent:`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`reloadmappart`
			`special UpdateTimePals`
			`callasm GetPartyNick`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`writetext UseSweetScentText`
Rename several script commands 2015-11-25 10:16:29 -05:00			`waitbutton`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`callasm SweetScentEncounter`
Labelling Sweet Scent. 2017-10-25 00:14:05 -04:00			`iffalse SweetScentNothing`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`checkflag ENGINE_BUG_CONTEST_TIMER`
Labelling Sweet Scent. 2017-10-25 00:14:05 -04:00			`iftrue .BugCatchingContest`
Break up engine/sprites.asm; address yenatch's comments 2015-12-01 21:54:11 -05:00			`randomwildmon`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`startbattle`
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 18:11:55 -05:00			`reloadmapafterbattle`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`end`

Remove even more address comments That should be all of them this time 2018-06-25 02:10:37 +02:00			`.BugCatchingContest:`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 16:39:31 -04:00			`farsjump BugCatchingContestBattleScript`
More splits; map setup labels 2015-11-11 23:38:57 -05:00
Remove even more address comments That should be all of them this time 2018-06-25 02:10:37 +02:00			`SweetScentNothing:`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`writetext SweetScentNothingText`
Rename several script commands 2015-11-25 10:16:29 -05:00			`waitbutton`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`closetext`
			`end`

Remove all address comments 2018-06-24 16:09:41 +02:00			`SweetScentEncounter:`
callba/callab → farcall/callfar 2017-12-24 12:47:30 -05:00			`farcall CanUseSweetScent`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`jr nc, .no_battle`
Prefix engine_flags wram addresses with w 2017-12-28 13:15:46 +01:00			`ld hl, wStatusFlags2`
wStatusFlags/2 bit constants 2018-01-22 15:40:43 -05:00			`bit STATUSFLAGS2_BUG_CONTEST_TIMER_F, [hl]`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`jr nz, .not_in_bug_contest`
callba/callab → farcall/callfar 2017-12-24 12:47:30 -05:00			`farcall GetMapEncounterRate`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`ld a, b`
			`and a`
			`jr z, .no_battle`
callba/callab → farcall/callfar 2017-12-24 12:47:30 -05:00			`farcall ChooseWildEncounter`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`jr nz, .no_battle`
			`jr .start_battle`

			`.not_in_bug_contest`
callba/callab → farcall/callfar 2017-12-24 12:47:30 -05:00			`farcall ChooseWildEncounter_BugContest`
More splits; map setup labels 2015-11-11 23:38:57 -05:00
			`.start_battle`
			`ld a, $1`
Prefix wram labels with w, part 2. 2018-01-23 17:39:09 -05:00			`ld [wScriptVar], a`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`ret`

			`.no_battle`
			`xor a`
Prefix wram labels with w, part 2. 2018-01-23 17:39:09 -05:00			`ld [wScriptVar], a`
			`ld [wBattleType], a`
More splits; map setup labels 2015-11-11 23:38:57 -05:00			`ret`

#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`UseSweetScentText:`
			`text_far _UseSweetScentText`
Resolve issue #575: Rename text commands 2018-11-17 13:33:03 -05:00			`text_end`
More splits; map setup labels 2015-11-11 23:38:57 -05:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`SweetScentNothingText:`
			`text_far _SweetScentNothingText`
Resolve issue #575: Rename text commands 2018-11-17 13:33:03 -05:00			`text_end`