pokeemerald/data/maps/Route121_SafariZoneEntrance/scripts.inc

Route121_SafariZoneEntrance_MapScripts::
	map_script MAP_SCRIPT_ON_FRAME_TABLE, Route121_SafariZoneEntrance_OnFrame
	.byte 0

Route121_SafariZoneEntrance_OnFrame:
	map_script_2 VAR_SAFARI_ZONE_STATE, 1, Route121_SafariZoneEntrance_EventScript_ExitSafariZone
	.2byte 0

Route121_SafariZoneEntrance_EventScript_ExitSafariZone::
	lockall
	applymovement OBJ_EVENT_ID_PLAYER, Route121_SafariZoneEntrance_Movement_ExitSafariZone
	waitmovement 0
	setvar VAR_SAFARI_ZONE_STATE, 0
	releaseall
	end

Route121_SafariZoneEntrance_Movement_ExitSafariZone:
	walk_up
	walk_right
	walk_right
	walk_right
	walk_right
	walk_right
	walk_right
	walk_right
	step_end

Route121_SafariZoneEntrance_EventScript_WelcomeAttendant::
	msgbox Route121_SafariZoneEntrance_Text_WelcomeToSafariZone, MSGBOX_NPC
	end

Route121_SafariZoneEntrance_EventScript_InfoAttendant::
	lock
	faceplayer
	msgbox Route121_SafariZoneEntrance_Text_WelcomeFirstTime, MSGBOX_YESNO
	compare VAR_RESULT, YES
	goto_if_eq Route121_SafariZoneEntrance_EventScript_FirstTimeInfo
	msgbox Route121_SafariZoneEntrance_Text_ComeInAndEnjoy, MSGBOX_DEFAULT
	release
	end

Route121_SafariZoneEntrance_EventScript_FirstTimeInfo::
	msgbox Route121_SafariZoneEntrance_Text_FirstTimeInfo, MSGBOX_DEFAULT
	release
	end

Route121_SafariZoneEntrance_EventScript_EntranceCounterTrigger::
	lockall
	applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFastestUp
	waitmovement 0
	showmoneybox 0, 0, 0
	msgbox Route121_SafariZoneEntrance_Text_WouldYouLikeToPlay, MSGBOX_YESNO
	compare VAR_RESULT, YES
	goto_if_eq Route121_SafariZoneEntrance_EventScript_TryEnterSafariZone
	msgbox Route121_SafariZoneEntrance_Text_PlayAnotherTime, MSGBOX_DEFAULT
	goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter
	end

Route121_SafariZoneEntrance_EventScript_TryEnterSafariZone::
	checkitem ITEM_POKEBLOCK_CASE, 1
	compare VAR_RESULT, 0
	goto_if_eq Route121_SafariZoneEntrance_EventScript_NoPokeblockCase
	call Route121_SafariZoneEntrance_EventScript_CheckHasRoomForPokemon
	checkmoney 500, 0
	compare VAR_RESULT, 0
	goto_if_eq Route121_SafariZoneEntrance_EventScript_NotEnoughMoney
	playse SE_SHOP
	msgbox Route121_SafariZoneEntrance_Text_ThatWillBe500Please, MSGBOX_DEFAULT
	removemoney 500, 0
	updatemoneybox 0, 0
	msgbox Route121_SafariZoneEntrance_Text_HereAreYourSafariBalls, MSGBOX_DEFAULT
	playfanfare MUS_OBTAIN_ITEM
	message Route121_SafariZoneEntrance_Text_Received30SafariBalls
	waitfanfare
	msgbox Route121_SafariZoneEntrance_Text_PleaseEnjoyYourself, MSGBOX_DEFAULT
	closemessage
	hidemoneybox
	applymovement OBJ_EVENT_ID_PLAYER, Route121_SafariZoneEntrance_Movement_EnterSafariZone
	waitmovement 0
	special EnterSafariMode
	setvar VAR_SAFARI_ZONE_STATE, 2
	clearflag FLAG_GOOD_LUCK_SAFARI_ZONE
	warp MAP_SAFARI_ZONE_SOUTH, 255, 32, 33
	waitstate
	end

Route121_SafariZoneEntrance_EventScript_CheckHasRoomForPokemon::
	getpartysize
	compare VAR_RESULT, PARTY_SIZE
	goto_if_ne Route121_SafariZoneEntrance_EventScript_HasRoomForPokemon
	specialvar VAR_RESULT, ScriptCheckFreePokemonStorageSpace
	compare VAR_RESULT, 1
	goto_if_eq Route121_SafariZoneEntrance_EventScript_HasRoomForPokemon
	msgbox Route121_SafariZoneEntrance_Text_PCIsFull, MSGBOX_DEFAULT
	goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter
	end

Route121_SafariZoneEntrance_EventScript_HasRoomForPokemon::
	return

Route121_SafariZoneEntrance_EventScript_NoPokeblockCase::
	msgbox Route121_SafariZoneEntrance_Text_YouNeedPokeblockCase, MSGBOX_DEFAULT
	goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter
	end

