Routines

30706: Make ANGELFACE hit now and then


Used by routines at 63455 and 63492

H 207 (ANGELFACE)

30706 2E00 LD L,0
30708 CB46 BIT 0,(HL) Is ANGELFACE midstride?
30710 C0 RET NZ Return if so
30711 CD4F77 CALL 30543 IS ANGELFACE on the top, middle or bottom floor?
30714 C0 RET NZ Return if not
30715 CD9162 CALL 25233 A=random number
30718 07 RLCA
30719 D0 RET NC Return 50% of the time
30720 CD646D CALL 28004 Can any teachers see ANGELFACE?
30723 D8 RET C Return if so
30724 0603 LD B,3
30726 CDC877 CALL 30664 Is there anyone in front of ANGELFACE to be hit?
30729 D8 RET C Return if not
30730 C1 POP BC
30731 C1 POP BC
30732 211378 LD HL,30739 Place the address of the routine at 30739 into bytes 17 and 18 of ANGELFACE's buffer
30735 2211CF LD (53009),HL
30738 C9 RET