ref: 44a11e6588fe9c7a479dc624f3bac0ac2238df2a
parent: c6dd950f32321a878682ca53646df682f50f2435
author: yenatch <[email protected]>
date: Fri Feb 21 22:41:31 EST 2014
More Bill's PC functions.
--- a/main.asm
+++ b/main.asm
@@ -14182,9 +14182,41 @@
ret
; e512 (3:6512)
-INCBIN "baserom.gbc",$e512,$e538 - $e512
+Functione512: ; e512
+ ld a, [PartyCount]
+ and a
+ jr z, .asm_e51e
+ cp $2
+ jr c, .asm_e526
+ and a
+ ret
+.asm_e51e
+ ld hl, UnknownText_0xe52e
+ call Function1d67
+ scf
+ ret
+.asm_e526
+ ld hl, UnknownText_0xe533
+ call Function1d67
+ scf
+ ret
+; e52e
+
+UnknownText_0xe52e: ; 0xe52e
+ ; You don't have a single #MON!
+ text_jump UnknownText_0x1c1062
+ db "@"
+; 0xe533
+
+UnknownText_0xe533: ; 0xe533
+ ; You can't deposit your last #MON!
+ text_jump UnknownText_0x1c1080
+ db "@"
+; 0xe538
+
+
Functione538: ; e538
ld hl, PartyMon1CurHP
ld de, $0030
@@ -14227,8 +14259,26 @@
ret
; e56d (3:656d)
-INCBIN "baserom.gbc",$e56d,$e583 - $e56d
+Functione56d: ; e56d
+ ld a, [PartyCount]
+ cp $6
+ jr nc, .asm_e576
+ and a
+ ret
+.asm_e576
+ ld hl, UnknownText_0xe57e
+ call Function1d67
+ scf
+ ret
+; e57e
+
+UnknownText_0xe57e: ; 0xe57e
+ ; You can't take any more #MON.
+ text_jump UnknownText_0x1c10a2
+ db "@"
+; 0xe583
+
; no known jump sources
Functione583: ; e583 (3:6583)
callba Functione35aa
@@ -14270,7 +14320,124 @@
ret
; e5d9
-INCBIN "baserom.gbc",$e5d9,$e698 - $e5d9
+Functione5d9: ; e5d9
+ ld a, [$db72]
+ cp b
+ jr z, .asm_e5f1
+ ld a, b
+ ld hl, Unknown_e66e
+ ld bc, $0003
+ call AddNTimes
+ ld a, [hli]
+ push af
+ ld a, [hli]
+ ld h, [hl]
+ ld l, a
+ pop af
+ jr .asm_e5f6
+
+.asm_e5f1
+ ld a, $1
+ ld hl, BoxCount
+
+.asm_e5f6
+ call GetSRAMBank
+ ld a, [hl]
+ ld bc, $0016
+ add hl, bc
+ ld b, a
+ ld c, $0
+ ld de, EnemyMoveAnimation
+ ld a, b
+ and a
+ jr z, .asm_e66a
+.asm_e608
+ push hl
+ push bc
+ ld a, c
+ ld bc, $0000
+ add hl, bc
+ ld bc, $0020
+ call AddNTimes
+ ld a, [hl]
+ ld [de], a
+ inc de
+ ld [CurSpecies], a
+ call GetBaseData
+ pop bc
+ pop hl
+ push hl
+ push bc
+ ld a, c
+ ld bc, $035c
+ add hl, bc
+ call SkipNames
+ call CopyBytes
+ pop bc
+ pop hl
+ push hl
+ push bc
+ ld a, c
+ ld bc, $001f
+ add hl, bc
+ ld bc, $0020
+ call AddNTimes
+ ld a, [hl]
+ ld [de], a
+ inc de
+ pop bc
+ pop hl
+ push hl
+ push bc
+ ld a, c
+ ld bc, $0015
+ add hl, bc
+ ld bc, $0020
+ call AddNTimes
+ ld a, [hli]
+ and $f0
+ ld b, a
+ ld a, [hl]
+ and $f0
+ swap a
+ or b
+ ld b, a
+ ld a, [BaseGender]
+ cp b
+ ld a, $1
+ jr c, .asm_e662
+ xor a
+
+.asm_e662
+ ld [de], a
+ inc de
+ pop bc
+ pop hl
+ inc c
+ dec b
+ jr nz, .asm_e608
+
+.asm_e66a
+ call CloseSRAM
+ ret
+; e66e
+
+Unknown_e66e: ; e66e
+ dbw 2, $a000
+ dbw 2, $a450
+ dbw 2, $a8a0
+ dbw 2, $acf0
+ dbw 2, $b140
+ dbw 2, $b590
+ dbw 2, $b9e0
+ dbw 3, $a000
+ dbw 3, $a450
+ dbw 3, $a8a0
+ dbw 3, $acf0
+ dbw 3, $b140
+ dbw 3, $b590
+ dbw 3, $b9e0
+; e698
Functione698: ; e698
ld hl, BreedMon1Species