Remove control based on status

0018e1b0: 90820059 lbu r2,0x0059(r4)
0018e1b4: 00000000 nop
0018e1b8: 30420014 andi r2,r2,0x0014
0018e1bc: 1440000b bne r2,r0,0x0018e1ec		branch if target is confusion/blood suck
0018e1c0: 00000000 nop
0018e1c4: 9082005a lbu r2,0x005a(r4)
0018e1c8: 00000000 nop
0018e1cc: 3042000c andi r2,r2,0x000c
0018e1d0: 14400006 bne r2,r0,0x0018e1ec		branch if target is berserk/chicken
0018e1d4: 00000000 nop
0018e1d8: 9082005c lbu r2,0x005c(r4)
0018e1dc: 00000000 nop
0018e1e0: 30420020 andi r2,r2,0x0020
0018e1e4: 10400006 beq r2,r0,0x0018e200		branch if target is not charmed
0018e1e8: 00000000 nop
0018e1ec: 90820005 lbu r2,0x0005(r4)		load ENTD
0018e1f0: 00000000 nop
0018e1f4: 304200f7 andi r2,r2,0x00f7		remove control flag
0018e1f8: 08063885 j 0x0018e214
0018e1fc: a0820005 sb r2,0x0005(r4)			store new flags
0018e200: 908201ba lbu r2,0x01ba(r4)		load ENTD modified flags
0018e204: 90830005 lbu r3,0x0005(r4)		load ENTD flags
0018e208: 30420008 andi r2,r2,0x0008		
0018e20c: 00621825 or r3,r3,r2
0018e210: a0830005 sb r3,0x0005(r4)			store new ENTD flags
0018e214: 9082005c lbu r2,0x005c(r4)		
0018e218: 00000000 nop
0018e21c: 30420020 andi r2,r2,0x0020
0018e220: 14400007 bne r2,r0,0x0018e240		branch if charmed
0018e224: 00000000 nop
0018e228: 90830005 lbu r3,0x0005(r4)
0018e22c: 908201ba lbu r2,0x01ba(r4)
0018e230: 306300cf andi r3,r3,0x00cf
0018e234: 30420030 andi r2,r2,0x0030
0018e238: 00621825 or r3,r3,r2
0018e23c: a0830005 sb r3,0x0005(r4)			store new ENTD flags
0018e240: 03e00008 jr r31
0018e244: 00000000 nop