pokeemerald/data/scripts/obtain_item.inc

Std_ObtainItem::
	additem VAR_0x8000, VAR_0x8001
	copyvar VAR_0x8007, VAR_RESULT
	call EventScript_ObtainItemMessage
	return

EventScript_ObtainItemMessage::
	bufferitemnameplural 1, VAR_0x8000, VAR_0x8001
	checkitemtype VAR_0x8000
	call EventScript_BufferPocketNameAndTryFanfare
	compare VAR_0x8007, 1
	call_if_eq EventScript_ObtainedItem
	compare VAR_0x8007, 0
	call_if_eq EventScript_NoRoomForItem
	return

EventScript_BufferPocketNameAndTryFanfare::
	switch VAR_RESULT
	case POCKET_ITEMS, EventScript_BufferItemsPocket
	case POCKET_KEY_ITEMS, EventScript_BufferKeyItemsPocket
	case POCKET_POKE_BALLS, EventScript_BufferPokeballsPocket
	case POCKET_TM_HM, EventScript_BufferTMHMsPocket
	case POCKET_BERRIES, EventScript_BufferBerriesPocket
	end

EventScript_BufferItemsPocket::
	bufferstdstring 2, STDSTRING_ITEMS
	compare VAR_0x8007, 1
	call_if_eq EventScript_PlayFanfareObtainedItem
	return

EventScript_BufferKeyItemsPocket::
	bufferstdstring 2, STDSTRING_KEYITEMS
	compare VAR_0x8007, 1
	call_if_eq EventScript_PlayFanfareObtainedItem
	return

EventScript_BufferPokeballsPocket::
	bufferstdstring 2, STDSTRING_POKEBALLS
	compare VAR_0x8007, 1
	call_if_eq EventScript_PlayFanfareObtainedItem
	return

EventScript_BufferTMHMsPocket::
	bufferstdstring 2, STDSTRING_TMHMS
	compare VAR_0x8007, 1
	call_if_eq EventScript_PlayFanfareObtainedTMHM
	return

EventScript_BufferBerriesPocket::
	bufferstdstring 2, STDSTRING_BERRIES
	compare VAR_0x8007, 1
	call_if_eq EventScript_PlayFanfareObtainedItem
	return

EventScript_ObtainedItem::
	message gText_ObtainedTheItem
	waitfanfare
	msgbox gText_PutItemInPocket, MSGBOX_DEFAULT
	setvar VAR_RESULT, 1
	return

EventScript_NoRoomForItem::
	setvar VAR_RESULT, 0
	return

EventScript_PlayFanfareObtainedItem::
	playfanfare MUS_OBTAIN_ITEM
	return

EventScript_PlayFanfareObtainedTMHM::
	playfanfare MUS_OBTAIN_TMHM
	return

Std_ObtainDecoration::
	adddecoration VAR_0x8000
	copyvar VAR_0x8007, VAR_RESULT
	call EventScript_ObtainDecorationMessage
	return

EventScript_ObtainDecorationMessage::
	bufferdecorationname 1, VAR_0x8000
	compare VAR_0x8007, 1
	call_if_eq EventScript_ObtainedDecor
	compare VAR_0x8007, 0
	call_if_eq EventScript_NoRoomForDecor
	return

EventScript_ObtainedDecor::
	playfanfare MUS_OBTAIN_ITEM
	message gText_ObtainedTheDecor
	waitfanfare
	msgbox gText_TheDecorWasTransferredToThePC, MSGBOX_DEFAULT
	setvar VAR_RESULT, 1
	return

EventScript_NoRoomForDecor::
	setvar VAR_RESULT, 0
	return

Std_FindItem::
	lock
	faceplayer
	waitse
	copyvar VAR_0x8004, VAR_0x8000
	copyvar VAR_0x8005, VAR_0x8001
	checkitemspace VAR_0x8000, VAR_0x8001
	copyvar VAR_0x8007, VAR_RESULT
	bufferitemnameplural 1, VAR_0x8000, VAR_0x8001
	checkitemtype VAR_0x8000
	call EventScript_BufferPocketNameAndTryFanfare
	compare VAR_0x8007, 1
	call_if_eq EventScript_PickUpItem
	compare VAR_0x8007, 0
	call_if_eq EventScript_NoRoomToPickUpItem
	release
	return

