Everyone's a Wally: Routine at 61815

61815: Routine at F177


61815	LD A,(IY+5)
61818	LD HL,1770
61821	CP 128
61823	LD A,254
61825	JR C,61832
61827	LD HL,59910
61830	LD A,2
61832	LD (61784),HL
61835	LD (61786),A
61838	LD HL,0
61841	LD (61787),HL
61844	LD (IY+10),152
61848	CALL Clear_PlayArea
61851	LD HL,61789
61854	CALL DrawRoom_Loop
61857	JR 61906
61859	CALL 61090
61862	CALL 61954
61865	LD A,4
61867	LD (62062),A
61870	LD A,(61786)
61873	CP 2
61875	LD A,130
61877	JR Z,61881
61879	LD A,132
61881	CALL 60810
61884	CALL 45215
61887	CALL WriteSprite_ShadowBuffer
61890	CALL ShadowBufferToScreen
61893	LD BC,(61784)
61897	LD HL,(61787)
61900	LD A,(IY+5)
61903	CP B
61904	JR NZ,61926
61906	LD BC,(61784)
61910	LD HL,(61787)
61913	LD A,(61786)
61916	ADD A,C
61917	LD (IY+5),A
61920	INC HL
61921	LD (61787),HL
61924	JR 61859
61926	CP C
61927	JR NZ,61859
61929	DEC HL
61930	LD (61787),HL
61933	LD A,H
61934	OR L
61935	JR Z,61948
61937	LD A,(61786)
61940	LD C,A
61941	LD A,B
61942	SUB C
61943	LD (IY+5),A
61946	JR 61859
61948	LD (IY+5),B
61951	JP 61069
61954	LD HL,(61787)
61957	LD BC,57308
61960	LD (47081),BC
61964	LD DE,4616
61967	LD A,47
61969	LD BC,10000
61972	CALL 62003
61975	LD BC,1000
61978	CALL 62003
61981	LD BC,100
61984	CALL 62003
61987	LD BC,10
61990	CALL 62003
61993	LD BC,1
61996	CALL 62003
61999	LD A,77
62001	JR 62010
62003	INC A
62004	AND A
62005	SBC HL,BC
62007	JR NC,62003
62009	ADD HL,BC
62010	LD C,112
62012	CALL 47097
62015	INC E
62016	LD A,47
62018	RET
62019	JR NZ,62089
62021	INC B
62022	LD (BC),A
62023	SBC A,B
62024	AND B
62025	CALL M,15874
62028	INC B
62029	LD (62062),A
62032	LD IX,62019
62036	LD BC,62199
62039	CALL 61237
62042	LD A,122
62044	CALL 43168
62047	CALL 58153
62050	LD A,122
62052	CALL 61237
62055	CALL 43168
62058	CALL 58153
62061	RET
62062	DEFB 0
62063	DEFB 67
62064	DEFB 90
62065	DEFB 168
62066	DEFB 1
62067	DEFB 0
62068	DEFB 0
62069	DEFB 3
62070	DEFB 64
This entry point is used by the routine at 33198.
62071	LD A,2
62073	LD (62062),A
62076	LD IX,62064
62080	LD BC,62199
62083	CALL 61237
62086	LD A,(IX+0)
62089	CALL 44137
62092	INC HL
62093	LD A,(HL)
62094	CALL 44127
62097	LD A,(HL)
62098	CP (IX-4)
62101	JR NZ,62147
62103	DEC (IX+1)
62106	JR NZ,62147
62108	LD A,R
62110	AND 3
62112	ADD A,3
62114	LD (IX+1),A
62117	CALL 44801
62120	CP 31
62122	JR Z,62117
62124	LD (IX+0),A
62127	CALL 44137
62130	INC HL
62131	LD A,(HL)
62132	CALL 44127
62135	LD A,(HL)
62136	ADD A,2
62138	CP 238
62140	JR C,62144
62142	LD A,238
62144	LD (IX-4),A
62147	LD A,(IX+0)
62150	CP (IY+15)
62153	RET NZ
62154	LD A,(IX-2)
62157	LD BC,17472
62160	CP 1
62162	JR Z,62167
62164	LD BC,18500
62167	LD A,(IX+2)
62170	ADD A,2
62172	CP B
62173	JR C,62178
62175	LD A,C
62176	JR 62181
62178	CP C
62179	JR C,62175
62181	LD (IX+2),A
62184	CALL 43168
62187	LD A,70
62189	LD (62063),A
62192	CALL 61329
62195	CALL 58153
This entry point is used by the routine at 61121.
62198	RET
62199	NOP
62200	RET P
62201	LD B,B
62202	XOR B
62203	JR NZ,62165
62205	LD (656),HL
62208	NOP
62209	SUB 144
62211	CP 0
62213	LD A,B
62214	SUB B
62215	INC B
62216	NOP
This entry point is used by the routine at 61121.
62217	LD A,6
62219	LD (62062),A
62222	LD IX,62205
62226	LD B,3
62228	PUSH BC
62229	LD A,41
62231	LD BC,62203
62234	CALL 61237
62237	CALL 43168
62240	CALL 58153
62243	POP BC
62244	DJNZ 62228
62246	RET
62247	LD (65124),A
62250	NOP
62251	LD H,B
62252	LD (110),A
62255	LD (BC),A
62256	EX AF,AF'
62257	LD H,B
62258	NOP
62259	XOR B
62260	LD A,8
62262	LD (62062),A
62265	LD IX,62247
62269	LD BC,62256
62272	CALL 61237
62275	LD A,(IX+0)
62278	INC A
62279	CP 100
62281	JR NZ,62285
62283	LD A,96
62285	LD (IX+0),A
62288	CALL 43069
62291	INC IX
62293	CALL 61237
62296	LD A,100
62298	CALL 43069
62301	CALL 58153
62304	LD A,(IX-1)
62307	CP 254
62309	RET NZ
62310	LD (IX-3),110
62314	LD (IX-1),2
62318	LD A,(IX-9)
62321	LD (IX-4),A
62324	RET
62325	LD A,B
62326	XOR B
62327	LD (BC),A
62328	NOP
62329	LD A,B
62330	XOR B
62331	CP 0
62333	LD A,4
62335	LD (62062),A
62338	LD IX,62325
62342	LD BC,62199
62345	CALL 61237
62348	LD A,120
62350	CALL 43168
62353	CALL 58153
62356	CALL 61237
62359	LD A,120
62361	CALL 43168
62364	CALL 58153
62367	RET
62368	INC L
62369	NOP
62370	LD D,B
62371	LD A,(BC)
62372	SBC A,B
62373	LD (BC),A
62374	NOP
62375	LD A,(BC)
62376	XOR B
62377	LD (BC),A
62378	NOP
62379	LD A,64
62381	LD (62062),A
62384	LD IX,62371
62388	LD A,(IX+2)
62391	CP 2
62393	LD A,(61510)
62396	JR Z,62404
62398	OR A
62399	CALL NZ,61511
62402	JR 62408
62404	OR A
62405	CALL Z,61511
62408	LD A,48
62410	LD BC,62369
62413	CALL 61237
62416	CALL 43168
62419	LD A,(62368)
62422	XOR 2
62424	LD (62368),A
62427	CALL 61237
62430	CALL 43168
62433	LD A,(48504)
62436	CP 23
62438	RET Z
62439	LD A,23
62441	CP (IY+80)
62444	RET Z
62445	CP (IY+85)
62448	RET Z
62449	LD A,(43065)
62452	SUB 16
62454	LD (43065),A
62457	CALL 58153
62460	RET
62461	NOP
62462	RET P
62463	LD A,B
62464	XOR B
62465	NOP
62466	ADD A,B
62467	LD (BC),A
62468	CALL M,35940
62471	LD (BC),A
62472	INC B
62473	LD A,6
62475	LD (62062),A
62478	LD IX,62465
62482	LD B,2
62484	PUSH BC
62485	LD BC,62461
62488	CALL 61237
62491	LD A,E
62492	CP 254
62494	JR NZ,62512
62496	LD (IX-1),252
62500	LD (IX-2),2
62504	LD (IX-3),128
62508	LD (IX-4),0
62512	LD A,50
62514	CALL 43168
62517	CALL 58153
62520	POP BC
62521	DJNZ 62484
62523	RET
62524	LD A,9
62526	CALL Handler_TaskCompleted
62529	JR Z,62585
62531	LD A,6
62533	CALL Handler_TaskCompleted
62536	JR Z,62585
62538	LD A,(48385)
62541	CP 4
62543	JR NZ,62585
62545	LD A,(IY+5)
62548	SUB 66
62550	CP 252
62552	JR C,62585
62554	LD A,(44936)
62557	SUB (IY+10)
62560	SUB 34
62562	CP 252
62564	JR C,62585
62566	LD A,(44936)
62569	SUB 2
62571	CP 120
62573	JR NC,62577
62575	LD A,120
62577	LD (44936),A
62580	SUB 32
62582	LD (IY+10),A
62585	LD A,(44936)
62588	LD B,16
62590	CP 184
62592	JR Z,62596
62594	LD B,14
62596	SUB B
62597	LD H,A
62598	LD L,64
62600	LD (43064),HL
62603	LD A,43
62605	CALL 43069
62608	RET
62609	LD B,B
62610	LD H,H
62611	NOP
62612	LD (BC),A
62613	LD H,H
62614	LD B,B
62615	NOP
62616	LD (BC),A
62617	CALL C,120
62620	LD (BC),A
62621	LD A,6
62623	LD (62062),A
62626	LD IX,62609
62630	LD B,3
62632	PUSH BC
62633	LD BC,62199
62636	CALL 61237
62639	LD A,D
62640	CP 254
62642	JR NZ,62662
62644	LD (IX-1),2
62648	LD (IX-3),64
62652	LD A,R
62654	AND 63
62656	ADD A,A
62657	ADD A,56
62659	LD (IX-4),A
62662	LD A,52
62664	CALL 43168
62667	CALL 58153
62670	POP BC
62671	DJNZ 62632
62673	RET
62674	LD C,H
62675	LD A,(48509)
62678	CP 29
62680	JR NZ,62688
62682	LD A,5
62684	CALL Handler_TaskCompleted
62687	RET NZ
62688	LD HL,43136
62691	LD (43064),HL
62694	LD A,4
62696	LD (62062),A
62699	LD A,(62674)
62702	INC A
62703	CP 80
62705	JR NZ,62709
62707	LD A,76
62709	LD (62674),A
62712	CALL 43069
62715	CALL 58153
62718	RET
62719	RET P
62720	XOR B
62721	CP 0
62723	LD A,255
62725	LD (44928),A
62728	LD A,12
62730	CALL Handler_TaskCompleted
62733	JR Z,62787
62735	LD A,6
62737	LD (62062),A
62740	LD IX,62719
62744	LD BC,62199
62747	CALL 61237
62750	LD A,54
62752	CALL 43168
62755	CALL 58153
62758	LD A,(IY+10)
62761	CP 136
62763	RET NZ
62764	LD A,(IY+5)
62767	SUB (IX-4)
62770	SUB 4
62772	CP 248
62774	RET C
62775	LD A,(IX-4)
62778	LD (IY+5),A
62781	LD A,168
62783	LD (44928),A
62786	RET
62787	LD HL,43248
62790	LD (43064),HL
62793	LD A,54
62795	CALL 43168
62798	RET
62799	LD A,(48509)
62802	CP 29
62804	JR NZ,62812
62806	LD A,5
62808	CALL Handler_TaskCompleted
62811	RET NZ
62812	LD A,20
62814	CP (IY+80)
62817	RET Z
62818	CP (IY+85)
62821	RET Z
62822	LD A,4
62824	LD (62062),A
62827	CALL 58175
62830	JP 60691
62833	DEFB 80
62834	DEFB 62
62835	DEFB 8
62836	DEFB 205
62837	DEFB 29
62838	DEFB 236
62839	DEFB 200