CinnabarIsland_PokemonLab_ExperimentRoom_MapScripts:: @ 816E400
	.byte 0

CinnabarIsland_PokemonLab_ExperimentRoom_EventScript_16E401:: @ 816E401
	lock
	faceplayer
	setvar VAR_0x8008, 8
	call EventScript_1A8CAD
	checkflag FLAG_DID_SEELOR_TRADE
	goto_if TRUE, EventScript_16E473
	msgbox gUnknown_81A597B, MSGBOX_YESNO
	compare_var_to_value VAR_RESULT, 0
	goto_if eq, EventScript_16E45B
	call EventScript_1A8CBD
	compare_var_to_value VAR_0x8004, 6
	goto_if ge, EventScript_16E45B
	call EventScript_1A8CC9
	compare_var_to_var VAR_RESULT, VAR_0x8009
	goto_if ne, EventScript_16E465
	call EventScript_1A8CD9
	msgbox gUnknown_81A59DA
	setflag FLAG_DID_SEELOR_TRADE
	release
	end

EventScript_16E45B:: @ 816E45B
	msgbox gUnknown_81A59B6
	release
	end

EventScript_16E465:: @ 816E465
	getspeciesname 0, VAR_0x8009
	msgbox gUnknown_81A59C6
	release
	end

EventScript_16E473:: @ 816E473
	msgbox gUnknown_81A59E7
	release
	end

CinnabarIsland_PokemonLab_ExperimentRoom_EventScript_16E47D:: @ 816E47D
	lock
	faceplayer
	setvar VAR_RESULT, 0
	checkflag FLAG_REVIVED_AMBER
	call_if TRUE, EventScript_16E8A1
	compare_var_to_value VAR_RESULT, 1
	goto_if eq, EventScript_16E897
	compare_var_to_value VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 2
	goto_if eq, EventScript_16E736
	compare_var_to_value VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 1
	goto_if eq, EventScript_16E72C
	call EventScript_16E4EC
	compare_var_to_value VAR_RESULT, 1
	goto_if eq, EventScript_16E544
	call EventScript_16E504
	compare_var_to_value VAR_RESULT, 1
	goto_if eq, EventScript_16E586
	call EventScript_16E51C
	compare_var_to_value VAR_RESULT, 1
	goto_if eq, EventScript_16E5C8
	msgbox gUnknown_819A282
	goto EventScript_16E53A
	end

EventScript_16E4EC:: @ 816E4EC
	checkflag FLAG_GOT_HELIX_FOSSIL
	goto_if FALSE, EventScript_16E534
	checkflag FLAG_REVIVED_HELIX
	goto_if TRUE, EventScript_16E534
	setvar VAR_RESULT, 1
	return

EventScript_16E504:: @ 816E504
	checkflag FLAG_GOT_DOME_FOSSIL
	goto_if FALSE, EventScript_16E534
	checkflag FLAG_REVIVED_DOME
	goto_if TRUE, EventScript_16E534
	setvar VAR_RESULT, 1
	return

EventScript_16E51C:: @ 816E51C
	checkflag FLAG_GOT_OLD_AMBER
	goto_if FALSE, EventScript_16E534
	checkflag FLAG_REVIVED_AMBER
	goto_if TRUE, EventScript_16E534
	setvar VAR_RESULT, 1
	return

EventScript_16E534:: @ 816E534
	setvar VAR_RESULT, 0
	return

EventScript_16E53A:: @ 816E53A
	msgbox gUnknown_819A314
	release
	end

EventScript_16E544:: @ 816E544
	message Text_19A282
	waitmessage
	call EventScript_16E51C
	compare_var_to_value VAR_RESULT, 1
	goto_if eq, EventScript_16E5FA
	multichoice 0, 0, MULTICHOICE_HELIX, FALSE
	switch VAR_RESULT
	case 0, EventScript_16E668
	case 1, EventScript_16E53A
	case 127, EventScript_16E53A
	end

EventScript_16E586:: @ 816E586
	message Text_19A282
	waitmessage
	call EventScript_16E51C
	compare_var_to_value VAR_RESULT, 1
	goto_if eq, EventScript_16E631
	multichoice 0, 0, MULTICHOICE_DOME, FALSE
	switch VAR_RESULT
	case 0, EventScript_16E6A6
	case 1, EventScript_16E53A
	case 127, EventScript_16E53A
	end

EventScript_16E5C8:: @ 816E5C8
	message Text_19A282
	waitmessage
	multichoice 0, 0, MULTICHOICE_AMBER, FALSE
	switch VAR_RESULT
	case 0, EventScript_16E6E4
	case 1, EventScript_16E53A
	case 127, EventScript_16E53A
	end

EventScript_16E5FA:: @ 816E5FA
	multichoice 0, 0, MULTICHOICE_HELIX_AMBER, FALSE
	switch VAR_RESULT
	case 0, EventScript_16E668
	case 1, EventScript_16E6E4
	case 2, EventScript_16E53A
	case 127, EventScript_16E53A
	end

EventScript_16E631:: @ 816E631
	multichoice 0, 0, MULTICHOICE_DOME_AMBER, FALSE
	switch VAR_RESULT
	case 0, EventScript_16E6A6
	case 1, EventScript_16E6E4
	case 2, EventScript_16E53A
	case 127, EventScript_16E53A
	end

EventScript_16E668:: @ 816E668
	getspeciesname 0, SPECIES_OMANYTE
	getitemname 1, ITEM_HELIX_FOSSIL
	msgbox gUnknown_819A3D4, MSGBOX_YESNO
	compare_var_to_value VAR_RESULT, 0
	goto_if eq, EventScript_16E722
	msgbox gUnknown_819A45D
	textcolor 0
	removeitem ITEM_HELIX_FOSSIL, 1
	msgbox gUnknown_819A4AB
	setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 1
	setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 1
	release
	end

