pokeemerald/data/maps/scripts/IslandCave.inc
2017-11-10 02:52:05 -06:00

130 lines
3.0 KiB
PHP

IslandCave_MapScripts:: @ 8238E2A
map_script 5, IslandCave_MapScript1_238E3A
map_script 1, IslandCave_MapScript1_238E58
map_script 3, IslandCave_MapScript1_238E99
.byte 0
IslandCave_MapScript1_238E3A: @ 8238E3A
checkflag FLAG_SYS_CTRL_OBJ_DELETE
call_if 1, IslandCave_EventScript_238E44
end
IslandCave_EventScript_238E44:: @ 8238E44
specialvar VAR_RESULT, sub_8138B80
compare_var_to_value VAR_RESULT, 7
goto_if 5, IslandCave_EventScript_27374E
removeobject VAR_LAST_TALKED
return
IslandCave_MapScript1_238E58: @ 8238E58
checkflag FLAG_SYS_BRAILLE_WAIT
call_if 0, IslandCave_EventScript_238E62
end
IslandCave_EventScript_238E62:: @ 8238E62
setmetatile 7, 19, 553, 1
setmetatile 8, 19, 553, 1
setmetatile 9, 19, 553, 1
setmetatile 7, 20, 565, 1
setmetatile 8, 20, 565, 1
setmetatile 9, 20, 565, 1
return
IslandCave_MapScript1_238E99: @ 8238E99
setflag FLAG_0x8B5
call IslandCave_EventScript_238F45
checkflag FLAG_0x1BC
call_if 0, IslandCave_EventScript_238EAB
end
IslandCave_EventScript_238EAB:: @ 8238EAB
clearflag FLAG_0x3A8
return
IslandCave_EventScript_238EAF:: @ 8238EAF
setmetatile 7, 19, 554, 1
setmetatile 8, 19, 555, 1
setmetatile 9, 19, 556, 1
setmetatile 7, 20, 562, 1
setmetatile 8, 20, 563, 0
setmetatile 9, 20, 564, 1
special DrawWholeMapView
playse SE_BAN
setflag FLAG_SYS_BRAILLE_WAIT
end
IslandCave_EventScript_238EEF:: @ 8238EEF
lockall
checkflag FLAG_0x003
call_if 1, IslandCave_EventScript_238F45
checkflag FLAG_SYS_BRAILLE_WAIT
goto_eq IslandCave_EventScript_238F13
braillemessage IslandCave_Braille_2A6CD4
setflag FLAG_0x002
special ShouldDoBrailleRegicePuzzle
goto IslandCave_EventScript_238F41
end
IslandCave_EventScript_238F13:: @ 8238F13
msgbox gUnknown_0827304E, 4
releaseall
end
IslandCave_EventScript_238F1D:: @ 8238F1D
lockall
checkflag FLAG_0x003
call_if 1, IslandCave_EventScript_238F45
braillemessage IslandCave_Braille_2A6CD4
checkflag FLAG_SYS_BRAILLE_WAIT
goto_eq IslandCave_EventScript_238F41
setflag FLAG_0x002
special ShouldDoBrailleRegicePuzzle
goto IslandCave_EventScript_238F41
end
IslandCave_EventScript_238F41:: @ 8238F41
waitbuttonpress
hidebox2
releaseall
end
IslandCave_EventScript_238F45:: @ 8238F45
setvar VAR_0x403B, 0
setvar VAR_0x403C, 0
setvar VAR_0x403D, 0
clearflag FLAG_0x003
return
IslandCave_EventScript_238F58:: @ 8238F58
lock
faceplayer
waitse
playmoncry SPECIES_REGICE, 2
delay 40
waitmoncry
setwildbattle SPECIES_REGICE, 40, ITEM_NONE
setflag FLAG_SYS_CTRL_OBJ_DELETE
special sub_80B0A74
waitstate
clearflag FLAG_SYS_CTRL_OBJ_DELETE
specialvar VAR_RESULT, sub_8138B80
compare_var_to_value VAR_RESULT, 1
goto_eq IslandCave_EventScript_238F9F
compare_var_to_value VAR_RESULT, 4
goto_eq IslandCave_EventScript_238FA8
compare_var_to_value VAR_RESULT, 5
goto_eq IslandCave_EventScript_238FA8
setflag FLAG_0x1BC
release
end
IslandCave_EventScript_238F9F:: @ 8238F9F
setflag FLAG_0x1BC
goto IslandCave_EventScript_27376D
end
IslandCave_EventScript_238FA8:: @ 8238FA8
setvar VAR_0x8004, 402
goto IslandCave_EventScript_273776
end