Route121_SafariZoneEntrance_EventScript_NotEnoughMoney::
	msgbox Route121_SafariZoneEntrance_Text_NotEnoughMoney, MSGBOX_DEFAULT
	goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter
	end

Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter::
	closemessage
	hidemoneybox
	applymovement OBJ_EVENT_ID_PLAYER, Route121_SafariZoneEntrance_Movement_BackAwayFromCounter
	waitmovement 0
	releaseall
	end

Route121_SafariZoneEntrance_Movement_BackAwayFromCounter:
	walk_right
	step_end

Route121_SafariZoneEntrance_Movement_EnterSafariZone:
	walk_left
	walk_left
	walk_left
	walk_left
	walk_left
	walk_left
	walk_down
	delay_16
	step_end

Route121_SafariZoneEntrance_EventScript_TrainerTipSign::
	msgbox Route121_SafariZoneEntrance_Text_TrainerTip, MSGBOX_SIGN
	end
Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_MapScripts::`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`map_script MAP_SCRIPT_ON_FRAME_TABLE, Route121_SafariZoneEntrance_OnFrame`
Dump maps 2017-11-09 19:21:31 -06:00			`.byte 0`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_OnFrame:`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`map_script_2 VAR_SAFARI_ZONE_STATE, 1, Route121_SafariZoneEntrance_EventScript_ExitSafariZone`
Dump maps 2017-11-09 19:21:31 -06:00			`.2byte 0`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_ExitSafariZone::`
Dump maps 2017-11-09 19:21:31 -06:00			`lockall`
Standardize EVENT_OBJECT to OBJECT_EVENT 2019-11-20 23:12:51 -05:00			`applymovement OBJ_EVENT_ID_PLAYER, Route121_SafariZoneEntrance_Movement_ExitSafariZone`
Dump maps 2017-11-09 19:21:31 -06:00			`waitmovement 0`
Finish moving pokeruby vars 2019-02-22 04:18:43 -05:00			`setvar VAR_SAFARI_ZONE_STATE, 0`
Dump maps 2017-11-09 19:21:31 -06:00			`releaseall`
			`end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_Movement_ExitSafariZone:`
Update applymovement actions to reflect movement action names 2018-06-13 18:19:19 -05:00			`walk_up`
			`walk_right`
			`walk_right`
			`walk_right`
			`walk_right`
			`walk_right`
			`walk_right`
			`walk_right`
Dump maps 2017-11-09 19:21:31 -06:00			`step_end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_WelcomeAttendant::`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`msgbox Route121_SafariZoneEntrance_Text_WelcomeToSafariZone, MSGBOX_NPC`
Dump maps 2017-11-09 19:21:31 -06:00			`end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_InfoAttendant::`
Dump maps 2017-11-09 19:21:31 -06:00			`lock`
			`faceplayer`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`msgbox Route121_SafariZoneEntrance_Text_WelcomeFirstTime, MSGBOX_YESNO`
Use YES/NO constants for MSGBOX_YESNO 2019-11-02 12:34:53 -04:00			`compare VAR_RESULT, YES`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`goto_if_eq Route121_SafariZoneEntrance_EventScript_FirstTimeInfo`
			`msgbox Route121_SafariZoneEntrance_Text_ComeInAndEnjoy, MSGBOX_DEFAULT`
Dump maps 2017-11-09 19:21:31 -06:00			`release`
			`end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_FirstTimeInfo::`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`msgbox Route121_SafariZoneEntrance_Text_FirstTimeInfo, MSGBOX_DEFAULT`
Dump maps 2017-11-09 19:21:31 -06:00			`release`
			`end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_EntranceCounterTrigger::`
Dump maps 2017-11-09 19:21:31 -06:00			`lockall`
Standardize EVENT_OBJECT to OBJECT_EVENT 2019-11-20 23:12:51 -05:00			`applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFastestUp`
Dump maps 2017-11-09 19:21:31 -06:00			`waitmovement 0`
			`showmoneybox 0, 0, 0`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`msgbox Route121_SafariZoneEntrance_Text_WouldYouLikeToPlay, MSGBOX_YESNO`
Use YES/NO constants for MSGBOX_YESNO 2019-11-02 12:34:53 -04:00			`compare VAR_RESULT, YES`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`goto_if_eq Route121_SafariZoneEntrance_EventScript_TryEnterSafariZone`
			`msgbox Route121_SafariZoneEntrance_Text_PlayAnotherTime, MSGBOX_DEFAULT`
			`goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter`
Dump maps 2017-11-09 19:21:31 -06:00			`end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_TryEnterSafariZone::`
Dump maps 2017-11-09 19:21:31 -06:00			`checkitem ITEM_POKEBLOCK_CASE, 1`
Port generic event script macros from pokeruby 2017-12-21 13:47:52 -06:00			`compare VAR_RESULT, 0`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`goto_if_eq Route121_SafariZoneEntrance_EventScript_NoPokeblockCase`
			`call Route121_SafariZoneEntrance_EventScript_CheckHasRoomForPokemon`
Use misc ScrCmd constants 2019-09-15 23:47:07 -04:00			`checkmoney 500, 0`
Port generic event script macros from pokeruby 2017-12-21 13:47:52 -06:00			`compare VAR_RESULT, 0`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`goto_if_eq Route121_SafariZoneEntrance_EventScript_NotEnoughMoney`
Give songs meaningful english names 2020-08-20 18:02:00 -04:00			`playse SE_SHOP`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`msgbox Route121_SafariZoneEntrance_Text_ThatWillBe500Please, MSGBOX_DEFAULT`
Give/Take to Add/Remove for silent script macros 2020-01-12 23:24:52 -05:00			`removemoney 500, 0`
Review fixes 2019-08-17 23:26:46 -04:00			`updatemoneybox 0, 0`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`msgbox Route121_SafariZoneEntrance_Text_HereAreYourSafariBalls, MSGBOX_DEFAULT`
Give songs meaningful english names 2020-08-20 18:02:00 -04:00			`playfanfare MUS_OBTAIN_ITEM`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`message Route121_SafariZoneEntrance_Text_Received30SafariBalls`
Dump maps 2017-11-09 19:21:31 -06:00			`waitfanfare`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`msgbox Route121_SafariZoneEntrance_Text_PleaseEnjoyYourself, MSGBOX_DEFAULT`
Dump maps 2017-11-09 19:21:31 -06:00			`closemessage`
			`hidemoneybox`
Standardize EVENT_OBJECT to OBJECT_EVENT 2019-11-20 23:12:51 -05:00			`applymovement OBJ_EVENT_ID_PLAYER, Route121_SafariZoneEntrance_Movement_EnterSafariZone`
Dump maps 2017-11-09 19:21:31 -06:00			`waitmovement 0`
			`special EnterSafariMode`
Finish moving pokeruby vars 2019-02-22 04:18:43 -05:00			`setvar VAR_SAFARI_ZONE_STATE, 2`
Finish off labelling flags 2019-01-02 21:12:43 +00:00			`clearflag FLAG_GOOD_LUCK_SAFARI_ZONE`
Get all map constants from include/ rather than constants/ 2018-06-14 22:00:09 -05:00			`warp MAP_SAFARI_ZONE_SOUTH, 255, 32, 33`
Dump maps 2017-11-09 19:21:31 -06:00			`waitstate`
			`end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_CheckHasRoomForPokemon::`
Dump maps 2017-11-09 19:21:31 -06:00			`getpartysize`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`compare VAR_RESULT, PARTY_SIZE`
			`goto_if_ne Route121_SafariZoneEntrance_EventScript_HasRoomForPokemon`
Split rom_81370FC and port function names 2017-12-28 02:09:11 -06:00			`specialvar VAR_RESULT, ScriptCheckFreePokemonStorageSpace`
Port generic event script macros from pokeruby 2017-12-21 13:47:52 -06:00			`compare VAR_RESULT, 1`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`goto_if_eq Route121_SafariZoneEntrance_EventScript_HasRoomForPokemon`
			`msgbox Route121_SafariZoneEntrance_Text_PCIsFull, MSGBOX_DEFAULT`
			`goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter`
Dump maps 2017-11-09 19:21:31 -06:00			`end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_HasRoomForPokemon::`
Dump maps 2017-11-09 19:21:31 -06:00			`return`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_NoPokeblockCase::`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`msgbox Route121_SafariZoneEntrance_Text_YouNeedPokeblockCase, MSGBOX_DEFAULT`
			`goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter`
