The Hobbit: Routine at AB1F

AB1F: Event: Drops From Above

Prints the forest warning and can sting the player. The forest record at CAC1 calls this.
Event_DropsFromAbove	AB1F	LD HL,$B311	Point HL at B311.
	AB22	CALL PrintMessage	Call PrintMessage to print message.
	AB25	LD A,($C12B)	Return if the current location is the one saved at B6F3.
	AB28	LD C,A
	AB29	LD HL,$B6F3
	AB2C	CP (HL)
	AB2D	RET Z
	AB2E	LD B,(HL)	Read a byte from the pointer into B.
	AB2F	LD A,$02	Take 02, and jump to Event_DropsFromAbove_ReturnIfThisIsTheLocation unless *B6F3 is 02.
	AB31	CP B
	AB32	JR NZ,Event_DropsFromAbove_ReturnIfThisIsTheLocation
	AB34	LD A,$03	Take 03.
Event_DropsFromAbove_ReturnIfThisIsTheLocation	AB36	CP C	Return if the current location is the one in A.
	AB37	RET Z	Return if the current location is the one in A.
	AB38	JR Event_StungFromAbove_PrintAndEnd	Jump to Event_StungFromAbove_PrintAndEnd to print "some thing drop(s\|d\|ing\|es) from above and sting(s\|d\|ing\|es)".