EventScript_PickUpItem::
	removeobject VAR_LAST_TALKED
	additem VAR_0x8004, VAR_0x8005
	specialvar VAR_RESULT, BufferTMHMMoveName
	copyvar VAR_0x8008, VAR_RESULT
	compare VAR_0x8008, 1
	call_if_eq EventScript_FoundTMHM
	compare VAR_0x8008, 0
	call_if_eq EventScript_FoundItem
	waitfanfare
	waitmessage
	bufferitemnameplural 1, VAR_0x8004, VAR_0x8005
	pyramid_inchallenge
	compare VAR_RESULT, 1
	goto_if_eq EventScript_PutBattlePyramidItemInBag
	msgbox gText_PutItemInPocket, MSGBOX_DEFAULT
	return

EventScript_PutBattlePyramidItemInBag::
	msgbox gText_PlayerPutItemInBag, MSGBOX_DEFAULT
	return

EventScript_FoundTMHM::
	bufferitemnameplural 0, VAR_0x8004, VAR_0x8005
	message gText_PlayerFoundOneTMHM
	return

EventScript_FoundItem::
	message gText_PlayerFoundOneItem
	return

EventScript_NoRoomToPickUpItem::
	msgbox gText_ObtainedTheItem, MSGBOX_DEFAULT
	msgbox gText_TooBadBagIsFull, MSGBOX_DEFAULT
	setvar VAR_RESULT, 0
	return

EventScript_HiddenItemScript::
	lockall
	waitse
	additem VAR_0x8005
	copyvar VAR_0x8007, VAR_RESULT
	bufferitemnameplural 1, VAR_0x8005, 1
	checkitemtype VAR_0x8005
	call EventScript_BufferPocketNameAndTryFanfare
	compare VAR_0x8007, 1
	goto_if_eq EventScript_PickUpHiddenItem
	compare VAR_0x8007, 0
	goto_if_eq EventScript_NoRoomForHiddenItem
	end

EventScript_PickUpHiddenItem::
	copyvar VAR_0x8008, VAR_0x8004
	copyvar VAR_0x8004, VAR_0x8005
	specialvar VAR_RESULT, BufferTMHMMoveName
	compare VAR_RESULT, 1
	goto_if_eq EventScript_FoundHiddenTMHM
	compare VAR_RESULT, 0
	goto_if_eq EventScript_FoundHiddenItem
	end

EventScript_FoundHiddenTMHM::
	bufferitemnameplural 0, VAR_0x8004, 1
	message gText_PlayerFoundOneTMHM
	goto EventScript_PutHiddenItemInPocket
	end

EventScript_FoundHiddenItem::
	message gText_PlayerFoundOneItem
	goto EventScript_PutHiddenItemInPocket
	end

EventScript_PutHiddenItemInPocket::
	waitmessage
	waitfanfare
	bufferitemnameplural 1, VAR_0x8004, 1
	copyvar VAR_0x8004, VAR_0x8008
	msgbox gText_PutItemInPocket, MSGBOX_DEFAULT
	special TryPutTreasureInvestigatorsOnAir
	special SetHiddenItemFlag
	releaseall
	end

EventScript_NoRoomForHiddenItem::
	msgbox gText_PlayerFoundOneItem, MSGBOX_DEFAULT
	msgbox gText_TooBadBagIsFull, MSGBOX_DEFAULT
	setvar VAR_RESULT, 0
	releaseall
	end
