pokeemerald/data/maps/Route121_SafariZoneEntrance/scripts.inc

Route121_SafariZoneEntrance_MapScripts:: @ 822BBBB
	map_script MAP_SCRIPT_ON_FRAME_TABLE, Route121_SafariZoneEntrance_OnFrame
	.byte 0

Route121_SafariZoneEntrance_OnFrame: @ 822BBC1
	map_script_2 VAR_SAFARI_ZONE_STATE, 1, Route121_SafariZoneEntrance_EventScript_ExitSafariZone
	.2byte 0

Route121_SafariZoneEntrance_EventScript_ExitSafariZone:: @ 822BBCB
	lockall
	applymovement EVENT_OBJ_ID_PLAYER, Route121_SafariZoneEntrance_Movement_ExitSafariZone
	waitmovement 0
	setvar VAR_SAFARI_ZONE_STATE, 0
	releaseall
	end

Route121_SafariZoneEntrance_Movement_ExitSafariZone: @ 822BBDD
	walk_up
	walk_right
	walk_right
	walk_right
	walk_right
	walk_right
	walk_right
	walk_right
	step_end

Route121_SafariZoneEntrance_EventScript_WelcomeAttendant:: @ 822BBE6
	msgbox Route121_SafariZoneEntrance_Text_WelcomeToSafariZone, MSGBOX_NPC
	end

Route121_SafariZoneEntrance_EventScript_InfoAttendant:: @ 822BBEF
	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:: @ 822BC0E
	msgbox Route121_SafariZoneEntrance_Text_FirstTimeInfo, MSGBOX_DEFAULT
	release
	end

Route121_SafariZoneEntrance_EventScript_EntranceCounterTrigger:: @ 822BC18
	lockall
	applymovement EVENT_OBJ_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:: @ 822BC48
	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_REGI
	msgbox Route121_SafariZoneEntrance_Text_ThatWillBe500Please, MSGBOX_DEFAULT
	takemoney 500, 0
	updatemoneybox 0, 0
	msgbox Route121_SafariZoneEntrance_Text_HereAreYourSafariBalls, MSGBOX_DEFAULT
	playfanfare MUS_FANFA4
	message Route121_SafariZoneEntrance_Text_Received30SafariBalls
	waitfanfare
	msgbox Route121_SafariZoneEntrance_Text_PleaseEnjoyYourself, MSGBOX_DEFAULT
	closemessage
	hidemoneybox
	applymovement EVENT_OBJ_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:: @ 822BCBF
	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:: @ 822BCE9
	return

Route121_SafariZoneEntrance_EventScript_NoPokeblockCase:: @ 822BCEA
	msgbox Route121_SafariZoneEntrance_Text_YouNeedPokeblockCase, MSGBOX_DEFAULT
	goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter
	end

Route121_SafariZoneEntrance_EventScript_NotEnoughMoney:: @ 822BCF8
	msgbox Route121_SafariZoneEntrance_Text_NotEnoughMoney, MSGBOX_DEFAULT
	goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter
	end

Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter:: @ 822BD06
	closemessage
	hidemoneybox
	applymovement EVENT_OBJ_ID_PLAYER, Route121_SafariZoneEntrance_Movement_BackAwayFromCounter
	waitmovement 0
	releaseall
	end

Route121_SafariZoneEntrance_Movement_BackAwayFromCounter: @ 822BD16
	walk_right
	step_end

Route121_SafariZoneEntrance_Movement_EnterSafariZone: @ 822BD18
	walk_left
	walk_left
	walk_left
	walk_left
	walk_left
	walk_left
	walk_down
	delay_16
	step_end

Route121_SafariZoneEntrance_EventScript_TrainerTipSign:: @ 822BD21
	msgbox Route121_SafariZoneEntrance_Text_TrainerTip, MSGBOX_SIGN
	end
