Touch_Fly:
		move.w			$C(a0),d0
		move.w			$C(a1),d1
		addi.w			#$F,d1
		cmp.w			d1,d0
		bge.w			loc_3F7C8
		bra.s			Touch_NoFly

loc_3F78C:				; CODE XREF: h+28786j h+28A88j ...
		cmpi.b	#$20,$1C(a0)
		beq.s	Touch_Fly
Touch_NoFly:
		btst	#1,$2B(a0)
		bne.s	loc_3F7A6
		cmpi.b	#9,$1C(a0)
		beq.s	loc_3F7A6
		cmpi.b	#2,$1C(a0)
		bne.w	loc_3F862

loc_3F7A6:				; CODE XREF: h+2881Ej h+28826j
		btst	#6,1(a1)
		beq.s	loc_3F7C8
		tst.b	$32(a1)
		beq.s	locret_3F7C6
		neg.w	$10(a0)
		neg.w	$12(a0)
		move.b	#0,$20(a1)
		subq.b	#1,$32(a1)

locret_3F7C6:				; CODE XREF: h+2883Ej
		rts