Remove address comments 2021-07-20 21:18:31 +02:00			`Std_ObtainItem::`
Port some macro/script fixes from pokefirered 2020-01-11 18:02:58 +01:00			`additem VAR_0x8000, VAR_0x8001`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`copyvar VAR_0x8007, VAR_RESULT`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call EventScript_ObtainItemMessage`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_ObtainItemMessage::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`bufferitemnameplural 1, VAR_0x8000, VAR_0x8001`
			`checkitemtype VAR_0x8000`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call EventScript_BufferPocketNameAndTryFanfare`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`compare VAR_0x8007, 1`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call_if_eq EventScript_ObtainedItem`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`compare VAR_0x8007, 0`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call_if_eq EventScript_NoRoomForItem`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_BufferPocketNameAndTryFanfare::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`switch VAR_RESULT`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`case POCKET_ITEMS, EventScript_BufferItemsPocket`
			`case POCKET_KEY_ITEMS, EventScript_BufferKeyItemsPocket`
			`case POCKET_POKE_BALLS, EventScript_BufferPokeballsPocket`
			`case POCKET_TM_HM, EventScript_BufferTMHMsPocket`
			`case POCKET_BERRIES, EventScript_BufferBerriesPocket`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`end`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_BufferItemsPocket::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`bufferstdstring 2, STDSTRING_ITEMS`
			`compare VAR_0x8007, 1`
			`call_if_eq EventScript_PlayFanfareObtainedItem`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_BufferKeyItemsPocket::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`bufferstdstring 2, STDSTRING_KEYITEMS`
			`compare VAR_0x8007, 1`
			`call_if_eq EventScript_PlayFanfareObtainedItem`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_BufferPokeballsPocket::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`bufferstdstring 2, STDSTRING_POKEBALLS`
			`compare VAR_0x8007, 1`
			`call_if_eq EventScript_PlayFanfareObtainedItem`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_BufferTMHMsPocket::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`bufferstdstring 2, STDSTRING_TMHMS`
			`compare VAR_0x8007, 1`
			`call_if_eq EventScript_PlayFanfareObtainedTMHM`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_BufferBerriesPocket::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`bufferstdstring 2, STDSTRING_BERRIES`
			`compare VAR_0x8007, 1`
			`call_if_eq EventScript_PlayFanfareObtainedItem`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_ObtainedItem::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`message gText_ObtainedTheItem`
			`waitfanfare`
			`msgbox gText_PutItemInPocket, MSGBOX_DEFAULT`
			`setvar VAR_RESULT, 1`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_NoRoomForItem::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`setvar VAR_RESULT, 0`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_PlayFanfareObtainedItem::`
Give songs meaningful english names 2020-08-21 00:02:00 +02:00			`playfanfare MUS_OBTAIN_ITEM`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_PlayFanfareObtainedTMHM::`
Give songs meaningful english names 2020-08-21 00:02:00 +02:00			`playfanfare MUS_OBTAIN_TMHM`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`Std_ObtainDecoration::`
Port some macro/script fixes from pokefirered 2020-01-11 18:02:58 +01:00			`adddecoration VAR_0x8000`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`copyvar VAR_0x8007, VAR_RESULT`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call EventScript_ObtainDecorationMessage`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_ObtainDecorationMessage::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`bufferdecorationname 1, VAR_0x8000`
			`compare VAR_0x8007, 1`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call_if_eq EventScript_ObtainedDecor`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`compare VAR_0x8007, 0`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call_if_eq EventScript_NoRoomForDecor`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_ObtainedDecor::`
Give songs meaningful english names 2020-08-21 00:02:00 +02:00			`playfanfare MUS_OBTAIN_ITEM`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`message gText_ObtainedTheDecor`
			`waitfanfare`
			`msgbox gText_TheDecorWasTransferredToThePC, MSGBOX_DEFAULT`
			`setvar VAR_RESULT, 1`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_NoRoomForDecor::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`setvar VAR_RESULT, 0`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`Std_FindItem::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`lock`
			`faceplayer`
			`waitse`
			`copyvar VAR_0x8004, VAR_0x8000`
			`copyvar VAR_0x8005, VAR_0x8001`
			`checkitemspace VAR_0x8000, VAR_0x8001`
			`copyvar VAR_0x8007, VAR_RESULT`
			`bufferitemnameplural 1, VAR_0x8000, VAR_0x8001`
			`checkitemtype VAR_0x8000`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call EventScript_BufferPocketNameAndTryFanfare`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`compare VAR_0x8007, 1`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call_if_eq EventScript_PickUpItem`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`compare VAR_0x8007, 0`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call_if_eq EventScript_NoRoomToPickUpItem`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`release`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_PickUpItem::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`removeobject VAR_LAST_TALKED`