Dump maps 2017-11-10 02:21:31 +01:00			`Route121_SafariZoneEntrance_MapScripts:: @ 822BBBB`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`map_script MAP_SCRIPT_ON_FRAME_TABLE, Route121_SafariZoneEntrance_OnFrame`
Dump maps 2017-11-10 02:21:31 +01:00			`.byte 0`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_OnFrame: @ 822BBC1`
			`map_script_2 VAR_SAFARI_ZONE_STATE, 1, Route121_SafariZoneEntrance_EventScript_ExitSafariZone`
Dump maps 2017-11-10 02:21:31 +01:00			`.2byte 0`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_ExitSafariZone:: @ 822BBCB`
Dump maps 2017-11-10 02:21:31 +01:00			`lockall`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`applymovement EVENT_OBJ_ID_PLAYER, Route121_SafariZoneEntrance_Movement_ExitSafariZone`
Dump maps 2017-11-10 02:21:31 +01:00			`waitmovement 0`
Finish moving pokeruby vars 2019-02-22 10:18:43 +01:00			`setvar VAR_SAFARI_ZONE_STATE, 0`
Dump maps 2017-11-10 02:21:31 +01:00			`releaseall`
			`end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_Movement_ExitSafariZone: @ 822BBDD`
Update applymovement actions to reflect movement action names 2018-06-14 01:19:19 +02:00			`walk_up`
			`walk_right`
			`walk_right`
			`walk_right`
			`walk_right`
			`walk_right`
			`walk_right`
			`walk_right`
Dump maps 2017-11-10 02:21:31 +01:00			`step_end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_WelcomeAttendant:: @ 822BBE6`
			`msgbox Route121_SafariZoneEntrance_Text_WelcomeToSafariZone, MSGBOX_NPC`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_InfoAttendant:: @ 822BBEF`
Dump maps 2017-11-10 02:21:31 +01:00			`lock`
			`faceplayer`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`msgbox Route121_SafariZoneEntrance_Text_WelcomeFirstTime, MSGBOX_YESNO`
Use YES/NO constants for MSGBOX_YESNO 2019-11-02 17:34:53 +01:00			`compare VAR_RESULT, YES`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`goto_if_eq Route121_SafariZoneEntrance_EventScript_FirstTimeInfo`
			`msgbox Route121_SafariZoneEntrance_Text_ComeInAndEnjoy, MSGBOX_DEFAULT`
Dump maps 2017-11-10 02:21:31 +01:00			`release`
			`end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_FirstTimeInfo:: @ 822BC0E`
			`msgbox Route121_SafariZoneEntrance_Text_FirstTimeInfo, MSGBOX_DEFAULT`
Dump maps 2017-11-10 02:21:31 +01:00			`release`
			`end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_EntranceCounterTrigger:: @ 822BC18`
Dump maps 2017-11-10 02:21:31 +01:00			`lockall`
Document common movements 2019-10-06 19:55:30 +02:00			`applymovement EVENT_OBJ_ID_PLAYER, Common_Movement_WalkInPlaceFastestUp`
Dump maps 2017-11-10 02:21:31 +01:00			`waitmovement 0`
			`showmoneybox 0, 0, 0`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`msgbox Route121_SafariZoneEntrance_Text_WouldYouLikeToPlay, MSGBOX_YESNO`
Use YES/NO constants for MSGBOX_YESNO 2019-11-02 17:34:53 +01:00			`compare VAR_RESULT, YES`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`goto_if_eq Route121_SafariZoneEntrance_EventScript_TryEnterSafariZone`
			`msgbox Route121_SafariZoneEntrance_Text_PlayAnotherTime, MSGBOX_DEFAULT`
			`goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_TryEnterSafariZone:: @ 822BC48`
Dump maps 2017-11-10 02:21:31 +01:00			`checkitem ITEM_POKEBLOCK_CASE, 1`
Port generic event script macros from pokeruby 2017-12-21 20:47:52 +01:00			`compare VAR_RESULT, 0`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`goto_if_eq Route121_SafariZoneEntrance_EventScript_NoPokeblockCase`
			`call Route121_SafariZoneEntrance_EventScript_CheckHasRoomForPokemon`
Use misc ScrCmd constants 2019-09-16 05:47:07 +02:00			`checkmoney 500, 0`
Port generic event script macros from pokeruby 2017-12-21 20:47:52 +01:00			`compare VAR_RESULT, 0`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`goto_if_eq Route121_SafariZoneEntrance_EventScript_NotEnoughMoney`
Dump maps 2017-11-10 02:21:31 +01:00			`playse SE_REGI`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`msgbox Route121_SafariZoneEntrance_Text_ThatWillBe500Please, MSGBOX_DEFAULT`
Use misc ScrCmd constants 2019-09-16 05:47:07 +02:00			`takemoney 500, 0`
Review fixes 2019-08-18 05:26:46 +02:00			`updatemoneybox 0, 0`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`msgbox Route121_SafariZoneEntrance_Text_HereAreYourSafariBalls, MSGBOX_DEFAULT`
use internal song names 2017-12-22 08:46:19 +01:00			`playfanfare MUS_FANFA4`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`message Route121_SafariZoneEntrance_Text_Received30SafariBalls`
Dump maps 2017-11-10 02:21:31 +01:00			`waitfanfare`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`msgbox Route121_SafariZoneEntrance_Text_PleaseEnjoyYourself, MSGBOX_DEFAULT`
Dump maps 2017-11-10 02:21:31 +01:00			`closemessage`
			`hidemoneybox`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`applymovement EVENT_OBJ_ID_PLAYER, Route121_SafariZoneEntrance_Movement_EnterSafariZone`
Dump maps 2017-11-10 02:21:31 +01:00			`waitmovement 0`
			`special EnterSafariMode`
Finish moving pokeruby vars 2019-02-22 10:18:43 +01:00			`setvar VAR_SAFARI_ZONE_STATE, 2`
Finish off labelling flags 2019-01-02 22:12:43 +01:00			`clearflag FLAG_GOOD_LUCK_SAFARI_ZONE`
Get all map constants from include/ rather than constants/ 2018-06-15 05:00:09 +02:00			`warp MAP_SAFARI_ZONE_SOUTH, 255, 32, 33`
Dump maps 2017-11-10 02:21:31 +01:00			`waitstate`
			`end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_CheckHasRoomForPokemon:: @ 822BCBF`
Dump maps 2017-11-10 02:21:31 +01:00			`getpartysize`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`compare VAR_RESULT, PARTY_SIZE`
			`goto_if_ne Route121_SafariZoneEntrance_EventScript_HasRoomForPokemon`
Split rom_81370FC and port function names 2017-12-28 09:09:11 +01:00			`specialvar VAR_RESULT, ScriptCheckFreePokemonStorageSpace`
Port generic event script macros from pokeruby 2017-12-21 20:47:52 +01:00			`compare VAR_RESULT, 1`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`goto_if_eq Route121_SafariZoneEntrance_EventScript_HasRoomForPokemon`
			`msgbox Route121_SafariZoneEntrance_Text_PCIsFull, MSGBOX_DEFAULT`
			`goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_HasRoomForPokemon:: @ 822BCE9`
Dump maps 2017-11-10 02:21:31 +01:00			`return`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_NoPokeblockCase:: @ 822BCEA`
			`msgbox Route121_SafariZoneEntrance_Text_YouNeedPokeblockCase, MSGBOX_DEFAULT`
			`goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_NotEnoughMoney:: @ 822BCF8`
			`msgbox Route121_SafariZoneEntrance_Text_NotEnoughMoney, MSGBOX_DEFAULT`
			`goto Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter`
