Routines
Prev: A0DC Up: Map Next: A0E9
A0E0: Decrease morale
This decreases the morale level by the amount specified in B.
Used by the routines at event_another_day_dawns, searchlight_caught, solitary and item_discovered.
Input
B Amount to decrease morale level by. (Preserved)
decrease_morale A0E0 LD A,($A13C) Fetch morale level and subtract B from it
A0E3 SUB B
A0E4 JR NC,set_morale Clamp morale level to morale_MIN (0)
A0E6 XOR A
A0E7 JR set_morale Jump to set_morale
Prev: A0DC Up: Map Next: A0E9