Dump maps 2017-11-09 19:21:31 -06:00			`end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_NotEnoughMoney::`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`msgbox Route121_SafariZoneEntrance_Text_NotEnoughMoney, MSGBOX_DEFAULT`
			`goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter`
Dump maps 2017-11-09 19:21:31 -06:00			`end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter::`
Dump maps 2017-11-09 19:21:31 -06:00			`closemessage`
			`hidemoneybox`
Standardize EVENT_OBJECT to OBJECT_EVENT 2019-11-20 23:12:51 -05:00			`applymovement OBJ_EVENT_ID_PLAYER, Route121_SafariZoneEntrance_Movement_BackAwayFromCounter`
Dump maps 2017-11-09 19:21:31 -06:00			`waitmovement 0`
			`releaseall`
			`end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_Movement_BackAwayFromCounter:`
Update applymovement actions to reflect movement action names 2018-06-13 18:19:19 -05:00			`walk_right`
Dump maps 2017-11-09 19:21:31 -06:00			`step_end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_Movement_EnterSafariZone:`
Update applymovement actions to reflect movement action names 2018-06-13 18:19:19 -05:00			`walk_left`
			`walk_left`
			`walk_left`
			`walk_left`
			`walk_left`
			`walk_left`
			`walk_down`
			`delay_16`
Dump maps 2017-11-09 19:21:31 -06:00			`step_end`

Remove address comments 2021-07-20 15:18:31 -04:00			`Route121_SafariZoneEntrance_EventScript_TrainerTipSign::`
Document safari zone scripts 2019-10-20 03:46:05 -04:00			`msgbox Route121_SafariZoneEntrance_Text_TrainerTip, MSGBOX_SIGN`
Dump maps 2017-11-09 19:21:31 -06:00			`end`