EventScript_16E6A6:: @ 816E6A6
	getspeciesname 0, SPECIES_KABUTO
	getitemname 1, ITEM_DOME_FOSSIL
	msgbox gUnknown_819A3D4, MSGBOX_YESNO
	compare_var_to_value VAR_RESULT, 0
	goto_if eq, EventScript_16E722
	msgbox gUnknown_819A45D
	textcolor 0
	removeitem ITEM_DOME_FOSSIL, 1
	msgbox gUnknown_819A4AB
	setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 1
	setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 2
	release
	end

EventScript_16E6E4:: @ 816E6E4
	getspeciesname 0, SPECIES_AERODACTYL
	getitemname 1, ITEM_OLD_AMBER
	msgbox gUnknown_819A3D4, MSGBOX_YESNO
	compare_var_to_value VAR_RESULT, 0
	goto_if eq, EventScript_16E722
	msgbox gUnknown_819A45D
	textcolor 0
	removeitem ITEM_OLD_AMBER, 1
	msgbox gUnknown_819A4AB
	setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 1
	setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 3
	release
	end

EventScript_16E722:: @ 816E722
	msgbox gUnknown_819A4E1
	release
	end

EventScript_16E72C:: @ 816E72C
	msgbox gUnknown_819A4AB
	release
	end

EventScript_16E736:: @ 816E736
	compare_var_to_value VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 1
	goto_if eq, EventScript_16E758
	compare_var_to_value VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 2
	goto_if eq, EventScript_16E79D
	compare_var_to_value VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_WHICH_FOSSIL, 3
	goto_if eq, EventScript_16E7E2
	end

EventScript_16E758:: @ 816E758
	setvar VAR_0x4001, SPECIES_OMANYTE
	getspeciesname 0, SPECIES_OMANYTE
	msgbox gUnknown_819A34F
	givemon SPECIES_OMANYTE, 5, ITEM_NONE, 0, 0, 0
	compare_var_to_value VAR_RESULT, 2
	goto_if eq, EventScript_1A927C
	setflag FLAG_REVIVED_HELIX
	compare_var_to_value VAR_RESULT, 0
	goto_if eq, EventScript_16E827
	compare_var_to_value VAR_RESULT, 1
	goto_if eq, EventScript_16E85B
	end

EventScript_16E79D:: @ 816E79D
	setvar VAR_0x4001, SPECIES_KABUTO
	getspeciesname 0, SPECIES_KABUTO
	msgbox gUnknown_819A34F
	givemon SPECIES_KABUTO, 5, ITEM_NONE, 0, 0, 0
	compare_var_to_value VAR_RESULT, 2
	goto_if eq, EventScript_1A927C
	setflag FLAG_REVIVED_DOME
	compare_var_to_value VAR_RESULT, 0
	goto_if eq, EventScript_16E827
	compare_var_to_value VAR_RESULT, 1
	goto_if eq, EventScript_16E85B
	end

EventScript_16E7E2:: @ 816E7E2
	setvar VAR_0x4001, SPECIES_AERODACTYL
	getspeciesname 0, SPECIES_AERODACTYL
	msgbox gUnknown_819A34F
	givemon SPECIES_AERODACTYL, 5, ITEM_NONE, 0, 0, 0
	compare_var_to_value VAR_RESULT, 2
	goto_if eq, EventScript_1A927C
	setflag FLAG_REVIVED_AMBER
	compare_var_to_value VAR_RESULT, 0
	goto_if eq, EventScript_16E827
	compare_var_to_value VAR_RESULT, 1
	goto_if eq, EventScript_16E85B
	end

EventScript_16E827:: @ 816E827
	textcolor 3
	playfanfare MUS_FANFA1
	message Text_19A39E
	waitmessage
	waitfanfare
	setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 0
	msgbox gUnknown_81A56A7, MSGBOX_YESNO
	compare_var_to_value VAR_RESULT, 0
	goto_if eq, EventScript_16E895
	call EventScript_1A8C27
	call EventScript_1A74EB
	goto EventScript_16E895
	end

EventScript_16E85B:: @ 816E85B
	textcolor 3
	playfanfare MUS_FANFA1
	message Text_19A39E
	waitmessage
	waitfanfare
	setvar VAR_MAP_SCENE_CINNABAR_ISLAND_POKEMON_LAB_EXPERIMENT_ROOM_REVIVE_STATE, 0
	msgbox gUnknown_81A56A7, MSGBOX_YESNO
	compare_var_to_value VAR_RESULT, 0
	goto_if eq, EventScript_16E88A
	call EventScript_1A8C33
	goto EventScript_16E88A
	end

EventScript_16E88A:: @ 816E88A
	call EventScript_1A8C3C
	goto EventScript_16E895
	end

EventScript_16E895:: @ 816E895
	release
	end

EventScript_16E897:: @ 816E897
	msgbox gUnknown_819A4E1
	release
	end

EventScript_16E8A1:: @ 816E8A1
	checkflag FLAG_GOT_HELIX_FOSSIL
	goto_if TRUE, EventScript_16E8B9
	checkflag FLAG_GOT_DOME_FOSSIL
	goto_if TRUE, EventScript_16E8C8
	goto EventScript_16E534
	end

EventScript_16E8B9:: @ 816E8B9
	checkflag FLAG_REVIVED_HELIX
	goto_if FALSE, EventScript_16E534
	setvar VAR_RESULT, 1
	return

EventScript_16E8C8:: @ 816E8C8
	checkflag FLAG_REVIVED_DOME
	goto_if FALSE, EventScript_16E534
	setvar VAR_RESULT, 1
	return
