Split more files from event_scripts.s

data/scripts/obtain_item.inc

@@ -0,0 +1,248 @@
+EventScript_1A666F:: @ 81A666F
+	copyvar VAR_MON_BOX_POS, VAR_MON_BOX_ID
+	return
+
+EventScript_1A6675:: @ 81A6675
+	copyvar VAR_MON_BOX_ID, VAR_MON_BOX_POS
+	return
+
+Std_ObtainItem:: @ 81A667B
+	copyvar VAR_MON_BOX_POS, VAR_MON_BOX_ID
+	textcolor 3
+	additem VAR_0x8000, VAR_0x8001
+	copyvar VAR_0x8007, VAR_RESULT
+	call EventScript_1A6697
+	copyvar VAR_MON_BOX_ID, VAR_MON_BOX_POS
+	return
+
+EventScript_1A6697:: @ 81A6697
+	bufferitemnameplural 1, VAR_0x8000, VAR_0x8001
+	checkitemtype VAR_0x8000
+	call EventScript_1A66BC
+	compare VAR_0x8007, 1
+	call_if eq, EventScript_1A6749
+	compare VAR_0x8007, 0
+	call_if eq, EventScript_1A675E
+	return
+
+EventScript_1A66BC:: @ 81A66BC
+	switch VAR_RESULT
+	case POCKET_ITEMS, EventScript_1A66F9
+	case POCKET_KEY_ITEMS, EventScript_1A6709
+	case POCKET_POKE_BALLS, EventScript_1A6719
+	case POCKET_TM_CASE, EventScript_1A6729
+	case POCKET_BERRY_POUCH, EventScript_1A6739
+	end
+
+EventScript_1A66F9:: @ 81A66F9
+	getstdstring 2, 24
+	compare VAR_0x8007, 1
+	call_if eq, EventScript_1A6764
+	return
+
+EventScript_1A6709:: @ 81A6709
+	getstdstring 2, 25
+	compare VAR_0x8007, 1
+	call_if eq, EventScript_1A6764
+	return
+
+EventScript_1A6719:: @ 81A6719
+	getstdstring 2, 26
+	compare VAR_0x8007, 1
+	call_if eq, EventScript_1A6764
+	return
+
+EventScript_1A6729:: @ 81A6729
+	getstdstring 2, 27
+	compare VAR_0x8007, 1
+	call_if eq, EventScript_1A6768
+	return
+
+EventScript_1A6739:: @ 81A6739
+	getstdstring 2, 28
+	compare VAR_0x8007, 1
+	call_if eq, EventScript_1A6764
+	return
+
+EventScript_1A6749:: @ 81A6749
+	message Text_ObtainedTheX
+	waitfanfare
+	waitmessage
+	msgbox Text_PutItemAway
+	setvar VAR_RESULT, 1
+	return
+
+EventScript_1A675E:: @ 81A675E
+	setvar VAR_RESULT, 0
+	return
+
+EventScript_1A6764:: @ 81A6764
+	playfanfare MUS_FANFA1
+	return
+
+EventScript_1A6768:: @ 81A6768
+	playfanfare MUS_FANFA1
+	return
+
+Std_ObtainDecoration:: @ 81A676C
+	adddecor VAR_0x8000
+	copyvar VAR_0x8007, VAR_RESULT
+	call EventScript_1A677A
+	return
+
+EventScript_1A677A:: @ 81A677A
+	getdecorname 1, VAR_0x8000
+	compare VAR_0x8007, 1
+	call_if eq, EventScript_1A6795
+	compare VAR_0x8007, 0
+	call_if eq, EventScript_1A67AD
+	return
+
+EventScript_1A6795:: @ 81A6795
+	playfanfare MUS_FANFA4
+	message Text_1A52F0
+	waitfanfare
+	waitmessage
+	msgbox gUnknown_81A532F
+	setvar VAR_RESULT, 1
+	return
+
+EventScript_1A67AD:: @ 81A67AD
+	setvar VAR_RESULT, 0
+	return
+
+Std_FindItem:: @ 81A67B3
+	lock
+	faceplayer
+	waitse
+	copyvar VAR_0x8004, VAR_0x8000
+	copyvar VAR_0x8005, VAR_0x8001
+	checkitemspace VAR_0x8000, VAR_0x8001
+	copyvar VAR_0x8007, VAR_RESULT
+	getitemname 1, VAR_0x8000
+	checkitemtype VAR_0x8000
+	call EventScript_1A66BC
+	compare VAR_0x8007, 1
+	call_if eq, EventScript_1A67EE
+	compare VAR_0x8007, 0
+	call_if eq, EventScript_1A682D
+	release
+	return
+
+EventScript_1A67EE:: @ 81A67EE
+	removeobject VAR_LAST_TALKED
+	additem VAR_0x8004, VAR_0x8005
+	specialvar VAR_RESULT, Special_ItemIsTM_GetMoveName
+	copyvar VAR_0x8008, VAR_RESULT
+	compare VAR_0x8008, 1
+	call_if eq, EventScript_1A6821
+	compare VAR_0x8008, 0
+	call_if eq, EventScript_1A6827
+	waitfanfare
+	waitmessage
+	msgbox Text_PutItemAway
+	return
+
+EventScript_1A6821:: @ 81A6821
+	message Text_1A63E8
+	return
+
+EventScript_1A6827:: @ 81A6827
+	message Text_FoundOneItem
+	return
+
+EventScript_1A682D:: @ 81A682D
+	msgbox Text_ObtainedTheX
+	msgbox Text_TooBadBagFull
+	setvar VAR_RESULT, 0
+	return
+
+EventScript_PickUpHiddenItem:: @ 81A6843
+	lockall
+	textcolor 3
+	waitse
+	compare VAR_0x8005, 0
+	goto_if eq, EventScript_PickUpHiddenCoins
+	call EventScript_GiveItem
+	compare VAR_0x8007, 1
+	goto_if eq, EventScript_ItemInPocketMessage
+	compare VAR_0x8007, 0
+	goto_if eq, EventScript_BagIsFullMessage
+	end
+
+EventScript_GiveItem::
+	additem VAR_0x8005, VAR_0x8006
+	copyvar VAR_0x8007, VAR_RESULT
+	getitemname 1, VAR_0x8005
+	checkitemtype VAR_0x8005
+	call EventScript_1A66BC
+	return
+
+EventScript_ItemInPocketMessage::
+	compare VAR_0x8006, 1
+	call_if eq, EventScript_FoundSingleItemMessage
+	compare VAR_0x8006, 1
+	call_if ne, EventScript_FoundMultipleItemsMessage
+	waitfanfare
+	waitmessage
+	msgbox Text_PutItemAway
+	special Special_SetHiddenItemFlag
+	releaseall
+	end
+
+EventScript_FoundSingleItemMessage::
+	message Text_FoundOneItem
+	return
+
+EventScript_FoundCoinsMessage::
+	getnumberstring 0, VAR_0x8006
+	message Text_FoundXCoins
+	return
+
+EventScript_FoundMultipleItemsMessage::
+	getnumberstring 0, VAR_0x8006
+	message Text_FoundXItems
+	return
+
+EventScript_BagIsFullMessage::
+	msgbox Text_FoundOneItem
+	msgbox Text_TooBadBagFull
+	setvar VAR_RESULT, 0
+	releaseall
+	end
+
+EventScript_PickUpHiddenCoins::
+	checkflag FLAG_GOT_COIN_CASE
+	goto_if FALSE, EventScript_HiddenCoinsButNoCoinCase
+	checkcoins VAR_RESULT
+	specialvar VAR_RESULT, Special_CheckAddCoins
+	compare VAR_RESULT, 0
+	goto_if eq, EventScript_HiddenCoinsButTheCoinCaseIsFull
+	givecoins VAR_0x8006
+	getstdstring 1, 0x17
+	call EventScript_1A6764
+	call EventScript_FoundCoinsMessage
+	waitfanfare
+	waitmessage
+	msgbox Text_PutCoinsAwayInCoinCase
+	special Special_SetHiddenItemFlag
+	releaseall
+	end
+
+EventScript_HiddenCoinsButTheCoinCaseIsFull::
+	getnumberstring 0, VAR_0x8006
+	getstdstring 1, 0x17
+	msgbox Text_FoundXCoins
+	msgbox Text_CoinCaseIsFull
+	setvar VAR_RESULT, 0
+	releaseall
+	end
+
+EventScript_HiddenCoinsButNoCoinCase::
+	getnumberstring 0, VAR_0x8006
+	getstdstring 1, 0x17
+	msgbox Text_FoundXCoins
+	msgbox Text_NothingToPutThemIn
+	setvar VAR_RESULT, 0
+	releaseall
+	end