;-----------------------------------------
; A ← 乱数値
; Carry ← 0
;-----------------------------------------
094B [094B] E5 PUSH HL
094C [094C] FA E8 C5 LD A, ($C5E8)
094F [094F] 3C INC A
0950 [0950] E6 7F AND $7F
0952 [0952] EA E8 C5 LD ($C5E8), A
0955 [0955] 21 63 09 LD HL, $0963
0958 [0958] 85 ADD A, L
0959 [0959] 6F LD L, A
095A [095A] 30 01 JR NC, $095D
095C [095C] 24 INC H
095D [095D] 7E LD A, (HL)
095E [095E] EA E7 C5 LD ($C5E7), A
0961 [0961] E1 POP HL
0962 [0962] C9 RET
0963 [0963] 7B FE 22 DC 18 C4 6D FB CD 27 A0 09 6E 38 8A 04
7C 56 97 5A A8 4D 78 B5 6C AA 03 1A 4A 0D 26 82
AD 02 A1 B9 A3 6B D8 0C 4C AE 19 45 5B 9C 16 07
89 51 90 29 F5 62 F7 CB F1 53 FF 14 65 D0 87 35
3E 4E 4F 83 0E C9 7F 5D FC E6 BA 01 F8 00 F4 0A
E5 A9 8D D1 E8 DB DE 81 95 72 08 9A C7 49 C8 23
39 37 E0 91 C3 33 9B 5F BE 41 EE 74 E2 0B 47 7E
BF 60 BB 20 61 05 B2 94 B6 E4 3A 21 1E B4 8C CE
;-----------------------------------------
; (HL, A) ← divmod(HL, A)
;-----------------------------------------
16C1 [16C1] 16 10 LD D, $10
16C3 [16C3] 5F LD E, A
16C4 [16C4] AF XOR A
16C5 [16C5] 29 ADD HL, HL
16C6 [16C6] 17 RLA
16C7 [16C7] 38 03 JR C, $16CC
16C9 [16C9] BB CP E
16CA [16CA] 38 02 JR C, $16CE
16CC [16CC] 93 SUB E
16CD [16CD] 2C INC L
16CE [16CE] 15 DEC D
16CF [16CF] 20 F4 JR NZ, $16C5
16D1 [16D1] C9 RET
;-----------------------------------------
; 仲間判定
;-----------------------------------------
...
5BB3 [59BB3] E6 03 AND $03
5BB5 [59BB5] 21 A1 D8 LD HL, $D8A1
5BB8 [59BB8] 85 ADD A, L
5BB9 [59BB9] 6F LD L, A
5BBA [59BBA] 30 01 JR NC, $5BBD
5BBC [59BBC] 24 INC H
5BBD [59BBD] 7E LD A, (HL) ; A: なつきにくさ
5BBE [59BBE] FE 07 CP $07
5BC0 [59BC0] CA F5 5C JP Z, $5CF5
5BC3 [59BC3] FA AB DA LD A, ($DAAB)
5BC6 [59BC6] 21 58 D9 LD HL, $D958
5BC9 [59BC9] 87 ADD A, A
5BCA [59BCA] 85 ADD A, L
5BCB [59BCB] 6F LD L, A
5BCC [59BCC] 30 01 JR NC, $5BCF
5BCE [59BCE] 24 INC H
5BCF [59BCF] 2A LD A, (HL+)
5BD0 [59BD0] EA E3 CF LD ($CFE3), A
5BD3 [59BD3] 7E LD A, (HL)
5BD4 [59BD4] EA E4 CF LD ($CFE4), A ; フラグ番号
5BD7 [59BD7] CD 7E 5A CALL $5A7E
5BDA [59BDA] 11 0B 5D LD DE, $5D0B
5BDD [59BDD] 20 36 JR NZ, $5C15 ; 登録済みの場合
5BDF [59BDF] 21 01 40 LD HL, $4001
5BE2 [59BE2] 06 35 LD B, $35
5BE4 [59BE4] D7 RST 10H
5BE5 [59BE5] CD 4B 09 CALL $094B
5BE8 [59BE8] FA E7 C5 LD A, ($C5E7)
5BEB [59BEB] 6F LD L, A
5BEC [59BEC] FA E8 C5 LD A, ($C5E8)
5BEF [59BEF] 67 LD H, A
5BF0 [59BF0] 3E C8 LD A, $C8
5BF2 [59BF2] CD C1 16 CALL $16C1
5BF5 [59BF5] 47 LD B, A
5BF6 [59BF6] FA E9 CF LD A, ($CFE9) ; 種族依存の仲間難易度
5BF9 [59BF9] FE 07 CP $07
5BFB [59BFB] CA F5 5C JP Z, $5CF5 ; 設定 7 の場合、仲間にならない
5BFE [59BFE] 21 FB 5C LD HL, $5CFB
5C01 [59C01] 85 ADD A, L
5C02 [59C02] 6F LD L, A
5C03 [59C03] 30 01 JR NC, $5C06
5C05 [59C05] 24 INC H
5C06 [59C06] 7E LD A, (HL)
5C07 [59C07] B8 CP B
5C08 [59C08] D2 FA 5C JP NC, $5CFA ; (境界値) >= (乱数値) の場合、仲間になる
5C0B [59C0B] FA 94 D8 LD A, ($D894)
5C0E [59C0E] B7 OR A
5C0F [59C0F] C2 FA 5C JP NZ, $5CFA ; 1: 「ほしふりのオーブ」を使用している
5C12 [59C12] 11 03 5D LD DE, $5D03
5C15 [59C15] FA 9F D8 LD A, ($D89F)
5C18 [59C18] 4F LD C, A
5C19 [59C19] FA A0 D8 LD A, ($D8A0)
5C1C [59C1C] 47 LD B, A
5C1D [59C1D] FA AB DA LD A, ($DAAB)
5C20 [59C20] E6 03 AND $03
5C22 [59C22] 21 A1 D8 LD HL, $D8A1
5C25 [59C25] 85 ADD A, L
5C26 [59C26] 6F LD L, A
5C27 [59C27] 30 01 JR NC, $5C2A
5C29 [59C29] 24 INC H
5C2A [59C2A] 7E LD A, (HL) ; A: なつきにくさ
5C2B [59C2B] 83 ADD A, E
5C2C [59C2C] 5F LD E, A
5C2D [59C2D] 30 01 JR NC, $5C30
5C2F [59C2F] 14 INC D
5C30 [59C30] 1A LD A, (DE)
5C31 [59C31] 60 LD H, B
5C32 [59C32] 69 LD L, C
5C33 [59C33] B7 OR A
5C34 [59C34] CA FA 5C JP Z, $5CFA
5C37 [59C37] FE 07 CP $07
5C39 [59C39] CA F5 5C JP Z, $5CF5
5C3C [59C3C] FA 94 D8 LD A, ($D894)
5C3F [59C3F] B7 OR A
5C40 [59C40] C2 FA 5C JP NZ, $5CFA ; 1: 「ほしふりのオーブ」を使用している
5C43 [59C43] 1A LD A, (DE)
5C44 [59C44] FE 01 CP $01
5C46 [59C46] 28 2F JR Z, $5C77
5C48 [59C48] FE 02 CP $02
5C4A [59C4A] 28 30 JR Z, $5C7C
5C4C [59C4C] FE 03 CP $03
5C4E [59C4E] 28 2F JR Z, $5C7F
5C50 [59C50] FE 04 CP $04
5C52 [59C52] 28 2D JR Z, $5C81
5C54 [59C54] FE 05 CP $05
5C56 [59C56] 28 2F JR Z, $5C87
5C58 [59C58] FE 06 CP $06
5C5A [59C5A] 28 32 JR Z, $5C8E
5C5C [59C5C] FE 11 CP $11
5C5E [59C5E] 28 40 JR Z, $5CA0
5C60 [59C60] FE 12 CP $12
5C62 [59C62] 28 3E JR Z, $5CA2
5C64 [59C64] FE 13 CP $13
5C66 [59C66] 28 44 JR Z, $5CAC
5C68 [59C68] FE 14 CP $14
5C6A [59C6A] 28 40 JR Z, $5CAC
5C6C [59C6C] FE 15 CP $15
5C6E [59C6E] 28 3C JR Z, $5CAC
5C70 [59C70] FE 16 CP $16
5C72 [59C72] 28 46 JR Z, $5CBA
5C74 [59C74] C3 F5 5C JP $5CF5
; *= 5
5C77 [59C77] 29 ADD HL, HL
5C78 [59C78] 29 ADD HL, HL
5C79 [59C79] 09 ADD HL, BC
5C7A [59C7A] 18 43 JR $5CBF
; *= 2
5C7C [59C7C] 29 ADD HL, HL
5C7D [59C7D] 18 40 JR $5CBF
; /= 1
5C7F [59C7F] 18 3E JR $5CBF
; /= 2
5C81 [59C81] CB 3C SRL H
5C83 [59C83] CB 1D RR L
5C85 [59C85] 18 38 JR $5CBF
; /= 5
5C87 [59C87] 3E 05 LD A, $05
5C89 [59C89] CD C1 16 CALL $16C1
5C8C [59C8C] 18 31 JR $5CBF
; /= 16
5C8E [59C8E] CB 3C SRL H
5C90 [59C90] CB 1D RR L
5C92 [59C92] CB 3C SRL H
5C94 [59C94] CB 1D RR L
5C96 [59C96] CB 3C SRL H
5C98 [59C98] CB 1D RR L
5C9A [59C9A] CB 3C SRL H
5C9C [59C9C] CB 1D RR L
5C9E [59C9E] 18 1F JR $5CBF
; /= 1
5CA0 [59CA0] 18 1D JR $5CBF
; /= 4
5CA2 [59CA2] CB 3C SRL H
5CA4 [59CA4] CB 1D RR L
5CA6 [59CA6] CB 3C SRL H
5CA8 [59CA8] CB 1D RR L
5CAA [59CAA] 18 13 JR $5CBF
; /= 8
5CAC [59CAC] CB 3C SRL H
5CAE [59CAE] CB 1D RR L
5CB0 [59CB0] CB 3C SRL H
5CB2 [59CB2] CB 1D RR L
5CB4 [59CB4] CB 3C SRL H
5CB6 [59CB6] CB 1D RR L
5CB8 [59CB8] 18 05 JR $5CBF
; /= 20
5CBA [59CBA] 3E 14 LD A, $14
5CBC [59CBC] CD C1 16 CALL $16C1
5CBF [59CBF] E5 PUSH HL
5CC0 [59CC0] CD 4B 09 CALL $094B
5CC3 [59CC3] FA E7 C5 LD A, ($C5E7)
5CC6 [59CC6] 6F LD L, A
5CC7 [59CC7] FA E8 C5 LD A, ($C5E8)
5CCA [59CCA] 67 LD H, A
5CCB [59CCB] 3E 5B LD A, $5B
5CCD [59CCD] CD C1 16 CALL $16C1
5CD0 [59CD0] C6 0A ADD A, $0A
5CD2 [59CD2] 4F LD C, A
5CD3 [59CD3] 06 00 LD B, $00
5CD5 [59CD5] E1 POP HL
5CD6 [59CD6] 7D LD A, L
5CD7 [59CD7] 91 SUB C
5CD8 [59CD8] 6F LD L, A
5CD9 [59CD9] 7C LD A, H
5CDA [59CDA] 98 SBC A, B
5CDB [59CDB] 67 LD H, A
5CDC [59CDC] CB 7C BIT 7, H
5CDE [59CDE] 20 15 JR NZ, $5CF5 ; A < (乱数 10～100) の場合、仲間にならない
5CE0 [59CE0] CD 4B 09 CALL $094B
5CE3 [59CE3] FA E7 C5 LD A, ($C5E7)
5CE6 [59CE6] 6F LD L, A
5CE7 [59CE7] FA E8 C5 LD A, ($C5E8)
5CEA [59CEA] 67 LD H, A
5CEB [59CEB] 3E 64 LD A, $64
5CED [59CED] CD C1 16 CALL $16C1
5CF0 [59CF0] 3C INC A
5CF1 [59CF1] FE 5B CP $5B
5CF3 [59CF3] 38 05 JR C, $5CFA ; (乱数 1～100) < 91 の場合、仲間になる
5CF5 [59CF5] 3E FF LD A, $FF
5CF7 [59CF7] EA AB DA LD ($DAAB), A
5CFA [59CFA] C9 RET
5CFB [59CFB] 64 32 18 0A 06 02 01 00
5D03 [59D03] 00 01 02 03 04 05 06 07
5D0B [59D0B] 00 11 12 13 14 15 16 07
