Prev: C50E Up: Map Next: CB7E
C98E: Routine at C98E
Used by the routine at GameStart.
C98E LD IX,$BF15
C992 CALL $93A4
C995 LD HL,($C8A8)
C998 LD ($6DC4),HL
C99B LD DE,($6D8E)
C99F LD ($6D8C),DE
C9A3 CALL $C9DB
C9A6 LD HL,($6DC4)
C9A9 LD ($C8A8),HL
C9AC LD DE,($6D8C)
C9B0 LD ($6D8E),DE
C9B4 LD IX,$BF21
C9B8 CALL $93A4
C9BB LD HL,($C8AA)
C9BE LD ($6DC4),HL
C9C1 LD DE,($6D90)
C9C5 LD ($6D8C),DE
C9C9 CALL $C9DB
C9CC LD HL,($6DC4)
C9CF LD ($C8AA),HL
C9D2 LD DE,($6D8C)
C9D6 LD ($6D90),DE
C9DA RET
C9DB BIT 0,(IX+$09)
C9DF JP NZ,AdvanceScriptInstruction
C9E2 BIT 1,(IX+$09)
C9E6 JR Z,$C9EE
C9E8 LD HL,$C96C
C9EB JP ScriptInstruction
C9EE LD IY,$BF51
C9F2 LD A,($6D8D)
C9F5 OR A
C9F6 JR Z,$CA1A
C9F8 DEC A
C9F9 LD ($6D8D),A
C9FC LD A,(IY+$00)
C9FF CP $0C
CA01 JP Z,$CA72
CA04 CP (IX+$00)
CA07 JP NZ,$CA8C
CA0A LD A,(IY+$01)
CA0D OR A
CA0E JP Z,$CA72
CA11 BIT 4,(IY+$0A)
CA15 JP Z,$CA38
CA18 JR $CA46
CA1A LD A,(IY+$01)
CA1D OR A
CA1E JP Z,$CA72
CA21 LD A,(IY+$00)
CA24 CP $0C
CA26 JP Z,$CA72
CA29 BIT 4,(IY+$0A)
CA2D JR NZ,$CA72
CA2F LD A,(IY+$00)
CA32 CP (IX+$00)
CA35 JP NZ,$CA72
CA38 LD A,$50
CA3A LD ($6D8D),A
CA3D LD A,(IY+$00)
CA40 CP (IX+$00)
CA43 JP NZ,$CA8C
CA46 LD A,(IY+$05)
CA49 CP (IX+$05)
CA4C JR Z,$CA54
CA4E JP C,$CB55
CA51 JP $CB28
CA54 LD A,(IX+$01)
CA57 CP (IY+$01)
CA5A JR Z,$CA6C
CA5C JP NC,$CAF1
CA5F INC A
CA60 CP (IY+$01)
CA63 JP NZ,$CAC2
CA66 LD HL,$C956
CA69 JP ScriptInstruction
CA6C LD HL,$C940
CA6F JP ScriptInstruction
CA72 XOR A
CA73 LD ($6D8D),A
CA76 LD A,($6D8C)
CA79 OR A
CA7A JR Z,$CA81
CA7C CP (IX+$00)
CA7F JR NZ,$CA8C
CA81 LD A,$09
CA83 CALL $955A
CA86 INC A
CA87 LD ($6D8C),A
CA8A JR $CA7C
CA8C CALL $A221
CA8F SRL A
CA91 JP C,$CB28
CA94 SRL A
CA96 JP C,$CB55
CA99 SRL A
CA9B JR C,$CAA1
CA9D LD B,$81
CA9F JR $CAA3
CAA1 LD B,$80
CAA3 CALL $A1C2
CAA6 LD A,(IY+$05)
CAA9 ADD A,$04
CAAB LD E,A
CAAC CP (IX+$05)
CAAF JP C,$CB55
CAB2 LD A,(IX+$07)
CAB5 CP E
CAB6 JP C,$CB28
CAB9 LD A,B
CABA CP $80
CABC JP Z,$CAF1
CABF JP $CAC2
CAC2 CALL $96F2
CAC5 JP NC,$CA81
CAC8 CALL $96F6
CACB JR C,$CAE4
CACD CP $81
CACF JR NZ,$CAE4
CAD1 CALL $9763
CAD4 JP NZ,$CB22
CAD7 SET 0,(IX+$09)
CADB CALL $A002
CADE LD HL,$C8F0
CAE1 JP ScriptInstruction
CAE4 BIT 3,(IX+$0B)
CAE8 JP NZ,AdvanceScriptInstruction
CAEB LD HL,$C8D8
CAEE JP ScriptInstruction
CAF1 CALL $968E
CAF4 JR C,$CB09
CAF6 CALL $9763
CAF9 JP NZ,$CB22
CAFC CALL $A002
CAFF SET 0,(IX+$09)
CB03 LD HL,$C918
CB06 JP ScriptInstruction
CB09 LD A,(IX+$01)
CB0C OR A
CB0D JP Z,$CA81
CB10 BIT 7,A
CB12 JP NZ,$CA81
CB15 BIT 2,(IX+$0B)
CB19 JP NZ,AdvanceScriptInstruction
CB1C LD HL,$C8E4
CB1F JP ScriptInstruction
CB22 JP NC,$CB28
CB25 JP $CB55
CB28 LD A,($6DA4)
CB2B LD E,A
CB2C LD A,($6D8A)
CB2F CP (IX+$00)
CB32 JR Z,$CB3C
CB34 LD A,(IX+$07)
CB37 CP E
CB38 JR C,$CB48
CB3A JR $CB42
CB3C LD A,(IX+$05)
CB3F CP E
CB40 JR C,$CB48
CB42 CALL $97F6
CB45 CALL $9777
CB48 BIT 0,(IX+$0B)
CB4C JP NZ,AdvanceScriptInstruction
CB4F LD HL,$C8C2
CB52 JP ScriptInstruction
CB55 LD A,($6D8A)
CB58 CP (IX+$00)
CB5B JR NZ,$CB64
CB5D LD A,$64
CB5F CP (IX+$07)
CB62 JR $CB69
CB64 LD A,$64
CB66 CP (IX+$05)
CB69 JR C,$CB71
CB6B CALL $9818
CB6E CALL $9796
CB71 BIT 1,(IX+$0B)
CB75 JP NZ,AdvanceScriptInstruction
CB78 LD HL,$C8AC
CB7B JP ScriptInstruction
Prev: C50E Up: Map Next: CB7E