Dump maps 2017-11-10 02:21:31 +01:00			`end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_MovePlayerBackFromCounter:: @ 822BD06`
Dump maps 2017-11-10 02:21:31 +01:00			`closemessage`
			`hidemoneybox`
Document safari zone scripts 2019-10-20 09:46:05 +02:00			`applymovement EVENT_OBJ_ID_PLAYER, Route121_SafariZoneEntrance_Movement_BackAwayFromCounter`
Dump maps 2017-11-10 02:21:31 +01:00			`waitmovement 0`
			`releaseall`
			`end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_Movement_BackAwayFromCounter: @ 822BD16`
Update applymovement actions to reflect movement action names 2018-06-14 01:19:19 +02:00			`walk_right`
Dump maps 2017-11-10 02:21:31 +01:00			`step_end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_Movement_EnterSafariZone: @ 822BD18`
Update applymovement actions to reflect movement action names 2018-06-14 01:19:19 +02:00			`walk_left`
			`walk_left`
			`walk_left`
			`walk_left`
			`walk_left`
			`walk_left`
			`walk_down`
			`delay_16`
Dump maps 2017-11-10 02:21:31 +01:00			`step_end`

Document safari zone scripts 2019-10-20 09:46:05 +02:00			`Route121_SafariZoneEntrance_EventScript_TrainerTipSign:: @ 822BD21`
			`msgbox Route121_SafariZoneEntrance_Text_TrainerTip, MSGBOX_SIGN`
Dump maps 2017-11-10 02:21:31 +01:00			`end`