Port some macro/script fixes from pokefirered 2020-01-11 18:02:58 +01:00			`additem VAR_0x8004, VAR_0x8005`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`specialvar VAR_RESULT, BufferTMHMMoveName`
			`copyvar VAR_0x8008, VAR_RESULT`
			`compare VAR_0x8008, 1`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call_if_eq EventScript_FoundTMHM`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`compare VAR_0x8008, 0`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call_if_eq EventScript_FoundItem`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`waitfanfare`
			`waitmessage`
			`bufferitemnameplural 1, VAR_0x8004, VAR_0x8005`
Set up Battle Pyramid macros 2019-12-02 15:52:16 +01:00			`pyramid_inchallenge`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`compare VAR_RESULT, 1`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`goto_if_eq EventScript_PutBattlePyramidItemInBag`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`msgbox gText_PutItemInPocket, MSGBOX_DEFAULT`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_PutBattlePyramidItemInBag::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`msgbox gText_PlayerPutItemInBag, MSGBOX_DEFAULT`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_FoundTMHM::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`bufferitemnameplural 0, VAR_0x8004, VAR_0x8005`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`message gText_PlayerFoundOneTMHM`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_FoundItem::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`message gText_PlayerFoundOneItem`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_NoRoomToPickUpItem::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`msgbox gText_ObtainedTheItem, MSGBOX_DEFAULT`
			`msgbox gText_TooBadBagIsFull, MSGBOX_DEFAULT`
			`setvar VAR_RESULT, 0`
			`return`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_HiddenItemScript::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`lockall`
			`waitse`
Port some macro/script fixes from pokefirered 2020-01-11 18:02:58 +01:00			`additem VAR_0x8005`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`copyvar VAR_0x8007, VAR_RESULT`
			`bufferitemnameplural 1, VAR_0x8005, 1`
			`checkitemtype VAR_0x8005`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`call EventScript_BufferPocketNameAndTryFanfare`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`compare VAR_0x8007, 1`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`goto_if_eq EventScript_PickUpHiddenItem`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`compare VAR_0x8007, 0`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`goto_if_eq EventScript_NoRoomForHiddenItem`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`end`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_PickUpHiddenItem::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`copyvar VAR_0x8008, VAR_0x8004`
			`copyvar VAR_0x8004, VAR_0x8005`
			`specialvar VAR_RESULT, BufferTMHMMoveName`
			`compare VAR_RESULT, 1`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`goto_if_eq EventScript_FoundHiddenTMHM`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`compare VAR_RESULT, 0`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`goto_if_eq EventScript_FoundHiddenItem`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`end`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_FoundHiddenTMHM::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`bufferitemnameplural 0, VAR_0x8004, 1`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`message gText_PlayerFoundOneTMHM`
			`goto EventScript_PutHiddenItemInPocket`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`end`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_FoundHiddenItem::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`message gText_PlayerFoundOneItem`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`goto EventScript_PutHiddenItemInPocket`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`end`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_PutHiddenItemInPocket::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`waitmessage`
			`waitfanfare`
			`bufferitemnameplural 1, VAR_0x8004, 1`
			`copyvar VAR_0x8004, VAR_0x8008`
			`msgbox gText_PutItemInPocket, MSGBOX_DEFAULT`
Document obtain_item.inc 2019-10-22 23:56:47 +02:00			`special TryPutTreasureInvestigatorsOnAir`
			`special SetHiddenItemFlag`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`releaseall`
			`end`

Remove address comments 2021-07-20 21:18:31 +02:00			`EventScript_NoRoomForHiddenItem::`
Split some smaller files from event_scripts 2019-10-21 12:46:57 +02:00			`msgbox gText_PlayerFoundOneItem, MSGBOX_DEFAULT`
			`msgbox gText_TooBadBagIsFull, MSGBOX_DEFAULT`
			`setvar VAR_RESULT, 0`
			`releaseall`
			`end`