CeladonMansionRoofHouse_Object: db $a ; border block def_warps warp 2, 7, 2, CELADON_MANSION_ROOF warp 3, 7, 2, CELADON_MANSION_ROOF def_signs def_objects object SPRITE_HIKER, 2, 2, STAY, DOWN, 1 ; person object SPRITE_POKE_BALL, 4, 3, STAY, NONE, 2 ; person ; warp-to warp_to 2, 7, CELADON_MANSION_ROOF_HOUSE_WIDTH ; CELADON_MANSION_ROOF warp_to 3, 7, CELADON_MANSION_ROOF_HOUSE_WIDTH ; CELADON_MANSION_ROOF