Prev: B688 Up: Map Next: B734
B721: PRNG tick — visitor type counter
Increments var_prng1 (0–6, wraps to 1 at 7). Runs prng_advance_2 B more times
for non-linear stirring. Used to randomise visitor behaviour.
prng_tick B721 LD A,($C34D) Load var_prng1 into A
B724 INC A INC A
B725 CP $07 If A == 7 → prng_reset_1 (reset to 1)
B727 CALL Z,prng_reset_1
B72A LD ($C34D),A Store A back to var_prng1
B72D LD B,A B = A (use new value as repeat count)
prng_tick_0 B72E CALL prng_advance_2 Run PRNG sub-step (prng_advance_2)
B731 DJNZ prng_tick_0 DJNZ — repeat B times for non-linear stirring
B733 RET
Prev: B688 Up: Map Next: B734