ref: 502fe13e3026f421f88fa221854b8f6c294ffe8f
dir: /main.asm/
INCLUDE "includes.asm" SECTION "bank1", ROMX, BANK[$1] Function4000: ; 4000 hlcoord 3, 10 ld b, 1 ld c, 11 ld a, [IsInBattle] and a jr z, .asm_4012 call TextBox jr .asm_4017 .asm_4012 ld a, $10 call Predef .asm_4017 hlcoord 4, 11 ld de, .Waiting call PlaceString ld c, 50 jp DelayFrames ; 4025 .Waiting ; 4025 db "Waiting...!@" ; 4031 LoadPushOAM: ; 4031 ld c, hPushOAM & $ff ld b, PushOAMEnd - PushOAM ld hl, PushOAM .loop ld a, [hli] ld [$ff00+c], a inc c dec b jr nz, .loop ret ; 403f PushOAM: ; 403f ld a, Sprites >> 8 ld [rDMA], a ld a, $28 .loop dec a jr nz, .loop ret PushOAMEnd ; 4049 INCLUDE "engine/facings.asm" Data4273: ; 4273 INCBIN "baserom.gbc",$4273,$4357 - $4273 ; 4357 Function4357: ; 4357 push bc ld hl, $0001 add hl, bc ld a, [hl] push af ld h, b ld l, c ld bc, $0028 xor a call ByteFill pop af cp $ff jr z, .asm_4379 bit 7, a jr nz, .asm_4379 call GetMapObject ld hl, $0000 add hl, bc ld [hl], $ff .asm_4379 pop bc ret ; 437b Function437b: ; 437b call Function4386 ret c call Function43f3 call Function4427 ret ; 4386 Function4386: ; 4386 ld hl, $0005 add hl, bc res 6, [hl] ld a, [XCoord] ld e, a ld hl, $0010 add hl, bc ld a, [hl] add $1 sub e jr c, .asm_43b2 cp $c jr nc, .asm_43b2 ld a, [YCoord] ld e, a ld hl, $0011 add hl, bc ld a, [hl] add $1 sub e jr c, .asm_43b2 cp $b jr nc, .asm_43b2 jr .asm_43dc .asm_43b2 ld hl, $0005 add hl, bc set 6, [hl] ld a, [XCoord] ld e, a ld hl, $0014 add hl, bc ld a, [hl] add $1 sub e jr c, .asm_43de cp $c jr nc, .asm_43de ld a, [YCoord] ld e, a ld hl, $0015 add hl, bc ld a, [hl] add $1 sub e jr c, .asm_43de cp $b jr nc, .asm_43de .asm_43dc and a ret .asm_43de ld hl, $0004 add hl, bc bit 1, [hl] jr nz, .asm_43eb call Function4357 scf ret .asm_43eb ld hl, $0005 add hl, bc set 6, [hl] and a ret ; 43f3 Function43f3: ; 43f3 ld hl, $0009 add hl, bc ld a, [hl] and a jr z, .asm_4409 ld hl, $0005 add hl, bc bit 5, [hl] jr nz, .asm_4426 cp $1 jr z, .asm_4414 jr .asm_4421 .asm_4409 call Function47bc ld hl, $0005 add hl, bc bit 5, [hl] jr nz, .asm_4426 .asm_4414 call Function47dd ld hl, $0009 add hl, bc ld a, [hl] and a ret z cp $1 ret z .asm_4421 ld hl, Pointers4b45 rst JumpTable ret .asm_4426 ret ; 4427 Function4427: ; 4427 ld hl, $0004 add hl, bc bit 0, [hl] jr nz, Function44a3 ld hl, $0005 add hl, bc bit 6, [hl] jr nz, Function44a3 bit 5, [hl] jr nz, Function4448 ld de, Pointers445f jr Function444d ; 4440 Function4440: ; 4440 ld hl, $0004 add hl, bc bit 0, [hl] jr nz, Function44a3 ; fallthrough ; 4448 Function4448: ; 4448 ld de, Pointers445f + 2 jr Function444d ; 444d Function444d: ; 444d ld hl, $000b add hl, bc ld a, [hl] ld l, a ld h, 0 add hl, hl add hl, hl add hl, de ld a, [hli] ld h, [hl] ld l, a call _hl_ ret ; 445f Pointers445f: ; 445f dw Function44a3 dw Function44a3 dw Function44b5 dw Function44aa dw Function44c1 dw Function44aa dw Function4508 dw Function44aa dw Function4529 dw Function44aa dw Function4539 dw Function44a3 dw Function456e dw Function456e dw Function457b dw Function44a3 dw Function4582 dw Function4582 dw Function4589 dw Function4589 dw Function4590 dw Function45a4 dw Function45ab dw Function44aa dw Function45be dw Function45be dw Function45c5 dw Function45c5 dw Function45da dw Function44a3 dw Function45ed dw Function44a3 dw Function44e4 dw Function44aa ; 44a3 Function44a3: ; 44a3 ld hl, OBJECT_FACING add hl, bc ld [hl], $ff ret ; 44aa Function44aa: ; 44aa call GetSpriteDirection or $0 ld hl, OBJECT_FACING add hl, bc ld [hl], a ret ; 44b5 Function44b5: ; 44b5 ld hl, OBJECT_FACING add hl, bc ld a, [hl] and $1 jr nz, Function44c1 jp Function44aa ; 44c1 Function44c1: ; 44c1 ld hl, $0004 add hl, bc bit 3, [hl] jp nz, Function44aa ld hl, $000c add hl, bc ld a, [hl] inc a and $f ld [hl], a rrca rrca and $3 ld d, a call GetSpriteDirection or $0 or d ld hl, OBJECT_FACING add hl, bc ld [hl], a ret ; 44e4 Function44e4: ; 44e4 ld hl, $0004 add hl, bc bit 3, [hl] jp nz, Function44aa ld hl, $000c add hl, bc ld a, [hl] add $2 and $f ld [hl], a rrca rrca and $3 ld d, a call GetSpriteDirection or $0 or d ld hl, OBJECT_FACING add hl, bc ld [hl], a ret ; 4508 Function4508: ; 4508 ld hl, $0004 add hl, bc bit 3, [hl] jp nz, Function44aa ld hl, $000c add hl, bc inc [hl] ld a, [hl] rrca rrca rrca and $3 ld d, a call GetSpriteDirection or $0 or d ld hl, OBJECT_FACING add hl, bc ld [hl], a ret ; 4529 Function4529: ; 4529 call Function453f ld hl, $0008 add hl, bc ld a, [hl] or $0 ld hl, OBJECT_FACING add hl, bc ld [hl], a ret ; 4539 Function4539: ; 4539 call Function453f jp Function44a3 ; 453f Function453f: ; 453f ld hl, $000c add hl, bc ld a, [hl] and $f0 ld e, a ld a, [hl] inc a and $f ld d, a cp $4 jr c, .asm_4558 ld d, 0 ld a, e add $10 and $30 ld e, a .asm_4558 ld a, d or e ld [hl], a swap e ld d, 0 ld hl, .Directions add hl, de ld a, [hl] ld hl, $0008 add hl, bc ld [hl], a ret ; 456a .Directions ; 456a db $00, $0c, $04, $08 ; 456e Function456e: ; 456e call GetSpriteDirection rrca rrca add $10 ld hl, OBJECT_FACING add hl, bc ld [hl], a ret ; 457b Function457b: ; 457b ld hl, OBJECT_FACING add hl, bc ld [hl], $15 ret ; 4582 Function4582: ; 4582 ld hl, OBJECT_FACING add hl, bc ld [hl], $14 ret ; 4589 Function4589: ; 4589 ld hl, OBJECT_FACING add hl, bc ld [hl], $17 ret ; 4590 Function4590: ; 4590 ld hl, $000c add hl, bc ld a, [hl] inc a and $f ld [hl], a and $8 jr z, Function45a4 ld hl, OBJECT_FACING add hl, bc ld [hl], $4 ret ; 45a4 Function45a4: ; 45a4 ld hl, OBJECT_FACING add hl, bc ld [hl], $0 ret ; 45ab Function45ab: ; 45ab ld hl, $000c add hl, bc ld a, [hl] inc a ld [hl], a and $c rrca rrca add $18 ld hl, OBJECT_FACING add hl, bc ld [hl], a ret ; 45be Function45be: ; 45be ld hl, OBJECT_FACING add hl, bc ld [hl], $16 ret ; 45c5 Function45c5: ; 45c5 ld a, [$d831] ld d, $17 cp $33 jr z, .asm_45d4 cp $47 jr z, .asm_45d4 ld d, $16 .asm_45d4 ld hl, OBJECT_FACING add hl, bc ld [hl], d ret ; 45da Function45da: ; 45da ld hl, $000c add hl, bc inc [hl] ld a, [hl] ld hl, OBJECT_FACING add hl, bc and 2 ld a, $1c jr z, .asm_45eb inc a .asm_45eb ld [hl], a ret ; 45ed Function45ed: ; 45ed ld hl, $000c add hl, bc inc [hl] ld a, [hl] ld hl, OBJECT_FACING add hl, bc and 4 ld a, $1e jr z, .asm_45fe inc a .asm_45fe ld [hl], a ret ; 4600 Function4600: ; 4600 ld hl, OBJECT_MAP_X add hl, bc ld a, [hl] ld hl, OBJECT_NEXT_MAP_X add hl, bc ld [hl], a ld hl, OBJECT_MAP_Y add hl, bc ld a, [hl] ld hl, OBJECT_NEXT_MAP_Y add hl, bc ld [hl], a ld hl, OBJECT_STANDING_TILE add hl, bc ld a, [hl] ld hl, OBJECT_NEXT_TILE add hl, bc ld [hl], a call Function4661 ld hl, OBJECT_STANDING_TILE add hl, bc ld a, [hl] call Function4679 ret ; 462a Function462a: ; 462a ld hl, OBJECT_NEXT_MAP_X add hl, bc ld a, [hl] ld hl, OBJECT_MAP_X add hl, bc ld [hl], a ld hl, OBJECT_NEXT_MAP_Y add hl, bc ld a, [hl] ld hl, OBJECT_MAP_Y add hl, bc ld [hl], a ret ; 463f Function463f: ; 463f ld hl, OBJECT_FLAGS add hl, bc bit 3, [hl] jr z, .asm_464f ld hl, $000e add hl, bc ld a, [hl] call Function4661 .asm_464f ld hl, $000e add hl, bc ld a, [hl] call Function4679 ret c ld hl, $000f add hl, bc ld a, [hl] call Function4679 ret ; 4661 Function4661: ; 4661 call Function188e jr z, .asm_466b call Function1875 jr c, .asm_4672 .asm_466b ld hl, $0005 add hl, bc set 3, [hl] ret .asm_4672 ld hl, $0005 add hl, bc res 3, [hl] ret ; 4679 Function4679: ; 4679 and a ret ; 467b Function467b: ; 467b xor a ld hl, $000c add hl, bc ld [hl], a ld hl, $001b add hl, bc ld [hli], a ld [hli], a ld [hli], a ld [hl], a ld hl, $0007 add hl, bc ld [hl], $ff ret ; 4690 Function4690: ; 4690 ld hl, $0007 add hl, bc ld [hl], a ld hl, $0004 add hl, bc bit 2, [hl] jr nz, .asm_46a6 add a add a and $c ld hl, $0008 add hl, bc ld [hl], a .asm_46a6 ; fallthrough ; 46a6 Function46a6: ; 46a6 call GetStepVector ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], a ld a, d call Function4730 ld hl, OBJECT_NEXT_MAP_X add hl, bc add [hl] ld hl, OBJECT_MAP_X add hl, bc ld [hl], a ld d, a ld a, e call Function4730 ld hl, OBJECT_NEXT_MAP_Y add hl, bc add [hl] ld hl, OBJECT_MAP_Y add hl, bc ld [hl], a ld e, a push bc call Function2a3c pop bc ld hl, $000e add hl, bc ld [hl], a ret ; 46d7 Function46d7: ; 46d7 call GetStepVector ld hl, OBJECT_SPRITE_X add hl, bc ld a, [hl] add d ld [hl], a ld hl, OBJECT_SPRITE_Y add hl, bc ld a, [hl] add e ld [hl], a ret ; 46e9 GetStepVector: ; 46e9 ; Return (x, y, duration, speed) in (d, e, a, h). ld hl, $0007 add hl, bc ld a, [hl] and $f add a add a ld l, a ld h, 0 ld de, StepVectors add hl, de ld d, [hl] inc hl ld e, [hl] inc hl ld a, [hli] ld h, [hl] ret ; 4700 StepVectors: ; 4700 ; x, y, duration, speed ; slow db 0, 1, 16, 1 db 0, -1, 16, 1 db -1, 0, 16, 1 db 1, 0, 16, 1 ; normal db 0, 2, 8, 2 db 0, -2, 8, 2 db -2, 0, 8, 2 db 2, 0, 8, 2 ; fast db 0, 4, 4, 4 db 0, -4, 4, 4 db -4, 0, 4, 4 db 4, 0, 4, 4 ; 4730 Function4730: ; 4730 add a ret z ld a, 1 ret nc ld a, -1 ret ; 4738 Function4738: ; 4738 ld hl, $0007 add hl, bc ld a, [hl] and $3 ld [$d151], a call Function46d7 ld a, [$d14e] add d ld [$d14e], a ld a, [$d14f] add e ld [$d14f], a ld hl, $d150 set 5, [hl] ret ; 4759 Function4759: ; 4759 push bc ld e, a ld d, 0 ld hl, $0001 add hl, bc ld a, [hl] call GetMapObject add hl, de ld a, [hl] pop bc ret ; 4769 Function4769: ; 4769 ld hl, $0001 add hl, bc ld a, [hl] cp $ff jr z, .asm_477d push bc call GetMapObject ld hl, $0004 add hl, bc ld a, [hl] pop bc ret .asm_477d ld a, $6 ret ; 4780 Function4780: ; 4780 ld hl, $001b add hl, bc ld [hl], $0 ret ; 4787 Function4787: ; 4787 ld hl, $001b add hl, bc inc [hl] ret ; 478d Function478d: ; 478d ld hl, $001b add hl, bc dec [hl] ret ; 4793 Function4793: ; 4793 ld hl, $001b add hl, bc ld a, [hl] pop hl rst JumpTable ret ; 479b Function479b: ; 479b ld hl, $001c add hl, bc ld [hl], $0 ret ; 47a2 Function47a2: ; 47a2 ld hl, $001c add hl, bc inc [hl] ret ; 47a8 Function47a8: ; 47a8 ld hl, $001c add hl, bc ld a, [hl] pop hl rst JumpTable ret ; 47b0 Function47b0: ; 47b0 ld hl, $001c add hl, bc ld a, [hl] ret ; 47b6 Function47b6: ; 47b6 ld hl, $001c add hl, bc ld [hl], a ret ; 47bc Function47bc: ; 47bc ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] push bc call Function2a3c pop bc ld hl, $000e add hl, bc ld [hl], a call Function4600 call Function467b ld hl, $0009 add hl, bc ld [hl], $1 ret ; 47dd Function47dd: ; 47dd call Function479b call Function1a2f ld a, [hl] ld hl, .Pointers rst JumpTable ret ; 47e9 .Pointers ; 47e9 dw Function4821 dw Function4822 dw Function482c dw Function4838 dw Function4842 dw Function4851 dw Function4869 dw Function487c dw Function4882 dw Function4888 dw Function488e dw Function4891 dw Function4894 dw Function4897 dw Function489d dw Function48a0 dw Function48a6 dw Function48ac dw Function48ff dw Function49e5 dw Function4a21 dw Function4958 dw Function496e dw Function4abc dw Function498d dw Function4984 dw Function4a46 dw Function4a89 ; 4821 Function4821: ; 4821 ret ; 4822 Function4822: ; 4822 call Random ld a, [hRandomAdd] and 1 jp Function4af0 ; 482c Function482c: ; 482c call Random ld a, [hRandomAdd] and 1 or 2 jp Function4af0 ; 4838 Function4838: ; 4838 call Random ld a, [hRandomAdd] and 3 jp Function4af0 ; 4842 Function4842: ; 4842 call Random ld a, [hRandomAdd] and $c ld hl, $0008 add hl, bc ld [hl], a jp Function4b1d ; 4851 Function4851: ; 4851 ld hl, $0008 add hl, bc ld a, [hl] and $c ld d, a call Random ld a, [hRandomAdd] and $c cp d jr nz, .asm_4865 xor $c .asm_4865 ld [hl], a jp Function4b26 ; 4869 Function4869: ; 4869 call Function462a call Function467b ld hl, $000b add hl, bc ld [hl], $1 ld hl, $0009 add hl, bc ld [hl], $5 ret ; 487c Function487c: ; 487c ld hl, Function5000 jp Function5041 ; 4882 Function4882: ; 4882 ld hl, Function5015 jp Function5041 ; 4888 Function4888: ; 4888 ld hl, Function5026 jp Function5041 ; 488e Function488e: ; 488e jp Function5037 ; 4891 Function4891: ; 4891 jp Function5037 ; 4894 Function4894: ; 4894 jp Function5037 ; 4897 Function4897: ; 4897 ld hl, Function5000 jp Function5041 ; 489d Function489d: ; 489d jp Function5037 ; 48a0 Function48a0: ; 48a0 ld hl, Function54e6 jp Function5041 ; 48a6 Function48a6: ; 48a6 ld hl, Function500e jp Function5041 ; 48ac Function48ac: ; 48ac call Function4793 dw Function48b3 dw Function48f8 ; 48b3 Function48b3: ; 48b3 ld hl, $000e add hl, bc ld a, [hl] call CheckPitTile jr z, .asm_48f5 ld hl, $0005 add hl, bc bit 2, [hl] res 2, [hl] jr z, .asm_48ee ld hl, $0020 add hl, bc ld a, [hl] and $3 or $0 call Function4690 call Function6ec1 jr c, .asm_48eb ld de, SFX_STRENGTH call PlaySFX call Function5538 call Function463f ld hl, $0009 add hl, bc ld [hl], $f ret .asm_48eb call Function462a .asm_48ee ld hl, $0007 add hl, bc ld [hl], $ff ret .asm_48f5 call Function4787 ; fallthrough ; 48f8 Function48f8: ; 48f8 ld hl, $0007 add hl, bc ld [hl], $ff ret ; 48ff Function48ff: ; 48ff ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] ld hl, $0020 add hl, bc ld a, [hl] push bc call Function1ae5 ld hl, $0007 add hl, bc ld a, [hl] cp $ff jr z, .asm_494a ld hl, $0012 add hl, bc ld a, [hl] cp d jr z, .asm_492d jr c, .asm_4929 ld a, $3 jr .asm_493d .asm_4929 ld a, $2 jr .asm_493d .asm_492d ld hl, $0013 add hl, bc ld a, [hl] cp e jr z, .asm_494a jr c, .asm_493b ld a, $0 jr .asm_493d .asm_493b ld a, $1 .asm_493d ld d, a ld hl, $0007 add hl, bc ld a, [hl] and $c or d pop bc jp Function5412 .asm_494a pop bc ld hl, $0007 add hl, bc ld [hl], $ff ld hl, $000b add hl, bc ld [hl], $1 ret ; 4958 Function4958: ; 4958 call Function467b ld hl, $0007 add hl, bc ld [hl], $ff ld hl, $000b add hl, bc ld [hl], $9 ld hl, $0009 add hl, bc ld [hl], $4 ret ; 496e Function496e: ; 496e call Function467b ld hl, $0007 add hl, bc ld [hl], $ff ld hl, $000b add hl, bc ld [hl], $a ld hl, $0009 add hl, bc ld [hl], $4 ret ; 4984 Function4984: ; 4984 call Function4793 dw Function4996 dw Function499c dw Function49b8 ; 498d Function498d: ; 498d call Function4793 dw Function4996 dw Function499c dw Function49c4 ; 4996 Function4996: ; 4996 call Function467b call Function4787 ; fallthrough ; 499c Function499c: ; 499c ld hl, $000b add hl, bc ld [hl], $1 ld hl, $0020 add hl, bc ld a, [hl] ld a, $10 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], a ld hl, $0009 add hl, bc ld [hl], $3 call Function4787 ret ; 49b8 Function49b8: ; 49b8 ld de, .data_49c0 call Function49d0 jr Function4984 ; 49c0 .data_49c0 ; 49c0 db $0c, $08, $00, $04 ; 49c4 Function49c4: ; 49c4 ld de, .data_49cc call Function49d0 jr Function498d ; 49cc .data_49cc ; 49cc db $08, $0c, $04, $00 ; 49d0 Function49d0: ; 49d0 ld hl, $0008 add hl, bc ld a, [hl] and $c rrca rrca push hl ld l, a ld h, $0 add hl, de ld a, [hl] pop hl ld [hl], a call Function478d ret ; 49e5 Function49e5: ; 49e5 call Function4aa8 ld hl, $000b add hl, bc ld [hl], $7 ld hl, OBJECT_STEP_DURATION add hl, de ld a, [hl] inc a add a add $0 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], a ld hl, $0007 add hl, de ld a, [hl] and 3 ld d, $e cp 0 jr z, .asm_4a0f cp 1 jr z, .asm_4a0f ld d, $c .asm_4a0f ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], d ld hl, OBJECT_SPRITE_X_OFFSET add hl, bc ld [hl], $0 ld hl, $0009 add hl, bc ld [hl], $13 ret ; 4a21 Function4a21: ; 4a21 call Function467b call Function4aa8 ld hl, $000b add hl, bc ld [hl], $8 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $0 ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], $f0 ld hl, OBJECT_SPRITE_X_OFFSET add hl, bc ld [hl], $0 ld hl, $0009 add hl, bc ld [hl], $13 ret ; 4a46 Function4a46: ; 4a46 call Function467b call Function4aa8 ld hl, $000b add hl, bc ld [hl], $e ld hl, OBJECT_STEP_DURATION add hl, de ld a, [hl] inc a add a ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], a ld hl, $0007 add hl, de ld a, [hl] and 3 ld e, a ld d, 0 ld hl, .data_4a81 add hl, de add hl, de ld d, [hl] inc hl ld e, [hl] ld hl, OBJECT_SPRITE_X_OFFSET add hl, bc ld [hl], d ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], e ld hl, $0009 add hl, bc ld [hl], $13 ret ; 4a81 .data_4a81 ; 4a81 ; x, y db 0, -4 db 0, 8 db 6, 2 db -6, 2 ; 4a89 Function4a89: ; 4a89 call Function467b call Function4aa8 ld hl, $000b add hl, bc ld [hl], $f ld hl, OBJECT_STEP_DURATION add hl, de ld a, [hl] add $ff ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], a ld hl, $0009 add hl, bc ld [hl], $13 ret ; 4aa8 Function4aa8: ; 4aa8 ld hl, $0020 add hl, bc ld a, [hl] push bc call Function1ae5 ld d, b ld e, c pop bc ld hl, $001d add hl, bc ld [hl], e inc hl ld [hl], d ret ; 4abc Function4abc: ; 4abc call Function467b ld hl, $000b add hl, bc ld [hl], $0 ld hl, $0020 add hl, bc ld a, [hl] call Function4ade ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], e ld hl, $001e add hl, bc ld [hl], a ld hl, $0009 add hl, bc ld [hl], $15 ret ; 4ade Function4ade: ; 4ade ld d, a and $3f ld e, a ld a, d rlca rlca and $3 ld d, a inc d ld a, $1 .asm_4aeb dec d ret z add a jr .asm_4aeb ; 4af0 Function4af0: ; 4af0 call Function4690 call Function6ec1 jr c, Function4b17 call Function463f ld hl, $000b add hl, bc ld [hl], $2 ld hl, $d4cf ld a, [hConnectionStripLength] cp [hl] jr z, .asm_4b10 ld hl, $0009 add hl, bc ld [hl], $7 ret .asm_4b10 ld hl, $0009 add hl, bc ld [hl], $6 ret Function4b17: ; 4b17 call Function467b call Function462a ; fallthrough ; 4b1d Function4b1d: ; 4b1d call Random ld a, [hRandomAdd] and $7f jr Function4b2d ; 4b26 Function4b26: ; 4b26 call Random ld a, [hRandomAdd] and $1f ; fallthrough ; 4b2d Function4b2d: ; 4b2d ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], a ld hl, $0007 add hl, bc ld [hl], $ff ld hl, $000b add hl, bc ld [hl], $1 ld hl, $0009 add hl, bc ld [hl], $3 ret ; 4b45 Pointers4b45: ; 4b45 dw Function47bc dw Function47dd dw Function4e2b dw Function4ddd dw Function4e21 dw Function4e0c dw Function4e56 dw Function4e47 dw Function4b86 dw Function4bbf dw Function4e83 dw Function4dff dw Function4c18 dw Function4c89 dw Function4d14 dw Function4ecd dw Function4d7e dw Function4daf dw Function4dc8 dw Function4f04 dw Function4f33 dw Function4f33 dw Function4f77 dw Function4f7a dw Function4df0 dw Function4f83 ; 4b79 Function4b79: ; 4b79 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4b86 Function4b86: ; 4b86 call Function47a8 dw Function4b8d dw Function4ba9 ; 4b8d Function4b8d: ; 4b8d call Function46d7 call UpdateJumpPosition ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz call Function4600 call Function46a6 ld hl, $0005 add hl, bc res 3, [hl] call Function47a2 ret ; 4ba9 Function4ba9: ; 4ba9 call Function46d7 call UpdateJumpPosition ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz call Function4600 ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4bbf Function4bbf: ; 4bbf call Function47a8 dw Function4bca dw Function4bd2 dw Function4bf2 dw Function4bfd ; 4bca Function4bca: ; 4bca ld hl, $d150 set 7, [hl] call Function47a2 ; fallthrough ; 4bd2 Function4bd2: ; 4bd2 call UpdateJumpPosition call Function4738 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz call Function4600 ld hl, $0005 add hl, bc res 3, [hl] ld hl, $d150 set 6, [hl] set 4, [hl] call Function47a2 ret ; 4bf2 Function4bf2: ; 4bf2 call Function46a6 ld hl, $d150 set 7, [hl] call Function47a2 ; fallthrough ; 4bfd Function4bfd: ; 4bfd call UpdateJumpPosition call Function4738 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz ld hl, $d150 set 6, [hl] call Function4600 ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4c18 Function4c18: ; 4c18 call Function47a8 dw Function4c23 dw Function4c32 dw Function4c42 dw Function4c5d ; 4c23 Function4c23: ; 4c23 ld hl, $000c add hl, bc ld [hl], $0 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $10 call Function47a2 ; fallthrough ; 4c32 Function4c32: ; 4c32 ld hl, $000b add hl, bc ld [hl], $4 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz call Function47a2 ret ; 4c42 Function4c42: ; 4c42 ld hl, $000c add hl, bc ld [hl], $0 ld hl, $001f add hl, bc ld [hl], $10 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $10 ld hl, $0005 add hl, bc res 3, [hl] call Function47a2 ; fallthrough ; 4c5d Function4c5d: ; 4c5d ld hl, $000b add hl, bc ld [hl], $4 ld hl, $001f add hl, bc inc [hl] ld a, [hl] ld d, $60 call Sine ld a, h sub $60 ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], a ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz ld hl, $000c add hl, bc ld [hl], $0 ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4c89 Function4c89: ; 4c89 call Function47a8 dw Function4c9a dw Function4caa dw Function4cb3 dw Function4cc9 dw Function4ceb dw Function4cf5 dw Function4d01 ; 4c9a Function4c9a: ; 4c9a ld hl, $000b add hl, bc ld [hl], $0 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $10 call Function47a2 ret ; 4caa Function4caa: ; 4caa ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz call Function47a2 ; fallthrough ; 4cb3 Function4cb3: ; 4cb3 ld hl, $000c add hl, bc ld [hl], $0 ld hl, $001f add hl, bc ld [hl], $0 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $10 call Function47a2 ret ; 4cc9 Function4cc9: ; 4cc9 ld hl, $000b add hl, bc ld [hl], $4 ld hl, $001f add hl, bc inc [hl] ld a, [hl] ld d, $60 call Sine ld a, h sub $60 ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], a ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz call Function47a2 ; fallthrough ; 4ceb Function4ceb: ; 4ceb ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $10 call Function47a2 ret ; 4cf5 Function4cf5: ; 4cf5 ld hl, $000b add hl, bc ld [hl], $4 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz ; 4d01 Function4d01: ; 4d01 ld hl, $000c add hl, bc ld [hl], $0 ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], $0 ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4d14 Function4d14: ; 4d14 call Function47a8 dw Function4d1f dw Function4d2e dw Function4d4f dw Function4d6b ; 4d1f Function4d1f: ; 4d1f ld hl, $000b add hl, bc ld [hl], $0 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $10 call Function47a2 ; fallthrough ; 4d2e Function4d2e: ; 4d2e ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz ld hl, $000b add hl, bc ld [hl], $2 ld hl, $000c add hl, bc ld [hl], $0 ld hl, $001f add hl, bc ld [hl], $0 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $10 call Function47a2 ; fallthrough ; 4d4f Function4d4f: ; 4d4f ld hl, $001f add hl, bc inc [hl] ld a, [hl] ld d, $60 call Sine ld a, h sub $60 ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], a ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz call Function47a2 ; fallthrough ; 4d6b Function4d6b: ; 4d6b ld hl, $000c add hl, bc ld [hl], $0 ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], $0 ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4d7e Function4d7e: ; 4d7e call Function47a8 dw Function4d85 dw Function4d94 ; 4d85 Function4d85: ; 4d85 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $8 ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], $0 call Function47a2 ; fallthrough ; 4d94 Function4d94: ; 4d94 ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld a, [hl] xor 1 ld [hl], a ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], $0 ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4daf Function4daf: ; 4daf call Function4db5 jp Function4b79 ; 4db5 Function4db5: ; 4db5 ld hl, OBJECT_STEP_DURATION add hl, bc ld a, [hl] and $1 ld a, $1 jr z, .asm_4dc2 ld a, $0 .asm_4dc2 ld hl, $000b add hl, bc ld [hl], a ret ; 4dc8 Function4dc8: ; 4dc8 ld hl, OBJECT_STEP_DURATION add hl, bc ld a, [hl] and $1 ld a, $4 jr z, .asm_4dd5 ld a, $5 .asm_4dd5 ld hl, $000b add hl, bc ld [hl], a jp Function4b79 ; 4ddd Function4ddd: ; 4ddd ld hl, $0007 add hl, bc ld [hl], $ff ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4df0 Function4df0: ; 4df0 ld hl, $0007 add hl, bc ld [hl], $ff ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz jp Function4357 ; 4dff Function4dff: ; 4dff ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4e0c Function4e0c: ; 4e0c call Function47a8 dw Function4e13 dw Function4e21 ; 4e13 Function4e13: ; 4e13 call Function4769 call Function1a47 ld hl, $0008 add hl, bc ld [hl], a call Function47a2 ; fallthrough ; 4e21 Function4e21: ; 4e21 call Function4fb2 ld hl, $0007 add hl, bc ld [hl], $ff ret ; 4e2b Function4e2b: ; 4e2b call Function4fb2 call Function46d7 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz call Function4600 ld hl, $0007 add hl, bc ld [hl], $ff ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4e47 Function4e47: ; 4e47 call Function46d7 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz call Function4600 jp Function4b1d ; 4e56 Function4e56: ; 4e56 ; AnimateStep? call Function47a8 dw Function4e5d dw Function4e65 ; 4e5d Function4e5d: ; 4e5d ld hl, $d150 set 7, [hl] call Function47a2 ; fallthrough ; 4e65 Function4e65: ; 4e65 call Function4738 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz ld hl, $d150 set 6, [hl] call Function4600 ld hl, $0007 add hl, bc ld [hl], $ff ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4e83 Function4e83: ; 4e83 call Function47a8 dw Function4e8e dw Function4ea4 dw Function4ead dw Function4ec0 ; 4e8e Function4e8e: ; 4e8e ld hl, $0007 add hl, bc ld [hl], $ff ld hl, $000c add hl, bc ld a, [hl] ld [hl], $2 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $2 call Function47a2 ; fallthrough ; 4ea4 Function4ea4: ; 4ea4 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz call Function47a2 ; fallthrough ; 4ead Function4ead: ; 4ead ld hl, $001d add hl, bc ld a, [hl] ld hl, $0008 add hl, bc ld [hl], a ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $2 call Function47a2 ; fallthrough ; 4ec0 Function4ec0: ; 4ec0 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4ecd Function4ecd: ; 4ecd call Function46d7 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz push bc ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] ld hl, $0001 add hl, bc ld a, [hl] ld b, a callba Function807e pop bc ld hl, $0005 add hl, bc res 2, [hl] call Function4600 ld hl, $0007 add hl, bc ld [hl], $ff ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4f04 Function4f04: ; 4f04 ld hl, $001d add hl, bc ld e, [hl] inc hl ld d, [hl] ld hl, $0000 add hl, de ld a, [hl] and a jr z, .asm_4f30 ld hl, OBJECT_SPRITE_X add hl, de ld a, [hl] ld hl, OBJECT_SPRITE_X add hl, bc ld [hl], a ld hl, OBJECT_SPRITE_Y add hl, de ld a, [hl] ld hl, OBJECT_SPRITE_Y add hl, bc ld [hl], a ld hl, OBJECT_STEP_DURATION add hl, bc ld a, [hl] and a ret z dec [hl] ret nz .asm_4f30 jp Function4357 ; 4f33 Function4f33: ; 4f33 call Function47a8 dw Function4f3a dw Function4f43 ; 4f3a Function4f3a: ; 4f3a xor a ld hl, $001d add hl, bc ld [hl], a call Function47a2 ; fallthrough ; 4f43 Function4f43: ; 4f43 ld hl, $001d add hl, bc ld d, [hl] ld a, [$d14f] sub d ld [$d14f], a ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] jr z, .asm_4f68 ld a, [hl] call Function4f6c ld hl, $001d add hl, bc ld [hl], a ld d, a ld a, [$d14f] add d ld [$d14f], a ret .asm_4f68 call Function4357 ret ; 4f6c Function4f6c: ; 4f6c ld hl, $001e add hl, bc and 1 ld a, [hl] ret z cpl inc a ret ; 4f77 Function4f77: ; 4f77 call Function47a8 ; ???? ; 4f7a Function4f7a: ; 4f7a call Function47a8 dw Function4f83 dw Function4f83 dw Function4f83 ; 4f83 Function4f83: ; 4f83 call Function47a8 dw Function4f8a dw Function4f99 ; 4f8a Function4f8a: ; 4f8a ld hl, $000b add hl, bc ld [hl], $10 ld hl, OBJECT_STEP_DURATION add hl, bc ld [hl], $10 call Function47a2 ; 4f99 Function4f99: ; 4f99 ld hl, OBJECT_STEP_DURATION add hl, bc dec [hl] ret nz ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], $60 ld hl, $000c add hl, bc ld [hl], $0 ld hl, $0009 add hl, bc ld [hl], $1 ret ; 4fb2 Function4fb2: ; 4fb2 ret ; 4fb3 Function4fb3: ; 4fb3 ld hl, $001d add hl, bc inc [hl] ld a, [hl] srl a srl a and 7 ld l, a ld h, 0 ld de, .y add hl, de ld a, [hl] ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], a ret ; 4fcd .y ; 4fcd db 0, -1, -2, -3, -4, -3, -2, -1 ; 4fd5 UpdateJumpPosition: ; 4fd5 call GetStepVector ld a, h ld hl, $001f add hl, bc ld e, [hl] add e ld [hl], a nop srl e ld d, 0 ld hl, .y add hl, de ld a, [hl] ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld [hl], a ret ; 4ff0 .y ; 4ff0 db -4, -6, -8, -10, -11, -12, -12, -12 db -11, -10, -9, -8, -6, -4, 0, 0 ; 5000 Function5000: ; 5000 ld a, [$c2de] ld hl, $c2df ld [hl], a ld a, $3e ld [$c2de], a ld a, [hl] ret ; 500e Function500e: ; 500e ld hl, $c2e3 call Function1aae ret ; 5015 Function5015: ; 5015 ld hl, $001b add hl, bc ld e, [hl] inc [hl] ld d, 0 ld hl, $c2e2 ld a, [hli] ld h, [hl] ld l, a add hl, de ld a, [hl] ret ; 5026 Function5026: ; 5026 ld hl, $001b add hl, bc ld e, [hl] inc [hl] ld d, 0 ld hl, $c2e6 ld a, [hli] ld h, [hl] ld l, a add hl, de ld a, [hl] ret ; 5037 Function5037: ; 5037 ld hl, Function503d jp Function5041 ; 503d Function503d: ; 503d ld a, [$c2e2] ret ; 5041 Function5041: ; 5041 call Function5055 .asm_5044 xor a ld [$c2ea], a call Function505e call Function506b ld a, [$c2ea] and a jr nz, .asm_5044 ret ; 5055 Function5055: ; 5055 ld a, l ld [$c2eb], a ld a, h ld [$c2ec], a ret ; 505e Function505e: ; 505e ld hl, $c2eb ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 5065 Function5065: ; 5065 ld a, $1 ld [$c2ea], a ret ; 506b Function506b: ; 506b push af call Function54b8 pop af ld hl, MovementPointers rst JumpTable ret ; 5075 ; 5075 INCLUDE "engine/movement.asm" ; 54b8 Function54b8: ; 54b8 ld e, a ld a, [$d4ce] cp $ff ret z ld a, [$d4cd] ld d, a ld a, [hConnectionStripLength] cp d ret nz ld a, e cp $3e ret z cp $47 ret z cp $4b ret z cp $50 ret z cp $8 ret c push af ld hl, $d4d0 inc [hl] ld e, [hl] ld d, 0 ld hl, $d4d1 add hl, de pop af ld [hl], a ret ; 54e6 Function54e6: ; 54e6 ld hl, $d4d0 ld a, [hl] and a jr z, .asm_5503 cp $ff jr z, .asm_5503 dec [hl] ld e, a ld d, 0 ld hl, $d4d1 add hl, de inc e ld a, $ff .asm_54fc ld d, [hl] ld [hld], a ld a, d dec e jr nz, .asm_54fc ret .asm_5503 call Function550a ret c ld a, $3e ret ; 550a Function550a: ; 550a ld a, [$d4cd] cp $ff jr z, .asm_5520 push bc call Function1ae5 ld hl, $0000 add hl, bc ld a, [hl] pop bc and a jr z, .asm_5520 and a ret .asm_5520 ld a, $ff ld [$d4ce], a ld a, $47 scf ret ; 5529 Function5529: ; 5529 push bc ld de, .data_5535 call Function55b9 call Function55ac pop bc ret .data_5535 db $00, $05, $1b ; 5538 Function5538: ; 5538 push bc ld de, .data_5544 call Function55b9 call Function55ac pop bc ret .data_5544 db $00, $05, $22 ; 5547 Function5547: ; 5547 push bc ld de, .data_5553 call Function55b9 call Function55ac pop bc ret .data_5553 db $00, $05, $1c ; 5556 Function5556: ; 5556 push bc ld de, .data_5562 call Function55b9 call Function55ac pop bc ret .data_5562 db $00, $06, $23 ; 5565 Function5565: ; 5565 push bc push af ld de, .data_5576 call Function55b9 pop af ld [$c2f5], a call Function55ac pop bc ret .data_5576 db $00, $05, $1d ; 5579 Function5579: ; 5579 push bc ld a, [hConnectionStripLength] ld c, a call Function5582 pop bc ret ; 5582 Function5582: ; 5582 ld de, $d4d6 ld a, $d .asm_5587 push af ld hl, $0004 add hl, de bit 7, [hl] jr z, .asm_55a1 ld hl, $0000 add hl, de ld a, [hl] and a jr z, .asm_55a1 push bc xor a ld bc, $0028 call ByteFill pop bc .asm_55a1 ld hl, $0028 add hl, de ld d, h ld e, l pop af dec a jr nz, .asm_5587 ret ; 55ac Function55ac: ; 55ac call Function1a13 ret nc ld d, h ld e, l callba Function8286 ret ; 55b9 Function55b9: ; 55b9 ld hl, $c2f0 ld [hl], $ff inc hl ld [hl], $ff inc hl ld a, [de] inc de ld [hli], a ld a, [de] inc de ld [hli], a ld a, [de] ld [hli], a ld a, [hConnectionStripLength] ld [hli], a push hl ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] pop hl ld [hl], d inc hl ld [hl], e inc hl ld [hl], $ff ret ; 55e0 Function55e0: ; 55e0 ld a, [VramState] bit 0, a ret z ld bc, $d4d6 xor a .asm_55ea ld [hConnectionStripLength], a call Function1af1 jr z, .asm_55f4 call Function565c .asm_55f4 ld hl, $0028 add hl, bc ld b, h ld c, l ld a, [hConnectionStripLength] inc a cp $d jr nz, .asm_55ea ret ; 5602 Function5602: ; 5602 call Function5645 ld a, $0 call Function5629 ld a, [$d459] bit 7, a jr z, .asm_5619 ld a, [$ffe0] and a jr z, .asm_5619 call Function5629 .asm_5619 call Function5920 ret ; 561d Function561d: ; 561d call Function5645 ld a, $0 call Function5629 call Function5920 ret ; 5629 Function5629: ; 5629 cp $10 ret nc call GetMapObject ld hl, $0000 add hl, bc ld a, [hl] cp $ff ret z cp $d ret nc call Function1ae5 call Function1af1 ret z call Function5673 ret ; 5645 Function5645: ; 5645 xor a ld bc, $d4d6 .asm_5649 ld [hConnectionStripLength], a call Function5680 ld hl, $0028 add hl, bc ld b, h ld c, l ld a, [hConnectionStripLength] inc a cp $d jr nz, .asm_5649 ret ; 565c Function565c: ; 565c push bc call Function56cd pop bc jr c, Function5680 call Function56a3 jr c, Function5680 call Function5688 callba Function4440 xor a ret ; 5673 Function5673: ; 5673 call Function56a3 jr c, Function5680 callba Function4440 xor a ret ; 5680 Function5680: ; 5680 ld hl, OBJECT_FACING add hl, bc ld [hl], $ff scf ret ; 5688 Function5688: ; 5688 push bc ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] call Function2a3c pop bc ld hl, $000e add hl, bc ld [hl], a callba Function463f ret ; 56a3 Function56a3: ; 56a3 ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] inc d inc e ld a, [XCoord] cp d jr z, .asm_56bc jr nc, .asm_56cb add $b cp d jr c, .asm_56cb .asm_56bc ld a, [YCoord] cp e jr z, .asm_56c9 jr nc, .asm_56cb add $a cp e jr c, .asm_56cb .asm_56c9 xor a ret .asm_56cb scf ret ; 56cd Function56cd: ; 56cd ld a, [$d14c] ld d, a ld hl, OBJECT_SPRITE_X_OFFSET add hl, bc ld a, [hl] ld hl, OBJECT_SPRITE_X add hl, bc add [hl] add d cp $f0 jr nc, .asm_56e5 cp $a0 jp nc, .asm_5768 .asm_56e5 and $7 ld d, $2 cp $4 jr c, .asm_56ef ld d, $3 .asm_56ef ld a, [hl] srl a srl a srl a cp $14 jr c, .asm_56fc sub $20 .asm_56fc ld [$ffbd], a ld a, [$d14d] ld e, a ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc ld a, [hl] ld hl, OBJECT_SPRITE_Y add hl, bc add [hl] add e cp $f0 jr nc, .asm_5715 cp $90 jr nc, .asm_5768 .asm_5715 and $7 ld e, $2 cp $4 jr c, .asm_571f ld e, $3 .asm_571f ld a, [hl] srl a srl a srl a cp $12 jr c, .asm_572c sub $20 .asm_572c ld [$ffbe], a ld hl, $0006 add hl, bc bit 7, [hl] jr z, .asm_573e ld a, d add $2 ld d, a ld a, e add $2 ld e, a .asm_573e ld a, d ld [$ffbf], a .asm_5741 ld a, [$ffbf] ld d, a ld a, [$ffbe] add e dec a cp $12 jr nc, .asm_5763 ld b, a .asm_574d ld a, [$ffbd] add d dec a cp $14 jr nc, .asm_5760 ld c, a push bc call GetTileCoord pop bc ld a, [hl] cp $60 jr nc, .asm_5768 .asm_5760 dec d jr nz, .asm_574d .asm_5763 dec e jr nz, .asm_5741 and a ret .asm_5768 scf ret ; 576a Function576a: ; 576a call Function5771 call Function5781 ret ; 5771 Function5771: ; 5771 xor a ld [$d14e], a ld [$d14f], a ld [$d150], a ld a, $ff ld [$d151], a ret ; 5781 Function5781: ; 5781 ld bc, $d4d6 xor a .asm_5785 ld [hConnectionStripLength], a call Function1af1 jr z, .asm_578f call Function437b .asm_578f ld hl, $0028 add hl, bc ld b, h ld c, l ld a, [hConnectionStripLength] inc a cp $d jr nz, .asm_5785 ret ; 579d Function579d: ; 579d ld a, $3e ld [$c2de], a ld [$c2df], a xor a ld [$d04e], a ld [$d4e2], a call Function57bc callba Function149c6 call c, Function57d9 call Function57ca ret ; 57bc Function57bc: ; 57bc ld hl, $d45b bit 7, [hl] jr nz, .asm_57c4 ret .asm_57c4 ld a, $0 ld [PlayerAction], a ret ; 57ca Function57ca: ; 57ca ld hl, $d45b bit 5, [hl] ret z ld a, [$d45b] and $3 add a add a jr Function57db ; 57d9 Function57d9: ; 57d9 ld a, $0 ; fallthrough ; 57db Function57db: ; 57db ld bc, $d4d6 call Function1af8 ret ; 57e2 Function57e2: ; 57e2 ld a, d and $80 ret z ld bc, $0000 ld hl, $0008 add hl, bc ld a, [hl] or d ld [hl], a ld a, d swap a and $7 ld d, a ld bc, $d4d6 ld hl, $0006 add hl, bc ld a, [hl] and $f8 or d ld [hl], a ret ; 5803 Function5803: ; 5803 push bc ld a, b call Function5815 pop bc ret c ld a, c call Function582c callba Function848a ret ; 5815 Function5815: ; 5815 call Function18de ret c ld a, [hConnectedMapWidth] ld [$d4cd], a ret ; 581f Function581f: ; 581f call Function5826 call Function5847 ret ; 5826 Function5826: ; 5826 ld a, $ff ld [$d4cd], a ret ; 582c Function582c: ; 582c push af call Function5847 pop af call Function18de ret c ld hl, $0003 add hl, bc ld [hl], $13 ld hl, $0009 add hl, bc ld [hl], $0 ld a, [hConnectedMapWidth] ld [$d4ce], a ret ; 5847 Function5847: ; 5847 ld a, [$d4ce] cp $ff ret z call Function1ae5 callba Function58e3 ld a, $ff ld [$d4ce], a ret ; 585c Function585c: ; 585c ld a, c call Function18de ret c push bc call Function587a pop bc ld hl, $0005 add hl, bc res 5, [hl] xor a ret ; 586e Function586e: ; 586e call Function18de ret c ld hl, $0005 add hl, bc set 5, [hl] xor a ret ; 587a Function587a: ; 587a ld bc, $d4d6 xor a .asm_587e push af call Function1af1 jr z, .asm_588a ld hl, $0005 add hl, bc set 5, [hl] .asm_588a ld hl, $0028 add hl, bc ld b, h ld c, l pop af inc a cp $d jr nz, .asm_587e ret ; 5897 Function5897: ; 5897 ld a, [$d4cd] cp $ff ret z push bc call Function1ae5 ld hl, $0001 add hl, bc ld a, [hl] pop bc cp c ret nz ld a, [$d4ce] cp $ff ret z call Function1ae5 ld hl, $0005 add hl, bc res 5, [hl] ret ; 58b9 Function58b9: ; 58b9 push bc ld bc, $d4d6 xor a .asm_58be push af call Function1af1 jr z, .asm_58ca ld hl, $0005 add hl, bc res 5, [hl] .asm_58ca ld hl, $0028 add hl, bc ld b, h ld c, l pop af inc a cp $d jr nz, .asm_58be pop bc ret ; 58d8 Function58d8: ; 58d8 call Function18de ret c ld hl, $0005 add hl, bc res 5, [hl] ret ; 58e3 Function58e3: ; 58e3 ld hl, $0001 add hl, bc ld a, [hl] cp $ff jp z, Function5903 push bc call GetMapObject ld hl, $0004 add hl, bc ld a, [hl] pop bc ld hl, $0003 add hl, bc ld [hl], a ld hl, $0009 add hl, bc ld [hl], $0 ret ; 5903 Function5903: ; 5903 call GetSpriteDirection rrca rrca ld e, a ld d, 0 ld hl, .data_591c add hl, de ld a, [hl] ld hl, $0003 add hl, bc ld [hl], a ld hl, $0009 add hl, bc ld [hl], $0 ret .data_591c db 6, 7, 8, 9 ; 5920 Function5920: ; 5920 ld a, [VramState] bit 0, a ret z xor a ld [$ffbd], a ld a, [hOAMUpdate] push af ld a, $1 ld [hOAMUpdate], a call Function5991 call Function593a pop af ld [hOAMUpdate], a ret ; 593a Function593a: ; 593a ld a, [VramState] bit 1, a ld b, $a0 jr z, .asm_5945 ld b, $70 .asm_5945 ld a, [$ffbd] cp b ret nc ld l, a ld h, $c4 ld de, $0004 ld a, b ld c, $a0 .asm_5952 ld [hl], c add hl, de cp l jr nz, .asm_5952 ret ; 5958 Function5958: ; 5958 push hl push de push bc ld a, [$d14c] ld d, a ld a, [$d14d] ld e, a ld bc, $d4d6 ld a, $d .asm_5968 push af call Function1af1 jr z, .asm_597c ld hl, OBJECT_SPRITE_X add hl, bc ld a, [hl] add d ld [hl], a ld hl, OBJECT_SPRITE_Y add hl, bc ld a, [hl] add e ld [hl], a .asm_597c ld hl, $0028 add hl, bc ld b, h ld c, l pop af dec a jr nz, .asm_5968 xor a ld [$d14c], a ld [$d14d], a pop bc pop de pop hl ret ; 5991 Function5991: ; 5991 call Function59a4 ld c, $30 call Function59f3 ld c, $20 call Function59f3 ld c, $10 call Function59f3 ret ; 59a4 Function59a4: ; 59a4 xor a ld hl, $c2eb ld bc, 13 call ByteFill ld d, 0 ld bc, ObjectStructs ld hl, $c2eb .loop push hl call Function1af1 jr z, .skip ld hl, OBJECT_FACING add hl, bc ld a, [hl] cp -1 jr z, .skip ; Define the sprite priority. ld e, $10 ld hl, OBJECT_FLAGS add hl, bc bit 0, [hl] jr nz, .add ld e, $20 bit 1, [hl] jr z, .add ld e, $30 jr .add .skip ld hl, ObjectStruct2 - ObjectStruct1 add hl, bc ld b, h ld c, l pop hl jr .next .add ld hl, ObjectStruct2 - ObjectStruct1 add hl, bc ld b, h ld c, l pop hl ld a, d or e ld [hli], a .next inc d ld a, d cp $d jr nz, .loop ret ; 59f3 Function59f3: ; 59f3 ld hl, $c2eb .next ld a, [hli] ld d, a and $f0 ret z cp c jr nz, .next push bc push hl ld a, d and $f call Function5ac2 call Function5a0d pop hl pop bc jr .next ; 5a0d Function5a0d: ; 5a0d ld hl, OBJECT_SPRITE add hl, bc ld a, [hl] and $7f ld [$ffc1], a xor a bit 7, [hl] jr nz, .asm_5a1d or 8 .asm_5a1d ld hl, OBJECT_FLAGS add hl, bc ld e, [hl] bit 7, e jr z, .asm_5a28 or $80 .asm_5a28 bit 4, e jr z, .asm_5a2e or $10 .asm_5a2e ld hl, OBJECT_PALETTE add hl, bc ld d, a ld a, [hl] and 7 or d ld d, a xor a bit 3, e jr z, .asm_5a3f or $80 .asm_5a3f ld [$ffc2], a ld hl, OBJECT_SPRITE_X add hl, bc ld a, [hl] ld hl, OBJECT_SPRITE_X_OFFSET add hl, bc add [hl] add 8 ld e, a ld a, [$d14c] add e ld [$ffbf], a ld hl, OBJECT_SPRITE_Y add hl, bc ld a, [hl] ld hl, OBJECT_SPRITE_Y_OFFSET add hl, bc add [hl] add 12 ld e, a ld a, [$d14d] add e ld [$ffc0], a ld hl, OBJECT_FACING add hl, bc ld a, [hl] cp -1 jp z, .done cp NUM_FACINGS jp nc, .done ld l, a ld h, 0 add hl, hl ld bc, Facings add hl, bc ld a, [hli] ld h, [hl] ld l, a ld a, [$ffbd] ld c, a ld b, Sprites / $100 ld a, [hli] ld [$ffbe], a add c cp SpritesEnd % $100 jr nc, .full .addsprite ld a, [$ffc0] add [hl] inc hl ld [bc], a inc c ld a, [$ffbf] add [hl] inc hl ld [bc], a inc c ld e, [hl] inc hl ld a, [$ffc1] bit 2, e jr z, .asm_5aa3 xor a .asm_5aa3 add [hl] inc hl ld [bc], a inc c ld a, e bit 1, a jr z, .asm_5aaf ld a, [$ffc2] or e .asm_5aaf and $f0 or d ld [bc], a inc c ld a, [$ffbe] dec a ld [$ffbe], a jr nz, .addsprite ld a, c ld [$ffbd], a .done xor a ret .full scf ret ; 5ac2 Function5ac2: ; 5ac2 ld c, a ld b, 0 ld hl, .Addresses add hl, bc add hl, bc ld c, [hl] inc hl ld b, [hl] ret ; 5ace .Addresses ; 5ace dw PlayerStruct dw ObjectStruct1 dw ObjectStruct2 dw ObjectStruct3 dw ObjectStruct4 dw ObjectStruct5 dw ObjectStruct6 dw ObjectStruct7 dw ObjectStruct8 dw ObjectStruct9 dw ObjectStruct10 dw ObjectStruct11 dw ObjectStruct12 ; 5ae8 Function5ae8: ; 5ae8 ld de, MUSIC_NONE call PlayMusic call DelayFrame ld de, MUSIC_MAIN_MENU ld a, e ld [CurMusic], a call PlayMusic callba MainMenu jp Function6219 ; 5b04 Function5b04: ; 5b04 ret ; 5b05 Function5b05: ; 5b05 push de ld hl, .Days ld a, b call GetNthString ld d, h ld e, l pop hl call PlaceString ld h, b ld l, c ld de, .Day call PlaceString ret ; 5b1c .Days ; 5b1c db "SUN@" db "MON@" db "TUES@" db "WEDNES@" db "THURS@" db "FRI@" db "SATUR@" ; 5b40 .Day ; 5b40 db "DAY@" ; 5b44 Function5b44: ; 5b44 xor a ld [$ffde], a call ClearTileMap call Functione5f call Functione51 call Function1fbf ret ; 5b54 MysteryGift: ; 5b54 call UpdateTime callba Function11548 callba Function1048ba ret ; 5b64 OptionsMenu: ; 5b64 callba _OptionsMenu ret ; 5b6b NewGame: ; 5b6b xor a ld [$c2cc], a call Function5ba7 call Function5b44 call Function5b8f call OakSpeech call Function5d23 ld a, $1 ld [$c2d8], a ld a, $0 ld [$d001], a ld a, $f1 ld [$ff9f], a jp Function5e5d ; 5b8f Function5b8f: ; 5b8f callba Function10632f jr c, .asm_5b9e callba Function48dcb ret .asm_5b9e ld c, $0 callba Function4802f ret ; 5ba7 Function5ba7: ; 5ba7 xor a ld [hBGMapMode], a call Function5bae ret ; 5bae Function5bae: ; 5bae ld hl, Sprites ld bc, Options - Sprites xor a call ByteFill ld hl, $d000 ld bc, PlayerID - $d000 xor a call ByteFill ld hl, PlayerID ld bc, $dff5 - PlayerID xor a call ByteFill ld a, [rLY] ld [$ffe3], a call DelayFrame ld a, [hRandomSub] ld [PlayerID], a ld a, [rLY] ld [$ffe3], a call DelayFrame ld a, [hRandomAdd] ld [PlayerID + 1], a call Random ld [$d84a], a call DelayFrame call Random ld [$d84b], a ld hl, PartyCount call Function5ca1 xor a ld [$db72], a ld [$d4b4], a call Function5ca6 ld a, 1 call GetSRAMBank ld hl, BoxCount call Function5ca1 call CloseSRAM ld hl, NumItems call Function5ca1 ld hl, NumKeyItems call Function5ca1 ld hl, NumBalls call Function5ca1 ld hl, PCItems call Function5ca1 xor a ld [RoamMon1Species], a ld [RoamMon2Species], a ld [RoamMon3Species], a ld a, -1 ld [RoamMon1MapGroup], a ld [RoamMon2MapGroup], a ld [RoamMon3MapGroup], a ld [RoamMon1MapNumber], a ld [RoamMon2MapNumber], a ld [RoamMon3MapNumber], a ld a, 0 call GetSRAMBank ld hl, $abe2 xor a ld [hli], a dec a ld [hl], a call CloseSRAM call Function5d33 call Function5cd3 xor a ld [MonType], a ld [JohtoBadges], a ld [KantoBadges], a ld [Coins], a ld [Coins + 1], a ld [Money], a ld a, 3000 >> 8 ld [Money + 1], a ld a, 3000 & $ff ld [Money + 2], a xor a ld [$dc17], a ld hl, $dc19 ld [hl], $0 inc hl ld [hl], $8 inc hl ld [hl], $fc call Function5ce9 callba Function26751 callba Function44765 callba Function1061c0 call ResetGameTime ret ; 5ca1 Function5ca1: ; 5ca1 xor a ld [hli], a dec a ld [hl], a ret ; 5ca6 Function5ca6: ; 5ca6 ld hl, Box1Name ld c, $0 .asm_5cab push hl ld de, .Box call CopyName2 dec hl ld a, c inc a cp $a jr c, .asm_5cbe sub $a ld [hl], $f7 inc hl .asm_5cbe add $f6 ld [hli], a ld [hl], $50 pop hl ld de, $0009 add hl, de inc c ld a, c cp $e jr c, .asm_5cab ret .Box db "BOX@" ; 5cd3 Function5cd3: ; 5cd3 ld hl, $dfe8 ld a, $3 ld [hli], a ld a, $6 ld [hli], a ld de, .Ralph call CopyName2 ret ; 5ce3 .Ralph ; 5ce3 db "RALPH@" ; 5ce9 Function5ce9: ; 5ce9 ld hl, .Rival ld de, RivalName call .Copy ld hl, .Mom ld de, MomsName call .Copy ld hl, .Red ld de, RedsName call .Copy ld hl, .Green ld de, GreensName .Copy ld bc, $000b call CopyBytes ret .Rival db "???@" .Red db "RED@" .Green db "GREEN@" .Mom db "MOM@" ; 5d23 Function5d23: ; 5d23 call Function610f callba Function8029 callba Function113d6 ret ; 5d33 Function5d33: ; 5d33 ld a, $0 call GetSRAMBank ld a, [CurDay] inc a ld b, a ld a, [$ac68] cp b ld a, [$ac6a] ld c, a ld a, [$ac69] jr z, .asm_5d55 ld a, b ld [$ac68], a call Random ld c, a call Random .asm_5d55 ld [$dc9f], a ld [$ac69], a ld a, c ld [$dca0], a ld [$ac6a], a jp CloseSRAM ; 5d65 Continue: ; 5d65 callba Function14ea5 jr c, .asm_5dd6 callba Function150b9 call Function1d6e call Function5e85 ld a, $1 ld [hBGMapMode], a ld c, $14 call DelayFrames call Function5e34 jr nc, .asm_5d8c call Function1c17 jr .asm_5dd6 .asm_5d8c call Function5e48 jr nc, .asm_5d96 call Function1c17 jr .asm_5dd6 .asm_5d96 ld a, $8 ld [MusicFade], a ld a, MUSIC_NONE % $100 ld [MusicFadeIDLo], a ld a, MUSIC_NONE / $100 ld [MusicFadeIDHi], a call WhiteBGMap call Function5df0 call Function1c17 call ClearTileMap ld c, $14 call DelayFrames callba Function2a394 callba Function105091 callba Function140ae ld a, [$d4b5] cp $1 jr z, .asm_5dd7 ld a, $f2 ld [$ff9f], a jp Function5e5d .asm_5dd6 ret .asm_5dd7 ld a, $e ld [$d001], a call Function5de7 jp Function5e5d ; 5de2 Function5de2: ; 5de2 ld a, $1a ld [$d001], a ; 5de7 Function5de7: ; 5de7 xor a ld [$d4b5], a ld a, $f1 ld [$ff9f], a ret ; 5df0 Function5df0: ; 5df0 callba Function10632f ret nc ld hl, $d479 bit 1, [hl] ret nz ld a, $5 ld [MusicFade], a ld a, MUSIC_MOBILE_ADAPTER_MENU % $100 ld [MusicFadeIDLo], a ld a, MUSIC_MOBILE_ADAPTER_MENU / $100 ld [MusicFadeIDHi], a ld c, 20 call DelayFrames ld c, $1 callba Function4802f callba Function1509a ld a, $8 ld [MusicFade], a ld a, MUSIC_NONE % $100 ld [MusicFadeIDLo], a ld a, MUSIC_NONE / $100 ld [MusicFadeIDHi], a ld c, 35 call DelayFrames ret ; 5e34 Function5e34: ; 5e34 .asm_5e34 call DelayFrame call GetJoypad ld hl, hJoyPressed bit 0, [hl] jr nz, .asm_5e47 bit 1, [hl] jr z, .asm_5e34 scf ret .asm_5e47 ret ; 5e48 Function5e48: ; 5e48 call Function6e3 and $80 jr z, .asm_5e5b callba Function20021 ld a, c and a jr z, .asm_5e5b scf ret .asm_5e5b xor a ret ; 5e5d Function5e5d: ; 5e5d .asm_5e5d xor a ld [$c2c1], a ld [InLinkBattle], a ld hl, GameTimerPause set 0, [hl] res 7, [hl] ld hl, $d83e set 1, [hl] callba Function966b0 ld a, [$d4b5] cp $2 jr z, .asm_5e80 jp Reset .asm_5e80 call Function5de2 jr .asm_5e5d ; 5e85 Function5e85: ; 5e85 call Function6e3 and $80 jr z, .asm_5e93 ld de, $0408 call Function5eaf ret .asm_5e93 ld de, $0408 call Function5e9f ret ; 5e9a Function5e9a: ; 5e9a ld de, $0400 jr Function5e9f ; 5e9f Function5e9f: ; 5e9f call Function5ebf call Function5f1c call Function5f40 call Functione5f call Function1ad2 ret ; 5eaf Function5eaf: ; 5eaf call Function5ebf call Function5f1c call Function5f48 call Functione5f call Function1ad2 ret ; 5ebf Function5ebf: ; 5ebf xor a ld [hBGMapMode], a ld hl, MenuDataHeader_0x5ed9 ld a, [StatusFlags] bit 0, a ; pokedex jr nz, .asm_5ecf ld hl, MenuDataHeader_0x5efb .asm_5ecf call Function1e35 call Function1cbb call Function1c89 ret ; 5ed9 MenuDataHeader_0x5ed9: ; 5ed9 db $40 ; flags db 00, 00 ; start coords db 09, 15 ; end coords dw MenuData2_0x5ee1 db 1 ; default option ; 5ee1 MenuData2_0x5ee1: ; 5ee1 db $00 ; flags db 4 ; items db "PLAYER@" db "BADGES@" db "#DEX@" db "TIME@" ; 5efb MenuDataHeader_0x5efb: ; 5efb db $40 ; flags db 00, 00 ; start coords db 09, 15 ; end coords dw MenuData2_0x5f03 db 1 ; default option ; 5f03 MenuData2_0x5f03: ; 5f03 db $00 ; flags db 4 ; items db "PLAYER ", $52, "@" db "BADGES@" db " @" db "TIME@" ; 5f1c Function5f1c: ; 5f1c call Function1cfd push hl ld de, $005d add hl, de call Function5f58 pop hl push hl ld de, $0084 add hl, de call Function5f6b pop hl push hl ld de, $0030 add hl, de ld de, .Player call PlaceString pop hl ret .Player db $52, "@" ; 5f40 Function5f40: ; 5f40 ld de, $00a9 add hl, de call Function5f84 ret ; 5f48 Function5f48: ; 5f48 ld de, $00a9 add hl, de ld de, .text_5f53 call PlaceString ret .text_5f53 db " ???@" ; 5f58 Function5f58: ; 5f58 push hl ld hl, JohtoBadges ld b, $2 call CountSetBits pop hl ld de, $d265 ld bc, $0102 jp PrintNum ; 5f6b Function5f6b: ; 5f6b ld a, [StatusFlags] bit 0, a ret z push hl ld hl, PokedexCaught ld b, $20 call CountSetBits pop hl ld de, $d265 ld bc, $0103 jp PrintNum ; 5f84 Function5f84: ; 5f84 ld de, GameTimeHours ld bc, $0203 call PrintNum ld [hl], $6d inc hl ld de, GameTimeMinutes ld bc, $8102 jp PrintNum ; 5f99 OakSpeech: ; 0x5f99 callba Function90672 call Function4dd call ClearTileMap ld de, MUSIC_ROUTE_30 call PlayMusic call Function4a3 call Function4b6 xor a ld [CurPartySpecies], a ld a, POKEMON_PROF ld [TrainerClass], a call Function619c ld b, $1c call GetSGBLayout call Function616a ld hl, OakText1 call PrintText call Function4b6 call ClearTileMap ld a, $c2 ld [CurSpecies], a ld [CurPartySpecies], a call GetBaseData hlcoord 6, 4 call Function3786 xor a ld [TempMonDVs], a ld [$d124], a ld b, $1c call GetSGBLayout call Function6182 ld hl, OakText2 call PrintText ld hl, OakText4 call PrintText call Function4b6 call ClearTileMap xor a ld [CurPartySpecies], a ld a, POKEMON_PROF ld [TrainerClass], a call Function619c ld b, $1c call GetSGBLayout call Function616a ld hl, OakText5 call PrintText call Function4b6 call ClearTileMap xor a ld [CurPartySpecies], a callba DrawIntroPlayerPic ld b, $1c call GetSGBLayout call Function616a ld hl, OakText6 call PrintText call NamePlayer ld hl, OakText7 call PrintText ret OakText1: ; 0x6045 TX_FAR _OakText1 db "@" OakText2: ; 0x604a TX_FAR _OakText2 start_asm ld a,WOOPER call Function37ce call WaitSFX ld hl,OakText3 ret OakText3: ; 0x605b TX_FAR _OakText3 db "@" OakText4: ; 0x6060 TX_FAR _OakText4 db "@" OakText5: ; 0x6065 TX_FAR _OakText5 db "@" OakText6: ; 0x606a TX_FAR _OakText6 db "@" OakText7: ; 0x606f TX_FAR _OakText7 db "@" NamePlayer: ; 0x6074 callba MovePlayerPicRight callba ShowPlayerNamingChoices ld a, [$cfa9] dec a jr z, .NewName call Function60fa callba Function8c1d callba MovePlayerPicLeft ret .NewName ld b, 1 ld de, PlayerName callba Function116c1 call Function4b6 call ClearTileMap call Functione5f call WaitBGMap xor a ld [CurPartySpecies], a callba DrawIntroPlayerPic ld b, $1c call GetSGBLayout call Function4f0 ld hl, PlayerName ld de, .Chris ld a, [PlayerGender] bit 0, a jr z, .asm_60cf ld de, .Kris .asm_60cf call InitName ret .Chris db "CHRIS@@@@@@" .Kris db "KRIS@@@@@@@" ; 60e9 Function60e9: ; 60e9 call LoadMenuDataHeader call Function1d81 ld a, [$cfa9] dec a call Function1db8 call Function1c17 ret ; 60fa Function60fa: ; 60fa ld a, $50 ld bc, $000b ld hl, PlayerName call ByteFill ld hl, PlayerName ld de, StringBuffer2 call CopyName2 ret ; 610f Function610f: ; 610f ld a, [hROMBank] push af ld a, 0 << 7 | 32 ; fade out ld [MusicFade], a ld de, MUSIC_NONE ld a, e ld [MusicFadeIDLo], a ld a, d ld [MusicFadeIDHi], a ld de, SFX_ESCAPE_ROPE call PlaySFX pop af rst Bankswitch ld c, 8 call DelayFrames ld hl, $5249 ld b, $13 call Function61b4 ld c, 8 call DelayFrames ld hl, $52d9 ld b, $13 call Function61b4 ld c, 8 call DelayFrames ld hl, $c50a ld b, 7 ld c, 7 call ClearBox ld c, 3 call DelayFrames call Function61cd call Functione5f ld c, 50 call DelayFrames call Function4b6 call ClearTileMap ret ; 616a Function616a: ; 616a ld hl, IntroFadePalettes ld b, IntroFadePalettesEnd - IntroFadePalettes .asm_616f ld a, [hli] call DmgToCgbBGPals ld c, 10 call DelayFrames dec b jr nz, .asm_616f ret ; 617c IntroFadePalettes: ; 0x617c db %01010100 db %10101000 db %11111100 db %11111000 db %11110100 db %11100100 IntroFadePalettesEnd ; 6182 Function6182: ; 6182 ld a, $77 ld [hWX], a call DelayFrame ld a, $e4 call DmgToCgbBGPals .asm_618e call DelayFrame ld a, [hWX] sub $8 cp $ff ret z ld [hWX], a jr .asm_618e ; 619c Function619c: ; 619c ld de, VTiles2 callba Function5120d xor a ld [$ffad], a ld hl, $c4f6 ld bc, $0707 ld a, $13 call Predef ret ; 61b4 Function61b4: ; 61b4 ld de, VTiles2 ld c, $31 ld a, $40 call Predef xor a ld [$ffad], a ld hl, $c4f6 ld bc, $0707 ld a, $13 call Predef ret ; 61cd Function61cd: ; 61cd callba GetPlayerIcon ld c, $c ld hl, VTiles0 call Request2bpp ld hl, Sprites ld de, .data_61fe ld a, [de] inc de ld c, a .asm_61e4 ld a, [de] inc de ld [hli], a ld a, [de] inc de ld [hli], a ld a, [de] inc de ld [hli], a ld b, 0 ld a, [PlayerGender] bit 0, a jr z, .asm_61f8 ld b, 1 .asm_61f8 ld a, b ld [hli], a dec c jr nz, .asm_61e4 ret ; 61fe .data_61fe ; 61fe db 4 db $4c, $48, $00 db $4c, $50, $01 db $54, $48, $02 db $54, $50, $03 ; 620b Function620b: ; 620b callab Functione4579 jr c, Function6219 callba Functione48ac Function6219: ; 6219 ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a call TitleScreen call DelayFrame .asm_6226 call Function627b jr nc, .asm_6226 call ClearSprites call WhiteBGMap pop af ld [rSVBK], a ld hl, rLCDC res 2, [hl] call Functionfdb call Function3200 xor a ld [hLCDStatCustom], a ld [hSCX], a ld [hSCY], a ld a, $7 ld [hWX], a ld a, $90 ld [hWY], a ld b, $8 call GetSGBLayout call UpdateTimePals ld a, [$cf64] cp $5 jr c, .asm_625e xor a .asm_625e ld e, a ld d, 0 ld hl, .data_626a add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 626a .data_626a dw Function5ae8 dw Function6389 dw Function620b dw Function620b dw Function6392 ; 6274 TitleScreen: ; 6274 callba _TitleScreen ret ; 627b Function627b: ; 627b ld a, [$cf63] bit 7, a jr nz, .asm_6290 call TitleScreenScene callba Function10eea7 call DelayFrame and a ret .asm_6290 scf ret ; 6292 Function6292: ; 6292 ld a, [$ff9b] and $7 ret nz ld hl, $d15f ld a, [hl] dec a ld bc, $0028 call ByteFill ret ; 62a3 TitleScreenScene: ; 62a3 ld e, a ld d, 0 ld hl, .scenes add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 62af .scenes dw TitleScreenEntrance dw TitleScreenTimer dw TitleScreenMain dw TitleScreenEnd ; 62b7 Function62b7: ; 62b7 ld hl, $cf63 inc [hl] ret ; 62bc TitleScreenEntrance: ; 62bc ; Animate the logo: ; Move each line by 4 pixels until our count hits 0. ld a, [hSCX] and a jr z, .done sub 4 ld [hSCX], a ; Lay out a base (all lines scrolling together). ld e, a ld hl, LYOverrides ld bc, 8 * 10 ; logo height call ByteFill ; Reversed signage for every other line's position. ; This is responsible for the interlaced effect. ld a, e xor $ff inc a ld b, 8 * 10 / 2 ; logo height / 2 ld hl, LYOverrides + 1 .loop ld [hli], a inc hl dec b jr nz, .loop callba AnimateTitleCrystal ret .done ; Next scene ld hl, $cf63 inc [hl] xor a ld [hLCDStatCustom], a ; Play the title screen music. ld de, MUSIC_TITLE call PlayMusic ld a, $88 ld [hWY], a ret ; 62f6 TitleScreenTimer: ; 62f6 ; Next scene ld hl, $cf63 inc [hl] ; Start a timer ld hl, $cf65 ld de, $1140 ; 73.6 seconds ld [hl], e inc hl ld [hl], d ret ; 6304 TitleScreenMain: ; 6304 ; Run the timer down. ld hl, $cf65 ld e, [hl] inc hl ld d, [hl] ld a, e or d jr z, .end dec de ld [hl], d dec hl ld [hl], e ; Save data can be deleted by pressing Up + B + Select. call GetJoypad ld hl, hJoyDown ld a, [hl] and D_UP + B_BUTTON + SELECT cp D_UP + B_BUTTON + SELECT jr z, .delete_save_data ; To bring up the clock reset dialog: ; Hold Down + B + Select to initiate the sequence. ld a, [$ffeb] cp $34 jr z, .check_clock_reset ld a, [hl] and D_DOWN + B_BUTTON + SELECT cp D_DOWN + B_BUTTON + SELECT jr nz, .check_start ld a, $34 ld [$ffeb], a jr .check_start ; Keep Select pressed, and hold Left + Up. ; Then let go of Select. .check_clock_reset bit 2, [hl] ; SELECT jr nz, .check_start xor a ld [$ffeb], a ld a, [hl] and D_LEFT + D_UP cp D_LEFT + D_UP jr z, .clock_reset ; Press Start or A to start the game. .check_start ld a, [hl] and START | A_BUTTON jr nz, .continue ret .continue ld a, 0 jr .done .delete_save_data ld a, 1 .done ld [$cf64], a ; Return to the intro sequence. ld hl, $cf63 set 7, [hl] ret .end ; Next scene ld hl, $cf63 inc [hl] ; Fade out the title screen music xor a ld [MusicFadeIDLo], a ld [MusicFadeIDHi], a ld hl, MusicFade ld [hl], 8 ; 1 second ld hl, $cf65 inc [hl] ret .clock_reset ld a, 4 ld [$cf64], a ; Return to the intro sequence. ld hl, $cf63 set 7, [hl] ret ; 6375 TitleScreenEnd: ; 6375 ; Wait until the music is done fading. ld hl, $cf65 inc [hl] ld a, [MusicFade] and a ret nz ld a, 2 ld [$cf64], a ; Back to the intro. ld hl, $cf63 set 7, [hl] ret ; 6389 Function6389: ; 6389 callba Function4d54c jp Init ; 6392 Function6392: ; 6392 callba Function4d3b1 jp Init ; 639b Function639b: ; 639b ld a, [$cf65] and $3 ret nz ld bc, $c3a4 ld hl, $000a add hl, bc ld l, [hl] ld h, 0 add hl, hl add hl, hl ld de, Data63ca add hl, de ld a, [$cf65] and $4 srl a srl a ld e, a ld d, 0 add hl, de add hl, de ld a, [hli] and a ret z ld e, a ld d, [hl] ld a, $1 call Function3b2a ret ; 63ca Data63ca: ; 63ca INCBIN "baserom.gbc",$63ca,$63e2 - $63ca Copyright: ; 63e2 call ClearTileMap call Functione5f ld de, CopyrightGFX ld hl, VTiles2 + $600 ; tile $60 ld bc, BANK(CopyrightGFX) << 8 + $1d call Request2bpp hlcoord 2, 7 ld de, CopyrightString jp PlaceString ; 63fd CopyrightString: ; 63fd ; ©1995-2001 Nintendo db $60, $61, $62, $63, $64, $65, $66 db $67, $68, $69, $6a, $6b, $6c db $4e ; ©1995-2001 Creatures inc. db $60, $61, $62, $63, $64, $65, $66, $6d db $6e, $6f, $70, $71, $72, $7a, $7b, $7c db $4e ; ©1995-2001 GAME FREAK inc. db $60, $61, $62, $63, $64, $65, $66, $73, $74 db $75, $76, $77, $78, $79, $7a, $7b, $7c db "@" ; 642e GameInit: ; 642e callba Function14f1c call Function1fbf call WhiteBGMap call ClearTileMap ld a, $98 ld [$ffd7], a xor a ld [hBGMapAddress], a ld [hJoyDown], a ld [hSCX], a ld [hSCY], a ld a, $90 ld [hWY], a call WaitBGMap jp Function620b ; 6454 Function6454: ; 6454 call DelayFrame ld a, [hOAMUpdate] push af ld a, $1 ld [hOAMUpdate], a ld a, [hBGMapMode] push af xor a ld [hBGMapMode], a call Function6473 pop af ld [hBGMapMode], a pop af ld [hOAMUpdate], a ld hl, VramState set 6, [hl] ret ; 6473 Function6473: ; 6473 xor a ld [hLCDStatCustom], a ld [hBGMapMode], a ld a, $90 ld [hWY], a call Function2173 ld a, $9c call Function64b9 call Function2e20 callba Function49409 callba Function96a4 ld a, $1 ld [hCGBPalUpdate], a xor a ld [hBGMapMode], a ld [hWY], a callba Function64db ld a, $98 call Function64b9 xor a ld [$d152], a ld a, $98 ld [$d153], a xor a ld [hSCX], a ld [hSCY], a call Function5958 ret ; 64b9 Function64b9: ; 64b9 ld [$ffd7], a xor a ld [hBGMapAddress], a ret ; 64bf Function64bf: ; 64bf ld a, [hOAMUpdate] push af ld a, $1 ld [hOAMUpdate], a call Function64cd pop af ld [hOAMUpdate], a ret ; 64cd Function64cd: ; 64cd call Functione5f ld a, $90 ld [hWY], a call Function2e31 call Functione51 ret ; 64db Function64db: ; 64db ld a, [rSVBK] push af ld a, $6 ld [rSVBK], a ld a, $60 ld hl, $d000 ld bc, VBlank5 call ByteFill ld a, $d0 ld [rHDMA1], a ld a, $0 ld [rHDMA2], a ld a, $18 ld [rHDMA3], a ld a, $0 ld [rHDMA4], a ld a, $3f ld [hDMATransfer], a call DelayFrame pop af ld [rSVBK], a ret ; 6508 Function6508: ; 6508 call Function309d ld a, [CurPartyMon] ld hl, PartyMon1Nickname call GetNick ld hl, StringBuffer1 ld de, $d050 ld bc, $000b call CopyBytes Function6520: ; 6520 ld hl, PartyMon1Move1 ld bc, $0030 ld a, [CurPartyMon] call AddNTimes ld d, h ld e, l ld b, $4 .asm_6530 ld a, [hl] and a jr z, .asm_6564 inc hl dec b jr nz, .asm_6530 push de call Function65d3 pop de jp c, Function65b5 push hl push de ld [$d265], a ld b, a ld a, [IsInBattle] and a jr z, .asm_6559 ld a, [DisabledMove] cp b jr nz, .asm_6559 xor a ld [DisabledMove], a ld [PlayerDisableCount], a .asm_6559 call GetMoveName ld hl, UnknownText_0x6684 call PrintText pop de pop hl .asm_6564 ld a, [$d262] ld [hl], a ld bc, $0015 add hl, bc push hl push de dec a ld hl, $5b00 ld bc, $0007 call AddNTimes ld a, $10 call GetFarByte pop de pop hl ld [hl], a ld a, [IsInBattle] and a jp z, Function65ca ld a, [CurPartyMon] ld b, a ld a, [CurBattleMon] cp b jp nz, Function65ca ld a, [PlayerSubStatus5] bit 3, a jp nz, Function65ca ld h, d ld l, e ld de, BattleMonMove1 ld bc, $0004 call CopyBytes ld bc, $0011 add hl, bc ld de, BattleMonPPMove1 ld bc, $0004 call CopyBytes jp Function65ca ; 65b5 Function65b5: ; 65b5 ld hl, UnknownText_0x6675 call PrintText call YesNoBox jp c, Function6520 ld hl, UnknownText_0x667a call PrintText ld b, $0 ret ; 65ca Function65ca: ; 65ca ld hl, UnknownText_0x666b call PrintText ld b, $1 ret ; 65d3 Function65d3: ; 65d3 push hl ld hl, UnknownText_0x667f call PrintText call YesNoBox pop hl ret c ld bc, $fffc add hl, bc push hl ld de, $d25e ld bc, $0004 call CopyBytes pop hl .asm_65ee push hl ld hl, UnknownText_0x6670 call PrintText ld hl, $c4cd ld b, $8 ld c, $d call TextBox ld hl, $c4f7 ld a, $28 ld [Buffer1], a ld a, $20 call Predef ld a, $4 ld [$cfa1], a ld a, $6 ld [$cfa2], a ld a, [$d0eb] inc a ld [$cfa3], a ld a, $1 ld [$cfa4], a ld [$cfa9], a ld [$cfaa], a ld a, $3 ld [$cfa8], a ld a, $20 ld [$cfa5], a xor a ld [$cfa6], a ld a, $20 ld [$cfa7], a call Function1bc9 push af call Function30b4 pop af pop hl bit 1, a jr nz, .asm_6669 push hl ld a, [$cfa9] dec a ld c, a ld b, $0 add hl, bc ld a, [hl] push af push bc call IsHMMove pop bc pop de ld a, d jr c, .asm_6660 pop hl add hl, bc and a ret .asm_6660 ld hl, UnknownText_0x669a call PrintText pop hl jr .asm_65ee .asm_6669 scf ret ; 666b UnknownText_0x666b: ; 666b text_jump UnknownText_0x1c5660 db "@" ; 6670 UnknownText_0x6670: ; 6670 text_jump UnknownText_0x1c5678 db "@" ; 6675 UnknownText_0x6675: ; 6675 text_jump UnknownText_0x1c5699 db "@" ; 667a UnknownText_0x667a: ; 667a text_jump UnknownText_0x1c56af db "@" ; 667f UnknownText_0x667f: ; 667f text_jump UnknownText_0x1c56c9 db "@" ; 6684 UnknownText_0x6684: ; 6684 text_jump UnknownText_0x1c5740 start_asm ; 6689 ; 6689 push de ld de, SFX_SWITCH_POKEMON call PlaySFX pop de ld hl, UnknownText_0x6695 ret ; 6695 UnknownText_0x6695: ; 6695 text_jump UnknownText_0x1c574e db "@" ; 669a UnknownText_0x669a: ; 669a text_jump UnknownText_0x1c5772 db "@" ; 669f CheckNickErrors: ; 669f ; error-check monster nick before use ; must be a peace offering to gamesharkers ; input: de = nick location push bc push de ld b, PKMN_NAME_LENGTH .checkchar ; end of nick? ld a, [de] cp "@" ; terminator jr z, .end ; check if this char is a text command ld hl, .textcommands dec hl .loop ; next entry inc hl ; reached end of commands table? ld a, [hl] cp a, $ff jr z, .done ; is the current char between this value (inclusive)... ld a, [de] cp [hl] inc hl jr c, .loop ; ...and this one? cp [hl] jr nc, .loop ; replace it with a "?" ld a, "?" ld [de], a jr .loop .done ; next char inc de ; reached end of nick without finding a terminator? dec b jr nz, .checkchar ; change nick to "?@" pop de push de ld a, "?" ld [de], a inc de ld a, "@" ld [de], a .end ; if the nick has any errors at this point it's out of our hands pop de pop bc ret ; 66cf .textcommands ; 66cf ; table definining which characters ; are actually text commands ; format: ; >= < db $00, $05 db $14, $19 db $1d, $26 db $35, $3a db $3f, $40 db $49, $5d db $5e, $7f db $ff ; end ; 66de _Multiply: ; 66de ; hMultiplier is one byte. ld a, 8 ld b, a xor a ld [hMultiplicand - 1], a ld [hMathBuffer + 1], a ld [hMathBuffer + 2], a ld [hMathBuffer + 3], a ld [hMathBuffer + 4], a .loop ld a, [hMultiplier] srl a ld [hMultiplier], a jr nc, .next ld a, [hMathBuffer + 4] ld c, a ld a, [hMultiplicand + 2] add c ld [hMathBuffer + 4], a ld a, [hMathBuffer + 3] ld c, a ld a, [hMultiplicand + 1] adc c ld [hMathBuffer + 3], a ld a, [hMathBuffer + 2] ld c, a ld a, [hMultiplicand + 0] adc c ld [hMathBuffer + 2], a ld a, [hMathBuffer + 1] ld c, a ld a, [hMultiplicand - 1] adc c ld [hMathBuffer + 1], a .next dec b jr z, .done ; hMultiplicand <<= 1 ld a, [hMultiplicand + 2] add a ld [hMultiplicand + 2], a ld a, [hMultiplicand + 1] rla ld [hMultiplicand + 1], a ld a, [hMultiplicand + 0] rla ld [hMultiplicand + 0], a ld a, [hMultiplicand - 1] rla ld [hMultiplicand - 1], a jr .loop .done ld a, [hMathBuffer + 4] ld [hProduct + 3], a ld a, [hMathBuffer + 3] ld [hProduct + 2], a ld a, [hMathBuffer + 2] ld [hProduct + 1], a ld a, [hMathBuffer + 1] ld [hProduct + 0], a ret ; 673e _Divide: ; 673e xor a ld [hMathBuffer + 0], a ld [hMathBuffer + 1], a ld [hMathBuffer + 2], a ld [hMathBuffer + 3], a ld [hMathBuffer + 4], a ld a, 9 ld e, a .loop ld a, [hMathBuffer + 0] ld c, a ld a, [hDividend + 1] sub c ld d, a ld a, [hDivisor] ld c, a ld a, [hDividend + 0] sbc c jr c, .asm_6767 ld [hDividend + 0], a ld a, d ld [hDividend + 1], a ld a, [hMathBuffer + 4] inc a ld [hMathBuffer + 4], a jr .loop .asm_6767 ld a, b cp 1 jr z, .done ld a, [hMathBuffer + 4] add a ld [hMathBuffer + 4], a ld a, [hMathBuffer + 3] rla ld [hMathBuffer + 3], a ld a, [hMathBuffer + 2] rla ld [hMathBuffer + 2], a ld a, [hMathBuffer + 1] rla ld [hMathBuffer + 1], a dec e jr nz, .asm_6798 ld e, 8 ld a, [hMathBuffer + 0] ld [hDivisor], a xor a ld [hMathBuffer + 0], a ld a, [hDividend + 1] ld [hDividend + 0], a ld a, [hDividend + 2] ld [hDividend + 1], a ld a, [hDividend + 3] ld [hDividend + 2], a .asm_6798 ld a, e cp 1 jr nz, .asm_679e dec b .asm_679e ld a, [hDivisor] srl a ld [hDivisor], a ld a, [hMathBuffer + 0] rr a ld [hMathBuffer + 0], a jr .loop .done ld a, [hDividend + 1] ld [hDivisor], a ld a, [hMathBuffer + 4] ld [hDividend + 3], a ld a, [hMathBuffer + 3] ld [hDividend + 2], a ld a, [hMathBuffer + 2] ld [hDividend + 1], a ld a, [hMathBuffer + 1] ld [hDividend + 0], a ret ; 67c1 ItemAttributes: ; 67c1 INCLUDE "items/item_attributes.asm" ; 6ec1 Function6ec1: ; 6ec1 ld hl, $0006 add hl, bc bit 5, [hl] jr z, .asm_6ed9 ld hl, $0004 add hl, bc bit 4, [hl] push hl push bc call Function6f2c pop bc pop hl ret c jr .asm_6ee9 .asm_6ed9 ld hl, $0004 add hl, bc bit 4, [hl] jr nz, .asm_6ee9 push hl push bc call Function6f07 pop bc pop hl ret c .asm_6ee9 bit 6, [hl] jr nz, Function6ef5 push hl push bc ; fallthrough ; 6eef DrawGraphic: ; 6eef ; input: ; hl: draw location ; b: height ; c: width ; d: tile to start drawing from ; e: number of tiles to advance for each row call Function7009 pop bc pop hl ret c ; fallthrough ; 6ef5 Function6ef5: ; 6ef5 bit 5, [hl] jr nz, .asm_6f05 push hl call Function70a4 pop hl ret c push hl call Function70ed pop hl ret c .asm_6f05 and a ret ; 6f07 Function6f07: ; 6f07 call Function6f5f ret c ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] ld hl, $0006 add hl, bc bit 7, [hl] jp nz, Function6fa1 ld hl, $000e add hl, bc ld a, [hl] ld d, a call GetTileCollision and a jr z, Function6f3e scf ret ; 6f2c Function6f2c: ; 6f2c call Function6f5f ret c ld hl, $000e add hl, bc ld a, [hl] call GetTileCollision cp $1 jr z, Function6f3e scf ret ; 6f3e Function6f3e: ; 6f3e ld hl, $000e add hl, bc ld a, [hl] call Function6f7f ret nc push af ld hl, $0007 add hl, bc ld a, [hl] and 3 ld e, a ld d, 0 ld hl, .data_6f5b add hl, de pop af and [hl] ret z scf ret ; 6f5b .data_6f5b db 1, 2, 8, 4 ; 6f5f Function6f5f: ; 6f5f ld hl, $000f add hl, bc ld a, [hl] call Function6f7f ret nc push af ld hl, $0007 add hl, bc and 3 ld e, a ld d, 0 ld hl, .data_6f7b add hl, de pop af and [hl] ret z scf ret ; 6f7b .data_6f7b db 2, 1, 4, 8 ; 6f7f Function6f7f: ; 6f7f ld d, a and $f0 cp $b0 jr z, .asm_6f8c cp $c0 jr z, .asm_6f8c xor a ret .asm_6f8c ld a, d and 7 ld e, a ld d, 0 ld hl, .data_6f99 add hl, de ld a, [hl] scf ret ; 6f99 .data_6f99 db 8, 4, 1, 2 db 10, 6, 9, 5 ; 6fa1 Function6fa1: ; 6fa1 ld hl, $0007 add hl, bc ld a, [hl] and 3 jr z, .asm_6fb2 dec a jr z, .asm_6fb7 dec a jr z, .asm_6fbb jr .asm_6fbf .asm_6fb2 inc e push de inc d jr .asm_6fc2 .asm_6fb7 push de inc d jr .asm_6fc2 .asm_6fbb push de inc e jr .asm_6fc2 .asm_6fbf inc d push de inc e .asm_6fc2 call Function2a3c call GetTileCollision pop de and a jr nz, .asm_6fd7 call Function2a3c call GetTileCollision and a jr nz, .asm_6fd7 xor a ret .asm_6fd7 scf ret ; 6fd9 CheckFacingObject: ; 6fd9 call GetFacingTileCoord ; Double the distance for counter tiles. call CheckCounterTile jr nz, .asm_6ff1 ld a, [MapX] sub d cpl inc a add d ld d, a ld a, [MapY] sub e cpl inc a add e ld e, a .asm_6ff1 ld bc, $d4d6 ld a, 0 ld [hConnectionStripLength], a call Function7041 ret nc ld hl, $0007 add hl, bc ld a, [hl] cp $ff jr z, .asm_7007 xor a ret .asm_7007 scf ret ; 7009 Function7009: ; 7009 ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] jr Function7041 ; 7015 Function7015: ; 7015 ld a, [hConnectionStripLength] call Function1ae5 call Function7021 call Function7041 ret Function7021: ; 7021 ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] call GetSpriteDirection and a jr z, .asm_703b cp $4 jr z, .asm_703d cp $8 jr z, .asm_703f inc d ret .asm_703b inc e ret .asm_703d dec e ret .asm_703f dec d ret ; 7041 Function7041: ; 7041 ld bc, $d4d6 xor a .asm_7045 ld [hConnectedMapWidth], a call Function1af1 jr z, .asm_7093 ld hl, $0004 add hl, bc bit 7, [hl] jr nz, .asm_7093 ld hl, $0006 add hl, bc bit 7, [hl] jr z, .asm_7063 call Function7171 jr nc, .asm_707b jr .asm_7073 .asm_7063 ld hl, $0010 add hl, bc ld a, [hl] cp d jr nz, .asm_707b ld hl, $0011 add hl, bc ld a, [hl] cp e jr nz, .asm_707b .asm_7073 ld a, [hConnectionStripLength] ld l, a ld a, [hConnectedMapWidth] cp l jr nz, .asm_70a2 .asm_707b ld hl, $0012 add hl, bc ld a, [hl] cp d jr nz, .asm_7093 ld hl, $0013 add hl, bc ld a, [hl] cp e jr nz, .asm_7093 ld a, [hConnectionStripLength] ld l, a ld a, [hConnectedMapWidth] cp l jr nz, .asm_70a2 .asm_7093 ld hl, $0028 add hl, bc ld b, h ld c, l ld a, [hConnectedMapWidth] inc a cp $d jr nz, .asm_7045 and a ret .asm_70a2 scf ret ; 70a4 Function70a4: ; 70a4 ld hl, $0016 add hl, bc ld a, [hl] and a jr z, .asm_70e9 and $f jr z, .asm_70c7 ld e, a ld d, a ld hl, $0014 add hl, bc ld a, [hl] sub d ld d, a ld a, [hl] add e ld e, a ld hl, $0010 add hl, bc ld a, [hl] cp d jr z, .asm_70eb cp e jr z, .asm_70eb .asm_70c7 ld hl, $0016 add hl, bc ld a, [hl] swap a and $f jr z, .asm_70e9 ld e, a ld d, a ld hl, $0015 add hl, bc ld a, [hl] sub d ld d, a ld a, [hl] add e ld e, a ld hl, $0011 add hl, bc ld a, [hl] cp d jr z, .asm_70eb cp e jr z, .asm_70eb .asm_70e9 xor a ret .asm_70eb scf ret ; 70ed Function70ed: ; 70ed ld hl, $0010 add hl, bc ld a, [XCoord] cp [hl] jr z, .asm_70fe jr nc, .asm_7111 add $9 cp [hl] jr c, .asm_7111 .asm_70fe ld hl, $0011 add hl, bc ld a, [YCoord] cp [hl] jr z, .asm_710f jr nc, .asm_7111 add $8 cp [hl] jr c, .asm_7111 .asm_710f and a ret .asm_7111 scf ret ; 7113 Function7113: ; 7113 ld a, [MapX] ld d, a ld a, [MapY] ld e, a ld bc, $d4d6 xor a .asm_711f ld [hConnectedMapWidth], a call Function1af1 jr z, .asm_7160 ld hl, $0003 add hl, bc ld a, [hl] cp $15 jr nz, .asm_7136 call Function7171 jr c, .asm_716f jr .asm_7160 .asm_7136 ld hl, $0011 add hl, bc ld a, [hl] cp e jr nz, .asm_714e ld hl, $0010 add hl, bc ld a, [hl] cp d jr nz, .asm_714e ld a, [hConnectedMapWidth] cp $0 jr z, .asm_7160 jr .asm_716f .asm_714e ld hl, $0013 add hl, bc ld a, [hl] cp e jr nz, .asm_7160 ld hl, $0012 add hl, bc ld a, [hl] cp d jr nz, .asm_7160 jr .asm_716f .asm_7160 ld hl, $0028 add hl, bc ld b, h ld c, l ld a, [hConnectedMapWidth] inc a cp $d jr nz, .asm_711f xor a ret .asm_716f scf ret ; 7171 Function7171: ; 7171 ld hl, $0010 add hl, bc ld a, d sub [hl] jr c, .asm_718b cp $2 jr nc, .asm_718b ld hl, $0011 add hl, bc ld a, e sub [hl] jr c, .asm_718b cp $2 jr nc, .asm_718b scf ret .asm_718b and a ret ; 718d Function718d: ; 718d ld hl, PartyMon1Happiness ld bc, PartyMon2 - PartyMon1 ld de, PartySpecies .asm_7196 ld a, [de] cp EGG jr nz, .asm_719f inc de add hl, bc jr .asm_7196 .asm_719f ld [$d265], a ld a, [hl] ld [ScriptVar], a call GetPokemonName jp Function746e ; 71ac Function71ac: ; 71ac ld a, [PartySpecies] ld [$d265], a cp EGG ld a, $1 jr z, .asm_71b9 xor a .asm_71b9 ld [ScriptVar], a call GetPokemonName jp Function746e ; 71c2 ChangeHappiness: ; 71c2 ; Perform happiness action c on CurPartyMon ld a, [CurPartyMon] inc a ld e, a ld d, 0 ld hl, PartySpecies - 1 add hl, de ld a, [hl] cp EGG ret z push bc ld hl, PartyMon1Happiness ld bc, PartyMon2 - PartyMon1 ld a, [CurPartyMon] call AddNTimes pop bc ld d, h ld e, l push de ld a, [de] cp 100 ld e, 0 jr c, .asm_71ef inc e cp 200 jr c, .asm_71ef inc e .asm_71ef dec c ld b, 0 ld hl, .Actions add hl, bc add hl, bc add hl, bc ld d, 0 add hl, de ld a, [hl] cp 100 pop de ld a, [de] jr nc, .negative add [hl] jr nc, .asm_720d ld a, $ff jr .asm_720d .negative add [hl] jr c, .asm_720d xor a .asm_720d ld [de], a ld a, [IsInBattle] and a ret z ld a, [CurPartyMon] ld b, a ld a, [$d0d8] cp b ret nz ld a, [de] ld [BattleMonHappiness], a ret ; 7221 .Actions db +5, +3, +2 db +5, +3, +2 db +1, +1, +0 db +3, +2, +1 db +1, +1, +0 db -1, -1, -1 db -5, -5, -10 db -5, -5, -10 db +1, +1, +1 db +3, +3, +1 db +5, +5, +2 db +1, +1, +1 db +3, +3, +1 db +10, +10, +4 db -5, -5, -10 db -10, -10, -15 db -15, -15, -20 db +3, +3, +1 db +10, +6, +4 ; 725a StepHappiness: ; 725a ; Raise the party's happiness by 1 point every other step cycle. ld hl, $dc77 ld a, [hl] inc a and 1 ld [hl], a ret nz ld de, PartyCount ld a, [de] and a ret z ld c, a ld hl, PartyMon1Happiness .loop inc de ld a, [de] cp EGG jr z, .next inc [hl] jr nz, .next ld [hl], $ff .next push de ld de, PartyMon2 - PartyMon1 add hl, de pop de dec c jr nz, .loop ret ; 7282 DaycareStep: ; 7282 ld a, [DaycareMan] bit 0, a jr z, .asm_72a4 ld a, [$df2b] ; level cp 100 jr nc, .asm_72a4 ld hl, $df16 ; exp inc [hl] jr nz, .asm_72a4 dec hl inc [hl] jr nz, .asm_72a4 dec hl inc [hl] ld a, [hl] cp $50 jr c, .asm_72a4 ld a, $50 ld [hl], a .asm_72a4 ld a, [DaycareLady] bit 0, a jr z, .asm_72c6 ld a, [$df64] ; level cp 100 jr nc, .asm_72c6 ld hl, $df4f ; exp inc [hl] jr nz, .asm_72c6 dec hl inc [hl] jr nz, .asm_72c6 dec hl inc [hl] ld a, [hl] cp $50 jr c, .asm_72c6 ld a, $50 ld [hl], a .asm_72c6 ld hl, DaycareMan bit 5, [hl] ; egg ret z ld hl, StepsToEgg dec [hl] ret nz call Random ld [hl], a callab Function16e1d ld a, [$d265] cp $e6 ld b, $50 jr nc, .asm_72f8 ld a, [$d265] cp $aa ld b, $28 jr nc, .asm_72f8 ld a, [$d265] cp $6e ld b, $1e jr nc, .asm_72f8 ld b, $a .asm_72f8 call Random cp b ret nc ld hl, DaycareMan res 5, [hl] set 6, [hl] ret ; 7305 SpecialGiveShuckle: ; 7305 ; Adding to the party. xor a ld [MonType], a ; Level 15 Shuckle. ld a, SHUCKLE ld [CurPartySpecies], a ld a, 15 ld [CurPartyLevel], a ld a, PREDEF_ADDPARTYMON call Predef jr nc, .NotGiven ; Caught data. ld b, 0 callba Function4dba3 ; Holding a Berry. ld bc, PartyMon2 - PartyMon1 ld a, [PartyCount] dec a push af push bc ld hl, PartyMon1Item call AddNTimes ld [hl], BERRY pop bc pop af ; OT ID. ld hl, PartyMon1ID call AddNTimes ld a, $2 ld [hli], a ld [hl], $6 ; Nickname. ld a, [PartyCount] dec a ld hl, PartyMon1Nickname call SkipNames ld de, SpecialShuckleNick call CopyName2 ; OT. ld a, [PartyCount] dec a ld hl, PartyMon1OT call SkipNames ld de, SpecialShuckleOT call CopyName2 ; Engine flag for this event. ld hl, $dc1e set 5, [hl] ld a, 1 ld [ScriptVar], a ret .NotGiven xor a ld [ScriptVar], a ret SpecialShuckleOT: db "MANIA@" SpecialShuckleNick: db "SHUCKIE@" ; 737e SpecialReturnShuckle: ; 737e callba Function50000 jr c, .asm_73e6 ld a, [CurPartySpecies] cp SHUCKLE jr nz, .DontReturn ld a, [CurPartyMon] ld hl, PartyMon1ID ld bc, PartyMon2 - PartyMon1 call AddNTimes ; OT ID ld a, [hli] cp $2 jr nz, .DontReturn ld a, [hl] cp $6 jr nz, .DontReturn ; OT ld a, [CurPartyMon] ld hl, PartyMon1OT call SkipNames ld de, SpecialShuckleOT .CheckOT ld a, [de] cp [hl] jr nz, .DontReturn cp "@" jr z, .asm_73bb inc de inc hl jr .CheckOT .asm_73bb callba Functione538 jr c, .asm_73f1 ld a, [CurPartyMon] ld hl, PartyMon1Happiness ld bc, PartyMon2 - PartyMon1 call AddNTimes ld a, [hl] cp 150 ld a, $3 jr nc, .asm_73e2 xor a ld [$d10b], a callab Functione039 ld a, $2 .asm_73e2 ld [ScriptVar], a ret .asm_73e6 ld a, $1 ld [ScriptVar], a ret .DontReturn xor a ld [ScriptVar], a ret .asm_73f1 ld a, $4 ld [ScriptVar], a ret ; 73f7 Function73f7: ; 73f7 callba Function50000 jr c, .asm_740e ld a, [CurPartySpecies] ld [ScriptVar], a ld [$d265], a call GetPokemonName jp Function746e .asm_740e xor a ld [ScriptVar], a ret ; 7413 Function7413: ; 7413 ld hl, Data7459 jr Function7420 Function7418: ; 7418 ld hl, Data7462 jr Function7420 Function741d: ; 741d ld hl, Data746b Function7420: ; 7420 push hl callba Function50000 pop hl jr c, .asm_744e ld a, [CurPartySpecies] cp EGG jr z, .asm_7453 push hl call GetCurNick call Function746e pop hl call Random .next sub [hl] jr c, .asm_7444 inc hl inc hl inc hl jr .next .asm_7444 inc hl ld a, [hli] ld [ScriptVar], a ld c, [hl] call ChangeHappiness ret .asm_744e xor a ld [ScriptVar], a ret .asm_7453 ld a, $1 ld [ScriptVar], a ret ; 7459 Data7459: ; 7459 db $4c, $02, $09 db $80, $03, $0a db $ff, $04, $0b Data7462: ; 7462 db $9a, $02, $0c db $4c, $03, $0d db $ff, $04, $0e Data746b: ; 746b db $ff, $02, $12 ; 746e Function746e: ; 746e ld hl, StringBuffer1 ld de, StringBuffer3 ld bc, $000b jp CopyBytes ; 747a Function747a: ; 747a ret ; 747b SECTION "bank2", ROMX, BANK[$2] Function8000: ; 8000 call Function2ed3 xor a ld [hBGMapMode], a call WhiteBGMap call ClearSprites ld hl, TileMap ld bc, $0168 ld a, " " call ByteFill ld hl, AttrMap ld bc, $0168 ld a, $7 call ByteFill call Function3200 call Function32f9 ret ; 8029 Function8029: ; 8029 ld a, $ff ld [$d4cd], a ld [$d4ce], a ld a, $0 ld hl, Data8071 call Function19a6 ld b, $0 call Function808f ld a, $0 call GetMapObject ld hl, $0008 add hl, bc ld e, $80 ld a, [$d45b] bit 2, a jr nz, .asm_8059 ld a, [PlayerGender] bit 0, a jr z, .asm_8059 ld e, $90 .asm_8059 ld [hl], e ld a, $0 ld [hConnectionStripLength], a ld bc, MapObjects ld a, $0 ld [hConnectedMapWidth], a ld de, $d4d6 call Function8116 ld a, $0 ld [$d4cf], a ret ; 8071 Data8071: ; 8071 INCBIN "baserom.gbc",$8071,$807e - $8071 ; 807e Function807e: ; 807e push de ld a, b call GetMapObject pop de ld hl, $0003 add hl, bc ld [hl], d ld hl, $0002 add hl, bc ld [hl], e ret ; 808f Function808f: ; 808f push bc ld a, [XCoord] add $4 ld d, a ld a, [YCoord] add $4 ld e, a pop bc call Function807e ret ; 80a1 Function80a1: ; 80a1 ld a, b call Function18de ret c ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] ld a, [hConnectionStripLength] ld b, a call Function807e and a ret ; 80b8 Function80b8: ; 80b8 ld a, [XCoord] add $4 ld d, a ld hl, MapX sub [hl] ld [hl], d ld hl, $d721 ld [hl], d ld hl, MapX2 ld [hl], d ld d, a ld a, [YCoord] add $4 ld e, a ld hl, MapY sub [hl] ld [hl], e ld hl, $d720 ld [hl], e ld hl, MapY2 ld [hl], e ld e, a ld a, [$d4cd] cp $0 ret nz ret ; 80e7 Function80e7: ; 80e7 call Function2707 and a ret nz ld hl, $d4fe ld a, $1 ld de, $0028 .asm_80f4 ld [hConnectedMapWidth], a ld a, [hl] and a jr z, .asm_8104 add hl, de ld a, [hConnectedMapWidth] inc a cp $d jr nz, .asm_80f4 scf ret .asm_8104 ld d, h ld e, l call Function8116 ld hl, VramState bit 7, [hl] ret z ld hl, $0005 add hl, de set 5, [hl] ret ; 8116 Function8116: ; 8116 call Function811d call Function8286 ret ; 811d Function811d: ; 811d ld a, [hConnectedMapWidth] ld hl, $0000 add hl, bc ld [hl], a ld a, [hConnectionStripLength] ld [$c2f0], a ld hl, $0001 add hl, bc ld a, [hl] ld [$c2f1], a call Function180e ld [$c2f2], a ld a, [hl] call GetSpritePalette ld [$c2f3], a ld hl, $0008 add hl, bc ld a, [hl] and $f0 jr z, .asm_814e swap a and $7 ld [$c2f3], a .asm_814e ld hl, $0004 add hl, bc ld a, [hl] ld [$c2f4], a ld hl, $0009 add hl, bc ld a, [hl] ld [$c2f5], a ld hl, $0003 add hl, bc ld a, [hl] ld [$c2f6], a ld hl, $0002 add hl, bc ld a, [hl] ld [$c2f7], a ld hl, $0005 add hl, bc ld a, [hl] ld [$c2f8], a ret ; 8177 Function8177: ; 8177 ld bc, $d72e ld a, $1 .asm_817c ld [hConnectionStripLength], a ld hl, $0001 add hl, bc ld a, [hl] and a jr z, .asm_81bb ld hl, $0000 add hl, bc ld a, [hl] cp $ff jr nz, .asm_81bb ld a, [XCoord] ld d, a ld a, [YCoord] ld e, a ld hl, $0003 add hl, bc ld a, [hl] add $1 sub d jr c, .asm_81bb cp $c jr nc, .asm_81bb ld hl, $0002 add hl, bc ld a, [hl] add $1 sub e jr c, .asm_81bb cp $b jr nc, .asm_81bb push bc call Function80e7 pop bc jp c, Function81c9 .asm_81bb ld hl, $0010 add hl, bc ld b, h ld c, l ld a, [hConnectionStripLength] inc a cp $10 jr nz, .asm_817c ret ; 81c9 Function81c9: ; 81c9 ret ; 81ca Function81ca: ; 81ca nop ld a, [$d151] cp $ff ret z ld hl, Table81d6 rst JumpTable ret ; 81d6 Table81d6: ; 81d6 dw Function81e5 dw Function81de dw Function8232 dw Function8239 ; 81de Function81de: ; 81de ld a, [YCoord] sub $1 jr Function81ea Function81e5: ; 81e5 ld a, [YCoord] add $9 Function81ea: ; 81ea ld d, a ld a, [XCoord] ld e, a ld bc, $d72e ld a, $1 .asm_81f4 ld [hConnectionStripLength], a ld hl, $0001 add hl, bc ld a, [hl] and a jr z, .asm_8224 ld hl, $0002 add hl, bc ld a, d cp [hl] jr nz, .asm_8224 ld hl, $0000 add hl, bc ld a, [hl] cp $ff jr nz, .asm_8224 ld hl, $0003 add hl, bc ld a, [hl] add $1 sub e jr c, .asm_8224 cp $c jr nc, .asm_8224 push de push bc call Function80e7 pop bc pop de .asm_8224 ld hl, $0010 add hl, bc ld b, h ld c, l ld a, [hConnectionStripLength] inc a cp $10 jr nz, .asm_81f4 ret ; 8232 Function8232: ; 8232 ld a, [XCoord] sub $1 jr Function823e Function8239: ; 8239 ld a, [XCoord] add $a Function823e: ; 823e ld e, a ld a, [YCoord] ld d, a ld bc, $d72e ld a, $1 .asm_8248 ld [hConnectionStripLength], a ld hl, $0001 add hl, bc ld a, [hl] and a jr z, .asm_8278 ld hl, $0003 add hl, bc ld a, e cp [hl] jr nz, .asm_8278 ld hl, $0000 add hl, bc ld a, [hl] cp $ff jr nz, .asm_8278 ld hl, $0002 add hl, bc ld a, [hl] add $1 sub d jr c, .asm_8278 cp $b jr nc, .asm_8278 push de push bc call Function80e7 pop bc pop de .asm_8278 ld hl, $0010 add hl, bc ld b, h ld c, l ld a, [hConnectionStripLength] inc a cp $10 jr nz, .asm_8248 ret ; 8286 Function8286: ; 8286 ld a, [$c2f0] ld hl, $0001 add hl, de ld [hl], a ld a, [$c2f4] call Function1a61 ld a, [$c2f3] ld hl, $0006 add hl, de or [hl] ld [hl], a ld a, [$c2f7] call Function82d5 ld a, [$c2f6] call Function82f1 ld a, [$c2f1] ld hl, $0000 add hl, de ld [hl], a ld a, [$c2f2] ld hl, $0002 add hl, de ld [hl], a ld hl, $0009 add hl, de ld [hl], $0 ld hl, $000d add hl, de ld [hl], $ff ld a, [$c2f8] call Function830d ld a, [$c2f5] ld hl, $0020 add hl, de ld [hl], a and a ret ; 82d5 Function82d5: ; 82d5 ld hl, $0015 add hl, de ld [hl], a ld hl, $0011 add hl, de ld [hl], a ld hl, YCoord sub [hl] and $f swap a ld hl, $d14d sub [hl] ld hl, $0018 add hl, de ld [hl], a ret ; 82f1 Function82f1: ; 82f1 ld hl, $0014 add hl, de ld [hl], a ld hl, $0010 add hl, de ld [hl], a ld hl, XCoord sub [hl] and $f swap a ld hl, $d14c sub [hl] ld hl, $0017 add hl, de ld [hl], a ret ; 830d Function830d: ; 830d ld h, a inc a and $f ld l, a ld a, h add $10 and $f0 or l ld hl, $0016 add hl, de ld [hl], a ret ; 831e Function831e: ; 831e ld a, [$ffe0] call Function1b1e ld a, $3e call Function1b3f ld a, [$d03f] dec a jr z, Function833b ld a, [$ffe0] ld b, a ld c, $0 ld d, $1 call Function8341 call Function1b35 Function833b ld a, $47 call Function1b3f ret ; 8341 Function8341: ; 8341 push de push bc ld a, c call GetMapObject ld hl, $0000 add hl, bc ld a, [hl] call Function1ae5 ld d, b ld e, c pop bc ld a, b call GetMapObject ld hl, $0000 add hl, bc ld a, [hl] call Function1ae5 ld hl, $0010 add hl, bc ld a, [hl] ld hl, $0011 add hl, bc ld c, [hl] ld b, a ld hl, $0010 add hl, de ld a, [hl] ld hl, $0011 add hl, de ld e, [hl] ld d, a pop af call Function1b5f ret ; 8379 Function8379: ; 8379 call Function1b1e call Function8388 call Function1b3f ld a, $47 call Function1b3f ret ; 8388 Function8388: ; 8388 ld a, [PlayerDirection] srl a srl a and 3 ld e, a ld d, 0 ld hl, .data_839a add hl, de ld a, [hl] ret ; 839a .data_839a db 8, 9, 10, 11 ; 839e Function839e: ; 839e push bc ld a, c call Function18de ld d, b ld e, c pop bc ret c ld a, b call Function18de ret c ld hl, $0010 add hl, bc ld a, [hl] ld hl, $0011 add hl, bc ld c, [hl] ld b, a ld hl, $0010 add hl, de ld a, [hl] cp b jr z, .asm_83c7 jr c, .asm_83c4 inc b jr .asm_83d5 .asm_83c4 dec b jr .asm_83d5 .asm_83c7 ld hl, $0011 add hl, de ld a, [hl] cp c jr z, .asm_83d5 jr c, .asm_83d4 inc c jr .asm_83d5 .asm_83d4 dec c .asm_83d5 ld hl, $0010 add hl, de ld [hl], b ld a, b ld hl, XCoord sub [hl] and $f swap a ld hl, $d14c sub [hl] ld hl, $0017 add hl, de ld [hl], a ld hl, $0011 add hl, de ld [hl], c ld a, c ld hl, YCoord sub [hl] and $f swap a ld hl, $d14d sub [hl] ld hl, $0018 add hl, de ld [hl], a ld a, [hConnectedMapWidth] ld hl, $0020 add hl, de ld [hl], a ld hl, $0003 add hl, de ld [hl], $1a ld hl, $0009 add hl, de ld [hl], $0 ret ; 8417 Function8417: ; 8417 ld a, d call GetMapObject ld hl, $0000 add hl, bc ld a, [hl] cp $d jr nc, .asm_8437 ld d, a ld a, e call GetMapObject ld hl, $0000 add hl, bc ld a, [hl] cp $d jr nc, .asm_8437 ld e, a call Function8439 ret .asm_8437 scf ret ; 8439 Function8439: ; 8439 ld a, d call Function1ae5 ld hl, $0010 add hl, bc ld a, [hl] ld hl, $0011 add hl, bc ld c, [hl] ld b, a push bc ld a, e call Function1ae5 ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] pop bc ld a, b sub d jr z, .asm_846c jr nc, .asm_8460 cpl inc a .asm_8460 ld h, a ld a, c sub e jr z, .asm_847a jr nc, .asm_8469 cpl inc a .asm_8469 sub h jr c, .asm_847a .asm_846c ld a, c cp e jr z, .asm_8488 jr c, .asm_8476 ld d, $0 and a ret .asm_8476 ld d, $1 and a ret .asm_847a ld a, b cp d jr z, .asm_8488 jr c, .asm_8484 ld d, $3 and a ret .asm_8484 ld d, $2 and a ret .asm_8488 scf ret ; 848a Function848a: ; 848a call Function849d jr c, .asm_8497 ld [$d4d1], a xor a ld [$d4d0], a ret .asm_8497 ld a, $ff ld [$d4d0], a ret ; 849d Function849d: ; 849d ld a, [$d4cd] call Function1ae5 ld hl, $0010 add hl, bc ld d, [hl] ld hl, $0011 add hl, bc ld e, [hl] ld a, [$d4ce] call Function1ae5 ld hl, $0010 add hl, bc ld a, d cp [hl] jr z, .asm_84c5 jr c, .asm_84c1 and a ld a, $f ret .asm_84c1 and a ld a, $e ret .asm_84c5 ld hl, $0011 add hl, bc ld a, e cp [hl] jr z, .asm_84d7 jr c, .asm_84d3 and a ld a, $c ret .asm_84d3 and a ld a, $d ret .asm_84d7 scf ret ; 84d9 _Sine: ; 84d9 ; A simple sine function. ; Return d * sin(e) in hl. ; e is a signed 6-bit value. ld a, e and %111111 cp %100000 jr nc, .negative call Function84ef ld a, h ret .negative and %011111 call Function84ef ld a, h xor $ff inc a ret ; 84ef Function84ef: ; 84ef ld e, a ld a, d ld d, 0 ld hl, SineWave add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] ld hl, 0 ; Factor amplitude .multiply srl a jr nc, .even add hl, de .even sla e rl d and a jr nz, .multiply ret ; 850b SineWave: ; 850b ; A $20-word table representing a sine wave. ; 90 degrees is index $10 at a base amplitude of $100. x set 0 rept $20 dw (sin(x) + (sin(x) & $ff)) >> 8 ; round up x set x + $100 * $40000 endr ; 854b GetPredefPointer: ; 854b ; Return the bank and address of PredefID in a and PredefAddress. ; Save hl for later (back in Predef) ld a, h ld [PredefTemp], a ld a, l ld [PredefTemp + 1], a push de ld a, [PredefID] ld e, a ld d, 0 ld hl, PredefPointers add hl, de add hl, de add hl, de pop de ld a, [hli] ld [PredefAddress + 1], a ld a, [hli] ld [PredefAddress], a ld a, [hl] ret ; 856b PredefPointers: ; 856b ; $4b Predef pointers ; address, bank dwb Function6508, BANK(Function6508) ; $0 dwb Function747a, BANK(Function747a) dwb Functionc658, BANK(Functionc658) dwb FlagPredef, BANK(FlagPredef) dwb Functionc699, BANK(Functionc699) dwb FillPP, BANK(FillPP) dwb Functiond88c, BANK(Functiond88c) dwb Functionda96, BANK(Functionda96) dwb Functiondb3f, BANK(Functiondb3f) ; $8 dwb Functionde6e, BANK(Functionde6e) dwb Functiondf8c, BANK(Functiondf8c) dwb Functionc6e0, BANK(Functionc6e0) dwb Functione167, BANK(Functione167) dwb Functione17b, BANK(Functione17b) dwb CanLearnTMHMMove, BANK(CanLearnTMHMMove) dwb GetTMHMMove, BANK(GetTMHMMove) dwb Function28eef, BANK(Function28eef) ; $ 10 dwb PrintMoveDesc, BANK(PrintMoveDesc) dwb Function3df48, BANK(Function3df48) ; UpdatePlayerHUD dwb FillBox, BANK(FillBox) dwb Function3d873, BANK(Function3d873) dwb Function3e036, BANK(Function3e036) ; UpdateEnemyHUD dwb StartBattle, BANK(StartBattle) dwb FillInExpBar, BANK(FillInExpBar) dwb Function3f43d, BANK(Function3f43d) ; $18 dwb Function3f47c, BANK(Function3f47c) dwb Function42487, BANK(Function42487) dwb FillMoves, BANK(FillMoves) dwb Function421e6, BANK(Function421e6) dwb Function28f63, BANK(Function28f63) dwb Function28f24, BANK(Function28f24) dwb Function5084a, BANK(Function5084a) dwb Function50d6f, BANK(Function50d6f) ; $20 dwb Function50d2e, BANK(Function50d2e) dwb Function50cdb, BANK(Function50cdb) dwb Function50c50, BANK(Function50c50) dwb GetGender, BANK(GetGender) dwb StatsScreenInit, BANK(StatsScreenInit) dwb DrawPlayerHP, BANK(DrawPlayerHP) dwb DrawEnemyHP, BANK(DrawEnemyHP) dwb Function50b7b, BANK(Function50b7b) ; $28 dwb GetTypeName, BANK(GetTypeName) dwb PrintMoveType, BANK(PrintMoveType) dwb PrintType, BANK(PrintType) dwb PrintMonTypes, BANK(PrintMonTypes) dwb GetUnownLetter, BANK(GetUnownLetter) dwb Functioncbcdd, BANK(Functioncbcdd) dwb Predef2F, BANK(Predef2F) dwb Function9853, BANK(Function9853) ; $30 dwb Function864c, BANK(Function864c) dwb Function91d11, BANK(Function91d11) dwb CheckContestMon, BANK(CheckContestMon) dwb Function8c20f, BANK(Function8c20f) dwb Function8c000, BANK(Function8c000) dwb Function8c000, BANK(Function8c000) dwb PlayBattleAnim, BANK(PlayBattleAnim) dwb Predef38, BANK(Predef38) ; $38 dwb Predef39, BANK(Predef39) dwb Functionfd1d0, BANK(Functionfd1d0) dwb PartyMonItemName, BANK(PartyMonItemName) dwb Function51077, BANK(Function51077) dwb Function5116c, BANK(Function5116c) dwb Function5108b, BANK(Function5108b) dwb Function5120d, BANK(Function5120d) dwb DecompressPredef, BANK(DecompressPredef) ; $40 dwb Function0x347d3, BANK(Function0x347d3) dwb Functionfb908, BANK(Functionfb908) dwb Functionfb877, BANK(Functionfb877) dwb Functiond0000, BANK(Functiond0000) dwb Function50d0a, BANK(Function50d0a) dwb Functiond00a3, BANK(Functiond00a3) dwb Functiond008e, BANK(Functiond008e) dwb Functiond0669, BANK(Functiond0669) ; $48 dwb Functiond066e, BANK(Functiond066e) dbw $ff, Function2d43 ; ???? ; 864c INCLUDE "engine/color.asm" SECTION "bank3", ROMX, BANK[$3] Functionc000: ; c000 ld a, [TimeOfDay] ld hl, Datac012 ld de, 2 call IsInArray inc hl ld c, [hl] ret c xor a ld c, a ret ; c012 Datac012: ; c012 db MORN, 1 db DAY, 2 db NITE, 4 db NITE, 4 db $ff ; c01b Functionc01b: ; c01b ld hl, SpecialsPointers add hl, de add hl, de add hl, de ld b, [hl] inc hl ld a, [hli] ld h, [hl] ld l, a ld a, b rst FarCall ret ; c029 SpecialsPointers: ; c029 dbw BANK(Function97c28), Function97c28 dbw BANK(Function29ce8), Function29ce8 dbw BANK(Function29d11), Function29d11 dbw BANK(Function29d92), Function29d92 dbw BANK(Function29e66), Function29e66 dbw BANK(Function29e82), Function29e82 dbw BANK(Function29efa), Function29efa dbw BANK(Function29eee), Function29eee dbw BANK(Function29c92), Function29c92 dbw BANK(Function29cf1), Function29cf1 dbw BANK(Function29cfa), Function29cfa dbw BANK(Function29bfb), Function29bfb dbw BANK(Function29c7b), Function29c7b dbw BANK(Function29ec4), Function29ec4 dbw BANK(Function29ed9), Function29ed9 dbw BANK(Function29eaf), Function29eaf dbw BANK(Function29f47), Function29f47 dbw BANK(Functionc2f6), Functionc2f6 dbw BANK(Functionc309), Functionc309 dbw BANK(Function1050b9), Function1050b9 dbw BANK(Functionc34a), Functionc34a dbw BANK(Function4d9e5), Function4d9e5 dbw BANK(Function13a12), Function13a12 dbw BANK(Function13a31), Function13a31 dbw BANK(Function135db), Function135db dbw BANK(Functionfbb32), Functionfbb32 dbw BANK(Functionfbcd2), Functionfbcd2 dbw BANK(Functionc658), Functionc658 dbw BANK(Function1559a), Function1559a dbw BANK(Functionc2e7), Functionc2e7 dbw BANK(Function166d6), Function166d6 dbw BANK(Function1672a), Function1672a dbw BANK(Function16936), Function16936 dbw BANK(Function2c547), Function2c547 dbw BANK(Function16218), Function16218 dbw BANK(Function8cc04), Function8cc04 dbw BANK(SpecialNameRival), SpecialNameRival dbw BANK(Function90913), Function90913 dbw BANK(Functionc2c0), Functionc2c0 dbw BANK(Functionc2cd), Functionc2cd dbw BANK(Functionc355), Functionc355 dbw BANK(Functionc360), Functionc360 dbw BANK(Functionc373), Functionc373 dbw BANK(Functionc380), Functionc380 dbw BANK(Functionc38d), Functionc38d dbw BANK(Functionc3db), Functionc3db dbw BANK(Function8c084), Function8c084 dbw BANK(Function8c092), Function8c092 dbw BANK(Function8c0b6), Function8c0b6 dbw BANK(Function8c079), Function8c079 dbw BANK(Function8c0ab), Function8c0ab dbw BANK(Functiond91), Functiond91 dbw BANK(WhiteBGMap), WhiteBGMap dbw BANK(UpdateTimePals), UpdateTimePals dbw BANK(ClearTileMap), ClearTileMap dbw BANK(Function1ad2), Function1ad2 dbw BANK(Functione4a), Functione4a dbw BANK(Functionc230), Functionc230 dbw BANK(SpecialSeenMon), SpecialSeenMon dbw BANK(WaitSFX),WaitSFX dbw BANK(Function3cdf), Function3cdf dbw BANK(Function3d47), Function3d47 dbw BANK(Function12324), Function12324 dbw BANK(Function8379), Function8379 dbw BANK(Functionc25a), Functionc25a dbw BANK(Functionc268), Functionc268 dbw BANK(Functionc276), Functionc276 dbw BANK(Functionc284), Functionc284 dbw BANK(Functionc3ef), Functionc3ef dbw BANK(Function17421), Function17421 dbw BANK(Function17440), Function17440 dbw BANK(Function139a8), Function139a8 dbw BANK(Functionc3fc), Functionc3fc dbw BANK(Function26feb), Function26feb dbw BANK(Function27043), Function27043 dbw BANK(SpecialGiveShuckle), SpecialGiveShuckle dbw BANK(SpecialReturnShuckle), SpecialReturnShuckle dbw BANK(Function73f7), Function73f7 dbw BANK(SpecialCheckPokerus),SpecialCheckPokerus dbw BANK(Function24b25), Function24b25 dbw BANK(Function24b4e), Function24b4e dbw BANK(Function24ae8), Function24ae8 dbw BANK(Function4d87a), Function4d87a dbw BANK(Functionc434), Functionc434 dbw BANK(Functionc422), Functionc422 dbw BANK(Function4d9d3), Function4d9d3 dbw BANK(Function88018), Function88018 dbw BANK(SpecialNameRater), SpecialNameRater dbw BANK(Functionc2da), Functionc2da dbw BANK(Function718d), Function718d dbw BANK(Function71ac), Function71ac dbw BANK(Function2a4ab), Function2a4ab dbw BANK(Function2a51f), Function2a51f dbw BANK(Function2a567), Function2a567 dbw BANK(Function14209), Function14209 dbw BANK(Functionfb841), Functionfb841 dbw BANK(SpecialSnorlaxAwake),SpecialSnorlaxAwake dbw BANK(Function7413), Function7413 dbw BANK(Function7418), Function7418 dbw BANK(Function741d), Function741d dbw BANK(Functionc472), Functionc472 dbw BANK(ProfOaksPCBoot), ProfOaksPCBoot dbw BANK(SpecialGameboyCheck),SpecialGameboyCheck dbw BANK(SpecialTrainerHouse),SpecialTrainerHouse dbw BANK(Function16dc7), Function16dc7 dbw BANK(InitRoamMons), InitRoamMons dbw BANK(Functionc48f), Functionc48f dbw BANK(Functionc49f), Functionc49f dbw BANK(Functionc4ac), Functionc4ac dbw BANK(Function11ac3e), Function11ac3e dbw BANK(Function11b444), Function11b444 dbw BANK(Function11b5e8), Function11b5e8 dbw BANK(Function11b7e5), Function11b7e5 dbw BANK(Function11b879), Function11b879 dbw BANK(Function11b920), Function11b920 dbw BANK(Function11b93b), Function11b93b dbw BANK(Function1700b0), Function1700b0 dbw BANK(Function1700ba), Function1700ba dbw BANK(Function170114), Function170114 dbw BANK(Function170215), Function170215 dbw BANK(Function1704e1), Function1704e1 dbw BANK(Function17021d), Function17021d dbw BANK(Function170b44), Function170b44 dbw BANK(Function11ba38), Function11ba38 dbw BANK(Function170bd3), Function170bd3 dbw BANK(Function117656), Function117656 dbw BANK(Reset), Reset dbw BANK(Function1011f1), Function1011f1 dbw BANK(Function101220), Function101220 dbw BANK(Function101225), Function101225 dbw BANK(Function101231), Function101231 dbw BANK(Function4925b), Function4925b dbw BANK(Function8adef), Function8adef dbw BANK(Function11c1ab), Function11c1ab dbw BANK(Function170687), Function170687 dbw BANK(Function8ae68), Function8ae68 dbw BANK(Function17d224), Function17d224 dbw BANK(Function17d2b6), Function17d2b6 dbw BANK(Function17d2ce), Function17d2ce dbw BANK(Function17f53d), Function17f53d dbw BANK(Function103612), Function103612 dbw BANK(SpecialHoOhChamber),SpecialHoOhChamber dbw BANK(Function102142), Function102142 dbw BANK(Function4989a), Function4989a dbw BANK(Function49bf9), Function49bf9 dbw BANK(SpecialPokeSeer), SpecialPokeSeer dbw BANK(Function8af6b), Function8af6b dbw BANK(Function8afd4), Function8afd4 dbw BANK(SpecialDratini),SpecialDratini dbw BANK(Function11485), Function11485 dbw BANK(SpecialBeastsCheck),SpecialBeastsCheck dbw BANK(SpecialMonCheck),SpecialMonCheck dbw BANK(Functionc225), Functionc225 dbw BANK(Function170bd2), Function170bd2 dbw BANK(Function10366e), Function10366e dbw BANK(Function1037eb), Function1037eb dbw BANK(Function10383c), Function10383c dbw BANK(Function1060a2), Function1060a2 dbw BANK(Function14168), Function14168 dbw BANK(Function1037c2), Function1037c2 dbw BANK(Function10630f), Function10630f dbw BANK(Function103780), Function103780 dbw BANK(Function10387b), Function10387b dbw BANK(Function4ae12), Function4ae12 dbw BANK(Function1047eb), Function1047eb dbw BANK(Function4a927), Function4a927 dbw BANK(Function90a54), Function90a54 dbw BANK(Function90a88), Function90a88 dbw BANK(SpecialNone), SpecialNone ; c224 SpecialNone: ; c224 ret ; c225 Functionc225: ; c225 ld a, [ScriptVar] ld d, a callba Function57e2 ret ; c230 Functionc230: ; c230 ld a, [ScriptVar] dec a call CheckCaughtMon ret nz ld a, [ScriptVar] dec a call SetSeenAndCaughtMon call FadeToMenu ld a, [ScriptVar] ld [$d265], a callba Functionfb877 call Function2b4d ret ; c252 SpecialSeenMon: ; c252 ld a, [ScriptVar] dec a call SetSeenMon ret ; c25a Functionc25a: ; c25a ld a, [ScriptVar] ld b, a callba Function4dbd2 jr z, Functionc298 jr Functionc292 Functionc268: ; c268 ld a, [ScriptVar] ld b, a callba Function4dbd9 jr z, Functionc298 jr Functionc292 Functionc276: ; c276 ld a, [ScriptVar] ld b, a callba Function4dbe0 jr z, Functionc298 jr Functionc292 Functionc284: ; c284 ld a, [ScriptVar] ld b, a callba Function4dbe6 jr z, Functionc298 jr Functionc292 Functionc292: ; c292 ld a, $1 ld [ScriptVar], a ret Functionc298: ; c298 xor a ld [ScriptVar], a ret ; c29d SpecialNameRival: ; 0xc29d ld b, $2 ; rival ld de, RivalName callba Function116b7 ; default to "SILVER" ld hl, RivalName ld de, DefaultRivalName call InitName ret ; 0xc2b2 DefaultRivalName: ; 0xc2b2 db "SILVER@" SpecialNameRater: ; c2b9 callba NameRater ret ; c2c0 Functionc2c0: ; c2c0 call FadeToMenu callba Function9191c call Function2b4d ret ; c2cd Functionc2cd: ; c2cd call FadeToMenu callba Function16be4 call Function2b4d ret ; c2da Functionc2da: ; c2da call FadeToMenu callba Function3f836 call Function2b4d ret ; c2e7 Functionc2e7: ; c2e7 xor a ld [ScriptVar], a callba Function156d9 ld a, c ld [ScriptVar], a ret ; c2f6 Functionc2f6: ; c2f6 ld a, $0 call GetSRAMBank ld a, [$abe2] and a jr z, .asm_c302 inc a .asm_c302 ld [ScriptVar], a call CloseSRAM ret ; c309 Functionc309: ; c309 ld a, $0 call GetSRAMBank ld a, [$abe2] ld [CurItem], a ld a, $1 ld [$d10c], a ld hl, NumItems call ReceiveItem jr nc, .asm_c33d xor a ld [$abe2], a call CloseSRAM ld a, [CurItem] ld [$d265], a call GetItemName ld hl, UnknownText_0xc345 call PrintText ld a, $1 ld [ScriptVar], a ret .asm_c33d call CloseSRAM xor a ld [ScriptVar], a ret ; c345 UnknownText_0xc345: ; 0xc345 ; received item text_jump UnknownText_0x1bd3be db "@" ; 0xc34a Functionc34a: ; c34a callba Function1369d ld a, b ld [ScriptVar], a ret ; c355 Functionc355: ; c355 ld a, [ScriptVar] ld e, a callba Function91a53 ret ; c360 Functionc360: ; c360 call FadeToMenu callba Functione1190 ld a, [$d0ec] ld [ScriptVar], a call Function2b4d ret ; c373 Functionc373: ; c373 call Functionc3ae ret c ld a, BANK(Function926c7) ld hl, Function926c7 call Functionc39a ret ; c380 Functionc380: ; c380 call Functionc3ae ret c ld a, BANK(Functione00ee) ld hl, Functione00ee call Functionc39a ret ; c38d Functionc38d: ; c38d call Functionc3ae ret c ld a, BANK(Functione1e5b) ld hl, Functione1e5b call Functionc39a ret ; c39a Functionc39a: ; c39a call Function31cf call FadeToMenu ld hl, $d0e8 ld a, [hli] push af ld a, [hli] ld h, [hl] ld l, a pop af rst FarCall call Function2b4d ret ; c3ae Functionc3ae: ; c3ae ld hl, Coins ld a, [hli] or [hl] jr z, .asm_c3c4 ld a, $36 ld [CurItem], a ld hl, NumItems call CheckItem jr nc, .asm_c3c9 and a ret .asm_c3c4 ld hl, UnknownText_0xc3d1 jr .asm_c3cc .asm_c3c9 ld hl, UnknownText_0xc3d6 .asm_c3cc call PrintText scf ret ; c3d1 UnknownText_0xc3d1: ; 0xc3d1 ; You have no coins. text_jump UnknownText_0x1bd3d7 db "@" ; 0xc3d6 UnknownText_0xc3d6: ; 0xc3d6 ; You don't have a COIN CASE. text_jump UnknownText_0x1bd3eb db "@" ; 0xc3db Functionc3db: ; c3db call WhiteBGMap call Function2879 ret ; c3e2 ScriptReturnCarry: ; c3e2 jr c, .carry xor a ld [ScriptVar], a ret .carry ld a, 1 ld [ScriptVar], a ret ; c3ef Functionc3ef: ; c3ef callba Function1150c ld a, [$dc3a] ld [ScriptVar], a ret ; c3fc Functionc3fc: ; c3fc ld a, [ScriptVar] ld [$dfce], a ret ; c403 Functionc403: ; c403 ld a, c and a jr nz, .asm_c410 ld a, d ld [$dfcc], a ld a, e ld [$dfcd], a ret .asm_c410 ld a, d ld [$dc5a], a ld a, e ld [$dc5b], a ret ; c419 SpecialCheckPokerus: ; c419 ; Check if a monster in your party has Pokerus callba CheckPokerus jp ScriptReturnCarry ; c422 Functionc422: ; c422 callba Function1152b ld hl, $dc9d res 0, [hl] callba Function5d33 ret ; c434 Functionc434: ; c434 callba Function11542 jp ScriptReturnCarry ; c43d SpecialSnorlaxAwake: ; 0xc43d ; Check if the Poké Flute channel is playing, and if the player is standing ; next to Snorlax. ; outputs: ; ScriptVar is 1 if the conditions are met, otherwise 0. ; check background music ld a, [CurMusic] cp $40 ; Poké Flute Channel jr nz, .nope ld a, [XCoord] ld b, a ld a, [YCoord] ld c, a ld hl, .ProximityCoords .loop ld a, [hli] cp $ff jr z, .nope cp b jr nz, .nextcoord ld a, [hli] cp c jr nz, .loop ld a, $1 jr .done .nextcoord inc hl jr .loop .nope xor a .done ld [ScriptVar], a ret .ProximityCoords db $21, $08 db $22, $0a db $23, $0a db $24, $08 db $24, $09 db $ff Functionc472: ; c472 ld a, [CurPartySpecies] jp Function37ce ; c478 SpecialGameboyCheck: ; c478 ; check cgb ld a, [hCGB] and a jr nz, .cgb ; check sgb ld a, [hSGB] and a jr nz, .sgb ; gb xor a jr .done .sgb ld a, 1 jr .done .cgb ld a, 2 .done ld [ScriptVar], a ret Functionc48f: ; c48f ld a, $0 ld [MusicFadeIDLo], a ld a, $0 ld [MusicFadeIDHi], a ld a, $2 ld [MusicFade], a ret ; c49f Functionc49f: ; c49f call FadeToMenu callba Function1dd702 call Function2b4d ret ; c4ac Functionc4ac: ; c4ac call FadeToMenu callba Function84688 call Function2b4d ret ; c4b9 SpecialTrainerHouse: ; 0xc4b9 ld a, 0 call GetSRAMBank ld a, [$abfd] ; XXX what is this memory location? ld [ScriptVar], a jp CloseSRAM _PrintNum: ; c4c7 push bc bit 5, b jr z, .asm_c4d9 bit 7, b jr nz, .asm_c4d4 bit 6, b jr z, .asm_c4d9 .asm_c4d4 ld a, $f0 ld [hli], a res 5, b .asm_c4d9 xor a ld [hProduct], a ld [hMultiplicand], a ld [$ffb5], a ld a, b and $f cp $1 jr z, .asm_c501 cp $2 jr z, .asm_c4f8 ld a, [de] ld [hMultiplicand], a inc de ld a, [de] ld [$ffb5], a inc de ld a, [de] ld [$ffb6], a jr .asm_c504 .asm_c4f8 ld a, [de] ld [$ffb5], a inc de ld a, [de] ld [$ffb6], a jr .asm_c504 .asm_c501 ld a, [de] ld [$ffb6], a .asm_c504 push de ld d, b ld a, c swap a and $f ld e, a ld a, c and $f ld b, a ld c, $0 cp $2 jr z, .asm_c57c cp $3 jr z, .asm_c56c cp $4 jr z, .asm_c55b cp $5 jr z, .asm_c54a cp $6 jr z, .asm_c538 ld a, $f ld [hMultiplier], a ld a, $42 ld [hMathBuffer], a ld a, $40 ld [$ffb9], a call Functionc5cb call PrintNumber_AdvancePointer .asm_c538 ld a, $1 ld [hMultiplier], a ld a, $86 ld [hMathBuffer], a ld a, $a0 ld [$ffb9], a call Functionc5cb call PrintNumber_AdvancePointer .asm_c54a xor a ld [hMultiplier], a ld a, $27 ld [hMathBuffer], a ld a, $10 ld [$ffb9], a call Functionc5cb call PrintNumber_AdvancePointer .asm_c55b xor a ld [hMultiplier], a ld a, $3 ld [hMathBuffer], a ld a, $e8 ld [$ffb9], a call Functionc5cb call PrintNumber_AdvancePointer .asm_c56c xor a ld [hMultiplier], a xor a ld [hMathBuffer], a ld a, $64 ld [$ffb9], a call Functionc5cb call PrintNumber_AdvancePointer .asm_c57c dec e jr nz, .asm_c583 ld a, $f6 ld [hProduct], a .asm_c583 ld c, $0 ld a, [$ffb6] .asm_c587 cp $a jr c, .asm_c590 sub $a inc c jr .asm_c587 .asm_c590 ld b, a ld a, [hProduct] or c jr nz, .asm_c59b call PrintNumber_PrintLeadingZero jr .asm_c5ad .asm_c59b call Functionc5ba push af ld a, $f6 add c ld [hl], a pop af ld [hProduct], a inc e dec e jr nz, .asm_c5ad inc hl ld [hl], $f2 .asm_c5ad call PrintNumber_AdvancePointer call Functionc5ba ld a, $f6 add b ld [hli], a pop de pop bc ret ; c5ba Functionc5ba: ; c5ba push af ld a, [hProduct] and a jr nz, .asm_c5c9 bit 5, d jr z, .asm_c5c9 ld a, $f0 ld [hli], a res 5, d .asm_c5c9 pop af ret ; c5cb ; known jump sources: c532 (3:4532), c544 (3:4544), c555 (3:4555), c566 (3:4566), c576 (3:4576) Functionc5cb: ; c5cb (3:45cb) dec e jr nz, PrintNumber_PrintDigit ld a, $f6 ld [hPastLeadingZeroes], a ; $ff00+$b3 (aliases: hDividend, hProduct) ; known jump sources: c5cc (3:45cc) PrintNumber_PrintDigit: ; c5d2 (3:45d2) ld c, $0 .asm_c5d4 ld a, [hDivisor] ; $ff00+$b7 (aliases: hMultiplier) ld b, a ld a, [hQuotient] ; $ff00+$b4 (aliases: hMultiplicand) ld [$FF00+$ba], a cp b jr c, .asm_c624 sub b ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand) ld a, [hMathBuffer] ; $ff00+$b8 ld b, a ld a, [$FF00+$b5] ld [$FF00+$bb], a cp b jr nc, .asm_c5f6 ld a, [hQuotient] ; $ff00+$b4 (aliases: hMultiplicand) or $0 jr z, .asm_c620 dec a ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand) ld a, [$FF00+$b5] .asm_c5f6 sub b ld [$FF00+$b5], a ld a, [$FF00+$b9] ld b, a ld a, [$FF00+$b6] ld [$FF00+$bc], a cp b jr nc, .asm_c616 ld a, [$FF00+$b5] and a jr nz, .asm_c611 ld a, [hQuotient] ; $ff00+$b4 (aliases: hMultiplicand) and a jr z, .asm_c61c dec a ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand) xor a .asm_c611 dec a ld [$FF00+$b5], a ld a, [$FF00+$b6] .asm_c616 sub b ld [$FF00+$b6], a inc c jr .asm_c5d4 .asm_c61c ld a, [$FF00+$bb] ld [$FF00+$b5], a .asm_c620 ld a, [$FF00+$ba] ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand) .asm_c624 ld a, [hPastLeadingZeroes] ; $ff00+$b3 (aliases: hDividend, hProduct) or c jr z, PrintNumber_PrintLeadingZero ld a, [hPastLeadingZeroes] ; $ff00+$b3 (aliases: hDividend, hProduct) and a jr nz, .asm_c637 bit 5, d jr z, .asm_c637 ld a, $f0 ld [hli], a res 5, d .asm_c637 ld a, $f6 add c ld [hl], a ld [hPastLeadingZeroes], a ; $ff00+$b3 (aliases: hDividend, hProduct) inc e dec e ret nz inc hl ld [hl], $f2 ret PrintNumber_PrintLeadingZero: ; c644 ; prints a leading zero unless they are turned off in the flags bit 7, d ; print leading zeroes? ret z ld [hl], "0" ret PrintNumber_AdvancePointer: ; c64a ; increments the pointer unless leading zeroes are not being printed, ; the number is left-aligned, and no nonzero digits have been printed yet bit 7, d ; print leading zeroes? jr nz, .incrementPointer bit 6, d ; left alignment or right alignment? jr z, .incrementPointer ld a, [hPastLeadingZeroes] and a ret z .incrementPointer inc hl ret ; 0xc658 Functionc658: ; c658 xor a ld [CurPartyMon], a ld hl, PartySpecies .asm_c65f ld a, [hli] cp $ff jr z, .asm_c676 cp $fd jr z, .asm_c66d push hl call Functionc677 pop hl .asm_c66d ld a, [CurPartyMon] inc a ld [CurPartyMon], a jr .asm_c65f .asm_c676 ret ; c677 Functionc677: ; c677 ld a, $0 call GetPartyParamLocation ld d, h ld e, l ld hl, $0020 add hl, de xor a ld [hli], a ld [hl], a ld hl, $0024 add hl, de ld b, h ld c, l dec bc dec bc ld a, [hli] ld [bc], a inc bc ld a, [hl] ld [bc], a callba Functionf8b9 ret ; c699 Functionc699: ; c699 ld a, b or c jr z, .asm_c6dd push hl xor a ld [hMultiplicand], a ld a, b ld [$ffb5], a ld a, c ld [$ffb6], a ld a, $30 ld [hMultiplier], a call Multiply ld a, d and a jr z, .asm_c6cc srl d rr e srl d rr e ld a, [$ffb5] ld b, a ld a, [$ffb6] srl b rr a srl b rr a ld [$ffb6], a ld a, b ld [$ffb5], a .asm_c6cc ld a, e ld [hMultiplier], a ld b, $4 call Divide ld a, [$ffb6] ld e, a pop hl and a ret nz ld e, $1 ret .asm_c6dd ld e, $0 ret ; c6e0 Functionc6e0: ; c6e0 call WaitBGMap call Functiond627 call WaitBGMap ret ; c6ea Functionc6ea: ; c6ea xor a ld hl, MagikarpLength ld bc, $0007 call ByteFill ret ; c6f5 Functionc6f5: ; c6f5 ld a, [MagikarpLength] rst JumpTable ld [MagikarpLength], a bit 7, a jr nz, .asm_c702 and a ret .asm_c702 and $7f scf ret ; c706 GetPartyNick: ; c706 ; write CurPartyMon nickname to StringBuffer1-3 ld hl, PartyMon1Nickname ld a, BOXMON ld [MonType], a ld a, [CurPartyMon] call GetNick call CopyName1 ; copy text from StringBuffer2 to StringBuffer3 ld de, StringBuffer2 ld hl, StringBuffer3 call CopyName2 ret ; c721 CheckEngineFlag: ; c721 ; Check engine flag de ; Return carry if flag is not set ld b, CHECK_FLAG callba EngineFlagAction ld a, c and a jr nz, .isset scf ret .isset xor a ret ; c731 CheckBadge: ; c731 ; Check engine flag a (ENGINE_ZEPHYRBADGE thru ENGINE_EARTHBADGE) ; Display "Badge required" text and return carry if the badge is not owned call CheckEngineFlag ret nc ld hl, BadgeRequiredText call Function1d67 ; push text to queue scf ret ; c73d BadgeRequiredText: ; c73d ; Sorry! A new BADGE ; is required. TX_FAR _BadgeRequiredText db "@" ; c742 CheckPartyMove: ; c742 ; checks if a pokemon in your party has a move ; e = partymon being checked ; input: d = move id ld e, $00 ; mon # xor a ld [CurPartyMon], a .checkmon ; check for valid species ld c, e ld b, $00 ld hl, PartySpecies add hl, bc ld a, [hl] and a ; no id jr z, .quit cp a, $ff ; terminator jr z, .quit cp a, EGG jr z, .nextmon ; navigate to appropriate move table ld bc, PartyMon2 - PartyMon1 ld hl, PartyMon1Moves ld a, e call AddNTimes ld b, $04 ; number of moves .checkmove ld a, [hli] cp d ; move id jr z, .end dec b ; how many moves left? jr nz, .checkmove .nextmon inc e ; mon # jr .checkmon .end ld a, e ld [CurPartyMon], a ; which mon has the move xor a ret .quit scf ret ; c779 Functionc779: ; c779 ld hl, UnknownText_0xc780 call Function1d67 ret ; c780 UnknownText_0xc780: ; 0xc780 text_jump UnknownText_0x1c05c8 db "@" ; 0xc785 Functionc785: ; c785 call Functionc6ea .asm_c788 ld hl, Jumptable_c796 call Functionc6f5 jr nc, .asm_c788 and $7f ld [$d0ec], a ret ; c796 ; no known jump sources Jumptable_c796: ; c796 (3:4796) dw Functionc79c dw Functionc7b2 dw Functionc7bb ; no known jump sources Functionc79c: ; c79c (3:479c) ld de, $1c call CheckBadge jr c, .asm_c7ac call Functionc7ce jr c, .asm_c7af ld a, $1 ret .asm_c7ac ld a, $80 ret .asm_c7af ld a, $2 ret ; no known jump sources Functionc7b2: ; c7b2 (3:47b2) ld hl, Unknown_c7fe call Function31cd ld a, $81 ret ; no known jump sources Functionc7bb: ; c7bb (3:47bb) ld hl, Unknown_c7c9 call Function1d67 ld a, $80 ret UnknownText_0xc7c4: ; 0xc7c4 text_jump UnknownText_0x1c05dd db $50 ; 0xc7c9 Unknown_c7c9: ; c7c9 INCBIN "baserom.gbc",$c7c9,$c7ce - $c7c9 Functionc7ce: ; c7ce call GetFacingTileCoord ld c, a push de callba Function149f5 pop de jr nc, .asm_c7fc call Function2a66 ld c, [hl] push hl ld hl, $4862 call Functionc840 pop hl jr nc, .asm_c7fc ld a, l ld [$d1ec], a ld a, h ld [$d1ed], a ld a, b ld [$d1ee], a ld a, c ld [$d1ef], a xor a ret .asm_c7fc scf ret ; c7fe Unknown_c7fe: ; c7fe INCBIN "baserom.gbc",$c7fe,$c802 - $c7fe UnknownScript_0xc802: ; 0xc802 3callasm GetPartyNick 2writetext UnknownText_0xc7c4 reloadmappart 3callasm Functionc810 loadmovesprites end ; 0xc810 Functionc810: ; c810 ld hl, $d1ec ld a, [hli] ld h, [hl] ld l, a ld a, [$d1ee] ld [hl], a xor a ld [hBGMapMode], a call Function2173 call Function1ad2 call DelayFrame ld a, [$d1ef] ld e, a callba Function8c940 call Function2879 call Function2914 call Function1ad2 call DelayFrame call Functione51 ret ; c840 Functionc840: ; c840 push bc ld a, [$d199] ld de, 3 call IsInArray pop bc jr nc, .asm_c860 inc hl ld a, [hli] ld h, [hl] ld l, a ld de, 3 ld a, c call IsInArray jr nc, .asm_c860 inc hl ld b, [hl] inc hl ld c, [hl] scf ret .asm_c860 xor a ret ; c862 INCBIN "baserom.gbc",$c862,$c8ac - $c862 Functionc8ac: ; c8ac call Functionc8b5 and $7f ld [$d0ec], a ret ; c8b5 Functionc8b5: ; c8b5 ; Flash ld de, ENGINE_ZEPHYRBADGE callba CheckBadge jr c, .asm_c8dd push hl callba Function8ae30 pop hl jr c, .asm_c8d1 ld a, [$d847] cp $ff jr nz, .asm_c8d7 .asm_c8d1 call Functionc8e0 ld a, $81 ret .asm_c8d7 call Functionc779 ld a, $80 ret .asm_c8dd ld a, $80 ret ; c8e0 Functionc8e0: ; c8e0 ld hl, UnknownScript_0xc8e6 jp Function31cd ; c8e6 UnknownScript_0xc8e6: ; 0xc8e6 reloadmappart special $0035 2writetext UnknownText_0xc8f3 3callasm Function8c7e1 loadmovesprites end ; 0xc8f3 UnknownText_0xc8f3: ; 0xc8f3 text_jump UnknownText_0x1c0609 start_asm ; 0xc8f8 Functionc8f8: ; c8f8 call WaitSFX ld de, SFX_FLASH call PlaySFX call WaitSFX ld hl, UnknownText_0xc908 ret ; c908 UnknownText_0xc908: ; 0xc908 db "@" ; 0xc909 Functionc909: ; c909 call Functionc6ea .asm_c90c ld hl, $491a call Functionc6f5 jr nc, .asm_c90c and $7f ld [$d0ec], a ret ; c91a ; no known jump sources Jumptable_c91a: ; c91a (3:491a) dw Functionc922 dw Functionc95f dw Functionc971 dw Functionc97a ; no known jump sources Functionc922: ; c922 (3:4922) ld de, $1e call CheckBadge jr c, .asm_c956 ld hl, BikeFlags ; $dbf5 bit 1, [hl] jr nz, .asm_c95c ld a, [PlayerState] ; $d95d cp $4 jr z, .asm_c959 cp $8 jr z, .asm_c959 call GetFacingTileCoord call GetTileCollision cp $1 jr nz, .asm_c95c call CheckDirection jr c, .asm_c95c callba CheckFacingObject jr c, .asm_c95c ld a, $1 ret .asm_c956 ld a, $80 ret .asm_c959 ld a, $3 ret .asm_c95c ld a, $2 ret ; no known jump sources Functionc95f: ; c95f (3:495f) call GetSurfType ld [Buffer2], a ; $d1eb (aliases: MovementType) call GetPartyNick ld hl, $4983 call Function31cd ld a, $81 ret ; no known jump sources Functionc971: ; c971 (3:4971) ld hl, $49ae call Function1d67 ld a, $80 ret ; no known jump sources Functionc97a: ; c97a (3:497a) ld hl, $49b3 call Function1d67 ld a, $80 ret ; c983 (3:4983) INCBIN "baserom.gbc",$c983,$c986 - $c983 UsedSurfScript: ; c986 2writetext UsedSurfText ; "used SURF!" closetext loadmovesprites 3callasm Functionc9a2 ; empty function copybytetovar Buffer2 writevarcode VAR_MOVEMENT special SPECIAL_UPDATESPRITETILES special SPECIAL_BIKESURFMUSIC ; step into the water special SPECIAL_LOADFACESTEP ; (slow_step_x, step_end) applymovement 0, MovementBuffer ; PLAYER, MovementBuffer end ; c9a2 Functionc9a2: ; c9a2 callba Function1060bb ; empty ret ; c9a9 UsedSurfText: ; c9a9 TX_FAR _UsedSurfText ; [MONSTER] used db "@" ; SURF! ; c9ae CantSurfText: ; c9ae TX_FAR _CantSurfText ; You can't SURF db "@" ; here. ; c9b3 AlreadySurfingText: ; c9b3 TX_FAR _AlreadySurfingText ; You're already db "@" ; SURFING. ; c9b8 GetSurfType: ; c9b8 ; Surfing on Pikachu uses an alternate sprite. ; This is done by using a separate movement type. ld a, [CurPartyMon] ld e, a ld d, 0 ld hl, PartySpecies add hl, de ld a, [hl] cp PIKACHU ld a, PLAYER_SURF_PIKA ret z ld a, PLAYER_SURF ret ; c9cb CheckDirection: ; c9cb ; Return carry if a tile permission prevents you ; from moving in the direction you're facing. ; Get player direction ld a, [PlayerDirection] and a, %00001100 ; bits 2 and 3 contain direction rrca rrca ld e, a ld d, 0 ld hl, .Directions add hl, de ; Can you walk in this direction? ld a, [TilePermissions] and [hl] jr nz, .quit xor a ret .quit scf ret .Directions db FACE_DOWN db FACE_UP db FACE_LEFT db FACE_RIGHT ; c9e7 TrySurfOW: ; c9e7 ; Checking a tile in the overworld. ; Return carry if surfing is allowed. ; Don't ask to surf if already surfing. ld a, [PlayerState] cp PLAYER_SURF_PIKA jr z, .quit cp PLAYER_SURF jr z, .quit ; Must be facing water. ld a, [EngineBuffer1] call GetTileCollision cp 1 ; surfable jr nz, .quit ; Check tile permissions. call CheckDirection jr c, .quit ld de, ENGINE_FOGBADGE call CheckEngineFlag jr c, .quit ld d, SURF call CheckPartyMove jr c, .quit ld hl, BikeFlags bit 1, [hl] ; always on bike (can't surf) jr nz, .quit call GetSurfType ld [MovementType], a call GetPartyNick ld a, BANK(AskSurfScript) ld hl, AskSurfScript call CallScript scf ret .quit xor a ret ; ca2c AskSurfScript: ; ca2c loadfont 2writetext AskSurfText yesorno iftrue UsedSurfScript loadmovesprites end ; ca36 AskSurfText: ; ca36 TX_FAR _AskSurfText ; The water is calm. db "@" ; Want to SURF? ; ca3b Functionca3b: ; ca3b call Functionc6ea .asm_ca3e ld hl, .data_ca4c call Functionc6f5 jr nc, .asm_ca3e and $7f ld [$d0ec], a ret ; ca4c .data_ca4c dw Functionca52 dw Functionca94 dw Functionca9d ; ca52 Functionca52: ; ca52 ; Fly ld de, ENGINE_STORMBADGE call CheckBadge jr c, .asm_ca85 call GetMapPermission call CheckOutdoorMap jr z, .asm_ca64 jr .indoors .asm_ca64 xor a ld [$ffde], a call Function1d6e call ClearSprites callba Function91af3 ld a, e cp $ff jr z, .asm_ca8b cp $1c jr nc, .asm_ca8b ld [$d001], a call Function1c17 ld a, $1 ret .asm_ca85 ld a, $82 ret .indoors ld a, $2 ret .asm_ca8b call Function1c17 call WaitBGMap ld a, $80 ret ; ca94 Functionca94: ; ca94 ld hl, UnknownScript_0xcaa3 call Function31cd ld a, $81 ret ; ca9d Functionca9d: ; ca9d call Functionc779 ld a, $82 ret ; caa3 UnknownScript_0xcaa3: ; 0xcaa3 reloadmappart 3callasm HideSprites special $0035 3callasm Function8caed 3call UnknownScript_0x122c1 special $0000 3callasm Function154f1 writecode $8, $0 newloadmap $fc 3callasm Function8cb33 special $003b 3callasm Functioncacb end ; 0xcacb Functioncacb: ; cacb callba Function561d call DelayFrame call Functione4a callba Function106594 ret ; cade Functioncade: ; cade call Functioncae7 and $7f ld [$d0ec], a ret ; cae7 Functioncae7: ; cae7 ; Waterfall ld de, ENGINE_RISINGBADGE callba CheckBadge ld a, $80 ret c call Functioncb07 jr c, .asm_cb01 ld hl, UnknownScript_0xcb1c call Function31cd ld a, $81 ret .asm_cb01 call Functionc779 ld a, $80 ret ; cb07 Functioncb07: ; cb07 ld a, [PlayerDirection] and $c cp FACE_UP jr nz, .asm_cb1a ld a, [TileUp] call CheckWaterfallTile jr nz, .asm_cb1a xor a ret .asm_cb1a scf ret ; cb1c UnknownScript_0xcb1c: ; 0xcb1c reloadmappart special $0035 UnknownScript_0xcb20: ; 0xcb20 3callasm GetPartyNick 2writetext UnknownText_0xcb51 closetext loadmovesprites playsound SFX_BUBBLEBEAM .loop applymovement $0, WaterfallStep 3callasm Functioncb38 iffalse .loop end ; 0xcb38 Functioncb38: ; cb38 xor a ld [ScriptVar], a ld a, [StandingTile] call CheckWaterfallTile ret z callba Function1060c1 ld a, $1 ld [ScriptVar], a ret ; cb4f WaterfallStep: ; cb4f turn_waterfall_up step_end ; cb51 UnknownText_0xcb51: ; 0xcb51 text_jump UnknownText_0x1c068e db "@" ; 0xcb56 TryWaterfallOW: ; cb56 ld d, WATERFALL call CheckPartyMove jr c, .asm_cb74 ld de, ENGINE_RISINGBADGE call CheckEngineFlag jr c, .asm_cb74 call Functioncb07 jr c, .asm_cb74 ld a, BANK(UnknownScript_0xcb86) ld hl, UnknownScript_0xcb86 call CallScript scf ret .asm_cb74 ld a, BANK(UnknownScript_0xcb7e) ld hl, UnknownScript_0xcb7e call CallScript scf ret ; cb7e UnknownScript_0xcb7e: ; 0xcb7e jumptext UnknownText_0xcb81 ; 0xcb81 UnknownText_0xcb81: ; 0xcb81 text_jump UnknownText_0x1c06a3 db "@" ; 0xcb86 UnknownScript_0xcb86: ; 0xcb86 loadfont 2writetext UnknownText_0xcb90 yesorno iftrue UnknownScript_0xcb20 loadmovesprites end ; 0xcb90 UnknownText_0xcb90: ; 0xcb90 text_jump UnknownText_0x1c06bf db "@" ; 0xcb95 Functioncb95: ; cb95 call Functionc6ea ld a, $1 jr asm_cba1 Functioncb9c: ; cb9c call Functionc6ea ld a, $2 asm_cba1 ld [Buffer2], a .asm_cba4 ld hl, Tablecbb2 call Functionc6f5 jr nc, .asm_cba4 and $7f ld [$d0ec], a ret ; cbb2 Tablecbb2: ; cbb2 dw Functioncbb8 dw Functioncbd8 dw Functioncc06 ; cbb8 Functioncbb8: ; cbb8 call GetMapPermission cp $4 jr z, .asm_cbc6 cp $7 jr z, .asm_cbc6 .asm_cbc3 ld a, $2 ret .asm_cbc6 ld hl, $dca9 ld a, [hli] and a jr z, .asm_cbc3 ld a, [hli] and a jr z, .asm_cbc3 ld a, [hl] and a jr z, .asm_cbc3 ld a, $1 ret ; cbd8 Functioncbd8: ; cbd8 ld hl, $dca9 ld de, $d146 ld bc, $0003 call CopyBytes call GetPartyNick ld a, [Buffer2] cp $2 jr nz, .asm_cbf7 ld hl, UnknownScript_0xcc35 call Function31cd ld a, $81 ret .asm_cbf7 callba Function8ae4e ld hl, UnknownScript_0xcc2b call Function31cd ld a, $81 ret ; cc06 Functioncc06: ; cc06 ld a, [Buffer2] cp $2 jr nz, .asm_cc19 ld hl, UnknownText_0xcc26 call Function1d4f call Functiona80 call Function1c17 .asm_cc19 ld a, $80 ret ; cc1c UnknownText_0xcc1c: ; 0xcc1c ; used DIG! text_jump UnknownText_0x1c06de db "@" ; 0xcc21 UnknownText_0xcc21: ; 0xcc21 ; used an ESCAPE ROPE. text_jump UnknownText_0x1c06ed db "@" ; 0xcc26 UnknownText_0xcc26: ; 0xcc26 ; Can't use that here. text_jump UnknownText_0x1c0705 db "@" ; 0xcc2b UnknownScript_0xcc2b: ; 0xcc2b reloadmappart special $0035 2writetext UnknownText_0xcc21 2jump UnknownScript_0xcc3c ; 0xcc35 UnknownScript_0xcc35: ; 0xcc35 reloadmappart special $0035 2writetext UnknownText_0xcc1c UnknownScript_0xcc3c: ; 0xcc3c closetext loadmovesprites playsound SFX_WARP_TO applymovement $0, MovementData_0xcc59 3call UnknownScript_0x122c1 special $0000 writecode $8, $0 newloadmap $f5 playsound SFX_WARP_FROM applymovement $0, MovementData_0xcc5d end ; 0xcc59 MovementData_0xcc59: ; 0xcc59 step_wait5 turn_away_down hide_person step_end ; 0xcc5d MovementData_0xcc5d: ; 0xcc5d db $3c, $58 turn_away_down step_end ; 0xcc61 Functioncc61: ; cc61 call Functionc6ea .asm_cc64 ld hl, Tablecc72 call Functionc6f5 jr nc, .asm_cc64 and $7f ld [$d0ec], a ret ; cc72 Tablecc72: ; cc72 dw Functioncc78 dw Functioncc9c dw Functioncca8 ; cc78 Functioncc78: ; cc78 call GetMapPermission call CheckOutdoorMap jr z, .asm_cc82 jr .asm_cc99 .asm_cc82 ld a, [$dcb2] ld d, a ld a, [$dcb3] ld e, a callba Function15344 jr nc, .asm_cc99 ld a, c ld [$d001], a ld a, $1 ret .asm_cc99 ld a, $2 ret ; cc9c Functioncc9c: ; cc9c call GetPartyNick ld hl, $4cbb call Function31cd ld a, $81 ret ; cca8 Functioncca8: ; cca8 ld hl, $4cb6 call Function1d67 ld a, $80 ret ; ccb1 INCBIN "baserom.gbc",$ccb1,$cce5 - $ccb1 Functioncce5: ; cce5 call Functionccee and $7f ld [$d0ec], a ret ; ccee Functionccee: ; ccee ; Strength ld de, ENGINE_PLAINBADGE call CheckBadge jr c, Functioncd06 jr Functioncd09 ; ccf8 Functionccf8: ; ccf8 ld hl, UnknownText_0xcd01 call Function1d67 ld a, $80 ret ; cd01 UnknownText_0xcd01: ; 0xcd01 text_jump UnknownText_0x1c0751 db "@" ; 0xcd06 Functioncd06: ; cd06 ld a, $80 ret ; cd09 Functioncd09: ; cd09 ld hl, UnknownScript_0xcd29 call Function31cd ld a, $81 ret ; cd12 Functioncd12: ; cd12 ld hl, BikeFlags set 0, [hl] ld a, [CurPartyMon] ld e, a ld d, 0 ; fallthrough ; cd1d Functioncd1d: ; cd1d ld hl, PartySpecies add hl, de ld a, [hl] ld [$d1ef], a call GetPartyNick ret ; cd29 UnknownScript_0xcd29: ; 0xcd29 reloadmappart special $0035 UnknownScript_0xcd2d: ; 0xcd2d 3callasm Functioncd12 2writetext UnknownText_0xcd41 copybytetovar $d1ef cry $0000 pause 3 2writetext UnknownText_0xcd46 loadmovesprites end ; 0xcd41 UnknownText_0xcd41: ; 0xcd41 text_jump UnknownText_0x1c0774 db $50 ; 0xcd46 UnknownText_0xcd46: ; 0xcd46 text_jump UnknownText_0x1c0788 db $50 ; 0xcd4b UnknownScript_0xcd4b: ; 0xcd4b 3callasm Functioncd78 iffalse UnknownScript_0xcd5f if_equal $1, UnknownScript_0xcd59 2jump UnknownScript_0xcd5c ; 0xcd59 UnknownScript_0xcd59: ; 0xcd59 jumptext UnknownText_0xcd73 ; 0xcd5c UnknownScript_0xcd5c: ; 0xcd5c jumptext UnknownText_0xcd6e ; 0xcd5f UnknownScript_0xcd5f: ; 0xcd5f loadfont 2writetext UnknownText_0xcd69 yesorno iftrue UnknownScript_0xcd2d loadmovesprites end ; 0xcd69 UnknownText_0xcd69: ; 0xcd69 ; A #MON may be able to move this. Want to use STRENGTH? text_jump UnknownText_0x1c07a0 db "@" ; 0xcd6e UnknownText_0xcd6e: ; 0xcd6e ; Boulders may now be moved! text_jump UnknownText_0x1c07d8 db "@" ; 0xcd73 UnknownText_0xcd73: ; 0xcd73 ; A #MON may be able to move this. text_jump UnknownText_0x1c07f4 db "@" ; 0xcd78 Functioncd78: ; cd78 ld d, $46 call CheckPartyMove jr c, .asm_cd92 ld de, $1d call CheckEngineFlag jr c, .asm_cd92 ld hl, BikeFlags ; $dbf5 bit 0, [hl] jr z, .asm_cd96 ld a, $2 jr .asm_cd99 .asm_cd92 ld a, $1 jr .asm_cd99 .asm_cd96 xor a jr .asm_cd99 .asm_cd99 ld [ScriptVar], a ; $c2dd ret Functioncd9d: ; cd9d call Functionc6ea .asm_cda0 ld hl, $4dae call Functionc6f5 jr nc, .asm_cda0 and $7f ld [$d0ec], a ret ; cdae INCBIN "baserom.gbc",$cdae,$cdd9 - $cdae UnknownText_0xcdd9: ; 0xcdd9 text_jump UnknownText_0x1c0816 db "@" ; 0xcdde Functioncdde: ; cdde call GetFacingTileCoord ld c, a push de call CheckWhirlpoolTile pop de jr c, .asm_ce09 call Function2a66 ld c, [hl] push hl ld hl, $48a4 call Functionc840 pop hl jr nc, .asm_ce09 ld a, l ld [$d1ec], a ld a, h ld [$d1ed], a ld a, b ld [$d1ee], a ld a, c ld [$d1ef], a xor a ret .asm_ce09 scf ret ; ce0b INCBIN "baserom.gbc",$ce0b,$ce0f - $ce0b UnknownScript_0xce0f: ; 0xce0f 3callasm GetPartyNick 2writetext UnknownText_0xcdd9 reloadmappart 3callasm Functionce1d loadmovesprites end ; 0xce1d Functionce1d: ; ce1d ld hl, $d1ec ld a, [hli] ld h, [hl] ld l, a ld a, [$d1ee] ld [hl], a xor a ld [hBGMapMode], a call Function2173 ld a, [$d1ef] ld e, a callba Function8c7d4 call Function2879 call Function2914 ret ; ce3e TryWhirlpoolOW: ; ce3e ld d, WHIRLPOOL call CheckPartyMove jr c, .asm_ce5c ld de, ENGINE_GLACIERBADGE call CheckEngineFlag jr c, .asm_ce5c call Functioncdde jr c, .asm_ce5c ld a, BANK(UnknownScript_0xce6e) ld hl, UnknownScript_0xce6e call CallScript scf ret .asm_ce5c ld a, BANK(UnknownScript_0xce66) ld hl, UnknownScript_0xce66 call CallScript scf ret ; ce66 UnknownScript_0xce66: ; 0xce66 jumptext UnknownText_0xce69 ; 0xce69 UnknownText_0xce69: ; 0xce69 text_jump UnknownText_0x1c082b db "@" ; 0xce6e UnknownScript_0xce6e: ; 0xce6e loadfont 2writetext UnknownText_0xce78 yesorno iftrue UnknownScript_0xce0f loadmovesprites end ; 0xce78 UnknownText_0xce78: ; 0xce78 text_jump UnknownText_0x1c0864 db "@" ; 0xce7d Functionce7d: ; ce7d call Functionce86 and $7f ld [$d0ec], a ret ; ce86 Functionce86: ; ce86 call GetFacingTileCoord call CheckHeadbuttTreeTile jr nz, .asm_ce97 ld hl, UnknownScript_0xcea7 call Function31cd ld a, $81 ret .asm_ce97 call Functionc779 ld a, $80 ret ; ce9d UnknownText_0xce9d: ; 0xce9d text_jump UnknownText_0x1c0897 db $50 ; 0xcea2 UnknownText_0xcea2: ; 0xcea2 text_jump UnknownText_0x1c08ac db $50 ; 0xcea7 UnknownScript_0xcea7: ; 0xcea7 reloadmappart special $0035 3callasm GetPartyNick 2writetext UnknownText_0xce9d reloadmappart 3callasm Function8c80a 3callasm Functionb81ea iffalse UnknownScript_0xcec3 loadmovesprites battlecheck startbattle returnafterbattle end ; 0xcec3 UnknownScript_0xcec3: ; 0xcec3 2writetext UnknownText_0xcea2 closetext loadmovesprites end ; 0xcec9 TryHeadbuttOW: ; cec9 ld d, $1d call CheckPartyMove jr c, .asm_ceda ld a, $3 ld hl, $4edc call CallScript scf ret .asm_ceda xor a ret ; cedc INCBIN "baserom.gbc",$cedc,$ceeb - $cedc Functionceeb: ; ceeb call Functioncef4 and $7f ld [$d0ec], a ret ; cef4 Functioncef4: ; cef4 call Functioncf0d jr c, .asm_cf07 ld a, d cp $18 jr nz, .asm_cf07 ld hl, UnknownScript_0xcf2e call Function31cd ld a, $81 ret .asm_cf07 call Functionc779 ld a, $80 ret ; cf0d Functioncf0d: ; cf0d callba CheckFacingObject jr nc, .asm_cf2c ld a, [hConnectedMapWidth] call Function1ae5 ld hl, $0001 add hl, bc ld a, [hl] ld [$ffe0], a call GetMapObject ld hl, $0004 add hl, bc ld a, [hl] ld d, a and a ret .asm_cf2c scf ret ; cf2e UnknownScript_0xcf2e: ; 0xcf2e reloadmappart special $0035 UnknownScript_0xcf32: ; cf32 3callasm GetPartyNick 2writetext UnknownText_0xcf58 loadmovesprites special $003b playsound SFX_STRENGTH earthquake 84 applymovement2 MovementData_0xcf55 disappear $fe 3callasm Functionb8219 copybytetovar $d22e iffalse .done battlecheck startbattle returnafterbattle .done end ; 0xcf55 MovementData_0xcf55: ; 0xcf55 db $57, $0a step_end UnknownText_0xcf58: ; 0xcf58 text_jump UnknownText_0x1c08f0 db $50 ; 0xcf5d UnknownScript_0xcf5d: ; 0xcf5d 3callasm Functioncf7c if_equal $1, UnknownScript_0xcf6f loadfont 2writetext UnknownText_0xcf77 yesorno iftrue UnknownScript_0xcf32 loadmovesprites end ; 0xcf6f UnknownScript_0xcf6f: ; 0xcf6f jumptext UnknownText_0xcf72 ; 0xcf72 UnknownText_0xcf72: ; 0xcf72 ; Maybe a #MON can break this. text_jump UnknownText_0x1c0906 db "@" ; 0xcf77 UnknownText_0xcf77: ; 0xcf77 ; This rock looks breakable. Want to use ROCK SMASH? text_jump UnknownText_0x1c0924 db "@" ; 0xcf7c Functioncf7c: ; cf7c ld d, $f9 call CheckPartyMove jr nc, .asm_cf87 ld a, $1 jr .asm_cf8a .asm_cf87 xor a jr .asm_cf8a .asm_cf8a ld [ScriptVar], a ; $c2dd ret Functioncf8e: ; cf8e ld a, e push af call Functionc6ea pop af ld [Buffer2], a .asm_cf97 ld hl, $4fa5 call Functionc6f5 jr nc, .asm_cf97 and $7f ld [$d0ec], a ret ; cfa5 INCBIN "baserom.gbc",$cfa5,$d0b3 - $cfa5 Functiond0b3: ; d0b3 call Functiond0bc and $7f ld [$d0ec], a ret ; d0bc Functiond0bc: ; d0bc call Functiond121 jr c, .asm_d110 ld a, [PlayerState] cp $0 jr z, .asm_d0ce cp $1 jr z, .asm_d0f7 jr .asm_d110 .asm_d0ce ld hl, $513e ld de, $514e call Functiond119 call Function31cd xor a ld [MusicFade], a ld de, $0000 call PlayMusic call DelayFrame call MaxVolume ld de, $0013 ld a, e ld [CurMusic], a call PlayMusic ld a, $1 ret .asm_d0f7 ld hl, BikeFlags bit 1, [hl] jr nz, .asm_d10b ld hl, $5158 ld de, $516b call Functiond119 ld a, $3 jr .asm_d113 .asm_d10b ld hl, $5171 jr .asm_d113 .asm_d110 ld a, $0 ret .asm_d113 call Function31cd ld a, $1 ret ; d119 Functiond119: ; d119 ld a, [$d0ef] and a ret z ld h, d ld l, e ret ; d121 Functiond121: ; d121 call GetMapPermission call CheckOutdoorMap jr z, .asm_d133 cp $4 jr z, .asm_d133 cp $6 jr z, .asm_d133 jr .asm_d13c .asm_d133 call Function184a and $f jr nz, .asm_d13c xor a ret .asm_d13c scf ret ; d13e INCBIN "baserom.gbc",$d13e,$d186 - $d13e TryCutOW: ; d186 ld d, CUT call CheckPartyMove jr c, .asm_d19f ld de, ENGINE_HIVEBADGE call CheckEngineFlag jr c, .asm_d19f ld a, BANK(UnknownScript_0xd1a9) ld hl, UnknownScript_0xd1a9 call CallScript scf ret .asm_d19f ld a, BANK(UnknownScript_0xd1cd) ld hl, UnknownScript_0xd1cd call CallScript scf ret ; d1a9 UnknownScript_0xd1a9: ; 0xd1a9 loadfont 2writetext UnknownText_0xd1c8 yesorno iffalse .script_d1b8 3callasm Functiond1ba iftrue UnknownScript_0xc802 .script_d1b8 loadmovesprites end ; 0xd1ba Functiond1ba: ; d1ba xor a ld [ScriptVar], a call Functionc7ce ret c ld a, $1 ld [ScriptVar], a ret ; d1c8 UnknownText_0xd1c8: ; 0xd1c8 text_jump UnknownText_0x1c09dd db "@" ; 0xd1cd UnknownScript_0xd1cd: ; 0xd1cd jumptext UnknownText_0xd1d0 ; 0xd1d0 UnknownText_0xd1d0: ; 0xd1d0 text_jump UnknownText_0x1c0a05 db "@" ; 0xd1d5 _ReceiveItem: ; d1d5 call Functiond27b jp nz, Functiond29c push hl call CheckItemPocket pop de ld a, [$d142] dec a ld hl, Tabled1e9 rst JumpTable ret ; d1e9 Tabled1e9: ; d1e9 dw Functiond1f1 dw Functiond1f6 dw Functiond1fb dw Functiond201 ; d1f1 Functiond1f1: ; d1f1 ld h, d ld l, e jp Functiond29c ; d1f6 Functiond1f6: ; d1f6 ld h, d ld l, e jp Functiond35a ; d1fb Functiond1fb: ; d1fb ld hl, NumBalls jp Functiond29c ; d201 Functiond201: ; d201 ld h, d ld l, e ld a, [CurItem] ld c, a call GetTMHMNumber jp Functiond3c4 ; d20d _TossItem: ; d20d call Functiond27b jr nz, .asm_d241 push hl call CheckItemPocket pop de ld a, [$d142] dec a ld hl, .data_d220 rst JumpTable ret .data_d220 dw .Item dw .KeyItem dw .Ball dw .TMHM ; d228 .Ball ; d228 ld hl, NumBalls jp Functiond2ff ; d22e .TMHM ; d22e ld h, d ld l, e ld a, [CurItem] ld c, a call GetTMHMNumber jp Functiond3d8 ; d23a .KeyItem ; d23a ld h, d ld l, e jp Functiond374 ; d23f .Item ; d23f ld h, d ld l, e ; d241 .asm_d241 jp Functiond2ff ; d244 _CheckItem: ; d244 call Functiond27b jr nz, .asm_d278 push hl call CheckItemPocket pop de ld a, [$d142] dec a ld hl, .data_d257 rst JumpTable ret .data_d257 dw .Item dw .KeyItem dw .Ball dw .TMHM ; d25f .Ball ; d25f ld hl, NumBalls jp Functiond349 ; d265 .TMHM ; d265 ld h, d ld l, e ld a, [CurItem] ld c, a call GetTMHMNumber jp Functiond3fb ; d271 .KeyItem ; d271 ld h, d ld l, e jp Functiond3b1 ; d276 .Item ; d276 ld h, d ld l, e ; d278 .asm_d278 jp Functiond349 ; d27b Functiond27b: ; d27b ld a, l cp TMsHMsEnd % $100 ret nz ld a, h cp TMsHMsEnd / $100 ret ; d283 Functiond283: ; d283 ld c, 20 ld a, e cp TMsHMsEnd % $100 jr nz, .asm_d28e ld a, d cp TMsHMsEnd / $100 ret z .asm_d28e ld c, 50 ld a, e cp BallsEnd % $100 jr nz, .asm_d299 ld a, d cp BallsEnd / $100 ret z .asm_d299 ld c, $c ret ; d29c Functiond29c: ; d29c ld d, h ld e, l inc hl ld a, [CurItem] ld c, a ld b, 0 .asm_d2a5 ld a, [hli] cp $ff jr z, .asm_d2bd cp c jr nz, .asm_d2ba ld a, $63 sub [hl] add b ld b, a ld a, [$d10c] cp b jr z, .asm_d2c6 jr c, .asm_d2c6 .asm_d2ba inc hl jr .asm_d2a5 .asm_d2bd call Functiond283 ld a, [de] cp c jr c, .asm_d2c6 and a ret .asm_d2c6 ld h, d ld l, e ld a, [CurItem] ld c, a ld a, [$d10c] ld [$d10d], a .asm_d2d2 inc hl ld a, [hli] cp $ff jr z, .asm_d2ef cp c jr nz, .asm_d2d2 ld a, [$d10d] add [hl] cp $64 jr nc, .asm_d2e6 ld [hl], a jr .asm_d2fd .asm_d2e6 ld [hl], $63 sub $63 ld [$d10d], a jr .asm_d2d2 .asm_d2ef dec hl ld a, [CurItem] ld [hli], a ld a, [$d10d] ld [hli], a ld [hl], $ff ld h, d ld l, e inc [hl] .asm_d2fd scf ret ; d2ff Functiond2ff: ; d2ff ld d, h ld e, l ld a, [hli] ld c, a ld a, [$d107] cp c jr nc, .asm_d318 ld c, a ld b, $0 add hl, bc add hl, bc ld a, [CurItem] cp [hl] inc hl jr z, .asm_d327 ld h, d ld l, e inc hl .asm_d318 ld a, [CurItem] ld b, a .asm_d31c ld a, [hli] cp b jr z, .asm_d327 cp $ff jr z, .asm_d347 inc hl jr .asm_d31c .asm_d327 ld a, [$d10c] ld b, a ld a, [hl] sub b jr c, .asm_d347 ld [hl], a ld [$d10d], a and a jr nz, .asm_d345 dec hl ld b, h ld c, l inc hl inc hl .asm_d33b ld a, [hli] ld [bc], a inc bc cp $ff jr nz, .asm_d33b ld h, d ld l, e dec [hl] .asm_d345 scf ret .asm_d347 and a ret ; d349 Functiond349: ; d349 ld a, [CurItem] ld c, a .asm_d34d inc hl ld a, [hli] cp $ff jr z, .asm_d358 cp c jr nz, .asm_d34d scf ret .asm_d358 and a ret ; d35a Functiond35a: ; d35a ld hl, NumKeyItems ld a, [hli] cp $19 jr nc, .asm_d372 ld c, a ld b, $0 add hl, bc ld a, [CurItem] ld [hli], a ld [hl], $ff ld hl, NumKeyItems inc [hl] scf ret .asm_d372 and a ret ; d374 Functiond374: ; d374 ld a, [$d107] ld e, a ld d, $0 ld hl, NumKeyItems ld a, [hl] cp e jr nc, .asm_d387 call Functiond396 ret nc jr .asm_d38a .asm_d387 dec [hl] inc hl add hl, de .asm_d38a ld d, h ld e, l inc hl .asm_d38d ld a, [hli] ld [de], a inc de cp $ff jr nz, .asm_d38d scf ret ; d396 Functiond396: ; d396 ld hl, NumKeyItems ld a, [CurItem] ld c, a .asm_d39d inc hl ld a, [hl] cp c jr z, .asm_d3a8 cp $ff jr nz, .asm_d39d xor a ret .asm_d3a8 ld a, [NumKeyItems] dec a ld [NumKeyItems], a scf ret ; d3b1 Functiond3b1: ; d3b1 ld a, [CurItem] ld c, a ld hl, KeyItems .asm_d3b8 ld a, [hli] cp c jr z, .asm_d3c2 cp $ff jr nz, .asm_d3b8 and a ret .asm_d3c2 scf ret ; d3c4 Functiond3c4: ; d3c4 dec c ld b, $0 ld hl, TMsHMs add hl, bc ld a, [$d10c] add [hl] cp $64 jr nc, .asm_d3d6 ld [hl], a scf ret .asm_d3d6 and a ret ; d3d8 Functiond3d8: ; d3d8 dec c ld b, $0 ld hl, TMsHMs add hl, bc ld a, [$d10c] ld b, a ld a, [hl] sub b jr c, .asm_d3f9 ld [hl], a ld [$d10d], a jr nz, .asm_d3f7 ld a, [$d0e2] and a jr z, .asm_d3f7 dec a ld [$d0e2], a .asm_d3f7 scf ret .asm_d3f9 and a ret ; d3fb Functiond3fb: ; d3fb dec c ld b, $0 ld hl, TMsHMs add hl, bc ld a, [hl] and a ret z scf ret ; d407 GetTMHMNumber: ; d407 ; Return the number of a TM/HM by item id c. ld a, c ; Skip any dummy items. cp $c3 ; TM04-05 jr c, .done cp $dc ; TM28-29 jr c, .skip dec a .skip dec a .done sub TM_01 inc a ld c, a ret ; d417 GetNumberedTMHM: ; d417 ; Return the item id of a TM/HM by number c. ld a, c ; Skip any gaps. cp 5 jr c, .done cp 29 jr c, .skip inc a .skip inc a .done add TM_01 dec a ld c, a ret ; d427 _CheckTossableItem: ; d427 ; Return 1 in $d142 and carry if CurItem can't be removed from the bag. ld a, 4 call GetItemAttr bit 7, a jr nz, Function0xd47f and a ret ; d432 CheckSelectableItem: ; d432 ; Return 1 in $d142 and carry if CurItem can't be selected. ld a, 4 call GetItemAttr bit 6, a jr nz, Function0xd47f and a ret ; d43d CheckItemPocket: ; d43d ; Return the pocket for CurItem in $d142. ld a, 5 call GetItemAttr and $f ld [$d142], a ret ; d448 CheckItemContext: ; d448 ; Return the context for CurItem in $d142. ld a, 6 call GetItemAttr and $f ld [$d142], a ret ; d453 CheckItemMenu: ; d453 ; Return the menu for CurItem in $d142. ld a, 6 call GetItemAttr swap a and $f ld [$d142], a ret ; d460 GetItemAttr: ; d460 ; Get attribute a of CurItem. push hl push bc ld hl, ItemAttributes ld c, a ld b, 0 add hl, bc xor a ld [$d142], a ld a, [CurItem] dec a ld c, a ld a, 7 call AddNTimes ld a, BANK(ItemAttributes) call GetFarByte pop bc pop hl ret ; d47f Function0xd47f: ; d47f ld a, 1 ld [$d142], a scf ret ; d486 GetItemPrice: ; d486 ; Return the price of CurItem in de. push hl push bc ld a, $0 call GetItemAttr ld e, a ld a, $1 call GetItemAttr ld d, a pop bc pop hl ret ; d497 ; no known jump sources Functiond497: ; d497 (3:5497) ld a, [$d150] and a ret z bit 7, a jr nz, .asm_d4a9 bit 6, a jr nz, .asm_d4b3 bit 5, a jr nz, .asm_d4b8 ret .asm_d4a9 ld a, $4 ld [$d13f], a call Functiond536 jr .asm_d4b8 .asm_d4b3 call Functiond511 jr .asm_d4b8 .asm_d4b8 call Functiond4e5 ld a, [$d14e] ld d, a ld a, [$d14f] ld e, a ld a, [$d14c] sub d ld [$d14c], a ld a, [$d14d] sub e ld [$d14d], a ret ; no known jump sources Functiond4d2: ; d4d2 (3:54d2) ld a, [$d14e] ld d, a ld a, [$d14f] ld e, a ld a, [hSCX] ; $ff00+$cf add d ld [hSCX], a ; $ff00+$cf ld a, [hSCY] ; $ff00+$d0 add e ld [hSCY], a ; $ff00+$d0 ret ; known jump sources: d4b8 (3:54b8) Functiond4e5: ; d4e5 (3:54e5) ld hl, $d13f ld a, [hl] and a ret z dec [hl] ld a, [hl] ld hl, $54f2 rst $28 ret ; no known jump sources Jumptable_d4f2: ; d4f2 (3:54f2) dw Function2914 dw Function2879 dw Functiond509 dw Functiond510 dw Functiond508 dw Functiond508 dw Functiond508 dw Functiond508 dw Functiond508 dw Functiond508 dw Functiond508 ; no known jump sources Functiond508: ; d508 (3:5508) ret ; no known jump sources Functiond509: ; d509 (3:5509) callba Function10602e ret ; no known jump sources Functiond510: ; d510 (3:5510) ret ; known jump sources: d4b3 (3:54b3) Functiond511: ; d511 (3:5511) ld a, [$d151] and a jr nz, .asm_d51c ld hl, YCoord ; $dcb7 inc [hl] ret .asm_d51c cp $1 jr nz, .asm_d525 ld hl, YCoord ; $dcb7 dec [hl] ret .asm_d525 cp $2 jr nz, .asm_d52e ld hl, XCoord ; $dcb8 dec [hl] ret .asm_d52e cp $3 ret nz ld hl, XCoord ; $dcb8 inc [hl] ret ; known jump sources: d4ae (3:54ae) Functiond536: ; d536 (3:5536) ld a, [$d151] and a jr z, .asm_d549 cp $1 jr z, .asm_d553 cp $2 jr z, .asm_d55d cp $3 jr z, .asm_d567 ret .asm_d549 call Functiond571 call Function217a call Function2748 ret .asm_d553 call Functiond5a2 call Function217a call Function272a ret .asm_d55d call Functiond5d5 call Function217a call Function2771 ret .asm_d567 call Functiond5fe call Function217a call Function278f ret ; known jump sources: d549 (3:5549) Functiond571: ; d571 (3:5571) ld a, [$d152] add $40 ld [$d152], a jr nc, .asm_d586 ld a, [$d153] inc a and $3 or $98 ld [$d153], a .asm_d586 ld hl, $d196 inc [hl] ld a, [hl] cp $2 jr nz, .asm_d594 ld [hl], $0 call Functiond595 .asm_d594 ret ; known jump sources: d591 (3:5591) Functiond595: ; d595 (3:5595) ld hl, $d194 ld a, [MapWidth] add $6 add [hl] ld [hli], a ret nc inc [hl] ret ; known jump sources: d553 (3:5553) Functiond5a2: ; d5a2 (3:55a2) ld a, [$d152] sub $40 ld [$d152], a jr nc, .asm_d5b7 ld a, [$d153] dec a and $3 or $98 ld [$d153], a .asm_d5b7 ld hl, $d196 dec [hl] ld a, [hl] cp $ff jr nz, .asm_d5c5 ld [hl], $1 call Functiond5c6 .asm_d5c5 ret ; known jump sources: d5c2 (3:55c2) Functiond5c6: ; d5c6 (3:55c6) ld hl, $d194 ld a, [MapWidth] add $6 ld b, a ld a, [hl] sub b ld [hli], a ret nc dec [hl] ret ; known jump sources: d55d (3:555d) Functiond5d5: ; d5d5 (3:55d5) ld a, [$d152] ld e, a and $e0 ld d, a ld a, e sub $2 and $1f or d ld [$d152], a ld hl, $d197 dec [hl] ld a, [hl] cp $ff jr nz, .asm_d5f3 ld [hl], $1 call Functiond5f4 .asm_d5f3 ret ; known jump sources: d5f0 (3:55f0) Functiond5f4: ; d5f4 (3:55f4) ld hl, $d194 ld a, [hl] sub $1 ld [hli], a ret nc dec [hl] ret ; known jump sources: d567 (3:5567) Functiond5fe: ; d5fe (3:55fe) ld a, [$d152] ld e, a and $e0 ld d, a ld a, e add $2 and $1f or d ld [$d152], a ld hl, $d197 inc [hl] ld a, [hl] cp $2 jr nz, .asm_d61c ld [hl], $0 call Functiond61d .asm_d61c ret ; known jump sources: d619 (3:5619) Functiond61d: ; d61d (3:561d) ld hl, $d194 ld a, [hl] add $1 ld [hli], a ret nc inc [hl] ret Functiond627: ; d627 call Functiond65f jr c, .asm_d645 call Functiond670 .asm_d62f push bc push hl call Functiond6e2 pop hl pop bc push af push bc push hl call Functiond730 call Functiond7c9 pop hl pop bc pop af jr nc, .asm_d62f ret .asm_d645 call Functiond670 .asm_d648 push bc push hl call Functiond6f5 pop hl pop bc ret c push af push bc push hl call Functiond749 call Functiond7c9 pop hl pop bc pop af jr nc, .asm_d648 ret ; d65f Functiond65f: ; d65f ld a, [Buffer2] and a jr nz, .asm_d66e ld a, [Buffer1] cp $30 jr nc, .asm_d66e and a ret .asm_d66e scf ret ; d670 Functiond670: ; d670 push hl ld hl, Buffer1 ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] ld c, a ld a, [hli] ld b, a pop hl call Functionc699 ld a, e ld [$d1f1], a ld a, [$d1ee] ld c, a ld a, [$d1ef] ld b, a ld a, [Buffer1] ld e, a ld a, [Buffer2] ld d, a call Functionc699 ld a, e ld [$d1f2], a push hl ld hl, $d1ec ld a, [hli] ld c, a ld a, [hli] ld b, a ld a, [hli] ld e, a ld a, [hli] ld d, a pop hl ld a, e sub c ld e, a ld a, d sbc b ld d, a jr c, .asm_d6c1 ld a, [$d1ec] ld [$d1f5], a ld a, [$d1ee] ld [$d1f6], a ld bc, $0001 jr .asm_d6d9 .asm_d6c1 ld a, [$d1ec] ld [$d1f6], a ld a, [$d1ee] ld [$d1f5], a ld a, e xor $ff inc a ld e, a ld a, d xor $ff ld d, a ld bc, rIE .asm_d6d9 ld a, d ld [$d1f3], a ld a, e ld [$d1f4], a ret ; d6e2 Functiond6e2: ; d6e2 ld hl, $d1f1 ld a, [$d1f2] cp [hl] jr nz, .asm_d6ed scf ret .asm_d6ed ld a, c add [hl] ld [hl], a call Functiond839 and a ret ; d6f5 Functiond6f5: ; d6f5 .asm_d6f5 ld hl, $d1ec ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, e cp [hl] jr nz, .asm_d707 inc hl ld a, d cp [hl] jr nz, .asm_d707 scf ret .asm_d707 ld l, e ld h, d add hl, bc ld a, l ld [$d1ec], a ld a, h ld [$d1ed], a push hl push de push bc ld hl, Buffer1 ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] ld c, a ld a, [hli] ld b, a call Functionc699 pop bc pop de pop hl ld a, e ld hl, $d1f1 cp [hl] jr z, .asm_d6f5 ld [hl], a and a ret ; d730 Functiond730: ; d730 call Functiond784 ld d, $6 ld a, [$d10a] and $1 ld b, a ld a, [$d1f1] ld e, a ld c, a push de call Functiond771 pop de call Functiond7b4 ret ; d749 Functiond749: ; d749 call Functiond784 ld a, [$d1ec] ld c, a ld a, [$d1ed] ld b, a ld a, [Buffer1] ld e, a ld a, [Buffer2] ld d, a call Functionc699 ld c, e ld d, $6 ld a, [$d10a] and $1 ld b, a push de call Functiond771 pop de call Functiond7b4 ret ; d771 Functiond771: ; d771 ld a, [$d10a] cp $2 jr nz, .asm_d780 ld a, $28 add l ld l, a ld a, $0 adc h ld h, a .asm_d780 call DrawHPBar ret ; d784 Functiond784: ; d784 ld a, [$d10a] and a ret z cp $1 jr z, .asm_d792 ld de, $0016 jr .asm_d795 .asm_d792 ld de, $0015 .asm_d795 push hl add hl, de ld a, $7f ld [hli], a ld [hli], a ld [hld], a dec hl ld a, [$d1ec] ld [$d087], a ld a, [$d1ed] ld [StringBuffer2], a ld de, StringBuffer2 ld bc, $0203 call PrintNum pop hl ret ; d7b4 Functiond7b4: ; d7b4 ld a, [hCGB] and a ret z ld hl, $d1f0 call SetHPPal ld a, [$d1f0] ld c, a callba Function8c43 ret ; d7c9 Functiond7c9: ; d7c9 ld a, [hCGB] and a jr nz, .asm_d7d5 call DelayFrame call DelayFrame ret .asm_d7d5 ld a, [$d10a] and a jr z, .asm_d829 cp $1 jr z, .asm_d82d ld a, [CurPartyMon] cp $3 jr nc, .asm_d7ea ld c, $0 jr .asm_d7ec .asm_d7ea ld c, $1 .asm_d7ec push af cp $2 jr z, .asm_d7ff cp $5 jr z, .asm_d7ff ld a, $2 ld [hBGMapMode], a ld a, c ld [hBGMapThird], a call DelayFrame .asm_d7ff ld a, $1 ld [hBGMapMode], a ld a, c ld [hBGMapThird], a call DelayFrame pop af cp $2 jr z, .asm_d813 cp $5 jr z, .asm_d813 ret .asm_d813 inc c ld a, $2 ld [hBGMapMode], a ld a, c ld [hBGMapThird], a call DelayFrame ld a, $1 ld [hBGMapMode], a ld a, c ld [hBGMapThird], a call DelayFrame ret .asm_d829 ld c, $0 jr .asm_d82f .asm_d82d ld c, $1 .asm_d82f call DelayFrame ld a, c ld [hBGMapThird], a call DelayFrame ret ; d839 Functiond839: ; d839 ld a, [Buffer1] ld c, a ld b, $0 ld hl, $0000 ld a, [$d1f1] cp $30 jr nc, .asm_d885 and a jr z, .asm_d880 call AddNTimes ld b, $0 .asm_d851 ld a, l sub $30 ld l, a ld a, h sbc $0 ld h, a jr c, .asm_d85e inc b jr .asm_d851 .asm_d85e push bc ld bc, $0080 add hl, bc pop bc ld a, l sub $30 ld l, a ld a, h sbc $0 ld h, a jr c, .asm_d86f inc b .asm_d86f ld a, [$d1f5] cp b jr nc, .asm_d87c ld a, [$d1f6] cp b jr c, .asm_d87c ld a, b .asm_d87c ld [$d1ec], a ret .asm_d880 xor a ld [$d1ec], a ret .asm_d885 ld a, [Buffer1] ld [$d1ec], a ret ; d88c Functiond88c: ; d88c ld de, PartyCount ld a, [MonType] and $f jr z, .asm_d899 ld de, OTPartyCount .asm_d899 ld a, [de] inc a cp $7 ret nc ld [de], a ld a, [de] ld [$ffae], a add e ld e, a jr nc, .asm_d8a7 inc d .asm_d8a7 ld a, [CurPartySpecies] ld [de], a inc de ld a, $ff ld [de], a ld hl, PartyMon1OT ld a, [MonType] and $f jr z, .asm_d8bc ld hl, OTPartyMon1OT .asm_d8bc ld a, [$ffae] dec a call SkipNames ld d, h ld e, l ld hl, PlayerName ld bc, $000b call CopyBytes ld a, [MonType] and a jr nz, .asm_d8f0 ld a, [CurPartySpecies] ld [$d265], a call GetPokemonName ld hl, PartyMon1Nickname ld a, [$ffae] dec a call SkipNames ld d, h ld e, l ld hl, StringBuffer1 ld bc, $000b call CopyBytes .asm_d8f0 ld hl, PartyMon1Species ld a, [MonType] and $f jr z, .asm_d8fd ld hl, OTPartyMon1Species .asm_d8fd ld a, [$ffae] dec a ld bc, $0030 call AddNTimes Functiond906: ; d906 ld e, l ld d, h push hl ld a, [CurPartySpecies] ld [CurSpecies], a call GetBaseData ld a, [BaseDexNo] ld [de], a inc de ld a, [IsInBattle] and a ld a, $0 jr z, .asm_d922 ld a, [EnemyMonItem] .asm_d922 ld [de], a inc de push de ld h, d ld l, e ld a, [IsInBattle] and a jr z, .asm_d943 ld a, [MonType] and a jr nz, .asm_d943 ld de, EnemyMonMove1 ld a, [de] inc de ld [hli], a ld a, [de] inc de ld [hli], a ld a, [de] inc de ld [hli], a ld a, [de] ld [hl], a jr .asm_d950 .asm_d943 xor a ld [hli], a ld [hli], a ld [hli], a ld [hl], a ld [MagikarpLength], a ld a, $1b call Predef .asm_d950 pop de inc de inc de inc de inc de ld a, [PlayerID] ld [de], a inc de ld a, [$d47c] ld [de], a inc de push de ld a, [CurPartyLevel] ld d, a callab Function50e47 pop de ld a, [hMultiplicand] ld [de], a inc de ld a, [$ffb5] ld [de], a inc de ld a, [$ffb6] ld [de], a inc de xor a ld b, $a .asm_d97a ld [de], a inc de dec b jr nz, .asm_d97a pop hl push hl ld a, [MonType] and $f jr z, .asm_d992 push hl callba GetTrainerDVs pop hl jr .asm_d9b5 .asm_d992 ld a, [CurPartySpecies] ld [$d265], a dec a push de call CheckCaughtMon ld a, [$d265] dec a call SetSeenAndCaughtMon pop de pop hl push hl ld a, [IsInBattle] and a jr nz, .asm_d9f3 call Random ld b, a call Random ld c, a .asm_d9b5 ld a, b ld [de], a inc de ld a, c ld [de], a inc de push hl push de inc hl inc hl call FillPP pop de pop hl inc de inc de inc de inc de ld a, $46 ld [de], a inc de xor a ld [de], a inc de ld [de], a inc de ld [de], a inc de ld a, [CurPartyLevel] ld [de], a inc de xor a ld [de], a inc de ld [de], a inc de ld bc, $000a add hl, bc ld a, $1 ld c, a ld b, $0 call Functione17b ld a, [$ffb5] ld [de], a inc de ld a, [$ffb6] ld [de], a inc de jr .asm_da29 .asm_d9f3 ld a, [EnemyMonAtkDefDV] ld [de], a inc de ld a, [EnemyMonSpdSpclDV] ld [de], a inc de push hl ld hl, EnemyMonPPMove1 ld b, $4 .asm_da03 ld a, [hli] ld [de], a inc de dec b jr nz, .asm_da03 pop hl ld a, $46 ld [de], a inc de xor a ld [de], a inc de ld [de], a inc de ld [de], a inc de ld a, [CurPartyLevel] ld [de], a inc de ld hl, EnemyMonStatus ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a inc de .asm_da29 ld a, [IsInBattle] dec a jr nz, .asm_da3b ld hl, EnemyMonMaxHPHi ld bc, $000c call CopyBytes pop hl jr .asm_da45 .asm_da3b pop hl ld bc, $000a add hl, bc ld b, $0 call Functione167 .asm_da45 ld a, [MonType] and $f jr nz, .asm_da6b ld a, [CurPartySpecies] cp $c9 jr nz, .asm_da6b ld hl, PartyMon1DVs ld a, [PartyCount] dec a ld bc, $0030 call AddNTimes ld a, $2d call Predef callab Functionfba18 .asm_da6b scf ret ; da6d FillPP: ; da6d push bc ld b, $4 .asm_da70 ld a, [hli] and a jr z, .asm_da8f dec a push hl push de push bc ld hl, $5afb ld bc, $0007 call AddNTimes ld de, StringBuffer1 ld a, $10 call FarCopyBytes pop bc pop de pop hl ld a, [$d078] .asm_da8f ld [de], a inc de dec b jr nz, .asm_da70 pop bc ret ; da96 Functionda96: ; da96 ld hl, PartyCount ld a, [hl] cp $6 scf ret z inc a ld [hl], a ld c, a ld b, $0 add hl, bc ld a, [CurPartySpecies] ld [hli], a ld [hl], $ff ld hl, PartyMon1Species ld a, [PartyCount] dec a ld bc, $0030 call AddNTimes ld e, l ld d, h ld hl, TempMonSpecies call CopyBytes ld hl, PartyMon1OT ld a, [PartyCount] dec a call SkipNames ld d, h ld e, l ld hl, OTPartyMon1OT ld a, [CurPartyMon] call SkipNames ld bc, $000b call CopyBytes ld hl, PartyMon1Nickname ld a, [PartyCount] dec a call SkipNames ld d, h ld e, l ld hl, OTPartyMon1Nickname ld a, [CurPartyMon] call SkipNames ld bc, $000b call CopyBytes ld a, [CurPartySpecies] ld [$d265], a cp $fd jr z, .asm_db12 dec a call SetSeenAndCaughtMon ld hl, PartyMon1Happiness ld a, [PartyCount] dec a ld bc, $0030 call AddNTimes ld [hl], $46 .asm_db12 ld a, [CurPartySpecies] cp $c9 jr nz, .asm_db3d ld hl, PartyMon1DVs ld a, [PartyCount] dec a ld bc, $0030 call AddNTimes ld a, $2d call Predef callab Functionfba18 ld a, [$def4] and a jr nz, .asm_db3d ld a, [UnownLetter] ld [$def4], a .asm_db3d and a ret ; db3f Functiondb3f: ; db3f ld a, $1 call GetSRAMBank ld a, [$d10b] and a jr z, .asm_db60 cp $2 jr z, .asm_db60 cp $3 ld hl, BreedMon1Species jr z, .asm_db9b ld hl, BoxCount ld a, [hl] cp $14 jr nz, .asm_db69 jp Functiondcb1 .asm_db60 ld hl, PartyCount ld a, [hl] cp $6 jp z, Functiondcb1 .asm_db69 inc a ld [hl], a ld c, a ld b, $0 add hl, bc ld a, [$d10b] cp $2 ld a, [BreedMon1Species] jr z, .asm_db7c ld a, [CurPartySpecies] .asm_db7c ld [hli], a ld [hl], $ff ld a, [$d10b] dec a ld hl, PartyMon1Species ld bc, $0030 ld a, [PartyCount] jr nz, .asm_db97 ld hl, BoxMon1Species ld bc, $0020 ld a, [BoxCount] .asm_db97 dec a call AddNTimes .asm_db9b push hl ld e, l ld d, h ld a, [$d10b] and a ld hl, BoxMon1Species ld bc, $0020 jr z, .asm_dbb7 cp $2 ld hl, BreedMon1Species jr z, .asm_dbbd ld hl, PartyMon1Species ld bc, $0030 .asm_dbb7 ld a, [CurPartyMon] call AddNTimes .asm_dbbd ld bc, $0020 call CopyBytes ld a, [$d10b] cp $3 ld de, BreedMon1OT jr z, .asm_dbe2 dec a ld hl, PartyMon1OT ld a, [PartyCount] jr nz, .asm_dbdc ld hl, BoxMon1OT ld a, [BoxCount] .asm_dbdc dec a call SkipNames ld d, h ld e, l .asm_dbe2 ld hl, BoxMon1OT ld a, [$d10b] and a jr z, .asm_dbf5 ld hl, BreedMon1OT cp $2 jr z, .asm_dbfb ld hl, PartyMon1OT .asm_dbf5 ld a, [CurPartyMon] call SkipNames .asm_dbfb ld bc, $000b call CopyBytes ld a, [$d10b] cp $3 ld de, BreedMon1Nick jr z, .asm_dc20 dec a ld hl, PartyMon1Nickname ld a, [PartyCount] jr nz, .asm_dc1a ld hl, BoxMon1Nickname ld a, [BoxCount] .asm_dc1a dec a call SkipNames ld d, h ld e, l .asm_dc20 ld hl, BoxMon1Nickname ld a, [$d10b] and a jr z, .asm_dc33 ld hl, BreedMon1Nick cp $2 jr z, .asm_dc39 ld hl, PartyMon1Nickname .asm_dc33 ld a, [CurPartyMon] call SkipNames .asm_dc39 ld bc, $000b call CopyBytes pop hl ld a, [$d10b] cp $1 jr z, .asm_dca4 cp $3 jp z, .asm_dcac push hl srl a add $2 ld [MonType], a ld a, $1f call Predef callab Function50e1b ld a, d ld [CurPartyLevel], a pop hl ld b, h ld c, l ld hl, $001f add hl, bc ld [hl], a ld hl, $0024 add hl, bc ld d, h ld e, l ld hl, $000a add hl, bc push bc ld b, $1 call Functione167 pop bc ld a, [$d10b] and a jr nz, .asm_dcac ld hl, $0020 add hl, bc xor a ld [hl], a ld hl, $0022 add hl, bc ld d, h ld e, l ld a, [CurPartySpecies] cp $fd jr z, .asm_dc9e inc hl inc hl ld a, [hli] ld [de], a ld a, [hl] inc de ld [de], a jr .asm_dcac .asm_dc9e xor a ld [de], a inc de ld [de], a jr .asm_dcac .asm_dca4 ld a, [BoxCount] dec a ld b, a call Functiondcb6 .asm_dcac call CloseSRAM and a ret ; dcb1 Functiondcb1: ; dcb1 call CloseSRAM scf ret ; dcb6 Functiondcb6: ; dcb6 ld a, b ld hl, BoxMons ld bc, BoxMon2 - BoxMon1 call AddNTimes ld b, h ld c, l ld hl, BoxMon1PP - BoxMon1 add hl, bc push hl push bc ld de, TempMonPP ld bc, NUM_MOVES call CopyBytes pop bc ld hl, BoxMon1Moves - BoxMon1 add hl, bc push hl ld de, TempMonMoves ld bc, NUM_MOVES call CopyBytes pop hl pop de ld a, [$cfa9] push af ld a, [MonType] push af ld b, 0 .asm_dcec ld a, [hli] and a jr z, .asm_dd18 ld [TempMonMove1], a ld a, BOXMON ld [MonType], a ld a, b ld [$cfa9], a push bc push hl push de callba Functionf8ec pop de pop hl ld a, [$d265] ld b, a ld a, [de] and $c0 add b ld [de], a pop bc inc de inc b ld a, b cp NUM_MOVES jr c, .asm_dcec .asm_dd18 pop af ld [MonType], a pop af ld [$cfa9], a ret ; dd21 Functiondd21: ; dd21 ld a, [BreedMon1Species] ld [CurPartySpecies], a ld de, $0022 call PlaySFX call WaitSFX call Functione698 ld a, b ld [DefaultFlypoint], a ld a, e ld [CurPartyLevel], a xor a ld [$d10b], a jp Functiondd64 ; dd42 Functiondd42: ; dd42 ld a, [BreedMon2Species] ld [CurPartySpecies], a ld de, $0022 call PlaySFX call WaitSFX call Functione6b3 ld a, b ld [DefaultFlypoint], a ld a, e ld [CurPartyLevel], a ld a, $1 ld [$d10b], a jp Functiondd64 ; dd64 Functiondd64: ; dd64 ld hl, PartyCount ld a, [hl] cp $6 jr nz, .asm_dd6e scf ret .asm_dd6e inc a ld [hl], a ld c, a ld b, $0 add hl, bc ld a, [$d10b] and a ld a, [BreedMon1Species] ld de, BreedMon1Nick jr z, .asm_dd86 ld a, [BreedMon2Species] ld de, BreedMon2Nick .asm_dd86 ld [hli], a ld [CurSpecies], a ld a, $ff ld [hl], a ld hl, PartyMon1Nickname ld a, [PartyCount] dec a call SkipNames push hl ld h, d ld l, e pop de call CopyBytes push hl ld hl, PartyMon1OT ld a, [PartyCount] dec a call SkipNames ld d, h ld e, l pop hl call CopyBytes push hl call Functionde1a pop hl ld bc, $0020 call CopyBytes call GetBaseData call Functionde1a ld b, d ld c, e ld hl, $001f add hl, bc ld a, [CurPartyLevel] ld [hl], a ld hl, $0024 add hl, bc ld d, h ld e, l ld hl, $000a add hl, bc push bc ld b, $1 call Functione167 ld hl, PartyMon1Move1 ld a, [PartyCount] dec a ld bc, $0030 call AddNTimes ld d, h ld e, l ld a, $1 ld [Buffer1], a ld a, $1b call Predef ld a, [PartyCount] dec a ld [CurPartyMon], a callba Functionc677 ld a, [CurPartyLevel] ld d, a callab Function50e47 pop bc ld hl, $0008 add hl, bc ld a, [hMultiplicand] ld [hli], a ld a, [$ffb5] ld [hli], a ld a, [$ffb6] ld [hl], a and a ret ; de1a Functionde1a: ; de1a ld a, [PartyCount] dec a ld hl, PartyMon1Species ld bc, $0030 call AddNTimes ld d, h ld e, l ret ; de2a Functionde2a: ; de2a ld de, BreedMon1Nick call Functionde44 xor a ld [$d10b], a jp Functione039 ; de37 Functionde37: ; de37 ld de, BreedMon2Nick call Functionde44 xor a ld [$d10b], a jp Functione039 ; de44 Functionde44: ; de44 ld a, [CurPartyMon] ld hl, PartyMon1Nickname call SkipNames call CopyBytes ld a, [CurPartyMon] ld hl, PartyMon1OT call SkipNames call CopyBytes ld a, [CurPartyMon] ld hl, PartyMon1Species ld bc, $0030 call AddNTimes ld bc, $0020 jp CopyBytes ; de6e Functionde6e: ; de6e ld a, 1 ; BANK(BoxCount) call GetSRAMBank ld de, BoxCount ld a, [de] cp 20 jp nc, Functiondf42 inc a ld [de], a ld a, [CurPartySpecies] ld [CurSpecies], a ld c, a .asm_de85 inc de ld a, [de] ld b, a ld a, c ld c, b ld [de], a inc a jr nz, .asm_de85 call GetBaseData call ShiftBoxMon ld hl, PlayerName ld de, BoxMonOT ld bc, BoxMon2OT - BoxMon1OT call CopyBytes ld a, [CurPartySpecies] ld [$d265], a call GetPokemonName ld de, BoxMon1Nickname ld hl, StringBuffer1 ld bc, BoxMon2Nickname - BoxMon1Nickname call CopyBytes ld hl, EnemyMon ld de, BoxMon1 ld bc, 6 ; species + item + moves call CopyBytes ld hl, PlayerID ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a inc de push de ld a, [CurPartyLevel] ld d, a callab Function50e47 pop de ld a, [hMultiplicand] ld [de], a inc de ld a, [$ffb5] ld [de], a inc de ld a, [$ffb6] ld [de], a inc de xor a ld b, $a .asm_dee5 ld [de], a inc de dec b jr nz, .asm_dee5 ld hl, EnemyMonAtkDefDV ld b, $6 .asm_deef ld a, [hli] ld [de], a inc de dec b jr nz, .asm_deef ld a, $46 ld [de], a inc de xor a ld [de], a inc de ld [de], a inc de ld [de], a inc de ld a, [CurPartyLevel] ld [de], a ld a, [CurPartySpecies] dec a call SetSeenAndCaughtMon ld a, [CurPartySpecies] cp UNOWN jr nz, .asm_df20 ld hl, BoxMon1DVs ld a, $2d call Predef callab Functionfba18 .asm_df20 ld hl, BoxMon1Moves ld de, TempMonMove1 ld bc, NUM_MOVES call CopyBytes ld hl, BoxMon1PP ld de, TempMonPP ld bc, NUM_MOVES call CopyBytes ld b, 0 call Functiondcb6 call CloseSRAM scf ret ; df42 Functiondf42: ; df42 call CloseSRAM and a ret ; df47 ShiftBoxMon: ; df47 ld hl, BoxMonOT ld bc, BoxMon2OT - BoxMon1OT call .asm_df5f ld hl, BoxMonNicknames ld bc, BoxMon2Nickname - BoxMon1Nickname call .asm_df5f ld hl, BoxMons ld bc, BoxMon2 - BoxMon1 .asm_df5f ld a, [BoxCount] cp 2 ret c push hl call AddNTimes dec hl ld e, l ld d, h pop hl ld a, [BoxCount] dec a call AddNTimes dec hl push hl ld a, [BoxCount] dec a ld hl, 0 call AddNTimes ld c, l ld b, h pop hl .loop ld a, [hld] ld [de], a dec de dec bc ld a, c or b jr nz, .loop ret ; df8c Functiondf8c: ; df8c ld a, [CurPartySpecies] push af callab GetPreEvolution callab GetPreEvolution ld a, [CurPartySpecies] dec a push af call CheckCaughtMon pop af push bc call CheckSeenMon push bc call Functiond88c pop bc ld a, c and a jr nz, .asm_dfc3 ld a, [CurPartySpecies] dec a ld c, a ld d, $0 ld hl, PokedexCaught ld b, $0 ld a, $3 call Predef .asm_dfc3 pop bc ld a, c and a jr nz, .asm_dfd9 ld a, [CurPartySpecies] dec a ld c, a ld d, $0 ld hl, PokedexSeen ld b, $0 ld a, $3 call Predef .asm_dfd9 pop af ld [CurPartySpecies], a ld a, [PartyCount] dec a ld bc, $0030 ld hl, PartyMon1Species call AddNTimes ld a, [CurPartySpecies] ld [hl], a ld hl, PartyCount ld a, [hl] ld b, $0 ld c, a add hl, bc ld a, $fd ld [hl], a ld a, [PartyCount] dec a ld hl, PartyMon1Nickname call SkipNames ld de, $6035 call CopyName2 ld a, [PartyCount] dec a ld hl, PartyMon1Happiness ld bc, $0030 call AddNTimes ld a, [$c2cc] bit 1, a ld a, $1 jr nz, .asm_e022 ld a, [BaseEggSteps] .asm_e022 ld [hl], a ld a, [PartyCount] dec a ld hl, PartyMon1CurHP ld bc, $0030 call AddNTimes xor a ld [hli], a ld [hl], a and a ret ; e035 INCBIN "baserom.gbc",$e035,$e039 - $e035 Functione039: ; e039 ld hl, PartyCount ld a, [$d10b] and a jr z, .asm_e04a ld a, 1 ; BANK(BoxCount) call GetSRAMBank ld hl, BoxCount .asm_e04a ld a, [hl] dec a ld [hli], a ld a, [CurPartyMon] ld c, a ld b, 0 add hl, bc ld e, l ld d, h inc de .asm_e057 ld a, [de] inc de ld [hli], a inc a jr nz, .asm_e057 ld hl, PartyMon1OT ld d, $5 ld a, [$d10b] and a jr z, .asm_e06d ld hl, BoxMonOT ld d, $13 .asm_e06d ld a, [CurPartyMon] call SkipNames ld a, [CurPartyMon] cp d jr nz, .asm_e07e ld [hl], $ff jp .asm_60f0 .asm_e07e ld d, h ld e, l ld bc, $000b add hl, bc ld bc, PartyMon1Nickname ld a, [$d10b] and a jr z, .asm_e090 ld bc, BoxMonNicknames .asm_e090 call CopyDataUntil ld hl, PartyMons ld bc, PartyMon2 - PartyMon1 ld a, [$d10b] and a jr z, .asm_e0a5 ld hl, BoxMons ld bc, BoxMon2 - BoxMon1 .asm_e0a5 ld a, [CurPartyMon] call AddNTimes ld d, h ld e, l ld a, [$d10b] and a jr z, .asm_e0bc ld bc, BoxMon2 - BoxMon1 add hl, bc ld bc, BoxMonOT jr .asm_e0c3 .asm_e0bc ld bc, PartyMon2 - PartyMon1 add hl, bc ld bc, PartyMon1OT .asm_e0c3 call CopyDataUntil ld hl, PartyMon1Nickname ld a, [$d10b] and a jr z, .asm_e0d2 ld hl, BoxMonNicknames .asm_e0d2 ld bc, BoxMon2Nickname - BoxMon1Nickname ld a, [CurPartyMon] call AddNTimes ld d, h ld e, l ld bc, BoxMon2Nickname - BoxMon1Nickname add hl, bc ld bc, PartyMonNicknamesEnd ld a, [$d10b] and a jr z, .asm_e0ed ld bc, BoxMonNicknamesEnd .asm_e0ed call CopyDataUntil .asm_60f0 ld a, [$d10b] and a jp nz, CloseSRAM ld a, [InLinkBattle] and a ret nz ld a, $0 call GetSRAMBank ld hl, PartyCount ld a, [CurPartyMon] cp [hl] jr z, .asm_e131 ld hl, $a600 ld bc, $002f call AddNTimes push hl add hl, bc pop de ld a, [CurPartyMon] ld b, a .asm_e11a push bc push hl ld bc, $002f call CopyBytes pop hl push hl ld bc, $002f add hl, bc pop de pop bc inc b ld a, [PartyCount] cp b jr nz, .asm_e11a .asm_e131 jp CloseSRAM ; e134 Functione134: ; e134 ld a, $1f call GetPartyParamLocation ld a, [hl] ld [$001f], a ld a, $0 call GetPartyParamLocation ld a, [hl] ld [CurSpecies], a call GetBaseData ld a, $24 call GetPartyParamLocation ld d, h ld e, l push de ld a, $a call GetPartyParamLocation ld b, $1 call Functione167 pop de ld a, $22 call GetPartyParamLocation ld a, [de] inc de ld [hli], a ld a, [de] ld [hl], a ret ; e167 Functione167: ; e167 ld c, $0 .asm_e169 inc c call Functione17b ld a, [$ffb5] ld [de], a inc de ld a, [$ffb6] ld [de], a inc de ld a, c cp $6 jr nz, .asm_e169 ret ; e17b Functione17b: ; e17b push hl push de push bc ld a, b ld d, a push hl ld hl, BaseHP dec hl ld b, $0 add hl, bc ld a, [hl] ld e, a pop hl push hl ld a, c cp $6 jr nz, .asm_e193 dec hl dec hl .asm_e193 sla c ld a, d and a jr z, .asm_e1a5 add hl, bc push de ld a, [hld] ld e, a ld d, [hl] callba GetSquareRoot pop de .asm_e1a5 srl c pop hl push bc ld bc, $000b add hl, bc pop bc ld a, c cp $2 jr z, .asm_e1e3 cp $3 jr z, .asm_e1ea cp $4 jr z, .asm_e1ef cp $5 jr z, .asm_e1f7 cp $6 jr z, .asm_e1f7 push bc ld a, [hl] swap a and $1 add a add a add a ld b, a ld a, [hli] and $1 add a add a add b ld b, a ld a, [hl] swap a and $1 add a add b ld b, a ld a, [hl] and $1 add b pop bc jr .asm_e1fb .asm_e1e3 ld a, [hl] swap a and $f jr .asm_e1fb .asm_e1ea ld a, [hl] and $f jr .asm_e1fb .asm_e1ef inc hl ld a, [hl] swap a and $f jr .asm_e1fb .asm_e1f7 inc hl ld a, [hl] and $f .asm_e1fb ld d, $0 add e ld e, a jr nc, .asm_e202 inc d .asm_e202 sla e rl d srl b srl b ld a, b add e jr nc, .asm_e20f inc d .asm_e20f ld [$ffb6], a ld a, d ld [$ffb5], a xor a ld [hMultiplicand], a ld a, [CurPartyLevel] ld [hMultiplier], a call Multiply ld a, [hMultiplicand] ld [hProduct], a ld a, [$ffb5] ld [hMultiplicand], a ld a, [$ffb6] ld [$ffb5], a ld a, $64 ld [hMultiplier], a ld a, $3 ld b, a call Divide ld a, c cp $1 ld a, $5 jr nz, .asm_e24e ld a, [CurPartyLevel] ld b, a ld a, [$ffb6] add b ld [$ffb6], a jr nc, .asm_e24c ld a, [$ffb5] inc a ld [$ffb5], a .asm_e24c ld a, $a .asm_e24e ld b, a ld a, [$ffb6] add b ld [$ffb6], a jr nc, .asm_e25b ld a, [$ffb5] inc a ld [$ffb5], a .asm_e25b ld a, [$ffb5] cp $4 jr nc, .asm_e26b cp $3 jr c, .asm_e273 ld a, [$ffb6] cp $e8 jr c, .asm_e273 .asm_e26b ld a, $3 ld [$ffb5], a ld a, $e7 ld [$ffb6], a .asm_e273 pop bc pop de pop hl ret ; e277 Functione277: ; e277 push de push bc xor a ld [MonType], a call Functiond88c jr nc, .asm_e2b0 ld hl, PartyMon1Nickname ld a, [PartyCount] dec a ld [CurPartyMon], a call SkipNames ld d, h ld e, l pop bc ld a, b ld b, $0 push bc push de push af ld a, [CurItem] and a jr z, .asm_e2e1 ld a, [CurPartyMon] ld hl, PartyMon1Item ld bc, $0030 call AddNTimes ld a, [CurItem] ld [hl], a jr .asm_e2e1 .asm_e2b0 ld a, [CurPartySpecies] ld [TempEnemyMonSpecies], a callab LoadEnemyMon call Functionde6e jp nc, Functione3d4 ld a, $2 ld [MonType], a xor a ld [CurPartyMon], a ld de, $d050 pop bc ld a, b ld b, $1 push bc push de push af ld a, [CurItem] and a jr z, .asm_e2e1 ld a, [CurItem] ld [BoxMon1Item], a .asm_e2e1 ld a, [CurPartySpecies] ld [$d265], a ld [TempEnemyMonSpecies], a call GetPokemonName ld hl, StringBuffer1 ld de, $d050 ld bc, $000b call CopyBytes pop af and a jp z, .asm_e390 pop de pop bc pop hl push bc push hl ld a, [ScriptBank] call GetFarHalfword ld bc, $000b ld a, [ScriptBank] call FarCopyBytes pop hl inc hl inc hl ld a, [ScriptBank] call GetFarHalfword pop bc ld a, b and a push de push bc jr nz, .asm_e35e push hl ld a, [CurPartyMon] ld hl, PartyMon1OT call SkipNames ld d, h ld e, l pop hl .asm_e32f ld a, [ScriptBank] call GetFarByte ld [de], a inc hl inc de cp $50 jr nz, .asm_e32f ld a, [ScriptBank] call GetFarByte ld b, a push bc ld a, [CurPartyMon] ld hl, PartyMon1ID ld bc, $0030 call AddNTimes ld a, $3 ld [hli], a ld [hl], $e9 pop bc callba Function4dba3 jr .asm_e3b2 .asm_e35e ld a, $1 call GetSRAMBank ld de, BoxMon1OT .asm_e366 ld a, [ScriptBank] call GetFarByte ld [de], a inc hl inc de cp $50 jr nz, .asm_e366 ld a, [ScriptBank] call GetFarByte ld b, a ld hl, BoxMon1ID call Random ld [hli], a call Random ld [hl], a call CloseSRAM callba Function4db92 jr .asm_e3b2 .asm_e390 pop de pop bc push bc push de ld a, b and a jr z, .asm_e3a0 callba Function4db83 jr .asm_e3a6 .asm_e3a0 callba Function4db49 .asm_e3a6 callba Function4db3b pop de jr c, .asm_e3b2 call Functione3de .asm_e3b2 pop bc pop de ld a, b and a ret z ld hl, $63d9 call PrintText ld a, $1 call GetSRAMBank ld hl, $d050 ld de, BoxMon1Nickname ld bc, $000b call CopyBytes call CloseSRAM ld b, $1 ret ; e3d4 Functione3d4: ; e3d4 pop bc pop de ld b, $2 ret ; e3d9 INCBIN "baserom.gbc",$e3d9,$e3de - $e3d9 Functione3de: ; e3de push de call Function1d6e call Function2ed3 pop de push de ld b, $0 callba Function116c1 pop hl ld de, StringBuffer1 call InitName ld a, $4 ld hl, Function2b4d rst FarCall ret ; e3fd Functione3fd: ; e3fd call Functione40a ret c call Functione41c call Functione443 jp Functione43f ; known jump sources: e3fd (3:63fd) Functione40a: ; e40a (3:640a) ld a, [PartyCount] ; $dcd7 and a ret nz ld hl, $6417 call Function1d67 scf ret ; e417 (3:6417) INCBIN "baserom.gbc",$e417,$e41c - $e417 ; known jump sources: e401 (3:6401) Functione41c: ; e41c (3:641c) xor a ld [hBGMapMode], a ; $ff00+$d4 call Function1d6e call ClearPCItemScreen ld hl, Options ; $cfcc ld a, [hl] push af set 4, [hl] ld hl, $643a call PrintText pop af ld [Options], a ; $cfcc call Functione58 ret ; e43a (3:643a) INCBIN "baserom.gbc",$e43a,$e43f - $e43a ; known jump sources: e407 (3:6407) Functione43f: ; e43f (3:643f) call Function2b3c ret ; known jump sources: e404 (3:6404) Functione443: ; e443 (3:6443) ld hl, $646f call LoadMenuDataHeader ld a, $1 .asm_e44b ld [$cf88], a call Function32f9 xor a ld [$cf76], a ld [hBGMapMode], a ; $ff00+$d4 call Function1e5d jr c, .asm_e46b ld a, [$cf88] push af ld a, [MenuSelection] ; $cf74 ld hl, $64ba rst $28 pop bc ld a, b jr nc, .asm_e44b .asm_e46b call Function1c17 ret ; e46f (3:646f) INCBIN "baserom.gbc",$e46f,$e4ba - $e46f ; no known jump sources Jumptable_e4ba: ; e4ba (3:64ba) dw Functione559 dw Functione4fe dw Functione583 INCBIN "baserom.gbc",$e4c0,$e4fe - $e4c0 ; no known jump sources Functione4fe: ; e4fe (3:64fe) call Function1d6e callba Functione2391 call Function222a call ClearPCItemScreen call Function1c17 and a ret ; e512 (3:6512) INCBIN "baserom.gbc",$e512,$e538 - $e512 Functione538: ; e538 ld hl, PartyMon1CurHP ld de, $0030 ld b, $0 .asm_e540 ld a, [CurPartyMon] cp b jr z, .asm_e54b ld a, [hli] or [hl] jr nz, .asm_e557 dec hl .asm_e54b inc b ld a, [PartyCount] cp b jr z, .asm_e555 add hl, de jr .asm_e540 .asm_e555 scf ret .asm_e557 and a ret ; e559 ; no known jump sources Functione559: ; e559 (3:6559) call Function1d6e callba Functione2583 call Function222a call ClearPCItemScreen call Function1c17 and a ret ; e56d (3:656d) INCBIN "baserom.gbc",$e56d,$e583 - $e56d ; no known jump sources Functione583: ; e583 (3:6583) callba Functione35aa and a ret ClearPCItemScreen: ; e58b call Function2ed3 xor a ld [hBGMapMode], a call WhiteBGMap call ClearSprites ld hl, TileMap ld bc, 18 * 20 ld a, " " call ByteFill hlcoord 0,0 ld bc, $0a12 call TextBox hlcoord 0,12 ld bc, $0412 call TextBox call Function3200 call Function32f9 ; load regular palettes? ret ; 0xe5bb Functione5bb: ; e5bb ld a, [CurPartyMon] ld hl, BoxMon1Species ld bc, $0020 call AddNTimes ld de, TempMonSpecies ld bc, $0020 ld a, $1 call GetSRAMBank call CopyBytes call CloseSRAM ret ; e5d9 INCBIN "baserom.gbc",$e5d9,$e698 - $e5d9 Functione698: ; e698 ld hl, BreedMon1Species ld de, TempMonSpecies ld bc, $0020 call CopyBytes callab Function50e1b ld a, [$df2b] ld b, a ld a, d ld e, a sub b ld d, a ret ; e6b3 Functione6b3: ; e6b3 ld hl, BreedMon2Species ld de, TempMonSpecies ld bc, $0020 call CopyBytes callab Function50e1b ld a, [$df64] ld b, a ld a, d ld e, a sub b ld d, a ret ; e6ce Functione6ce: ; e6ce ld a, [$df9c] and a jr z, .asm_e6ea ld [$d265], a callba Functioncc0c7 callba Functioncc000 lb bc, 14, 7 call PlaceYesNoBox ret c .asm_e6ea call Functione6fd ld a, [TempEnemyMonSpecies] ld [$d265], a call GetPokemonName ld hl, UnknownText_0xe71d call PrintText ret ; e6fd Functione6fd: ; e6fd ld a, [TempEnemyMonSpecies] ld [CurSpecies], a ld [CurPartySpecies], a call GetBaseData xor a ld bc, $0030 ld hl, $df9c call ByteFill xor a ld [MonType], a ld hl, $df9c jp Functiond906 ; e71d UnknownText_0xe71d: ; 0xe71d ; Caught @ ! text_jump UnknownText_0x1c10c0 db "@" ; 0xe722 INCLUDE "items/item_effects.asm" ; no known jump sources GetPokeBallWobble: ; f971 (3:7971) ; Returns whether a Poke Ball will wobble in the catch animation. ; Whether a Pokemon is caught is determined beforehand. push de ld a, [rSVBK] ld d, a push de ld a, 1 ; BANK(Buffer2) ld [rSVBK], a ld a, [Buffer2] inc a ld [Buffer2], a ; Wobble up to 3 times. cp 3 + 1 jr z, .finished ld a, [$c64e] and a ld c, 0 ; next jr nz, .done ld hl, WobbleChances ld a, [Buffer1] ld b, a .loop ld a, [hli] cp b jr nc, .checkwobble inc hl jr .loop .checkwobble ld b, [hl] call Random cp b ld c, 0 ; next jr c, .done ld c, 2 ; escaped jr .done .finished ld a, [$c64e] and a ld c, 1 ; caught jr nz, .done ld c, 2 ; escaped .done pop de ld e, a ld a, d ld [rSVBK], a ld a, e pop de ret ; f9ba (3:79ba) WobbleChances: ; f9ba ; catch rate, chance of wobbling / 255 db 1, 63 db 2, 75 db 3, 84 db 4, 90 db 5, 95 db 7, 103 db 10, 113 db 15, 126 db 20, 134 db 30, 149 db 40, 160 db 50, 169 db 60, 177 db 80, 191 db 100, 201 db 120, 211 db 140, 220 db 160, 227 db 180, 234 db 200, 240 db 220, 246 db 240, 251 db 254, 253 db 255, 255 ; f9ea Functionf9ea: ; f9ea ld a, $2 call GetPartyParamLocation ld a, [$d262] ld b, a ld c, $4 .asm_f9f5 ld a, [hli] cp b jr z, .asm_f9fe dec c jr nz, .asm_f9f5 and a ret .asm_f9fe ld hl, UnknownText_0xfa06 call PrintText scf ret ; fa06 UnknownText_0xfa06: ; 0xfa06 ; knows @ . text_jump UnknownText_0x1c5ea8 db "@" ; 0xfa0b SECTION "bank4", ROMX, BANK[$4] Function10000: ; 10000 ld hl, Options set 4, [hl] call Function1068a .asm_10008 call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_1001a call Function10026 call DelayFrame jr .asm_10008 .asm_1001a ld a, [$cf65] ld [$d0d6], a ld hl, Options res 4, [hl] ret ; 10026 Function10026: ; 10026 ld a, [$cf63] ld hl, $4030 call Function1086b jp [hl] ; 10030 ; no known jump sources Jumptable_10030: ; 10030 (4:4030) dw Function10046 dw Function10056 dw Function10067 dw Function10186 dw Function10198 dw Function10094 dw Function100a6 dw Function100d3 dw Function100e8 dw Function10874 dw Function1087e ; no known jump sources Function10046: ; 10046 (4:4046) xor a ld [hBGMapMode], a ; $ff00+$d4 call Function10955 ld a, [$cf64] ld [$cf63], a call Function10a40 ret ; no known jump sources Function10056: ; 10056 (4:4056) xor a ld [$cf65], a call Function10a36 call Function109bb call Function1089a call Function10866 ret ; no known jump sources Function10067: ; 10067 (4:4067) ld hl, $4a4f call Function1d3c ld a, [$d0d9] ld [$cf88], a ld a, [$d0df] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [$d0df], a ld a, [$cfa9] ld [$d0d9], a ld b, $7 ld c, $3 call Function108d4 ret c call Function101c5 ret ; no known jump sources Function10094: ; 10094 (4:4094) ld a, $2 ld [$cf65], a call Function10a36 call Function109bb call Function1089a call Function10866 ret ; no known jump sources Function100a6: ; 100a6 (4:40a6) ld hl, $4a7f call Function1d3c ld a, [$d0da] ld [$cf88], a ld a, [$d0e0] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [$d0e0], a ld a, [$cfa9] ld [$d0da], a ld b, $3 ld c, $7 call Function108d4 ret c call Function101c5 ret ; no known jump sources Function100d3: ; 100d3 (4:40d3) ld a, $3 ld [$cf65], a call Function10a36 call Function109bb xor a ld [hBGMapMode], a ; $ff00+$d4 call Function1089a call Function10866 ret ; no known jump sources Function100e8: ; 100e8 (4:40e8) callba Function2c76f ld b, $5 ld c, $1 call Function108d4 ret c callba _CheckTossableItem ld a, [$d142] and a jr nz, .asm_1010a ld hl, $413b ld de, $4153 jr .asm_10110 .asm_1010a ld hl, $4124 ld de, $4137 .asm_10110 push de call LoadMenuDataHeader call Function1d81 call Function1c07 pop hl ret c ld a, [$cfa9] dec a call Function1086b jp [hl] ; 10124 (4:4124) INCBIN "baserom.gbc",$10124,$10159 - $10124 callba Function2c7bf ret c callba Function2c7fb jr c, .asm_10179 ld hl, Options ; $cfcc ld a, [hl] push af res 4, [hl] callba Function2c867 pop af ld [Options], a ; $cfcc .asm_10179 xor a ld [hBGMapMode], a ; $ff00+$d4 call Function10955 call Function1089a call Function10a40 ret ; no known jump sources Function10186: ; 10186 (4:4186) ld a, $1 ld [$cf65], a call Function10a36 call Function109bb call Function1089a call Function10866 ret ; no known jump sources Function10198: ; 10198 (4:4198) ld hl, $4aaf call Function1d3c ld a, [$d0db] ld [$cf88], a ld a, [$d0e1] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [$d0e1], a ld a, [$cfa9] ld [$d0db], a ld b, $1 ld c, $5 call Function108d4 ret c call Function101c5 ret ; known jump sources: 10090 (4:4090), 100cf (4:40cf), 101c1 (4:41c1) Function101c5: ; 101c5 (4:41c5) callba _CheckTossableItem ld a, [$d142] and a jr nz, .asm_101f9 callba CheckSelectableItem ld a, [$d142] and a jr nz, .asm_101eb callba CheckItemMenu ld a, [$d142] and a jr nz, .asm_10207 jr .asm_10227 .asm_101eb callba CheckItemMenu ld a, [$d142] and a jr nz, .asm_1020f jr .asm_1022f .asm_101f9 callba CheckSelectableItem ld a, [$d142] and a jr nz, .asm_10217 jr .asm_1021f .asm_10207 ld hl, $4249 ld de, $426a jr .asm_10235 .asm_1020f ld hl, $4274 ld de, $4291 jr .asm_10235 .asm_10217 ld hl, $4299 ld de, $42ac jr .asm_10235 .asm_1021f ld hl, $42b0 ld de, $42c7 jr .asm_10235 .asm_10227 ld hl, $42cd ld de, $42ea jr .asm_10235 .asm_1022f ld hl, $42f2 ld de, $430b .asm_10235 push de call LoadMenuDataHeader call Function1d81 call Function1c07 pop hl ret c ld a, [$cfa9] dec a call Function1086b jp [hl] ; 10249 (4:4249) INCBIN "baserom.gbc",$10249,$10311 - $10249 callba CheckItemMenu ld a, [$d142] ld hl, $431f rst $28 ret ; no known jump sources Jumptable_1031f: ; 1031f (4:431f) dw Function1032d dw Function1032d dw Function1032d dw Function1032d dw Function10334 dw Function10338 dw Function10355 ; known jump sources: 1035c (4:435c) Function1032d: ; 1032d (4:432d) ld hl, $4af3 call Function10889 ret ; no known jump sources Function10334: ; 10334 (4:4334) call DoItemEffect ret ; no known jump sources Function10338: ; 10338 (4:4338) ld a, [PartyCount] ; $dcd7 and a jr z, .asm_1034e call DoItemEffect xor a ld [hBGMapMode], a ; $ff00+$d4 call Function10955 call Function1089a call Function10a40 ret .asm_1034e ld hl, $4af8 call Function10889 ret ; no known jump sources Function10355: ; 10355 (4:4355) call DoItemEffect ld a, [$d0ec] and a jr z, Function1032d ld a, $a ld [$cf63], a ret ; 10364 (4:4364) INCBIN "baserom.gbc",$10364,$103fd - $10364 ld a, [PartyCount] ; $dcd7 and a jp z, Function10486 ld a, [Options] ; $cfcc push af res 4, a ld [Options], a ; $cfcc ld a, $8 ld [PartyMenuActionText], a ; $d141 call WhiteBGMap callba Function5004f callba Function50405 callba Function503e0 .asm_10427 callba WritePartyMenuTilemap callba PrintPartyMenuText call WaitBGMap call Function32f9 call DelayFrame callba PartyMenuSelect jr c, .asm_10475 ld a, [CurPartySpecies] ; $d108 cp $fd jr nz, .asm_10453 ld hl, $448d call PrintText jr .asm_10427 .asm_10453 ld a, [$cf63] push af ld a, [$cf64] push af call GetCurNick ld hl, StringBuffer1 ; $d073 ld de, $d050 ld bc, $b call CopyBytes call Function12bd9 pop af ld [$cf64], a pop af ld [$cf63], a .asm_10475 pop af ld [Options], a ; $cfcc xor a ld [hBGMapMode], a ; $ff00+$d4 call Function10955 call Function1089a call Function10a40 ret ; known jump sources: 10401 (4:4401) Function10486: ; 10486 (4:4486) ld hl, $4af8 call Function10889 ret ; 1048d (4:448d) INCBIN "baserom.gbc",$1048d,$10493 - $1048d Function10493: ; 10493 ld hl, Options set 4, [hl] call Function1068a .asm_1049b call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_104ad call Function104b9 call DelayFrame jr .asm_1049b .asm_104ad ld a, [$cf65] ld [$d0d6], a ld hl, Options res 4, [hl] ret ; 104b9 Function104b9: ; 104b9 ld a, [$cf63] ld hl, $44c3 call Function1086b jp [hl] ; 104c3 ; no known jump sources Jumptable_104c3: ; 104c3 (4:44c3) dw Function104d9 dw Function104e9 dw Function104fa dw Function10594 dw Function105a6 dw Function10527 dw Function10539 dw Function10566 dw Function10581 dw Function10874 dw Function1087e ; no known jump sources Function104d9: ; 104d9 (4:44d9) xor a ld [hBGMapMode], a ; $ff00+$d4 call Function10955 ld a, [$cf64] ld [$cf63], a call Function10a40 ret ; no known jump sources Function104e9: ; 104e9 (4:44e9) xor a ld [$cf65], a call Function10a36 call Function109bb call Function1089a call Function10866 ret ; no known jump sources Function104fa: ; 104fa (4:44fa) ld hl, $4a4f call Function1d3c ld a, [$d0d9] ld [$cf88], a ld a, [$d0df] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [$d0df], a ld a, [$cfa9] ld [$d0d9], a ld b, $7 ld c, $3 call Function108d4 ret c call Function105d3 ret ; no known jump sources Function10527: ; 10527 (4:4527) ld a, $2 ld [$cf65], a call Function10a36 call Function109bb call Function1089a call Function10866 ret ; no known jump sources Function10539: ; 10539 (4:4539) ld hl, $4a7f call Function1d3c ld a, [$d0da] ld [$cf88], a ld a, [$d0e0] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [$d0e0], a ld a, [$cfa9] ld [$d0da], a ld b, $3 ld c, $7 call Function108d4 ret c call Function105d3 ret ; no known jump sources Function10566: ; 10566 (4:4566) ld a, $3 ld [$cf65], a call Function10a36 call Function109bb xor a ld [hBGMapMode], a ; $ff00+$d4 call Function1089a ld hl, $4b0c call Function10889 call Function10866 ret ; no known jump sources Function10581: ; 10581 (4:4581) callba Function2c76f ld b, $5 ld c, $1 call Function108d4 ret c xor a call Function105dc ret ; no known jump sources Function10594: ; 10594 (4:4594) ld a, $1 ld [$cf65], a call Function10a36 call Function109bb call Function1089a call Function10866 ret ; no known jump sources Function105a6: ; 105a6 (4:45a6) ld hl, $4aaf call Function1d3c ld a, [$d0db] ld [$cf88], a ld a, [$d0e1] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [$d0e1], a ld a, [$cfa9] ld [$d0db], a ld b, $1 ld c, $5 call Function108d4 ret c call Function105d3 ret ; known jump sources: 10523 (4:4523), 10562 (4:4562), 105cf (4:45cf) Function105d3: ; 105d3 (4:45d3) callba CheckItemContext ld a, [$d142] ; known jump sources: 10590 (4:4590) Function105dc: ; 105dc (4:45dc) and a jr z, .asm_105e7 ld hl, $4601 ld de, $4614 jr .asm_105ed .asm_105e7 ld hl, $4618 ld de, $4627 .asm_105ed push de call LoadMenuDataHeader call Function1d81 call Function1c07 pop hl ret c ld a, [$cfa9] dec a call Function1086b jp [hl] ; 10601 (4:4601) INCBIN "baserom.gbc",$10601,$10629 - $10601 callba CheckItemContext ld a, [$d142] ld hl, $4637 rst $28 ret ; no known jump sources Jumptable_10637: ; 10637 (4:4637) dw Function10645 dw Function10645 dw Function10645 dw Function10645 dw Function1064c dw Function10656 dw Function10671 ; known jump sources: 10678 (4:4678) Function10645: ; 10645 (4:4645) ld hl, $4af3 call Function10889 ret ; no known jump sources Function1064c: ; 1064c (4:464c) call DoItemEffect ld a, [$d0ec] and a jr nz, asm_1066c ret ; no known jump sources Function10656: ; 10656 (4:4656) call DoItemEffect ld a, [$d0ec] and a jr nz, asm_1067e xor a ld [hBGMapMode], a ; $ff00+$d4 call Function10955 call Function1089a call Function10a40 ret asm_1066c: ; 1066c (4:466c) call WhiteBGMap jr asm_1067e ; no known jump sources Function10671: ; 10671 (4:4671) call DoItemEffect ld a, [$d0ec] and a jr z, Function10645 cp $2 jr z, asm_10684 asm_1067e: ; 1067e (4:467e) ld a, $a ld [$cf63], a ret asm_10684: ; 10684 (4:4684) xor a ld [$d0ec], a ret ; 10689 (4:4689) INCBIN "baserom.gbc",$10689,$1068a - $10689 Function1068a: ; 1068a xor a ld [$cf63], a ld a, [$d0d6] and $3 ld [$cf65], a inc a add a dec a ld [$cf64], a xor a ld [$cf66], a xor a ld [$d0e3], a ret ; 106a5 Function106a5: ; 106a5 xor a ld [hBGMapMode], a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [$cf66], a ld [$d0e3], a call Function10955 call Function10a40 ret ; 106be Function106be: ; 106be .asm_106be call Function106c7 call Function1076f jr c, .asm_106be ret ; 106c7 Function106c7: ; 106c7 ld a, [$cf63] ld hl, $46d1 call Function1086b jp [hl] ; 106d1 ; no known jump sources Jumptable_106d1: ; 106d1 (4:46d1) dw Function106d9 dw Function1073b dw Function106ff dw Function10726 ; no known jump sources Function106d9: ; 106d9 (4:46d9) xor a call Function10762 ld hl, $4a67 call Function1d3c ld a, [$d0d9] ld [$cf88], a ld a, [$d0df] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [$d0df], a ld a, [$cfa9] ld [$d0d9], a ret ; no known jump sources Function106ff: ; 106ff (4:46ff) ld a, $2 call Function10762 ld hl, $4a97 call Function1d3c ld a, [$d0da] ld [$cf88], a ld a, [$d0e0] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [$d0e0], a ld a, [$cfa9] ld [$d0da], a ret ; no known jump sources Function10726: ; 10726 (4:4726) ld a, $3 call Function10762 call Function1089a callba Function2c76f ld a, [CurItem] ; $d106 ld [CurItem], a ; $d106 ret ; no known jump sources Function1073b: ; 1073b (4:473b) ld a, $1 call Function10762 ld hl, $4ac7 call Function1d3c ld a, [$d0db] ld [$cf88], a ld a, [$d0e1] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [$d0e1], a ld a, [$cfa9] ld [$d0db], a ret ; known jump sources: 106da (4:46da), 10701 (4:4701), 10728 (4:4728), 1073d (4:473d), 10828 (4:4828), 1085b (4:485b) Function10762: ; 10762 (4:4762) ld [$cf65], a call Function10a36 call Function109bb call Function1089a ret Function1076f: ; 1076f ld hl, $cf73 ld a, [hl] and $1 jr nz, .asm_10788 ld a, [hl] and $2 jr nz, .asm_1078f ld a, [hl] and $20 jr nz, .asm_10795 ld a, [hl] and $10 jr nz, .asm_107a8 scf ret .asm_10788 ld a, $1 ld [$cf66], a and a ret .asm_1078f xor a ld [$cf66], a and a ret .asm_10795 ld a, [$cf63] dec a and $3 ld [$cf63], a push de ld de, SFX_UNKNOWN_62 call PlaySFX pop de scf ret .asm_107a8 ld a, [$cf63] inc a and $3 ld [$cf63], a push de ld de, SFX_UNKNOWN_62 call PlaySFX pop de scf ret ; 107bb Function107bb: ; 107bb call Function106a5 ld a, [InputType] or a jr z, .asm_107ca callba Function1de28f .asm_107ca call Function107d7 call Function1076f jr c, .asm_107ca xor a ld [$cf66], a ret ; 107d7 Function107d7: ; 107d7 ld a, [$cf63] ld hl, $47e1 call Function1086b jp [hl] ; 107e1 ; no known jump sources Jumptable_107e1: ; 107e1 (4:47e1) dw Function107e9 dw Function1083b dw Function10807 dw Function10826 ; no known jump sources Function107e9: ; 107e9 (4:47e9) xor a ld hl, $47ef jr asm_1085a ; 107ef (4:47ef) INCBIN "baserom.gbc",$107ef,$10807 - $107ef ; no known jump sources Function10807: ; 10807 (4:4807) ld a, $2 ld hl, $480e jr asm_1085a ; 1080e (4:480e) INCBIN "baserom.gbc",$1080e,$10826 - $1080e ; no known jump sources Function10826: ; 10826 (4:4826) ld a, $3 call Function10762 call Function1089a callba Function2c76f ld a, [CurItem] ; $d106 ld [CurItem], a ; $d106 ret ; no known jump sources Function1083b: ; 1083b (4:483b) ld a, $1 ld hl, $4842 jr asm_1085a ; 10842 (4:4842) INCBIN "baserom.gbc",$10842,$1085a - $10842 asm_1085a: ; 1085a (4:485a) push hl call Function10762 pop hl call Function1d3c call Function350c ret ; known jump sources: 10063 (4:4063), 100a2 (4:40a2), 100e4 (4:40e4), 10194 (4:4194), 104f6 (4:44f6), 10535 (4:4535), 1057d (4:457d), 105a2 (4:45a2) Function10866: ; 10866 (4:4866) ld hl, $cf63 inc [hl] ret Function1086b: ; 1086b ld e, a ld d, $0 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ret ; 10874 ; no known jump sources Function10874: ; 10874 (4:4874) ld hl, $cf63 set 7, [hl] xor a ld [$cf66], a ret ; no known jump sources Function1087e: ; 1087e (4:487e) ld hl, $cf63 set 7, [hl] ld a, $1 ld [$cf66], a ret ; known jump sources: 10330 (4:4330), 10351 (4:4351), 10489 (4:4489), 1057a (4:457a), 10648 (4:4648), 1092c (4:492c) Function10889: ; 10889 (4:4889) ld a, [Options] ; $cfcc push af set 4, a ld [Options], a ; $cfcc call PrintText pop af ld [Options], a ; $cfcc ret ; known jump sources: 10060 (4:4060), 1009f (4:409f), 100e1 (4:40e1), 1017f (4:417f), 10191 (4:4191), 10347 (4:4347), 1047f (4:447f), 104f3 (4:44f3), 10532 (4:4532), 10574 (4:4574), 1059f (4:459f), 10665 (4:4665), 1072b (4:472b), 1076b (4:476b), 1082b (4:482b) Function1089a: ; 1089a (4:489a) call WaitBGMap Function1089d: ; 1089d ld a, [$cf65] and $3 ld e, a ld d, $0 ld a, [BattleType] cp $3 jr z, .asm_108b3 ld a, [PlayerGender] bit 0, a jr nz, .asm_108c5 .asm_108b3 ld hl, $48cc add hl, de add hl, de ld a, [hli] ld e, a ld d, [hl] ld hl, $9500 ld bc, $040f call Request2bpp ret .asm_108c5 callba Function48e81 ret ; 108cc INCBIN "baserom.gbc",$108cc,$108d4 - $108cc ; known jump sources: 1008c (4:408c), 100cb (4:40cb), 100f2 (4:40f2), 101bd (4:41bd), 1051f (4:451f), 1055e (4:455e), 1058b (4:458b), 105cb (4:45cb) Function108d4: ; 108d4 (4:48d4) ld hl, $cf73 ld a, [$d0e3] and a jr nz, .asm_10931 ld a, [hl] and $1 jr nz, .asm_108f8 ld a, [hl] and $2 jr nz, .asm_108fa ld a, [hl] and $20 jr nz, .asm_10901 ld a, [hl] and $10 jr nz, .asm_10912 ld a, [hl] and $4 jr nz, .asm_10923 scf ret .asm_108f8 and a ret .asm_108fa ld a, $9 ld [$cf63], a scf ret .asm_10901 ld a, b ld [$cf63], a ld [$cf64], a push de ld de, $62 call PlaySFX pop de scf ret .asm_10912 ld a, c ld [$cf63], a ld [$cf64], a push de ld de, $62 call PlaySFX pop de scf ret .asm_10923 callba Function2490c ld hl, $4b07 call Function10889 scf ret .asm_10931 ld a, [hl] and $5 jr nz, .asm_1093d ld a, [hl] and $2 jr nz, .asm_1094f scf ret .asm_1093d callba Function2490c ld de, $20 call WaitPlaySFX ld de, $20 call WaitPlaySFX .asm_1094f xor a ld [$d0e3], a scf ret Function10955: ; 10955 call WhiteBGMap call ClearTileMap call ClearSprites call DisableLCD ld hl, $4b16 ld de, VTiles2 ld bc, $0600 ld a, $4 call FarCopyBytes ld hl, $c4b4 ld bc, $00dc ld a, $24 call ByteFill ld hl, $c4b9 ld bc, $0b0f call ClearBox ld hl, TileMap ld a, $28 ld c, $14 .asm_1098a ld [hli], a inc a dec c jr nz, .asm_1098a call Function109bb call Function109a5 ld hl, $c590 ld bc, $0412 call TextBox call EnableLCD call Function1089d ret ; 109a5 Function109a5: ; 109a5 ld hl, $c4dc ld a, $50 ld de, $000f ld b, $3 .asm_109af ld c, $5 .asm_109b1 ld [hli], a inc a dec c jr nz, .asm_109b1 add hl, de dec b jr nz, .asm_109af ret ; 109bb Function109bb: ; 109bb ld a, [$cf65] ld d, a swap a sub d ld d, $0 ld e, a ld hl, $49e1 add hl, de ld d, h ld e, l ld hl, $c52c ld c, $3 .asm_109d0 ld b, $5 .asm_109d2 ld a, [de] inc de ld [hli], a dec b jr nz, .asm_109d2 ld a, c ld c, $f add hl, bc ld c, a dec c jr nz, .asm_109d0 ret ; 109e1 INCBIN "baserom.gbc",$109e1,$10a36 - $109e1 ; known jump sources: 1005a (4:405a), 10099 (4:4099), 100d8 (4:40d8), 1018b (4:418b), 104ed (4:44ed), 1052c (4:452c), 1056b (4:456b), 10599 (4:4599), 10765 (4:4765) Function10a36: ; 10a36 (4:4a36) ld hl, $c4cd ld bc, $a0f call ClearBox ret Function10a40: ; 10a40 call WaitBGMap ld b, $14 call GetSGBLayout call Function32f9 call DelayFrame ret ; 10a4f INCBIN "baserom.gbc",$10a4f,$10b16 - $10a4f PackGFX: INCBIN "gfx/misc/pack.2bpp" Function113d6: ; 113d6 call Function114dd ret ; 113da Function113da: ; 113da xor a ld [$dc2d], a ld [$dc3a], a ld [$dc1c], a ret ; 113e5 Function113e5: ; 113e5 xor a ld [$d464], a Function113e9: ; 113e9 ld a, [$d464] cp 3 jr c, .asm_113f2 ld a, 3 .asm_113f2 ld e, a ld d, 0 ld hl, .data_113fd add hl, de ld a, [hl] jp Function1142e ; 113fd .data_113fd db 20, 10, 5, 3 ; 11401 Function11401: ; 11401 call Function1143c ret nc ld hl, $d464 ld a, [hl] cp 3 jr nc, .asm_1140e inc [hl] .asm_1140e call Function113e9 scf ret ; 11413 Function11413: ; 11413 ld a, 1 Function11415: ; 11415 ld [hl], a push hl call UpdateTime pop hl inc hl call Function11621 ret ; 11420 Function11420: ; 11420 inc hl push hl call Function115cf call Function115c8 pop hl dec hl call Function11586 ret ; 1142e Function1142e: ; 1142e ld hl, $d465 ld [hl], a call UpdateTime ld hl, $d466 call Function1162e ret ; 1143c Function1143c: ; 1143c ld hl, $d466 call Function115d6 call Function115ae ld hl, $d465 call Function11586 ret ; 1144c Function1144c: ; 1144c ld hl, $dc1c jp Function11413 ; 11452 Function11452: ; 11452 ld hl, $dc1c call Function11420 ret nc xor a ld hl, $dc1e ld [hli], a ld [hli], a ld [hli], a ld [hl], a ld hl, $dc4c ld [hli], a ld [hli], a ld [hli], a ld [hli], a ld hl, $dc50 ld [hli], a ld [hli], a ld [hli], a ld [hli], a ld hl, $dc54 ld [hli], a ld [hli], a ld [hli], a ld [hli], a ld hl, $dc58 ld a, [hl] and a jr z, .asm_11480 dec [hl] jr nz, .asm_11483 .asm_11480 call Function11485 .asm_11483 jr Function1144c ; 11485 Function11485: ; 11485 call Random and 3 add 3 ld [$dc58], a ret ; 11490 Function11490: ; 11490 ld a, $14 ld [$d46c], a ld a, $0 ld [$d46d], a call UpdateTime ld hl, $dc35 call Function11613 ret ; 114a4 ; no known jump sources Function114a4: ; 114a4 (4:54a4) ld hl, $dc35 call Function115db ld a, [$cfd7] and a jr nz, .asm_114d4 ld a, [$cfd6] and a jr nz, .asm_114d4 ld a, [$cfd4] ld b, a ld a, [$d46d] sub b jr nc, .asm_114c2 add $3c .asm_114c2 ld [$d46d], a ld a, [$cfd5] ld b, a ld a, [$d46c] sbc b ld [$d46c], a jr c, .asm_114d4 and a ret .asm_114d4 xor a ld [$d46c], a ld [$d46d], a scf ret Function114dd: ; 114dd call UpdateTime ld hl, $dc23 call Function11621 ret ; 114e7 Function114e7: ; 114e7 ld hl, $dc23 call Function115cf call Function115c8 and a jr z, .asm_114fa ld b, a callba ApplyPokerusTick .asm_114fa xor a ret ; 114fc Function114fc: ; 114fc ld a, $2 ld hl, $dc3a ld [hl], a call UpdateTime ld hl, $dc3b call Function11621 ret ; 1150c Function1150c: ; 1150c ld hl, $dc3b call Function115cf call Function115c8 ld hl, $dc3a call Function11586 ret ; 1151c Function1151c: ; 1151c ld hl, $dc1e set 2, [hl] ret ; 11522 Function11522: ; 11522 and a ld hl, $dc1e bit 2, [hl] ret nz scf ret ; 1152b Function1152b: ; 1152b call Function11534 ld hl, $dc2d jp Function11415 ; 11534 Function11534: ; 11534 call GetWeekday ld c, a ld a, $5 sub c jr z, .asm_1153f jr nc, .asm_11541 .asm_1153f add $7 .asm_11541 ret ; 11542 Function11542: ; 11542 ld hl, $dc2d jp Function11420 ; 11548 Function11548: ; 11548 ld a, $0 call GetSRAMBank ld hl, $abfa ld a, [hli] ld [Buffer1], a ld a, [hl] ld [Buffer2], a call CloseSRAM ld hl, Buffer1 call Function11420 jr nc, .asm_11572 ld hl, Buffer1 call Function11413 call CloseSRAM callba Function1050c8 .asm_11572 ld a, $0 call GetSRAMBank ld hl, Buffer1 ld a, [hli] ld [$abfa], a ld a, [hl] ld [$abfb], a call CloseSRAM ret ; 11586 Function11586: ; 11586 cp $ff jr z, .asm_11595 ld c, a ld a, [hl] sub c jr nc, .asm_11590 xor a .asm_11590 ld [hl], a jr z, .asm_11595 xor a ret .asm_11595 xor a ld [hl], a scf ret ; 11599 Function11599: ; 11599 ld a, [$cfd7] and a jr nz, Function115cc ld a, [$cfd6] and a jr nz, Function115cc ld a, [$cfd5] jr nz, Function115cc ld a, [$cfd4] ret ; 115ae Function115ae: ; 115ae ld a, [$cfd7] and a jr nz, Function115cc ld a, [$cfd6] and a jr nz, Function115cc ld a, [$cfd5] ret ; 115be Function115be: ; 115be ld a, [$cfd7] and a jr nz, Function115cc ld a, [$cfd6] ret ; 115c8 Function115c8: ; 115c8 ld a, [$cfd7] ret ; 115cc Function115cc: ; 115cc ld a, $ff ret ; 115cf Function115cf: ; 115cf xor a jr Function11605 ; 115d2 Function115d2: ; 115d2 inc hl xor a jr Function115f8 ; 115d6 Function115d6: ; 115d6 inc hl inc hl xor a jr Function115eb ; 115db Function115db: ; 115db inc hl inc hl inc hl ld a, [hSeconds] ld c, a sub [hl] jr nc, .asm_115e6 add 60 .asm_115e6 ld [hl], c dec hl ld [$cfd4], a Function115eb: ; 115eb ld a, [hMinutes] ld c, a sbc [hl] jr nc, .asm_115f3 add 60 .asm_115f3 ld [hl], c dec hl ld [$cfd5], a Function115f8: ; 115f8 ld a, [hHours] ld c, a sbc [hl] jr nc, .asm_11600 add 24 .asm_11600 ld [hl], c dec hl ld [$cfd6], a Function11605 ld a, [CurDay] ld c, a sbc [hl] jr nc, .asm_1160e add 140 .asm_1160e ld [hl], c ld [$cfd7], a ret ; 11613 Function11613: ; 11613 ld a, [CurDay] ld [hli], a ld a, [hHours] ld [hli], a ld a, [hMinutes] ld [hli], a ld a, [hSeconds] ld [hli], a ret ; 11621 Function11621: ; 11621 ld a, [CurDay] ld [hl], a ret ; 11626 Function11626: ; 11626 ld a, [CurDay] ld [hli], a ld a, [hHours] ld [hli], a ret ; 1162e Function1162e: ; 1162e ld a, [CurDay] ld [hli], a ld a, [hHours] ld [hli], a ld a, [hMinutes] ld [hli], a ret ; 11639 CanLearnTMHMMove: ; 11639 ld a, [CurPartySpecies] ld [CurSpecies], a call GetBaseData ld hl, BaseTMHM push hl ld a, [$d262] ld b, a ld c, 0 ld hl, TMHMMoves .loop ld a, [hli] and a jr z, .end cp b jr z, .asm_11659 inc c jr .loop .asm_11659 pop hl ld b, CHECK_FLAG push de ld d, 0 ld a, PREDEF_FLAG call Predef pop de ret .end pop hl ld c, 0 ret ; 1166a GetTMHMMove: ; 1166a ld a, [$d265] dec a ld hl, TMHMMoves ld b, 0 ld c, a add hl, bc ld a, [hl] ld [$d265], a ret ; 1167a TMHMMoves: ; 1167a db DYNAMICPUNCH db HEADBUTT db CURSE db ROLLOUT db ROAR db TOXIC db ZAP_CANNON db ROCK_SMASH db PSYCH_UP db HIDDEN_POWER db SUNNY_DAY db SWEET_SCENT db SNORE db BLIZZARD db HYPER_BEAM db ICY_WIND db PROTECT db RAIN_DANCE db GIGA_DRAIN db ENDURE db FRUSTRATION db SOLARBEAM db IRON_TAIL db DRAGONBREATH db THUNDER db EARTHQUAKE db RETURN db DIG db PSYCHIC_M db SHADOW_BALL db MUD_SLAP db DOUBLE_TEAM db ICE_PUNCH db SWAGGER db SLEEP_TALK db SLUDGE_BOMB db SANDSTORM db FIRE_BLAST db SWIFT db DEFENSE_CURL db THUNDERPUNCH db DREAM_EATER db DETECT db REST db ATTRACT db THIEF db STEEL_WING db FIRE_PUNCH db FURY_CUTTER db NIGHTMARE db CUT db FLY db SURF db STRENGTH db FLASH db WHIRLPOOL db WATERFALL ; Move tutor db FLAMETHROWER db THUNDERBOLT db ICE_BEAM db 0 ; end ; 116b7 Function116b7: ; 0x116b7 call Function2ed3 call Function116c1 call Function2b74 ret ; 0x116c1 Function116c1: ; 116c1 ld hl, PlayerSDefLevel ld [hl], e inc hl ld [hl], d ld hl, EnemyAtkLevel ld [hl], b ld hl, Options ld a, [hl] push af set 4, [hl] ld a, [$ffde] push af xor a ld [$ffde], a ld a, [$ffaa] push af ld a, $1 ld [$ffaa], a call Function116f8 call DelayFrame .asm_116e5 call Function11915 jr nc, .asm_116e5 pop af ld [$ffaa], a pop af ld [$ffde], a pop af ld [Options], a call ClearJoypad ret ; 116f8 Function116f8: ; 116f8 call WhiteBGMap ld b, $8 call GetSGBLayout call DisableLCD call Function11c51 call Function118a8 ld a, $e3 ld [rLCDC], a call Function1171d call WaitBGMap call WaitTop call Function32f9 call Function11be0 ret ; 1171d Function1171d: ; 1171d ld a, [EnemyAtkLevel] and $7 ld e, a ld d, $0 ld hl, $572e add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 1172e ; no known jump sources Jumptable_1172e: ; 1172e (4:572e) dw Function1173e dw Function1178d dw Function117ae dw Function117d1 dw Function117f5 dw Function1182c dw Function1173e dw Function1173e ; no known jump sources Function1173e: ; 1173e (4:573e) ld a, [CurPartySpecies] ; $d108 ld [$d265], a ld hl, Function8e83f ld a, BANK(Function8e83f) ld e, $1 rst FarCall ; ; indirect jump to Function8e83f (8e83f (23:683f)) ld a, [CurPartySpecies] ; $d108 ld [$d265], a call GetPokemonName ld hl, $c4cd call PlaceString ld l, c ld h, b ld de, $5780 call PlaceString inc de ld hl, $c4f5 call PlaceString callba GetGender jr c, .asm_1177c ld a, $ef jr nz, .asm_11778 ld a, $f5 .asm_11778 ld hl, $c4c9 ld [hl], a .asm_1177c call Function1187b ret ; 11780 (4:5780) INCBIN "baserom.gbc",$11780,$1178d - $11780 ; no known jump sources Function1178d: ; 1178d (4:578d) callba GetPlayerIcon call Function11847 ld hl, $c4cd ld de, $57a3 call PlaceString call Function11882 ret ; 117a3 (4:57a3) INCBIN "baserom.gbc",$117a3,$117ae - $117a3 ; no known jump sources Function117ae: ; 117ae (4:57ae) ld de, $43c0 ld b, $30 call Function11847 ld hl, $c4cd ld de, $57c3 call PlaceString call Function11882 ret ; 117c3 (4:57c3) INCBIN "baserom.gbc",$117c3,$117d1 - $117c3 ; no known jump sources Function117d1: ; 117d1 (4:57d1) ld de, $4fc0 ld b, $30 call Function11847 ld hl, $c4cd ld de, $57e6 call PlaceString call Function11882 ret ; 117e6 (4:57e6) INCBIN "baserom.gbc",$117e6,$117f5 - $117e6 ; no known jump sources Function117f5: ; 117f5 (4:57f5) ld de, $7380 ld hl, $8000 ld bc, $3104 call Request2bpp xor a ld hl, $c300 ld [hli], a ld [hl], a ld de, $2420 ld a, $a call Function3b2a ld hl, $1 add hl, bc ld [hl], $0 ld hl, $c4cd ld de, $5822 call PlaceString call Function11889 ret ; 11822 (4:5822) INCBIN "baserom.gbc",$11822,$1182c - $11822 ; no known jump sources Function1182c: ; 1182c (4:582c) ld hl, $c4cb ld de, $5839 call PlaceString call Function11882 ret ; 11839 (4:5839) INCBIN "baserom.gbc",$11839,$11847 - $11839 ; known jump sources: 11793 (4:5793), 117b3 (4:57b3), 117d6 (4:57d6) Function11847: ; 11847 (4:5847) push de ld hl, $8000 ld c, $4 push bc call Request2bpp pop bc ld hl, $c0 add hl, de ld e, l ld d, h ld hl, $8040 call Request2bpp xor a ld hl, $c300 ld [hli], a ld [hl], a pop de ld b, $a ld a, d cp $7a jr nz, .asm_11873 ld a, e cp $40 jr nz, .asm_11873 ld b, $1e .asm_11873 ld a, b ld de, $2420 call Function3b2a ret ; known jump sources: 1177c (4:577c) Function1187b: ; 1187b (4:587b) ld a, $a ld hl, $c51d jr asm_11890 ; known jump sources: 1179f (4:579f), 117bf (4:57bf), 117e2 (4:57e2), 11835 (4:5835) Function11882: ; 11882 (4:5882) ld a, $7 ld hl, $c51d jr asm_11890 ; known jump sources: 1181e (4:581e) Function11889: ; 11889 (4:5889) ld a, $8 ld hl, $c4f5 jr asm_11890 ; known jump sources: 11880 (4:5880), 11887 (4:5887), 1188e (4:588e) asm_11890: ; 11890 (4:5890) ld [$c6d3], a ld a, l ld [EnemySDefLevel], a ; $c6d8 ld a, h ld [EnemyAccLevel], a ; $c6d9 ret Function1189c: ; 1189c push bc push af ld a, [EnemyAtkLevel] sub $3 ld b, a pop af dec b pop bc ret ; 118a8 Function118a8: ; 118a8 call WaitTop ld hl, TileMap ld bc, $0168 ld a, $60 call ByteFill ld hl, $c4b5 ld bc, $0612 call Function1189c jr nz, .asm_118c4 ld bc, $0412 .asm_118c4 call ClearBox ld de, $5da2 Function118ca: ; 118ca call Function1189c jr nz, .asm_118d5 ld hl, $0055 add hl, de ld d, h ld e, l .asm_118d5 push de ld hl, $c541 ld bc, $0712 call Function1189c jr nz, .asm_118e7 ld hl, $c519 ld bc, $0912 .asm_118e7 call ClearBox ld hl, $c5e1 ld bc, $0112 call ClearBox pop de ld hl, $c542 ld b, $5 call Function1189c jr nz, .asm_11903 ld hl, $c51a ld b, $6 .asm_11903 ld c, $11 .asm_11905 ld a, [de] ld [hli], a inc de dec c jr nz, .asm_11905 push de ld de, $0017 add hl, de pop de dec b jr nz, .asm_11903 ret ; 11915 Function11915: ; 11915 call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_11930 call Function11968 callba Function8cf62 call Function11940 call DelayFrame and a ret .asm_11930 callab Function8cf53 call ClearSprites xor a ld [hSCX], a ld [hSCY], a scf ret ; 11940 Function11940: ; 11940 xor a ld [hBGMapMode], a ld hl, $c505 call Function1189c jr nz, .asm_1194e ld hl, $c4dd .asm_1194e ld bc, $0112 call ClearBox ld hl, PlayerSDefLevel ld e, [hl] inc hl ld d, [hl] ld hl, EnemySDefLevel ld a, [hli] ld h, [hl] ld l, a call PlaceString ld a, $1 ld [hBGMapMode], a ret ; 11968 Function11968: ; 11968 ld a, [$cf63] ld e, a ld d, $0 ld hl, $5977 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 11977 ; no known jump sources Jumptable_11977: ; 11977 (4:5977) dw Function1197b dw Function119a1 ; no known jump sources Function1197b: ; 1197b (4:597b) ld de, $5018 call Function1189c jr nz, .asm_11985 ld d, $40 .asm_11985 ld a, $2 call Function3b2a ld a, c ld [EnemyDefLevel], a ; $c6d5 ld a, b ld [$c6d6], a ld hl, $1 add hl, bc ld a, [hl] ld hl, $e add hl, bc ld [hl], a ld hl, $cf63 inc [hl] ret ; no known jump sources Function119a1: ; 119a1 (4:59a1) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $1 jr nz, .asm_119b9 ld a, [hl] and $2 jr nz, .asm_119e7 ld a, [hl] and $8 jr nz, .asm_119cf ld a, [hl] and $4 jr nz, .asm_119f4 ret .asm_119b9 call Function11a0b cp $1 jr z, .asm_119f4 cp $2 jr z, .asm_119e7 cp $3 jr z, .asm_119eb call Function11c11 call Function11b14 ret nc .asm_119cf ld hl, EnemyDefLevel ; $c6d5 ld c, [hl] inc hl ld b, [hl] ld hl, $c add hl, bc ld [hl], $8 ld hl, $d add hl, bc ld [hl], $4 call Function1189c ret nz inc [hl] ret .asm_119e7 call Function11bbc ret .asm_119eb call Function11bf7 ld hl, $cf63 set 7, [hl] ret .asm_119f4 ld hl, $cf64 ld a, [hl] xor $1 ld [hl], a jr z, .asm_11a04 ld de, $5ce7 call Function118ca ret .asm_11a04 ld de, $5da2 call Function118ca ret ; known jump sources: 119b9 (4:59b9) Function11a0b: ; 11a0b (4:5a0b) ld hl, EnemyDefLevel ; $c6d5 ld c, [hl] inc hl ld b, [hl] ; known jump sources: 11aa3 (4:5aa3), 11ac5 (4:5ac5) Function11a11: ; 11a11 (4:5a11) ld hl, $d add hl, bc ld a, [hl] push bc ld b, $4 call Function1189c jr nz, .asm_11a1f inc b .asm_11a1f cp b pop bc jr nz, .asm_11a39 ld hl, $c add hl, bc ld a, [hl] cp $3 jr c, .asm_11a33 cp $6 jr c, .asm_11a36 ld a, $3 ret .asm_11a33 ld a, $1 ret .asm_11a36 ld a, $2 ret .asm_11a39 xor a ret ; no known jump sources Function11a3b: ; 11a3b (4:5a3b) call Function11a8b ld hl, $d add hl, bc ld a, [hl] ld e, a swap e ld hl, $7 add hl, bc ld [hl], e ld d, $4 call Function1189c jr nz, .asm_11a53 inc d .asm_11a53 cp d ld de, $5a79 ld a, $0 jr nz, .asm_11a60 ld de, $5a82 ld a, $1 .asm_11a60 ld hl, $e add hl, bc add [hl] ld hl, $1 add hl, bc ld [hl], a ld hl, $c add hl, bc ld l, [hl] ld h, $0 add hl, de ld a, [hl] ld hl, $6 add hl, bc ld [hl], a ret ; 11a79 (4:5a79) INCBIN "baserom.gbc",$11a79,$11a8b - $11a79 ; known jump sources: 11a3b (4:5a3b) Function11a8b: ; 11a8b (4:5a8b) ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_11b02 ld a, [hl] and $80 jr nz, .asm_11ae9 ld a, [hl] and $20 jr nz, .asm_11ac5 ld a, [hl] and $10 jr nz, .asm_11aa3 ret .asm_11aa3 call Function11a11 and a jr nz, .asm_11ab7 ld hl, $c add hl, bc ld a, [hl] cp $8 jr nc, .asm_11ab4 inc [hl] ret .asm_11ab4 ld [hl], $0 ret .asm_11ab7 cp $3 jr nz, .asm_11abc xor a .asm_11abc ld e, a add a add e ld hl, $c add hl, bc ld [hl], a ret .asm_11ac5 call Function11a11 and a jr nz, .asm_11ad8 ld hl, $c add hl, bc ld a, [hl] and a jr z, .asm_11ad5 dec [hl] ret .asm_11ad5 ld [hl], $8 ret .asm_11ad8 cp $1 jr nz, .asm_11ade ld a, $4 .asm_11ade dec a dec a ld e, a add a add e ld hl, $c add hl, bc ld [hl], a ret .asm_11ae9 ld hl, $d add hl, bc ld a, [hl] call Function1189c jr nz, .asm_11af9 cp $5 jr nc, .asm_11aff inc [hl] ret .asm_11af9 cp $4 jr nc, .asm_11aff inc [hl] ret .asm_11aff ld [hl], $0 ret .asm_11b02 ld hl, $d add hl, bc ld a, [hl] and a jr z, .asm_11b0c dec [hl] ret .asm_11b0c ld [hl], $4 call Function1189c ret nz inc [hl] ret ; known jump sources: 119cb (4:59cb) Function11b14: ; 11b14 (4:5b14) ld a, [EnemySAtkLevel] ; $c6d7 ; known jump sources: 121af (4:61af) Function11b17: ; 11b17 (4:5b17) ld a, [$c6d3] ld c, a ld a, [PlayerEvaLevel] ; $c6d2 cp c ret nc ld a, [EnemySAtkLevel] ; $c6d7 call Function11bd0 ld [hl], a ld hl, PlayerEvaLevel ; $c6d2 inc [hl] call Function11bd0 ld a, [hl] cp $50 jr z, .asm_11b37 ld [hl], $f2 and a ret .asm_11b37 scf ret ; 11b39 (4:5b39) INCBIN "baserom.gbc",$11b39,$11bbc - $11b39 ; known jump sources: 119e7 (4:59e7), 1208d (4:608d) Function11bbc: ; 11bbc (4:5bbc) ld hl, PlayerEvaLevel ; $c6d2 ld a, [hl] and a ret z dec [hl] call Function11bd0 ld [hl], $f2 inc hl ld a, [hl] cp $f2 ret nz ld [hl], $eb ret ; known jump sources: 11b23 (4:5b23), 11b2b (4:5b2b), 11bc3 (4:5bc3), 12071 (4:6071), 12098 (4:6098) Function11bd0: ; 11bd0 (4:5bd0) push af ld hl, PlayerSDefLevel ; $c6d0 ld a, [hli] ld h, [hl] ld l, a ld a, [PlayerEvaLevel] ; $c6d2 ld e, a ld d, $0 add hl, de pop af ret Function11be0: ; 11be0 ld hl, PlayerSDefLevel ld a, [hli] ld h, [hl] ld l, a ld [hl], $f2 inc hl ld a, [$c6d3] dec a ld c, a ld a, $eb .asm_11bf0 ld [hli], a dec c jr nz, .asm_11bf0 ld [hl], $50 ret ; 11bf7 ; known jump sources: 119eb (4:59eb), 120a1 (4:60a1) Function11bf7: ; 11bf7 (4:5bf7) ld hl, PlayerSDefLevel ; $c6d0 ld a, [hli] ld h, [hl] ld l, a ld a, [$c6d3] ld c, a .asm_11c01 ld a, [hl] cp $eb jr z, .asm_11c0a cp $f2 jr nz, .asm_11c0c .asm_11c0a ld [hl], $50 .asm_11c0c inc hl dec c jr nz, .asm_11c01 ret ; known jump sources: 119c8 (4:59c8), 12061 (4:6061) Function11c11: ; 11c11 (4:5c11) ld hl, EnemyDefLevel ; $c6d5 ld c, [hl] inc hl ld b, [hl] ld hl, $6 add hl, bc ld a, [hl] ld hl, $4 add hl, bc add [hl] sub $8 srl a srl a srl a ld e, a ld hl, $7 add hl, bc ld a, [hl] ld hl, $5 add hl, bc add [hl] sub $10 srl a srl a srl a ld d, a ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $14 .asm_11c43 ld a, d and a jr z, .asm_11c4b add hl, bc dec d jr .asm_11c43 .asm_11c4b add hl, de ld a, [hl] ld [EnemySAtkLevel], a ; $c6d7 ret Function11c51: ; 11c51 call ClearSprites callab Function8cf53 call Functione51 call Functione5f ld de, $5e65 ld hl, $8eb0 ld bc, $0401 call Get1bpp ld de, $5e6d ld hl, $8f20 ld bc, $0401 call Get1bpp ld de, $9600 ld hl, $5cb7 ld bc, $0010 ld a, $4 call FarCopyBytes ld de, $87e0 ld hl, $5cc7 ld bc, $0020 ld a, $4 call FarCopyBytes ld a, $5 ld hl, $c312 ld [hli], a ld [hl], $7e xor a ld [hSCY], a ld [$c3bf], a ld [hSCX], a ld [$c3c0], a ld [$cf63], a ld [$cf64], a ld [hBGMapMode], a ld [PlayerEvaLevel], a ld a, $7 ld [hWX], a ret ; 11cb7 INCBIN "baserom.gbc",$11cb7,$11ce7 - $11cb7 NameInputLower: db "a b c d e f g h i" db "j k l m n o p q r" db "s t u v w x y z " db "× ( ) : ; [ ] ", $e1, " ", $e2 db "UPPER DEL END " BoxNameInputLower: db "a b c d e f g h i" db "j k l m n o p q r" db "s t u v w x y z " db "é 'd 'l 'm 'r 's 't 'v 0" db "1 2 3 4 5 6 7 8 9" db "UPPER DEL END " NameInputUpper: db "A B C D E F G H I" db "J K L M N O P Q R" db "S T U V W X Y Z " db "- ? ! / . , " db "lower DEL END " BoxNameInputUpper: db "A B C D E F G H I" db "J K L M N O P Q R" db "S T U V W X Y Z " db "× ( ) : ; [ ] ", $e1, " ", $e2 db "- ? ! ♂ ♀ / . , &" db "lower DEL END " INCBIN "baserom.gbc",$11e5d,$11e75 - $11e5d ; no known jump sources Function11e75: ; 11e75 (4:5e75) ld hl, PlayerSDefLevel ; $c6d0 ld [hl], e inc hl ld [hl], d ld a, [$FF00+$de] push af xor a ld [$FF00+$de], a ld a, [$FF00+$aa] push af ld a, $1 ld [$FF00+$aa], a call Function11e9a call DelayFrame .asm_11e8e call Function11fc0 jr nc, .asm_11e8e pop af ld [$FF00+$aa], a pop af ld [$FF00+$de], a ret ; known jump sources: 11e88 (4:5e88) Function11e9a: ; 11e9a (4:5e9a) call WhiteBGMap call DisableLCD call Function11c51 ld de, $8000 ld hl, $5ef4 ld bc, $80 ld a, $4 call FarCopyBytes xor a ld hl, $c300 ld [hli], a ld [hl], a ld de, $1810 ld a, $0 call Function3b2a ld hl, $2 add hl, bc ld [hl], $0 call Function11f84 ld a, $e3 ld [rLCDC], a ; $ff00+$40 call Function11f74 ld b, $8 call GetSGBLayout call WaitBGMap call WaitTop ld a, $e4 call DmgToCgbBGPals ld a, $e4 call Functioncf8 call Function11be0 ld hl, PlayerSDefLevel ; $c6d0 ld e, [hl] inc hl ld d, [hl] ld hl, $10 add hl, de ld [hl], $4e ret ; 11ef4 (4:5ef4) INCBIN "baserom.gbc",$11ef4,$11f74 - $11ef4 ; known jump sources: 11ecc (4:5ecc) Function11f74: ; 11f74 (4:5f74) ld a, $21 ld [$c6d3], a ret ; 11f7a (4:5f7a) INCBIN "baserom.gbc",$11f7a,$11f84 - $11f7a ; known jump sources: 11ec5 (4:5ec5) Function11f84: ; 11f84 (4:5f84) call WaitTop ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $78 ld a, $60 call ByteFill ld hl, $c518 ld bc, $f0 ld a, $7f call ByteFill ld hl, $c4b5 ld bc, $412 call ClearBox ld de, $61dd ; known jump sources: 120b6 (4:60b6), 120bd (4:60bd) Function11fa9: ; 11fa9 (4:5fa9) ld hl, $c52d ld b, $6 .asm_11fae ld c, $13 .asm_11fb0 ld a, [de] ld [hli], a inc de dec c jr nz, .asm_11fb0 push de ld de, $15 add hl, de pop de dec b jr nz, .asm_11fae ret ; known jump sources: 11e8e (4:5e8e) Function11fc0: ; 11fc0 (4:5fc0) call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_11fdb call Function12008 callba Function8cf62 call Function11feb call DelayFrame and a ret .asm_11fdb callab Function8cf53 call ClearSprites xor a ld [hSCX], a ; $ff00+$cf ld [hSCY], a ; $ff00+$d0 scf ret ; known jump sources: 11fd3 (4:5fd3) Function11feb: ; 11feb (4:5feb) xor a ld [hBGMapMode], a ; $ff00+$d4 ld hl, $c4b5 ld bc, $412 call ClearBox ld hl, PlayerSDefLevel ; $c6d0 ld e, [hl] inc hl ld d, [hl] ld hl, $c4ca call PlaceString ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ret ; known jump sources: 11fca (4:5fca) Function12008: ; 12008 (4:6008) ld a, [$cf63] ld e, a ld d, $0 ld hl, $6017 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_12017: ; 12017 (4:6017) dw Function1201b dw Function1203a ; no known jump sources Function1201b: ; 1201b (4:601b) ld de, $4810 ld a, $9 call Function3b2a ld a, c ld [EnemyDefLevel], a ; $c6d5 ld a, b ld [$c6d6], a ld hl, $1 add hl, bc ld a, [hl] ld hl, $e add hl, bc ld [hl], a ld hl, $cf63 inc [hl] ret ; no known jump sources Function1203a: ; 1203a (4:603a) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $1 jr nz, .asm_12052 ld a, [hl] and $2 jr nz, .asm_1208d ld a, [hl] and $8 jr nz, .asm_1207a ld a, [hl] and $4 jr nz, .asm_120aa ret .asm_12052 call Function12185 cp $1 jr z, .asm_120aa cp $2 jr z, .asm_1208d cp $3 jr z, .asm_120a1 call Function11c11 call Function121ac jr c, .asm_1207a ld hl, PlayerEvaLevel ; $c6d2 ld a, [hl] cp $10 ret nz inc [hl] call Function11bd0 ld [hl], $f2 dec hl ld [hl], $4e ret .asm_1207a ld hl, EnemyDefLevel ; $c6d5 ld c, [hl] inc hl ld b, [hl] ld hl, $c add hl, bc ld [hl], $9 ld hl, $d add hl, bc ld [hl], $5 ret .asm_1208d call Function11bbc ld hl, PlayerEvaLevel ; $c6d2 ld a, [hl] cp $10 ret nz dec [hl] call Function11bd0 ld [hl], $f2 inc hl ld [hl], $4e ret .asm_120a1 call Function11bf7 ld hl, $cf63 set 7, [hl] ret .asm_120aa ld hl, $cf64 ld a, [hl] xor $1 ld [hl], a jr nz, .asm_120ba ld de, $61dd call Function11fa9 ret .asm_120ba ld de, $624f call Function11fa9 ret ; no known jump sources Function120c1: ; 120c1 (4:60c1) call Function1210c ld hl, $d add hl, bc ld a, [hl] ld e, a swap e ld hl, $7 add hl, bc ld [hl], e cp $5 ld de, $60f8 ld a, $0 jr nz, .asm_120df ld de, $6102 ld a, $1 .asm_120df ld hl, $e add hl, bc add [hl] ld hl, $1 add hl, bc ld [hl], a ld hl, $c add hl, bc ld l, [hl] ld h, $0 add hl, de ld a, [hl] ld hl, $6 add hl, bc ld [hl], a ret ; 120f8 (4:60f8) INCBIN "baserom.gbc",$120f8,$1210c - $120f8 ; known jump sources: 120c1 (4:60c1) Function1210c: ; 1210c (4:610c) ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_12178 ld a, [hl] and $80 jr nz, .asm_1216a ld a, [hl] and $20 jr nz, .asm_12146 ld a, [hl] and $10 jr nz, .asm_12124 ret .asm_12124 call Function1218b and a jr nz, .asm_12138 ld hl, $c add hl, bc ld a, [hl] cp $9 jr nc, .asm_12135 inc [hl] ret .asm_12135 ld [hl], $0 ret .asm_12138 cp $3 jr nz, .asm_1213d xor a .asm_1213d ld e, a add a add e ld hl, $c add hl, bc ld [hl], a ret .asm_12146 call Function1218b and a jr nz, .asm_12159 ld hl, $c add hl, bc ld a, [hl] and a jr z, .asm_12156 dec [hl] ret .asm_12156 ld [hl], $9 ret .asm_12159 cp $1 jr nz, .asm_1215f ld a, $4 .asm_1215f dec a dec a ld e, a add a add e ld hl, $c add hl, bc ld [hl], a ret .asm_1216a ld hl, $d add hl, bc ld a, [hl] cp $5 jr nc, .asm_12175 inc [hl] ret .asm_12175 ld [hl], $0 ret .asm_12178 ld hl, $d add hl, bc ld a, [hl] and a jr z, .asm_12182 dec [hl] ret .asm_12182 ld [hl], $5 ret ; known jump sources: 12052 (4:6052) Function12185: ; 12185 (4:6185) ld hl, EnemyDefLevel ; $c6d5 ld c, [hl] inc hl ld b, [hl] ; known jump sources: 12124 (4:6124), 12146 (4:6146) Function1218b: ; 1218b (4:618b) ld hl, $d add hl, bc ld a, [hl] cp $5 jr nz, .asm_121aa ld hl, $c add hl, bc ld a, [hl] cp $3 jr c, .asm_121a4 cp $6 jr c, .asm_121a7 ld a, $3 ret .asm_121a4 ld a, $1 ret .asm_121a7 ld a, $2 ret .asm_121aa xor a ret ; known jump sources: 12064 (4:6064) Function121ac: ; 121ac (4:61ac) ld a, [EnemySAtkLevel] ; $c6d7 jp Function11b17 ; 121b2 (4:61b2) INCBIN "baserom.gbc",$121b2,$122c1 - $121b2 UnknownScript_0x122c1: ; 0x122c1 checkflag $0011 iffalse .script_122cd setflag $0051 special $0017 .script_122cd end ; 0x122ce UnknownScript_0x122ce: ; 0x122ce 3callasm Function122f8 iffalse UnknownScript_0x122e3 disappear $fe loadfont 2writetext UnknownText_0x122ee playsound SFX_ITEM pause 60 itemnotify loadmovesprites end ; 0x122e3 UnknownScript_0x122e3: ; 0x122e3 loadfont 2writetext UnknownText_0x122ee closetext 2writetext UnknownText_0x122f3 closetext loadmovesprites end ; 0x122ee UnknownText_0x122ee: ; 0x122ee ; found @ ! text_jump UnknownText_0x1c0a1c db "@" ; 0x122f3 UnknownText_0x122f3: ; 0x122f3 ; But can't carry any more items. text_jump UnknownText_0x1c0a2c db "@" ; 0x122f8 Function122f8: ; 122f8 xor a ld [ScriptVar], a ld a, [EngineBuffer1] ld [$d265], a call GetItemName ld hl, StringBuffer3 call CopyName2 ld a, [EngineBuffer1] ld [CurItem], a ld a, [CurFruit] ld [$d10c], a ld hl, NumItems call ReceiveItem ret nc ld a, $1 ld [ScriptVar], a ret ; 12324 Function12324: ; 12324 ld a, [PartyCount] and a ret z ld a, [ScriptVar] ld [Buffer1], a ld a, [rOBP1] ld [Buffer2], a call Function1233e ld a, [Buffer2] call Functiond24 ret ; 1233e Function1233e: ; 1233e xor a ld [$d1ec], a .asm_12342 ld a, [Buffer1] ld e, a ld d, $0 ld hl, $6365 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ld a, [$d1ec] ld e, a inc a ld [$d1ec], a add hl, de ld a, [hl] cp $5 jr z, .asm_12364 ld hl, $6377 rst JumpTable jr .asm_12342 .asm_12364 ret ; 12365 INCBIN "baserom.gbc",$12365,$12377 - $12365 Table12377: ; 12377 dw Function12383 dw Function12393 dw Function123a1 dw Function123bf dw Function123c8 dw Function123db ; 12383 Function12383: ; 12383 call Function12434 ld de, $63fc ld hl, $87c0 ld bc, $0402 call Request2bpp ret ; 12393 Function12393: ; 12393 ld hl, $c480 ld de, $63dc call Function124a3 call Function124a3 jr Function123a7 Function123a1: ; 123a1 ld hl, $c480 ld de, $641c Function123a7: ; 123a7 ld a, [PartyCount] ld b, a .asm_123ab call Function124a3 push de ld de, $0012 call PlaySFX pop de ld c, $1e call DelayFrames dec b jr nz, .asm_123ab ret ; 123bf Function123bf: ; 123bf ld de, $000d call PlayMusic jp Function12459 ; 123c8 Function123c8: ; 123c8 ld de, $00aa call PlaySFX call Function12459 call WaitSFX ld de, $000d call PlaySFX ret ; 123db Function123db: ; 123db ret ; 123dc INCBIN "baserom.gbc",$123dc,$12434 - $123dc Function12434: ; 12434 call Function3218 jr nz, .asm_1243e ld a, $e0 ld [rOBP1], a ret .asm_1243e ld hl, $6451 ld de, CurMart ld bc, $0008 ld a, $5 call FarCopyWRAM ld a, $1 ld [hCGBPalUpdate], a ret ; 12451 INCBIN "baserom.gbc",$12451,$12459 - $12451 Function12459: ; 12459 ld c, $8 .asm_1245b push bc call Function12469 ld c, $a call DelayFrames pop bc dec c jr nz, .asm_1245b ret ; 12469 Function12469: ; 12469 call Function3218 jr nz, .asm_12475 ld a, [rOBP1] xor $28 ld [rOBP1], a ret .asm_12475 ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, CurMart ld a, [hli] ld e, a ld a, [hli] ld d, a push de ld c, $3 .asm_12486 ld a, [hli] ld e, a ld a, [hld] ld d, a dec hl ld a, d ld [hld], a ld a, e ld [hli], a inc hl inc hl inc hl dec c jr nz, .asm_12486 pop de dec hl ld a, d ld [hld], a ld a, e ld [hl], a pop af ld [rSVBK], a ld a, $1 ld [hCGBPalUpdate], a ret ; 124a3 Function124a3: ; 124a3 push bc ld a, [Buffer1] ld bc, $1020 cp $1 jr z, .asm_124b1 ld bc, $0000 .asm_124b1 ld a, [de] add c inc de ld [hli], a ld a, [de] add b inc de ld [hli], a ld a, [de] inc de ld [hli], a ld a, [de] inc de ld [hli], a pop bc ret ; 124c1 INCBIN "baserom.gbc",$124c1,$124c8 - $124c1 UnknownScript_0x124c8: ; 0x124c8 refreshscreen $0 3callasm Function124fa 2writetext UnknownText_0x124f5 closetext special $002e pause 40 special $001b checkflag $0011 iftrue .script_64f2 3callasm HalveMoney 3callasm Function12527 3call UnknownScript_0x122c1 special $0000 newloadmap $f1 resetfuncs .script_64f2 jumpstd $0016 ; 0x124f5 UnknownText_0x124f5: ; 0x124f5 text_jump UnknownText_0x1c0a4e db $50 ; 0x124fa Function124fa: ; 124fa call ClearPalettes call Functionfdb call Function3200 call HideSprites call Function4f0 ret ; 1250a ld b, $0 call GetSGBLayout call Function32f9 ret HalveMoney: ; 12513 ; Empty function... callba Function1060c7 ; Halve the player's money. ld hl, Money ld a, [hl] srl a ld [hli], a ld a, [hl] rra ld [hli], a ld a, [hl] rra ld [hl], a ret ; 12527 Function12527: ; 12527 ld a, [$dcb2] ld d, a ld a, [$dcb3] ld e, a callba Function15344 ld a, c jr c, .asm_12539 xor a .asm_12539 ld [$d001], a ret ; 1253d INCBIN "baserom.gbc",$1253d,$12580 - $1253d Function12580: ; 12580 callba Functionb8172 jr c, .asm_1258d ld hl, $65ba jr .asm_12590 .asm_1258d ld hl, $65ad .asm_12590 call Function31cd ld a, $1 ld [$d0ec], a ret ; 12599 INCBIN "baserom.gbc",$12599,$125cd - $12599 StartMenu: ; 125cd call Function1fbf ld de, SFX_MENU call PlaySFX callba Function6454 ld hl, StatusFlags2 bit 2, [hl] ; bug catching contest ld hl, .MenuDataHeader jr z, .GotMenuData ld hl, .ContestMenuDataHeader .GotMenuData call LoadMenuDataHeader call .SetUpMenuItems ld a, [$d0d2] ld [$cf88], a call .DrawMenuAccount_ call MenuFunc_1e7f call .DrawBugContestStatusBox call Function2e31 call Function2e20 callba Function64bf call .DrawBugContestStatus call UpdateTimePals jr .Select .Reopen call Function1ad2 call UpdateTimePals call .SetUpMenuItems ld a, [$d0d2] ld [$cf88], a .Select call .GetInput jr c, .Exit call .DrawMenuAccount ld a, [$cf88] ld [$d0d2], a call PlayClickSFX call Function1bee call .OpenMenu ; Menu items have different return functions. ; For example, saving exits the menu. ld hl, .MenuReturns ld e, a ld d, 0 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] .MenuReturns dw .Reopen dw .Exit dw .ReturnTwo dw .ReturnThree dw .ReturnFour dw .ReturnEnd dw .ReturnRedraw .Exit ld a, [hOAMUpdate] push af ld a, 1 ld [hOAMUpdate], a call Functione5f pop af ld [hOAMUpdate], a .ReturnEnd call Function1c07 .ReturnEnd2 call Function2dcf call UpdateTimePals ret .GetInput ; Return carry on exit, and no-carry on selection. xor a ld [hBGMapMode], a call .DrawMenuAccount call SetUpMenu ld a, $ff ld [MenuSelection], a .loop call .PrintMenuAccount call Function1f1a ld a, [$cf73] cp B_BUTTON jr z, .b cp A_BUTTON jr z, .a jr .loop .a call PlayClickSFX and a ret .b scf ret ; 12691 .ReturnFour ; 12691 call Function1c07 ld a, $80 ld [$ffa0], a ret ; 12699 .ReturnThree ; 12699 call Function1c07 ld a, $80 ld [$ffa0], a jr .ReturnEnd2 ; 126a2 .ReturnTwo ; 126a2 call Function1c07 ld hl, $d0e9 ld a, [hli] ld h, [hl] ld l, a ld a, [$d0e8] rst FarCall jr .ReturnEnd2 ; 126b1 .ReturnRedraw ; 126b1 call .Clear jp .Reopen ; 126b7 .Clear ; 126b7 call WhiteBGMap call Function1d7d call Function2bae call .DrawMenuAccount_ call MenuFunc_1e7f call .DrawBugContestStatus call Function1ad2 call Functiond90 call Function2b5c ret ; 126d3 .MenuDataHeader db $40 ; tile backup db 0, 10 ; start coords db 17, 19 ; end coords dw .MenuData db 1 ; default selection .ContestMenuDataHeader db $40 ; tile backup db 2, 10 ; start coords db 17, 19 ; end coords dw .MenuData db 1 ; default selection .MenuData db %10101000 ; x padding, wrap around, start can close dn 0, 0 ; rows, columns dw MenuItemsList dw .MenuString dw .Items .Items dw StartMenu_Pokedex, .PokedexString, .PokedexDesc dw StartMenu_Pokemon, .PartyString, .PartyDesc dw StartMenu_Pack, .PackString, .PackDesc dw StartMenu_Status, .StatusString, .StatusDesc dw StartMenu_Save, .SaveString, .SaveDesc dw StartMenu_Option, .OptionString, .OptionDesc dw StartMenu_Exit, .ExitString, .ExitDesc dw StartMenu_Pokegear, .PokegearString, .PokegearDesc dw StartMenu_Quit, .QuitString, .QuitDesc .PokedexString db "#DEX@" .PartyString db "#MON@" .PackString db "PACK@" .StatusString db $52, "@" .SaveString db "SAVE@" .OptionString db "OPTION@" .ExitString db "EXIT@" .PokegearString db $24, "GEAR@" .QuitString db "QUIT@" .PokedexDesc db "#MON", $4e, "database@" .PartyDesc db "Party ", $4a, $4e, "status@" .PackDesc db "Contains", $4e, "items@" .PokegearDesc db "Trainer's", $4e, "key device@" .StatusDesc db "Your own", $4e, "status@" .SaveDesc db "Save your", $4e, "progress@" .OptionDesc db "Change", $4e, "settings@" .ExitDesc db "Close this", $4e, "menu@" .QuitDesc db "Quit and", $4e, "be judged.@" .OpenMenu ; 127e5 ld a, [MenuSelection] call .GetMenuAccountTextPointer ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 127ef .MenuString ; 127ef push de ld a, [MenuSelection] call .GetMenuAccountTextPointer inc hl inc hl ld a, [hli] ld d, [hl] ld e, a pop hl call PlaceString ret ; 12800 .MenuDesc ; 12800 push de ld a, [MenuSelection] cp $ff jr z, .none call .GetMenuAccountTextPointer inc hl inc hl inc hl inc hl ld a, [hli] ld d, [hl] ld e, a pop hl call PlaceString ret .none pop de ret ; 12819 .GetMenuAccountTextPointer ; 12819 ld e, a ld d, 0 ld hl, $cf97 ld a, [hli] ld h, [hl] ld l, a add hl, de add hl, de add hl, de add hl, de add hl, de add hl, de ret ; 12829 .SetUpMenuItems ; 12829 xor a ld [$cf76], a call .FillMenuList ld hl, StatusFlags bit 0, [hl] jr z, .no_pokedex ld a, 0 ; pokedex call .AppendMenuList .no_pokedex ld a, [PartyCount] and a jr z, .no_pokemon ld a, 1 ; pokemon call .AppendMenuList .no_pokemon ld a, [InLinkBattle] and a jr nz, .no_pack ld hl, StatusFlags2 bit 2, [hl] ; bug catching contest jr nz, .no_pack ld a, 2 ; pack call .AppendMenuList .no_pack ld hl, $d957 bit 7, [hl] jr z, .no_pokegear ld a, 7 ; pokegear call .AppendMenuList .no_pokegear ld a, 3 ; status call .AppendMenuList ld a, [InLinkBattle] and a jr nz, .no_save ld hl, StatusFlags2 bit 2, [hl] ; bug catching contest ld a, 8 ; quit jr nz, .write ld a, 4 ; save .write call .AppendMenuList .no_save ld a, 5 ; option call .AppendMenuList ld a, 6 ; exit call .AppendMenuList ld a, c ld [MenuItemsList], a ret ; 1288d .FillMenuList ; 1288d xor a ld hl, MenuItemsList ld [hli], a ld a, $ff ld bc, $000f call ByteFill ld de, MenuItemsList + 1 ld c, 0 ret ; 128a0 .AppendMenuList ; 128a0 ld [de], a inc de inc c ret ; 128a4 .DrawMenuAccount_ ; 128a4 jp .DrawMenuAccount ; 128a7 .PrintMenuAccount ; 128a7 call .IsMenuAccountOn ret z call .DrawMenuAccount decoord 0, 14 jp .MenuDesc ; 128b4 .DrawMenuAccount ; 128b4 call .IsMenuAccountOn ret z hlcoord 0, 13 ld bc, $050a call ClearBox hlcoord 0, 13 ld b, 3 ld c, 8 jp TextBoxPalette ; 128cb .IsMenuAccountOn ; 128cb ld a, [Options2] and 1 ret ; 128d1 .DrawBugContestStatusBox ; 128d1 ld hl, StatusFlags2 bit 2, [hl] ; bug catching contest ret z callba Function24bdc ret ; 128de .DrawBugContestStatus ; 128de ld hl, StatusFlags2 bit 2, [hl] ; bug catching contest jr nz, .contest ret .contest callba Function24be7 ret ; 128ed StartMenu_Exit: ; 128ed ; Exit the menu. ld a, 1 ret ; 128f0 StartMenu_Quit: ; 128f0 ; Retire from the bug catching contest. ld hl, .EndTheContestText call Function12cf5 jr c, .asm_12903 ld a, $4 ld hl, $760b call Function31cf ld a, 4 ret .asm_12903 ld a, 0 ret .EndTheContestText text_jump UnknownText_0x1c1a6c db "@" ; 1290b StartMenu_Save: ; 1290b ; Save the game. call Function2879 callba Function14a1a jr nc, .asm_12919 ld a, 0 ret .asm_12919 ld a, 1 ret ; 1291c StartMenu_Option: ; 1291c ; Game options. call FadeToMenu callba OptionsMenu ld a, 6 ret ; 12928 StartMenu_Status: ; 12928 ; Player status. call FadeToMenu callba Function25105 call Function2b3c ld a, 0 ret ; 12937 StartMenu_Pokedex: ; 12937 ld a, [PartyCount] and a jr z, .asm_12949 call FadeToMenu callba Pokedex call Function2b3c .asm_12949 ld a, 0 ret ; 1294c StartMenu_Pokegear: ; 1294c call FadeToMenu callba Function90b8d call Function2b3c ld a, 0 ret ; 1295b StartMenu_Pack: ; 1295b call FadeToMenu callba Function10000 ld a, [$cf66] and a jr nz, .asm_12970 call Function2b3c ld a, 0 ret .asm_12970 call Function2b4d ld a, 4 ret ; 12976 StartMenu_Pokemon: ; 12976 ld a, [PartyCount] and a jr z, .return call FadeToMenu .choosemenu xor a ld [PartyMenuActionText], a ; Choose a POKéMON. call WhiteBGMap .menu callba Function5004f callba Function50405 callba Function503e0 .menunoreload callba WritePartyMenuTilemap callba PrintPartyMenuText call WaitBGMap call Function32f9 ; load regular palettes? call DelayFrame callba PartyMenuSelect jr c, .return ; if cancelled or pressed B call PokemonActionSubmenu cp 3 jr z, .menu cp 0 jr z, .choosemenu cp 1 jr z, .menunoreload cp 2 jr z, .quit .return call Function2b3c ld a, 0 ret .quit ld a, b push af call Function2b4d pop af ret ; 129d5 Function129d5: ; 129d5 ld a, [NumItems] ; $d892 (aliases: TMsHMsEnd) and a ret nz ld a, [NumKeyItems] ; $d8bc (aliases: ItemsEnd) and a ret nz ld a, [NumBalls] ; $d8d7 (aliases: KeyItemsEnd) and a ret nz ld hl, TMsHMs ; $d859 ld b, $39 .asm_129e9 ld a, [hli] and a jr nz, .asm_129f2 dec b jr nz, .asm_129e9 scf ret .asm_129f2 and a ret Function129f4: ; 129f4 push de call PartyMonItemName callba _CheckTossableItem ld a, [$d142] and a jr nz, .asm_12a3f ld hl, $6a45 call Function1d4f callba Function24fbf push af call Function1c17 call Function1c07 pop af jr c, .asm_12a42 ld hl, $6a4a call Function1d4f call YesNoBox push af call Function1c07 pop af jr c, .asm_12a42 pop hl ld a, [$d107] call TossItem call PartyMonItemName ld hl, $6a4f call Function1d4f call Function1c07 and a ret .asm_12a3f call Function12a54 .asm_12a42 pop hl scf ret ; 12a45 (4:6a45) INCBIN "baserom.gbc",$12a45,$12a54 - $12a45 ; known jump sources: 12a3f (4:6a3f) Function12a54: ; 12a54 (4:6a54) ld hl, $6a5b call Function1d67 ret ; 12a5b (4:6a5b) INCBIN "baserom.gbc",$12a5b,$12a60 - $12a5b CantUseItem: ; 12a60 ld hl, CantUseItemText call Function2012 ret ; 12a67 CantUseItemText: ; 12a67 text_jump UnknownText_0x1c1b03 db "@" ; 12a6c PartyMonItemName: ; 12a6c ld a, [CurItem] ld [$d265], a call GetItemName call CopyName1 ret ; 12a79 CancelPokemonAction: ; 12a79 callba Function50405 callba Function8ea71 ld a, 1 ret ; 12a88 PokemonActionSubmenu: ; 12a88 hlcoord 1, 15 ld bc, $0212 ; box size call ClearBox callba Function24d19 call GetCurNick ld a, [MenuSelection] ld hl, .Actions ld de, 3 call IsInArray jr nc, .nothing inc hl ld a, [hli] ld h, [hl] ld l, a jp [hl] .nothing ld a, 0 ret .Actions dbw 1, Function12e1b ; Cut dbw 2, Function12e30 ; Fly dbw 3, Function12ebd ; Surf dbw 4, Function12e6a ; Strength dbw 6, Function12e55 ; Flash dbw 7, Function12e7f ; Whirlpool dbw 8, Function12ed1 ; Dig dbw 9, Function12ea9 ; Teleport dbw 10, Function12ee6 ; Softboiled dbw 13, Function12ee6 ; MilkDrink dbw 11, Function12f26 ; Headbutt dbw 5, Function12e94 ; Flash dbw 12, Function12f3b ; RockSmash dbw 14, Function12f50 ; SweetScent dbw 15, OpenPartyStats dbw 16, SwitchPartyMons dbw 17, GiveTakePartyMonItem dbw 18, CancelPokemonAction dbw 19, Function12fba ; move dbw 20, Function12d45 ; mail ; 12aec SwitchPartyMons: ; 12aec ; Don't try if there's nothing to switch! ld a, [PartyCount] cp 2 jr c, .DontSwitch ld a, [CurPartyMon] inc a ld [$d0e3], a callba Function8ea8c callba Function5042d ld a, 4 ld [PartyMenuActionText], a callba WritePartyMenuTilemap callba PrintPartyMenuText hlcoord 0, 1 ld bc, 20 * 2 ld a, [$d0e3] dec a call AddNTimes ld [hl], "▷" call WaitBGMap call Function32f9 call DelayFrame callba PartyMenuSelect bit 1, b jr c, .DontSwitch callba Function50f12 xor a ld [PartyMenuActionText], a callba Function5004f callba Function50405 callba Function503e0 ld a, 1 ret .DontSwitch xor a ld [PartyMenuActionText], a call CancelPokemonAction ret ; 12b60 GiveTakePartyMonItem: ; 12b60 ; Eggs can't hold items! ld a, [CurPartySpecies] cp EGG jr z, .asm_12ba6 ld hl, GiveTakeItemMenuData call LoadMenuDataHeader call Function1d81 call Function1c07 jr c, .asm_12ba6 call GetCurNick ld hl, StringBuffer1 ld de, $d050 ld bc, $b call CopyBytes ld a, [$cfa9] cp 1 jr nz, .asm_12ba0 call Function1d6e call ClearPalettes call Function12ba9 call ClearPalettes call Functione58 call Function1c07 ld a, 0 ret .asm_12ba0 call TakePartyItem ld a, 3 ret .asm_12ba6 ld a, 3 ret ; 12ba9 Function12ba9: ; 12ba9 callba Function106a5 .loop callba Function106be ld a, [$cf66] and a jr z, .quit ld a, [$cf65] cp 2 jr z, .next call CheckTossableItem ld a, [$d142] and a jr nz, .next call Function12bd9 jr .quit .next ld hl, CantBeHeldText call Function1d67 jr .loop .quit ret ; 12bd9 Function12bd9: ; 12bd9 call SpeechTextBox call PartyMonItemName call GetPartyItemLocation ld a, [hl] and a jr z, .asm_12bf4 push hl ld d, a callba ItemIsMail pop hl jr c, .asm_12c01 ld a, [hl] jr .asm_12c08 .asm_12bf4 call Function12cea ld hl, MadeHoldText call Function1d67 call GivePartyItem ret .asm_12c01 ld hl, PleaseRemoveMailText call Function1d67 ret .asm_12c08 ld [$d265], a call GetItemName ld hl, SwitchAlreadyHoldingText call Function12cf5 jr c, .asm_12c4b call Function12cea ld a, [$d265] push af ld a, [CurItem] ld [$d265], a pop af ld [CurItem], a call Function12cdf jr nc, .asm_12c3c ld hl, TookAndMadeHoldText call Function1d67 ld a, [$d265] ld [CurItem], a call GivePartyItem ret .asm_12c3c ld a, [$d265] ld [CurItem], a call Function12cdf ld hl, ItemStorageIsFullText call Function1d67 .asm_12c4b ret ; 12c4c GivePartyItem: ; 12c4c call GetPartyItemLocation ld a, [CurItem] ld [hl], a ld d, a callba ItemIsMail jr nc, .asm_12c5f call Function12cfe .asm_12c5f ret ; 12c60 TakePartyItem: ; 12c60 call SpeechTextBox call GetPartyItemLocation ld a, [hl] and a jr z, .asm_12c8c ld [CurItem], a call Function12cdf jr nc, .asm_12c94 callba ItemIsMail call GetPartyItemLocation ld a, [hl] ld [$d265], a ld [hl], NO_ITEM call GetItemName ld hl, TookFromText call Function1d67 jr .asm_12c9a .asm_12c8c ld hl, IsntHoldingAnythingText call Function1d67 jr .asm_12c9a .asm_12c94 ld hl, ItemStorageIsFullText call Function1d67 .asm_12c9a ret ; 12c9b GiveTakeItemMenuData: ; 12c9b db %01010000 db 12, 12 ; start coords db 17, 19 ; end coords dw .Items db 1 ; default option .Items db %10000000 ; x padding db 2 ; # items db "GIVE@" db "TAKE@" ; 12caf TookAndMadeHoldText: ; 12caf text_jump UnknownText_0x1c1b2c db "@" ; 12cb4 MadeHoldText: ; 12cb4 text_jump UnknownText_0x1c1b57 db "@" ; 12cb9 PleaseRemoveMailText: ; 12cb9 text_jump UnknownText_0x1c1b6f db "@" ; 12cbe IsntHoldingAnythingText: ; 12cbe text_jump UnknownText_0x1c1b8e db "@" ; 12cc3 ItemStorageIsFullText: ; 12cc3 text_jump UnknownText_0x1c1baa db "@" ; 12cc8 TookFromText: ; 12cc8 text_jump UnknownText_0x1c1bc4 db "@" ; 12ccd SwitchAlreadyHoldingText: ; 12ccd text_jump UnknownText_0x1c1bdc db "@" ; 12cd2 CantBeHeldText: ; 12cd2 text_jump UnknownText_0x1c1c09 db "@" ; 12cd7 GetPartyItemLocation: ; 12cd7 push af ld a, PartyMon1Item - PartyMon1 call GetPartyParamLocation pop af ret ; 12cdf Function12cdf: ; 12cdf ld a, $1 ld [$d10c], a ld hl, NumItems jp ReceiveItem ; 12cea ; known jump sources: 12bf4 (4:6bf4), 12c16 (4:6c16) Function12cea: ; 12cea (4:6cea) ld a, $1 ld [$d10c], a ld hl, NumItems ; $d892 (aliases: TMsHMsEnd) jp TossItem Function12cf5: ; 12cf5 call Function1d4f call YesNoBox jp Function1c07 ; 12cfe ; known jump sources: 12c5c (4:6c5c) Function12cfe: ; 12cfe (4:6cfe) ld de, DefaultFlypoint ; $d002 callba Function11e75 ld hl, PlayerName ; $d47d ld de, $d023 ld bc, $a call CopyBytes ld hl, PlayerID ; $d47b ld bc, $2 call CopyBytes ld a, [CurPartySpecies] ; $d108 ld [de], a inc de ld a, [CurItem] ; $d106 ld [de], a ld a, [CurPartyMon] ; $d109 ld hl, $a600 ld bc, $2f call AddNTimes ld d, h ld e, l ld hl, DefaultFlypoint ; $d002 ld bc, $2f ld a, $0 call GetSRAMBank call CopyBytes call CloseSRAM ret Function12d45: ; 12d45 ld a, [InLinkBattle] cp $1 jr z, .asm_12d6d cp $2 jr z, .asm_12d6d ld hl, $6dc9 call LoadMenuDataHeader call Function1d81 call Function1c07 jp c, .asm_12dc6 ld a, [$cfa9] cp $1 jr z, .asm_12d6d cp $2 jr z, .asm_12d76 jp .asm_12dc6 .asm_12d6d callba Functionb9229 ld a, $0 ret .asm_12d76 ld hl, UnknownText_0x12df1 call Function12cf5 jr c, .asm_12d9a ld a, [CurPartyMon] ld b, a callba Function4456e jr c, .asm_12d92 ld hl, UnknownText_0x12dfb call Function1d67 jr .asm_12dc6 .asm_12d92 ld hl, UnknownText_0x12df6 call Function1d67 jr .asm_12dc6 .asm_12d9a ld hl, UnknownText_0x12de2 call Function12cf5 jr c, .asm_12dc6 call GetPartyItemLocation ld a, [hl] ld [CurItem], a call Function12cdf jr nc, .asm_12dbe call GetPartyItemLocation ld [hl], $0 call GetCurNick ld hl, UnknownText_0x12de7 call Function1d67 jr .asm_12dc6 .asm_12dbe ld hl, UnknownText_0x12dec call Function1d67 jr .asm_12dc6 .asm_12dc6 ld a, $3 ret ; 12dc9 INCBIN "baserom.gbc",$12dc9,$12de2 - $12dc9 UnknownText_0x12de2: ; 0x12de2 text_jump UnknownText_0x1c1c22 db "@" ; 0x12de7 UnknownText_0x12de7: ; 0x12de7 text_jump UnknownText_0x1c1c47 db "@" ; 0x12dec UnknownText_0x12dec: ; 0x12dec text_jump UnknownText_0x1c1c62 db "@" ; 0x12df1 UnknownText_0x12df1: ; 0x12df1 text_jump UnknownText_0x1c1c86 db "@" ; 0x12df6 UnknownText_0x12df6: ; 0x12df6 text_jump UnknownText_0x1c1ca9 db "@" ; 0x12dfb UnknownText_0x12dfb: ; 0x12dfb text_jump UnknownText_0x1c1cc4 db "@" ; 0x12e00 OpenPartyStats: ; 12e00 call Function1d6e call ClearSprites ; PartyMon xor a ld [MonType], a call LowVolume ld a, $25 call Predef call MaxVolume call Function1d7d ld a, 0 ret ; 12e1b Function12e1b: ; 12e1b callba Functionc785 ld a, [$d0ec] cp $1 jr nz, .asm_12e2d ld b, $4 ld a, $2 ret .asm_12e2d ld a, $3 ret ; 12e30 Function12e30: ; 12e30 callba Functionca3b ld a, [$d0ec] cp $2 jr z, .asm_12e4c cp $0 jr z, .asm_12e4f callba Function1060b5 ld b, $4 ld a, $2 ret .asm_12e4c ld a, $3 ret .asm_12e4f ld a, $0 ret ; 12e52 INCBIN "baserom.gbc",$12e52,$12e55 - $12e52 Function12e55: ; 12e55 callba Functionc8ac ld a, [$d0ec] cp $1 jr nz, .asm_12e67 ld b, $4 ld a, $2 ret .asm_12e67 ld a, $3 ret ; 12e6a Function12e6a: ; 12e6a callba Functioncce5 ld a, [$d0ec] cp $1 jr nz, .asm_12e7c ld b, $4 ld a, $2 ret .asm_12e7c ld a, $3 ret ; 12e7f Function12e7f: ; 12e7f callba Functioncd9d ld a, [$d0ec] cp $1 jr nz, .asm_12e91 ld b, $4 ld a, $2 ret .asm_12e91 ld a, $3 ret ; 12e94 Function12e94: ; 12e94 callba Functioncade ld a, [$d0ec] cp $1 jr nz, .asm_12ea6 ld b, $4 ld a, $2 ret .asm_12ea6 ld a, $3 ret ; 12ea9 Function12ea9: ; 12ea9 callba Functioncc61 ld a, [$d0ec] and a jr z, .asm_12eba ld b, $4 ld a, $2 ret .asm_12eba ld a, $3 ret ; 12ebd Function12ebd: ; 12ebd callba Functionc909 ld a, [$d0ec] and a jr z, .asm_12ece ld b, $4 ld a, $2 ret .asm_12ece ld a, $3 ret ; 12ed1 Function12ed1: ; 12ed1 callba Functioncb9c ld a, [$d0ec] cp $1 jr nz, .asm_12ee3 ld b, $4 ld a, $2 ret .asm_12ee3 ld a, $3 ret ; 12ee6 Function12ee6: ; 12ee6 call Function12f05 jr nc, .asm_12ef3 callba Functionf3df jr .asm_12ef9 .asm_12ef3 ld hl, $6f00 call PrintText .asm_12ef9 xor a ld [PartyMenuActionText], a ld a, $3 ret ; 12f00 INCBIN "baserom.gbc",$12f00,$12f05 - $12f00 Function12f05: ; 12f05 ld a, $24 call GetPartyParamLocation ld a, [hli] ld [hProduct], a ld a, [hl] ld [hMultiplicand], a ld a, $5 ld [hMultiplier], a ld b, $2 call Divide ld a, $23 call GetPartyParamLocation ld a, [$ffb6] sub [hl] dec hl ld a, [$ffb5] sbc [hl] ret ; 12f26 Function12f26: ; 12f26 callba Functionce7d ld a, [$d0ec] cp $1 jr nz, .asm_12f38 ld b, $4 ld a, $2 ret .asm_12f38 ld a, $3 ret ; 12f3b Function12f3b: ; 12f3b callba Functionceeb ld a, [$d0ec] cp $1 jr nz, .asm_12f4d ld b, $4 ld a, $2 ret .asm_12f4d ld a, $3 ret ; 12f50 Function12f50: ; 12f50 callba Function506bc ld b, $4 ld a, $2 ret ; 12f5b Function12f5b: ; 12f5b ld hl, Options ld a, [hl] push af set 4, [hl] call Functione58 call Function12f73 pop bc ld a, b ld [Options], a push af call WhiteBGMap pop af ret ; 12f73 Function12f73: ; 12f73 call Function13172 ld de, $6fb2 call Function1bb1 call Function131ef ld hl, $cfa5 set 6, [hl] jr Function12f93 Function12f86: ; 12f86 call Function1bd3 bit 1, a jp nz, Function12f9f bit 0, a jp nz, Function12f9c Function12f93: ; 12f93 call Function13235 call Function13256 jp Function12f86 ; 12f9c Function12f9c: ; 12f9c and a jr Function12fa0 Function12f9f: ; 12f9f scf Function12fa0: ; 12fa0 push af xor a ld [$d0e3], a ld hl, $cfa5 res 6, [hl] call ClearSprites call ClearTileMap pop af ret ; 12fb2 INCBIN "baserom.gbc",$12fb2,$12fba - $12fb2 Function12fba: ; 12fba ld a, [CurPartySpecies] cp EGG jr z, .asm_12fd2 ld hl, Options ld a, [hl] push af set 4, [hl] call Function12fd5 pop af ld [Options], a call WhiteBGMap .asm_12fd2 ld a, $0 ret ; 12fd5 Function12fd5: ; 12fd5 ld a, [CurPartyMon] inc a ld [$d0d8], a call Function13172 call Function132d3 ld de, $7163 call Function1bb1 .asm_12fe8 call Function131ef ld hl, $cfa5 set 6, [hl] jr .asm_13009 .asm_12ff2 call Function1bd3 bit 1, a jp nz, .asm_13038 bit 0, a jp nz, .asm_130c6 bit 4, a jp nz, .asm_1305b bit 5, a jp nz, .asm_13075 .asm_13009 call Function13235 ld a, [$d0e3] and a jr nz, .asm_13018 call Function13256 jp .asm_12ff2 .asm_13018 ld a, $7f ld hl, $c57d ld bc, $0005 call ByteFill ld hl, $c591 ld bc, $0512 call ClearBox ld hl, $c591 ld de, $716b call PlaceString jp .asm_12ff2 .asm_13038: ; 13038 call PlayClickSFX call WaitSFX ld a, [$d0e3] and a jp z, Function13154 ld a, [$d0e3] ld [$cfa9], a xor a ld [$d0e3], a ld hl, $c4c9 ld bc, $0812 call ClearBox jp .asm_12fe8 ; 1305b .asm_1305b: ; 1305b ld a, [$d0e3] and a jp nz, .asm_12ff2 ld a, [CurPartyMon] ld b, a push bc call .asm_1308f pop bc ld a, [CurPartyMon] cp b jp z, .asm_12ff2 jp Function12fd5 .asm_13075: ; 13075 ld a, [$d0e3] and a jp nz, .asm_12ff2 ld a, [CurPartyMon] ld b, a push bc call .asm_130a7 pop bc ld a, [CurPartyMon] cp b jp z, .asm_12ff2 jp Function12fd5 .asm_1308f ld a, [CurPartyMon] inc a ld [CurPartyMon], a ld c, a ld b, 0 ld hl, PartySpecies add hl, bc ld a, [hl] cp $ff jr z, .asm_130a7 cp EGG ret nz jr .asm_1308f .asm_130a7 ld a, [CurPartyMon] and a ret z .asm_130ac ld a, [CurPartyMon] dec a ld [CurPartyMon], a ld c, a ld b, 0 ld hl, PartySpecies add hl, bc ld a, [hl] cp EGG ret nz ld a, [CurPartyMon] and a jr z, .asm_1308f jr .asm_130ac ; 130c6 .asm_130c6: ; 130c6 call PlayClickSFX call WaitSFX ld a, [$d0e3] and a jr nz, .asm_130de ld a, [$cfa9] ld [$d0e3], a call Function1bee jp .asm_13018 .asm_130de ld hl, PartyMon1Move1 ld bc, $0030 ld a, [CurPartyMon] call AddNTimes push hl call Function1313a pop hl ld bc, $0015 add hl, bc call Function1313a ld a, [IsInBattle] jr z, .asm_13113 ld hl, BattleMonMove1 ld bc, $0020 ld a, [CurPartyMon] call AddNTimes push hl call Function1313a pop hl ld bc, $0006 add hl, bc call Function1313a .asm_13113 ld de, $0020 call PlaySFX call WaitSFX ld de, $0020 call PlaySFX call WaitSFX ld hl, $c4c9 ld bc, $0812 call ClearBox ld hl, $c572 ld bc, $0109 call ClearBox jp .asm_12fe8 ; 1313a Function1313a: ; 1313a push hl ld a, [$cfa9] dec a ld c, a ld b, $0 add hl, bc ld d, h ld e, l pop hl ld a, [$d0e3] dec a ld c, a ld b, $0 add hl, bc ld a, [de] ld b, [hl] ld [hl], a ld a, b ld [de], a ret ; 13154 Function13154: ; 13154 xor a ld [$d0e3], a ld hl, $cfa5 res 6, [hl] call ClearSprites jp ClearTileMap ; 13163 INCBIN "baserom.gbc",$13163,$13172 - $13163 Function13172: ; 13172 call WhiteBGMap call ClearTileMap call ClearSprites xor a ld [hBGMapMode], a callba Functionfb571 callba Function8e814 ld a, [CurPartyMon] ld e, a ld d, $0 ld hl, PartySpecies add hl, de ld a, [hl] ld [$d265], a ld e, $2 callba Function8e83f ld hl, $c4b4 ld b, $9 ld c, $12 call TextBox ld hl, $c57c ld b, $5 ld c, $12 call TextBox ld hl, $c4a2 ld bc, $0203 call ClearBox xor a ld [MonType], a ld hl, PartyMon1Nickname ld a, [CurPartyMon] call GetNick ld hl, $c4b9 call PlaceString push bc callba Function5084a pop hl call PrintLevel ld hl, PlayerHPPal call SetHPPal ld b, $e call GetSGBLayout ld hl, $c4b0 ld bc, $0103 jp ClearBox ; 131ef Function131ef: ; 131ef xor a ld [hBGMapMode], a ld [$d0e3], a ld [MonType], a ld a, $1f call Predef ld hl, TempMonMove1 ld de, $d25e ld bc, $0004 call CopyBytes ld a, $28 ld [Buffer1], a ld hl, $c4de ld a, $20 call Predef ld hl, $c4fa ld a, $23 call Predef call WaitBGMap call Function32f9 ld a, [$d0eb] inc a ld [$cfa3], a ld hl, $c57c ld b, $5 ld c, $12 jp TextBox ; 13235 Function13235: ; 13235 ld hl, PartyMon1Move1 ld bc, $0030 ld a, [CurPartyMon] call AddNTimes ld a, [$cfa9] dec a ld c, a ld b, $0 add hl, bc ld a, [hl] ld [CurSpecies], a ld hl, $c591 ld bc, $0512 jp ClearBox ; 13256 Function13256: ; 13256 xor a ld [hBGMapMode], a ld hl, $c568 ld de, $72ba call PlaceString ld hl, $c57c ld de, $72c2 call PlaceString ld hl, $c59c ld de, $72ca call PlaceString ld a, [CurSpecies] ld b, a ld hl, $c592 ld a, PREDEF_PRINT_MOVE_TYPE call Predef ld a, [CurSpecies] dec a ld hl, $5afd ld bc, $0007 call AddNTimes ld a, $10 call GetFarByte ld hl, $c5a0 cp $2 jr c, .asm_132a7 ld [$d265], a ld de, $d265 ld bc, $0103 call PrintNum jr .asm_132ad .asm_132a7 ld de, $72cf call PlaceString .asm_132ad ld hl, $c5b9 ld a, $11 call Predef ld a, $1 ld [hBGMapMode], a ret ; 132ba INCBIN "baserom.gbc",$132ba,$132d3 - $132ba Function132d3: ; 132d3 call Function132da call Function132fe ret ; 132da Function132da: ; 132da ld a, [CurPartyMon] and a ret z ld c, a ld e, a ld d, 0 ld hl, PartyCount add hl, de .asm_132e7 ld a, [hl] and a jr z, .asm_132f3 cp EGG jr z, .asm_132f3 cp NUM_POKEMON + 1 jr c, .asm_132f8 .asm_132f3 dec hl dec c jr nz, .asm_132e7 ret .asm_132f8 ld hl, $c4b0 ld [hl], $71 ret ; 132fe Function132fe: ; 132fe ld a, [CurPartyMon] inc a ld c, a ld a, [PartyCount] cp c ret z ld e, c ld d, 0 ld hl, PartySpecies add hl, de .asm_1330f ld a, [hl] cp $ff ret z and a jr z, .asm_1331e cp EGG jr z, .asm_1331e cp NUM_POKEMON + 1 jr c, .asm_13321 .asm_1331e inc hl jr .asm_1330f .asm_13321 hlcoord 18, 0 ld [hl], "▶" ret ; 13327 SelectMenu: ; 13327 call CheckRegisteredItem jr c, .NotRegistered jp UseRegisteredItem .NotRegistered call Function2e08 ld b, BANK(ItemMayBeRegisteredText) ld hl, ItemMayBeRegisteredText call Function269a call Functiona46 jp Function2dcf ; 13340 ItemMayBeRegisteredText: ; 13340 text_jump UnknownText_0x1c1cf3 db "@" ; 13345 CheckRegisteredItem: ; 13345 ld a, [WhichRegisteredItem] and a jr z, .NoRegisteredItem and REGISTERED_POCKET rlca rlca ld hl, .Pockets rst JumpTable ret .Pockets dw .CheckItem dw .CheckBall dw .CheckKeyItem dw .CheckTMHM .CheckItem ld hl, NumItems call .CheckRegisteredNo jr c, .NoRegisteredItem inc hl ld e, a ld d, 0 add hl, de add hl, de call .IsSameItem jr c, .NoRegisteredItem and a ret .CheckKeyItem ld a, [RegisteredItem] ld hl, KeyItems ld de, 1 call IsInArray jr nc, .NoRegisteredItem ld a, [RegisteredItem] ld [CurItem], a and a ret .CheckBall ld hl, NumBalls call .CheckRegisteredNo jr nc, .NoRegisteredItem inc hl ld e, a ld d, 0 add hl, de add hl, de call .IsSameItem jr c, .NoRegisteredItem ret .CheckTMHM jr .NoRegisteredItem .NoRegisteredItem xor a ld [WhichRegisteredItem], a ld [RegisteredItem], a scf ret ; 133a6 .CheckRegisteredNo ; 133a6 ld a, [WhichRegisteredItem] and REGISTERED_NUMBER dec a cp [hl] jr nc, .NotEnoughItems ld [$d107], a and a ret .NotEnoughItems scf ret ; 133b6 .IsSameItem ; 133b6 ld a, [RegisteredItem] cp [hl] jr nz, .NotSameItem ld [CurItem], a and a ret .NotSameItem scf ret ; 133c3 UseRegisteredItem: ; 133c3 callba CheckItemMenu ld a, [$d142] ld hl, .SwitchTo rst JumpTable ret .SwitchTo dw .CantUse dw .NoFunction dw .NoFunction dw .NoFunction dw .Current dw .Party dw .Overworld ; 133df .NoFunction ; 133df call Function2e08 call CantUseItem call Function2dcf and a ret ; 133ea .Current ; 133ea call Function2e08 call DoItemEffect call Function2dcf and a ret ; 133f5 .Party ; 133f5 call ResetWindow call FadeToMenu call DoItemEffect call Function2b3c call Function2dcf and a ret ; 13406 .Overworld ; 13406 call ResetWindow ld a, 1 ld [$d0ef], a call DoItemEffect xor a ld [$d0ef], a ld a, [$d0ec] cp 1 jr nz, .asm_13425 scf ld a, $80 ld [$ffa0], a ret ; 13422 .CantUse ; 13422 call ResetWindow .asm_13425 call CantUseItem call Function2dcf and a ret ; 1342d Function1342d: ; 1342d call Function1344a call Function1347d jr c, .asm_13448 ld [$d041], a call Function134dd jr c, .asm_13448 ld hl, $d041 cp [hl] jr z, .asm_13448 call Function134c0 and a ret .asm_13448 scf ret ; 1344a Function1344a: ; 1344a ld a, b ld [EngineBuffer1], a ld a, e ld [$d03f], a ld a, d ld [MartPointer], a call Function1345a ret ; 1345a Function1345a: ; 1345a ld de, CurMart ld bc, $0004 ld hl, $d03f ld a, [hli] ld h, [hl] ld l, a ld a, [EngineBuffer1] call GetFarByte inc hl ld [de], a inc de .asm_1346f ld a, [EngineBuffer1] call GetFarByte ld [de], a inc de add hl, bc cp $ff jr nz, .asm_1346f ret ; 1347d Function1347d: ; 1347d ld hl, $d03f ld a, [hli] ld h, [hl] ld l, a ld a, [EngineBuffer1] call GetFarByte ld c, a inc hl ld a, [BackupMapGroup] ld d, a ld a, [BackupMapNumber] ld e, a ld b, $0 .asm_13495 ld a, [EngineBuffer1] call GetFarByte cp $ff jr z, .asm_134be inc hl inc hl ld a, [EngineBuffer1] call GetFarByte inc hl cp d jr nz, .asm_134b7 ld a, [EngineBuffer1] call GetFarByte inc hl cp e jr nz, .asm_134b8 jr .asm_134bb .asm_134b7 inc hl .asm_134b8 inc b jr .asm_13495 .asm_134bb xor a ld a, b ret .asm_134be scf ret ; 134c0 Function134c0: ; 134c0 push af ld hl, $d03f ld a, [hli] ld h, [hl] ld l, a inc hl pop af ld bc, $0004 call AddNTimes inc hl ld de, $dcac ld a, [EngineBuffer1] ld bc, $0003 call FarCopyBytes ret ; 134dd Function134dd: ; 134dd call Function1d6e ld hl, $750d call PrintText call Function13512 ld hl, $7550 call Function1d3c call Function352f call Function1ad2 xor a ld [$d0e4], a call Function350c call Function1c17 ld a, [$cf73] cp $2 jr z, .asm_1350b xor a ld a, [$cf77] ret .asm_1350b scf ret ; 1350d INCBIN "baserom.gbc",$1350d,$13512 - $1350d Function13512: ; 13512 ld hl, Options ld a, [hl] push af set 4, [hl] ld hl, TileMap ld b, $4 ld c, $8 call TextBox ld hl, $c4c9 ld de, $7537 call PlaceString ld hl, $c4f4 call Function1353f pop af ld [Options], a ret ; 13537 INCBIN "baserom.gbc",$13537,$1353f - $13537 Function1353f: ; 1353f push hl ld a, [$d041] ld e, a ld d, 0 ld hl, $d0f1 add hl, de ld a, [hl] pop de call Function1356b ret ; 13550 INCBIN "baserom.gbc",$13550,$13568 - $13550 ld a, [MenuSelection] ; $cf74 Function1356b: ; 1356b push de call Function13575 ld d, h ld e, l pop hl jp PlaceString ; 13575 Function13575: ; 13575 push de ld e, a ld d, 0 ld hl, .floors add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a pop de ret ; 13583 .floors dw .b4f dw .b3f dw .b2f dw .b1f dw ._1f dw ._2f dw ._3f dw ._4f dw ._5f dw ._6f dw ._7f dw ._8f dw ._9f dw ._10f dw ._11f dw .roof .b4f db "B4F@" .b3f db "B3F@" .b2f db "B2F@" .b1f db "B1F@" ._1f db "1F@" ._2f db "2F@" ._3f db "3F@" ._4f db "4F@" ._5f db "5F@" ._6f db "6F@" ._7f db "7F@" ._8f db "8F@" ._9f db "9F@" ._10f db "10F@" ._11f db "11F@" .roof db "ROOF@" ; 135db Function135db: ; 135db xor a ld [$df9c], a ld a, $14 ld [$dc79], a callba Function11490 ret ; 135eb UnknownScript_0x135eb: ; 0x135eb writecode $3, $6 battlecheck startbattle returnafterbattle copybytetovar $dc79 iffalse UnknownScript_0x13603 end ; 0x135f8 INCBIN "baserom.gbc",$135f8,$13603 - $135f8 UnknownScript_0x13603: ; 0x13603 playsound SFX_ELEVATOR_END loadfont 2writetext UnknownText_0x13614 closetext loadmovesprites jumpstd $0016 ; 0x1360f INCBIN "baserom.gbc",$1360f,$13614 - $1360f UnknownText_0x13614: ; 0x13614 text_jump UnknownText_0x1bd2e7 db $50 ; 0x13619 INCBIN "baserom.gbc",$13619,$1364f - $13619 ld hl, EngineBuffer1 ; $d03e (aliases: MenuItemsList, CurFruitTree, CurInput) ld a, [hli] ld d, [hl] ld e, a ld b, $1 call EventFlagAction ret Function1365b: ; 1365b ld a, c ld de, .table2 - .table1 ld hl, .table1 call IsInArray jr nc, .asm_1367f ld a, $c ; jumpstd ld [$d03f], a inc hl ld a, [hli] ld [$d03f + 1], a ld a, [hli] ld [$d03f + 2], a ld a, BANK(UnknownScript_0x1369a) ld hl, UnknownScript_0x1369a call CallScript scf ret .asm_1367f xor a ret ; 13681 .table1 dbw $91, $0003 ; bookshelf .table2 dbw $93, $0031 ; pc dbw $94, $000b ; radio dbw $95, $0007 ; map dbw $96, $0006 ; merchandise dbw $97, $0009 ; tv dbw $9d, $0008 ; window dbw $9f, $0005 ; incense burner dbw $ff ; end ; 1369a UnknownScript_0x1369a: ; 0x1369a 2jump $d03f ; 0x1369d Function1369d: ; 1369d call Function13900 callba Function105f79 call Function13819 ld a, [$d00a] call Function13730 ld a, [$d00b] ld [$d265], a call GetPokemonName ld hl, $7719 call PrintText ld a, [EndFlypoint] call Function13730 ld a, [MovementBuffer] ld [$d265], a call GetPokemonName ld hl, $7702 call PrintText ld a, [DefaultFlypoint] call Function13730 ld a, [$d003] ld [$d265], a call GetPokemonName ld hl, $76eb call PrintText jp Function13807 ; 136eb INCBIN "baserom.gbc",$136eb,$13730 - $136eb Function13730: ; 13730 dec a jr z, .asm_13777 ld c, a ld b, $0 ld hl, $7783 add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a ld a, [hli] ld c, a push hl push bc callab Function3952d ld hl, StringBuffer1 ld de, $d016 ld bc, $000d call CopyBytes ld hl, $d016 .asm_13757 ld a, [hli] cp $50 jr nz, .asm_13757 dec hl ld [hl], $7f inc hl ld d, h ld e, l pop bc pop hl push de ld a, [hl] ld b, a callab Function3994c ld hl, StringBuffer1 pop de ld bc, $000a jp CopyBytes .asm_13777 ld hl, PlayerName ld de, $d016 ld bc, $000b jp CopyBytes ; 13783 INCBIN "baserom.gbc",$13783,$13807 - $13783 Function13807: ; 13807 ld hl, $d00a ld de, $fffc ld b, $3 .asm_1380f ld a, [hl] cp $1 jr z, .asm_13818 add hl, de dec b jr nz, .asm_1380f .asm_13818 ret ; 13819 Function13819: ; 13819 call Function13833 call Function138b0 ld hl, $d00e ld a, $1 ld [hli], a ld a, [$df9c] ld [hli], a ld a, [hProduct] ld [hli], a ld a, [hMultiplicand] ld [hl], a call Function1383e ret ; 13833 Function13833: ; 13833 ld hl, DefaultFlypoint ld b, $c xor a .asm_13839 ld [hli], a dec b jr nz, .asm_13839 ret ; 1383e Function1383e: ; 1383e ld de, $d010 ld hl, $d004 ld c, $2 call StringCmp jr c, .asm_1386b ld hl, EndFlypoint ld de, $d00a ld bc, $0004 call CopyBytes ld hl, DefaultFlypoint ld de, EndFlypoint ld bc, $0004 call CopyBytes ld hl, DefaultFlypoint call Function138a0 jr .asm_1389f .asm_1386b ld de, $d010 ld hl, $d008 ld c, $2 call StringCmp jr c, .asm_1388c ld hl, EndFlypoint ld de, $d00a ld bc, $0004 call CopyBytes ld hl, EndFlypoint call Function138a0 jr .asm_1389f .asm_1388c ld de, $d010 ld hl, $d00c ld c, $2 call StringCmp jr c, .asm_1389f ld hl, $d00a call Function138a0 .asm_1389f ret ; 138a0 Function138a0: ; 138a0 ld de, $d00e ld a, [de] inc de ld [hli], a ld a, [de] inc de ld [hli], a ld a, [de] inc de ld [hli], a ld a, [de] inc de ld [hl], a ret ; 138b0 Function138b0: ; 138b0 ld e, $0 .asm_138b2 push de call Function139ed pop de jr nz, .asm_138f9 ld a, e inc a inc a ld [$d00e], a dec a ld c, a ld b, $0 ld hl, $7783 add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a inc hl inc hl .asm_138cd call Random and $3 cp $3 jr z, .asm_138cd ld c, a ld b, $0 add hl, bc add hl, bc add hl, bc ld a, [hli] ld [$d00f], a ld a, [hli] ld h, [hl] ld l, a call Random and $7 ld c, a ld b, $0 add hl, bc ld a, h ld [$d010], a ld a, l ld [$d011], a push de call Function1383e pop de .asm_138f9 inc e ld a, e cp $a jr nz, .asm_138b2 ret ; 13900 Function13900: ; 13900 xor a ld [hProduct], a ld [hMultiplicand], a ld a, [$df9c] and a jr z, .asm_1397e ld a, [$dfc1] call Function1397f ld a, [$dfc1] call Function1397f ld a, [$dfc1] call Function1397f ld a, [$dfc1] call Function1397f ld a, [$dfc3] call Function1397f ld a, [$dfc5] call Function1397f ld a, [$dfc7] call Function1397f ld a, [$dfc9] call Function1397f ld a, [$dfcb] call Function1397f ld a, [$dfb1] ld b, a and $2 add a add a ld c, a swap b ld a, b and $2 add a add c ld d, a ld a, [$dfb2] ld b, a and $2 ld c, a swap b ld a, b and $2 srl a add c add c add d add d call Function1397f ld a, [$dfbf] srl a srl a srl a call Function1397f ld a, [$df9d] and a jr z, .asm_1397e ld a, $1 call Function1397f .asm_1397e ret ; 1397f Function1397f: ; 1397f ld hl, hMultiplicand add [hl] ld [hl], a ret nc dec hl inc [hl] ret ; 13988 ; decreases all pokemon's pokerus counter by b. if the lower nybble reaches zero, the pokerus is cured. ApplyPokerusTick: ; 13988 ld hl, PartyMon1PokerusStatus ld a, [PartyCount] and a ret z ld c, a .asm_13991 ld a, [hl] and $f jr z, .asm_139a0 sub b jr nc, .asm_1399a xor a .asm_1399a ld d, a ld a, [hl] and $f0 add d ld [hl], a .asm_139a0 ld de, PartyMon2 - PartyMon1 add hl, de dec c jr nz, .asm_13991 ret ; 139a8 Function139a8: ; 139a8 ld c, $a ld hl, $79fe .asm_139ad push bc push hl ld e, [hl] inc hl ld d, [hl] ld b, $0 call EventFlagAction pop hl inc hl inc hl pop bc dec c jr nz, .asm_139ad ld c, $5 .asm_139c0 push bc .asm_139c1 call Random cp $fa jr nc, .asm_139c1 ld c, $19 call SimpleDivide ld e, b ld d, $0 ld hl, $79fe add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] push de ld b, $2 call EventFlagAction pop de ld a, c and a jr nz, .asm_139c1 ld b, $1 call EventFlagAction pop bc dec c jr nz, .asm_139c0 ret ; 139ed Function139ed: ; 139ed ld hl, $79fe ld e, a ld d, $0 add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] ld b, $2 call EventFlagAction ret ; 139fe INCBIN "baserom.gbc",$139fe,$13a12 - $139fe Function13a12: ; 13a12 ld hl, PartyMon1CurHP ld a, [hli] or [hl] jr z, .asm_13a2b ld hl, PartyCount ld a, $1 ld [hli], a inc hl ld a, [hl] ld [$df9b], a ld [hl], $ff xor a ld [ScriptVar], a ret .asm_13a2b ld a, $1 ld [ScriptVar], a ret ; 13a31 Function13a31: ; 13a31 ld hl, $dcd9 ld a, [$df9b] ld [hl], a ld b, $1 .asm_13a3a ld a, [hli] cp $ff jr z, .asm_13a42 inc b jr .asm_13a3a .asm_13a42 ld a, b ld [PartyCount], a ret ; 13a47 INCBIN "baserom.gbc",$13a47,$13b87 - $13a47 GetSquareRoot: ; 13b87 ; Return the square root of de in b. ; Rather than calculating the result, we take the index of the ; first value in a table of squares that isn't lower than de. ld hl, Squares ld b, 0 .loop ; Make sure we don't go past the end of the table. inc b ld a, b cp $ff ret z ; Iterate over the table until b**2 >= de. ld a, [hli] sub e ld a, [hli] sbc d jr c, .loop ret Squares: ; 13b98 root set 1 rept $ff dw root*root root set root+1 endr ; 13d96 SECTION "bank5", ROMX, BANK[$5] Function14000: ; 14000 ld a, $a ld [$0000], a call LatchClock ld a, $c ld [Function14000], a ld a, [$a000] set 6, a ld [$a000], a call CloseSRAM ret ; 14019 Function14019: ; 14019 ld a, $a ld [$0000], a call LatchClock ld a, $c ld [Function14000], a ld a, [$a000] res 6, a ld [$a000], a call CloseSRAM ret ; 14032 GetTimeOfDay: ; 14032 ; get time of day based on the current hour ld a, [hHours] ; hour ld hl, TimesOfDay .check ; if we're within the given time period, ; get the corresponding time of day cp [hl] jr c, .match ; else, get the next entry inc hl inc hl ; try again jr .check .match ; get time of day inc hl ld a, [hl] ld [TimeOfDay], a ret ; 14044 TimesOfDay: ; 14044 ; hours for the time of day ; 04-09 morn | 10-17 day | 18-03 nite db 04, NITE db 10, MORN db 18, DAY db 24, NITE ; 1404c INCBIN "baserom.gbc",$1404c,$14056 - $1404c Function14056: ; 14056 call UpdateTime ld hl, $d4ba ld a, [CurDay] ld [hli], a ld a, [hHours] ld [hli], a ld a, [hMinutes] ld [hli], a ld a, [hSeconds] ld [hli], a ret ; 1406a Function1406a: ; 1406a ld a, $a ld [$0000], a call LatchClock ld hl, $a000 ld a, $c ld [Function14000], a res 7, [hl] ld a, $0 ld [Function14000], a xor a ld [$ac60], a call CloseSRAM ret ; 14089 StartClock: ; 14089 call GetClock call Function1409b call FixDays jr nc, .asm_14097 call Function6d3 .asm_14097 call Function14019 ret ; 1409b Function1409b: ; 1409b ld hl, hRTCDayHi bit 7, [hl] jr nz, .asm_140a8 bit 6, [hl] jr nz, .asm_140a8 xor a ret .asm_140a8 ld a, $80 call Function6d3 ret ; 140ae Function140ae: ; 140ae call Function6e3 ld c, a and $c0 jr nz, .asm_140c8 ld a, c and $20 jr z, .asm_140eb call UpdateTime ld a, [$d4ba] ld b, a ld a, [CurDay] cp b jr c, .asm_140eb .asm_140c8 callba Function113da callba Function170923 ld a, $5 call GetSRAMBank ld a, [$aa8c] inc a ld [$aa8c], a ld a, [$b2fa] inc a ld [$b2fa], a call CloseSRAM ret .asm_140eb xor a ret ; 140ed Function140ed: ; 140ed call GetClock call FixDays ld hl, hRTCSeconds ld de, StartSecond ld a, [$d089] sub [hl] dec hl jr nc, .asm_14102 add $3c .asm_14102 ld [de], a dec de ld a, [$d088] sbc [hl] dec hl jr nc, .asm_1410d add $3c .asm_1410d ld [de], a dec de ld a, [$d087] sbc [hl] dec hl jr nc, .asm_14118 add $18 .asm_14118 ld [de], a dec de ld a, [StringBuffer2] sbc [hl] dec hl jr nc, .asm_14128 add $8c ld c, $7 call SimpleDivide .asm_14128 ld [de], a ret ; 1412a Function1412a: ; 1412a ld a, $1 ld [rVBK], a call Get2bpp xor a ld [rVBK], a ret ; 14135 Function14135: ; 14135 call GetPlayerSprite ld a, [UsedSprites] ld [$ffbd], a ld a, [$d155] ld [$ffbe], a call Function143c8 ret ; 14146 INCBIN "baserom.gbc",$14146,$14168 - $14146 Function14168: ; 14168 call Function1416f call Function14209 ret ; 1416f Function1416f: ; 1416f xor a ld bc, $0040 ld hl, UsedSprites call ByteFill call GetPlayerSprite call AddMapSprites call Function142db ret ; 14183 GetPlayerSprite: ; 14183 ; Get Chris or Kris's sprite. ld hl, .Chris ld a, [$d45b] bit 2, a jr nz, .go ld a, [PlayerGender] bit 0, a jr z, .go ld hl, .Kris .go ld a, [PlayerState] ld c, a .loop ld a, [hli] cp c jr z, .asm_141ac inc hl cp $ff jr nz, .loop ; Any player state not in the array defaults to Chris's sprite. xor a ; ld a, PLAYER_NORMAL ld [PlayerState], a ld a, SPRITE_CHRIS jr .asm_141ad .asm_141ac ld a, [hl] .asm_141ad ld [UsedSprites + 0], a ld [$d4d6], a ld [$d71f], a ret .Chris db PLAYER_NORMAL, SPRITE_CHRIS db PLAYER_BIKE, SPRITE_CHRIS_BIKE db PLAYER_SURF, SPRITE_SURF db PLAYER_SURF_PIKA, SPRITE_SURFING_PIKACHU db $ff .Kris db PLAYER_NORMAL, SPRITE_KRIS db PLAYER_BIKE, SPRITE_KRIS_BIKE db PLAYER_SURF, SPRITE_SURF db PLAYER_SURF_PIKA, SPRITE_SURFING_PIKACHU db $ff ; 141c9 AddMapSprites: ; 141c9 call GetMapPermission call CheckOutdoorMap jr z, .outdoor call AddIndoorSprites ret .outdoor call AddOutdoorSprites ret ; 141d9 AddIndoorSprites: ; 141d9 ld hl, MapObjects + 1 * OBJECT_LENGTH + 1 ; sprite ld a, 1 .loop push af ld a, [hl] call AddSpriteGFX ld de, OBJECT_LENGTH add hl, de pop af inc a cp NUM_OBJECTS jr nz, .loop ret ; 141ee AddOutdoorSprites: ; 141ee ld a, [MapGroup] dec a ld c, a ld b, 0 ld hl, OutdoorSprites add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a ld c, $17 .loop push bc ld a, [hli] call AddSpriteGFX pop bc dec c jr nz, .loop ret ; 14209 Function14209: ; 14209 ld a, $4 call Function263b call Function1439b call Function14215 ret ; 14215 Function14215: ; 14215 ld a, [$d13e] bit 6, a ret nz ld c, $8 callba Function1442f call GetMapPermission call CheckOutdoorMap ld c, $b jr z, .asm_1422f ld c, $a .asm_1422f callba Function1442f ret ; 14236 SafeGetSprite: ; 14236 push hl call GetSprite pop hl ret ; 1423c GetSprite: ; 1423c call GetMonSprite ret c ld hl, SpriteHeaders dec a ld c, a ld b, 0 ld a, 6 call AddNTimes ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] swap a ld c, a ld b, [hl] ld a, [hli] ld l, [hl] ld h, a ret ; 14259 GetMonSprite: ; 14259 ; Return carry if a monster sprite was loaded. cp SPRITE_POKEMON jr c, .Normal cp SPRITE_DAYCARE_MON_1 jr z, .BreedMon1 cp SPRITE_DAYCARE_MON_2 jr z, .BreedMon2 cp SPRITE_VARS jr nc, .Variable jr .Icon .Normal and a ret .Icon sub SPRITE_POKEMON ld e, a ld d, 0 ld hl, SpriteMons add hl, de ld a, [hl] jr .Mon .BreedMon1 ld a, [BreedMon1Species] jr .Mon .BreedMon2 ld a, [BreedMon2Species] .Mon ld e, a and a jr z, .asm_1429f callba Function8e82b ld l, 1 ld h, 0 scf ret .Variable sub SPRITE_VARS ld e, a ld d, 0 ld hl, VariableSprites add hl, de ld a, [hl] and a jp nz, GetMonSprite .asm_1429f ld a, 1 ld l, 1 ld h, 0 and a ret ; 142a7 Function142a7: ; 142a7 cp SPRITE_POKEMON jr nc, .asm_142c2 push hl push bc ld hl, SpriteHeaders + 4 dec a ld c, a ld b, 0 ld a, 6 call AddNTimes ld a, [hl] pop bc pop hl cp 3 jr nz, .asm_142c2 scf ret .asm_142c2 and a ret ; 142c4 _GetSpritePalette: ; 142c4 ld a, c call GetMonSprite jr c, .asm_142d8 ld hl, SpriteHeaders + 5 ; palette dec a ld c, a ld b, 0 ld a, 6 call AddNTimes ld c, [hl] ret .asm_142d8 xor a ld c, a ret ; 142db Function142db: ; 142db call LoadSpriteGFX call SortUsedSprites call ArrangeUsedSprites ret ; 142e5 AddSpriteGFX: ; 142e5 ; Add any new sprite ids to a list of graphics to be loaded. ; Return carry if the list is full. push hl push bc ld b, a ld hl, UsedSprites + 2 ld c, $1f .loop ld a, [hl] cp b jr z, .exists and a jr z, .new inc hl inc hl dec c jr nz, .loop pop bc pop hl scf ret .exists pop bc pop hl and a ret .new ld [hl], b pop bc pop hl and a ret ; 14306 LoadSpriteGFX: ; 14306 ld hl, UsedSprites ld b, $20 .loop ld a, [hli] and a jr z, .done push hl call .LoadSprite pop hl ld [hli], a dec b jr nz, .loop .done ret .LoadSprite call GetSprite ld a, l ret ; 1431e SortUsedSprites: ; 1431e ; Bubble-sort sprites by type. ; Run backwards through UsedSprites to find the last one. ld c, $20 ld de, UsedSprites + ($20 - 1) * 2 .FindLastSprite ld a, [de] and a jr nz, .FoundLastSprite dec de dec de dec c jr nz, .FindLastSprite .FoundLastSprite dec c jr z, .quit ; If the length of the current sprite is ; higher than a later one, swap them. inc de ld hl, UsedSprites + 1 .CheckSprite push bc push de push hl .CheckFollowing ld a, [de] cp [hl] jr nc, .next ; Swap the two sprites. ld b, a ld a, [hl] ld [hl], b ld [de], a dec de dec hl ld a, [de] ld b, a ld a, [hl] ld [hl], b ld [de], a inc de inc hl ; Keep doing this until everything's in order. .next dec de dec de dec c jr nz, .CheckFollowing pop hl inc hl inc hl pop de pop bc dec c jr nz, .CheckSprite .quit ret ; 14355 ArrangeUsedSprites: ; 14355 ; Get the length of each sprite and space them out in VRAM. ; Crystal introduces a second table in VRAM bank 0. ld hl, UsedSprites ld c, $20 ld b, 0 .FirstTableLength ; Keep going until the end of the list. ld a, [hli] and a jr z, .quit ld a, [hl] call GetSpriteLength ; Spill over into the second table after $80 tiles. add b cp $80 jr z, .next jr nc, .SecondTable .next ld [hl], b inc hl ld b, a ; Assumes the next table will be reached before c hits 0. dec c jr nz, .FirstTableLength .SecondTable ; The second tile table starts at tile $80. ld b, $80 dec hl .SecondTableLength ; Keep going until the end of the list. ld a, [hli] and a jr z, .quit ld a, [hl] call GetSpriteLength ; There are only two tables, so don't go any further than that. add b jr c, .quit ld [hl], b ld b, a inc hl dec c jr nz, .SecondTableLength .quit ret ; 14386 GetSpriteLength: ; 14386 ; Return the length of sprite type a in tiles. cp WALKING_SPRITE jr z, .AnyDirection cp STANDING_SPRITE jr z, .AnyDirection cp STILL_SPRITE jr z, .OneDirection ld a, 12 ret .AnyDirection ld a, 12 ret .OneDirection ld a, 4 ret ; 1439b Function1439b: ; 1439b ld hl, UsedSprites ld c, $20 .asm_143a0 ld a, [$d13e] res 5, a ld [$d13e], a ld a, [hli] and a jr z, .asm_143c7 ld [$ffbd], a ld a, [hli] ld [$ffbe], a bit 7, a jr z, .asm_143bd ld a, [$d13e] set 5, a ld [$d13e], a .asm_143bd push bc push hl call Function143c8 pop hl pop bc dec c jr nz, .asm_143a0 .asm_143c7 ret ; 143c8 Function143c8: ; 143c8 ld a, [$ffbd] call SafeGetSprite ld a, [$ffbe] call Function14406 push hl push de push bc ld a, [$d13e] bit 7, a jr nz, .asm_143df call Function14418 .asm_143df pop bc ld l, c ld h, $0 add hl, hl add hl, hl add hl, hl add hl, hl pop de add hl, de ld d, h ld e, l pop hl ld a, [$d13e] bit 5, a jr nz, .asm_14405 bit 6, a jr nz, .asm_14405 ld a, [$ffbd] call Function142a7 jr c, .asm_14405 ld a, h add $8 ld h, a call Function14418 .asm_14405 ret ; 14406 Function14406: ; 14406 and $7f ld l, a ld h, $0 add hl, hl add hl, hl add hl, hl add hl, hl ld a, l add $0 ld l, a ld a, h adc $80 ld h, a ret ; 14418 Function14418: ; 14418 ld a, [rVBK] push af ld a, [$d13e] bit 5, a ld a, $1 jr z, .asm_14426 ld a, $0 .asm_14426 ld [rVBK], a call Get2bpp pop af ld [rVBK], a ret ; 1442f Function1442f: ; 1442f ld a, c ld bc, $0006 ld hl, $444d call AddNTimes ld e, [hl] inc hl ld d, [hl] inc hl ld c, [hl] swap c inc hl ld b, [hl] inc hl ld a, [hli] ld h, [hl] ld l, a ld a, c and a ret z call Function1412a ret ; 1444d INCBIN "baserom.gbc",$1444d,$14495 - $1444d SpriteMons: ; 14495 db UNOWN db GEODUDE db GROWLITHE db WEEDLE db SHELLDER db ODDISH db GENGAR db ZUBAT db MAGIKARP db SQUIRTLE db TOGEPI db BUTTERFREE db DIGLETT db POLIWAG db PIKACHU db CLEFAIRY db CHARMANDER db JYNX db STARMIE db BULBASAUR db JIGGLYPUFF db GRIMER db EKANS db PARAS db TENTACOOL db TAUROS db MACHOP db VOLTORB db LAPRAS db RHYDON db MOLTRES db SNORLAX db GYARADOS db LUGIA db HO_OH ; 144b8 OutdoorSprites: ; 144b8 ; Valid sprite IDs for each map group. dw Group1Sprites dw Group2Sprites dw Group3Sprites dw Group4Sprites dw Group5Sprites dw Group6Sprites dw Group7Sprites dw Group8Sprites dw Group9Sprites dw Group10Sprites dw Group11Sprites dw Group12Sprites dw Group13Sprites dw Group14Sprites dw Group15Sprites dw Group16Sprites dw Group17Sprites dw Group18Sprites dw Group19Sprites dw Group20Sprites dw Group21Sprites dw Group22Sprites dw Group23Sprites dw Group24Sprites dw Group25Sprites dw Group26Sprites ; 144ec Group13Sprites: ; 144ec db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_TEACHER db SPRITE_FISHER db SPRITE_YOUNGSTER db SPRITE_BLUE db SPRITE_GRAMPS db SPRITE_BUG_CATCHER db SPRITE_COOLTRAINER_F db SPRITE_SWIMMER_GIRL db SPRITE_SWIMMER_GUY db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 14503 Group23Sprites: ; 14503 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_TEACHER db SPRITE_FISHER db SPRITE_YOUNGSTER db SPRITE_BLUE db SPRITE_GRAMPS db SPRITE_BUG_CATCHER db SPRITE_COOLTRAINER_F db SPRITE_SWIMMER_GIRL db SPRITE_SWIMMER_GUY db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 1451a Group14Sprites: ; 1451a db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_TEACHER db SPRITE_FISHER db SPRITE_YOUNGSTER db SPRITE_BLUE db SPRITE_GRAMPS db SPRITE_BUG_CATCHER db SPRITE_COOLTRAINER_F db SPRITE_SWIMMER_GIRL db SPRITE_SWIMMER_GUY db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 14531 Group6Sprites: ; 14531 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_TEACHER db SPRITE_FISHER db SPRITE_YOUNGSTER db SPRITE_BLUE db SPRITE_GRAMPS db SPRITE_BUG_CATCHER db SPRITE_COOLTRAINER_F db SPRITE_SWIMMER_GIRL db SPRITE_SWIMMER_GUY db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 14548 Group7Sprites: ; 14548 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_COOLTRAINER_M db SPRITE_SUPER_NERD db SPRITE_COOLTRAINER_F db SPRITE_FISHER db SPRITE_YOUNGSTER db SPRITE_LASS db SPRITE_POKEFAN_M db SPRITE_ROCKET db SPRITE_MISTY db SPRITE_POKE_BALL db SPRITE_SLOWPOKE ; 1455f Group25Sprites: ; 1455f db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_COOLTRAINER_M db SPRITE_SUPER_NERD db SPRITE_COOLTRAINER_F db SPRITE_FISHER db SPRITE_YOUNGSTER db SPRITE_LASS db SPRITE_POKEFAN_M db SPRITE_ROCKET db SPRITE_MISTY db SPRITE_POKE_BALL db SPRITE_SLOWPOKE ; 14576 Group21Sprites: ; 14576 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_FISHER db SPRITE_POLIWAG db SPRITE_TEACHER db SPRITE_GRAMPS db SPRITE_YOUNGSTER db SPRITE_LASS db SPRITE_BIKER db SPRITE_SILVER db SPRITE_BLUE db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 1458d Group18Sprites: ; 1458d db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_POKEFAN_M db SPRITE_MACHOP db SPRITE_GRAMPS db SPRITE_YOUNGSTER db SPRITE_FISHER db SPRITE_TEACHER db SPRITE_SUPER_NERD db SPRITE_BIG_SNORLAX db SPRITE_BIKER db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 145a4 Group12Sprites: ; 145a4 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_POKEFAN_M db SPRITE_MACHOP db SPRITE_GRAMPS db SPRITE_YOUNGSTER db SPRITE_FISHER db SPRITE_TEACHER db SPRITE_SUPER_NERD db SPRITE_BIG_SNORLAX db SPRITE_BIKER db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 145bb Group17Sprites: ; 145bb db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_POKEFAN_M db SPRITE_MACHOP db SPRITE_GRAMPS db SPRITE_YOUNGSTER db SPRITE_FISHER db SPRITE_TEACHER db SPRITE_SUPER_NERD db SPRITE_BIG_SNORLAX db SPRITE_BIKER db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 145d2 Group16Sprites: ; 145d2 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_POKEFAN_M db SPRITE_BUENA db SPRITE_GRAMPS db SPRITE_YOUNGSTER db SPRITE_FISHER db SPRITE_TEACHER db SPRITE_SUPER_NERD db SPRITE_MACHOP db SPRITE_BIKER db SPRITE_POKE_BALL db SPRITE_BOULDER ; 145e9 Group24Sprites: ; 145e9 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_SILVER db SPRITE_TEACHER db SPRITE_FISHER db SPRITE_COOLTRAINER_M db SPRITE_YOUNGSTER db SPRITE_MONSTER db SPRITE_GRAMPS db SPRITE_BUG_CATCHER db SPRITE_COOLTRAINER_F db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 14600 Group26Sprites: ; 14600 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_SILVER db SPRITE_TEACHER db SPRITE_FISHER db SPRITE_COOLTRAINER_M db SPRITE_YOUNGSTER db SPRITE_MONSTER db SPRITE_GRAMPS db SPRITE_BUG_CATCHER db SPRITE_COOLTRAINER_F db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 14617 Group19Sprites: ; 14617 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_SILVER db SPRITE_TEACHER db SPRITE_FISHER db SPRITE_COOLTRAINER_M db SPRITE_YOUNGSTER db SPRITE_MONSTER db SPRITE_GRAMPS db SPRITE_BUG_CATCHER db SPRITE_COOLTRAINER_F db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 1462e Group10Sprites: ; 1462e db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_FISHER db SPRITE_LASS db SPRITE_OFFICER db SPRITE_GRAMPS db SPRITE_YOUNGSTER db SPRITE_COOLTRAINER_M db SPRITE_BUG_CATCHER db SPRITE_SUPER_NERD db SPRITE_WEIRD_TREE db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 14645 Group4Sprites: ; 14645 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_FISHER db SPRITE_LASS db SPRITE_OFFICER db SPRITE_GRAMPS db SPRITE_YOUNGSTER db SPRITE_COOLTRAINER_M db SPRITE_BUG_CATCHER db SPRITE_SUPER_NERD db SPRITE_WEIRD_TREE db SPRITE_POKE_BALL db SPRITE_FRUIT_TREE ; 1465c Group8Sprites: ; 1465c db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_KURT_OUTSIDE db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_GRAMPS db SPRITE_YOUNGSTER db SPRITE_OFFICER db SPRITE_POKEFAN_M db SPRITE_BLACK_BELT db SPRITE_TEACHER db SPRITE_AZALEA_ROCKET db SPRITE_LASS db SPRITE_SILVER db SPRITE_FRUIT_TREE db SPRITE_SLOWPOKE ; 14673 Group11Sprites: ; 14673 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_POKE_BALL db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_GRAMPS db SPRITE_YOUNGSTER db SPRITE_OFFICER db SPRITE_POKEFAN_M db SPRITE_DAYCARE_MON_1 db SPRITE_COOLTRAINER_F db SPRITE_ROCKET db SPRITE_LASS db SPRITE_DAYCARE_MON_2 db SPRITE_FRUIT_TREE db SPRITE_SLOWPOKE ; 1468a Group22Sprites: ; 1468a db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_STANDING_YOUNGSTER db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_OLIVINE_RIVAL db SPRITE_POKEFAN_M db SPRITE_LASS db SPRITE_BUENA db SPRITE_SWIMMER_GIRL db SPRITE_SAILOR db SPRITE_POKEFAN_F db SPRITE_SUPER_NERD db SPRITE_TAUROS db SPRITE_FRUIT_TREE db SPRITE_ROCK ; 146a1 Group1Sprites: ; 146a1 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_STANDING_YOUNGSTER db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_OLIVINE_RIVAL db SPRITE_POKEFAN_M db SPRITE_LASS db SPRITE_BUENA db SPRITE_SWIMMER_GIRL db SPRITE_SAILOR db SPRITE_POKEFAN_F db SPRITE_SUPER_NERD db SPRITE_TAUROS db SPRITE_FRUIT_TREE db SPRITE_ROCK ; 146b8 Group9Sprites: ; 146b8 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_LANCE db SPRITE_GRAMPS db SPRITE_SUPER_NERD db SPRITE_COOLTRAINER_F db SPRITE_FISHER db SPRITE_COOLTRAINER_M db SPRITE_LASS db SPRITE_YOUNGSTER db SPRITE_GYARADOS db SPRITE_FRUIT_TREE db SPRITE_POKE_BALL ; 146cf Group2Sprites: ; 146cf db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_GRAMPS db SPRITE_YOUNGSTER db SPRITE_LASS db SPRITE_SUPER_NERD db SPRITE_COOLTRAINER_M db SPRITE_POKEFAN_M db SPRITE_BLACK_BELT db SPRITE_COOLTRAINER_F db SPRITE_FISHER db SPRITE_FRUIT_TREE db SPRITE_POKE_BALL ; 146e6 Group5Sprites: ; 146e6 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_GRAMPS db SPRITE_YOUNGSTER db SPRITE_LASS db SPRITE_SUPER_NERD db SPRITE_COOLTRAINER_M db SPRITE_POKEFAN_M db SPRITE_BLACK_BELT db SPRITE_COOLTRAINER_F db SPRITE_FISHER db SPRITE_FRUIT_TREE db SPRITE_POKE_BALL ; 146fd Group3Sprites: ; 146fd db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_GAMEBOY_KID db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_LASS db SPRITE_POKEFAN_F db SPRITE_TEACHER db SPRITE_YOUNGSTER db SPRITE_GROWLITHE db SPRITE_POKEFAN_M db SPRITE_ROCKER db SPRITE_FISHER db SPRITE_SCIENTIST db SPRITE_POKE_BALL db SPRITE_BOULDER ; 14714 Group15Sprites: ; 14714 db SPRITE_SUICUNE db SPRITE_SILVER_TROPHY db SPRITE_FAMICOM db SPRITE_POKEDEX db SPRITE_WILL db SPRITE_KAREN db SPRITE_NURSE db SPRITE_OLD_LINK_RECEPTIONIST db SPRITE_BIG_LAPRAS db SPRITE_BIG_ONIX db SPRITE_SUDOWOODO db SPRITE_BIG_SNORLAX db SPRITE_SAILOR db SPRITE_FISHING_GURU db SPRITE_GENTLEMAN db SPRITE_SUPER_NERD db SPRITE_HO_OH db SPRITE_TEACHER db SPRITE_COOLTRAINER_F db SPRITE_YOUNGSTER db SPRITE_FAIRY db SPRITE_POKE_BALL db SPRITE_ROCK ; 1472b Group20Sprites: ; 1472b db SPRITE_OAK db SPRITE_FISHER db SPRITE_TEACHER db SPRITE_TWIN db SPRITE_POKEFAN_M db SPRITE_GRAMPS db SPRITE_FAIRY db SPRITE_SILVER db SPRITE_FISHING_GURU db SPRITE_POKE_BALL db SPRITE_POKEDEX ; 14736 SpriteHeaders: ; 14736 INCLUDE "gfx/overworld/sprite_headers.asm" ; 1499a Function1499a: ; 1499a ld a, [StandingTile] cp $60 jr z, .asm_149ad cp $68 jr z, .asm_149ad and $f0 cp $70 jr z, .asm_149ad and a ret .asm_149ad scf ret ; 149af Function149af: ; 149af ld a, [StandingTile] cp $70 jr z, .asm_149c4 cp $76 jr z, .asm_149c4 cp $78 jr z, .asm_149c4 cp $7e jr z, .asm_149c4 scf ret .asm_149c4 xor a ret ; 149c6 Function149c6: ; 149c6 ld de, $1 ld hl, $49d3 ld a, [StandingTile] ; $d4e4 call IsInArray ret ; 149d3 (5:49d3) INCBIN "baserom.gbc",$149d3,$149dd - $149d3 Function149dd: ; 149dd ld a, [StandingTile] ld hl, $49ea ld de, $0001 call IsInArray ret ; 149ea INCBIN "baserom.gbc",$149ea,$149f5 - $149ea Function149f5: ; 149f5 ld a, c ld hl, $4a00 ld de, $0001 call IsInArray ret ; 14a00 INCBIN "baserom.gbc",$14a00,$14a07 - $14a00 Function14a07: ; 14a07 ld a, [StandingTile] ld de, $001f cp $71 ret z ld de, $0013 cp $7c ret z ld de, $0023 ret ; 14a1a Function14a1a: ; 14a1a call Function1d6e callba Function5e9a call SpeechTextBox call Function1ad2 callba Function4cf45 ld hl, $5283 call Function14baf jr nz, .asm_14a4a call Function14b89 jr c, .asm_14a4a call Function14b54 call Function14be3 call Function14b5a call Function1c07 and a ret .asm_14a4a call Function1c07 call Functiond90 callba Function4cf45 scf ret Function14a58: ; 14a58 call Function14b54 callba Function14056 callba Function1050d9 call Function14df7 call Function14e13 call Function14e76 call Function14e8b callba Function44725 callba Function1406a call Function14b5a ret ; 14a83 ; no known jump sources Function14a83: ; 14a83 (5:4a83) push de ld hl, $52a1 call Function1d4f call YesNoBox call Function1c07 jr c, .asm_14ab0 call Function14b89 jr c, .asm_14ab0 call Function14b54 call Function14c99 call Function14e0c pop de ld a, e ld [$db72], a call Function15021 call Function14be6 call Function14b5a and a ret .asm_14ab0 pop de ret Function14ab2: ; 14ab2 call Function14b89 jr c, .asm_14ac1 call Function14b54 call Function14be3 call Function14b5a and a .asm_14ac1 ret ; 14ac2 INCBIN "baserom.gbc",$14ac2,$14b54 - $14ac2 Function14b54: ; 14b54 ld a, $1 ld [$c2cd], a ret ; 14b5a Function14b5a: ; 14b5a xor a ld [$c2cd], a ret ; 14b5f Function14b5f: ; 14b5f ld a, $1 call GetSRAMBank ld hl, $bdd9 ld de, $be3b ld bc, $0b1a .asm_14b6d ld a, [hld] ld [de], a dec de dec bc ld a, c or b jr nz, .asm_14b6d ld hl, OverworldMap ld de, $b2c0 ld bc, $0062 call CopyBytes call CloseSRAM ret ; 14b85 Function14b85: ; 14b85 call Function14c10 ret ; 14b89 Function14b89: ; 14b89 ld a, [$cfcd] and a jr z, .asm_14ba8 call Function14bcb jr z, .asm_14b9e ld hl, $5297 call Function14baf jr nz, .asm_14bad jr .asm_14ba8 .asm_14b9e ld hl, $5292 call Function14baf jr nz, .asm_14bad jr .asm_14bab .asm_14ba8 call Function14cbb .asm_14bab and a ret .asm_14bad scf ret ; 14baf Function14baf: ; 14baf ld b, $5 call Function269a call Function1d58 lb bc, 0, 7 call PlaceYesNoBox ld a, [$cfa9] dec a call Function1c17 push af call Functiond90 pop af and a ret ; 14bcb Function14bcb: ; 14bcb ld a, $1 call GetSRAMBank ld hl, $a009 ld a, [hli] ld c, [hl] ld b, a call CloseSRAM ld a, [PlayerID] cp b ret nz ld a, [$d47c] cp c ret ; 14be3 Function14be3: ; 14be3 call Function14c99 Function14be6: ; 14be6 call Function14c10 ld c, $20 call DelayFrames ld a, [Options] push af ld a, $3 ld [Options], a ld hl, $528d call PrintText pop af ld [Options], a ld de, $0025 call WaitPlaySFX call WaitSFX ld c, $1e call DelayFrames ret ; 14c10 Function14c10: ; 14c10 ld a, $1 ld [$cfcd], a callba Function14056 callba Function1050d9 call Function14da9 call Function14dbb call Function14dd7 call Function14df7 call Function14e0c call Function14e13 call Function14e2d call Function14e40 call Function14e55 call Function14e76 call Function14e8b call Function14c6b callba Function44725 callba Function106187 callba Function1406a ld a, $1 call GetSRAMBank ld a, [$be45] cp $4 jr nz, .asm_14c67 xor a ld [$be45], a .asm_14c67 call CloseSRAM ret ; 14c6b Function14c6b: ; 14c6b call Function14c90 ld a, $0 call GetSRAMBank ld a, [$bf10] ld e, a ld a, [$bf11] ld d, a or e jr z, .asm_14c84 ld a, e sub l ld a, d sbc h jr c, .asm_14c8c .asm_14c84 ld a, l ld [$bf10], a ld a, h ld [$bf11], a .asm_14c8c call CloseSRAM ret ; 14c90 Function14c90: ; 14c90 ld hl, $c000 .asm_14c93 ld a, [hl] or a ret nz inc hl jr .asm_14c93 ; 14c99 Function14c99: ; 14c99 xor a ld [hJoypadReleased], a ld [hJoypadPressed], a ld [hJoypadSum], a ld [hJoypadDown], a ld a, [Options] push af ld a, $3 ld [Options], a ld hl, $5288 call PrintText pop af ld [Options], a ld c, $10 call DelayFrames ret ; 14cbb Function14cbb: ; 14cbb call Function151fb call Function14d06 call Function14ce2 call Function14cf4 call Function14d68 call Function14d5c ld a, $0 call GetSRAMBank xor a ld [$bf10], a ld [$bf11], a call CloseSRAM ld a, $1 ld [$d4b4], a ret ; 14ce2 Function14ce2: ; 14ce2 ld a, $1 call GetSRAMBank ld hl, $b260 ld bc, $0060 xor a call ByteFill jp CloseSRAM ; 14cf4 Function14cf4: ; 14cf4 ld a, $0 call GetSRAMBank ld hl, $abe4 ld bc, $004c xor a call ByteFill jp CloseSRAM ; 14d06 Function14d06: ; 14d06 ld a, $1 call GetSRAMBank ld hl, $b2c0 ld bc, $0b7c xor a call ByteFill jp CloseSRAM ; 14d18 INCBIN "baserom.gbc",$14d18,$14d5c - $14d18 Function14d5c: ; 14d5c ld a, $1 call GetSRAMBank xor a ld [$be45], a jp CloseSRAM ; 14d68 Function14d68: ; 14d68 call Function1509a ret ; 14d6c INCBIN "baserom.gbc",$14d6c,$14da0 - $14d6c Function14da0: ; 14da0 ld a, [$d4b4] and a ret nz call Function14cbb ret ; 14da9 Function14da9: ; 14da9 ld a, $1 call GetSRAMBank ld a, $63 ld [$a008], a ld a, $7f ld [$ad0f], a jp CloseSRAM ; 14dbb Function14dbb: ; 14dbb ld a, $1 call GetSRAMBank ld hl, Options ld de, $a000 ld bc, $0008 call CopyBytes ld a, [Options] and $ef ld [$a000], a jp CloseSRAM ; 14dd7 Function14dd7: ; 14dd7 ld a, $1 call GetSRAMBank ld hl, PlayerID ld de, $a009 ld bc, $082a call CopyBytes ld hl, VisitedSpawns ld de, $a833 ld bc, $0032 call CopyBytes jp CloseSRAM ; 14df7 Function14df7: ; 14df7 ld a, $1 call GetSRAMBank ld hl, PartyCount ld de, $a865 ld bc, $031e call CopyBytes call CloseSRAM ret ; 14e0c Function14e0c: ; 14e0c call Function150d8 call Function150f9 ret ; 14e13 Function14e13: ; 14e13 ld hl, $a009 ld bc, $0b7a ld a, $1 call GetSRAMBank call Function15273 ld a, e ld [$ad0d], a ld a, d ld [$ad0e], a call CloseSRAM ret ; 14e2d Function14e2d: ; 14e2d ld a, $0 call GetSRAMBank ld a, $63 ld [$b208], a ld a, $7f ld [$bf0f], a call CloseSRAM ret ; 14e40 Function14e40: ; 14e40 ld a, $0 call GetSRAMBank ld hl, Options ld de, $b200 ld bc, $0008 call CopyBytes call CloseSRAM ret ; 14e55 Function14e55: ; 14e55 ld a, $0 call GetSRAMBank ld hl, PlayerID ld de, $b209 ld bc, $082a call CopyBytes ld hl, VisitedSpawns ld de, $ba33 ld bc, $0032 call CopyBytes call CloseSRAM ret ; 14e76 Function14e76: ; 14e76 ld a, $0 call GetSRAMBank ld hl, PartyCount ld de, $ba65 ld bc, $031e call CopyBytes call CloseSRAM ret ; 14e8b Function14e8b: ; 14e8b ld hl, $b209 ld bc, $0b7a ld a, $0 call GetSRAMBank call Function15273 ld a, e ld [$bf0d], a ld a, d ld [$bf0e], a call CloseSRAM ret ; 14ea5 ; no known jump sources Function14ea5: ; 14ea5 (5:4ea5) call Function15028 jr nz, .asm_14ed6 call Function14fd7 call Function1500c call Function15021 callba Function44745 callba Function10619d callba Function1050ea call Function14e2d call Function14e40 call Function14e55 call Function14e76 call Function14e8b and a ret .asm_14ed6 call Function1507c jr nz, .asm_14f07 call Function15046 call Function15067 call Function15021 callba Function44745 callba Function10619d callba Function1050ea call Function14da9 call Function14dbb call Function14dd7 call Function14df7 call Function14e13 and a ret .asm_14f07 ld a, [Options] ; $cfcc push af set 4, a ld [Options], a ; $cfcc ld hl, $529c call PrintText pop af ld [Options], a ; $cfcc scf ret Function14f1c: ; 14f1c xor a ld [$cfcd], a call Function14f84 ld a, [$cfcd] and a jr z, .asm_14f46 ld a, $1 call GetSRAMBank ld hl, $a044 ld de, StartDay ld bc, $0008 call CopyBytes ld hl, $a3da ld de, StatusFlags ld a, [hl] ld [de], a call CloseSRAM ret .asm_14f46 call Function14faf ld a, [$cfcd] and a jr z, .asm_14f6c ld a, $0 call GetSRAMBank ld hl, $b244 ld de, StartDay ld bc, $0008 call CopyBytes ld hl, $b5da ld de, StatusFlags ld a, [hl] ld [de], a call CloseSRAM ret .asm_14f6c ld hl, $4f7c ld de, Options ld bc, $0008 call CopyBytes call Function67e ret ; 14f7c INCBIN "baserom.gbc",$14f7c,$14f84 - $14f7c Function14f84: ; 14f84 ld a, $1 call GetSRAMBank ld a, [$a008] cp $63 jr nz, .asm_14fab ld a, [$ad0f] cp $7f jr nz, .asm_14fab ld hl, $a000 ld de, Options ld bc, $0008 call CopyBytes call CloseSRAM ld a, $1 ld [$cfcd], a .asm_14fab call CloseSRAM ret ; 14faf Function14faf: ; 14faf ld a, $0 call GetSRAMBank ld a, [$b208] cp $63 jr nz, .asm_14fd3 ld a, [$bf0f] cp $7f jr nz, .asm_14fd3 ld hl, $b200 ld de, Options ld bc, $0008 call CopyBytes ld a, $2 ld [$cfcd], a .asm_14fd3 call CloseSRAM ret ; 14fd7 ; known jump sources: 14eaa (5:4eaa) Function14fd7: ; 14fd7 (5:4fd7) ld a, $1 call GetSRAMBank ld hl, $a009 ld de, PlayerID ; $d47b ld bc, $82a call CopyBytes ld hl, $a833 ld de, VisitedSpawns ; $dca5 ld bc, $32 call CopyBytes call CloseSRAM ld a, $1 call GetSRAMBank ld a, [$be45] cp $4 jr nz, .asm_15008 ld a, $3 ld [$be45], a .asm_15008 call CloseSRAM ret Function1500c: ; 1500c ld a, $1 call GetSRAMBank ld hl, $a865 ld de, PartyCount ld bc, $031e call CopyBytes call CloseSRAM ret ; 15021 ; known jump sources: 14aa5 (5:4aa5), 14eb0 (5:4eb0), 14ee1 (5:4ee1) Function15021: ; 15021 (5:5021) call Function150d8 call Function1517d ret ; known jump sources: 14ea5 (5:4ea5) Function15028: ; 15028 (5:5028) ld hl, $a009 ld bc, $b7a ld a, $1 call GetSRAMBank call Function15273 ld a, [$ad0d] cp e jr nz, .asm_15040 ld a, [$ad0e] cp d .asm_15040 push af call CloseSRAM pop af ret ; known jump sources: 14edb (5:4edb) Function15046: ; 15046 (5:5046) ld a, $0 call GetSRAMBank ld hl, $b209 ld de, PlayerID ; $d47b ld bc, $82a call CopyBytes ld hl, $ba33 ld de, VisitedSpawns ; $dca5 ld bc, $32 call CopyBytes call CloseSRAM ret ; known jump sources: 14ede (5:4ede) Function15067: ; 15067 (5:5067) ld a, $0 call GetSRAMBank ld hl, $ba65 ld de, PartyCount ; $dcd7 ld bc, $31e call CopyBytes call CloseSRAM ret ; known jump sources: 14ed6 (5:4ed6) Function1507c: ; 1507c (5:507c) ld hl, $b209 ld bc, $b7a ld a, $0 call GetSRAMBank call Function15273 ld a, [$bf0d] cp e jr nz, .asm_15094 ld a, [$bf0e] cp d .asm_15094 push af call CloseSRAM pop af ret Function1509a: ; 1509a ld a, $1 call GetSRAMBank ld hl, PlayerGender ld de, $be3d ld bc, $0007 call CopyBytes ld hl, $d479 ld a, [hli] ld [$a60e], a ld a, [hli] ld [$a60f], a jp CloseSRAM ; 150b9 ; no known jump sources Function150b9: ; 150b9 (5:50b9) ld a, $1 call GetSRAMBank ld hl, $be3d ld de, PlayerGender ; $d472 ld bc, $7 call CopyBytes ld hl, $d479 ld a, [$a60e] ld [hli], a ld a, [$a60f] ld [hli], a jp CloseSRAM Function150d8: ; 150d8 ld a, [$db72] cp $e jr c, .asm_150e3 xor a ld [$db72], a .asm_150e3 ld e, a ld d, $0 ld hl, $522d add hl, de add hl, de add hl, de add hl, de add hl, de ld a, [hli] push af ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] ld h, [hl] ld l, a pop af ret ; 150f9 Function150f9: ; 150f9 push hl push af push de ld a, $1 call GetSRAMBank ld hl, BoxCount ld de, EnemyMoveAnimation ld bc, $01e0 call CopyBytes call CloseSRAM pop de pop af push af push de call GetSRAMBank ld hl, EnemyMoveAnimation ld bc, $01e0 call CopyBytes call CloseSRAM ld a, $1 call GetSRAMBank ld hl, $aef0 ld de, EnemyMoveAnimation ld bc, $01e0 call CopyBytes call CloseSRAM pop de pop af ld hl, $01e0 add hl, de ld e, l ld d, h push af push de call GetSRAMBank ld hl, EnemyMoveAnimation ld bc, $01e0 call CopyBytes call CloseSRAM ld a, $1 call GetSRAMBank ld hl, $b0d0 ld de, EnemyMoveAnimation ld bc, $008e call CopyBytes call CloseSRAM pop de pop af ld hl, $01e0 add hl, de ld e, l ld d, h call GetSRAMBank ld hl, EnemyMoveAnimation ld bc, $008e call CopyBytes call CloseSRAM pop hl ret ; 1517d ; known jump sources: 15024 (5:5024) Function1517d: ; 1517d (5:517d) push hl ld l, e ld h, d push af push hl call GetSRAMBank ld de, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) ld bc, $1e0 call CopyBytes call CloseSRAM ld a, $1 call GetSRAMBank ld hl, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) ld de, $ad10 ld bc, $1e0 call CopyBytes call CloseSRAM pop hl pop af ld de, $1e0 add hl, de push af push hl call GetSRAMBank ld de, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) ld bc, $1e0 call CopyBytes call CloseSRAM ld a, $1 call GetSRAMBank ld hl, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) ld de, $aef0 ld bc, $1e0 call CopyBytes call CloseSRAM pop hl pop af ld de, $1e0 add hl, de call GetSRAMBank ld de, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) ld bc, $8e call CopyBytes call CloseSRAM ld a, $1 call GetSRAMBank ld hl, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) ld de, $b0d0 ld bc, $8e call CopyBytes call CloseSRAM pop hl ret Function151fb: ; 151fb ld hl, $522d ld c, $e .asm_15200 push bc ld a, [hli] call GetSRAMBank ld a, [hli] ld e, a ld a, [hli] ld d, a xor a ld [de], a inc de ld a, $ff ld [de], a inc de ld bc, $044c .asm_15213 xor a ld [de], a inc de dec bc ld a, b or c jr nz, .asm_15213 ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, $ff ld [de], a inc de xor a ld [de], a call CloseSRAM pop bc dec c jr nz, .asm_15200 ret ; 1522d INCBIN "baserom.gbc",$1522d,$15273 - $1522d Function15273: ; 15273 ld de, $0000 .asm_15276 ld a, [hli] add e ld e, a ld a, $0 adc d ld d, a dec bc ld a, b or c jr nz, .asm_15276 ret ; 15283 INCBIN "baserom.gbc",$15283,$152ab - $15283 SpawnPoints: ; 0x152ab const_def const SPAWN_HOME const SPAWN_VIRIDIAN_POKECENTER const SPAWN_PALLET const SPAWN_VIRIDIAN const SPAWN_PEWTER const SPAWN_CERULEAN const SPAWN_ROCK_TUNNEL const SPAWN_VERMILION const SPAWN_LAVENDER const SPAWN_SAFFRON const SPAWN_CELADON const SPAWN_FUCHSIA const SPAWN_CINNABAR const SPAWN_INDIGO_PLATEAU const SPAWN_NEW_BARK const SPAWN_CHERRYGROVE const SPAWN_VIOLET const SPAWN_UNION_CAVE const SPAWN_AZALEA const SPAWN_CIANWOOD const SPAWN_GOLDENROD const SPAWN_OLIVINE const SPAWN_ECRUTEAK const SPAWN_MAHOGANY const SPAWN_LAKE const SPAWN_BLACKTHORN const SPAWN_MT_SILVER const SPAWN_FAST_SHIP db GROUP_KRISS_HOUSE_2F, MAP_KRISS_HOUSE_2F, 3, 3 db GROUP_VIRIDIAN_POKECENTER_1F, MAP_VIRIDIAN_POKECENTER_1F, 5, 3 ; unused db GROUP_PALLET_TOWN, MAP_PALLET_TOWN, 5, 6 db GROUP_VIRIDIAN_CITY, MAP_VIRIDIAN_CITY, 23, 26 db GROUP_PEWTER_CITY, MAP_PEWTER_CITY, 13, 26 db GROUP_CERULEAN_CITY, MAP_CERULEAN_CITY, 19, 22 db GROUP_ROUTE_10A, MAP_ROUTE_10A, 11, 2 db GROUP_VERMILION_CITY, MAP_VERMILION_CITY, 9, 6 db GROUP_LAVENDER_TOWN, MAP_LAVENDER_TOWN, 5, 6 db GROUP_SAFFRON_CITY, MAP_SAFFRON_CITY, 9, 30 db GROUP_CELADON_CITY, MAP_CELADON_CITY, 29, 10 db GROUP_FUCHSIA_CITY, MAP_FUCHSIA_CITY, 19, 28 db GROUP_CINNABAR_ISLAND, MAP_CINNABAR_ISLAND, 11, 12 db GROUP_ROUTE_23, MAP_ROUTE_23, 9, 6 db GROUP_NEW_BARK_TOWN, MAP_NEW_BARK_TOWN, 13, 6 db GROUP_CHERRYGROVE_CITY, MAP_CHERRYGROVE_CITY, 29, 4 db GROUP_VIOLET_CITY, MAP_VIOLET_CITY, 31, 26 db GROUP_ROUTE_32, MAP_ROUTE_32, 11, 74 db GROUP_AZALEA_TOWN, MAP_AZALEA_TOWN, 15, 10 db GROUP_CIANWOOD_CITY, MAP_CIANWOOD_CITY, 23, 44 db GROUP_GOLDENROD_CITY, MAP_GOLDENROD_CITY, 15, 28 db GROUP_OLIVINE_CITY, MAP_OLIVINE_CITY, 13, 22 db GROUP_ECRUTEAK_CITY, MAP_ECRUTEAK_CITY, 23, 28 db GROUP_MAHOGANY_TOWN, MAP_MAHOGANY_TOWN, 15, 14 db GROUP_LAKE_OF_RAGE, MAP_LAKE_OF_RAGE, 21, 29 db GROUP_BLACKTHORN_CITY, MAP_BLACKTHORN_CITY, 21, 30 db GROUP_SILVER_CAVE_OUTSIDE, MAP_SILVER_CAVE_OUTSIDE, 23, 20 db GROUP_FAST_SHIP_CABINS_SW_SSW_NW, MAP_FAST_SHIP_CABINS_SW_SSW_NW, 6, 2 db -1, -1, -1, -1 Function1531f: ; 1531f push hl push de ld a, [$d001] cp -1 jr z, .asm_15341 ld l, a ld h, 0 add hl, hl add hl, hl ld de, SpawnPoints add hl, de ld a, [hli] ld [MapGroup], a ld a, [hli] ld [MapNumber], a ld a, [hli] ld [XCoord], a ld a, [hli] ld [YCoord], a .asm_15341 pop de pop hl ret ; 15344 Function15344: ; 15344 ld hl, SpawnPoints ld c, 0 .asm_15349 ld a, [hl] cp -1 jr z, .asm_1535f cp d jr nz, .asm_15356 inc hl ld a, [hld] cp e jr z, .asm_15361 .asm_15356 push bc ld bc, 4 add hl, bc pop bc inc c jr .asm_15349 .asm_1535f and a ret .asm_15361 scf ret ; 15363 Function15363: ; 15363 ld a, [$ff9f] and $f dec a ld c, a ld b, $0 ld hl, $5377 add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a call Function1541d ret ; 15377 INCBIN "baserom.gbc",$15377,$1541d - $15377 Function1541d: ; 1541d .asm_1541d ld a, [hli] cp $ff ret z push hl ld c, a ld b, $0 ld hl, $5440 add hl, bc add hl, bc add hl, bc ld b, [hl] inc hl ld a, [hli] ld h, [hl] ld l, a bit 7, b jr z, .asm_15439 pop de ld a, [de] ld c, a inc de push de .asm_15439 ld a, b and $7f rst FarCall pop hl jr .asm_1541d ; 15440 INCBIN "baserom.gbc",$15440,$154cf - $15440 Function154cf: ; 154cf ld a, $1 ld [$FF00+$de], a ret ; 154d3 Function154d3: ; 154d3 xor a ld [$FF00+$de], a ret ; 154d7 Function154d7: ; 154d7 ld a, $2 call Function263b callba Function2454f callba Function8177 ret ; 154ea (5:54ea) Function154ea: ; 154ea ret ; 154eb Function154eb: ; 154eb ld hl, $d45b set 7, [hl] ret ; 154f1 Function154f1: ; 154f1 ld hl, $d45b set 6, [hl] ret Function154f7: ; 154f7 nop call Function1550c jr c, .asm_15508 call Function1554e jr c, .asm_15508 call Function1551a jr c, .asm_15508 ret .asm_15508 call Functione4a ret ; known jump sources: 154f8 (5:54f8) Function1550c: ; 1550c (5:550c) and a ld hl, BikeFlags ; $dbf5 bit 1, [hl] ret z ld a, $1 ld [PlayerState], a ; $d95d scf ret ; known jump sources: 15502 (5:5502) Function1551a: ; 1551a (5:551a) ld a, [PlayerState] ; $d95d cp $0 jr z, .asm_1554c cp $2 jr z, .asm_1554c cp $4 jr z, .asm_15545 cp $8 jr z, .asm_15545 call GetMapPermission cp $3 jr z, .asm_1553e cp $5 jr z, .asm_1553e cp $7 jr z, .asm_1553e jr .asm_1554c .asm_1553e ld a, [PlayerState] ; $d95d cp $1 jr nz, .asm_1554c .asm_15545 ld a, $0 ld [PlayerState], a ; $d95d scf ret .asm_1554c and a ret ; known jump sources: 154fd (5:54fd) Function1554e: ; 1554e (5:554e) call Function1852 jr nz, .asm_15565 ld a, [PlayerState] ; $d95d cp $4 jr z, .asm_15563 cp $8 jr z, .asm_15563 ld a, $4 ld [PlayerState], a ; $d95d .asm_15563 scf ret .asm_15565 and a ret ld a, $6 call Function3cb4 ret callba _UpdateTimePals ret ld e, $0 ld a, [MusicFadeIDLo] ; $c2a9 ld d, $0 ld a, [MusicFadeIDHi] ; $c2aa ld a, $4 ld [MusicFade], a ; $c2a7 call Function4b6 ret ld a, [PlayerState] ; $d95d cp $1 jr nz, .asm_15596 call VolumeOff ld a, $88 ld [MusicFade], a ; $c2a7 .asm_15596 call Function3d2f ret Function1559a: ; 1559a call Function15650 ret c call Function156b3 ld hl, $5a27 call Function15a20 ld hl, $5a2c call Function157bb ld hl, $55d6 call LoadMenuDataHeader .asm_155b3 xor a ld [hBGMapMode], a call Function1563e ld [$cf76], a call Function1e5d jr c, .asm_155cc ld a, [MenuSelection] ld hl, $55e6 call Function1fa7 jr nc, .asm_155b3 .asm_155cc call Function156b8 call Function1c07 call Function1c17 ret ; 155d6 INCBIN "baserom.gbc",$155d6,$1563e - $155d6 Function1563e: ; 1563e call Function2ead jr nz, .asm_15646 ld a, $0 ret .asm_15646 ld a, [$d95e] and a ld a, $1 ret z ld a, $2 ret ; 15650 Function15650: ; 15650 ld a, [PartyCount] and a ret nz ld de, $000f call PlaySFX ld hl, $5663 call Function15a20 scf ret ; 15663 INCBIN "baserom.gbc",$15663,$15668 - $15663 call Function156c2 ld hl, $5a31 call Function15a20 callba Functione3fd and a ret ; 15679 (5:5679) INCBIN "baserom.gbc",$15679,$156b3 - $15679 Function156b3: ; 156b3 ld de, $000d jr Function156d0 Function156b8: ; 156b8 ld de, $000e call Function156d0 call WaitSFX ret Function156c2: ; 156c2 ld de, $000f jr Function156d0 Function156c7: ; 156c7 ld de, $0020 call Function156d0 ld de, $0020 Function156d0: ; 156d0 push de call WaitSFX pop de call PlaySFX ret ; 156d9 Function156d9: ; 156d9 call Function156b3 ld hl, $56ff call Function15a20 ld b, $1 call Function15704 and a jr nz, .asm_156f9 call Function2173 call Function321c call Function1ad2 call Function156b8 ld c, $0 ret .asm_156f9 call WhiteBGMap ld c, $1 ret ; 156ff INCBIN "baserom.gbc",$156ff,$15704 - $156ff Function15704: ; 15704 ld a, b ld [$cf76], a ld hl, $57cc call Function157bb call Function15715 call Function1c07 ret ; 15715 Function15715: ; 15715 xor a ld [$d0d7], a ld [$d0dd], a ld hl, KrissPCMenuData call LoadMenuDataHeader .asm_15722 call UpdateTimePals call Function1e5d jr c, .asm_15731 call Function1fa7 jr nc, .asm_15722 jr .asm_15732 .asm_15731 xor a .asm_15732 call Function1c07 ret ; 15736 KrissPCMenuData: ; 0x15736 db %01000000 db 0, 0 ; top left corner coords (y, x) db 12, 15 ; bottom right corner coords (y, x) dw .KrissPCMenuData2 db 1 ; default selected option .KrissPCMenuData2 db %10100000 ; bit7 db 0 ; # items? dw .KrissPCMenuList1 db $8d db $1f dw .KrissPCMenuPointers .KrissPCMenuPointers ; 0x15746 dw KrisWithdrawItemMenu, .WithdrawItem dw KrisDepositItemMenu, .DepositItem dw KrisTossItemMenu, .TossItem dw KrisMailBoxMenu, .MailBox dw KrisDecorationMenu, .Decoration dw KrisLogOffMenu, .LogOff dw KrisLogOffMenu, .TurnOff .WithdrawItem db "WITHDRAW ITEM@" .DepositItem db "DEPOSIT ITEM@" .TossItem db "TOSS ITEM@" .MailBox db "MAIL BOX@" .Decoration db "DECORATION@" .TurnOff db "TURN OFF@" .LogOff db "LOG OFF@" WITHDRAW_ITEM EQU 0 DEPOSIT_ITEM EQU 1 TOSS_ITEM EQU 2 MAIL_BOX EQU 3 DECORATION EQU 4 TURN_OFF EQU 5 LOG_OFF EQU 6 .KrissPCMenuList1 db 5 db WITHDRAW_ITEM db DEPOSIT_ITEM db TOSS_ITEM db MAIL_BOX db TURN_OFF db $ff .KrissPCMenuList2 db 6 db WITHDRAW_ITEM db DEPOSIT_ITEM db TOSS_ITEM db MAIL_BOX db DECORATION db LOG_OFF db $ff Function157bb: ; 157bb ld a, [Options] push af set 4, a ld [Options], a call Function1d4f pop af ld [Options], a ret ; 157cc INCBIN "baserom.gbc",$157cc,$157d1 - $157cc KrisWithdrawItemMenu: ; 0x157d1 call Function1d6e callba ClearPCItemScreen .asm_157da call Function15985 jr c, .asm_157e4 call Function157e9 jr .asm_157da .asm_157e4 call Function2b3c xor a ret ; 0x157e9 Function157e9: ; 0x157e9 ; check if the item has a quantity callba _CheckTossableItem ld a, [$d142] and a jr z, .askquantity ; items without quantity are always ×1 ld a, 1 ld [$d10c], a jr .withdraw .askquantity ld hl, .HowManyText call Function1d4f callba Function24fbf call Function1c07 call Function1c07 jr c, .done .withdraw ld a, [$d10c] ld [Buffer1], a ; quantity ld a, [$d107] ld [Buffer2], a ld hl, NumItems call ReceiveItem jr nc, .PackFull ld a, [Buffer1] ld [$d10c], a ld a, [Buffer2] ld [$d107], a ld hl, PCItems call TossItem ld a, $3b call Predef ld hl, .WithdrewText call Function1d4f xor a ld [hBGMapMode], a call Function1c07 ret .PackFull ld hl, .NoRoomText call Function1d67 ret .done ret ; 0x15850 .HowManyText ; 0x15850 TX_FAR _KrissPCHowManyWithdrawText db "@" .WithdrewText ; 0x15855 TX_FAR _KrissPCWithdrewItemsText db "@" .NoRoomText ; 0x1585a TX_FAR _KrissPCNoRoomWithdrawText db "@" KrisTossItemMenu: ; 0x1585f call Function1d6e callba ClearPCItemScreen .asm_15868 call Function15985 jr c, .asm_15878 ld de, PCItems callba Function129f4 jr .asm_15868 .asm_15878 call Function2b3c xor a ret ; 0x1587d KrisDecorationMenu: ; 0x1587d callba _KrisDecorationMenu ld a, c and a ret z scf ret ; 0x15888 KrisLogOffMenu: ; 0x15888 xor a scf ret ; 0x1588b KrisDepositItemMenu: ; 0x1588b call Function158b8 jr c, .asm_158b6 call Function2ed3 call Function1d6e callba Function106a5 .asm_1589c callba Function106be ld a, [$cf66] and a jr z, .asm_158b3 call Function158cc callba CheckRegisteredItem jr .asm_1589c .asm_158b3 call Function2b3c .asm_158b6 xor a ret ; 0x158b8 Function158b8: ; 0x158b8 callba Function129d5 ret nc ld hl, Text158c7 call Function1d67 scf ret ; 0x158c7 Text158c7: ; 0x15c87 TX_FAR UnknownText_0x1c13df db "@" Function158cc: ; 0x158cc ld a, [$c2ce] push af ld a, $0 ld [$c2ce], a callba CheckItemMenu ld a, [$d142] ld hl, JumpTable158e7 rst JumpTable pop af ld [$c2ce], a ret ; 0x158e7 JumpTable158e7: ; 0x158e7 dw .jump2 dw .jump1 dw .jump1 dw .jump1 dw .jump2 dw .jump2 dw .jump2 .jump1: ret .jump2: ld a, [Buffer1] push af ld a, [Buffer2] push af call Function1590a pop af ld [Buffer2], a pop af ld [Buffer1], a ret ; 0x1590a Function1590a: ; 0x1590a callba _CheckTossableItem ld a, [$d142] and a jr z, .asm_1591d ld a, $1 ld [$d10c], a jr .asm_15933 .asm_1591d ld hl, .HowManyText call Function1d4f callba Function24fbf push af call Function1c07 call Function1c07 pop af jr c, .asm_1596c .asm_15933 ld a, [$d10c] ld [Buffer1], a ld a, [$d107] ld [Buffer2], a ld hl, PCItems call ReceiveItem jr nc, .asm_15965 ld a, [Buffer1] ld [$d10c], a ld a, [Buffer2] ld [$d107], a ld hl, NumItems call TossItem ld a, $3b call Predef ld hl, .DepositText call PrintText ret .asm_15965 ld hl, .NoRoomText call PrintText ret .asm_1596c and a ret ; 0x1596e .HowManyText ; 0x1596e TX_FAR _KrissPCHowManyDepositText db "@" .DepositText ; 0x15973 TX_FAR _KrissPCDepositItemsText db "@" .NoRoomText ; 0x15978 TX_FAR _KrissPCNoRoomDepositText db "@" KrisMailBoxMenu: ; 0x1597d callba _KrisMailBoxMenu xor a ret ; 0x15985 Function15985: ; 0x15985 xor a ld [$d0e3], a .asm_15989 ld a, [$c2ce] push af ld a, $0 ld [$c2ce], a ld hl, MenuData15a08 call Function1d3c hlcoord 0, 0 ld b, $a ld c, $12 call TextBox ld a, [$d0d7] ld [$cf88], a ld a, [$d0dd] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [$d0dd], a ld a, [$cfa9] ld [$d0d7], a pop af ld [$c2ce], a ld a, [$d0e3] and a jr nz, .asm_159d8 ld a, [$cf73] cp $2 jr z, .asm_15a06 cp $1 jr z, .asm_159fb cp $4 jr z, .asm_159f2 jr .asm_159f8 .asm_159d8 ld a, [$cf73] cp $2 jr z, .asm_159e9 cp $1 jr z, .asm_159ef cp $4 jr z, .asm_159ef jr .asm_159f8 .asm_159e9 xor a ld [$d0e3], a jr .asm_159f8 .asm_159ef call Function156c7 .asm_159f2 callba Function2490c .asm_159f8 jp .asm_15989 .asm_159fb callba Function24706 call Function1bee and a ret .asm_15a06 scf ret ; 0x15a08 MenuData15a08: ; 0x15a08 db %01000000 db 1, 4 ; top left corner coords (y, x) db $a, $12 ; bottorm right corner coords (y, x) dw .MenuData2 db 1 ; default selected option .MenuData2 db %10110000 db 4, 8 ; rows/cols? db 2 ; horizontal spacing? dbw 0, PCItems dbw BANK(Function24ab4), Function24ab4 dbw BANK(Function24ac3), Function24ac3 dbw BANK(Function244c3), Function244c3 Function15a20: ; 15a20 call Function1d4f call Function1c07 ret ; 15a27 INCBIN "baserom.gbc",$15a27,$15a45 - $15a27 OpenMartDialog: ; 15a45 call GetMart ld a, c ld [EngineBuffer1], a call Function15b10 ld a, [EngineBuffer1] ld hl, .dialogs rst JumpTable ret ; 15a57 .dialogs dw MartDialog dw HerbShop dw BargainShop dw Pharmacist dw VendingMachine ; 15a61 MartDialog: ; 15a61 ld a, 0 ld [EngineBuffer1], a xor a ld [MovementAnimation], a call Function15b47 ret ; 15a6e HerbShop: ; 15a6e call ReadMart call Function1d6e ld hl, $5e4a call Function15fcd call Function15c62 ld hl, $5e68 call Function15fcd ret ; 15a84 BargainShop: ; 15a84 ld b, $5 ld de, $5c51 call Function15b10 call Function15c25 call Function1d6e ld hl, $5e6d call Function15fcd call Function15c62 ld hl, WalkingDirection ld a, [hli] or [hl] jr z, .asm_15aa7 ld hl, $dc1e set 6, [hl] .asm_15aa7 ld hl, $5e8b call Function15fcd ret ; 15aae Pharmacist: ; 15aae call ReadMart call Function1d6e ld hl, $5e90 call Function15fcd call Function15c62 ld hl, $5eae call Function15fcd ret ; 15ac4 VendingMachine: ; 15ac4 ld b, $5 ld de, $5aee ld hl, StatusFlags bit 6, [hl] jr z, .asm_15ad5 ld b, $5 ld de, $5aff .asm_15ad5 call Function15b10 call Function15c25 call Function1d6e ld hl, UnknownText_0x15f83 call Function15fcd call Function15c62 ld hl, $5fb4 call Function15fcd ret ; 15aee INCBIN "baserom.gbc",$15aee,$15b10 - $15aee Function15b10: ; 15b10 ld a, b ld [$d03f], a ld a, e ld [MartPointer], a ld a, d ld [MartPointer + 1], a ld hl, CurMart xor a ld bc, CurMartEnd - CurMart call ByteFill xor a ld [MovementAnimation], a ld [WalkingDirection], a ld [FacingDirection], a ret ; 15b31 GetMart: ; 15b31 ld a, e cp (MartsEnd - Marts) / 2 jr c, .IsAMart ld b, $5 ld de, DefaultMart ret .IsAMart ld hl, Marts add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] ld b, $5 ret ; 15b47 Function15b47: ; 15b47 .asm_15b47 ld a, [MovementAnimation] ld hl, .table_15b56 rst JumpTable ld [MovementAnimation], a cp $ff jr nz, .asm_15b47 ret .table_15b56 dw Function15b62 dw Function15b6e dw Function15b8d dw Function15b9a dw Function15ba3 dw Function15baf ; 15b62 Function15b62: ; 15b62 call Function1d6e ld hl, UnknownText_0x15f83 call PrintText ld a, $1 ret ; 15b6e Function15b6e: ; 15b6e ld hl, $5f88 call Function1d3c call Function1d81 jr c, .asm_15b84 ld a, [$cfa9] cp $1 jr z, .asm_15b87 cp $2 jr z, .asm_15b8a .asm_15b84 ld a, $4 ret .asm_15b87 ld a, $2 ret .asm_15b8a ld a, $3 ret ; 15b8d Function15b8d: ; 15b8d call Function1c07 call ReadMart call Function15c62 and a ld a, $5 ret ; 15b9a Function15b9a: ; 15b9a call Function1c07 call Function15eb3 ld a, $5 ret ; 15ba3 Function15ba3: ; 15ba3 call Function1c07 ld hl, $5fb4 call Function15fcd ld a, $ff ret ; 15baf Function15baf: ; 15baf call Function1d6e ld hl, UnknownText_0x15fb9 call PrintText ld a, $1 ret ; 15bbb ReadMart: ; 15bbb ld hl, MartPointer ld a, [hli] ld h, [hl] ld l, a ld de, CurMart .CopyMart ld a, [$d03f] call GetFarByte ld [de], a inc hl inc de cp $ff jr nz, .CopyMart ld hl, DefaultFlypoint ld de, CurMart + 1 .ReadMartItem ld a, [de] inc de cp $ff jr z, .asm_15be4 push de call GetMartItemPrice pop de jr .ReadMartItem .asm_15be4 ret ; 15be5 GetMartItemPrice: ; 15be5 ; Return the price of item a in BCD at hl and in tiles at StringBuffer1. push hl ld [CurItem], a callba GetItemPrice pop hl GetMartPrice: ; 15bf0 ; Return price de in BCD at hl and in tiles at StringBuffer1. push hl ld a, d ld [StringBuffer2], a ld a, e ld [StringBuffer2 + 1], a ld hl, StringBuffer1 ld de, StringBuffer2 ld bc, $82 << 8 + 6 ; 6 digits call PrintNum pop hl ld de, StringBuffer1 ld c, 6 / 2 ; 6 digits .asm_15c0b call .TileToNum swap a ld b, a call .TileToNum or b ld [hli], a dec c jr nz, .asm_15c0b ret ; 15c1a .TileToNum ; 15c1a ld a, [de] inc de cp " " jr nz, .asm_15c22 ld a, "0" .asm_15c22 sub "0" ret ; 15c25 Function15c25: ; 15c25 ld hl, MartPointer ld a, [hli] ld h, [hl] ld l, a push hl inc hl ld bc, DefaultFlypoint ld de, CurMart + 1 .asm_15c33 ld a, [hli] ld [de], a inc de cp $ff jr z, .asm_15c4b push de ld a, [hli] ld e, a ld a, [hli] ld d, a push hl ld h, b ld l, c call GetMartPrice ld b, h ld c, l pop hl pop de jr .asm_15c33 .asm_15c4b pop hl ld a, [hl] ld [CurMart], a ret ; 15c51 INCBIN "baserom.gbc",$15c51,$15c62 - $15c51 Function15c62: ; 15c62 call FadeToMenu callba Function8000 xor a ld [WalkingY], a ld a, 1 ld [WalkingX], a .asm_15c74 call Function15cef jr nc, .asm_15c74 call Function2b3c ret ; 15c7d Function15c7d: ; 15c7d push af call Function15ca3 ld a, [hli] ld h, [hl] ld l, a pop af ld e, a ld d, 0 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a call PrintText ret ; 15c91 Function15c91: ; 15c91 call Function15ca3 inc hl inc hl ld a, [hl] and a jp z, Function15d83 cp 1 jp z, Function15da5 jp Function15de2 ; 15ca3 Function15ca3: ; 15ca3 ld a, [EngineBuffer1] ld e, a ld d, 0 ld hl, .data_15cb0 add hl, de add hl, de add hl, de ret ; 15cb0 .data_15cb0 ; 15cb0 dwb $5cbf, 0 dwb $5ccb, 0 dwb $5cd7, 1 dwb $5ce3, 0 dwb $5cbf, 2 ; 15cbf INCBIN "baserom.gbc",$15cbf,$15cef - $15cbf Function15cef: ; 15cef callba Function24ae8 call Function1ad2 ld hl, $5e18 call Function1d3c ld a, [WalkingX] ld [$cf88], a ld a, [WalkingY] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [WalkingY], a ld a, [$cfa9] ld [WalkingX], a call SpeechTextBox ld a, [$cf73] cp $2 jr z, .asm_15d6d cp $1 jr z, .asm_15d27 .asm_15d27 call Function15c91 jr c, .asm_15d68 call Function15d97 jr c, .asm_15d68 ld de, Money ld bc, $ffc3 ld a, $3 call Function1600b jr c, .asm_15d79 ld hl, NumItems call ReceiveItem jr nc, .asm_15d6f ld a, [$d107] ld e, a ld d, $0 ld b, $1 ld hl, WalkingDirection call FlagAction call Function15fc3 ld de, Money ld bc, $ffc3 call Function15ffa ld a, $4 call Function15c7d call Functiona36 .asm_15d68 call SpeechTextBox and a ret .asm_15d6d scf ret .asm_15d6f ld a, $3 call Function15c7d call Functiona36 and a ret .asm_15d79 ld a, $2 call Function15c7d call Functiona36 and a ret ; 15d83 Function15d83: ; 15d83 ld a, $63 ld [$d10d], a ld a, $0 call Function15c7d callba Function24fc9 call Function1c07 ret ; 15d97 Function15d97: ; 15d97 ld a, $3b call Predef ld a, $1 call Function15c7d call YesNoBox ret ; 15da5 Function15da5: ; 15da5 ld a, $1 ld [$d10c], a ld a, [$d107] ld e, a ld d, $0 ld b, $2 ld hl, WalkingDirection call FlagAction ld a, c and a jr nz, .asm_15dd8 ld a, [$d107] ld e, a ld d, $0 ld hl, MartPointer ld a, [hli] ld h, [hl] ld l, a inc hl add hl, de add hl, de add hl, de inc hl ld a, [hli] ld [$ffc5], a ld a, [hl] ld [$ffc4], a xor a ld [$ffc3], a and a ret .asm_15dd8 ld a, $5 call Function15c7d call Functiona36 scf ret ; 15de2 Function15de2: ; 15de2 ld a, $0 call Function15c7d call Function15df9 ld a, $63 ld [$d10d], a callba Function24fcf call Function1c07 ret ; 15df9 Function15df9: ; 15df9 ld a, [$d107] ld e, a ld d, $0 ld hl, MartPointer ld a, [hli] ld h, [hl] ld l, a inc hl add hl, de add hl, de add hl, de inc hl ld e, [hl] inc hl ld d, [hl] ret ; 15e0e INCBIN "baserom.gbc",$15e0e,$15e30 - $15e0e ld a, [$cf77] ld c, a ld b, $0 ld hl, DefaultFlypoint ; $d002 add hl, bc add hl, bc add hl, bc push de ld d, h ld e, l pop hl ld bc, $14 add hl, bc ld c, $a3 call PrintBCDNumber ret ; 15e4a (5:5e4a) INCBIN "baserom.gbc",$15e4a,$15eb3 - $15e4a Function15eb3: ; 15eb3 call Function2ed3 callba Function106a5 .asm_15ebc callba Function106be ld a, [$cf66] and a jp z, Function15ece call Function15ee0 jr .asm_15ebc ; 15ece Function15ece: ; 15ece call Function2b74 and a ret ; 15ed3 INCBIN "baserom.gbc",$15ed3,$15ee0 - $15ed3 Function15ee0: ; 15ee0 callba CheckItemMenu ld a, [$d142] ld hl, Table15eee rst JumpTable ret ; 15eee Table15eee: ; 15eee dw Function15efd dw Function15efc dw Function15efc dw Function15efc dw Function15efd dw Function15efd dw Function15efd ; 15efc Function15efc: ; 15efc ret ; 15efd Function15efd: ; 15efd callba _CheckTossableItem ld a, [$d142] and a jr z, .asm_15f11 ld hl, $5faf call PrintText and a ret .asm_15f11 ld hl, UnknownText_0x15f73 call PrintText callba Function24af8 callba Function24fe1 call Function1c07 jr c, .asm_15f6e ld hl, $c5b9 ld bc, $0312 call ClearBox ld hl, UnknownText_0x15f78 call PrintTextBoxText call YesNoBox jr c, .asm_15f6e ld de, Money ld bc, $ffc3 call Function15fd7 ld a, [$d107] ld hl, NumItems call TossItem ld a, $3b call Predef ld hl, $c5b9 ld bc, $0312 call ClearBox ld hl, UnknownText_0x15fbe call PrintTextBoxText call Function15fc3 callba Function24af0 call Functiona36 .asm_15f6e call Function1c07 and a ret ; 15f73 UnknownText_0x15f73: ; 0x15f73 text_jump UnknownText_0x1c4f33 db "@" ; 0x15f78 UnknownText_0x15f78: ; 0x15f78 text_jump UnknownText_0x1c4f3e db "@" ; 0x15f7d INCBIN "baserom.gbc",$15f7d,$15f83 - $15f7d UnknownText_0x15f83: ; 0x15f83 text_jump UnknownText_0x1c4f62 db "@" ; 0x15f88 INCBIN "baserom.gbc",$15f88,$15fb9 - $15f88 UnknownText_0x15fb9: ; 0x15fb9 text_jump UnknownText_0x1c500d db "@" ; 0x15fbe UnknownText_0x15fbe: ; 0x15fbe text_jump UnknownText_0x1c502e db "@" ; 0x15fc3 Function15fc3: ; 15fc3 call WaitSFX ld de, SFX_TRANSACTION call PlaySFX ret ; 15fcd Function15fcd: ; 15fcd call Function1d4f call Functiona36 call Function1c07 ret ; 15fd7 Function15fd7: ; 15fd7 ld a, $3 call Function16053 ld bc, $5ff7 ld a, $3 call Function1600b jr z, .asm_15ff5 jr c, .asm_15ff5 ld hl, $5ff7 ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a scf ret .asm_15ff5 and a ret ; 15ff7 INCBIN "baserom.gbc",$15ff7,$15ffa - $15ff7 Function15ffa: ; 15ffa ld a, $3 call Function16035 jr nc, .asm_16009 xor a ld [de], a inc de ld [de], a inc de ld [de], a scf ret .asm_16009 and a ret ; 1600b Function1600b: ; 1600b ld a, $3 Function1600d: ; 1600d push hl push de push bc ld h, b ld l, c ld c, $0 ld b, a .asm_16015 dec a jr z, .asm_1601c inc de inc hl jr .asm_16015 .asm_1601c and a .asm_1601d ld a, [de] sbc [hl] jr z, .asm_16022 inc c .asm_16022 dec de dec hl dec b jr nz, .asm_1601d jr c, .asm_1602d ld a, c and a jr .asm_16031 .asm_1602d ld a, $1 and a scf .asm_16031 pop bc pop de pop hl ret ; 16035 Function16035: ; 16035 ld a, $3 Function16037: ; 16037 push hl push de push bc ld h, b ld l, c ld b, a ld c, $0 .asm_1603f dec a jr z, .asm_16046 inc de inc hl jr .asm_1603f .asm_16046 and a .asm_16047 ld a, [de] sbc [hl] ld [de], a dec de dec hl dec b jr nz, .asm_16047 pop bc pop de pop hl ret ; 16053 Function16053: ; 16053 ld a, $3 Function16055: ; 16055 push hl push de push bc ld h, b ld l, c ld b, a .asm_1605b dec a jr z, .asm_16062 inc de inc hl jr .asm_1605b .asm_16062 and a .asm_16063 ld a, [de] adc [hl] ld [de], a dec de dec hl dec b jr nz, .asm_16063 pop bc pop de pop hl ret ; 1606f Function1606f: ; 1606f ld a, $2 ld de, Coins call Function16055 ld a, $2 ld bc, $608d call Function1600d jr c, .asm_1608b ld hl, $608d ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a scf ret .asm_1608b and a ret ; 1608d INCBIN "baserom.gbc",$1608d,$1608f - $1608d Function1608f: ; 1608f ld a, $2 ld de, Coins call Function16037 jr nc, .asm_1609f xor a ld [de], a inc de ld [de], a scf ret .asm_1609f and a ret ; 160a1 Function160a1: ; 160a1 ld a, $2 ld de, Coins jp Function1600d ; 160a9 INCLUDE "items/marts.asm" Function16218: ; 16218 ld a, [$ffaa] push af ld a, $1 ld [$ffaa], a xor a ld [$cf63], a .asm_16223 ld a, [$cf63] bit 7, a jr nz, .asm_1622f call Function16233 jr .asm_16223 .asm_1622f pop af ld [$ffaa], a ret ; 16233 Function16233: ; 16233 ld a, [$cf63] ld e, a ld d, $0 ld hl, $6242 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 16242 INCBIN "baserom.gbc",$16242,$166d6 - $16242 Function166d6: ; 166d6 ld hl, DaycareMan bit 0, [hl] jr nz, .asm_166fe ld hl, DaycareMan ld a, $0 call Function1678f jr c, .asm_16724 call Function16798 jr c, .asm_16721 callba Functionde2a ld hl, DaycareMan set 0, [hl] call Function167f6 call Function16a3b ret .asm_166fe callba Functione698 ld hl, BreedMon1Nick call Function1686d call Function16807 jr c, .asm_16721 callba Functiondd21 call Function16850 ld hl, DaycareMan res 0, [hl] res 5, [hl] jr .asm_16724 .asm_16721 call Function1689b .asm_16724 ld a, $13 call Function1689b ret ; 1672a Function1672a: ; 1672a ld hl, DaycareLady bit 0, [hl] jr nz, .asm_16752 ld hl, DaycareLady ld a, $2 call Function16781 jr c, .asm_1677b call Function16798 jr c, .asm_16778 callba Functionde37 ld hl, DaycareLady set 0, [hl] call Function167f6 call Function16a3b ret .asm_16752 callba Functione6b3 ld hl, BreedMon2Nick call Function1686d call Function16807 jr c, .asm_16778 callba Functiondd42 call Function16850 ld hl, DaycareLady res 0, [hl] ld hl, DaycareMan res 5, [hl] jr .asm_1677b .asm_16778 call Function1689b .asm_1677b ld a, $13 call Function1689b ret ; 16781 Function16781: ; 16781 bit 7, [hl] jr nz, .asm_16788 set 7, [hl] inc a .asm_16788 call Function1689b call YesNoBox ret ; 1678f Function1678f: ; 1678f set 7, [hl] call Function1689b call YesNoBox ret ; 16798 Function16798: ; 16798 ld a, [PartyCount] cp $2 jr c, .asm_167e5 ld a, $4 call Function1689b ld b, $6 callba Function5001d jr c, .asm_167dd ld a, [CurPartySpecies] cp $fd jr z, .asm_167e1 callba Functione538 jr c, .asm_167e9 ld hl, PartyMon1Item ld bc, $0030 ld a, [CurPartyMon] call AddNTimes ld d, [hl] callba ItemIsMail jr c, .asm_167ed ld hl, PartyMon1Nickname ld a, [CurPartyMon] call GetNick and a ret .asm_167dd ld a, $12 scf ret .asm_167e1 ld a, $6 scf ret .asm_167e5 ld a, $7 scf ret .asm_167e9 ld a, $8 scf ret .asm_167ed ld a, $a scf ret ; 167f1 INCBIN "baserom.gbc",$167f1,$167f6 - $167f1 Function167f6: ; 167f6 ld a, $5 call Function1689b ld a, [CurPartySpecies] call Function37ce ld a, $9 call Function1689b ret ; 16807 Function16807: ; 16807 ld a, [$d087] and a jr nz, .asm_16819 ld a, $f call Function1689b call YesNoBox jr c, .asm_16844 jr .asm_1682d .asm_16819 ld a, $b call Function1689b call YesNoBox jr c, .asm_16844 ld a, $c call Function1689b call YesNoBox jr c, .asm_16844 .asm_1682d ld de, Money ld bc, $d088 callba Function1600b jr c, .asm_16848 ld a, [PartyCount] cp $6 jr nc, .asm_1684c and a ret .asm_16844 ld a, $12 scf ret .asm_16848 ld a, $11 scf ret .asm_1684c ld a, $10 scf ret ; 16850 Function16850: ; 16850 ld bc, $d088 ld de, Money callba Function15ffa ld a, $d call Function1689b ld a, [CurPartySpecies] call Function37ce ld a, $e call Function1689b ret ; 1686d Function1686d: ; 1686d ld a, b ld [StringBuffer2], a ld a, d ld [$d087], a ld de, StringBuffer1 ld bc, $000b call CopyBytes ld hl, $0000 ld bc, $0064 ld a, [$d087] call AddNTimes ld de, $0064 add hl, de xor a ld [$d088], a ld a, h ld [$d089], a ld a, l ld [$d08a], a ret ; 1689b Function1689b: ; 1689b ld e, a ld d, $0 ld hl, $68aa add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a call PrintText ret ; 168aa INCBIN "baserom.gbc",$168aa,$16936 - $168aa Function16936: ; 16936 ld hl, DaycareMan bit 6, [hl] jr nz, .asm_16949 ld hl, .data_16944 call PrintText ret .data_16944 db $16 db $f6 db $5e db $6f db $50 .asm_16949 ld hl, $6993 call PrintText call YesNoBox jr c, .asm_1697c ld a, [PartyCount] cp $6 jr nc, .asm_16987 call Function169ac ld hl, DaycareMan res 6, [hl] call Function16a3b ld hl, $6998 call PrintText ld de, $0096 call PlaySFX ld c, $78 call DelayFrames ld hl, $699d jr .asm_1697f .asm_1697c ld hl, $69a2 .asm_1697f call PrintText xor a ld [ScriptVar], a ret .asm_16987 ld hl, $69a7 call PrintText ld a, $1 ld [ScriptVar], a ret ; 16993 INCBIN "baserom.gbc",$16993,$169ac - $16993 Function169ac: ; 169ac ld a, [$df9a] ld [CurPartyLevel], a ld hl, PartyCount ld a, [hl] cp $6 jr nc, .asm_16a2f inc a ld [hl], a ld c, a ld b, $0 add hl, bc ld a, $fd ld [hli], a ld a, [EggSpecies] ld [CurSpecies], a ld [CurPartySpecies], a ld a, $ff ld [hl], a ld hl, PartyMon1Nickname ld bc, $000b call Function16a31 ld hl, EggNick call CopyBytes ld hl, PartyMon1OT ld bc, $000b call Function16a31 ld hl, EggOT call CopyBytes ld hl, PartyMon1Species ld bc, $0030 call Function16a31 ld hl, EggSpecies ld bc, $0020 call CopyBytes call GetBaseData ld a, [PartyCount] dec a ld hl, PartyMon1Species ld bc, $0030 call AddNTimes ld b, h ld c, l ld hl, $0007 add hl, bc push hl ld hl, $0024 add hl, bc ld d, h ld e, l pop hl push bc ld b, $0 ld a, $c call Predef pop bc ld hl, $0022 add hl, bc xor a ld [hli], a ld [hl], a and a ret .asm_16a2f scf ret ; 16a31 Function16a31: ; 16a31 ld a, [PartyCount] dec a call AddNTimes ld d, h ld e, l ret ; 16a3b Function16a3b: ; 16a3b ld a, [DaycareLady] bit 0, a ret z ld a, [DaycareMan] bit 0, a ret z callab Function16e1d ld a, [$d265] and a ret z inc a ret z ld hl, DaycareMan set 5, [hl] .asm_16a59 call Random cp $96 jr c, .asm_16a59 ld [StepsToEgg], a jp Function16a66 ; 16a66 Function16a66: ; 16a66 xor a ld hl, EggSpecies ld bc, $0020 call ByteFill ld hl, EggNick ld bc, $000b call ByteFill ld hl, EggOT ld bc, $000b call ByteFill ld a, [$df21] ld [TempMonDVs], a ld a, [$df22] ld [$d124], a ld a, [BreedMon1Species] ld [CurPartySpecies], a ld a, $3 ld [MonType], a ld a, [BreedMon1Species] cp $84 ld a, $1 jr z, .asm_16ab6 ld a, [BreedMon2Species] cp $84 ld a, $0 jr z, .asm_16ab6 callba GetGender ld a, $0 jr z, .asm_16ab6 inc a .asm_16ab6 ld [DittoInDaycare], a and a ld a, [BreedMon1Species] jr z, .asm_16ac2 ld a, [BreedMon2Species] .asm_16ac2 ld [CurPartySpecies], a callab GetPreEvolution callab GetPreEvolution ld a, $5 ld [CurPartyLevel], a ld a, [CurPartySpecies] cp $1d jr nz, .asm_16ae8 call Random cp $80 ld a, $1d jr c, .asm_16ae8 ld a, $20 .asm_16ae8 ld [CurPartySpecies], a ld [CurSpecies], a ld [EggSpecies], a call GetBaseData ld hl, EggNick ld de, $6be0 call CopyName2 ld hl, PlayerName ld de, EggOT ld bc, $000b call CopyBytes xor a ld [$df7c], a ld de, $df7d xor a ld [Buffer1], a ld a, $1b call Predef callba Function170bf ld hl, $df81 ld a, [PlayerID] ld [hli], a ld a, [$d47c] ld [hl], a ld a, [CurPartyLevel] ld d, a callab Function50e47 ld hl, $df83 ld a, [hMultiplicand] ld [hli], a ld a, [$ffb5] ld [hli], a ld a, [$ffb6] ld [hl], a xor a ld b, $a ld hl, $df86 .asm_16b46 ld [hli], a dec b jr nz, .asm_16b46 ld hl, $df90 call Random ld [hli], a ld [TempMonDVs], a call Random ld [hld], a ld [$d124], a ld de, $df21 ld a, [BreedMon1Species] cp $84 jr z, .asm_16b98 ld de, $df5a ld a, [BreedMon2Species] cp $84 jr z, .asm_16b98 ld a, $3 ld [MonType], a push hl callba GetGender pop hl ld de, $df21 ld bc, $df5a jr c, .asm_16bab jr z, .asm_16b90 ld a, [DittoInDaycare] and a jr z, .asm_16b98 ld d, b ld e, c jr .asm_16b98 .asm_16b90 ld a, [DittoInDaycare] and a jr nz, .asm_16b98 ld d, b ld e, c .asm_16b98 ld a, [de] inc de and $f ld b, a ld a, [hl] and $f0 add b ld [hli], a ld a, [de] and $7 ld b, a ld a, [hl] and $f8 add b ld [hl], a .asm_16bab ld hl, StringBuffer1 ld de, $d050 ld bc, $000b call CopyBytes ld hl, $df7d ld de, $df92 ld a, $5 call Predef ld hl, $d050 ld de, StringBuffer1 ld bc, $000b call CopyBytes ld a, [BaseEggSteps] ld hl, $df96 ld [hli], a xor a ld [hli], a ld [hli], a ld [hl], a ld a, [CurPartyLevel] ld [$df9a], a ret ; 16be0 INCBIN "baserom.gbc",$16be0,$16be4 - $16be0 Function16be4: ; 16be4 ld a, [UnownDex] and a ret z ld a, [$ffaa] push af ld a, $1 ld [$ffaa], a ld a, [Options] push af set 4, a ld [Options], a call WhiteBGMap call ClearTileMap ld de, UnownDexATile ld hl, $8ef0 ld bc, $0501 call Request1bpp ld de, UnownDexBTile ld hl, $8f50 ld bc, $0501 call Request1bpp ld hl, TileMap ld bc, $0312 call TextBox ld hl, $c504 ld bc, $0707 call TextBox ld hl, $c5b8 ld bc, $0212 call TextBox ld hl, $c4c9 ld de, AlphRuinsStampString call PlaceString ld hl, $c5e1 ld de, UnownDexDoWhatString call PlaceString ld hl, $c522 ld de, UnownDexMenuString call PlaceString xor a ld [$cf63], a call Function16cc8 call WaitBGMap ld a, UNOWN ld [CurPartySpecies], a xor a ld [TempMonDVs], a ld [TempMonDVs + 1], a ld b, $1c call GetSGBLayout call Function32f9 .asm_16c6b call Functiona57 ld a, [hJoyPressed] and B_BUTTON jr nz, .asm_16c95 ld a, [hJoyPressed] and A_BUTTON jr nz, .asm_16c82 call Function16ca0 call DelayFrame jr .asm_16c6b .asm_16c82 ld a, [$cf63] push af callba Function84560 call Function3d47 pop af ld [$cf63], a jr .asm_16c6b .asm_16c95 pop af ld [Options], a pop af ld [$ffaa], a call Function222a ret ; 16ca0 Function16ca0: ; 16ca0 ld a, [$ffa9] and $10 jr nz, .asm_16cb9 ld a, [$ffa9] and $20 jr nz, .asm_16cad ret .asm_16cad ld hl, $cf63 ld a, [hl] and a jr nz, .asm_16cb6 ld [hl], $1b .asm_16cb6 dec [hl] jr .asm_16cc4 .asm_16cb9 ld hl, $cf63 ld a, [hl] cp $1a jr c, .asm_16cc3 ld [hl], $ff .asm_16cc3 inc [hl] .asm_16cc4 call Function16cc8 ret ; 16cc8 Function16cc8: ; 16cc8 ld a, [$cf63] cp 26 jr z, Function16d20 inc a ld [UnownLetter], a ld a, UNOWN ld [CurPartySpecies], a xor a ld [$c2c6], a ld de, VTiles2 ld a, $3c call Predef call Function16cff ld hl, $c519 xor a ld [$ffad], a ld bc, $0707 ld a, $13 call Predef ld de, $9310 callba Functione0000 ret ; 16cff Function16cff: ; 16cff ld a, [rSVBK] push af ld a, $6 ld [rSVBK], a ld a, $0 call GetSRAMBank ld de, Unkn1Pals ld hl, $a000 ld a, [hROMBank] ld b, a ld c, $31 call Get2bpp call CloseSRAM pop af ld [rSVBK], a ret ; 16d20 Function16d20: ; 16d20 ld hl, $c519 ld bc, $0707 call ClearBox ld hl, $c555 ld de, UnownDexVacantString call PlaceString xor a call GetSRAMBank ld hl, $a000 ld bc, $0310 xor a call ByteFill ld hl, $9310 ld de, $a000 ld c, $31 ld a, [hROMBank] ld b, a call Get2bpp call CloseSRAM ld c, $14 call DelayFrames ret ; 16d57 AlphRuinsStampString: db " ALPH RUINS STAMP@" UnownDexDoWhatString: db "Do what?@" UnownDexMenuString: db $ef, " PRINT", $4e db $f5, " CANCEL", $4e db $df, " PREVIOUS", $4e db $eb, " NEXT@" UnownDexVacantString: db "VACANT@" ; 16d9c UnownDexATile: ; 16d9c INCBIN "baserom.gbc", $16d9c, $16da4 - $16d9c UnownDexBTile: ; 16da4 INCBIN "baserom.gbc", $16da4, $16dac - $16da4 ; 16dac Function16dac: ; 16dac ld hl, TileMap ld bc, $0168 ld a, $7f call ByteFill ld hl, $c583 ld a, $31 ld [$ffad], a ld bc, $0707 ld a, $13 call Predef ret ; 16dc7 Function16dc7: ; 16dc7 ld hl, $6e04 call PrintText callba Function50000 jr c, .asm_16df8 ld a, [CurPartySpecies] cp $fd jr z, .asm_16dfd ld hl, $6e09 call PrintText call Function2ed3 callba Function8461a call Function2b74 ld a, [$ffac] and a jr nz, .asm_16df8 ld hl, $6e0e jr .asm_16e00 .asm_16df8 ld hl, $6e13 jr .asm_16e00 .asm_16dfd ld hl, $6e18 .asm_16e00 call PrintText ret ; 16e04 INCBIN "baserom.gbc",$16e04,$16e1d - $16e04 Function16e1d: ; 16e1d call Function16ed6 ld c, $0 jp nc, .asm_16eb7 ld a, [BreedMon1Species] ld [CurPartySpecies], a ld a, [$df21] ld [TempMonDVs], a ld a, [$df22] ld [$d124], a ld a, $3 ld [MonType], a ld a, $24 call Predef jr c, .asm_16e70 ld b, $1 jr nz, .asm_16e48 inc b .asm_16e48 push bc ld a, [BreedMon2Species] ld [CurPartySpecies], a ld a, [$df5a] ld [TempMonDVs], a ld a, [$df5b] ld [$d124], a ld a, $3 ld [MonType], a ld a, $24 call Predef pop bc jr c, .asm_16e70 ld a, $1 jr nz, .asm_16e6d inc a .asm_16e6d cp b jr nz, .asm_16e89 .asm_16e70 ld c, $0 ld a, [BreedMon1Species] cp $84 jr z, .asm_16e82 ld a, [BreedMon2Species] cp $84 jr nz, .asm_16eb7 jr .asm_16e89 .asm_16e82 ld a, [BreedMon2Species] cp $84 jr z, .asm_16eb7 .asm_16e89 call Function16ebc ld c, $ff jp z, .asm_16eb7 ld a, [BreedMon2Species] ld b, a ld a, [BreedMon1Species] cp b ld c, $fe jr z, .asm_16e9f ld c, $80 .asm_16e9f ld a, [$df12] ld b, a ld a, [$df4b] cp b jr nz, .asm_16eb7 ld a, [$df13] ld b, a ld a, [$df4c] cp b jr nz, .asm_16eb7 ld a, c sub $4d ld c, a .asm_16eb7 ld a, c ld [$d265], a ret ; 16ebc ; known jump sources: 16e89 (5:6e89) Function16ebc: ; 16ebc (5:6ebc) ld a, [$df21] and $f ld b, a ld a, [$df5a] and $f cp b ret nz ld a, [$df22] and $7 ld b, a ld a, [$df5b] and $7 cp b ret ; 16ed6 Function16ed6: ; 16ed6 ld a, [BreedMon2Species] ld [CurSpecies], a call GetBaseData ld a, [BaseEggGroups] cp $ff jr z, .asm_16f3a ld a, [BreedMon1Species] ld [CurSpecies], a call GetBaseData ld a, [BaseEggGroups] cp $ff jr z, .asm_16f3a ld a, [BreedMon2Species] cp $84 jr z, .asm_16f3c ld [CurSpecies], a call GetBaseData ld a, [BaseEggGroups] push af and $f ld b, a pop af and $f0 swap a ld c, a ld a, [BreedMon1Species] cp $84 jr z, .asm_16f3c ld [CurSpecies], a push bc call GetBaseData pop bc ld a, [BaseEggGroups] push af and $f ld d, a pop af and $f0 swap a ld e, a ld a, d cp b jr z, .asm_16f3c cp c jr z, .asm_16f3c ld a, e cp b jr z, .asm_16f3c cp c jr z, .asm_16f3c .asm_16f3a and a ret .asm_16f3c scf ret ; 16f3e Function16f3e: ; 16f3e ld de, PartySpecies ld hl, PartyMon1Happiness ld c, 0 .loop ld a, [de] inc de cp $ff ret z cp EGG jr nz, .next dec [hl] jr nz, .next ld a, 1 and a ret .next push de ld de, PartyMon2 - PartyMon1 add hl, de pop de jr .loop ; 16f5e Function16f5e: ; 16f5e call ResetWindow call Function1d6e call Function16f70 call Function2b4d call Function3d47 jp Function2dcf ; 16f70 ; known jump sources: 16f64 (5:6f64) Function16f70: ; 16f70 (5:6f70) ld de, PartySpecies ; $dcd8 ld hl, PartyMon1Happiness ; $dcfa xor a ld [CurPartyMon], a ; $d109 ; known jump sources: 17087 (5:7087) Function16f7a: ; 16f7a (5:6f7a) ld a, [de] inc de cp $ff jp z, Function1708a push de push hl cp $fd jp nz, Function1707d ld a, [hl] and a jp nz, Function1707d ld [hl], $78 push de callba Function4dbb8 callba Function10608d ld a, [CurPartyMon] ; $d109 ld hl, PartyMons ; $dcdf (aliases: PartyMon1, PartyMon1Species) ld bc, $30 call AddNTimes ld a, [hl] ld [CurPartySpecies], a ; $d108 dec a call SetSeenAndCaughtMon ld a, [CurPartySpecies] ; $d108 cp $af jr nz, .asm_16fbf ld de, $54 ld b, $1 call EventFlagAction .asm_16fbf pop de ld a, [CurPartySpecies] ; $d108 dec de ld [de], a ld [$d265], a ld [CurSpecies], a ; $cf60 call GetPokemonName xor a ld [$d26b], a call GetBaseData ld a, [CurPartyMon] ; $d109 ld hl, PartyMons ; $dcdf (aliases: PartyMon1, PartyMon1Species) ld bc, $30 call AddNTimes push hl ld bc, $24 add hl, bc ld d, h ld e, l pop hl push hl ld bc, $1f add hl, bc ld a, [hl] ld [CurPartyLevel], a ; $d143 pop hl push hl ld bc, $20 add hl, bc xor a ld [hli], a ld [hl], a pop hl push hl ld bc, $a add hl, bc ld b, $0 ld a, $c call Predef pop bc ld hl, $24 add hl, bc ld d, h ld e, l ld hl, $22 add hl, bc ld a, [de] inc de ld [hli], a ld a, [de] ld [hl], a ld hl, $6 add hl, bc ld a, [PlayerID] ; $d47b ld [hli], a ld a, [$d47c] ld [hl], a ld a, [CurPartyMon] ; $d109 ld hl, PartyMonOT ; $ddff (aliases: PartyMon1OT) ld bc, $b call AddNTimes ld d, h ld e, l ld hl, PlayerName ; $d47d call CopyBytes ld hl, $708b call PrintText ld a, [CurPartyMon] ; $d109 ld hl, PartyMonNicknames ; $de41 (aliases: PartyMon1Nickname) ld bc, $b call AddNTimes ld d, h ld e, l push de ld hl, $70ba call PrintText call YesNoBox pop de jr c, .asm_17074 ld a, $1 ld [$d26b], a xor a ld [MonType], a ; $cf5f push de ld b, $0 callba Function116c1 pop hl ld de, StringBuffer1 ; $d073 call InitName jr Function1707d .asm_17074 ld hl, StringBuffer1 ; $d073 ld bc, $b call CopyBytes ; known jump sources: 16f85 (5:6f85), 16f8a (5:6f8a), 17072 (5:7072) Function1707d: ; 1707d (5:707d) ld hl, CurPartyMon ; $d109 inc [hl] pop hl ld de, $30 add hl, de pop de jp Function16f7a ; known jump sources: 16f7e (5:6f7e) Function1708a: ; 1708a (5:708a) ret ; 1708b (5:708b) INCBIN "baserom.gbc",$1708b,$17090 - $1708b ld hl, VramState ; $d0ed res 0, [hl] push hl push de push bc ld a, [CurPartySpecies] ; $d108 push af call Function1728f ld hl, $70b0 call PrintText pop af ld [CurPartySpecies], a ; $d108 pop bc pop de pop hl ld hl, $70b5 ret ; 170b0 (5:70b0) INCBIN "baserom.gbc",$170b0,$170bf - $170b0 Function170bf: ; 170bf call Function17197 ld d, h ld e, l ld b, $4 .asm_170c6 ld a, [de] and a jr z, .asm_170e3 ld hl, $df7d ld c, $4 .asm_170cf ld a, [de] cp [hl] jr z, .asm_170df inc hl dec c jr nz, .asm_170cf call Function170e4 jr nc, .asm_170df call Function17169 .asm_170df inc de dec b jr nz, .asm_170c6 .asm_170e3 ret ; 170e4 Function170e4: ; 170e4 push bc ld a, [EggSpecies] dec a ld c, a ld b, $0 ld hl, $7b11 add hl, bc add hl, bc ld a, $8 call GetFarHalfword .asm_170f6 ld a, $8 call GetFarByte cp $ff jr z, .asm_17107 ld b, a ld a, [de] cp b jr z, .asm_17163 inc hl jr .asm_170f6 .asm_17107 call Function1720b ld b, $4 .asm_1710c ld a, [de] cp [hl] jr z, .asm_17116 inc hl dec b jr z, .asm_17146 jr .asm_1710c .asm_17116 ld a, [EggSpecies] dec a ld c, a ld b, $0 ld hl, $65b1 add hl, bc add hl, bc ld a, $10 call GetFarHalfword .asm_17127 ld a, $10 call GetFarByte inc hl and a jr nz, .asm_17127 .asm_17130 ld a, $10 call GetFarByte and a jr z, .asm_17146 inc hl ld a, $10 call GetFarByte ld b, a ld a, [de] cp b jr z, .asm_17163 inc hl jr .asm_17130 .asm_17146 ld hl, $567a .asm_17149 ld a, $4 call GetFarByte inc hl and a jr z, .asm_17166 ld b, a ld a, [de] cp b jr nz, .asm_17149 ld [$d262], a ld a, $e call Predef ld a, c and a jr z, .asm_17166 .asm_17163 pop bc scf ret .asm_17166 pop bc and a ret ; 17169 Function17169: ; 17169 push de push bc ld a, [de] ld b, a ld hl, $df7d ld c, $4 .asm_17172 ld a, [hli] and a jr z, .asm_17187 dec c jr nz, .asm_17172 ld de, $df7d ld hl, $df7e ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a .asm_17187 dec hl ld [hl], b ld hl, $df7d ld de, $df92 ld a, $5 call Predef pop bc pop de ret ; 17197 Function17197: ; 17197 ld hl, $df47 ld a, [BreedMon1Species] cp $84 jr z, .asm_171b1 ld a, [BreedMon2Species] cp $84 jr z, .asm_171d7 ld a, [DittoInDaycare] and a ret z ld hl, $df0e ret .asm_171b1 ld a, [CurPartySpecies] push af ld a, [BreedMon2Species] ld [CurPartySpecies], a ld a, [$df5a] ld [TempMonDVs], a ld a, [$df5b] ld [$d124], a ld a, $3 ld [MonType], a ld a, $24 call Predef jr c, .asm_171fb jr nz, .asm_171fb jr .asm_17203 .asm_171d7 ld a, [CurPartySpecies] push af ld a, [BreedMon1Species] ld [CurPartySpecies], a ld a, [$df21] ld [TempMonDVs], a ld a, [$df22] ld [$d124], a ld a, $3 ld [MonType], a ld a, $24 call Predef jr c, .asm_17203 jr nz, .asm_17203 .asm_171fb ld hl, $df47 pop af ld [CurPartySpecies], a ret .asm_17203 ld hl, $df0e pop af ld [CurPartySpecies], a ret ; 1720b Function1720b: ; 1720b ld hl, $df0e ld a, [BreedMon1Species] cp $84 ret z ld a, [BreedMon2Species] cp $84 jr z, .asm_17220 ld a, [DittoInDaycare] and a ret z .asm_17220 ld hl, $df47 ret ; 17224 ; known jump sources: 172ca (5:72ca) Function17224: ; 17224 (5:7224) push de ld [CurPartySpecies], a ; $d108 ld [CurSpecies], a ; $cf60 call GetBaseData ld hl, BattleMonDVs ; $c632 (aliases: BattleMonAtkDefDV) ld a, $2d call Predef pop de ld a, $3c jp Predef ; known jump sources: 172c2 (5:72c2) Function1723c: ; 1723c (5:723c) push de ld [CurPartySpecies], a ; $d108 ld [CurSpecies], a ; $cf60 call GetBaseData ld hl, BattleMonDVs ; $c632 (aliases: BattleMonAtkDefDV) ld a, $2d call Predef pop de ld a, $3e jp Predef ; known jump sources: 172df (5:72df), 17343 (5:7343) Function17254: ; 17254 (5:7254) push af call WaitTop push hl push bc ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 ld a, $7f call ByteFill pop bc pop hl ld a, b ld [$FF00+$d7], a ld a, c ld [$FF00+$ad], a ld bc, $707 ld a, $13 call Predef pop af call Function17363 call Function32f9 jp WaitBGMap ; known jump sources: 17301 (5:7301), 17312 (5:7312), 173eb (5:73eb), 1741a (5:741a) Function1727f: ; 1727f (5:727f) push hl push de push bc callab Function8cf69 call DelayFrame pop bc pop de pop hl ret ; known jump sources: 1709c (5:709c) Function1728f: ; 1728f (5:728f) ld a, [$d265] ld [$cf63], a ld a, [CurSpecies] ; $cf60 push af ld de, $0 call PlayMusic callba Function8000 call DisableLCD ld hl, $7393 ld de, $8000 ld bc, $20 ld a, $5 call FarCopyBytes callba Function8cf53 ld de, $9000 ld a, [$cf63] call Function1723c ld de, $9310 ld a, $fd call Function17224 ld de, $22 call PlayMusic call EnableLCD ld hl, $c4f7 ld b, $98 ld c, $31 ld a, $fd call Function17254 ld c, $50 call DelayFrames xor a ld [$cf64], a ld a, [hSCX] ; $ff00+$cf ld b, a .asm_172ee ld hl, $cf64 ld a, [hl] inc [hl] cp $8 jr nc, .asm_17327 ld e, [hl] .asm_172f8 ld a, $2 ld [hSCX], a ; $ff00+$cf ld a, $fe ld [$c3c0], a call Function1727f ld c, $2 call DelayFrames ld a, $fe ld [hSCX], a ; $ff00+$cf ld a, $2 ld [$c3c0], a call Function1727f ld c, $2 call DelayFrames dec e jr nz, .asm_172f8 ld c, $10 call DelayFrames call Function1736d jr .asm_172ee .asm_17327 ld de, $a6 call PlaySFX xor a ld [hSCX], a ; $ff00+$cf ld [$c3c0], a call ClearSprites call Function173b3 ld hl, $c4e2 ld b, $98 ld c, $0 ld a, [$cf63] call Function17254 call Function17418 call WaitSFX ld a, [$cf63] ld [CurPartySpecies], a ; $d108 ld hl, $c4e2 ld d, $0 ld e, $5 ld a, $47 call Predef pop af ld [CurSpecies], a ; $cf60 ret ; known jump sources: 17276 (5:7276) Function17363: ; 17363 (5:7363) ld [PlayerHPPal], a ; $cd99 ld b, $b ld c, $0 jp GetSGBLayout ; known jump sources: 17322 (5:7322) Function1736d: ; 1736d (5:736d) ld a, [$cf64] dec a and $7 cp $7 ret z srl a ret nc swap a srl a add $4c ld d, a ld e, $58 ld a, $19 call Function3b2a ld hl, $3 add hl, bc ld [hl], $0 ld de, $9e jp PlaySFX ; 17393 (5:7393) INCBIN "baserom.gbc",$17393,$173b3 - $17393 ; known jump sources: 17336 (5:7336) Function173b3: ; 173b3 (5:73b3) callba Function8cf53 ld hl, $73ef .asm_173bc ld a, [hli] cp $ff jr z, .asm_173e5 ld e, a ld a, [hli] ld d, a ld a, [hli] ld c, a ld a, [hli] ld b, a push hl push bc ld a, $1c call Function3b2a ld hl, $3 add hl, bc ld [hl], $0 pop de ld a, e ld hl, $1 add hl, bc add [hl] ld [hl], a ld hl, $b add hl, bc ld [hl], d pop hl jr .asm_173bc .asm_173e5 ld de, $a6 call PlaySFX call Function1727f ret ; 173ef (5:73ef) INCBIN "baserom.gbc",$173ef,$17418 - $173ef ; known jump sources: 17346 (5:7346) Function17418: ; 17418 (5:7418) ld c, $81 .asm_1741a call Function1727f dec c jr nz, .asm_1741a ret Function17421: ; 17421 ld hl, $7467 call PrintText ld a, [BreedMon1Species] call Function37ce ld a, [DaycareLady] bit 0, a jr z, Function1745f call Functionaaf ld hl, BreedMon2Nick call Function1746c jp PrintText Function17440: ; 17440 ld hl, $7462 call PrintText ld a, [BreedMon2Species] call Function37ce ld a, [DaycareMan] bit 0, a jr z, Function1745f call Functionaaf ld hl, BreedMon1Nick call Function1746c jp PrintText Function1745f: ; 1745f jp Functiona80 ; 17462 INCBIN "baserom.gbc",$17462,$1746c - $17462 Function1746c: ; 1746c push bc ld de, StringBuffer1 ld bc, $000b call CopyBytes call Function16e1d pop bc ld a, [$d265] ld hl, $749c cp $ff jr z, .asm_1749b ld hl, $74a1 and a jr z, .asm_1749b ld hl, $74a6 cp $e6 jr nc, .asm_1749b cp $46 ld hl, $74ab jr nc, .asm_1749b ld hl, $74b0 .asm_1749b ret ; 1749c INCBIN "baserom.gbc",$1749c,$174ba - $1749c SECTION "Tileset Data 1", ROMX, BANK[TILESETS_1] INCLUDE "tilesets/data_1.asm" SECTION "Roofs", ROMX, BANK[ROOFS] INCLUDE "tilesets/roofs.asm" SECTION "Tileset Data 2", ROMX, BANK[TILESETS_2] INCLUDE "tilesets/data_2.asm" SECTION "bank8", ROMX, BANK[$8] ; known jump sources: 200e8 (8:40e8), 200f9 (8:40f9), 20169 (8:4169) Function20000: ; 20000 (8:4000) push hl dec a ld e, a ld d, $0 ld hl, $4015 add hl, de add hl, de add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] inc hl ld b, [hl] inc hl ld c, [hl] pop hl ret ; 20015 (8:4015) INCBIN "baserom.gbc",$20015,$20021 - $20015 ; no known jump sources Function20021: ; 20021 (8:4021) ld hl, $4047 call PrintText ld hl, Options ; $cfcc ld a, [hl] push af set 4, [hl] call Function1d6e call ClearTileMap ld hl, $404c call PrintText call Function20051 call Function1c07 pop bc ld hl, Options ; $cfcc ld [hl], b ld c, a ret ; 20047 (8:4047) INCBIN "baserom.gbc",$20047,$20051 - $20047 ; known jump sources: 2003a (8:403a) Function20051: ; 20051 (8:4051) ld a, $1 ld [Buffer1], a ; $d1ea (aliases: MagikarpLength) ld [Buffer2], a ; $d1eb (aliases: MovementType) ld a, $8 ld [$d1ec], a call UpdateTime call GetWeekday ld [$d1ed], a ld a, [hHours] ; $ff00+$94 ld [$d1ee], a ld a, [hMinutes] ; $ff00+$96 ld [$d1ef], a .asm_20071 call Function200ba jr nc, .asm_20071 and a ret nz call Function2011f ld hl, $40b0 call PrintText call YesNoBox jr c, .asm_200ad ld a, [$d1ed] ld [StringBuffer2], a ; $d086 ld a, [$d1ee] ld [$d087], a ld a, [$d1ef] ld [$d088], a xor a ld [$d089], a call Function677 call Function2011f ld hl, $40b5 call PrintText call Functiona80 xor a ret .asm_200ad ld a, $1 ret ; 200b0 (8:40b0) INCBIN "baserom.gbc",$200b0,$200ba - $200b0 ; known jump sources: 20071 (8:4071), 200db (8:40db) Function200ba: ; 200ba (8:40ba) call Function354b ld c, a push af call Function2011f pop af bit 0, a jr nz, .asm_200dd bit 1, a jr nz, .asm_200e1 bit 6, a jr nz, .asm_200e5 bit 7, a jr nz, .asm_200f6 bit 5, a jr nz, .asm_20108 bit 4, a jr nz, .asm_20112 jr Function200ba .asm_200dd ld a, $0 scf ret .asm_200e1 ld a, $1 scf ret .asm_200e5 ld a, [Buffer1] ; $d1ea (aliases: MagikarpLength) call Function20000 ld a, [de] inc a ld [de], a cp b jr c, .asm_2011d ld a, $0 ld [de], a jr .asm_2011d .asm_200f6 ld a, [Buffer1] ; $d1ea (aliases: MagikarpLength) call Function20000 ld a, [de] dec a ld [de], a cp $ff jr nz, .asm_2011d ld a, b dec a ld [de], a jr .asm_2011d .asm_20108 ld hl, Buffer1 ; $d1ea (aliases: MagikarpLength) dec [hl] jr nz, .asm_2011d ld [hl], $3 jr .asm_2011d .asm_20112 ld hl, Buffer1 ; $d1ea (aliases: MagikarpLength) inc [hl] ld a, [hl] cp $4 jr c, .asm_2011d ld [hl], $1 .asm_2011d xor a ret ; known jump sources: 20078 (8:4078), 2009f (8:409f), 200bf (8:40bf) Function2011f: ; 2011f (8:411f) ld hl, $c504 ld b, $5 ld c, $12 call TextBox ld de, $c541 ld a, [$d1ed] ld b, a callba Function5b05 ld a, [$d1ee] ld b, a ld a, [$d1ef] ld c, a ld de, $c54b callba Function1dd6bb ld a, [Buffer2] ; $d1eb (aliases: MovementType) ld de, $7f7f call Function20168 ld a, [Buffer1] ; $d1ea (aliases: MagikarpLength) ld de, $61ee call Function20168 ld a, [Buffer1] ; $d1ea (aliases: MagikarpLength) ld [Buffer2], a ; $d1eb (aliases: MovementType) ret ; 20160 (8:4160) INCBIN "baserom.gbc",$20160,$20168 - $20160 ; known jump sources: 2014d (8:414d), 20156 (8:4156) Function20168: ; 20168 (8:4168) push de call Function20000 ld a, [$d1ec] dec a ld b, a call GetTileCoord pop de ld [hl], d ld bc, $28 add hl, bc ld [hl], e ret ; 2017c (8:417c) INCBIN "baserom.gbc",$2017c,$20181 - $2017c SECTION "Tileset Data 3", ROMX, BANK[TILESETS_3] INCLUDE "tilesets/data_3.asm" SECTION "bank9", ROMX, BANK[$9] INCBIN "baserom.gbc",$24000,$2400e - $24000 Function2400e: ; 2400e ld hl, Function1c66 ld a, [$cf94] rst FarCall call Function24085 call Function1ad2 call Function321c call Function2408f ret ; 24022 Function24022: ; 24022 ld hl, Function1c66 ld a, [$cf94] rst FarCall call Function24085 callba MobileTextBorder call Function1ad2 call Function321c call Function2408f ret ; 2403c Function2403c: ; 2403c ld hl, Function1c66 ld a, [$cf94] rst FarCall call Function24085 callba MobileTextBorder call Function1ad2 call Function321c call Function2411a ld hl, $cfa5 set 7, [hl] .asm_2405a call DelayFrame callba Function10032e ld a, [$cd2b] and a jr nz, .asm_24076 call Function241ba ld a, [$cfa8] and c jr z, .asm_2405a call Function24098 ret .asm_24076 ld a, [$cfa4] ld c, a ld a, [$cfa3] call SimpleMultiply ld [$cf88], a and a ret ; 24085 Function24085: ; 24085 xor a ld [hBGMapMode], a call Function1cbb call Function240db ret ; 2408f Function2408f: ; 2408f call Function2411a call Function1bc9 call Function1ff8 Function24098: ; 24098 ld a, [$cf91] bit 1, a jr z, .asm_240a6 call Function1bdd bit 2, a jr nz, .asm_240c9 .asm_240a6 ld a, [$cf91] bit 0, a jr nz, .asm_240b4 call Function1bdd bit 1, a jr nz, .asm_240cb .asm_240b4 ld a, [$cfa4] ld c, a ld a, [$cfa9] dec a call SimpleMultiply ld c, a ld a, [$cfaa] add c ld [$cf88], a and a ret .asm_240c9 scf ret .asm_240cb scf ret ; 240cd Function240cd: ; 240cd ld a, [$cf92] and $f ret ; 240d3 Function240d3: ; 240d3 ld a, [$cf92] swap a and $f ret ; 240db Function240db: ; 240db ld hl, $cf95 ld e, [hl] inc hl ld d, [hl] call Function1cc6 call GetTileCoord call Function240d3 ld b, a .asm_240eb push bc push hl call Function240cd ld c, a .asm_240f1 push bc ld a, [$cf94] call Function201c inc de ld a, [$cf93] ld c, a ld b, $0 add hl, bc pop bc dec c jr nz, .asm_240f1 pop hl ld bc, $0028 add hl, bc pop bc dec b jr nz, .asm_240eb ld hl, $cf98 ld a, [hli] ld h, [hl] ld l, a or h ret z ld a, [$cf97] rst FarCall ret ; 2411a ; known jump sources: 2408f (9:408f) Function2411a: ; 2411a (9:411a) call Function1cc6 ld a, b ld [$cfa1], a dec c ld a, c ld [$cfa2], a call Function240d3 ld [$cfa3], a call Function240cd ld [$cfa4], a call Function24179 call Function2418a call Function24193 ld a, [$cfa4] ld e, a ld a, [$cf88] ld b, a xor a ld d, $0 .asm_24146 inc d add e cp b jr c, .asm_24146 sub e ld c, a ld a, b sub c and a jr z, .asm_24157 cp e jr z, .asm_24159 jr c, .asm_24159 .asm_24157 ld a, $1 .asm_24159 ld [$cfaa], a ld a, [$cfa3] ld e, a ld a, d and a jr z, .asm_24169 cp e jr z, .asm_2416b jr c, .asm_2416b .asm_24169 ld a, $1 .asm_2416b ld [$cfa9], a xor a ld [$cfab], a ld [$cfac], a ld [$cfad], a ret ; 24179 Function24179: ; 24179 xor a ld hl, $cfa5 ld [hli], a ld [hld], a ld a, [$cf91] bit 5, a ret z set 5, [hl] set 4, [hl] ret ; 2418a Function2418a: ; 2418a ld a, [$cf93] or $20 ld [$cfa7], a ret ; 24193 Function24193: ; 24193 ld hl, $cf91 ld a, $1 bit 0, [hl] jr nz, .asm_2419e or $2 .asm_2419e bit 1, [hl] jr z, .asm_241a4 or $4 .asm_241a4 ld [$cfa8], a ret ; 241a8 Function241a8: ; 241a8 call asm_24329 Function241ab: ; 241ab ld hl, $cfa6 res 7, [hl] ld a, [hBGMapMode] push af call Function24216 pop af ld [hBGMapMode], a ret ; 241ba Function241ba: ; 241ba ld hl, $cfa6 res 7, [hl] ld a, [hBGMapMode] push af call Function2431a call Function24249 jr nc, .asm_241cd call Function24270 .asm_241cd pop af ld [hBGMapMode], a call Function1bdd ld c, a ret ; 241d5 INCBIN "baserom.gbc",$241d5,$24216 - $241d5 Function24216: ; 24216 .asm_24216 call Function2431a call Function24238 call Function24249 jr nc, .asm_24237 call Function24270 jr c, .asm_24237 ld a, [$cfa5] bit 7, a jr nz, .asm_24237 call Function1bdd ld b, a ld a, [$cfa8] and b jr z, .asm_24216 .asm_24237 ret ; 24238 Function24238: ; 24238 ld a, [hOAMUpdate] push af ld a, $1 ld [hOAMUpdate], a call WaitBGMap pop af ld [hOAMUpdate], a xor a ld [hBGMapMode], a ret ; 24249 Function24249: ; 24249 .asm_24249 call RTC call Function24259 ret c ld a, [$cfa5] bit 7, a jr z, .asm_24249 and a ret ; 24259 Function24259: ; 24259 ld a, [$cfa5] bit 6, a jr z, .asm_24266 callab Function8cf62 .asm_24266 call Functiona57 call Function1bdd and a ret z scf ret ; 24270 Function24270: ; 24270 call Function1bdd bit 0, a jp nz, Function24318 bit 1, a jp nz, Function24318 bit 2, a jp nz, Function24318 bit 3, a jp nz, Function24318 bit 4, a jr nz, .asm_242fa bit 5, a jr nz, .asm_242dc bit 6, a jr nz, .asm_242be bit 7, a jr nz, .asm_242a0 and a ret .asm_24299: ; 24299 ld hl, $cfa6 set 7, [hl] scf ret .asm_242a0 ld hl, $cfa9 ld a, [$cfa3] cp [hl] jr z, .asm_242ac inc [hl] xor a ret .asm_242ac ld a, [$cfa5] bit 5, a jr nz, .asm_242ba bit 3, a jp nz, .asm_24299 xor a ret .asm_242ba ld [hl], $1 xor a ret .asm_242be ld hl, $cfa9 ld a, [hl] dec a jr z, .asm_242c8 ld [hl], a xor a ret .asm_242c8 ld a, [$cfa5] bit 5, a jr nz, .asm_242d6 bit 2, a jp nz, .asm_24299 xor a ret .asm_242d6 ld a, [$cfa3] ld [hl], a xor a ret .asm_242dc ld hl, $cfaa ld a, [hl] dec a jr z, .asm_242e6 ld [hl], a xor a ret .asm_242e6 ld a, [$cfa5] bit 4, a jr nz, .asm_242f4 bit 1, a jp nz, .asm_24299 xor a ret .asm_242f4 ld a, [$cfa4] ld [hl], a xor a ret .asm_242fa ld hl, $cfaa ld a, [$cfa4] cp [hl] jr z, .asm_24306 inc [hl] xor a ret .asm_24306 ld a, [$cfa5] bit 4, a jr nz, .asm_24314 bit 0, a jp nz, .asm_24299 xor a ret .asm_24314 ld [hl], $1 xor a ret ; 24318 Function24318: ; 24318 xor a ret ; 2431a Function2431a: ; 2431a ld hl, $cfac ld a, [hli] ld h, [hl] ld l, a ld a, [hl] cp $ed jr nz, asm_24329 ld a, [$cfab] ld [hl], a asm_24329 ld a, [$cfa1] ld b, a ld a, [$cfa2] ld c, a call GetTileCoord ld a, [$cfa7] swap a and $f ld c, a ld a, [$cfa9] ld b, a xor a dec b jr z, .asm_24348 .asm_24344 add c dec b jr nz, .asm_24344 .asm_24348 ld c, $14 call AddNTimes ld a, [$cfa7] and $f ld c, a ld a, [$cfaa] ld b, a xor a dec b jr z, .asm_2435f .asm_2435b add c dec b jr nz, .asm_2435b .asm_2435f ld c, a add hl, bc ld a, [hl] cp $ed jr z, .asm_2436b ld [$cfab], a ld [hl], $ed .asm_2436b ld a, l ld [$cfac], a ld a, h ld [$cfad], a ret ; 24374 Function24374: ; 24374 ld a, [rSVBK] push af ld a, $7 ld [rSVBK], a ld hl, $cf71 ld e, [hl] inc hl ld d, [hl] push de ld b, $10 ld hl, $cf81 .asm_24387 ld a, [hli] ld [de], a dec de dec b jr nz, .asm_24387 ld a, [$cf81] bit 6, a jr nz, .asm_24398 bit 7, a jr z, .asm_243ae .asm_24398 ld hl, $cf71 ld a, [hli] ld h, [hl] ld l, a set 0, [hl] call Function1cfd call Function243cd call Function1d19 call Function243cd jr .asm_243b5 .asm_243ae pop hl push hl ld a, [hld] ld l, [hl] ld h, a res 0, [hl] .asm_243b5 pop hl call Function243e7 ld a, h ld [de], a dec de ld a, l ld [de], a dec de ld hl, $cf71 ld [hl], e inc hl ld [hl], d pop af ld [rSVBK], a ld hl, $cf78 inc [hl] ret ; 243cd Function243cd: ; 243cd call Function1c53 inc b inc c call Function243e7 .asm_243d5 push bc push hl .asm_243d7 ld a, [hli] ld [de], a dec de dec c jr nz, .asm_243d7 pop hl ld bc, $0014 add hl, bc pop bc dec b jr nz, .asm_243d5 ret ; 243e7 Function243e7: ; 243e7 ret ; 243e8 Function243e8: ; 243e8 xor a ld [hBGMapMode], a ld a, [rSVBK] push af ld a, $7 ld [rSVBK], a call Function1c7e ld a, l or h jp z, Function2445d ld a, l ld [$cf71], a ld a, h ld [$cf72], a call Function1c47 ld a, [$cf81] bit 0, a jr z, .asm_24411 ld d, h ld e, l call Function1c23 .asm_24411 call Function1c7e ld a, h or l jr z, .asm_2441b call Function1c47 .asm_2441b pop af ld [rSVBK], a ld hl, $cf78 dec [hl] ret ; 24423 INCBIN "baserom.gbc",$24423,$24426 - $24423 Function24426: ; 24426 bit 0, a ret z xor a call GetSRAMBank ld hl, TileMap ld de, $a000 ld bc, $0168 call CopyBytes call CloseSRAM call Function2173 xor a call GetSRAMBank ld hl, $a000 ld de, TileMap ld bc, $0168 .asm_2444c ld a, [hl] cp $61 jr c, .asm_24452 ld [de], a .asm_24452 inc hl inc de dec bc ld a, c or b jr nz, .asm_2444c call CloseSRAM ret ; 2445d Function2445d: ; 2445d ld hl, UnknownText_0x24468 call PrintText call WaitBGMap .asm_24466 jr .asm_24466 ; 24468 UnknownText_0x24468: ; 24468 text_jump UnknownText_0x1c46b7 db "@" ; 2446d Function2446d: ; 2446d ld a, [$cf91] ld b, a ld hl, $cfa1 ld a, [$cf82] inc a bit 6, b jr nz, .asm_2447d inc a .asm_2447d ld [hli], a ld a, [$cf83] inc a ld [hli], a ld a, [$cf92] ld [hli], a ld a, $1 ld [hli], a ld [hl], $0 bit 5, b jr z, .asm_24492 set 5, [hl] .asm_24492 ld a, [$cf81] bit 4, a jr z, .asm_2449b set 6, [hl] .asm_2449b inc hl xor a ld [hli], a ld a, $20 ld [hli], a ld a, $1 bit 0, b jr nz, .asm_244a9 add $2 .asm_244a9 ld [hli], a ld a, [$cf88] and a jr z, .asm_244b7 ld c, a ld a, [$cf92] cp c jr nc, .asm_244b9 .asm_244b7 ld c, $1 .asm_244b9 ld [hl], c inc hl ld a, $1 ld [hli], a xor a ld [hli], a ld [hli], a ld [hli], a ret ; 244c3 Function244c3: ; 0x244c3 ld a, [MenuSelection] ld [CurSpecies], a hlcoord 0, 12 ld b, $4 ld c, $12 call TextBox ld a, [MenuSelection] cp $ff ret z ld de, $c5b9 callba GetItemDescription ret ; 0x244e3 Function244e3: ; 244e3 ld hl, $4547 call Function1d3c call Function1cbb call Function1ad2 call Function321c ld b, $12 call GetSGBLayout xor a ld [hBGMapMode], a ld a, [CurPartySpecies] ld [CurSpecies], a call GetBaseData ld de, VTiles1 ld a, $3c call Predef ld a, [$cf82] inc a ld b, a ld a, [$cf83] inc a ld c, a call GetTileCoord ld a, $80 ld [$ffad], a ld bc, $0707 ld a, $13 call Predef call WaitBGMap ret ; 24528 Function24528: ; 24528 ld hl, $4547 call Function1d3c call Function1ce1 call WaitBGMap call ClearSGB xor a ld [hBGMapMode], a call Function2173 call Function321c call Function1ad2 call Functione51 ret ; 24547 INCBIN "baserom.gbc",$24547,$2454f - $24547 Function2454f: ; 2454f ld hl, $d81e xor a ld bc, $10 call ByteFill nop ld bc, MapObjects ; $d71e ld de, $d81e xor a .asm_24561 push af push bc push de call Function245a7 jr c, .asm_2456c call Function2457d .asm_2456c pop de ld [de], a inc de pop bc ld hl, $10 add hl, bc ld b, h ld c, l pop af inc a cp $10 jr nz, .asm_24561 ret ; known jump sources: 24569 (9:4569) Function2457d: ; 2457d (9:457d) ld hl, $1 add hl, bc ld a, [hl] and a jr z, .asm_245a3 ld hl, $c add hl, bc ld a, [hli] ld e, a ld a, [hl] ld d, a cp $ff jr nz, .asm_24598 ld a, e cp $ff jr z, .asm_245a1 jr .asm_245a3 .asm_24598 ld b, $2 call EventFlagAction ld a, c and a jr nz, .asm_245a3 .asm_245a1 xor a ret .asm_245a3 ld a, $ff scf ret ; known jump sources: 24564 (9:4564) Function245a7: ; 245a7 (9:45a7) call Function18f5 ld a, $ff ret c xor a ret Function245af: ; 245af xor a ld [$cf73], a ld [hBGMapMode], a inc a ld [$ffaa], a call Function2471a call Function24764 call Function247dd call Function245f1 call Function321c xor a ld [hBGMapMode], a ret ; 245cb Function245cb: ; 245cb .asm_245cb call Function24609 jp c, Function245d6 call z, Function245e1 jr .asm_245cb ; 245d6 Function245d6: ; 245d6 call Function1ff8 ld [$cf73], a ld a, $0 ld [$ffaa], a ret ; 245e1 Function245e1: ; 245e1 call Function245f1 ld a, $1 ld [hBGMapMode], a ld c, $3 call DelayFrames xor a ld [hBGMapMode], a ret ; 245f1 Function245f1: ; 245f1 xor a ld [hBGMapMode], a ld hl, Options ld a, [hl] push af set 4, [hl] call Function247f0 call Function2488b call Function248b8 pop af ld [Options], a ret ; 24609 Function24609: ; 24609 .asm_24609 call Function1bd3 ld a, [$ffa9] and $f0 ld b, a ld a, [hJoyPressed] and $f or b bit 0, a jp nz, .asm_24644 bit 1, a jp nz, .asm_2466f bit 2, a jp nz, Function24673 bit 3, a jp nz, Function24695 bit 4, a jp nz, Function246b5 bit 5, a jp nz, Function246a1 bit 6, a jp nz, Function246c9 bit 7, a jp nz, Function246df jr .asm_24609 ; 24640 INCBIN "baserom.gbc",$24640,$24644 - $24640 .asm_24644: ; 24644 call Function1bee ld a, [$cfa9] dec a call Function248d5 ld a, [MenuSelection] ld [CurItem], a ld a, [$cf75] ld [$d10d], a call Function246fc dec a ld [$cf77], a ld [$d107], a ld a, [MenuSelection] cp $ff jr z, .asm_2466f ld a, $1 scf ret .asm_2466f ld a, $2 scf ret ; 24673 Function24673: ; 24673 ld a, [$cf91] bit 7, a jp z, Function2ec8 ld a, [$cfa9] dec a call Function248d5 ld a, [MenuSelection] cp $ff jp z, Function2ec8 call Function246fc dec a ld [$cf77], a ld a, $4 scf ret ; 24695 Function24695: ; 24695 ld a, [$cf91] bit 6, a jp z, Function2ec8 ld a, $8 scf ret ; 246a1 Function246a1: ; 246a1 ld hl, $cfa6 bit 7, [hl] jp z, Function2ec8 ld a, [$cf91] bit 3, a jp z, Function2ec8 ld a, $20 scf ret ; 246b5 Function246b5: ; 246b5 ld hl, $cfa6 bit 7, [hl] jp z, Function2ec8 ld a, [$cf91] bit 2, a jp z, Function2ec8 ld a, $10 scf ret ; 246c9 Function246c9: ; 246c9 ld hl, $cfa6 bit 7, [hl] jp z, Function2ec6 ld hl, $d0e4 ld a, [hl] and a jr z, .asm_246dc dec [hl] jp Function2ec6 .asm_246dc jp Function2ec8 ; 246df Function246df: ; 246df ld hl, $cfa6 bit 7, [hl] jp z, Function2ec6 ld hl, $d0e4 ld a, [$cf92] add [hl] ld b, a ld a, [$d144] cp b jr c, .asm_246f9 inc [hl] jp Function2ec6 .asm_246f9 jp Function2ec8 ; 246fc Function246fc: ; 246fc ld a, [$d0e4] ld c, a ld a, [$cfa9] add c ld c, a ret ; 24706 Function24706: ; 24706 (9:4706) call Function1cfd ld de, $14 add hl, de ld de, $28 ld a, [$cf92] .asm_24713 ld [hl], $7f add hl, de dec a jr nz, .asm_24713 ret Function2471a: ; 2471a ld hl, $cf96 ld a, [hli] ld h, [hl] ld l, a ld a, [$cf95] call GetFarByte ld [$d144], a ld a, [$cf92] ld c, a ld a, [$d0e4] add c ld c, a ld a, [$d144] inc a cp c jr nc, .asm_24748 ld a, [$cf92] ld c, a ld a, [$d144] inc a sub c jr nc, .asm_24745 xor a .asm_24745 ld [$d0e4], a .asm_24748 ld a, [$d0e4] ld c, a ld a, [$cf88] add c ld b, a ld a, [$d144] inc a cp b jr c, .asm_2475a jr nc, .asm_24763 .asm_2475a xor a ld [$d0e4], a ld a, $1 ld [$cf88], a .asm_24763 ret ; 24764 Function24764: ; 24764 ld a, [$cf91] ld c, a ld a, [$d144] ld b, a ld a, [$cf82] add $1 ld [$cfa1], a ld a, [$cf83] add $0 ld [$cfa2], a ld a, [$cf92] cp b jr c, .asm_24786 jr z, .asm_24786 ld a, b inc a .asm_24786 ld [$cfa3], a ld a, $1 ld [$cfa4], a ld a, $8c bit 2, c jr z, .asm_24796 set 0, a .asm_24796 bit 3, c jr z, .asm_2479c set 1, a .asm_2479c ld [$cfa5], a xor a ld [$cfa6], a ld a, $20 ld [$cfa7], a ld a, $c3 bit 7, c jr z, .asm_247b0 add $4 .asm_247b0 bit 6, c jr z, .asm_247b6 add $8 .asm_247b6 ld [$cfa8], a ld a, [$cfa3] ld b, a ld a, [$cf88] and a jr z, .asm_247c8 cp b jr z, .asm_247ca jr c, .asm_247ca .asm_247c8 ld a, $1 .asm_247ca ld [$cfa9], a ld a, $1 ld [$cfaa], a xor a ld [$cfac], a ld [$cfad], a ld [$cfab], a ret ; 247dd Function247dd: ; 247dd ld a, [$d144] ld c, a ld a, [$d0e3] and a jr z, .asm_247ef dec a cp c jr c, .asm_247ef xor a ld [$d0e3], a .asm_247ef ret ; 247f0 Function247f0: ; 247f0 call Function1cf1 ld a, [$cf91] bit 4, a jr z, .asm_2480d ld a, [$d0e4] and a jr z, .asm_2480d ld a, [$cf82] ld b, a ld a, [$cf85] ld c, a call GetTileCoord ld [hl], $61 .asm_2480d call Function1cfd ld bc, $0015 add hl, bc ld a, [$cf92] ld b, a ld c, $0 .asm_2481a ld a, [$d0e4] add c ld [$cf77], a ld a, c call Function248d5 ld a, [MenuSelection] cp $ff jr z, .asm_24851 push bc push hl call Function2486e pop hl ld bc, $0028 add hl, bc pop bc inc c ld a, c cp b jr nz, .asm_2481a ld a, [$cf91] bit 4, a jr z, .asm_24850 ld a, [$cf84] ld b, a ld a, [$cf85] ld c, a call GetTileCoord ld [hl], $ee .asm_24850 ret .asm_24851 ld a, [$cf91] bit 0, a jr nz, .asm_24866 ld de, .data_2485f call PlaceString ret .data_2485f db $82 db $80 db $8d db $82 db $84 db $8b db $50 .asm_24866 ld d, h ld e, l ld hl, $cf98 jp CallPointerAt ; 2486e Function2486e: ; 2486e push hl ld d, h ld e, l ld hl, $cf98 call CallPointerAt pop hl ld a, [$cf93] and a jr z, .asm_2488a ld e, a ld d, $0 add hl, de ld d, h ld e, l ld hl, $cf9b call CallPointerAt .asm_2488a ret ; 2488b Function2488b: ; 2488b ld a, [$d0e3] and a jr z, .asm_248b7 ld b, a ld a, [$d0e4] cp b jr nc, .asm_248b7 ld c, a ld a, [$cf92] add c cp b jr c, .asm_248b7 ld a, b sub c dec a add a add $1 ld c, a ld a, [$cf82] add c ld b, a ld a, [$cf83] add $0 ld c, a call GetTileCoord ld [hl], $ec .asm_248b7 ret ; 248b8 Function248b8: ; 248b8 ld a, [$cf91] bit 5, a ret z bit 1, a jr z, .asm_248c7 ld a, [$d0e3] and a ret nz .asm_248c7 ld a, [$cfa9] dec a call Function248d5 ld hl, $cf9e call CallPointerAt ret ; 248d5 Function248d5: ; 248d5 push de push hl ld e, a ld a, [$d0e4] add e ld e, a ld d, $0 ld hl, $cf96 ld a, [hli] ld h, [hl] ld l, a inc hl ld a, [$cf94] cp $1 jr z, .asm_248f2 cp $2 jr z, .asm_248f1 .asm_248f1 add hl, de .asm_248f2 add hl, de ld a, [$cf95] call GetFarByte ld [MenuSelection], a ld [CurItem], a inc hl ld a, [$cf95] call GetFarByte ld [$cf75], a pop hl pop de ret ; 2490c ; no known jump sources Function2490c: ; 2490c (9:490c) ld a, [$d0e3] and a jr z, .asm_2493d ld b, a ld a, [$cf77] inc a cp b jr z, .asm_24945 ld a, [$cf77] call Function24a5c ld a, [hl] cp $ff ret z ld a, [$d0e3] dec a ld [$d0e3], a call Function249a7 jp c, Function249d1 ld a, [$cf77] ld c, a ld a, [$d0e3] cp c jr c, .asm_2497a jr .asm_2494a .asm_2493d ld a, [$cf77] inc a ld [$d0e3], a ret .asm_24945 xor a ld [$d0e3], a ret .asm_2494a ld a, [$d0e3] call Function24a40 ld a, [$cf77] ld d, a ld a, [$d0e3] ld e, a call Function24a6c push bc ld a, [$d0e3] call Function24a5c dec hl push hl call Function24a80 add hl, bc ld d, h ld e, l pop hl pop bc call Function24aab ld a, [$cf77] call Function24a4d xor a ld [$d0e3], a ret .asm_2497a ld a, [$d0e3] call Function24a40 ld a, [$cf77] ld d, a ld a, [$d0e3] ld e, a call Function24a6c push bc ld a, [$d0e3] call Function24a5c ld d, h ld e, l call Function24a80 add hl, bc pop bc call CopyBytes ld a, [$cf77] call Function24a4d xor a ld [$d0e3], a ret ; known jump sources: 2492b (9:492b) Function249a7: ; 249a7 (9:49a7) ld a, [$d0e3] call Function24a5c ld d, h ld e, l ld a, [$cf77] call Function24a5c ld a, [de] cp [hl] jr nz, .asm_249cd ld a, [$cf77] call Function24a97 cp $63 jr z, .asm_249cd ld a, [$d0e3] call Function24a97 cp $63 jr nz, .asm_249cf .asm_249cd and a ret .asm_249cf scf ret ; known jump sources: 2492e (9:492e) Function249d1: ; 249d1 (9:49d1) ld a, [$d0e3] call Function24a5c inc hl push hl ld a, [$cf77] call Function24a5c inc hl ld a, [hl] pop hl add [hl] cp $64 jr c, .asm_24a01 sub $63 push af ld a, [$cf77] call Function24a5c inc hl ld [hl], $63 ld a, [$d0e3] call Function24a5c inc hl pop af ld [hl], a xor a ld [$d0e3], a ret .asm_24a01 push af ld a, [$cf77] call Function24a5c inc hl pop af ld [hl], a ld hl, $cf96 ld a, [hli] ld h, [hl] ld l, a ld a, [$d0e3] cp [hl] jr nz, .asm_24a25 dec [hl] ld a, [$d0e3] call Function24a5c ld [hl], $ff xor a ld [$d0e3], a ret .asm_24a25 dec [hl] call Function24a80 push bc ld a, [$d0e3] call Function24a5c pop bc push hl add hl, bc pop de .asm_24a34 ld a, [hli] ld [de], a inc de cp $ff jr nz, .asm_24a34 xor a ld [$d0e3], a ret ; known jump sources: 2494d (9:494d), 2497d (9:497d) Function24a40: ; 24a40 (9:4a40) call Function24a5c ld de, DefaultFlypoint ; $d002 call Function24a80 call CopyBytes ret ; known jump sources: 24972 (9:4972), 2499f (9:499f) Function24a4d: ; 24a4d (9:4a4d) call Function24a5c ld d, h ld e, l ld hl, DefaultFlypoint ; $d002 call Function24a80 call CopyBytes ret ; known jump sources: 2491d (9:491d), 2495f (9:495f), 2498f (9:498f), 249aa (9:49aa), 249b2 (9:49b2), 249d4 (9:49d4), 249dc (9:49dc), 249ed (9:49ed), 249f6 (9:49f6), 24a05 (9:4a05), 24a1b (9:4a1b), 24a2d (9:4a2d), 24a40 (9:4a40), 24a4d (9:4a4d), 24aa1 (9:4aa1) Function24a5c: ; 24a5c (9:4a5c) push af call Function24a80 ld hl, $cf96 ld a, [hli] ld h, [hl] ld l, a inc hl pop af call AddNTimes ret ; known jump sources: 24958 (9:4958), 24988 (9:4988) Function24a6c: ; 24a6c (9:4a6c) push hl call Function24a80 ld a, d sub e jr nc, .asm_24a76 dec a cpl .asm_24a76 ld hl, $0 call AddNTimes ld b, h ld c, l pop hl ret ; known jump sources: 24964 (9:4964), 24994 (9:4994), 24a26 (9:4a26), 24a46 (9:4a46), 24a55 (9:4a55), 24a5d (9:4a5d), 24a6d (9:4a6d), 24a98 (9:4a98) Function24a80: ; 24a80 (9:4a80) push hl ld a, [$cf94] ld c, a ld b, $0 ld hl, $4a91 add hl, bc add hl, bc ld c, [hl] inc hl ld b, [hl] pop hl ret ; 24a91 (9:4a91) INCBIN "baserom.gbc",$24a91,$24a97 - $24a91 ; known jump sources: 249bc (9:49bc), 249c6 (9:49c6) Function24a97: ; 24a97 (9:4a97) push af call Function24a80 ld a, c cp $2 jr nz, .asm_24aa7 pop af call Function24a5c inc hl ld a, [hl] ret .asm_24aa7 pop af ld a, $1 ret ; known jump sources: 2496c (9:496c), 24ab1 (9:4ab1) Function24aab: ; 24aab (9:4aab) ld a, [hld] ld [de], a dec de dec bc ld a, b or c jr nz, Function24aab ret Function24ab4: ; 0x24ab4 push de ld a, [MenuSelection] ld [$d265], a call GetItemName pop hl call PlaceString ret ; 0x24ac3 Function24ac3: ; 0x24ac3 push de ld a, [MenuSelection] ld [CurItem], a callba _CheckTossableItem ld a, [$d142] pop hl and a jr nz, .done ld de, $0015 add hl, de ld [hl], $f1 inc hl ld de, $cf75 ld bc, $0102 call PrintNum .done ret ; 0x24ae8 Function24ae8: ; 24ae8 ld hl, $4b15 call Function1d3c jr asm_24b01 Function24af0: ; 24af0 ld hl, $4b1d call Function1d3c jr asm_24b01 Function24af8: ; 24af8 ld hl, $4b15 ld de, $000b call Function1e2e asm_24b01 call Function1cbb call Function1cfd ld de, $0015 add hl, de ld de, Money ld bc, $2306 call PrintNum ret ; 24b15 INCBIN "baserom.gbc",$24b15,$24b25 - $24b15 Function24b25: ; 24b25 ld hl, $c4ab ld b, $1 ld c, $7 call TextBox ld hl, $c4ac ld de, CoinString call PlaceString ld hl, $c4c5 ld de, String24b8e call PlaceString ld de, Coins ld bc, $0204 ld hl, $c4c1 call PrintNum ret ; 24b4e Function24b4e: ; 24b4e ld hl, $c4a5 ld b, $3 ld c, $d call TextBox ld hl, $c4ba ld de, MoneyString call PlaceString ld hl, $c4c0 ld de, Money ld bc, $2306 call PrintNum ld hl, $c4e2 ld de, CoinString call PlaceString ld hl, $c4eb ld de, Coins ld bc, $0204 call PrintNum ret ; 24b83 MoneyString: ; 24b83 db "MONEY@" CoinString: ; 24b89 db "COIN@" String24b8e: ; 24b8e db "@" ; 24b8f Function24b8f: ; 24b8f ld hl, Options ld a, [hl] push af set 4, [hl] ld hl, TileMap ld b, $3 ld c, $7 call TextBox ld hl, $c4b5 ld de, $dc7a ld bc, $0203 call PrintNum ld hl, $c4b8 ld de, String24bcf call PlaceString ld hl, $c4dd ld de, String24bd4 call PlaceString ld hl, $c4e1 ld de, $dc79 ld bc, $0102 call PrintNum pop af ld [Options], a ret ; 24bcf String24bcf: ; 24bcf db "/500@" String24bd4: ; 24bd4 db "ボール こ@" ; 24bdc Function24bdc: ; 24bdc ld hl, TileMap ld b, $5 ld c, $11 call TextBox ret ; 24be7 Function24be7: ; 24be7 ld hl, Options ld a, [hl] push af set 4, [hl] call Function24bdc ld hl, $c505 ld de, String24c52 call PlaceString ld hl, $c50c ld de, $dc79 ld bc, $4102 call PrintNum ld hl, $c4b5 ld de, String24c4b call PlaceString ld a, [$df9c] and a ld de, String24c59 jr z, .asm_24c1e ld [$d265], a call GetPokemonName .asm_24c1e ld hl, $c4bc call PlaceString ld a, [$df9c] and a jr z, .asm_24c3e ld hl, $c4dd ld de, String24c5e call PlaceString ld a, [$dfbb] ld h, b ld l, c inc hl ld c, $3 call Function3842 .asm_24c3e pop af ld [Options], a ret ; 24c43 String24c43: ; 24c43 db "ボール こ@" String24c4b: ; 24c4b db "CAUGHT@" String24c52: ; 24c52 db "BALLS:@" String24c59: ; 24c59 db "None@" String24c5e: ; 24c5e db "LEVEL@" ; 24c64 Function24c64: ; 24c64 ld hl, Buffer1 xor a ld [hli], a dec a ld bc, $000a call ByteFill ld hl, ApricornBalls .asm_24c73 ld a, [hl] cp $ff jr z, .asm_24c8d push hl ld [CurItem], a ld hl, NumItems call CheckItem pop hl jr nc, .asm_24c89 ld a, [hl] call Function24c94 .asm_24c89 inc hl inc hl jr .asm_24c73 .asm_24c8d ld a, [Buffer1] and a ret nz scf ret ; 24c94 Function24c94: ; 24c94 push hl ld hl, Buffer1 inc [hl] ld e, [hl] ld d, 0 add hl, de ld [hl], a pop hl ret ; 24ca0 ApricornBalls: ; 24ca0 db RED_APRICORN, LEVEL_BALL db BLU_APRICORN, LURE_BALL db YLW_APRICORN, MOON_BALL db GRN_APRICORN, FRIEND_BALL db WHT_APRICORN, FAST_BALL db BLK_APRICORN, HEAVY_BALL db PNK_APRICORN, LOVE_BALL db $ff ; 24caf MonMenuOptionStrings: ; 24caf db "STATS@" db "SWITCH@" db "ITEM@" db "CANCEL@" db "MOVE@" db "MAIL@" db "ERROR!@" ; 24cd9 MonMenuOptions: ; 24cd9 ; Moves db 0, 1, CUT db 0, 2, FLY db 0, 3, SURF db 0, 4, STRENGTH db 0, 6, FLASH db 0, 5, WATERFALL db 0, 7, WHIRLPOOL db 0, 8, DIG db 0, 9, TELEPORT db 0, 10, SOFTBOILED db 0, 11, HEADBUTT db 0, 12, ROCK_SMASH db 0, 13, MILK_DRINK db 0, 14, SWEET_SCENT ; Options db 1, 15, 1 ; STATS db 1, 16, 2 ; SWITCH db 1, 17, 3 ; ITEM db 1, 18, 4 ; CANCEL db 1, 19, 5 ; MOVE db 1, 20, 6 ; MAIL db 1, 21, 7 ; ERROR! db $ff ; 24d19 Function24d19: ; 24d19 xor a ld [hBGMapMode], a call Function24dd4 callba Function8ea4a ld hl, MenuDataHeader_0x24d3f call LoadMenuDataHeader call Function24d47 call Function24d91 ld a, 1 ld [hBGMapMode], a call Function24d59 ld [MenuSelection], a call Function1c07 ret ; 24d3f MenuDataHeader_0x24d3f: ; 24d3f db $40 ; tile backup db 00, 06 ; start coords db 17, 19 ; end coords dw $0000 db 1 ; default option ; 24d47 Function24d47: ; 24d47 ld a, [Buffer1] inc a add a ld b, a ld a, [$cf84] sub b inc a ld [$cf82], a call Function1cbb ret ; 24d59 Function24d59: ; 24d59 .asm_24d59 ld a, $a0 ld [$cf91], a ld a, [Buffer1] ld [$cf92], a call Function1c10 ld hl, $cfa5 set 6, [hl] call Function1bc9 ld de, SFX_READ_TEXT_2 call PlaySFX ld a, [hJoyPressed] bit 0, a ; A jr nz, .asm_24d84 bit 1, a ; B jr nz, .asm_24d81 jr .asm_24d59 .asm_24d81 ld a, 18 ; CANCEL ret .asm_24d84 ld a, [$cfa9] dec a ld c, a ld b, 0 ld hl, Buffer2 add hl, bc ld a, [hl] ret ; 24d91 Function24d91: ; 24d91 call Function1cfd ld bc, $002a add hl, bc ld de, Buffer2 .asm_24d9b ld a, [de] inc de cp $ff ret z push de push hl call Function24db0 pop hl call PlaceString ld bc, $0028 add hl, bc pop de jr .asm_24d9b ; 24db0 Function24db0: ; 24db0 ld hl, MonMenuOptions + 1 ld de, $0003 call IsInArray dec hl ld a, [hli] cp $1 jr z, .asm_24dc8 inc hl ld a, [hl] ld [$d265], a call GetMoveName ret .asm_24dc8 inc hl ld a, [hl] dec a ld hl, MonMenuOptionStrings call GetNthString ld d, h ld e, l ret ; 24dd4 Function24dd4: ; 24dd4 call Function24e68 ld a, [CurPartySpecies] cp EGG jr z, .asm_24e3f ld a, [InLinkBattle] and a jr nz, .asm_24e03 ld a, $2 call GetPartyParamLocation ld d, h ld e, l ld c, $4 .asm_24ded push bc push de ld a, [de] and a jr z, .asm_24dfd push hl call Function24e52 pop hl jr nc, .asm_24dfd call Function24e83 .asm_24dfd pop de inc de pop bc dec c jr nz, .asm_24ded .asm_24e03 ld a, $f call Function24e83 ld a, $10 call Function24e83 ld a, $13 call Function24e83 ld a, [InLinkBattle] and a jr nz, .asm_24e2f push hl ld a, $1 call GetPartyParamLocation ld d, [hl] callba ItemIsMail pop hl ld a, $14 jr c, .asm_24e2c ld a, $11 .asm_24e2c call Function24e83 .asm_24e2f ld a, [Buffer1] cp $8 jr z, .asm_24e3b ld a, $12 call Function24e83 .asm_24e3b call Function24e76 ret .asm_24e3f ld a, $f call Function24e83 ld a, $10 call Function24e83 ld a, $12 call Function24e83 call Function24e76 ret ; 24e52 Function24e52: ; 24e52 ld b, a ld hl, MonMenuOptions .asm_24e56 ld a, [hli] cp $ff jr z, .asm_24e67 cp $1 jr z, .asm_24e67 ld d, [hl] inc hl ld a, [hli] cp b jr nz, .asm_24e56 ld a, d scf .asm_24e67 ret ; 24e68 Function24e68: ; 24e68 xor a ld [Buffer1], a ld hl, Buffer2 ld bc, $0009 call ByteFill ret ; 24e76 Function24e76: ; 24e76 ld a, [Buffer1] ld e, a ld d, $0 ld hl, Buffer2 add hl, de ld [hl], $ff ret ; 24e83 Function24e83: ; 24e83 push hl push de push af ld a, [Buffer1] ld e, a inc a ld [Buffer1], a ld d, $0 ld hl, Buffer2 add hl, de pop af ld [hl], a pop de pop hl ret ; 24e99 Function24e99: ; 24e99 ; BattleMonMenu ld hl, MenuDataHeader_0x24ed4 call Function1d3c xor a ld [hBGMapMode], a call Function1cbb call Function1ad2 call Function1c89 call WaitBGMap call Function1c66 ld a, [$cf91] bit 7, a jr z, .asm_24ed0 call Function1c10 ld hl, $cfa5 set 6, [hl] call Function1bc9 ld de, SFX_READ_TEXT_2 call PlaySFX ld a, [hJoyPressed] bit 1, a jr z, .asm_24ed2 ret z .asm_24ed0 scf ret .asm_24ed2 and a ret ; 24ed4 MenuDataHeader_0x24ed4: ; 24ed4 db $00 ; flags db 11, 11 ; start coords db 17, 19 ; end coords dw MenuData2_0x24edc db 1 ; default option ; 24edc MenuData2_0x24edc: ; 24edc db $c0 ; flags db 3 ; items db "SWITCH@" db "STATS@" db "CANCEL@" ; 24ef2 LoadBattleMenuDataHeader: ; 24ef2 ld hl, BattleMenuDataHeader call LoadMenuDataHeader ld a, [$d0d2] ld [$cf88], a call Function2039 ld a, [$cf88] ld [$d0d2], a call Function1c07 ret ; 24f0b Function24f0b: ; 24f0b ; Safari battle menu (untranslated). ld hl, MenuDataHeader_0x24f4e call LoadMenuDataHeader jr Function24f19 ; 24f13 Function24f13: ; 24f13 ; Park battle menu. ld hl, MenuDataHeader_0x24f89 call LoadMenuDataHeader ; 24f19 Function24f19: ; 24f19 ld a, [$d0d2] ld [$cf88], a call Function202a ld a, [$cf88] ld [$d0d2], a call Function1c07 ret ; 24f2c BattleMenuDataHeader: ; 24f2c db $40 ; flags db 12, 08 ; start coords db 17, 19 ; end coords dw MenuData_0x24f34 db 1 ; default option ; 24f34 MenuData_0x24f34: ; 0x24f34 db $81 ; flags dn 2, 2 ; rows, columns db 6 ; spacing dbw BANK(Strings24f3d), Strings24f3d dbw $09, $0000 ; 0x24f3d Strings24f3d: ; 0x24f3d db "FIGHT@" db $4a, "@" db "PACK@" db "RUN@" ; 24f4e MenuDataHeader_0x24f4e: ; 24f4e db $40 ; flags db 12, 00 ; start coords db 17, 19 ; end coords dw MenuData_0x24f56 db 1 ; default option ; 24f56 MenuData_0x24f56: ; 24f56 db $81 ; flags dn 2, 2 ; rows, columns db 11 ; spacing dbw BANK(Strings24f5f), Strings24f5f dbw BANK(Function24f7c), Function24f7c ; 24f5f Strings24f5f: ; 24f5f db "サファりボール× @" ; "SAFARI BALL× @" db "エサをなげる@" ; "THROW BAIT" db "いしをなげる@" ; "THROW ROCK" db "にげる@" ; "RUN" ; 24f7c Function24f7c: ; 24f7c ld hl, $c5b5 ld de, $dc79 ld bc, $8102 call PrintNum ret ; 24f89 MenuDataHeader_0x24f89: ; 24f89 db $40 ; flags db 12, 02 ; start coords db 17, 19 ; end coords dw MenuData_0x24f91 db 1 ; default option ; 24f91 MenuData_0x24f91: ; 24f91 db $81 ; flags dn 2, 2 ; rows, columns db 12 ; spacing dbw BANK(Strings24f9a), Strings24f9a dbw BANK(Function24fb2), Function24fb2 ; 24f9a Strings24f9a: ; 24f9a db "FIGHT@" db $4a, "@" db "PARKBALL× @" db "RUN@" ; 24fb2 Function24fb2: ; 24fb2 ld hl, $c5ed ld de, $dc79 ld bc, $8102 call PrintNum ret ; 24fbf Function24fbf: ; 24fbf ld hl, $50ed call LoadMenuDataHeader call Function24ff9 ret ; 24fc9 Function24fc9: ; 24fc9 callba GetItemPrice Function24fcf: ; 24fcf ld a, d ld [Buffer1], a ld a, e ld [Buffer2], a ld hl, $50f5 call LoadMenuDataHeader call Function24ff9 ret ; 24fe1 Function24fe1: ; 24fe1 callba GetItemPrice ld a, d ld [Buffer1], a ld a, e ld [Buffer2], a ld hl, $50fd call LoadMenuDataHeader call Function24ff9 ret ; 24ff9 Function24ff9: ; 24ff9 ld a, $1 ld [$d10c], a .asm_24ffe call Function25072 call Function2500e jr nc, .asm_24ffe cp $ff jr nz, .asm_2500c scf ret .asm_2500c and a ret ; 2500e Function2500e: ; 2500e call Function354b bit 1, c jr nz, .asm_2502b bit 0, c jr nz, .asm_2502f bit 7, c jr nz, .asm_25033 bit 6, c jr nz, .asm_2503f bit 5, c jr nz, .asm_2504d bit 4, c jr nz, .asm_2505f and a ret .asm_2502b ld a, $ff scf ret .asm_2502f ld a, $0 scf ret .asm_25033 ld hl, $d10c dec [hl] jr nz, .asm_2503d ld a, [$d10d] ld [hl], a .asm_2503d and a ret .asm_2503f ld hl, $d10c inc [hl] ld a, [$d10d] cp [hl] jr nc, .asm_2504b ld [hl], $1 .asm_2504b and a ret .asm_2504d ld a, [$d10c] sub $a jr c, .asm_25058 jr z, .asm_25058 jr .asm_2505a .asm_25058 ld a, $1 .asm_2505a ld [$d10c], a and a ret .asm_2505f ld a, [$d10c] add $a ld b, a ld a, [$d10d] cp b jr nc, .asm_2506c ld b, a .asm_2506c ld a, b ld [$d10c], a and a ret ; 25072 Function25072: ; 25072 call Function1cbb call Function1cfd ld de, $0015 add hl, de ld [hl], $f1 inc hl ld de, $d10c ld bc, $8102 call PrintNum ld a, [$cf86] ld e, a ld a, [$cf87] ld d, a ld a, [$cf8a] call FarCall_de ret ; 25097 Function25097: ; 25097 ret ; 25098 Function25098: ; 25098 call Function250a9 call Function250d1 ret ; 2509f Function2509f: ; 2509f call Function250a9 call Function250c1 call Function250d1 ret ; 250a9 Function250a9: ; 250a9 xor a ld [hMultiplicand], a ld a, [Buffer1] ld [$ffb5], a ld a, [Buffer2] ld [$ffb6], a ld a, [$d10c] ld [hMultiplier], a push hl call Multiply pop hl ret ; 250c1 Function250c1: ; 250c1 push hl ld hl, hMultiplicand ld a, [hl] srl a ld [hli], a ld a, [hl] rra ld [hli], a ld a, [hl] rra ld [hl], a pop hl ret ; 250d1 Function250d1: ; 250d1 push hl ld hl, $ffc3 ld a, [hMultiplicand] ld [hli], a ld a, [$ffb5] ld [hli], a ld a, [$ffb6] ld [hl], a pop hl inc hl ld de, $ffc3 ld bc, $2306 call PrintNum call WaitBGMap ret ; 250ed INCBIN "baserom.gbc",$250ed,$25105 - $250ed Function25105: ; 25105 ld a, [VramState] ; $d0ed push af xor a ld [VramState], a ; $d0ed ld hl, Options ; $cfcc ld a, [hl] push af set 4, [hl] call Function2513b .asm_25117 call UpdateTime call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_25132 ld a, [$FF00+$a9] and $2 jr nz, .asm_25132 call Function2518e call DelayFrame jr .asm_25117 .asm_25132 pop af ld [Options], a ; $cfcc pop af ld [VramState], a ; $d0ed ret ; known jump sources: 25114 (9:5114) Function2513b: ; 2513b (9:513b) call WhiteBGMap call ClearSprites call ClearTileMap call DisableLCD callba Function8833e ld hl, $65c3 ld de, $91c0 ld bc, $10 ld a, $9 call FarCopyBytes ld hl, $5523 ld de, $9290 ld bc, $560 ld a, $9 call FarCopyBytes call Function25299 ld hl, $c540 ld d, $6 call Function253b0 call EnableLCD call WaitBGMap ld b, $15 call GetSGBLayout call Function32f9 call WaitBGMap ld hl, $cf63 xor a ld [hli], a ld [hli], a ld [hli], a ld [hl], a ret ; known jump sources: 2512a (9:512a) Function2518e: ; 2518e (9:518e) ld a, [$cf63] ld e, a ld d, $0 ld hl, $519d add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_2519d: ; 2519d (9:519d) dw Function251b6 dw Function251d7 dw Function251f4 dw Function25221 dw Function2524c dw Function25279 dw Function251b0 ; known jump sources: 251d3 (9:51d3), 2521d (9:521d), 25275 (9:5275) Function251ab: ; 251ab (9:51ab) ld hl, $cf63 inc [hl] ret ; no known jump sources Function251b0: ; 251b0 (9:51b0) ld hl, $cf63 set 7, [hl] ret ; no known jump sources Function251b6: ; 251b6 (9:51b6) call ClearSprites ld hl, $c540 ld d, $6 call Function253b0 call WaitBGMap ld de, $5523 ld hl, $9290 ld bc, $956 call Request2bpp call Function2530a call Function251ab ret ; no known jump sources Function251d7: ; 251d7 (9:51d7) call Function25415 ld hl, $ffa9 ld a, [hl] and $11 jr nz, .asm_251e3 ret .asm_251e3 ld a, $2 ld [$cf63], a ret ; 251e9 (9:51e9) INCBIN "baserom.gbc",$251e9,$251f4 - $251e9 ; no known jump sources Function251f4: ; 251f4 (9:51f4) call ClearSprites ld hl, $c540 ld d, $6 call Function253b0 call WaitBGMap ld de, $5583 ld hl, $9290 ld bc, $956 call Request2bpp ld de, $6043 ld hl, $8000 ld bc, $92c call Request2bpp call Function2536c call Function251ab ret ; no known jump sources Function25221: ; 25221 (9:5221) ld hl, $54c9 call Function25438 ld hl, $ffa9 ld a, [hl] and $1 jr nz, .asm_25246 ld a, [hl] and $20 jr nz, .asm_25235 ret .asm_25235 ld a, $0 ld [$cf63], a ret ; 2523b (9:523b) INCBIN "baserom.gbc",$2523b,$25246 - $2523b .asm_25246 ld a, $6 ld [$cf63], a ret ; no known jump sources Function2524c: ; 2524c (9:524c) call ClearSprites ld hl, $c540 ld d, $6 call Function253b0 call WaitBGMap ld de, $5ae3 ld hl, $9290 ld bc, $956 call Request2bpp ld de, $6303 ld hl, $8000 ld bc, $92c call Request2bpp call Function2536c call Function251ab ret ; no known jump sources Function25279: ; 25279 (9:5279) ld hl, $54c9 call Function25438 ld hl, $ffa9 ld a, [hl] and $20 jr nz, .asm_2528d ld a, [hl] and $10 jr nz, .asm_25293 ret .asm_2528d ld a, $2 ld [$cf63], a ret .asm_25293 ld a, $0 ld [$cf63], a ret ; known jump sources: 25169 (9:5169) Function25299: ; 25299 (9:5299) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld d, $5 call Function253b0 ld hl, $c4ca ld de, $52ec call PlaceString ld hl, $c4f2 ld de, $52f9 call Function253a8 ld hl, $c4cf ld de, PlayerName ; $d47d call PlaceString ld hl, $c4f5 ld de, PlayerID ; $d47b ld bc, $8205 call PrintNum ld hl, $c51f ld de, Money ; $d84e ld bc, $2306 call PrintNum ld hl, $c4dd ld de, $52fc call Function253a8 ld hl, $c4c2 ld bc, $507 xor a ld [$FF00+$ad], a ld a, $13 call Predef ret ; 252ec (9:52ec) INCBIN "baserom.gbc",$252ec,$2530a - $252ec ; known jump sources: 251d0 (9:51d0) Function2530a: ; 2530a (9:530a) ld hl, $c56a ld de, $534c call PlaceString ld hl, $c5d6 ld de, $535c call PlaceString ld hl, PokedexCaught ; $de99 ld b, $20 call CountSetBits ld de, $d265 ld hl, $c577 ld bc, $103 call PrintNum call Function25415 ld hl, $c542 ld de, $5366 call Function253a8 ld a, [StatusFlags] ; $d84c bit 0, a ret nz ld hl, $c555 ld bc, $211 call ClearBox ret ; 2534c (9:534c) INCBIN "baserom.gbc",$2534c,$2536c - $2534c ; known jump sources: 2521a (9:521a), 25272 (9:5272) Function2536c: ; 2536c (9:536c) ld hl, $c542 ld de, $53a2 call Function253a8 ld hl, $c56a ld a, $29 ld c, $4 .asm_2537c call Function253f4 inc hl inc hl inc hl inc hl dec c jr nz, .asm_2537c ld hl, $c5a6 ld a, $51 ld c, $4 .asm_2538d call Function253f4 inc hl inc hl inc hl inc hl dec c jr nz, .asm_2538d xor a ld [$cf64], a ld hl, $54c9 call Function25448 ret ; 253a2 (9:53a2) INCBIN "baserom.gbc",$253a2,$253a8 - $253a2 ; known jump sources: 252b0 (9:52b0), 252da (9:52da), 25339 (9:5339), 25372 (9:5372), 253ae (9:53ae) Function253a8: ; 253a8 (9:53a8) ld a, [de] cp $ff ret z ld [hli], a inc de jr Function253a8 ; known jump sources: 25171 (9:5171), 251be (9:51be), 251fc (9:51fc), 25254 (9:5254), 2529e (9:529e) Function253b0: ; 253b0 (9:53b0) ld e, $14 .asm_253b2 ld a, $23 ld [hli], a dec e jr nz, .asm_253b2 ld a, $23 ld [hli], a ld e, $11 ld a, $7f .asm_253bf ld [hli], a dec e jr nz, .asm_253bf ld a, $1c ld [hli], a ld a, $23 ld [hli], a .asm_253c9 ld a, $23 ld [hli], a ld e, $12 ld a, $7f .asm_253d0 ld [hli], a dec e jr nz, .asm_253d0 ld a, $23 ld [hli], a dec d jr nz, .asm_253c9 ld a, $23 ld [hli], a ld a, $24 ld [hli], a ld e, $11 ld a, $7f .asm_253e4 ld [hli], a dec e jr nz, .asm_253e4 ld a, $23 ld [hli], a ld e, $14 .asm_253ed ld a, $23 ld [hli], a dec e jr nz, .asm_253ed ret ; known jump sources: 2537c (9:537c), 2538d (9:538d) Function253f4: ; 253f4 (9:53f4) push de push hl ld [hli], a inc a ld [hli], a inc a ld [hli], a inc a ld [hli], a inc a ld de, $11 add hl, de ld [hli], a inc a ld [hli], a inc a ld [hli], a inc a ld de, $11 add hl, de ld [hli], a inc a ld [hli], a inc a ld [hli], a inc a pop hl pop de ret ; known jump sources: 251d7 (9:51d7), 25330 (9:5330) Function25415: ; 25415 (9:5415) ld hl, $c59b ld de, GameTimeHours ; $d4c4 ld bc, $204 call PrintNum inc hl ld de, GameTimeMinutes ; $d4c6 ld bc, $8102 call PrintNum ld a, [$FF00+$9b] and $1f ret nz ld hl, $c59f ld a, [hl] xor $51 ld [hl], a ret ; known jump sources: 25224 (9:5224), 2527c (9:527c) Function25438: ; 25438 (9:5438) ld a, [$FF00+$9b] and $7 ret nz ld a, [$cf64] inc a and $7 ld [$cf64], a jr Function25448 ; known jump sources: 2539e (9:539e), 25446 (9:5446) Function25448: ; 25448 (9:5448) ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [de] ld c, a ld de, Sprites ; $c400 ld b, $8 .asm_25453 srl c push bc jr nc, .asm_25472 push hl ld a, [hli] ld b, a ld a, [hli] ld c, a ld a, [hli] ld [$cf66], a ld a, [$cf64] add l ld l, a ld a, $0 adc h ld h, a ld a, [hl] ld [$cf65], a call Function2547b pop hl .asm_25472 ld bc, $b add hl, bc pop bc dec b jr nz, .asm_25453 ret ; known jump sources: 2546e (9:546e) Function2547b: ; 2547b (9:547b) ld a, [$cf65] and $80 jr nz, .asm_25487 ld hl, $54a7 jr .asm_2548a .asm_25487 ld hl, $54b8 .asm_2548a ld a, [hli] cp $ff ret z add b ld [de], a inc de ld a, [hli] add c ld [de], a inc de ld a, [$cf65] and $7f add [hl] ld [de], a inc hl inc de ld a, [$cf66] add [hl] ld [de], a inc hl inc de jr .asm_2548a ; 254a7 (9:54a7) INCBIN "baserom.gbc",$254a7,$265d3 - $254a7 ProfOaksPC: ; 0x265d3 ld hl, OakPCText1 call Function1d4f call YesNoBox jr c, .shutdown call ProfOaksPCBoot ; player chose "yes"? .shutdown ld hl, OakPCText4 call PrintText call Functiona36 call Function1c07 ret ; 0x265ee ProfOaksPCBoot ; 0x265ee ld hl, OakPCText2 call PrintText call Rate call PlaySFX ; sfx loaded by previous Rate function call call Functiona36 call WaitSFX ret ; 0x26601 Function26601: ; 0x26601 call Rate push de ld de, MUSIC_NONE call PlayMusic pop de call PlaySFX call Functiona36 call WaitSFX ret ; 0x26616 Rate: ; 0x26616 ; calculate Seen/Owned ld hl, PokedexSeen ld b, EndPokedexSeen - PokedexSeen call CountSetBits ld [DefaultFlypoint], a ld hl, PokedexCaught ld b, EndPokedexCaught - PokedexCaught call CountSetBits ld [$d003], a ; print appropriate rating call ClearOakRatingBuffers ld hl, OakPCText3 call PrintText call Functiona36 ld a, [$d003] ld hl, OakRatings call FindOakRating push de call PrintText pop de ret ; 0x26647 ClearOakRatingBuffers: ; 0x26647 ld hl, StringBuffer3 ld de, DefaultFlypoint call ClearOakRatingBuffer ld hl, StringBuffer4 ld de, $d003 call ClearOakRatingBuffer ret ; 0x2665a ClearOakRatingBuffer: ; 0x2665a push hl ld a, "@" ld bc, $000d call ByteFill pop hl ld bc, $4103 call PrintNum ret ; 0x2666b FindOakRating: ; 0x2666b ; return sound effect in de ; return text pointer in hl nop ld c, a .loop ld a, [hli] cp c jr nc, .match inc hl inc hl inc hl inc hl jr .loop .match ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] ld h, [hl] ld l, a ret ; 0x2667f OakRatings: ; 0x2667f ; db count (if number caught ≤ this number, then this entry is used) ; dw sound effect ; dw text pointer db 9 dw SFX_DEX_FANFARE_LESS_THAN_20 dw OakRating01 db 19 dw SFX_DEX_FANFARE_LESS_THAN_20 dw OakRating02 db 34 dw SFX_DEX_FANFARE_20_49 dw OakRating03 db 49 dw SFX_DEX_FANFARE_20_49 dw OakRating04 db 64 dw SFX_DEX_FANFARE_50_79 dw OakRating05 db 79 dw SFX_DEX_FANFARE_50_79 dw OakRating06 db 94 dw SFX_DEX_FANFARE_80_109 dw OakRating07 db 109 dw SFX_DEX_FANFARE_80_109 dw OakRating08 db 124 dw SFX_CAUGHT_MON dw OakRating09 db 139 dw SFX_CAUGHT_MON dw OakRating10 db 154 dw SFX_DEX_FANFARE_140_169 dw OakRating11 db 169 dw SFX_DEX_FANFARE_140_169 dw OakRating12 db 184 dw SFX_DEX_FANFARE_170_199 dw OakRating13 db 199 dw SFX_DEX_FANFARE_170_199 dw OakRating14 db 214 dw SFX_DEX_FANFARE_200_229 dw OakRating15 db 229 dw SFX_DEX_FANFARE_200_229 dw OakRating16 db 239 dw SFX_DEX_FANFARE_230_PLUS dw OakRating17 db 248 dw SFX_DEX_FANFARE_230_PLUS dw OakRating18 db 255 dw SFX_DEX_FANFARE_230_PLUS dw OakRating19 OakPCText1: ; 0x266de TX_FAR _OakPCText1 db "@" OakPCText2: ; 0x266e3 TX_FAR _OakPCText2 db "@" OakPCText3: ; 0x266e8 TX_FAR _OakPCText3 db "@" OakRating01: TX_FAR _OakRating01 db "@" OakRating02: TX_FAR _OakRating02 db "@" OakRating03: TX_FAR _OakRating03 db "@" OakRating04: TX_FAR _OakRating04 db "@" OakRating05: TX_FAR _OakRating05 db "@" OakRating06: TX_FAR _OakRating06 db "@" OakRating07: TX_FAR _OakRating07 db "@" OakRating08: TX_FAR _OakRating08 db "@" OakRating09: TX_FAR _OakRating09 db "@" OakRating10: TX_FAR _OakRating10 db "@" OakRating11: TX_FAR _OakRating11 db "@" OakRating12: TX_FAR _OakRating12 db "@" OakRating13: TX_FAR _OakRating13 db "@" OakRating14: TX_FAR _OakRating14 db "@" OakRating15: TX_FAR _OakRating15 db "@" OakRating16: TX_FAR _OakRating16 db "@" OakRating17: TX_FAR _OakRating17 db "@" OakRating18: TX_FAR _OakRating18 db "@" OakRating19: TX_FAR _OakRating19 db "@" OakPCText4: ; 0x2674c TX_FAR _OakPCText4 db "@" ; no known jump sources Function26751: ; 26751 (9:6751) ld a, $2 ld [$dc0f], a ld a, $10 ld [$dc12], a ret _KrisDecorationMenu: ; 0x2675c ld a, [$cf76] push af ld hl, $679a call LoadMenuDataHeader xor a ld [$d1ee], a ld a, $1 ld [$d1ef], a .asm_2676f ld a, [$d1ef] ld [$cf88], a call Function26806 call Function1e5d ld a, [$cfa9] ld [$d1ef], a jr c, .asm_2678e ld a, [MenuSelection] ld hl, $67aa call Function1fa7 jr nc, .asm_2676f .asm_2678e call Function1c07 pop af ld [$cf76], a ld a, [$d1ee] ld c, a ret ; 0x2679a INCBIN "baserom.gbc",$2679a,$26806 - $2679a Function26806: ; 26806 xor a ld [$cf76], a call Function26822 call Function2683a ld a, $7 call Function26830 ld hl, StringBuffer2 ; $d086 ld de, DefaultFlypoint ; $d002 ld bc, $d call CopyBytes ret ; known jump sources: 2680a (9:680a) Function26822: ; 26822 (9:6822) ld hl, StringBuffer2 ; $d086 xor a ld [hli], a ld bc, $c ld a, $ff call ByteFill ret ; known jump sources: 26812 (9:6812), 2684d (9:684d) Function26830: ; 26830 (9:6830) ld hl, StringBuffer2 ; $d086 inc [hl] ld e, [hl] ld d, $0 add hl, de ld [hl], a ret ; known jump sources: 2680d (9:680d) Function2683a: ; 2683a (9:683a) ld hl, $6855 .asm_2683d ld a, [hli] ld e, a ld a, [hli] ld d, a or e jr z, .asm_26854 push hl call _de_ pop hl jr nc, .asm_26851 ld a, [hl] push hl call Function26830 pop hl .asm_26851 inc hl jr .asm_2683d .asm_26854 ret ; 26855 (9:6855) INCBIN "baserom.gbc",$26855,$269dd - $26855 Function269dd: ; 269dd ld hl, $6a4f ld bc, $0006 call AddNTimes ret ; 269e7 Function269e7: ; 269e7 push hl call Function269dd call Function26c72 pop hl call CopyName2 ret ; 269f3 INCBIN "baserom.gbc",$269f3,$26a30 - $269f3 Function26a30: ; 26a30 call Function269dd ld de, $0003 add hl, de ld a, [hli] ld d, [hl] ld e, a ret ; 26a3b Function26a3b: ; 26a3b push bc call Function26a30 pop bc call EventFlagAction ret ; 26a44 Function26a44: ; 26a44 ld a, c call Function269dd ld de, $0005 add hl, de ld a, [hl] ld c, a ret ; 26a4f INCBIN "baserom.gbc",$26a4f,$26b8d - $26a4f DecorationNames: ; 26b8d db "CANCEL@" db "PUT IT AWAY@" db "MAGNAPLANT@" db "TROPICPLANT@" db "JUMBOPLANT@" db "TOWN MAP@" db "NES@" db "SUPER NES@" db "NINTENDO 64@" db "VIRTUAL BOY@" db "GOLD TROPHY@" db "SILVER TROPHY@" db "SURF PIKACHU DOLL@" db " BED@" db " CARPET@" db " POSTER@" db " DOLL@" db "BIG @" db "FEATHERY@" db "PIKACHU@" db "PINK@" db "POLKADOT@" db "RED@" db "BLUE@" db "YELLOW@" db "GREEN@" ; 26c72 Function26c72: ; 26c72 ld a, [hli] ld e, [hl] ld bc, StringBuffer2 push bc ld hl, Table26c7e rst JumpTable pop de ret ; 26c7e Table26c7e: ; 26c7e dw Function26c8c dw Function26c8d dw Function26c90 dw Function26c97 dw Function26c9e dw Function26ca6 dw Function26cae ; 26c8c Function26c8c: ; 26c8c ret ; 26c8d Function26c8d: ; 26c8d ld a, e jr Function26cca Function26c90: ; 26c90 call Function26c8d ld a, $d jr Function26cca Function26c97: ; 26c97 call Function26c8d ld a, $e jr Function26cca Function26c9e: ; 26c9e ld a, e call Function26cc0 ld a, $f jr Function26cca Function26ca6: ; 26ca6 ld a, e call Function26cc0 ld a, $10 jr Function26cca Function26cae: ; 26cae push de ld a, $11 call Function26cca pop de ld a, e jr Function26cc0 Function26cb8: ; 26cb8 push de call Function26cca pop de ld a, e jr Function26cca Function26cc0: ; 26cc0 push bc ld [$d265], a call GetPokemonName pop bc jr Function26cda Function26cca: ; 26cca call Function26ccf jr Function26cda Function26ccf: ; 26ccf push bc ld hl, DecorationNames call GetNthString ld d, h ld e, l pop bc ret Function26cda: ; 26cda ld h, b ld l, c call CopyName2 dec hl ld b, h ld c, l ret ; 26ce3 INCBIN "baserom.gbc",$26ce3,$26eea - $26ce3 Function26eea: ; 26eea ld a, c ld h, d ld l, e call Function269e7 ret ; 26ef1 Function26ef1: ; 26ef1 ld a, c jp Function26a3b ; 26ef5 ; no known jump sources Function26ef5: ; 26ef5 (9:6ef5) ld a, c call Function26f0c ld hl, StringBuffer1 ; $d073 push hl call Function269e7 pop de ret Function26f02: ; 26f02 ld a, c call Function26f0c ld b, $1 call Function26a3b ret ; 26f0c Function26f0c: ; 26f0c push hl push de ld e, a ld d, $0 ld hl, $6f2b add hl, de ld a, [hl] pop de pop hl ret ; 26f19 INCBIN "baserom.gbc",$26f19,$26f59 - $26f19 Function26f59: ; 26f59 ld a, b ld hl, Table26f5f rst JumpTable ret ; 26f5f Table26f5f: ; 26f5f dw Function26f69 dw Function26fb9 dw Function26fbe dw Function26fdd dw Function26fc3 ; 26f69 Function26f69: ; 26f69 ld a, [Poster] ld hl, $6f84 ld de, $0003 call IsInArray jr c, .asm_26f7d ld de, $6fb8 ld b, $9 ret .asm_26f7d ld b, $9 inc hl ld a, [hli] ld d, [hl] ld e, a ret ; 26f84 INCBIN "baserom.gbc",$26f84,$26fb9 - $26f84 Function26fb9: ; 26fb9 ld a, [LeftOrnament] jr Function26fc8 Function26fbe: ; 26fbe ld a, [RightOrnament] jr Function26fc8 Function26fc3: ; 26fc3 ld a, [Console] jr Function26fc8 Function26fc8: ; 26fc8 ld c, a ld de, StringBuffer3 call Function26eea ld b, $9 ld de, $6fd5 ret ; 26fd5 INCBIN "baserom.gbc",$26fd5,$26fdd - $26fd5 Function26fdd: ; 26fdd ld b, $9 ld de, $6fe3 ret ; 26fe3 INCBIN "baserom.gbc",$26fe3,$26feb - $26fe3 Function26feb: ; 26feb ld de, $0004 ld a, [Bed] call Function27037 ld de, $0704 ld a, [Plant] call Function27037 ld de, $0600 ld a, [Poster] call Function27037 call Function27027 ld de, $0000 call Function27092 ld a, [Carpet] and a ret z call Function27085 ld [hl], a push af ld de, $0002 call Function27092 pop af inc a ld [hli], a inc a ld [hli], a dec a ld [hl], a ret ; 27027 Function27027: ; 27027 ld b, $1 ld a, [Poster] and a jr nz, .asm_27031 ld b, $0 .asm_27031 ld de, $02cc jp EventFlagAction ; 27037 Function27037: ; 27037 push af call Function27092 pop af and a ret z call Function27085 ld [hl], a ret ; 27043 Function27043: ; 27043 ld de, $0741 ld hl, VariableSprites ld a, [Console] call Function27074 ld de, $0742 ld hl, $d82f ld a, [LeftOrnament] call Function27074 ld de, $0743 ld hl, $d830 ld a, [RightOrnament] call Function27074 ld de, $0744 ld hl, $d831 ld a, [BigDoll] call Function27074 ret ; 27074 Function27074: ; 27074 and a jr z, .asm_27080 call Function27085 ld [hl], a ld b, $0 jp EventFlagAction .asm_27080 ld b, $1 jp EventFlagAction ; 27085 Function27085: ; 27085 ld c, a push de push hl callba Function26a44 pop hl pop de ld a, c ret ; 27092 Function27092: ; 27092 ld a, d add $4 ld d, a ld a, e add $4 ld e, a call Function2a66 ret ; 2709e Function2709e: ; 2709e ld a, [CurPartyMon] ld hl, PartyMon1CaughtLocation call GetPartyLocation ld a, [hl] and $7f ld d, a ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a call GetWorldMapLocation cp d ld c, $1 jr nz, .asm_270bd ld c, $13 .asm_270bd callab ChangeHappiness ret ; 270c4 INCLUDE "trainers/dvs.asm" Function2715c: ; 2715c call WhiteBGMap call ClearTileMap ld a, [BattleType] cp $3 jr z, .asm_27171 callba Function3f43d jr .asm_27177 .asm_27171 callba GetBattleBackpic .asm_27177 callba Function3f47c callba Function3ed9f call ClearSGB call Function1c17 call Function1d6e call WaitBGMap jp Function32f9 ; 27192 Function27192: ; 27192 push hl push de push bc ld a, [hBattleTurn] and a ld hl, OTPartyMon1Item ld de, EnemyMonItem ld a, [CurOTMon] jr z, .asm_271ac ld hl, PartyMon1Item ld de, BattleMonItem ld a, [CurBattleMon] .asm_271ac push hl push af ld a, [de] ld b, a callba GetItem ld hl, $71de .asm_271b9 ld a, [hli] cp b jr z, .asm_271c6 inc a jr nz, .asm_271b9 pop af pop hl pop bc pop de pop hl ret .asm_271c6 xor a ld [de], a pop af pop hl call GetPartyLocation ld a, [hBattleTurn] and a jr nz, .asm_271d8 ld a, [IsInBattle] dec a jr z, .asm_271da .asm_271d8 ld [hl], $0 .asm_271da pop bc pop de pop hl ret ; 271de INCBIN "baserom.gbc",$271de,$271f4 - $271de MoveEffectsPointers: ; 271f4 INCLUDE "battle/moves/move_effects_pointers.asm" MoveEffects: ; 2732e INCLUDE "battle/moves/move_effects.asm" Function27a28: ; 27a28 call Function2500e ld b, a ret ; 27a2d SECTION "bankA", ROMX, BANK[$A] Function28000: ; 28000 call WhiteBGMap ld c, $50 call DelayFrames call Functionfdb call ClearSprites call Function1ad2 xor a ld [hSCX], a ld [hSCY], a ld c, $50 call DelayFrames call Functionfdb call Function1ad2 call Functione51 call Functione58 callba Function16d69a call Function3200 ld hl, $c543 ld b, $2 ld c, $c ld d, h ld e, l callba Function4d35b ld hl, $c56c ld de, $4419 call PlaceString call Function28eff call Function3200 ld hl, $cf5d xor a ld [hli], a ld [hl], $50 ld a, [InLinkBattle] cp $1 jp nz, Function28177 Function2805d: ; 2805d call Function28426 call Function28499 call Function28434 xor a ld [$cf56], a call Function87d ld a, [$ffcb] cp $2 jr nz, .asm_28091 ld c, $3 call DelayFrames xor a ld [hSerialSend], a ld a, $1 ld [rSC], a ld a, $81 ld [rSC], a call DelayFrame xor a ld [hSerialSend], a ld a, $1 ld [rSC], a ld a, $81 ld [rSC], a .asm_28091 ld de, $0000 call PlayMusic ld c, $3 call DelayFrames xor a ld [rIF], a ld a, $8 ld [rIE], a ld hl, $d1f3 ld de, EnemyMonSpecies ld bc, $0011 call Function75f ld a, $fe ld [de], a ld hl, OverworldMap ld de, $d26b ld bc, $01a8 call Function75f ld a, $fe ld [de], a ld hl, EnemyMoveAnimation ld de, PlayerSDefLevel ld bc, $00c8 call Function75f xor a ld [rIF], a ld a, $1d ld [rIE], a call Function287ab ld hl, $d26b call Function287ca push hl ld bc, $000b add hl, bc ld a, [hl] pop hl and a jp z, Function28b22 cp $7 jp nc, Function28b22 ld de, OverworldMap ld bc, $01a2 call Function2879e ld de, PlayerSDefLevel ld hl, $c813 ld c, $2 .asm_280fe ld a, [de] inc de and a jr z, .asm_280fe cp $fd jr z, .asm_280fe cp $fe jr z, .asm_280fe cp $ff jr z, .asm_2811d push hl push bc ld b, $0 dec a ld c, a add hl, bc ld a, $fe ld [hl], a pop bc pop hl jr .asm_280fe .asm_2811d ld hl, $c90f dec c jr nz, .asm_280fe ld hl, OverworldMap ld de, $d26b ld bc, $000b call CopyBytes ld de, OTPartyCount ld a, [hli] ld [de], a inc de .asm_28135 ld a, [hli] cp $ff jr z, .asm_2814e ld [$d265], a push hl push de callab Functionfb908 pop de pop hl ld a, [$d265] ld [de], a inc de jr .asm_28135 .asm_2814e ld [de], a ld hl, $c813 call Function2868a ld a, $a8 ld [$d102], a ld a, $d3 ld [$d103], a ld de, $0000 call PlayMusic ld a, [$ffcb] cp $2 ld c, $42 call z, DelayFrames ld de, $002b call PlayMusic jp Function287e3 ; 28177 Function28177: ; 28177 call Function28426 call Function28595 call Function28434 call Function29dba ld a, [ScriptVar] and a jp z, Function283b2 ld a, [$ffcb] cp $2 jr nz, .asm_281ae ld c, $3 call DelayFrames xor a ld [hSerialSend], a ld a, $1 ld [rSC], a ld a, $81 ld [rSC], a call DelayFrame xor a ld [hSerialSend], a ld a, $1 ld [rSC], a ld a, $81 ld [rSC], a .asm_281ae ld de, $0000 call PlayMusic ld c, $3 call DelayFrames xor a ld [rIF], a ld a, $8 ld [rIE], a ld hl, $d1f3 ld de, EnemyMonSpecies ld bc, $0011 call Function75f ld a, $fe ld [de], a ld hl, OverworldMap ld de, $d26b ld bc, $01c2 call Function75f ld a, $fe ld [de], a ld hl, EnemyMoveAnimation ld de, PlayerSDefLevel ld bc, $00c8 call Function75f ld a, [InLinkBattle] cp $2 jr nz, .asm_281fd ld hl, $c9f4 ld de, $cb84 ld bc, $0186 call Function283f2 .asm_281fd xor a ld [rIF], a ld a, $1d ld [rIE], a ld de, $0000 call PlayMusic call Function287ab ld hl, $d26b call Function287ca ld de, OverworldMap ld bc, $01b9 call Function2879e ld de, PlayerSDefLevel ld hl, $c813 ld c, $2 .asm_28224 ld a, [de] inc de and a jr z, .asm_28224 cp $fd jr z, .asm_28224 cp $fe jr z, .asm_28224 cp $ff jr z, .asm_28243 push hl push bc ld b, $0 dec a ld c, a add hl, bc ld a, $fe ld [hl], a pop bc pop hl jr .asm_28224 .asm_28243 ld hl, $c90f dec c jr nz, .asm_28224 ld a, [InLinkBattle] cp $2 jp nz, .asm_282fe ld hl, $cb84 .asm_28254 ld a, [hli] cp $20 jr nz, .asm_28254 .asm_28259 ld a, [hli] cp $fe jr z, .asm_28259 cp $20 jr z, .asm_28259 dec hl ld de, $cb84 ld bc, $0190 call CopyBytes ld hl, $cb84 ld bc, $00c6 .asm_28272 ld a, [hl] cp $21 jr nz, .asm_28279 ld [hl], $fe .asm_28279 inc hl dec bc ld a, b or c jr nz, .asm_28272 ld de, $cc9e .asm_28282 ld a, [de] inc de cp $ff jr z, .asm_28294 ld hl, $cc4a dec a ld b, $0 ld c, a add hl, bc ld [hl], $fe jr .asm_28282 .asm_28294 ld hl, $cb84 ld de, $c9f4 ld b, $6 .asm_2829c push bc ld bc, $0021 call CopyBytes ld a, $e add e ld e, a ld a, $0 adc d ld d, a pop bc dec b jr nz, .asm_2829c ld de, $c9f4 ld b, $6 .asm_282b4 push bc ld a, $21 add e ld e, a ld a, $0 adc d ld d, a ld bc, $000e call CopyBytes pop bc dec b jr nz, .asm_282b4 ld b, $6 ld de, $c9f4 .asm_282cc push bc push de callba Function1de5c8 ld a, c or a jr z, .asm_282ee sub $3 jr nc, .asm_282e4 callba Function1df203 jr .asm_282ee .asm_282e4 cp $2 jr nc, .asm_282ee callba Function1df220 .asm_282ee pop de ld hl, $002f add hl, de ld d, h ld e, l pop bc dec b jr nz, .asm_282cc ld de, $cb0e xor a ld [de], a .asm_282fe ld hl, OverworldMap ld de, $d26b ld bc, $000b call CopyBytes ld de, OTPartyCount ld bc, $0008 call CopyBytes ld de, $d276 ld bc, $0002 call CopyBytes ld de, OTPartyMon1Species ld bc, $01a4 call CopyBytes ld a, $a8 ld [$d102], a ld a, $d3 ld [$d103], a ld de, $0000 call PlayMusic ld a, [$ffcb] cp $2 ld c, $42 call z, DelayFrames ld a, [InLinkBattle] cp $3 jr nz, .asm_283a9 ld a, $c ld [OtherTrainerClass], a call Functionfdb callba Function4d354 ld hl, Options ld a, [hl] push af and $20 or $3 ld [hl], a ld hl, $d26b ld de, $c656 ld bc, $000b call CopyBytes call Function222a ld a, [$c2d7] push af ld a, $1 ld [$c2d7], a ld a, [rIE] push af ld a, [rIF] push af xor a ld [rIF], a ld a, [rIE] set 1, a ld [rIE], a pop af ld [rIF], a ld a, $16 call Predef ld a, [rIF] ld h, a xor a ld [rIF], a pop af ld [rIE], a ld a, h ld [rIF], a pop af ld [$c2d7], a pop af ld [Options], a callba Function1500c jp Function28b22 .asm_283a9 ld de, $002b call PlayMusic jp Function287e3 ; 283b2 Function283b2: ; 283b2 ld de, $43ed ld b, $a .asm_283b7 call DelayFrame call Function908 dec b jr nz, .asm_283b7 xor a ld [hld], a ld [hl], a ld [$ff9e], a push de ld hl, $c590 ld b, $4 ld c, $12 push de ld d, h ld e, l callba Function4d35b pop de pop hl ld bc, $c5b9 call Function13e5 call Function4b6 call Functionfdb ld b, $8 call GetSGBLayout call Function3200 ret ; 283ed INCBIN "baserom.gbc",$283ed,$283f2 - $283ed Function283f2: ; 283f2 ld a, $1 ld [$ffcc], a .asm_283f6 ld a, [hl] ld [hSerialSend], a call Function78a push bc ld b, a inc hl ld a, $30 .asm_28401 dec a jr nz, .asm_28401 ld a, [$ffcc] and a ld a, b pop bc jr z, .asm_28411 dec hl xor a ld [$ffcc], a jr .asm_283f6 .asm_28411 ld [de], a inc de dec bc ld a, b or c jr nz, .asm_283f6 ret ; 28419 INCBIN "baserom.gbc",$28419,$28426 - $28419 Function28426: ; 28426 ld hl, OverworldMap ld bc, $0514 .asm_2842c xor a ld [hli], a dec bc ld a, b or c jr nz, .asm_2842c ret ; 28434 Function28434: ; 28434 ld hl, $d1f3 ld a, $fd ld b, $7 .asm_2843b ld [hli], a dec b jr nz, .asm_2843b ld b, $a .asm_28441 call Random cp $fd jr nc, .asm_28441 ld [hli], a dec b jr nz, .asm_28441 ld hl, EnemyMoveAnimation ld a, $fd ld [hli], a ld [hli], a ld [hli], a ld b, $c8 xor a .asm_28457 ld [hli], a dec b jr nz, .asm_28457 ld hl, $c818 ld de, PlayerMoveType ld bc, $0000 .asm_28464 inc c ld a, c cp $fd jr z, .asm_2848c ld a, b dec a jr nz, .asm_2847f push bc ld a, [InLinkBattle] cp $1 ld b, $d jr z, .asm_2847a ld b, $27 .asm_2847a ld a, c cp b pop bc jr z, .asm_28495 .asm_2847f inc hl ld a, [hl] cp $fe jr nz, .asm_28464 ld a, c ld [de], a inc de ld [hl], $ff jr .asm_28464 .asm_2848c ld a, $ff ld [de], a inc de ld bc, Start jr .asm_28464 .asm_28495 ld a, $ff ld [de], a ret ; 28499 Function28499: ; 28499 ld de, OverworldMap ld a, $fd ld b, $6 .asm_284a0 ld [de], a inc de dec b jr nz, .asm_284a0 ld hl, PlayerName ld bc, $000b call CopyBytes push de ld hl, PartyCount ld a, [hli] ld [de], a inc de .asm_284b5 ld a, [hli] cp $ff jr z, .asm_284ce ld [$d265], a push hl push de callab Functionfb8f1 pop de pop hl ld a, [$d265] ld [de], a inc de jr .asm_284b5 .asm_284ce ld [de], a pop de ld hl, $0008 add hl, de ld d, h ld e, l ld hl, PartyMon1Species ld c, $6 .asm_284db push bc call Function284f6 ld bc, $0030 add hl, bc pop bc dec c jr nz, .asm_284db ld hl, PartyMonOT call .asm_284f0 ld hl, PartyMonNicknames .asm_284f0 ld bc, $0042 jp CopyBytes ; 284f6 Function284f6: ; 284f6 ld b, h ld c, l push de push bc ld a, [hl] ld [$d265], a callab Functionfb8f1 pop bc pop de ld a, [$d265] ld [de], a inc de ld hl, $0022 add hl, bc ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a inc de xor a ld [de], a inc de ld hl, $0020 add hl, bc ld a, [hl] ld [de], a inc de ld a, [bc] cp $51 jr z, .asm_28528 cp $52 jr nz, .asm_28530 .asm_28528 ld a, $17 ld [de], a inc de ld [de], a inc de jr .asm_28544 .asm_28530 push bc dec a ld hl, $542b ld bc, $0020 call AddNTimes ld bc, $0002 ld a, $14 call FarCopyBytes pop bc .asm_28544 push bc ld hl, $0001 add hl, bc ld bc, OBJECT_SPRITE_Y_OFFSET call CopyBytes pop bc ld hl, $001f add hl, bc ld a, [hl] ld [de], a ld [CurPartyLevel], a inc de push bc ld hl, $0024 add hl, bc ld bc, $0008 call CopyBytes pop bc push de push bc ld a, [bc] dec a push bc ld b, $0 ld c, a ld hl, $7656 add hl, bc ld a, $3e call GetFarByte ld [BaseSpecialAttack], a pop bc ld hl, $000a add hl, bc ld c, $5 ld b, $1 ld a, $d call Predef pop bc pop de ld a, [$ffb5] ld [de], a inc de ld a, [$ffb6] ld [de], a inc de ld h, b ld l, c ret ; 28595 Function28595: ; 28595 ld de, OverworldMap ld a, $fd ld b, $6 .asm_2859c ld [de], a inc de dec b jr nz, .asm_2859c ld hl, PlayerName ld bc, $000b call CopyBytes ld hl, PartyCount ld bc, $0008 call CopyBytes ld hl, PlayerID ld bc, $0002 call CopyBytes ld hl, PartyMon1Species ld bc, $0120 call CopyBytes ld hl, PartyMon1OT ld bc, $0042 call CopyBytes ld hl, PartyMon1Nickname ld bc, $0042 call CopyBytes ld a, [InLinkBattle] cp $2 ret nz ld de, $c9f4 ld a, $20 call Function28682 ld a, $0 call GetSRAMBank ld hl, $a600 ld b, $6 .asm_285ef push bc ld bc, $0021 call CopyBytes ld bc, $000e add hl, bc pop bc dec b jr nz, .asm_285ef ld hl, $a600 ld b, $6 .asm_28603 push bc ld bc, $0021 add hl, bc ld bc, $000e call CopyBytes pop bc dec b jr nz, .asm_28603 ld b, $6 ld de, $a600 ld hl, $c9f9 .asm_2861a push bc push hl push de push hl callba Function1de5c8 pop de ld a, c or a jr z, .asm_2863f sub $3 jr nc, .asm_28635 callba Function1df1e6 jr .asm_2863f .asm_28635 cp $2 jr nc, .asm_2863f callba Function1df220 .asm_2863f pop de ld hl, $002f add hl, de ld d, h ld e, l pop hl ld bc, $0021 add hl, bc pop bc dec b jr nz, .asm_2861a call CloseSRAM ld hl, $c9f9 ld bc, $00c6 .asm_28658 ld a, [hl] cp $fe jr nz, .asm_2865f ld [hl], $21 .asm_2865f inc hl dec bc ld a, b or c jr nz, .asm_28658 ld hl, $cabf ld de, $cb13 ld b, $54 ld c, $0 .asm_2866f inc c ld a, [hl] cp $fe jr nz, .asm_2867a ld [hl], $ff ld a, c ld [de], a inc de .asm_2867a inc hl dec b jr nz, .asm_2866f ld a, $ff ld [de], a ret ; 28682 Function28682: ; 28682 ld c, $5 .asm_28684 ld [de], a inc de dec c jr nz, .asm_28684 ret ; 2868a Function2868a: ; 2868a push hl ld d, h ld e, l ld bc, $cbea ld hl, $cbe8 ld a, c ld [hli], a ld [hl], b ld hl, OTPartyMon1Species ld c, $6 .asm_2869b push bc call Function286ba pop bc dec c jr nz, .asm_2869b pop hl ld bc, $0108 add hl, bc ld de, OTPartyMon1OT ld bc, $0042 call CopyBytes ld de, OTPartyMon1Nickname ld bc, $0042 jp CopyBytes ; 286ba Function286ba: ; 286ba ld b, h ld c, l ld a, [de] inc de push bc push de ld [$d265], a callab Functionfb908 pop de pop bc ld a, [$d265] ld [bc], a ld [CurSpecies], a ld hl, $0022 add hl, bc ld a, [de] inc de ld [hli], a ld a, [de] inc de ld [hl], a inc de ld hl, $0020 add hl, bc ld a, [de] inc de ld [hl], a ld hl, $cbe8 ld a, [hli] ld h, [hl] ld l, a ld a, [de] ld [hli], a inc de ld a, [de] ld [hli], a inc de ld a, l ld [$cbe8], a ld a, h ld [$cbe9], a push bc ld hl, $0001 add hl, bc push hl ld h, d ld l, e pop de push bc ld a, [hli] ld b, a call Function28771 ld a, b ld [de], a inc de pop bc ld bc, $0019 call CopyBytes pop bc ld d, h ld e, l ld hl, $001f add hl, bc ld a, [de] inc de ld [hl], a ld [CurPartyLevel], a push bc ld hl, $0024 add hl, bc push hl ld h, d ld l, e pop de ld bc, $0008 call CopyBytes pop bc call GetBaseData push de push bc ld d, h ld e, l ld hl, $000a add hl, bc ld c, $5 ld b, $1 ld a, $d call Predef pop bc pop hl ld a, [$ffb5] ld [hli], a ld a, [$ffb6] ld [hli], a push hl push bc ld hl, $000a add hl, bc ld c, $6 ld b, $1 ld a, $d call Predef pop bc pop hl ld a, [$ffb5] ld [hli], a ld a, [$ffb6] ld [hli], a push hl ld hl, $001b add hl, bc ld a, $46 ld [hli], a xor a ld [hli], a ld [hli], a ld [hl], a pop hl inc de inc de ret ; 28771 Function28771: ; 28771 ld a, b and a ret z push hl ld hl, $4785 .asm_28778 ld a, [hli] and a jr z, .asm_28783 cp b jr z, .asm_28782 inc hl jr .asm_28778 .asm_28782 ld b, [hl] .asm_28783 pop hl ret ; 28785 INCBIN "baserom.gbc",$28785,$2879e - $28785 Function2879e: ; 2879e .asm_2879e ld a, [hli] cp $fe jr z, .asm_2879e ld [de], a inc de dec bc ld a, b or c jr nz, .asm_2879e ret ; 287ab Function287ab: ; 287ab ld a, [$ffcb] cp $2 ret z ld hl, EnemyMonSpecies call Function287d8 ld de, LinkBattleRNs ld c, $a .asm_287bb ld a, [hli] cp $fe jr z, .asm_287bb cp $fd jr z, .asm_287bb ld [de], a inc de dec c jr nz, .asm_287bb ret ; 287ca Function287ca: ; 287ca .asm_287ca ld a, [hli] and a jr z, .asm_287ca cp $fd jr z, .asm_287ca cp $fe jr z, .asm_287ca dec hl ret ; 287d8 Function287d8: ; 287d8 .asm_287d8 ld a, [hli] cp $fd jr z, .asm_287d8 cp $fe jr z, .asm_287d8 dec hl ret ; 287e3 Function287e3: ; 287e3 call Functionfdb call Function28ef8 callba Function16d673 xor a ld hl, $cf51 ld [hli], a ld [hli], a ld [hli], a ld [hl], a ld a, $1 ld [$cfa9], a inc a ld [$cf56], a jp Function2888b ; 28803 Function28803: ; 28803 ld a, $1 ld [MonType], a ld a, $c1 ld [$cfa8], a ld a, [OTPartyCount] ld [$cfa3], a ld a, $1 ld [$cfa4], a ld a, $9 ld [$cfa1], a ld a, $6 ld [$cfa2], a ld a, $1 ld [$cfaa], a ld a, $10 ld [$cfa7], a ld a, $20 ld [$cfa5], a xor a ld [$cfa6], a Function28835: ; 28835 callba Function16d70c ld a, d and a jp z, Function2891c bit 0, a jr z, .asm_2885b ld a, $1 ld [$d263], a callab Function50db9 ld hl, OTPartyMon1Species callba Function4d319 jp Function2891c .asm_2885b bit 6, a jr z, .asm_28883 ld a, [$cfa9] ld b, a ld a, [OTPartyCount] cp b jp nz, Function2891c xor a ld [MonType], a call Function1bf7 push hl push bc ld bc, $000b add hl, bc ld [hl], $7f pop bc pop hl ld a, [PartyCount] ld [$cfa9], a jr Function2888b .asm_28883 bit 7, a jp z, Function2891c jp Function28ac9 ; 2888b Function2888b: ; 2888b callba Function49856 xor a ld [MonType], a ld a, $c1 ld [$cfa8], a ld a, [PartyCount] ld [$cfa3], a ld a, $1 ld [$cfa4], a ld a, $1 ld [$cfa1], a ld a, $6 ld [$cfa2], a ld a, $1 ld [$cfaa], a ld a, $10 ld [$cfa7], a ld a, $20 ld [$cfa5], a xor a ld [$cfa6], a call Function3200 Function288c5: ; 288c5 callba Function16d70c ld a, d and a jr nz, .asm_288d2 jp Function2891c .asm_288d2 bit 0, a jr z, .asm_288d9 jp Function28926 .asm_288d9 bit 7, a jr z, .asm_288fe ld a, [$cfa9] dec a jp nz, Function2891c ld a, $1 ld [MonType], a call Function1bf7 push hl push bc ld bc, $000b add hl, bc ld [hl], $7f pop bc pop hl ld a, $1 ld [$cfa9], a jp Function28803 .asm_288fe bit 6, a jr z, Function2891c ld a, [$cfa9] ld b, a ld a, [PartyCount] cp b jr nz, Function2891c call Function1bf7 push hl push bc ld bc, $000b add hl, bc ld [hl], $7f pop bc pop hl jp Function28ade ; 2891c Function2891c: ; 2891c ld a, [MonType] and a jp z, Function288c5 jp Function28835 ; 28926 Function28926: ; 28926 call Function309d ld a, [$cfa9] push af ld hl, $c5cc ld b, $1 ld c, $12 call Function28eef ld hl, $c5e2 ld de, $4ab4 call PlaceString callba Function4d354 .asm_28946 ld a, $7f ld [$c5eb], a ld a, $13 ld [$cfa8], a ld a, $1 ld [$cfa3], a ld a, $1 ld [$cfa4], a ld a, $10 ld [$cfa1], a ld a, $1 ld [$cfa2], a ld a, $1 ld [$cfa9], a ld [$cfaa], a ld a, $20 ld [$cfa7], a xor a ld [$cfa5], a ld [$cfa6], a call Function1bd3 bit 4, a jr nz, .asm_2898d bit 1, a jr z, .asm_289cd .asm_28983 pop af ld [$cfa9], a call Function30b4 jp Function2888b .asm_2898d ld a, $7f ld [$c5e1], a ld a, $23 ld [$cfa8], a ld a, $1 ld [$cfa3], a ld a, $1 ld [$cfa4], a ld a, $10 ld [$cfa1], a ld a, $b ld [$cfa2], a ld a, $1 ld [$cfa9], a ld [$cfaa], a ld a, $20 ld [$cfa7], a xor a ld [$cfa5], a ld [$cfa6], a call Function1bd3 bit 5, a jp nz, .asm_28946 bit 1, a jr nz, .asm_28983 jr .asm_289fe .asm_289cd pop af ld [$cfa9], a ld a, $4 ld [$d263], a callab Function50db9 callba Function4d319 call Function30b4 ld hl, $c4ba ld bc, $0601 ld a, $7f call Function28b77 ld hl, $c4c5 ld bc, $0601 ld a, $7f call Function28b77 jp Function2888b .asm_289fe call Function1bee pop af ld [$cfa9], a dec a ld [DefaultFlypoint], a ld [$cf56], a callba Function16d6ce ld a, [$cf51] cp $f jp z, Function287e3 ld [$d003], a call Function28b68 ld c, $64 call DelayFrames callba Functionfb57e jr c, .asm_28a58 callba Functionfb5dd jp nc, Function28b87 xor a ld [$cf57], a ld [$cf52], a ld hl, $c590 ld b, $4 ld c, $12 call Function28eef callba Function4d354 ld hl, $4aaf ld bc, $c5b9 call Function13e5 jr .asm_28a89 .asm_28a58 xor a ld [$cf57], a ld [$cf52], a ld a, [$d003] ld hl, OTPartySpecies ld c, a ld b, $0 add hl, bc ld a, [hl] ld [$d265], a call GetPokemonName ld hl, $c590 ld b, $4 ld c, $12 call Function28eef callba Function4d354 ld hl, $4ac4 ld bc, $c5b9 call Function13e5 .asm_28a89 ld hl, $c590 ld b, $4 ld c, $12 call Function28eef ld hl, $c5b9 ld de, $4ece call PlaceString ld a, $1 ld [$cf56], a callba Function16d6ce ld c, $64 call DelayFrames jp Function287e3 ; 28aaf INCBIN "baserom.gbc",$28aaf,$28ac9 - $28aaf Function28ac9: ; 28ac9 ld a, [$cfa9] cp $1 jp nz, Function2891c call Function1bf7 push hl push bc ld bc, $000b add hl, bc ld [hl], $7f pop bc pop hl Function28ade: ; 28ade .asm_28ade ld a, $ed ld [$c5fd], a .asm_28ae3 call Functiona57 ld a, [$ffa9] and a jr z, .asm_28ae3 bit 0, a jr nz, .asm_28b0b push af ld a, $7f ld [$c5fd], a pop af bit 6, a jr z, .asm_28b03 ld a, [OTPartyCount] ld [$cfa9], a jp Function28803 .asm_28b03 ld a, $1 ld [$cfa9], a jp Function2888b .asm_28b0b ld a, $ec ld [$c5fd], a ld a, $f ld [$cf56], a callba Function16d6ce ld a, [$cf51] cp $f jr nz, .asm_28ade Function28b22: ; 28b22 call Function4b6 call Functionfdb ld b, $8 call GetSGBLayout call Function3200 xor a ld [$cfbb], a xor a ld [rSB], a ld [hSerialSend], a ld a, $1 ld [rSC], a ld a, $81 ld [rSC], a ret ; 28b42 INCBIN "baserom.gbc",$28b42,$28b68 - $28b42 Function28b68: ; 28b68 ld a, [$cf51] ld hl, $c55a ld bc, $0014 call AddNTimes ld [hl], $ec ret ; 28b77 Function28b77: ; 28b77 .asm_28b77 push bc push hl .asm_28b79 ld [hli], a dec c jr nz, .asm_28b79 pop hl ld bc, $0014 add hl, bc pop bc dec b jr nz, .asm_28b77 ret ; 28b87 Function28b87: ; 28b87 xor a ld [$cf57], a ld [$cf52], a ld hl, $c590 ld b, $4 ld c, $12 call Function28eef callba Function4d354 ld a, [DefaultFlypoint] ld hl, PartySpecies ld c, a ld b, $0 add hl, bc ld a, [hl] ld [$d265], a call GetPokemonName ld hl, StringBuffer1 ld de, $d004 ld bc, $000b call CopyBytes ld a, [$d003] ld hl, OTPartySpecies ld c, a ld b, $0 add hl, bc ld a, [hl] ld [$d265], a call GetPokemonName ld hl, $4eb8 ld bc, $c5b9 call Function13e5 call Function1d6e ld hl, $c536 ld b, $3 ld c, $7 call Function28eef ld de, $4eab ld hl, $c54c call PlaceString ld a, $8 ld [$cfa1], a ld a, $b ld [$cfa2], a ld a, $1 ld [$cfa4], a ld a, $2 ld [$cfa3], a xor a ld [$cfa5], a ld [$cfa6], a ld a, $20 ld [$cfa7], a ld a, $3 ld [$cfa8], a ld a, $1 ld [$cfa9], a ld [$cfaa], a callba Function4d354 call Function1bd3 push af call Function1d7d call Function3200 pop af bit 1, a jr nz, .asm_28c33 ld a, [$cfa9] dec a jr z, .asm_28c54 .asm_28c33 ld a, $1 ld [$cf56], a ld hl, $c590 ld b, $4 ld c, $12 call Function28eef ld hl, $c5b9 ld de, $4ece call PlaceString callba Function16d6ce jp Function28ea3 .asm_28c54 ld a, $2 ld [$cf56], a callba Function16d6ce ld a, [$cf51] dec a jr nz, .asm_28c7b ld hl, $c590 ld b, $4 ld c, $12 call Function28eef ld hl, $c5b9 ld de, $4ece call PlaceString jp Function28ea3 .asm_28c7b ld hl, $a600 ld a, [DefaultFlypoint] ld bc, $002f call AddNTimes ld a, $0 call GetSRAMBank ld d, h ld e, l ld bc, $002f add hl, bc ld a, [DefaultFlypoint] ld c, a .asm_28c96 inc c ld a, c cp $6 jr z, .asm_28ca6 push bc ld bc, $002f call CopyBytes pop bc jr .asm_28c96 .asm_28ca6 ld hl, $a600 ld a, [PartyCount] dec a ld bc, $002f call AddNTimes push hl ld hl, $c9f4 ld a, [$d003] ld bc, $002f call AddNTimes pop de ld bc, $002f call CopyBytes call CloseSRAM ld hl, PlayerName ld de, $c6e7 ld bc, $000b call CopyBytes ld a, [DefaultFlypoint] ld hl, PartySpecies ld b, $0 ld c, a add hl, bc ld a, [hl] ld [PlayerSDefLevel], a push af ld a, [DefaultFlypoint] ld hl, PartyMon1OT call SkipNames ld de, $c6f2 ld bc, $000b call CopyBytes ld hl, PartyMon1ID ld a, [DefaultFlypoint] call GetPartyLocation ld a, [hli] ld [PlayerScreens], a ld a, [hl] ld [EnemyScreens], a ld hl, PartyMon1DVs ld a, [DefaultFlypoint] call GetPartyLocation ld a, [hli] ld [$c6fd], a ld a, [hl] ld [$c6fe], a ld a, [DefaultFlypoint] ld hl, PartyMon1Species call GetPartyLocation ld b, h ld c, l callba GetCaughtGender ld a, c ld [$c701], a ld hl, $d26b ld de, $c719 ld bc, $000b call CopyBytes ld a, [$d003] ld hl, OTPartySpecies ld b, $0 ld c, a add hl, bc ld a, [hl] ld [PlayerLightScreenCount], a ld a, [$d003] ld hl, OTPartyMon1OT call SkipNames ld de, $c724 ld bc, $000b call CopyBytes ld hl, OTPartyMon1ID ld a, [$d003] call GetPartyLocation ld a, [hli] ld [$c731], a ld a, [hl] ld [$c732], a ld hl, OTPartyMon1AtkDefDV ld a, [$d003] call GetPartyLocation ld a, [hli] ld [$c72f], a ld a, [hl] ld [$c730], a ld a, [$d003] ld hl, OTPartyMon1Species call GetPartyLocation ld b, h ld c, l callba GetCaughtGender ld a, c ld [$c733], a ld a, [DefaultFlypoint] ld [CurPartyMon], a ld hl, PartySpecies ld b, $0 ld c, a add hl, bc ld a, [hl] ld [DefaultFlypoint], a xor a ld [$d10b], a callab Functione039 ld a, [PartyCount] dec a ld [CurPartyMon], a ld a, $1 ld [$d1e9], a ld a, [$d003] push af ld hl, OTPartySpecies ld b, $0 ld c, a add hl, bc ld a, [hl] ld [$d003], a ld c, $64 call DelayFrames call ClearTileMap call Functione58 ld b, $8 call GetSGBLayout ld a, [$ffcb] cp $1 jr z, .asm_28de4 ld a, $1e call Predef jr .asm_28de9 .asm_28de4 ld a, $1d call Predef .asm_28de9 pop af ld c, a ld [CurPartyMon], a ld hl, OTPartySpecies ld d, $0 ld e, a add hl, de ld a, [hl] ld [CurPartySpecies], a ld hl, OTPartyMon1Species ld a, c call GetPartyLocation ld de, TempMonSpecies ld bc, $0030 call CopyBytes ld a, $7 call Predef ld a, [PartyCount] dec a ld [CurPartyMon], a callab Function421d8 call Functionfdb call Function28ef8 call Function28eff callba Function4d354 ld b, $1 pop af ld c, a cp $97 jr z, .asm_28e49 ld a, [CurPartySpecies] cp $97 jr z, .asm_28e49 ld b, $2 ld a, c cp $fb jr z, .asm_28e49 ld a, [CurPartySpecies] cp $fb jr z, .asm_28e49 ld b, $0 .asm_28e49 ld a, b ld [$cf56], a push bc call Function862 pop bc ld a, [InLinkBattle] cp $1 jr z, .asm_28e63 ld a, b and a jr z, .asm_28e63 ld a, [$cf52] cp b jr nz, .asm_28e49 .asm_28e63 callba Function14a58 callba Function1060af callba Function106187 ld c, $28 call DelayFrames ld hl, $c590 ld b, $4 ld c, $12 call Function28eef ld hl, $c5b9 ld de, $4ebd call PlaceString callba Function4d354 ld c, $32 call DelayFrames ld a, [InLinkBattle] cp $1 jp z, Function2805d jp Function28177 ; 28ea3 Function28ea3: ; 28ea3 ld c, $64 call DelayFrames jp Function287e3 ; 28eab INCBIN "baserom.gbc",$28eab,$28eef - $28eab Function28eef: ; 28eef ld d, h ld e, l callba Function16d6ca ret ; 28ef8 Function28ef8: ; 28ef8 callba Function16d696 ret ; 28eff Function28eff: ; 28eff callba Function16d6a7 call Function32f9 ret ; 28f09 INCBIN "baserom.gbc",$28f09,$28f24 - $28f09 Function28f24: ; 28f24 xor a ld [$cf66], a ld hl, $c6e7 ld de, $c719 call Function297ff ld hl, PlayerSDefLevel ld de, PlayerLightScreenCount call Function29814 ld de, .data_28f3f jr Function28fa1 .data_28f3f db $1b db $1 db $1c db $21 db $2d db $27 db $23 db $3 db $25 db $28 db $25 db $1e db $29 db $6 db $16 db $1f db $19 db $17 db $22 db $1f db $2a db $e db $3 db $24 db $5 db $25 db $2 db $27 db $25 db $1d db $2c db $2e db $1e db $18 db $1f db $2b Function28f63: ; 28f63 xor a ld [$cf66], a ld hl, $c719 ld de, $c6e7 call Function297ff ld hl, PlayerLightScreenCount ld de, PlayerSDefLevel call Function29814 ld de, .data_28f7e jr Function28fa1 .data_28f7e db $1a db $17 db $22 db $1f db $2a db $6 db $3 db $24 db $5 db $25 db $2 db $27 db $25 db $1d db $2c db $2f db $1e db $18 db $1f db $1b db $1 db $1c db $22 db $27 db $23 db $3 db $25 db $28 db $25 db $1e db $29 db $e db $16 db $1f db $2b Function28fa1: ; 28fa1 ld hl, BattleEnded ld [hl], e inc hl ld [hl], d ld a, [$ffde] push af xor a ld [$ffde], a ld hl, VramState ld a, [hl] push af res 0, [hl] ld hl, Options ld a, [hl] push af set 4, [hl] call Function28fdb ld a, [$cf66] and a jr nz, .asm_28fca ld de, MUSIC_EVOLUTION call PlayMusic2 .asm_28fca call Function29082 jr nc, .asm_28fca pop af ld [Options], a pop af ld [VramState], a pop af ld [$ffde], a ret ; 28fdb Function28fdb: ; 28fdb xor a ld [$cf63], a call WhiteBGMap call ClearSprites call ClearTileMap call DisableLCD call Functione58 callab Function8cf53 ld a, [hCGB] and a jr z, .asm_2900b ld a, $1 ld [rVBK], a ld hl, VTiles0 ld bc, $2000 xor a call ByteFill ld a, $0 ld [rVBK], a .asm_2900b ld hl, VBGMap0 ld bc, $0800 ld a, $7f call ByteFill ld hl, $599b ld de, $9310 call Decompress ld hl, $591b ld de, $8ed0 ld bc, $0010 ld a, $a call FarCopyBytes ld hl, $592b ld de, $8ee0 ld bc, $0010 ld a, $a call FarCopyBytes xor a ld [hSCX], a ld [hSCY], a ld a, $7 ld [hWX], a ld a, $90 ld [hWY], a callba Function4d7fd call EnableLCD call Function2982b ld a, [PlayerSDefLevel] ld hl, $c6fd ld de, VTiles0 call Function29491 ld a, [PlayerLightScreenCount] ld hl, $c72f ld de, $8310 call Function29491 ld a, [PlayerSDefLevel] ld de, PlayerAccLevel call Function294a9 ld a, [PlayerLightScreenCount] ld de, PlayerReflectCount call Function294a9 call Function297ed ret ; 29082 Function29082: ; 29082 ld a, [$cf63] bit 7, a jr nz, .asm_2909b call Function290a0 callab Function8cf69 ld hl, $cf65 inc [hl] call DelayFrame and a ret .asm_2909b call Functione51 scf ret ; 290a0 Function290a0: ; 290a0 ld a, [$cf63] ld e, a ld d, $0 ld hl, $50af add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 290af INCBIN "baserom.gbc",$290af,$29491 - $290af Function29491: ; 29491 push de push af ld a, $2d call Predef pop af ld [CurPartySpecies], a ld [CurSpecies], a call GetBaseData pop de ld a, $3c call Predef ret ; 294a9 Function294a9: ; 294a9 push de ld [$d265], a call GetPokemonName ld hl, StringBuffer1 pop de ld bc, $000b call CopyBytes ret ; 294bb INCBIN "baserom.gbc",$294bb,$29676 - $294bb ; no known jump sources Function29676: ; 29676 (a:5676) ld hl, $b add hl, bc ld e, [hl] ld d, $0 ld hl, $5686 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_29686: ; 29686 (a:5686) dw Function2969a dw Function296a4 dw Function296af dw Function296bd dw Function296cf dw Function296dd dw Function296f2 ; known jump sources: 2969a (a:569a), 296ac (a:56ac), 296ba (a:56ba), 296da (a:56da), 296e8 (a:56e8) Function29694: ; 29694 (a:5694) ld hl, $b add hl, bc inc [hl] ret ; no known jump sources Function2969a: ; 2969a (a:569a) call Function29694 ld hl, $c add hl, bc ld [hl], $80 ret ; no known jump sources Function296a4: ; 296a4 (a:56a4) ld hl, $c add hl, bc ld a, [hl] dec [hl] and a ret nz call Function29694 ; no known jump sources Function296af: ; 296af (a:56af) ld hl, $4 add hl, bc ld a, [hl] cp $94 jr nc, .asm_296ba inc [hl] ret .asm_296ba call Function29694 ; no known jump sources Function296bd: ; 296bd (a:56bd) ld hl, $5 add hl, bc ld a, [hl] cp $4c jr nc, .asm_296c8 inc [hl] ret .asm_296c8 ld hl, $0 add hl, bc ld [hl], $0 ret ; no known jump sources Function296cf: ; 296cf (a:56cf) ld hl, $5 add hl, bc ld a, [hl] cp $2c jr z, .asm_296da dec [hl] ret .asm_296da call Function29694 ; no known jump sources Function296dd: ; 296dd (a:56dd) ld hl, $4 add hl, bc ld a, [hl] cp $58 jr z, .asm_296e8 dec [hl] ret .asm_296e8 call Function29694 ld hl, $c add hl, bc ld [hl], $80 ret ; no known jump sources Function296f2: ; 296f2 (a:56f2) ld hl, $c add hl, bc ld a, [hl] dec [hl] and a ret nz ld hl, $0 add hl, bc ld [hl], $0 ret ; 29701 (a:5701) INCBIN "baserom.gbc",$29701,$297ed - $29701 Function297ed: ; 297ed ld a, [hSGB] and a ld a, $e4 jr z, .asm_297f6 ld a, $f0 .asm_297f6 call Functioncf8 ld a, $e4 call DmgToCgbBGPals ret ; 297ff Function297ff: ; 297ff push de ld de, $c736 ld bc, $000b call CopyBytes pop hl ld de, $c741 ld bc, $000b call CopyBytes ret ; 29814 Function29814: ; 29814 ld a, [hl] ld [$c74c], a ld a, [de] ld [$c74d], a ret ; 2981d INCBIN "baserom.gbc",$2981d,$2982b - $2981d Function2982b: ; 2982b call DelayFrame ld de, $5adb ld hl, $8620 ld bc, $0a06 call Request2bpp ld de, $5b3b ld hl, $8680 ld bc, $0a0c call Request2bpp ld de, $593b ld hl, $8740 ld bc, $0a04 call Request2bpp xor a ld hl, $c300 ld [hli], a ld [hl], $62 ret ; 2985a INCBIN "baserom.gbc",$2985a,$29bfb - $2985a Function29bfb: ; 29bfb ld hl, PartySpecies ld b, $6 .asm_29c00 ld a, [hli] cp $ff jr z, .asm_29c0c cp $98 jr nc, .asm_29c42 dec b jr nz, .asm_29c00 .asm_29c0c ld a, [PartyCount] ld b, a ld hl, PartyMon1Item .asm_29c13 push hl push bc ld d, [hl] callba ItemIsMail pop bc pop hl jr c, .asm_29c5e ld de, $0030 add hl, de dec b jr nz, .asm_29c13 ld hl, PartyMon1Move1 ld a, [PartyCount] ld b, a .asm_29c2e ld c, $4 .asm_29c30 ld a, [hli] cp $a6 jr nc, .asm_29c4c dec c jr nz, .asm_29c30 ld de, $002c add hl, de dec b jr nz, .asm_29c2e xor a jr .asm_29c63 .asm_29c42 ld [$d265], a call GetPokemonName ld a, $1 jr .asm_29c63 .asm_29c4c push bc ld [$d265], a call GetMoveName call CopyName1 pop bc call Function29c67 ld a, $2 jr .asm_29c63 .asm_29c5e call Function29c67 ld a, $3 .asm_29c63 ld [ScriptVar], a ret ; 29c67 Function29c67: ; 29c67 ld a, [PartyCount] sub b ld c, a inc c ld b, $0 ld hl, PartyCount add hl, bc ld a, [hl] ld [$d265], a call GetPokemonName ret ; 29c7b Function29c7b: ; 29c7b ld c, $a call DelayFrames ld a, $4 call Function29f17 ld c, $28 call DelayFrames xor a ld [$ff9e], a inc a ld [InLinkBattle], a ret ; 29c92 Function29c92: ; 29c92 ld c, $3 call DelayFrames ld a, $ff ld [$ffcb], a xor a ld [rSB], a ld [hSerialReceive], a ld a, $1 ld [rSC], a ld a, $81 ld [rSC], a ld c, $3 call DelayFrames xor a ld [rSB], a ld [hSerialReceive], a ld a, $0 ld [rSC], a ld a, $80 ld [rSC], a ld c, $3 call DelayFrames xor a ld [rSB], a ld [hSerialReceive], a ld [rSC], a ld c, $3 call DelayFrames ld a, $ff ld [$ffcb], a ld a, [rIF] push af xor a ld [rIF], a ld a, $f ld [rIE], a pop af ld [rIF], a ld hl, $cf5b xor a ld [hli], a ld [hl], a ld [$ff9e], a ld [InLinkBattle], a ret ; 29ce8 Function29ce8: ; 29ce8 ld a, $1 ld [$cf56], a ld [$d265], a ret ; 29cf1 Function29cf1: ; 29cf1 ld a, $2 ld [$cf56], a ld [$d265], a ret ; 29cfa Function29cfa: ; 29cfa ld a, $2 ld [rSB], a xor a ld [hSerialReceive], a ld a, $0 ld [rSC], a ld a, $80 ld [rSC], a xor a ld [$cf56], a ld [$d265], a ret ; 29d11 Function29d11: ; 29d11 ld a, [$cf56] and a jr z, .asm_29d2f ld a, $2 ld [rSB], a xor a ld [hSerialReceive], a ld a, $0 ld [rSC], a ld a, $80 ld [rSC], a call DelayFrame call DelayFrame call DelayFrame .asm_29d2f ld a, $2 ld [$cf5c], a ld a, $ff ld [$cf5b], a .asm_29d39 ld a, [$ffcb] cp $2 jr z, .asm_29d79 cp $1 jr z, .asm_29d79 ld a, $ff ld [$ffcb], a ld a, $2 ld [rSB], a xor a ld [hSerialReceive], a ld a, $0 ld [rSC], a ld a, $80 ld [rSC], a ld a, [$cf5b] dec a ld [$cf5b], a jr nz, .asm_29d68 ld a, [$cf5c] dec a ld [$cf5c], a jr z, .asm_29d8d .asm_29d68 ld a, $1 ld [rSB], a ld a, $1 ld [rSC], a ld a, $81 ld [rSC], a call DelayFrame jr .asm_29d39 .asm_29d79 call Function908 call DelayFrame call Function908 ld c, $32 call DelayFrames ld a, $1 ld [ScriptVar], a ret .asm_29d8d xor a ld [ScriptVar], a ret ; 29d92 Function29d92: ; 29d92 ld a, $1 ld [$cf56], a ld hl, $cf5b ld a, $3 ld [hli], a xor a ld [hl], a call WaitBGMap ld a, $2 ld [$ff9e], a call DelayFrame call DelayFrame call Function29e0c xor a ld [$ff9e], a ld a, [ScriptVar] and a ret nz jp Function29f04 ; 29dba Function29dba: ; 29dba ld a, $5 ld [$cf56], a ld hl, $cf5b ld a, $3 ld [hli], a xor a ld [hl], a call WaitBGMap ld a, $2 ld [$ff9e], a call DelayFrame call DelayFrame call Function29e0c ld a, [ScriptVar] and a jr z, .asm_29e08 ld bc, rIE .asm_29de0 dec bc ld a, b or c jr nz, .asm_29de0 ld a, [$cf51] cp $5 jr nz, .asm_29e03 ld a, $6 ld [$cf56], a ld hl, $cf5b ld a, $1 ld [hli], a ld [hl], $32 call Function29e0c ld a, [$cf51] cp $6 jr z, .asm_29e08 .asm_29e03 xor a ld [ScriptVar], a ret .asm_29e08 xor a ld [$ff9e], a ret ; 29e0c Function29e0c: ; 29e0c xor a ld [$ffca], a ld a, [$cf5b] ld h, a ld a, [$cf5c] ld l, a push hl call Function29e3b pop hl jr nz, .asm_29e2f call Function29e47 call Function29e53 call Function29e3b jr nz, .asm_29e2f call Function29e47 xor a jr .asm_29e31 .asm_29e2f ld a, $1 .asm_29e31 ld [ScriptVar], a ld hl, $cf5b xor a ld [hli], a ld [hl], a ret ; 29e3b Function29e3b: ; 29e3b call Function87d ld hl, $cf5b ld a, [hli] inc a ret nz ld a, [hl] inc a ret ; 29e47 Function29e47: ; 29e47 ld b, $a .asm_29e49 call DelayFrame call Function908 dec b jr nz, .asm_29e49 ret ; 29e53 Function29e53: ; 29e53 dec h srl h rr l srl h rr l inc h ld a, h ld [$cf5b], a ld a, l ld [$cf5c], a ret ; 29e66 Function29e66: ; 29e66 ld a, [$d265] push af callba Function14ab2 ld a, $1 jr nc, .asm_29e75 xor a .asm_29e75 ld [ScriptVar], a ld c, $1e call DelayFrames pop af ld [$d265], a ret ; 29e82 Function29e82: ; 29e82 ld a, [$d265] call Function29f17 push af call Function908 call DelayFrame call Function908 pop af ld b, a ld a, [$d265] cp b jr nz, .asm_29eaa ld a, [$d265] inc a ld [InLinkBattle], a xor a ld [$ff9e], a ld a, $1 ld [ScriptVar], a ret .asm_29eaa xor a ld [ScriptVar], a ret ; 29eaf Function29eaf: ; 29eaf ld a, $1 ld [InLinkBattle], a call Function2ed3 callab Function28000 call Function2ee4 xor a ld [$ff9e], a ret ; 29ec4 Function29ec4: ; 29ec4 ld a, $2 ld [InLinkBattle], a call Function2ed3 callab Function28000 call Function2ee4 xor a ld [$ff9e], a ret ; 29ed9 Function29ed9: ; 29ed9 ld a, $3 ld [InLinkBattle], a call Function2ed3 callab Function28000 call Function2ee4 xor a ld [$ff9e], a ret ; 29eee Function29eee: ; 29eee xor a ld [InLinkBattle], a ld c, $3 call DelayFrames jp Function29f04 ; 29efa Function29efa: ; 29efa ld c, $28 call DelayFrames ld a, $e jp Function29f17 ; 29f04 Function29f04: ; 29f04 ld c, $3 call DelayFrames ld a, $ff ld [$ffcb], a ld a, $2 ld [rSB], a xor a ld [hSerialReceive], a ld [rSC], a ret ; 29f17 Function29f17: ; 29f17 add $d0 ld [$cf56], a ld [$cf57], a ld a, $2 ld [$ff9e], a call DelayFrame call DelayFrame .asm_29f29 call Function83b ld a, [$cf51] ld b, a and $f0 cp $d0 jr z, .asm_29f40 ld a, [$cf52] ld b, a and $f0 cp $d0 jr nz, .asm_29f29 .asm_29f40 xor a ld [$ff9e], a ld a, b and $f ret ; 29f47 Function29f47: ; 29f47 ld a, [$ffcb] cp $1 ld a, $1 jr z, .asm_29f50 dec a .asm_29f50 ld [ScriptVar], a ret ; 29f54 INCBIN "baserom.gbc",$29f54,$29ff8 - $29f54 call Function2a205 jr c, .asm_2a006 ld hl, $d25a xor a ld [hli], a ld [hli], a ld [hl], a jr .asm_2a011 .asm_2a006 inc hl inc hl ld de, $d25a ld bc, $3 call CopyBytes .asm_2a011 call Function2a21d ld a, $0 jr nc, .asm_2a01b inc hl inc hl ld a, [hl] .asm_2a01b ld [$d25d], a ret Function2a01f: ; 2a01f ld hl, TileMap ld bc, $0168 xor a call ByteFill ld a, e and a jr nz, .asm_2a043 ld de, TileMap ld hl, WildMons1 call Function2a052 ld hl, WildMons2 call Function2a06e call Function2a0b7 call Function2a0cf ret .asm_2a043 ld de, TileMap ld hl, WildMons3 call Function2a052 ld hl, WildMons4 jp Function2a06e ; 2a052 Function2a052: ; 2a052 .asm_2a052 ld a, [hl] cp $ff ret z push hl ld a, [hli] ld b, a ld a, [hli] ld c, a inc hl inc hl inc hl ld a, $15 call Function2a088 jr nc, .asm_2a067 ld [de], a inc de .asm_2a067 pop hl ld bc, $002f add hl, bc jr .asm_2a052 ; 2a06e Function2a06e: ; 2a06e .asm_2a06e ld a, [hl] cp $ff ret z push hl ld a, [hli] ld b, a ld a, [hli] ld c, a inc hl ld a, $3 call Function2a088 jr nc, .asm_2a081 ld [de], a inc de .asm_2a081 pop hl ld bc, $0009 add hl, bc jr .asm_2a06e ; 2a088 Function2a088: ; 2a088 inc hl .asm_2a089 push af ld a, [$d265] cp [hl] jr z, .asm_2a098 inc hl inc hl pop af dec a jr nz, .asm_2a089 and a ret .asm_2a098 pop af jp Function2a09c ; 2a09c Function2a09c: ; 2a09c push de call GetWorldMapLocation ld c, a ld hl, TileMap ld de, $0168 .asm_2a0a7 ld a, [hli] cp c jr z, .asm_2a0b4 dec de ld a, e or d jr nz, .asm_2a0a7 ld a, c pop de scf ret .asm_2a0b4 pop de and a ret ; 2a0b7 Function2a0b7: ; 2a0b7 ld a, [RoamMon1Species] ld b, a ld a, [$d265] cp b ret nz ld a, [RoamMon1MapGroup] ld b, a ld a, [RoamMon1MapNumber] ld c, a call Function2a09c ret nc ld [de], a inc de ret ; 2a0cf Function2a0cf: ; 2a0cf ld a, [RoamMon2Species] ld b, a ld a, [$d265] cp b ret nz ld a, [RoamMon2MapGroup] ld b, a ld a, [RoamMon2MapNumber] ld c, a call Function2a09c ret nc ld [de], a inc de ret ; 2a0e7 Function2a0e7: ; 2a0e7 ; Try to trigger a wild encounter. call Function2a103 jr nc, .asm_2a0f8 call Function2a14f jr nz, .asm_2a0f8 call Function2a1df jr nc, .asm_2a0f8 xor a ret .asm_2a0f8 xor a ld [$d22e], a ld [BattleType], a ld a, 1 and a ret ; 2a103 Function2a103: ; 2a103 call Function2a111 call Function2a124 call Function2a138 call Random cp b ret ; 2a111 Function2a111: ; 2a111 ld hl, $d25a call Function1852 ld a, 3 jr z, .asm_2a11e ld a, [TimeOfDay] .asm_2a11e ld c, a ld b, 0 add hl, bc ld b, [hl] ret ; 2a124 Function2a124: ; 2a124 ; Pokemon March and Ruins of Alph signal double encounter rate. ; Pokemon Lullaby halves encounter rate. ld a, [CurMusic] cp MUSIC_POKEMON_MARCH jr z, .asm_2a135 cp MUSIC_RUINS_OF_ALPH_RADIO jr z, .asm_2a135 cp MUSIC_POKEMON_LULLABY ret nz srl b ret .asm_2a135 sla b ret ; 2a138 Function2a138: ; 2a138 ; Cleanse Tag halves encounter rate. ld hl, PartyMon1Item ld de, PartyMon2 - PartyMon1 ld a, [PartyCount] ld c, a .next ld a, [hl] cp CLEANSE_TAG jr z, .asm_2a14c add hl, de dec c jr nz, .next ret .asm_2a14c srl b ret ; 2a14f Function2a14f: ; 2a14f call Function2a200 jp nc, .asm_2a1c1 call Function2a2ce jp c, .asm_2a1c9 inc hl inc hl inc hl call Function1852 ld de, $61d9 jr z, .asm_2a174 inc hl inc hl ld a, [TimeOfDay] ld bc, $e call AddNTimes ld de, $61cb .asm_2a174 push hl .asm_2a175 call Random cp 100 jr nc, .asm_2a175 inc a ld b, a ld h, d ld l, e .asm_2a180 ld a, [hli] cp b jr nc, .asm_2a187 inc hl jr .asm_2a180 .asm_2a187 ld c, [hl] ld b, 0 pop hl add hl, bc ld a, [hli] ld b, a call Function1852 jr nz, .asm_2a1aa call Random cp 89 jr c, .asm_2a1aa inc b cp 165 jr c, .asm_2a1aa inc b cp 216 jr c, .asm_2a1aa inc b cp 242 jr c, .asm_2a1aa inc b .asm_2a1aa ld a, b ld [CurPartyLevel], a ld b, [hl] call Function2a4a0 jr c, .asm_2a1c1 ld a, b cp UNOWN jr nz, .asm_2a1bf ld a, [UnlockedUnowns] and a jr z, .asm_2a1c1 .asm_2a1bf jr .asm_2a1c5 .asm_2a1c1 ld a, 1 and a ret .asm_2a1c5 ld a, b ld [$d22e], a .asm_2a1c9 xor a ret ; 2a1cb INCBIN "baserom.gbc",$2a1cb,$2a1df - $2a1cb Function2a1df: ; 2a1df ld a, [$dca1] and a jr z, .asm_2a1fe ld hl, PartyMon1CurHP ld bc, PartyMon2 - PartyMon1 - 1 .asm_2a1eb ld a, [hli] or [hl] jr nz, .asm_2a1f2 add hl, bc jr .asm_2a1eb .asm_2a1f2 ; to PartyMonLevel dec hl dec hl dec hl dec hl ld a, [CurPartyLevel] cp [hl] jr nc, .asm_2a1fe and a ret .asm_2a1fe scf ret ; 2a200 Function2a200: ; 2a200 call Function1852 jr z, Function2a21d Function2a205: ; 2a205 ld hl, WildMons5 ld bc, $002f call asm_2a23d ret c ld hl, WildMons1 ld de, WildMons3 call asm_2a235 ld bc, $002f jr asm_2a27a Function2a21d: ; 2a21d ld hl, WildMons6 ld bc, $0009 call asm_2a23d ret c ld hl, WildMons2 ld de, WildMons4 call asm_2a235 ld bc, $0009 jr asm_2a27a asm_2a235 call IsInJohto and a ret z ld h, d ld l, e ret asm_2a23d call Function2a27f push hl ld hl, $dc20 bit 2, [hl] pop hl jr z, .asm_2a25c ld a, [$dfcc] cp d jr nz, .asm_2a25c ld a, [$dfcd] cp e jr nz, .asm_2a25c call Function2a288 jr nc, asm_2a278 scf ret .asm_2a25c push hl ld hl, $dc20 bit 3, [hl] pop hl jr z, asm_2a278 ld a, [$dc5a] cp d jr nz, asm_2a278 ld a, [$dc5b] cp e jr nz, asm_2a278 call Function2a288 jr nc, asm_2a278 scf ret asm_2a278 and a ret asm_2a27a call Function2a27f jr Function2a288 ; 2a27f Function2a27f: ; 2a27f ld a, [MapGroup] ld d, a ld a, [MapNumber] ld e, a ret ; 2a288 Function2a288: ; 2a288 push hl ld a, [hl] inc a jr z, .asm_2a29a ld a, d cp [hl] jr nz, .asm_2a296 inc hl ld a, e cp [hl] jr z, .asm_2a29d .asm_2a296 pop hl add hl, bc jr Function2a288 .asm_2a29a pop hl and a ret .asm_2a29d pop hl scf ret ; 2a2a0 InitRoamMons: ; 2a2a0 ; initialize RoamMon structs ; species ld a, RAIKOU ld [RoamMon1Species], a ld a, ENTEI ld [RoamMon2Species], a ; ld a, SUICUNE ; ld [RoamMon3Species], a ; level ld a, 40 ld [RoamMon1Level], a ld [RoamMon2Level], a ; ld [RoamMon3Level], a ; raikou starting map ld a, GROUP_ROUTE_42 ld [RoamMon1MapGroup], a ld a, MAP_ROUTE_42 ld [RoamMon1MapNumber], a ; entei starting map ld a, GROUP_ROUTE_37 ld [RoamMon2MapGroup], a ld a, MAP_ROUTE_37 ld [RoamMon2MapNumber], a ; suicune starting map ; ld a, GROUP_ROUTE_38 ; ld [RoamMon3MapGroup], a ; ld a, MAP_ROUTE_38 ; ld [RoamMon3MapNumber], a ; hp xor a ; generate new stats ld [RoamMon1CurHP], a ld [RoamMon2CurHP], a ; ld [RoamMon3CurHP], a ret ; 2a2ce Function2a2ce: ; 2a2ce push hl call Function1852 jr z, .asm_2a30a call Function2a27f call Random cp 100 jr nc, .asm_2a30a and 3 jr z, .asm_2a30a dec a ld hl, RoamMon1MapGroup ld c, a ld b, 0 ld a, 7 call AddNTimes ld a, d cp [hl] jr nz, .asm_2a30a inc hl ld a, e cp [hl] jr nz, .asm_2a30a dec hl dec hl dec hl ld a, [hli] ld [$d22e], a ld a, [hl] ld [CurPartyLevel], a ld a, BATTLETYPE_ROAMING ld [BattleType], a pop hl scf ret .asm_2a30a pop hl and a ret ; 2a30d Function2a30d: ; 2a30d ld a, [RoamMon1MapGroup] cp $ff jr z, .asm_2a324 ld b, a ld a, [RoamMon1MapNumber] ld c, a call Function2a355 ld a, b ld [RoamMon1MapGroup], a ld a, c ld [RoamMon1MapNumber], a .asm_2a324 ld a, [RoamMon2MapGroup] cp $ff jr z, .asm_2a33b ld b, a ld a, [RoamMon2MapNumber] ld c, a call Function2a355 ld a, b ld [RoamMon2MapGroup], a ld a, c ld [RoamMon2MapNumber], a .asm_2a33b ld a, [RoamMon3MapGroup] cp $ff jr z, .asm_2a352 ld b, a ld a, [RoamMon3MapNumber] ld c, a call Function2a355 ld a, b ld [RoamMon3MapGroup], a ld a, c ld [RoamMon3MapNumber], a .asm_2a352 jp Function2a3f6 ; 2a355 Function2a355: ; 2a355 ld hl, $640f .asm_2a358 ld a, [hl] cp $ff ret z ld a, b cp [hl] jr nz, .asm_2a365 inc hl ld a, c cp [hl] jr z, .asm_2a36b .asm_2a365 ld a, [hli] and a jr nz, .asm_2a365 jr .asm_2a358 .asm_2a36b inc hl ld d, h ld e, l .asm_2a36e ld h, d ld l, e call Random and $1f jr z, asm_2a3cd and $3 cp [hl] jr nc, .asm_2a36e inc hl ld c, a ld b, $0 add hl, bc add hl, bc ld a, [$dfe7] cp [hl] jr nz, .asm_2a390 inc hl ld a, [$dfe6] cp [hl] jr z, .asm_2a36e dec hl .asm_2a390 ld a, [hli] ld b, a ld c, [hl] ret Function2a394: ; 2a394 ld a, [RoamMon1MapGroup] cp $ff jr z, .asm_2a3a6 call asm_2a3cd ld a, b ld [RoamMon1MapGroup], a ld a, c ld [RoamMon1MapNumber], a .asm_2a3a6 ld a, [RoamMon2MapGroup] cp $ff jr z, .asm_2a3b8 call asm_2a3cd ld a, b ld [RoamMon2MapGroup], a ld a, c ld [RoamMon2MapNumber], a .asm_2a3b8 ld a, [RoamMon3MapGroup] cp $ff jr z, .asm_2a3ca call asm_2a3cd ld a, b ld [RoamMon3MapGroup], a ld a, c ld [RoamMon3MapNumber], a .asm_2a3ca jp Function2a3f6 asm_2a3cd ld hl, $640f .asm_2a3d0 call Random and $f cp $10 jr nc, .asm_2a3d0 inc a ld b, a .asm_2a3db dec b jr z, .asm_2a3e4 .asm_2a3de ld a, [hli] and a jr nz, .asm_2a3de jr .asm_2a3db .asm_2a3e4 ld a, [MapGroup] cp [hl] jr nz, .asm_2a3f2 inc hl ld a, [MapNumber] cp [hl] jr z, asm_2a3cd dec hl .asm_2a3f2 ld a, [hli] ld b, a ld c, [hl] ret ; 2a3f6 Function2a3f6: ; 2a3f6 ld a, [$dfe4] ld [$dfe6], a ld a, [$dfe5] ld [$dfe7], a ld a, [MapNumber] ld [$dfe4], a ld a, [MapGroup] ld [$dfe5], a ret ; 2a40f INCBIN "baserom.gbc",$2a40f,$2a4a0 - $2a40f Function2a4a0: ; 2a4a0 and a jr z, .asm_2a4a9 cp $fc jr nc, .asm_2a4a9 and a ret .asm_2a4a9 scf ret ; 2a4ab Function2a4ab: ; 2a4ab callba Function90439 ld d, b ld e, c ld hl, WildMons1 ld bc, $002f call Function2a288 jr c, .asm_2a4c6 ld hl, WildMons3 call Function2a288 jr nc, .asm_2a514 .asm_2a4c6 push hl ld bc, $000d add hl, bc ld a, [TimeOfDay] ld bc, $000e call AddNTimes .asm_2a4d4 call Random and $3 jr z, .asm_2a4d4 dec a ld c, a ld b, $0 add hl, bc add hl, bc inc hl ld c, [hl] pop hl ld de, $0005 add hl, de inc hl ld b, $4 .asm_2a4eb ld a, [hli] cp c jr z, .asm_2a514 inc hl dec b jr nz, .asm_2a4eb push bc dec c ld a, c call CheckSeenMon pop bc jr nz, .asm_2a514 ld de, StringBuffer1 call CopyName1 ld a, c ld [$d265], a call GetPokemonName ld hl, $651a call PrintText xor a ld [ScriptVar], a ret .asm_2a514 ld a, $1 ld [ScriptVar], a ret ; 2a51a INCBIN "baserom.gbc",$2a51a,$2a51f - $2a51a Function2a51f: ; 2a51f callba Function90439 ld d, b ld e, c ld hl, WildMons1 ld bc, $002f call Function2a288 jr c, .asm_2a538 ld hl, WildMons3 call Function2a288 .asm_2a538 ld bc, $0005 add hl, bc ld a, [TimeOfDay] inc a ld bc, $000e .asm_2a543 dec a jr z, .asm_2a549 add hl, bc jr .asm_2a543 .asm_2a549 call Random and $3 ld c, a ld b, $0 add hl, bc add hl, bc inc hl ld a, [hl] ld [$d265], a call GetPokemonName ld hl, StringBuffer1 ld de, StringBuffer4 ld bc, $000b jp CopyBytes ; 2a567 Function2a567: ; 2a567 callba Function90439 ld hl, $5999 ld a, d dec a ld c, a ld b, $0 add hl, bc add hl, bc ld a, $e call GetFarHalfword .asm_2a57c dec e jr z, .asm_2a58b .asm_2a57f ld a, $e call GetFarByte inc hl cp $ff jr nz, .asm_2a57f jr .asm_2a57c .asm_2a58b ld a, $e call GetFarByte inc hl cp $50 jr nz, .asm_2a58b ld a, $e call GetFarByte inc hl ld bc, $0002 cp $0 jr z, .asm_2a5b3 ld bc, $0006 cp $1 jr z, .asm_2a5b3 ld bc, $0003 cp $2 jr z, .asm_2a5b3 ld bc, $0007 .asm_2a5b3 ld e, $0 push hl .asm_2a5b6 inc e add hl, bc ld a, $e call GetFarByte cp $ff jr nz, .asm_2a5b6 pop hl .asm_2a5c2 call Random and $7 cp e jr nc, .asm_2a5c2 inc a .asm_2a5cb dec a jr z, .asm_2a5d1 add hl, bc jr .asm_2a5cb .asm_2a5d1 inc hl ld a, $e call GetFarByte ld [$d265], a call GetPokemonName ld hl, StringBuffer1 ld de, StringBuffer4 ld bc, $000b jp CopyBytes ; 2a5e9 WildMons1: ; 0x2a5e9 INCLUDE "stats/wild/johto_grass.asm" WildMons2: ; 0x2b11d INCLUDE "stats/wild/johto_water.asm" WildMons3: ; 0x2b274 INCLUDE "stats/wild/kanto_grass.asm" WildMons4: ; 0x2b7f7 INCLUDE "stats/wild/kanto_water.asm" WildMons5: ; 0x2b8d0 INCLUDE "stats/wild/swarm_grass.asm" WildMons6: ; 0x2b92f INCLUDE "stats/wild/swarm_water.asm" Function2b930: ; 2b930 callba UpdateEnemyMonInParty ld hl, PartyMon1CurHP call Function2b995 push bc ld hl, OTPartyMon1CurHP call Function2b995 ld a, c pop bc cp c jr z, .asm_2b94c jr c, .asm_2b97f jr .asm_2b976 .asm_2b94c call Function2b9e1 jr z, .asm_2b98a ld a, e cp $1 jr z, .asm_2b976 cp $2 jr z, .asm_2b97f ld hl, PartyMon1CurHP call Function2b9a6 push de ld hl, OTPartyMon1CurHP call Function2b9a6 pop hl ld a, d cp h jr c, .asm_2b976 jr z, .asm_2b970 jr .asm_2b97f .asm_2b970 ld a, e cp l jr z, .asm_2b98a jr nc, .asm_2b97f .asm_2b976 ld a, [$d0ee] and $f0 ld [$d0ee], a ret .asm_2b97f ld a, [$d0ee] and $f0 add $1 ld [$d0ee], a ret .asm_2b98a ld a, [$d0ee] and $f0 add $2 ld [$d0ee], a ret ; 2b995 Function2b995: ; 2b995 ld c, $0 ld b, $3 ld de, $002f .asm_2b99c ld a, [hli] or [hl] jr nz, .asm_2b9a1 inc c .asm_2b9a1 add hl, de dec b jr nz, .asm_2b99c ret ; 2b9a6 Function2b9a6: ; 2b9a6 ld de, $0000 ld c, $3 .asm_2b9ab ld a, [hli] or [hl] jr z, .asm_2b9d7 dec hl xor a ld [hProduct], a ld a, [hli] ld [hMultiplicand], a ld a, [hli] ld [$ffb5], a xor a ld [$ffb6], a ld a, [hli] ld b, a ld a, [hld] srl b rr a srl b rr a ld [hMultiplier], a ld b, $4 call Divide ld a, [$ffb6] add e ld e, a ld a, [$ffb5] adc d ld d, a dec hl .asm_2b9d7 push de ld de, $002f add hl, de pop de dec c jr nz, .asm_2b9ab ret ; 2b9e1 Function2b9e1: ; 2b9e1 ld hl, PartyMon1CurHP call Function2ba01 jr nz, .asm_2b9f2 ld hl, OTPartyMon1CurHP call Function2ba01 ld e, $1 ret .asm_2b9f2 ld hl, OTPartyMon1CurHP call Function2ba01 ld e, $0 ret nz ld e, $2 ld a, $1 and a ret ; 2ba01 Function2ba01: ; 2ba01 ld d, $3 .asm_2ba03 ld a, [hli] ld b, a ld a, [hli] ld c, a or b jr z, .asm_2ba10 ld a, [hli] cp b ret nz ld a, [hld] cp c ret nz .asm_2ba10 push de ld de, $002e add hl, de pop de dec d jr nz, .asm_2ba03 ret ; 2ba1a ChrisBackpic: ; 2ba1a INCBIN "gfx/misc/player.lz" ; 2bba1 db 0, 0, 0, 0, 0, 0, 0, 0, 0 ; filler DudeBackpic: ; 2bbaa INCBIN "gfx/misc/dude.lz" ; 2bce1 SECTION "bankB", ROMX, BANK[$B] Function2c000: ; 2c000 ld a, $e4 ld [rOBP0], a call Function2c165 call Function2c01c ld a, [IsInBattle] dec a ret z jp Function2c03a ; 2c012 Function2c012: ; 2c012 ld a, $e4 ld [rOBP0], a call Function2c165 jp Function2c03a ; 2c01c Function2c01c: ; 2c01c call Function2c0ad ld hl, PartyMon1CurHP ld de, PartyCount call Function2c059 ld a, $60 ld hl, $cfc4 ld [hli], a ld [hl], a ld a, $8 ld [$d003], a ld hl, Sprites jp Function2c143 ; 2c03a Function2c03a: ; 2c03a call Function2c0c5 ld hl, OTPartyMon1CurHP ld de, OTPartyCount call Function2c059 ld hl, $cfc4 ld a, $48 ld [hli], a ld [hl], $20 ld a, $f8 ld [$d003], a ld hl, $c418 jp Function2c143 ; 2c059 Function2c059: ; 2c059 ld a, [de] push af ld de, Buffer1 ld c, $6 ld a, $34 .asm_2c062 ld [de], a inc de dec c jr nz, .asm_2c062 pop af ld de, Buffer1 .asm_2c06b push af call Function2c075 inc de pop af dec a jr nz, .asm_2c06b ret ; 2c075 Function2c075: ; 2c075 ld a, [hli] and a jr nz, .asm_2c07f ld a, [hl] and a ld b, $33 jr z, .asm_2c08b .asm_2c07f dec hl dec hl dec hl ld a, [hl] and a ld b, $32 jr nz, .asm_2c08e dec b jr .asm_2c08e .asm_2c08b dec hl dec hl dec hl .asm_2c08e ld a, b ld [de], a ld bc, $0032 add hl, bc ret ; 2c095 DrawPlayerExpBar: ; 2c095 ld hl, .data_2c0a9 ld de, $d004 ld bc, 4 call CopyBytes ld hl, $c57a ld de, -1 jr Function2c0f1 .data_2c0a9 db $73 db $77 db $6f db $76 ; 2c0ad Function2c0ad: ; 2c0ad ld hl, .data_2c0c1 ld de, $d004 ld bc, 4 call CopyBytes ld hl, $c57a ld de, -1 jr Function2c0f1 .data_2c0c1 db $73, $5c, $6f, $76 ; 2c0c5 Function2c0c5: ; 2c0c5 ld hl, .data_2c0ed ld de, $d004 ld bc, 4 call CopyBytes ld hl, $c4c9 ld de, 1 call Function2c0f1 ld a, [IsInBattle] dec a ret nz ld a, [TempEnemyMonSpecies] dec a call CheckCaughtMon ret z ld hl, $c4b5 ld [hl], $5d ret .data_2c0ed db $6d db $74 db $78 db $76 ; 2c0f1 Function2c0f1: ; 2c0f1 ld a, [$d004] ld [hl], a ld bc, $0014 add hl, bc ld a, [StartFlypoint] ld [hl], a ld b, $8 .asm_2c0ff add hl, de ld a, [MovementBuffer] ld [hl], a dec b jr nz, .asm_2c0ff add hl, de ld a, [EndFlypoint] ld [hl], a ret ; 2c10d Function2c10d: ; 2c10d call Function2c165 ld hl, PartyMon1CurHP ld de, PartyCount call Function2c059 ld hl, $cfc4 ld a, $50 ld [hli], a ld [hl], $40 ld a, $8 ld [$d003], a ld hl, Sprites call Function2c143 ld hl, OTPartyMon1CurHP ld de, OTPartyCount call Function2c059 ld hl, $cfc4 ld a, $50 ld [hli], a ld [hl], $68 ld hl, $c418 jp Function2c143 ; 2c143 Function2c143: ; 2c143 ld de, Buffer1 ld c, $6 .asm_2c148 ld a, [$cfc5] ld [hli], a ld a, [$cfc4] ld [hli], a ld a, [de] ld [hli], a ld a, $3 ld [hli], a ld a, [$cfc4] ld b, a ld a, [$d003] add b ld [$cfc4], a inc de dec c jr nz, .asm_2c148 ret ; 2c165 Function2c165: ; 2c165 ld de, $4172 ld hl, $8310 ld bc, $0b04 call Functiondc9 ret ; 2c172 INCBIN "baserom.gbc",$2c172,$2c1b2 - $2c172 Function2c1b2: ; 2c1b2 call WhiteBGMap call Functione5f ld hl, $c4de ld b, $9 ld c, $e call TextBox ld hl, $c508 ld de, PlayerName call PlaceString ld hl, $c56c ld de, $d26b call PlaceString ld hl, $c549 ld a, $69 ld [hli], a ld [hl], $6a callba Function2c10d ld b, $8 call GetSGBLayout call Function32f9 ld a, $e4 ld [rOBP0], a ret ; 2c1ef TrainerClassNames: ; 2c1ef db "LEADER@" db "LEADER@" db "LEADER@" db "LEADER@" db "LEADER@" db "LEADER@" db "LEADER@" db "LEADER@" db "RIVAL@" db "#MON PROF.@" db "ELITE FOUR@" db $4a, " TRAINER@" db "ELITE FOUR@" db "ELITE FOUR@" db "ELITE FOUR@" db "CHAMPION@" db "LEADER@" db "LEADER@" db "LEADER@" db "SCIENTIST@" db "LEADER@" db "YOUNGSTER@" db "SCHOOLBOY@" db "BIRD KEEPER@" db "LASS@" db "LEADER@" db "COOLTRAINER@" db "COOLTRAINER@" db "BEAUTY@" db "#MANIAC@" db "ROCKET@" db "GENTLEMAN@" db "SKIER@" db "TEACHER@" db "LEADER@" db "BUG CATCHER@" db "FISHER@" db "SWIMMER♂@" db "SWIMMER♀@" db "SAILOR@" db "SUPER NERD@" db "RIVAL@" db "GUITARIST@" db "HIKER@" db "BIKER@" db "LEADER@" db "BURGLAR@" db "FIREBREATHER@" db "JUGGLER@" db "BLACKBELT@" db "ROCKET@" db "PSYCHIC@" db "PICNICKER@" db "CAMPER@" db "ROCKET@" db "SAGE@" db "MEDIUM@" db "BOARDER@" db "#FAN@" db "KIMONO GIRL@" db "TWINS@" db "#FAN@" db $4a, " TRAINER@" db "LEADER@" db "OFFICER@" db "ROCKET@" db "MYSTICALMAN@" ; no known jump sources Function2c41a: ; 2c41a (b:441a) ld a, c ld de, $3 ld hl, $442c call IsInArray jp nc, Function2c545 inc hl ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 2c42c (b:442c) INCBIN "baserom.gbc",$2c42c,$2c487 - $2c42c ld a, [EnemyScreens] ; $c700 bit 3, a ret ld a, [EnemySubStatus4] ; $c670 bit 1, a ret ld a, [EnemySubStatus4] ; $c670 bit 2, a ret ld a, [PlayerSubStatus3] ; $c66a bit 7, a ret nz ld a, [PlayerScreens] ; $c6ff bit 2, a ret ld a, [EnemySubStatus5] ; $c671 bit 3, a ret ld a, [EnemyScreens] ; $c700 bit 4, a ret ; 2c4b1 (b:44b1) INCBIN "baserom.gbc",$2c4b1,$2c4b7 - $2c4b1 ld a, [PlayerSubStatus4] ; $c66b bit 7, a ret ld a, [PlayerDisableCount] ; $c675 and a ret ld a, [PlayerSubStatus5] ; $c66c bit 4, a ret ld a, [EnemyMonStatus] ; $d214 and $7 jr z, .asm_2c541 jr Function2c545 ld a, [EnemySubStatus5] ; $c671 bit 7, a ret ; 2c4d7 (b:44d7) INCBIN "baserom.gbc",$2c4d7,$2c4e3 - $2c4d7 ld a, [PlayerScreens] ; $c6ff bit 0, a ret ld a, [PlayerSubStatus1] ; $c668 bit 3, a ret ld a, [PlayerSubStatus1] ; $c668 bit 4, a ret ld a, [Weather] ; $c70a cp $3 jr z, .asm_2c541 jr Function2c545 callba Function0x377f5 jr c, .asm_2c541 ld a, [PlayerSubStatus1] ; $c668 bit 7, a ret ld a, [EnemyScreens] ; $c700 bit 2, a ret ld a, [Weather] ; $c70a cp $1 jr z, .asm_2c541 jr Function2c545 ld a, [Weather] ; $c70a cp $2 jr z, .asm_2c541 jr Function2c545 ld a, [BattleMonStatus] ; $c63a and $7 jr z, .asm_2c541 jr Function2c545 ld a, [PlayerSubStatus3] ; $c66a bit 7, a ret ld a, [EnemyScreens] ; $c700 bit 5, a ret callba AICheckEnemyMaxHP jr nc, Function2c545 .asm_2c541 ld a, $1 and a ret ; known jump sources: 2c424 (b:4424), 2c4cf (b:44cf), 2c4fc (b:44fc), 2c519 (b:4519), 2c522 (b:4522), 2c52b (b:452b), 2c53f (b:453f) Function2c545: ; 2c545 (b:4545) xor a ret Function2c547: ; 2c547 ld hl, $45ef call PrintText call YesNoBox jr c, .asm_2c5c3 ld hl, $45f4 call PrintText callba Function50000 jr c, .asm_2c5c3 ld a, [CurPartySpecies] cp $fd jr z, .asm_2c5bc ld a, [CurPartyMon] ld hl, PartyMon1Move2 ld bc, $0030 call AddNTimes ld a, [hl] and a jr z, .asm_2c5ca ld hl, $45ea call PrintText call Function1d6e callba Function12f5b push af call Function2b74 pop af jr c, .asm_2c5c3 ld a, [$cfa9] push af ld a, [CurSpecies] ld [$d265], a call GetMoveName ld hl, $45d6 call PrintText call YesNoBox pop bc jr c, .asm_2c5c3 call Function2c5f9 call WaitSFX ld de, $0097 call PlaySFX call WaitSFX ld hl, $45db call PrintText ret .asm_2c5bc ld hl, $45e0 call PrintText ret .asm_2c5c3 ld hl, $45e5 call PrintText ret .asm_2c5ca ld hl, $45d1 call PrintText ret ; 2c5d1 INCBIN "baserom.gbc",$2c5d1,$2c5f9 - $2c5d1 Function2c5f9: ; 2c5f9 ld a, b push bc dec a ld c, a ld b, $0 ld hl, PartyMon1Move1 add hl, bc ld a, [CurPartyMon] ld bc, $0030 call AddNTimes pop bc push bc inc b .asm_2c60f ld a, b cp $5 jr z, .asm_2c61b inc hl ld a, [hld] ld [hl], a inc hl inc b jr .asm_2c60f .asm_2c61b xor a ld [hl], a pop bc ld a, b push bc dec a ld c, a ld b, $0 ld hl, PartyMon1PP add hl, bc ld a, [CurPartyMon] ld bc, $0030 call AddNTimes pop bc inc b .asm_2c633 ld a, b cp $5 jr z, .asm_2c63f inc hl ld a, [hld] ld [hl], a inc hl inc b jr .asm_2c633 .asm_2c63f xor a ld [hl], a ret ; 2c642 ; no known jump sources Function2c642: ; 2c642 (b:4642) ld de, OverworldMap ; $c800 ld a, $1 ld [de], a inc de ld a, $1 call GetSRAMBank ld hl, $a009 ld a, [hli] ld [de], a ld b, a inc de ld a, [hl] ld [de], a ld c, a inc de push bc ld hl, $a00b ld bc, $b call CopyBytes push de ld hl, $aa27 ld b, $20 call CountSetBits pop de pop bc ld a, [$d265] ld [de], a inc de call CloseSRAM call Random and $1 ld [de], a inc de call Function2c6ac ld [de], a inc de ld a, c ld c, b ld b, a call Function2c6ac ld [de], a inc de ld a, $0 call GetSRAMBank ld a, [$abe4] ld [de], a inc de ld a, [$abe5] ld [de], a ld a, $14 ld [$ca00], a call CloseSRAM ld hl, OverworldMap ; $c800 ld de, $c950 ld bc, $14 jp CopyBytes ; known jump sources: 2c67d (b:467d), 2c685 (b:4685) Function2c6ac: ; 2c6ac (b:46ac) push de call Random cp $19 jr c, .asm_2c6cc call Random and $7 ld d, a rl d ld e, $80 .asm_2c6be rlc e dec a jr nz, .asm_2c6be ld a, e and c jr z, .asm_2c6c9 ld a, $1 .asm_2c6c9 add d jr .asm_2c706 .asm_2c6cc call Random cp $32 jr c, .asm_2c6ed call Random and $3 ld d, a rl d ld e, $80 .asm_2c6dd rlc e dec a jr nz, .asm_2c6dd ld a, e and b jr z, .asm_2c6e8 ld a, $1 .asm_2c6e8 add d add $10 jr .asm_2c706 .asm_2c6ed call Random cp $32 jr c, .asm_2c6fd ld a, b swap a and $7 add $18 jr .asm_2c706 .asm_2c6fd ld a, b and $80 ld a, $20 jr z, .asm_2c706 ld a, $21 .asm_2c706 pop de ret ; no known jump sources Function2c708: ; 2c708 (b:4708) ld a, c cp $25 jr nc, asm_2c722 ld hl, $4725 ld b, $0 add hl, bc ld c, [hl] ret ; no known jump sources Function2c715: ; 2c715 (b:4715) ld a, c cp $25 jr nc, asm_2c722 ld hl, $474a ld b, $0 add hl, bc ld c, [hl] ret ; known jump sources: 2c70b (b:470b), 2c718 (b:4718) asm_2c722: ; 2c722 (b:4722) ld c, $4 ret ; 2c725 (b:4725) INCBIN "baserom.gbc",$2c725,$2c76f - $2c725 ; no known jump sources Function2c76f: ; 2c76f (b:476f) ld a, $1 ld [$FF00+$aa], a call Function2c8d3 ld a, $0 ld [$FF00+$aa], a ret nc call Function1bee call WaitBGMap ld a, [CurItem] ; $d106 dec a ld [$d107], a ld hl, TMsHMs ; $d859 ld c, a ld b, $0 add hl, bc ld a, [hl] ld [$d10d], a call Function2c798 scf ret ; known jump sources: 2c793 (b:4793) Function2c798: ; 2c798 (b:4798) ld a, [CurItem] ; $d106 ld c, a callab GetNumberedTMHM ld a, c ld [CurItem], a ; $d106 ret ; known jump sources: 2c7b6 (b:47b6), 2cb0c (b:4b0c) Function2c7a7: ; 2c7a7 (b:47a7) ld a, [CurItem] ; $d106 ld c, a callab GetTMHMNumber ld a, c ld [$d265], a ret ; known jump sources: 2c7cd (b:47cd) Function2c7b6: ; 2c7b6 (b:47b6) call Function2c7a7 ld a, $f call Predef ret Function2c7bf: ; 2c7bf (b:47bf) ld hl, Options ; $cfcc ld a, [hl] push af res 4, [hl] ld a, [CurItem] ; $d106 cp $bf jr c, .asm_2c7f5 call Function2c7b6 ld a, [$d265] ld [$d262], a call GetMoveName call CopyName1 ld hl, $48bf ld a, [CurItem] ; $d106 cp $f3 jr c, .asm_2c7e9 ld hl, $48c4 .asm_2c7e9 call PrintText ld hl, $48c9 call PrintText call YesNoBox .asm_2c7f5 pop bc ld a, b ld [Options], a ; $cfcc ret Function2c7fb: ; 2c7fb ld hl, StringBuffer2 ld de, $d066 ld bc, $000c call CopyBytes call WhiteBGMap Function2c80a: ; 2c80a callba Function5004f callba Function50405 callba Function503e0 ld a, $3 ld [PartyMenuActionText], a .asm_2c821 callba WritePartyMenuTilemap callba PrintPartyMenuText call WaitBGMap call Function32f9 call DelayFrame callba PartyMenuSelect push af ld a, [CurPartySpecies] cp EGG pop bc jr z, .asm_2c854 push bc ld hl, $d066 ld de, StringBuffer2 ld bc, $000c call CopyBytes pop af ret .asm_2c854 push hl push de push bc push af ld de, SFX_WRONG call PlaySFX call WaitSFX pop af pop bc pop de pop hl jr .asm_2c821 ; 2c867 Function2c867: ; 2c867 ld a, $e call Predef push bc ld a, [CurPartyMon] ; $d109 ld hl, PartyMonNicknames ; $de41 (aliases: PartyMon1Nickname) call GetNick pop bc ld a, c and a jr nz, .asm_2c88b push de ld de, $19 call PlaySFX pop de ld hl, $48ce call PrintText jr .asm_2c8b6 .asm_2c88b callab Functionf9ea jr c, .asm_2c8b6 ld a, $0 call Predef ld a, b and a jr z, .asm_2c8b6 callba Function106049 ld a, [CurItem] ; $d106 call IsHM ret c ld c, $5 callab ChangeHappiness call Function2cb0c jr .asm_2c8bd .asm_2c8b6 and a ret ; 2c8b8 (b:48b8) INCBIN "baserom.gbc",$2c8b8,$2c8bd - $2c8b8 .asm_2c8bd scf ret ; 2c8bf (b:48bf) INCBIN "baserom.gbc",$2c8bf,$2c8d3 - $2c8bf ; known jump sources: 2c773 (b:4773) Function2c8d3: ; 2c8d3 (b:48d3) xor a ld [hBGMapMode], a ; $ff00+$d4 call Function2c9e2 ld a, $2 ld [$cfa1], a ld a, $7 ld [$cfa2], a ld a, $1 ld [$cfa4], a ld a, $5 sub d inc a cp $6 jr nz, .asm_2c8f1 dec a .asm_2c8f1 ld [$cfa3], a ld a, $c ld [$cfa5], a xor a ld [$cfa6], a ld a, $20 ld [$cfa7], a ld a, $f3 ld [$cfa8], a ld a, [$d0dc] inc a ld [$cfa9], a ld a, $1 ld [$cfaa], a jr Function2c946 ; known jump sources: 2c95b (b:495b), 2c971 (b:4971), 2c9bb (b:49bb), 2c9ce (b:49ce) Function2c915: ; 2c915 (b:4915) call Function2c9e2 call Function1bc9 ld b, a ld a, [$cfa9] dec a ld [$d0dc], a xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, [$cfa6] bit 7, a jp nz, Function2c9b1 ld a, b ld [$cf73], a bit 0, a jp nz, Function2c974 bit 1, a jp nz, Function2c9a5 bit 4, a jp nz, Function2c9af bit 5, a jp nz, Function2c9af ; known jump sources: 2c913 (b:4913), 2c9c2 (b:49c2), 2c9df (b:49df) Function2c946: ; 2c946 (b:4946) call Function2c98a jp nc, Function2c9af ld hl, $c590 ld b, $4 ld c, $12 call TextBox ld a, [CurItem] ; $d106 cp $3a jr nc, Function2c915 ld [$d265], a ld a, $f call Predef ld a, [$d265] ld [CurSpecies], a ; $cf60 ld hl, $c5b9 call PrintMoveDesc jp Function2c915 ; known jump sources: 2c934 (b:4934) Function2c974: ; 2c974 (b:4974) call Function2cad6 call Function2cb2a ld a, [$cfa9] dec a ld b, a ld a, [$d0e2] add b ld b, a ld a, [$d265] cp b jr z, asm_2c9a8 ; known jump sources: 2c946 (b:4946) Function2c98a: ; 2c98a (b:498a) call Function2cab5 ld a, [$cfa9] ld b, a .asm_2c991 inc c ld a, c cp $3a jr nc, .asm_2c99f ld a, [hli] and a jr z, .asm_2c991 dec b jr nz, .asm_2c991 ld a, c .asm_2c99f ld [CurItem], a ; $d106 cp $ff ret ; known jump sources: 2c939 (b:4939) Function2c9a5: ; 2c9a5 (b:49a5) call Function2cad6 ; known jump sources: 2c988 (b:4988) asm_2c9a8: ; 2c9a8 (b:49a8) ld a, $2 ld [$cf73], a and a ret ; known jump sources: 2c93e (b:493e), 2c943 (b:4943), 2c949 (b:4949) Function2c9af: ; 2c9af (b:49af) and a ret ; known jump sources: 2c92b (b:492b) Function2c9b1: ; 2c9b1 (b:49b1) ld a, b bit 7, a jr nz, .asm_2c9c5 ld hl, $d0e2 ld a, [hl] and a jp z, Function2c915 dec [hl] call Function2c9e2 jp Function2c946 .asm_2c9c5 call Function2cab5 ld b, $5 .asm_2c9ca inc c ld a, c cp $3a jp nc, Function2c915 ld a, [hli] and a jr z, .asm_2c9ca dec b jr nz, .asm_2c9ca ld hl, $d0e2 inc [hl] call Function2c9e2 jp Function2c946 ; known jump sources: 2c8d6 (b:48d6), 2c915 (b:4915), 2c9bf (b:49bf), 2c9dc (b:49dc) Function2c9e2: ; 2c9e2 (b:49e2) ld a, [BattleType] ; $d230 cp $3 jp z, Function2caca ld hl, $c4cd ld bc, $a0f ld a, $7f call ClearBox call Function2cab5 ld d, $5 .asm_2c9fa inc c ld a, c cp $3a jr nc, .asm_2ca77 ld a, [hli] and a jr z, .asm_2c9fa ld b, a ld a, c ld [$d265], a push hl push de push bc call Function2ca86 push hl ld a, [$d265] cp $33 jr nc, .asm_2ca22 ld de, $d265 ld bc, $8102 call PrintNum jr .asm_2ca38 .asm_2ca22 push af sub $32 ld [$d265], a ld [hl], $87 inc hl ld de, $d265 ld bc, $4102 call PrintNum pop af ld [$d265], a .asm_2ca38 ld a, $f call Predef ld a, [$d265] ld [$d262], a call GetMoveName pop hl ld bc, $3 add hl, bc push hl call PlaceString pop hl pop bc ld a, c push bc cp $33 jr nc, .asm_2ca6f ld bc, $1d add hl, bc ld [hl], $f1 inc hl ld a, $f6 pop bc push bc ld a, b ld [$d265], a ld de, $d265 ld bc, $102 call PrintNum .asm_2ca6f pop bc pop de pop hl dec d jr nz, .asm_2c9fa jr .asm_2ca85 .asm_2ca77 call Function2ca86 inc hl inc hl inc hl push de ld de, $4aae call PlaceString pop de .asm_2ca85 ret ; known jump sources: 2ca0c (b:4a0c), 2ca77 (b:4a77) Function2ca86: ; 2ca86 (b:4a86) ld hl, $c4a5 ld bc, $28 ld a, $6 sub d ld e, a .asm_2ca90 add hl, bc dec e jr nz, .asm_2ca90 ret ; 2ca95 (b:4a95) INCBIN "baserom.gbc",$2ca95,$2cab5 - $2ca95 ; known jump sources: 2c98a (b:498a), 2c9c5 (b:49c5), 2c9f5 (b:49f5) Function2cab5: ; 2cab5 (b:4ab5) ld hl, TMsHMs ; $d859 ld a, [$d0e2] ld b, a inc b ld c, $0 .asm_2cabf inc c ld a, [hli] and a jr z, .asm_2cabf dec b jr nz, .asm_2cabf dec hl dec c ret ; known jump sources: 2c9e7 (b:49e7) Function2caca: ; 2caca (b:4aca) ld hl, $c4e5 push de ld de, $4aae call PlaceString pop de ret ; known jump sources: 2c974 (b:4974), 2c9a5 (b:49a5) Function2cad6: ; 2cad6 (b:4ad6) push de ld de, $8 call PlaySFX pop de ret ; 2cadf (b:4adf) INCBIN "baserom.gbc",$2cadf,$2cb0c - $2cadf ; known jump sources: 2c8b1 (b:48b1) Function2cb0c: ; 2cb0c (b:4b0c) call Function2c7a7 ld a, [$d265] dec a ld hl, TMsHMs ; $d859 ld b, $0 ld c, a add hl, bc ld a, [hl] and a ret z dec a ld [hl], a ret nz ld a, [$d0e2] and a ret z dec a ld [$d0e2], a ret ; known jump sources: 2c977 (b:4977) Function2cb2a: ; 2cb2a (b:4b2a) ld b, $0 ld c, $39 ld hl, TMsHMs ; $d859 .asm_2cb31 ld a, [hli] and a jr z, .asm_2cb36 inc b .asm_2cb36 dec c jr nz, .asm_2cb31 ld a, b ld [$d265], a ret PrintMoveDesc: ; 2cb3e push hl ld hl, MoveDescriptions ld a, [CurSpecies] dec a ld c, a ld b, 0 add hl, bc add hl, bc ld a, [hli] ld e, a ld d, [hl] pop hl jp PlaceString ; 2cb52 MoveDescriptions: ; 2cb52 INCLUDE "battle/moves/move_descriptions.asm" ; 2ed44 Function2ed44: ; 2ed44 call ConvertBerriesToBerryJuice ld hl, PartyMon1PokerusStatus ld a, [PartyCount] ld b, a ld de, $0030 .loopMons ld a, [hl] and $f jr nz, .monHasActivePokerus add hl, de dec b jr nz, .loopMons ld hl, StatusFlags2 bit 6, [hl] ret z call Random ld a, [hRandomAdd] and a ret nz ld a, [hRandomSub] cp $3 ret nc ; 3/65536 chance (00 00, 00 01 or 00 02) ld a, [PartyCount] ld b, a .randomMonSelectLoop call Random and $7 cp b jr nc, .randomMonSelectLoop ld hl, PartyMon1PokerusStatus call GetPartyLocation ; get pokerus byte of random mon ld a, [hl] and $f0 ret nz ; if it already has pokerus, do nothing .randomPokerusLoop call Random and a jr z, .randomPokerusLoop ld b, a and $f0 jr z, .asm_2ed91 ld a, b and $7 inc a .asm_2ed91 ld b, a swap b and $3 inc a add b ld [hl], a ret .monHasActivePokerus call Random cp $55 ret nc ; 1/3 chance ld a, [PartyCount] cp $1 ret z ; only one mon, nothing to do ld c, [hl] ld a, b cp $2 jr c, .checkPreviousMonsLoop ; no more mons after this one, go backwards call Random cp $80 jr c, .checkPreviousMonsLoop ; 1/2 chance, go backwards .checkFollowingMonsLoop add hl, de ld a, [hl] and a jr z, .infectMon ld c, a and $3 ret z ; if mon has cured pokerus, stop searching dec b ; go on to next mon ld a, b cp $1 jr nz, .checkFollowingMonsLoop ; no more mons left ret .checkPreviousMonsLoop ld a, [PartyCount] cp b ret z ; no more mons ld a, l sub e ld l, a ld a, h sbc d ld h, a ld a, [hl] and a jr z, .infectMon ld c, a and $3 ret z ; if mon has cured pokerus, stop searching inc b ; go on to next mon jr .checkPreviousMonsLoop .infectMon ld a, c and $f0 ld b, a ld a, c swap a and $3 inc a add b ld [hl], a ret ; 2ede6 ; any berry held by a Shuckle may be converted to berry juice ConvertBerriesToBerryJuice: ; 2ede6 ld hl, StatusFlags2 bit 6, [hl] ret z call Random cp $10 ret nc ; 1/16 chance ld hl, PartyMons ld a, [PartyCount] .partyMonLoop push af push hl ld a, [hl] cp SHUCKLE jr nz, .nextMon ld bc, PartyMon1Item - PartyMon1Species add hl, bc ld a, [hl] cp BERRY jr z, .convertToJuice .nextMon pop hl ld bc, PartyMon2 - PartyMon1 add hl, bc pop af dec a jr nz, .partyMonLoop ret .convertToJuice ld a, BERRY_JUICE ld [hl], a pop hl pop af ret ; 2ee18 Function2ee18: ; 2ee18 ld a, [InLinkBattle] and a ret z callba Function2c1b2 ld c, 150 call DelayFrames call ClearTileMap call ClearSprites ret ; 2ee2f Function2ee2f: ; 2ee2f xor a ld [$ffde], a call DelayFrame ld b, 6 ld hl, PartyMon1CurHP ld de, PartyMon2 - PartyMon1 - 1 .asm_2ee3d ld a, [hli] or [hl] jr nz, .asm_2ee45 add hl, de dec b jr nz, .asm_2ee3d .asm_2ee45 ld de, PartyMon1Level - PartyMon1CurHP add hl, de ld a, [hl] ld [BattleMonLevel], a ld a, PREDEF_BATTLE_TRANSITION call Predef callba Function3ed9f ld a, 1 ld [hBGMapMode], a call ClearSprites call ClearTileMap xor a ld [hBGMapMode], a ld [hWY], a ld [rWY], a ld [$ffde], a ret ; 2ee6c PlayBattleMusic: ; 2ee6c push hl push de push bc xor a ld [MusicFade], a ld de, MUSIC_NONE call PlayMusic call DelayFrame call MaxVolume ld a, [BattleType] cp BATTLETYPE_SUICUNE ld de, MUSIC_SUICUNE_BATTLE jp z, .done cp BATTLETYPE_ROAMING jp z, .done ; Are we fighting a trainer? ld a, [OtherTrainerClass] and a jr nz, .trainermusic callba RegionCheck ld a, e and a jr nz, .kantowild ld de, MUSIC_JOHTO_WILD_BATTLE ld a, [TimeOfDay] cp NITE jr nz, .done ld de, MUSIC_JOHTO_WILD_BATTLE_NIGHT jr .done .kantowild ld de, MUSIC_KANTO_WILD_BATTLE jr .done .trainermusic ld de, MUSIC_CHAMPION_BATTLE cp CHAMPION jr z, .done cp RED jr z, .done ; really, they should have included admins and scientists here too... ld de, MUSIC_ROCKET_BATTLE cp GRUNTM jr z, .done cp GRUNTF jr z, .done ld de, MUSIC_KANTO_GYM_LEADER_BATTLE callba IsKantoGymLeader jr c, .done ld de, MUSIC_JOHTO_GYM_LEADER_BATTLE callba IsJohtoGymLeader jr c, .done ld de, MUSIC_RIVAL_BATTLE ld a, [OtherTrainerClass] cp RIVAL1 jr z, .done cp RIVAL2 jr nz, .othertrainer ld a, [OtherTrainerID] cp 4 ; Rival in Indigo Plateau jr c, .done ld de, MUSIC_CHAMPION_BATTLE jr .done .othertrainer ld a, [InLinkBattle] and a jr nz, .johtotrainer callba RegionCheck ld a, e and a jr nz, .kantotrainer .johtotrainer ld de, MUSIC_JOHTO_TRAINER_BATTLE jr .done .kantotrainer ld de, MUSIC_KANTO_TRAINER_BATTLE .done call PlayMusic pop bc pop de pop hl ret ; 2ef18 ClearBattleRAM: ; 2ef18 xor a ld [$d0ec], a ld [$d0ee], a ld hl, $d0d8 ld [hli], a ld [hli], a ld [hli], a ld [hl], a ld [$d0e4], a ld [CriticalHit], a ld [BattleMonSpecies], a ld [$c664], a ld [CurBattleMon], a ld [$d232], a ld [TimeOfDayPal], a ld [PlayerTurnsTaken], a ld [EnemyTurnsTaken], a ld [EvolvableFlags], a ld hl, PlayerHPPal ld [hli], a ld [hl], a ld hl, BattleMonDVs ld [hli], a ld [hl], a ld hl, EnemyMonDVs ld [hli], a ld [hl], a ; Clear the entire BattleMons area ld hl, EnemyMoveStruct ld bc, $0139 xor a call ByteFill callab Function3d867 call Function1fbf ld hl, hBGMapAddress xor a ld [hli], a ld [hl], $98 ret ; 2ef6e FillBox: ; 2ef6e ; Fill $c2c6-aligned box width b height c ; with iterating tile starting from $ffad at hl. ; Predef $13 ld de, 20 ld a, [$c2c6] and a jr nz, .left ld a, [$ffad] .x1 push bc push hl .y1 ld [hl], a add hl, de inc a dec c jr nz, .y1 pop hl inc hl pop bc dec b jr nz, .x1 ret .left ; Right-aligned. push bc ld b, 0 dec c add hl, bc pop bc ld a, [$ffad] .x2 push bc push hl .y2 ld [hl], a add hl, de inc a dec c jr nz, .y2 pop hl dec hl pop bc dec b jr nz, .x2 ret ; 2ef9f SECTION "Tileset Data 4", ROMX, BANK[TILESETS_4] INCLUDE "tilesets/data_4.asm" SECTION "bankD", ROMX, BANK[$D] INCLUDE "battle/effect_commands.asm" SECTION "bankE", ROMX, BANK[$E] Function38000: ; 38000 and a ld a, [IsInBattle] dec a ret z ld a, [InLinkBattle] and a ret nz callba Function3e8d1 ret nz ld a, [PlayerSubStatus5] bit 7, a jr nz, Function38041 ld a, [$c731] and a jr nz, Function38041 ld hl, $55a1 ld a, [$cfc0] and a jr nz, .asm_38032 ld a, [TrainerClass] dec a ld bc, $0007 call AddNTimes .asm_38032 bit 0, [hl] jp nz, Function38045 bit 1, [hl] jp nz, Function38083 bit 2, [hl] jp nz, Function380c1 ; fallthrough ; 38041 Function38041: ; 38041 call Function38105 ret ; 38045 Function38045: ; 38045 callab Function0x34941 ld a, [$c717] and $f0 jp z, Function38041 cp $10 jr nz, .asm_38061 call Random cp $80 jr c, .asm_38077 jp Function38041 .asm_38061 cp $20 jr nz, .asm_3806f call Random cp $c8 jr c, .asm_38077 jp Function38041 .asm_3806f call Random cp $a jp c, Function38041 .asm_38077 ld a, [$c717] and $f inc a ld [$c718], a jp Function3844b ; 38083 Function38083: ; 38083 callab Function0x34941 ld a, [$c717] and $f0 jp z, Function38041 cp $10 jr nz, .asm_3809f call Random cp $14 jr c, .asm_380b5 jp Function38041 .asm_3809f cp $20 jr nz, .asm_380ad call Random cp $1e jr c, .asm_380b5 jp Function38041 .asm_380ad call Random cp $c8 jp c, Function38041 .asm_380b5 ld a, [$c717] and $f inc a ld [$c718], a jp Function3844b ; 380c1 Function380c1: ; 380c1 callab Function0x34941 ld a, [$c717] and $f0 jp z, Function38041 cp $10 jr nz, .asm_380dd call Random cp $32 jr c, .asm_380f3 jp Function38041 .asm_380dd cp $20 jr nz, .asm_380eb call Random cp $80 jr c, .asm_380f3 jp Function38041 .asm_380eb call Random cp $32 jp c, Function38041 .asm_380f3 ld a, [$c717] and $f inc a ld [$c718], a jp Function3844b ; 380ff Function380ff: ; 380ff ld a, [EnemySubStatus5] bit 7, a ret ; 38105 Function38105: ; 38105 ld a, [$cfc0] and a ret nz ld a, [$c650] ld b, a ld a, [$c651] or b ret z call Function38170 ret nc ld a, [TrainerClass] dec a ld hl, $55a1 ld bc, $0007 call AddNTimes ld b, h ld c, l ld hl, $4196 ld de, $c650 .asm_3812c ld a, [hl] and a inc a ret z ld a, [de] cp [hl] jr z, .asm_3813f inc de ld a, [de] cp [hl] jr z, .asm_3813f dec de inc hl inc hl inc hl jr .asm_3812c .asm_3813f inc hl push hl push de ld de, $414a push de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 3814a pop de pop hl inc hl inc hl jr c, .asm_3812c xor a ld [de], a inc a ld [$c70f], a ld hl, EnemySubStatus3 ; $c66f res 0, [hl] xor a ld [EnemyFuryCutterCount], a ; $c680 ld [$c681], a ld [$c72c], a ld hl, EnemySubStatus4 ; $c670 res 6, [hl] xor a ld [LastPlayerCounterMove], a ; $c6f9 scf ret Function38170: ; 38170 ld a, [OTPartyCount] ld d, a ld e, $0 ld hl, OTPartyMon1Level ld bc, $0030 .asm_3817c ld a, [hl] cp e jr c, .asm_38181 ld e, a .asm_38181 add hl, bc dec d jr nz, .asm_3817c ld a, [CurOTMon] ld hl, OTPartyMon1Level call AddNTimes ld a, [hl] cp e jr nc, .asm_38194 and a ret .asm_38194 scf ret ; 38196 INCBIN "baserom.gbc",$38196,$381be - $38196 call Function381ca jp c, Function38383 call Function383a3 jp Function38385 ; known jump sources: 381be (e:41be), 38214 (e:4214) Function381ca: ; 381ca (e:41ca) ld a, [EnemyMonStatus] ; $d214 and a jp z, Function38383 ld a, [bc] bit 6, a jr nz, .asm_381e7 ld a, [bc] bit 4, a jp nz, Function38385 call Random cp $32 jp c, Function38385 jp Function38383 .asm_381e7 ld a, [EnemySubStatus5] ; $c671 bit 0, a jr z, .asm_381fd ld a, [$c67c] cp $4 jr c, .asm_381fd call Random cp $80 jp c, Function38385 .asm_381fd ld a, [EnemyMonStatus] ; $d214 and $27 jp z, Function38383 jp Function38385 call Function3822c jp nc, Function3821a ld a, [bc] bit 6, a jp z, Function38383 call Function381ca jp c, Function38383 ; known jump sources: 3820b (e:420b) Function3821a: ; 3821a (e:421a) call Function383b5 jp Function38385 call Function3822c jp c, Function38383 call Function383ae jp Function38385 ; known jump sources: 38208 (e:4208), 38220 (e:4220), 38284 (e:4284) Function3822c: ; 3822c (e:422c) ld a, [bc] bit 6, a jr nz, asm_38267 callab AICheckEnemyHalfHP jp c, Function38383 ld a, [bc] bit 5, a jp nz, Function38254 callab AICheckEnemyQuarterHP jp nc, Function38281 call Random cp $80 jp c, Function38281 jp Function38383 ; known jump sources: 3823d (e:423d) Function38254: ; 38254 (e:4254) callab AICheckEnemyQuarterHP jp c, Function38383 call Random cp $32 jp c, Function38383 jr Function38281 asm_38267: ; 38267 (e:4267) callab AICheckEnemyHalfHP jp c, Function38383 callab AICheckEnemyQuarterHP jp nc, Function38281 call Random cp $32 jp nc, Function38383 ; known jump sources: 38246 (e:4246), 3824e (e:424e), 38265 (e:4265), 38276 (e:4276) Function38281: ; 38281 (e:4281) jp Function38385 call Function3822c jp c, Function38383 ld b, $c8 call Function383f4 jp Function38385 ; 38292 (e:4292) INCBIN "baserom.gbc",$38292,$38311 - $38292 call Function3834d jp c, Function38383 call Function38511 jp Function38385 ; 3831d (e:431d) INCBIN "baserom.gbc",$3831d,$3834d - $3831d ; known jump sources: 38311 (e:4311) Function3834d: ; 3834d (e:434d) ld a, [EnemyTurnsTaken] ; $c6dc and a jr nz, .asm_38372 ld a, [bc] bit 4, a jp nz, Function38385 call Random cp $80 jp c, Function38383 ld a, [bc] bit 6, a jp nz, Function38385 call Random cp $80 jp c, Function38383 jp Function38385 .asm_38372 ld a, [bc] bit 4, a jp z, Function38383 call Random cp $32 jp nc, Function38383 jp Function38385 ; known jump sources: 381c1 (e:41c1), 381ce (e:41ce), 381e4 (e:41e4), 38202 (e:4202), 38211 (e:4211), 38217 (e:4217), 38223 (e:4223), 38237 (e:4237), 38251 (e:4251), 3825a (e:425a), 38262 (e:4262), 3826d (e:426d), 3827e (e:427e), 38287 (e:4287), 38314 (e:4314), 3835e (e:435e), 3836c (e:436c), 38375 (e:4375), 3837d (e:437d) Function38383: ; 38383 (e:4383) scf ret ; known jump sources: 381c7 (e:41c7), 381d9 (e:41d9), 381e1 (e:41e1), 381fa (e:41fa), 38205 (e:4205), 3821d (e:421d), 38229 (e:4229), 38281 (e:4281), 3828f (e:428f), 3831a (e:431a), 38356 (e:4356), 38364 (e:4364), 3836f (e:436f), 38380 (e:4380) Function38385: ; 38385 (e:4385) and a ret Function38387: ; 38387 call UpdateEnemyMonInParty callba Function3e036 ld a, $1 ld [hBGMapMode], a ld hl, $c6e6 dec [hl] scf ret ; 3839a Function3839a: ; 3839a push de ld de, SFX_FULL_HEAL call PlaySFX pop de ret ; 383a3 ; known jump sources: 381c4 (e:41c4) Function383a3: ; 383a3 (e:43a3) call Function3839a call Function384e0 ld a, $26 jp Function38568 ; known jump sources: 38226 (e:4226) Function383ae: ; 383ae (e:43ae) ld a, $f ld [$d1f1], a jr asm_383c6 ; known jump sources: 3821a (e:421a) Function383b5: ; 383b5 (e:43b5) call Function384e0 ld a, $e ld [$d1f1], a ld hl, EnemySubStatus3 ; $c66f res 7, [hl] xor a ld [EnemyConfuseCount], a ; $c67b asm_383c6: ; 383c6 (e:43c6) ld de, $d1ec ld hl, EnemyMonHPLo ; $d217 ld a, [hld] ld [de], a inc de ld a, [hl] ld [de], a inc de ld hl, EnemyMonMaxHPLo ; $d219 ld a, [hld] ld [de], a inc de ld [Buffer1], a ; $d1ea (aliases: MagikarpLength) ld [EnemyMonHPLo], a ; $d217 ld a, [hl] ld [de], a ld [Buffer2], a ; $d1eb (aliases: MovementType) ld [EnemyMonHPHi], a ; $d216 (aliases: EnemyMonHP) jr asm_38436 ; 383e8 (e:43e8) INCBIN "baserom.gbc",$383e8,$383f4 - $383e8 ; known jump sources: 3828c (e:428c) Function383f4: ; 383f4 (e:43f4) ld a, $10 ld b, $c8 ld [$d1f1], a ld hl, EnemyMonHPLo ; $d217 ld a, [hl] ld [$d1ec], a add b ld [hld], a ld [$d1ee], a ld a, [hl] ld [$d1ed], a ld [$d1ef], a jr nc, .asm_38415 inc a ld [hl], a ld [$d1ef], a .asm_38415 inc hl ld a, [hld] ld b, a ld de, EnemyMonMaxHPLo ; $d219 ld a, [de] dec de ld [Buffer1], a ; $d1ea (aliases: MagikarpLength) sub b ld a, [hli] ld b, a ld a, [de] ld [Buffer2], a ; $d1eb (aliases: MovementType) sbc b jr nc, asm_38436 inc de ld a, [de] dec de ld [hld], a ld [$d1ee], a ld a, [de] ld [hl], a ld [$d1ef], a asm_38436: ; 38436 (e:4436) call Function38571 ld hl, $c4ca xor a ld [$d10a], a call Function3839a ld a, $b call Predef jp Function38387 Function3844b: ; 3844b ld a, [OTPartyCount] ld c, a ld hl, OTPartyMon1CurHP ld d, 0 .asm_38454 ld a, [hli] ld b, a ld a, [hld] or b jr z, .asm_3845b inc d .asm_3845b push bc ld bc, $0030 add hl, bc pop bc dec c jr nz, .asm_38454 ld a, d cp $2 jp nc, Function3846c and a ret ; 3846c Function3846c: ; 3846c ld a, $1 ld [$c711], a ld [$c70f], a ld hl, EnemySubStatus4 res 6, [hl] xor a ld [hBattleTurn], a callab Function3dc5b push af ld a, [CurOTMon] ld hl, OTPartyMon1Status ld bc, $0030 call AddNTimes ld d, h ld e, l ld hl, EnemyMonStatus ld bc, $0004 call CopyBytes pop af jr c, .asm_384a3 ld hl, UnknownText_0x384d0 call PrintText .asm_384a3 ld a, $1 ld [$d264], a callab Function3d834 callab Function3d867 ld hl, PlayerSubStatus1 res 7, [hl] callba Function3d4e1 callba Function3d57a xor a ld [$d264], a ld a, [InLinkBattle] and a ret nz scf ret ; 384d0 UnknownText_0x384d0: ; 384d0 text_jump UnknownText_0x1bcf9c db "@" ; 384d5 Function384d5: ; 384d5 call Function3839a call Function384e0 ld a, $34 jp Function38568 ; 384e0 Function384e0: ; 384e0 ld a, [CurOTMon] ld hl, OTPartyMon1Status ld bc, $0030 call AddNTimes xor a ld [hl], a ld [EnemyMonStatus], a ld hl, EnemySubStatus5 res 0, [hl] ret ; 384f7 Function384f7: ; 384f7 call Function3839a ld hl, EnemySubStatus4 set 0, [hl] ld a, $21 jp Function38568 ; 38504 Function38504: ; 38504 call Function3839a ld hl, EnemySubStatus4 set 1, [hl] ld a, $29 jp Function38568 ; 38511 Function38511: ; 38511 call Function3839a ld hl, EnemySubStatus4 set 2, [hl] ld a, $2c jp Function38568 ; 3851e Function3851e: ; 3851e ld [hMultiplier], a ld hl, EnemyMonMaxHPHi ld a, [hli] ld [hProduct], a ld a, [hl] ld [hMultiplicand], a ld b, $2 call Divide ld a, [$ffb6] ld c, a ld a, [$ffb5] ld b, a ld hl, EnemyMonHPLo ld a, [hld] ld e, a ld a, [hl] ld d, a ld a, d sub b ret nz ld a, e sub c ret ; 38541 Function38541: ; 38541 ld b, $0 ld a, $31 jr Function38557 ; 38547 Function38547: ; 38547 ld b, $1 ld a, $33 jr Function38557 ; 3854d Function3854d: ; 3854d ld b, $2 ld a, $34 jr Function38557 ; 38553 Function38553: ; 38553 ld b, $3 ld a, $35 Function38557 ld [$d1f1], a push bc call Function38571 pop bc callba Function0x361ef jp Function38387 ; 38568 Function38568: ; 38568 ld [$d1f1], a call Function38571 jp Function38387 ; 38571 Function38571: ; 38571 ld a, [$d1f1] ld [$d265], a call GetItemName ld hl, StringBuffer1 ld de, $d050 ld bc, $000d call CopyBytes ld hl, UnknownText_0x3858c jp PrintText ; 3858c UnknownText_0x3858c: ; 3858c text_jump UnknownText_0x1bcfaf db "@" ; 38591 AIScoring: ; 38591 INCLUDE "battle/ai/scoring.asm" Function3952d: ; 3952d ld hl, RivalName ld a, c cp $9 jr z, .asm_39544 ld [CurSpecies], a ld a, $7 ld [$cf61], a call GetName ld de, StringBuffer1 ret .asm_39544 ld de, StringBuffer1 push de ld bc, $000b call CopyBytes pop de ret ; 39550 Function39550: ; 39550 ld hl, $d26b ld a, [InLinkBattle] and a jr nz, .asm_3956f ld hl, RivalName ld a, c cp $9 jr z, .asm_3956f ld [CurSpecies], a ld a, $7 ld [$cf61], a call GetName ld hl, StringBuffer1 .asm_3956f ld bc, $000d ld de, $c656 push de call CopyBytes pop de ret ; 3957b Function3957b: ; 3957b ld a, [TrainerClass] ld c, a call Function39550 ld a, [TrainerClass] dec a ld hl, $559c ld bc, $0007 call AddNTimes ld de, $c650 ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a ld a, [hl] ld [$c652], a ret ; 3959c INCBIN "baserom.gbc",$3959c,$39771 - $3959c Function39771: ; 39771 ld a, [$cfc0] bit 0, a ret nz ld a, [InLinkBattle] and a ret nz ld hl, OTPartyCount xor a ld [hli], a dec a ld [hl], a ld hl, OTPartyMon1Species ld bc, $0120 xor a call ByteFill ld a, [OtherTrainerClass] cp $c jr nz, .asm_3979e ld a, [OtherTrainerID] cp $2 jr z, .asm_397d3 ld a, [OtherTrainerClass] .asm_3979e dec a ld c, a ld b, $0 ld hl, TrainerGroups add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a ld a, [OtherTrainerID] ld b, a .asm_397ae dec b jr z, .asm_397b8 .asm_397b1 ld a, [hli] cp $ff jr nz, .asm_397b1 jr .asm_397ae .asm_397b8 ld a, [hli] cp $50 jr nz, .asm_397b8 ld a, [hli] ld c, a ld b, $0 ld d, h ld e, l ld hl, $57e3 add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a ld bc, .data_397d0 push bc jp [hl] .data_397d0 .asm_397d0 db $c3 db $1b db $59 .asm_397d3 ld a, $0 call GetSRAMBank ld de, $ac0a call Function39806 call CloseSRAM jr .asm_397d0 ; 397e3 INCBIN "baserom.gbc",$397e3,$397eb - $397e3 ld h, d ld l, e .asm_397ed ld a, [hli] cp $ff ret z ld [CurPartyLevel], a ; $d143 ld a, [hli] ld [CurPartySpecies], a ; $d108 ld a, $1 ld [MonType], a ; $cf5f push hl ld a, $6 call Predef pop hl jr .asm_397ed Function39806: ; 39806 ld h, d ld l, e .asm_39808 ld a, [hli] cp $ff ret z ld [CurPartyLevel], a ld a, [hli] ld [CurPartySpecies], a ld a, $1 ld [MonType], a push hl ld a, $6 call Predef ld a, [OTPartyCount] dec a ld hl, OTPartyMon1Move1 ld bc, $0030 call AddNTimes ld d, h ld e, l pop hl ld b, $4 .asm_39830 ld a, [hli] ld [de], a inc de dec b jr nz, .asm_39830 push hl ld a, [OTPartyCount] dec a ld hl, OTPartyMon1Species ld bc, $0030 call AddNTimes ld d, h ld e, l ld hl, $0017 add hl, de push hl ld hl, $0002 add hl, de pop de ld b, $4 .asm_39852 ld a, [hli] and a jr z, .asm_3986e push hl push bc dec a ld hl, $5b00 ld bc, $0007 call AddNTimes ld a, $10 call GetFarByte pop bc pop hl ld [de], a inc de dec b jr nz, .asm_39852 .asm_3986e pop hl jr .asm_39808 ; 39871 ld h, d ld l, e .asm_39873 ld a, [hli] cp $ff ret z ld [CurPartyLevel], a ; $d143 ld a, [hli] ld [CurPartySpecies], a ; $d108 ld a, $1 ld [MonType], a ; $cf5f push hl ld a, $6 call Predef ld a, [OTPartyCount] ; $d280 dec a ld hl, OTPartyMon1Item ; $d289 ld bc, $30 call AddNTimes ld d, h ld e, l pop hl ld a, [hli] ld [de], a jr .asm_39873 ; 3989d (e:589d) INCBIN "baserom.gbc",$3989d,$3991b - $3989d ; known jump sources: 397d0 (e:57d0) Function3991b: ; 3991b (e:591b) ld hl, hPastLeadingZeroes ; $ffb3 (aliases: hDividend, hProduct) xor a ld [hli], a ld [hli], a ld [hli], a ld a, [$c652] ld [hli], a ld a, [CurPartyLevel] ; $d143 ld [hl], a call Multiply ld hl, $c686 xor a ld [hli], a ld a, [$FF00+$b5] ld [hli], a ld a, [$FF00+$b6] ld [hl], a ret Function39939: ; 39939 ld a, [$cfc0] bit 0, a ld hl, $d26b jp nz, Function39984 ld a, [OtherTrainerID] ld b, a ld a, [OtherTrainerClass] ld c, a Function3994c: ; 3994c ld a, c cp $c jr nz, .asm_3996d ld a, $0 call GetSRAMBank ld a, [$abfd] and a call CloseSRAM jr z, .asm_3996d ld a, $0 call GetSRAMBank ld hl, $abfe call Function39984 jp CloseSRAM .asm_3996d dec c push bc ld b, 0 ld hl, TrainerGroups add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a pop bc .asm_3997a dec b jr z, Function39984 .asm_3997d ld a, [hli] cp $ff jr nz, .asm_3997d jr .asm_3997a Function39984: ; 39984 ld de, StringBuffer1 push de ld bc, $000b call CopyBytes pop de ret ; 39990 Function39990: ; 39990 ld de, StringBuffer1 push de ld bc, $000b pop de ret ; 39999 INCLUDE "trainers/trainer_pointers.asm" INCLUDE "trainers/trainers.asm" SECTION "bankF", ROMX, BANK[$F] INCLUDE "battle/core.asm" INCLUDE "battle/effect_command_pointers.asm" SECTION "bank10", ROMX, BANK[$10] Pokedex: ; 40000 ld a, [hWX] ld l, a ld a, [hWY] ld h, a push hl ld a, [hSCX] push af ld hl, Options ld a, [hl] push af set NO_TEXT_SCROLL, [hl] ld a, [VramState] push af xor a ld [VramState], a ld a, [$ffaa] push af ld a, $1 ld [$ffaa], a xor a ld [$ffde], a call InitPokedex call DelayFrame .main call Functiona57 ld a, [$cf63] bit 7, a jr nz, .exit call Function4010b call DelayFrame jr .main .exit ld de, SFX_READ_TEXT_2 call PlaySFX call WaitSFX call ClearSprites ld a, [$c7d4] ld [$d959], a pop af ld [$ffaa], a pop af ld [VramState], a pop af ld [Options], a pop af ld [hSCX], a pop hl ld a, l ld [hWX], a ld a, h ld [hWY], a ret ; 40063 InitPokedex: ; 40063 call WhiteBGMap call ClearSprites call ClearTileMap call Function414b7 ld hl, $c6d0 ld bc, $0115 xor a call ByteFill xor a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [$cf66], a call Function400a2 ld a, [$d959] ld [$c7d4], a call Function40bdc call Function400b4 call Function400ed callba Function1de247 call Function41af7 ret ; 400a2 Function400a2: ; 400a2 ld a, [StatusFlags] bit 1, a jr nz, .asm_400ae xor a ld [$c7dc], a ret .asm_400ae ld a, 1 ld [$c7dc], a ret ; 400b4 Function400b4: ; 400b4 ld hl, $c6d0 ld a, [$c2d6] and a jr z, .asm_400ec cp $fc jr nc, .asm_400ec ld b, a ld a, [$c7d2] cp $8 jr c, .asm_400db sub $7 ld c, a .asm_400cc ld a, b cp [hl] jr z, .asm_400ec inc hl ld a, [$c7d0] inc a ld [$c7d0], a dec c jr nz, .asm_400cc .asm_400db ld c, $7 .asm_400dd ld a, b cp [hl] jr z, .asm_400ec inc hl ld a, [$c7d1] inc a ld [$c7d1], a dec c jr nz, .asm_400dd .asm_400ec ret ; 400ed Function400ed: ; 400ed ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a call GetWorldMapLocation cp SPECIAL_MAP jr nz, .asm_40107 ld a, [BackupMapGroup] ld b, a ld a, [BackupMapNumber] ld c, a call GetWorldMapLocation .asm_40107 ld [$c7e4], a ret ; 4010b Function4010b: ; 4010b ld a, [$cf63] ld hl, Jumptable_40115 call Function41432 jp [hl] ; 40115 ; no known jump sources Jumptable_40115: ; 40115 (10:4115) dw Function4013c dw Function401ae dw Function40217 dw Function40258 dw Function402aa dw Function40443 dw Function40471 dw Function4039d dw Function403be dw Function4050a dw Function40562 dw Function405bd dw Function405df dw Function40136 ; known jump sources: 401aa (10:41aa), 40254 (10:4254), 4026f (10:426f), 403ba (10:43ba), 4046d (10:446d), 4055e (10:455e), 405db (10:45db) Function40131: ; 40131 (10:4131) ld hl, $cf63 inc [hl] ret ; no known jump sources Function40136: ; 40136 (10:4136) ld hl, $cf63 set 7, [hl] ret ; no known jump sources Function4013c: ; 4013c (10:413c) xor a ld [hBGMapMode], a ; $ff00+$d4 call ClearSprites xor a ld hl, AttrMap ; $cdd9 ld bc, $168 call ByteFill callba Function1de171 ld hl, $c5f4 ld de, $47f2 call Function40acd ld a, $7 ld [$c7d3], a call Function40b0f call Function41aeb call Function41af7 call Function4074c ld a, $5 ld [hSCX], a ; $ff00+$cf ld a, [$c7d4] cp $1 ld a, $4a jr z, .asm_4017b ld a, $47 .asm_4017b ld [hWX], a ; $ff00+$d1 xor a ld [hWY], a ; $ff00+$d2 call WaitBGMap call Function41af7 ld a, $ff ld [CurPartySpecies], a ; $d108 ld a, $4 call Function41423 call Function41148 callba Function1de171 ld hl, $c5f4 ld de, $47f2 call Function40acd ld a, $7 ld [$c7d3], a call Function40b0f call Function40131 ret ; no known jump sources Function401ae: ; 401ae (10:41ae) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $2 jr nz, .asm_40211 ld a, [hl] and $1 jr nz, .asm_401d9 ld a, [hl] and $4 jr nz, .asm_401eb ld a, [hl] and $8 jr nz, .asm_401fe call Function406c5 ret nc call Function41148 xor a ld [hBGMapMode], a ; $ff00+$d4 call Function40b0f call Function41ad7 call Function41af7 ret .asm_401d9 call Function40bb1 call Function40bd0 ret z ld a, $2 ld [$cf63], a ld a, $0 ld [$cf64], a ret .asm_401eb call Function41401 ld a, $7 ld [$cf63], a xor a ld [hSCX], a ; $ff00+$cf ld a, $a7 ld [hWX], a ; $ff00+$d1 call DelayFrame ret .asm_401fe call Function41401 ld a, $5 ld [$cf63], a xor a ld [hSCX], a ; $ff00+$cf ld a, $a7 ld [hWX], a ; $ff00+$d1 call DelayFrame ret .asm_40211 ld a, $d ld [$cf63], a ret ; no known jump sources Function40217: ; 40217 (10:4217) call LowVolume xor a ld [$cf65], a xor a ld [hBGMapMode], a ; $ff00+$d4 call ClearSprites call Function41478 call Function407fd call Function4134f call Function40bb1 ld [$c2d6], a callba Function4424d call Function40ba0 call WaitBGMap ld a, $a7 ld [hWX], a ; $ff00+$d1 call Function40bb1 ld [CurPartySpecies], a ; $d108 ld a, $4 call Function41423 ld a, [CurPartySpecies] ; $d108 call Function37ce call Function40131 ret ; no known jump sources Function40258: ; 40258 (10:4258) ld de, $42e8 call Function4135a ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $2 jr nz, .asm_4027d ld a, [hl] and $1 jr nz, .asm_40273 call Function4066c ret nc call Function40131 ret .asm_40273 ld a, [$c7d8] ld hl, $42f2 call Function41432 jp [hl] .asm_4027d ld a, [LastVolume] ; $c2b4 and a jr z, .asm_40288 ld a, $77 ld [LastVolume], a ; $c2b4 .asm_40288 call MaxVolume ld a, [$cf64] ld [$cf63], a ret ; 40292 (10:4292) INCBIN "baserom.gbc",$40292,$402aa - $40292 ; no known jump sources Function402aa: ; 402aa (10:42aa) call Function41401 xor a ld [$cf65], a xor a ld [hBGMapMode], a ; $ff00+$d4 call Function407fd call Function4134f call Function41478 call Function40bb1 ld [$c2d6], a callba Function4424d call Function40ba0 call Function4143b call WaitBGMap call Function40bb1 ld [CurPartySpecies], a ; $d108 ld a, $4 call Function41423 ld a, [CurPartySpecies] ; $d108 call Function37ce ld hl, $cf63 dec [hl] ret ; 402e8 (10:42e8) INCBIN "baserom.gbc",$402e8,$4039d - $402e8 ; no known jump sources Function4039d: ; 4039d (10:439d) xor a ld [hBGMapMode], a ; $ff00+$d4 call ClearSprites call Function4087c call Function4134f ld a, [$c7d4] ld [$c7d8], a call Function40e5b call WaitBGMap ld a, $10 call Function41423 call Function40131 ret ; no known jump sources Function403be: ; 403be (10:43be) ld a, [$c7dc] and a jr nz, .asm_403c9 ld de, $43f3 jr .asm_403cc .asm_403c9 ld de, $43fb .asm_403cc call Function4135a call c, Function40e5b ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $6 jr nz, .asm_403ea ld a, [hl] and $1 jr nz, .asm_403e0 ret .asm_403e0 ld a, [$c7d8] ld hl, Jumptable_40405 call Function41432 jp [hl] .asm_403ea call Function41401 ld a, $0 ld [$cf63], a ret ; 403f3 (10:43f3) INCBIN "baserom.gbc",$403f3,$40405 - $403f3 ; no known jump sources Jumptable_40405: ; 40405 (10:4405) dw Function4040d dw Function40411 dw Function40415 dw Function4043a ; no known jump sources Function4040d: ; 4040d (10:440d) ld b, $0 jr Function40417 ; no known jump sources Function40411: ; 40411 (10:4411) ld b, $1 jr Function40417 ; no known jump sources Function40415: ; 40415 (10:4415) ld b, $2 Function40417: ; 40417 (10:4417) ld a, [$c7d4] cp b jr z, .asm_40431 ld a, b ld [$c7d4], a call Function40bdc call Function40f08 xor a ld [$c7d0], a ld [$c7d1], a call Function400b4 .asm_40431 call Function41401 ld a, $0 ld [$cf63], a ret ; no known jump sources Function4043a: ; 4043a (10:443a) call Function41401 ld a, $b ld [$cf63], a ret ; no known jump sources Function40443: ; 40443 (10:4443) xor a ld [hBGMapMode], a ; $ff00+$d4 call ClearSprites call Function408f0 call Function4134f ld a, $1 ld [$c7d5], a xor a ld [$c7d6], a call Function40fa8 xor a ld [$c7db], a callba Function44207 call WaitBGMap ld a, $10 call Function41423 call Function40131 ret ; no known jump sources Function40471: ; 40471 (10:4471) ld de, $449e call Function4135a call Function40f4f call c, Function40fa8 ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $a jr nz, .asm_40495 ld a, [hl] and $1 jr nz, .asm_4048b ret .asm_4048b ld a, [$c7d8] ld hl, $44a8 call Function41432 jp [hl] .asm_40495 call Function41401 ld a, $0 ld [$cf63], a ret ; 4049e (10:449e) INCBIN "baserom.gbc",$4049e,$4050a - $4049e ; no known jump sources Function4050a: ; 4050a (10:450a) xor a ld [hBGMapMode], a ; $ff00+$d4 xor a ld hl, AttrMap ; $cdd9 ld bc, $168 call ByteFill call Function41ae1 call Function41af7 callba Function1de1d1 call Function409cf ld a, $4 ld [$c7d3], a call Function40b0f call Function41ad7 call Function41af7 call Function40962 ld a, $5 ld [hSCX], a ; $ff00+$cf ld a, $4a ld [hWX], a ; $ff00+$d1 xor a ld [hWY], a ; $ff00+$d2 call WaitBGMap call Function41af7 callba Function1de1d1 call Function409cf call Function41281 ld a, $ff ld [CurPartySpecies], a ; $d108 ld a, $4 call Function41423 call Function40131 ret ; no known jump sources Function40562: ; 40562 (10:4562) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $2 jr nz, .asm_40595 ld a, [hl] and $1 jr nz, .asm_40583 call Function406c5 ret nc call Function41281 xor a ld [hBGMapMode], a ; $ff00+$d4 call Function40b0f call Function41ad7 call Function41af7 ret .asm_40583 call Function40bb1 call Function40bd0 ret z ld a, $2 ld [$cf63], a ld a, $9 ld [$cf64], a ret .asm_40595 ld a, [$c7e0] ld [$c7d0], a ld a, [$c7e1] ld [$c7d1], a ld a, [$cf65] ld [$c2d6], a call Function41401 call ClearSprites call Function40bdc ld a, $5 ld [$cf63], a xor a ld [hSCX], a ; $ff00+$cf ld a, $a7 ld [hWX], a ; $ff00+$d1 ret ; no known jump sources Function405bd: ; 405bd (10:45bd) call Function41a2c call Function409f1 xor a ld [$c7dd], a call Function41a58 call Function40658 callba Functionfba2e call WaitBGMap ld a, $16 call Function41423 call Function40131 ret ; no known jump sources Function405df: ; 405df (10:45df) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and A_BUTTON | B_BUTTON jr nz, .asm_405eb call Function40610 ret .asm_405eb call Function41401 ld a, $7 ld [$cf63], a call DelayFrame call Function41a24 jr nz, .asm_40603 callba Function1ddf26 jr .asm_4060f .asm_40603 ld hl, $550e ld de, $9310 ld bc, $103a call Functione73 .asm_4060f ret ; known jump sources: 405e7 (10:45e7) Function40610: ; 40610 (10:4610) ld hl, $ffa9 ld a, [hl] and $10 jr nz, .asm_4061e ld a, [hl] and $20 jr nz, .asm_4062d ret .asm_4061e ld a, [$c7de] ld e, a ld hl, $c7dd ld a, [hl] inc a cp e ret nc ld a, [hl] inc [hl] jr .asm_40635 .asm_4062d ld hl, $c7dd ld a, [hl] and a ret z ld a, [hl] dec [hl] .asm_40635 push af xor a ld [hBGMapMode], a ; $ff00+$d4 pop af call Function40654 call Function41a58 call Function40658 callba Functionfba2e ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 call DelayFrame call DelayFrame ret ; known jump sources: 4063a (10:463a) Function40654: ; 40654 (10:4654) ld c, $7f jr asm_4065d ; known jump sources: 405ca (10:45ca), 40640 (10:4640) Function40658: ; 40658 (10:4658) ld a, [$c7dd] ld c, $5a asm_4065d: ; 4065d (10:465d) ld e, a ld d, $0 ld hl, $4a40 add hl, de add hl, de add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ld [hl], c ret ; known jump sources: 4026b (10:426b) Function4066c: ; 4066c (10:466c) ld a, [$c7d1] ld [$c7e2], a ld a, [$c7d0] ld [$c7e3], a ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_40687 ld a, [hl] and $80 jr nz, .asm_4069e and a ret .asm_40687 ld a, [$c7d3] ld d, a ld a, [$c7d2] ld e, a call Function406ea jr nc, .asm_406b7 call Function40bb1 call Function40bd0 jr nz, .asm_406b5 jr .asm_40687 .asm_4069e ld a, [$c7d3] ld d, a ld a, [$c7d2] ld e, a call Function406fe jr nc, .asm_406b7 call Function40bb1 call Function40bd0 jr nz, .asm_406b5 jr .asm_4069e .asm_406b5 scf ret .asm_406b7 ld a, [$c7e2] ld [$c7d1], a ld a, [$c7e3] ld [$c7d0], a and a ret ; known jump sources: 401c5 (10:41c5), 4056f (10:456f) Function406c5: ; 406c5 (10:46c5) ld a, [$c7d3] ld d, a ld a, [$c7d2] ld e, a ld hl, $ffa9 ld a, [hl] and $40 jr nz, Function406ea ld a, [hl] and $80 jr nz, Function406fe ld a, d cp e jr nc, asm_4073d ld a, [hl] and $20 jr nz, asm_40716 ld a, [hl] and $10 jr nz, asm_40728 jr asm_4073d ; known jump sources: 4068f (10:468f), 406d3 (10:46d3) Function406ea: ; 406ea (10:46ea) ld hl, $c7d1 ld a, [hl] and a jr z, .asm_406f4 dec [hl] jr asm_4073f .asm_406f4 ld hl, $c7d0 ld a, [hl] and a jr z, asm_4073d dec [hl] jr asm_4073f ; known jump sources: 406a6 (10:46a6), 406d8 (10:46d8) Function406fe: ; 406fe (10:46fe) ld hl, $c7d1 ld a, [hl] inc a cp e jr nc, asm_4073d cp d jr nc, .asm_4070c inc [hl] jr asm_4073f .asm_4070c ld hl, $c7d0 add [hl] cp e jr nc, asm_4073d inc [hl] jr asm_4073f asm_40716: ; 40716 (10:4716) ld hl, $c7d0 ld a, [hl] and a jr z, asm_4073d cp d jr nc, .asm_40724 xor a ld [hl], a jr asm_4073f .asm_40724 sub d ld [hl], a jr asm_4073f asm_40728: ; 40728 (10:4728) ld hl, $c7d0 ld a, d add a add [hl] jr c, .asm_40733 cp e jr c, .asm_40738 .asm_40733 ld a, e sub d ld [hl], a jr asm_4073f .asm_40738 ld a, [hl] add d ld [hl], a jr asm_4073f asm_4073d: ; 4073d (10:473d) and a ret asm_4073f: ; 4073f (10:473f) scf ret Function40741: ; 40741 push de ld de, $0014 .asm_40745 ld [hl], a add hl, de dec b jr nz, .asm_40745 pop de ret ; 4074c ; known jump sources: 40169 (10:4169) Function4074c: ; 4074c (10:474c) ld hl, $c5f4 ld de, $47f2 call Function40acd ld a, $32 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 call ByteFill ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $707 call Function40ad5 ld hl, $c554 ld bc, $607 call Function40ad5 ld hl, $c57d ld de, $47e1 call Function40acd ld hl, PokedexSeen ; $deb9 (aliases: EndPokedexSeen) ld b, $20 call CountSetBits ld de, $d265 ld hl, $c595 ld bc, $103 call PrintNum ld hl, $c5b9 ld de, $47e6 call Function40acd ld hl, PokedexCaught ; $de99 ld b, $20 call CountSetBits ld de, $d265 ld hl, $c5d1 ld bc, $103 call PrintNum ld hl, $c5f5 ld de, $47ea call Function40acd ld hl, $c4bc ld b, $7 ld a, $5a call Function40741 ld hl, $c570 ld b, $6 ld a, $5a call Function40741 ld hl, $c4a8 ld [hl], $59 ld hl, $c548 ld [hl], $53 ld hl, $c55c ld [hl], $54 ld hl, $c5e8 ld [hl], $5b call Function40ab2 ret ; 407e1 (10:47e1) INCBIN "baserom.gbc",$407e1,$407fd - $407e1 Function407fd: ; 407fd call Function40aa6 ld hl, TileMap ld bc, $0f12 call Function40ad5 ld hl, $c4b3 ld [hl], $34 ld hl, $c4c7 ld a, $7f ld b, $f call Function40741 ld [hl], $39 ld hl, $c569 ld bc, $0013 ld a, $61 call ByteFill ld hl, $c5f5 ld bc, $0012 ld a, $7f call ByteFill ld hl, $c535 ld de, $4852 call Function40acd ld hl, $c55d ld de, $485c call Function40acd ld hl, $c5f4 ld de, $4867 call Function40acd call Function40ab2 ret ; 4084f INCBIN "baserom.gbc",$4084f,$4087c - $4084f ; known jump sources: 403a3 (10:43a3) Function4087c: ; 4087c (10:487c) call Function40aa6 ld hl, $c4c8 ld bc, $812 call Function40ad5 ld hl, $c590 ld bc, $412 call Function40ad5 ld hl, $c4b4 ld de, $48b2 call Function40acd ld hl, $c4f3 ld de, $48bd call PlaceString ld a, [$c7dc] and a ret z ld hl, $c56b ld de, $48e5 call PlaceString ret ; 408b2 (10:48b2) INCBIN "baserom.gbc",$408b2,$408f0 - $408b2 ; known jump sources: 40449 (10:4449) Function408f0: ; 408f0 (10:48f0) call Function40aa6 ld hl, $c4c8 ld bc, $e12 call Function40ad5 ld hl, $c4b4 ld de, $492a call Function40acd ld hl, $c4f8 ld de, $4935 call Function40acd ld hl, $c520 ld de, $4935 call Function40acd ld hl, $c4f3 ld de, $4940 call PlaceString ld hl, $c5a7 ld de, $494c call PlaceString ret ; 4092a (10:492a) INCBIN "baserom.gbc",$4092a,$40962 - $4092a ; known jump sources: 40534 (10:4534) Function40962: ; 40962 (10:4962) call Function40aa6 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $707 call Function40ad5 ld hl, $c57c ld bc, $512 call Function40ad5 ld hl, $c591 ld de, $49ae call PlaceString ld de, $c7d7 ld hl, $c5e1 ld bc, $103 call PrintNum ld hl, $c4a8 ld [hl], $59 ld hl, $c4bc ld b, $7 ld a, $5a call Function40741 ld hl, $c548 ld [hl], $53 ld hl, $c55c ld [hl], $69 ld hl, $c570 ld [hl], $6a call Function40ab2 ret ; 409ae (10:49ae) INCBIN "baserom.gbc",$409ae,$409cf - $409ae ; known jump sources: 40523 (10:4523), 4054e (10:454e) Function409cf: ; 409cf (10:49cf) ld a, [$c7d5] ld hl, $c5b8 call Function40fcd ld a, [$c7d5] ld b, a ld a, [$c7d6] and a jr z, .asm_409f0 cp b jr z, .asm_409f0 ld hl, $c5ce call Function40fcd ld hl, $c5cd ld [hl], $f3 .asm_409f0 ret ; known jump sources: 405c0 (10:45c0) Function409f1: ; 409f1 (10:49f1) call Function40aa6 ld hl, $c4b6 ld bc, $a0d call Function40ad5 ld hl, $c5ba ld bc, $10d call Function40ad5 ld hl, $c5ce ld [hl], $3d ld hl, $c5dc ld [hl], $3e ld hl, $c50a call Function40ab5 ld de, $0 ld b, $0 ld c, $1a .asm_40a1d ld hl, EndPokedexSeen ; $ded9 (aliases: UnownDex) add hl, de ld a, [hl] and a jr z, .asm_40a39 push af ld hl, $4a3e add hl, de add hl, de add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a pop af add $3f ld [hl], a inc de inc b dec c jr nz, .asm_40a1d .asm_40a39 ld a, b ld [$c7de], a ret ; 40a3e (10:4a3e) INCBIN "baserom.gbc",$40a3e,$40aa6 - $40a3e Function40aa6: ; 40aa6 ld hl, TileMap ld a, $32 ld bc, $0168 call ByteFill ret ; 40ab2 Function40ab2: ; 40ab2 ld hl, $c4b5 Function40ab5: ; 40ab5 xor a ld b, $7 .asm_40ab8 ld c, $7 push af push hl .asm_40abc ld [hli], a add $7 dec c jr nz, .asm_40abc pop hl ld de, $0014 add hl, de pop af inc a dec b jr nz, .asm_40ab8 ret ; 40acd Function40acd: ; 40acd .asm_40acd ld a, [de] cp $ff ret z inc de ld [hli], a jr .asm_40acd ; 40ad5 Function40ad5: ; 40ad5 push hl ld a, $33 ld [hli], a ld d, $34 call Function40b06 ld a, $35 ld [hl], a pop hl ld de, $0014 add hl, de .asm_40ae6 push hl ld a, $36 ld [hli], a ld d, $7f call Function40b06 ld a, $37 ld [hl], a pop hl ld de, $0014 add hl, de dec b jr nz, .asm_40ae6 ld a, $38 ld [hli], a ld d, $39 call Function40b06 ld a, $3a ld [hl], a ret ; 40b06 Function40b06: ; 40b06 ld e, c .asm_40b07 ld a, e and a ret z ld a, d ld [hli], a dec e jr .asm_40b07 ; 40b0f ; known jump sources: 40160 (10:4160), 401a7 (10:41a7), 401cf (10:41cf), 4052b (10:452b), 40579 (10:4579) Function40b0f: ; 40b0f (10:4b0f) ld a, [$c7d4] cp $1 jr z, .asm_40b1a ld c, $b jr .asm_40b1c .asm_40b1a ld c, $b .asm_40b1c ld hl, $c4b4 ld a, [$c7d3] add a inc a ld b, a ld a, $7f call Function413fe ld a, [$c7d0] ld e, a ld d, $0 ld hl, PlayerSDefLevel ; $c6d0 add hl, de ld e, l ld d, h ld hl, $c4c8 ld a, [$c7d3] .asm_40b3c push af ld a, [de] ld [$d265], a push de push hl call Function40b55 pop hl ld de, $28 add hl, de pop de inc de pop af dec a jr nz, .asm_40b3c call Function4143b ret ; known jump sources: 40b43 (10:4b43) Function40b55: ; 40b55 (10:4b55) and a ret z call Function40b6a call Function40b8d ret c call Function40b82 push hl call GetPokemonName pop hl call PlaceString ret ; known jump sources: 40b57 (10:4b57) Function40b6a: ; 40b6a (10:4b6a) ld a, [$c7d4] cp $1 jr z, .asm_40b72 ret .asm_40b72 push hl ld de, $ffec add hl, de ld de, $d265 ld bc, $8103 call PrintNum pop hl ret ; known jump sources: 40b5e (10:4b5e) Function40b82: ; 40b82 (10:4b82) call Function40bc4 jr nz, .asm_40b89 inc hl ret .asm_40b89 ld a, $4f ld [hli], a ret ; known jump sources: 40b5a (10:4b5a) Function40b8d: ; 40b8d (10:4b8d) call Function40bd0 ret nz inc hl ld de, $4b9a call PlaceString scf ret ; 40b9a (10:4b9a) INCBIN "baserom.gbc",$40b9a,$40ba0 - $40b9a Function40ba0: ; 40ba0 ld hl, $c4c6 ld a, $62 ld [hli], a inc a ld [hl], a ld hl, $c4da ld a, $64 ld [hli], a inc a ld [hl], a ret ; 40bb1 Function40bb1: ; 40bb1 ld a, [$c7d1] ld hl, $c7d0 add [hl] ld e, a ld d, $0 ld hl, PlayerSDefLevel add hl, de ld a, [hl] ld [$d265], a ret ; 40bc4 ; known jump sources: 40b82 (10:4b82) Function40bc4: ; 40bc4 (10:4bc4) push de push hl ld a, [$d265] dec a call CheckCaughtMon pop hl pop de ret Function40bd0: ; 40bd0 push de push hl ld a, [$d265] dec a call CheckSeenMon pop hl pop de ret ; 40bdc Function40bdc: ; 40bdc ld hl, PlayerSDefLevel ld bc, Start xor a call ByteFill ld a, [$c7d4] ld hl, $4bf0 call Function41432 jp [hl] ; 40bf0 ; no known jump sources Jumptable_40bf0: ; 40bf0 (10:4bf0) dw Function40bf6 dw Function40c08 dw Function40c30 ; no known jump sources Function40bf6: ; 40bf6 (10:4bf6) ld de, $4d60 ld hl, PlayerSDefLevel ; $c6d0 ld c, $fb .asm_40bfe ld a, [de] inc de ld [hli], a dec c jr nz, .asm_40bfe call Function40c18 ret ; no known jump sources Function40c08: ; 40c08 (10:4c08) ld hl, PlayerSDefLevel ; $c6d0 ld a, $1 ld c, $fb .asm_40c0f ld [hli], a inc a dec c jr nz, .asm_40c0f call Function40c18 ret ; known jump sources: 40c04 (10:4c04), 40c14 (10:4c14) Function40c18: ; 40c18 (10:4c18) ld hl, $c7ca ld d, $fb ld e, d .asm_40c1e ld a, [hld] ld [$d265], a call Function40bd0 jr nz, .asm_40c2b dec d dec e jr nz, .asm_40c1e .asm_40c2b ld a, d ld [$c7d2], a ret Function40c30: ; 40c30 xor a ld [$c7d2], a ld hl, PlayerSDefLevel ld de, AlphabeticalPokedexOrder ld c, $fb .asm_40c3c push bc ld a, [de] ld [$d265], a call Function40bd0 jr z, .asm_40c51 ld a, [$d265] ld [hli], a ld a, [$c7d2] inc a ld [$c7d2], a .asm_40c51 inc de pop bc dec c jr nz, .asm_40c3c ld a, [$c7d2] ld c, $0 .asm_40c5b cp $fb jr z, .asm_40c64 ld [hl], c inc hl inc a jr .asm_40c5b .asm_40c64 ret ; 40c65 AlphabeticalPokedexOrder: ; 0x40c65 INCLUDE "stats/pokedex/order_alpha.asm" NewPokedexOrder: ; 0x40d60 INCLUDE "stats/pokedex/order_new.asm" Function40e5b: ; 40e5b xor a ld [hBGMapMode], a ld hl, $c590 ld bc, $0412 call Function40ad5 ld a, [$c7d8] ld hl, $4e7d call Function41432 ld e, l ld d, h ld hl, $c5b9 call PlaceString ld a, $1 ld [hBGMapMode], a ret ; 40e7d INCBIN "baserom.gbc",$40e7d,$40f08 - $40e7d ; known jump sources: 40424 (10:4424) Function40f08: ; 40f08 (10:4f08) xor a ld [hBGMapMode], a ; $ff00+$d4 ld hl, $c590 ld bc, $412 call Function40ad5 ld de, $4f32 ld hl, $c5b9 call PlaceString ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ld c, $40 call DelayFrames ld de, $15 call PlaySFX ld c, $40 call DelayFrames ret ; 40f32 (10:4f32) INCBIN "baserom.gbc",$40f32,$40f4f - $40f32 ; known jump sources: 40477 (10:4477) Function40f4f: ; 40f4f (10:4f4f) ld a, [$c7d8] cp $2 jr nc, .asm_40f63 ld hl, $ffa9 ld a, [hl] and $20 jr nz, .asm_40f65 ld a, [hl] and $10 jr nz, .asm_40f84 .asm_40f63 and a ret .asm_40f65 ld a, [$c7d8] and a jr nz, .asm_40f76 ld hl, $c7d5 ld a, [hl] cp $1 jr z, .asm_40f80 dec [hl] jr .asm_40f82 .asm_40f76 ld hl, $c7d6 ld a, [hl] and a jr z, .asm_40f80 dec [hl] jr .asm_40f82 .asm_40f80 ld [hl], $11 .asm_40f82 scf ret .asm_40f84 ld a, [$c7d8] and a jr nz, .asm_40f99 ld hl, $c7d5 ld a, [hl] cp $11 jr nc, .asm_40f95 inc [hl] jr .asm_40fa6 .asm_40f95 ld [hl], $1 jr .asm_40fa6 .asm_40f99 ld hl, $c7d6 ld a, [hl] cp $11 jr nc, .asm_40fa4 inc [hl] jr .asm_40fa6 .asm_40fa4 ld [hl], $0 .asm_40fa6 scf ret ; known jump sources: 40458 (10:4458), 4047a (10:447a) Function40fa8: ; 40fa8 (10:4fa8) xor a ld [hBGMapMode], a ; $ff00+$d4 ld hl, $c4e5 ld bc, $408 ld a, $7f call Function413fe ld a, [$c7d5] ld hl, $c4f9 call Function40fcd ld a, [$c7d6] ld hl, $c521 call Function40fcd ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ret ; known jump sources: 409d5 (10:49d5), 409e8 (10:49e8), 40fbc (10:4fbc), 40fc5 (10:4fc5) Function40fcd: ; 40fcd (10:4fcd) push hl ld e, a ld d, $0 ld hl, $4fe4 add hl, de add hl, de add hl, de add hl, de add hl, de add hl, de add hl, de add hl, de add hl, de ld e, l ld d, h pop hl call PlaceString ret ; 40fe4 (10:4fe4) INCBIN "baserom.gbc",$40fe4,$41148 - $40fe4 ; known jump sources: 40190 (10:4190), 401c9 (10:41c9) Function41148: ; 41148 (10:5148) ld a, [$c7d4] cp $1 jp z, Function41157 call Function41229 call Function4130e ret ; known jump sources: 4114d (10:514d), 41286 (10:5286) Function41157: ; 41157 (10:5157) ld hl, $5167 ld a, [$c7d1] or a jr nz, .asm_41163 ld hl, $51c8 .asm_41163 call Function412f1 ret ; 41167 (10:5167) INCBIN "baserom.gbc",$41167,$41229 - $41167 ; known jump sources: 41150 (10:5150) Function41229: ; 41229 (10:5229) ld hl, $5230 call Function412f1 ret ; 41230 (10:5230) INCBIN "baserom.gbc",$41230,$41281 - $41230 ; known jump sources: 40551 (10:4551), 40573 (10:4573) Function41281: ; 41281 (10:5281) ld a, [$c7d4] cp $1 jp z, Function41157 ld hl, $5290 call Function412f1 ret ; 41290 (10:5290) INCBIN "baserom.gbc",$41290,$412f1 - $41290 ; known jump sources: 41163 (10:5163), 4122c (10:522c), 4128c (10:528c) Function412f1: ; 412f1 (10:52f1) ld de, Sprites ; $c400 .asm_412f4 ld a, [hl] cp $ff ret z ld a, [$c7d1] and $7 swap a add [hl] inc hl ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de jr .asm_412f4 ; known jump sources: 41153 (10:5153) Function4130e: ; 4130e (10:530e) push de ld a, [$c7d2] dec a ld e, a ld a, [$c7d1] ld hl, $c7d0 add [hl] cp e jr z, .asm_4133f ld hl, $0 ld bc, $79 call AddNTimes ld e, l ld d, h ld b, $0 ld a, d or e jr z, .asm_41341 ld a, [$c7d2] ld c, a .asm_41333 ld a, e sub c ld e, a ld a, d sbc $0 ld d, a jr c, .asm_41341 inc b jr .asm_41333 .asm_4133f ld b, $79 .asm_41341 ld a, $14 add b pop hl ld [hli], a ld a, $a1 ld [hli], a ld a, $f ld [hli], a ld [hl], $0 ret ; known jump sources: 4022a (10:422a), 402b7 (10:42b7), 403a6 (10:43a6), 4044c (10:444c) Function4134f: ; 4134f (10:534f) xor a ld [$c7d8], a ld [$c7d9], a ld [$c7da], a ret ; known jump sources: 4025b (10:425b), 403cc (10:43cc), 40474 (10:4474) Function4135a: ; 4135a (10:535a) ld a, [de] ld b, a inc de ld a, [de] dec a ld c, a inc de call Function413e0 ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $60 and b jr nz, .asm_4138f ld a, [hl] and $90 and b jr nz, .asm_413a0 ld a, [hl] and $4 and b jr nz, .asm_413c1 call Function413f5 jr c, .asm_413bf ld hl, $ffa9 ld a, [hl] and $60 and b jr nz, .asm_4138f ld a, [hl] and $90 and b jr nz, .asm_413a0 jr .asm_413bf .asm_4138f ld a, [$c7d8] and a jr z, .asm_413bf call Function413d4 ld [hl], $7f ld hl, $c7d8 dec [hl] jr .asm_413af .asm_413a0 ld a, [$c7d8] cp c jr nc, .asm_413bf call Function413d4 ld [hl], $7f ld hl, $c7d8 inc [hl] .asm_413af call Function413d4 ld [hl], $ed ld a, $c ld [$c7d9], a xor a ld [$c7da], a scf ret .asm_413bf and a ret .asm_413c1 call Function413d4 ld [hl], $7f ld a, [$c7d8] cp c jr c, .asm_413ce ld a, $ff .asm_413ce inc a ld [$c7d8], a jr .asm_413af ; known jump sources: 41395 (10:5395), 413a6 (10:53a6), 413af (10:53af), 413c1 (10:53c1), 413e9 (10:53e9), 413ef (10:53ef) Function413d4: ; 413d4 (10:53d4) ld a, [$c7d8] add a ld l, a ld h, $0 add hl, de ld a, [hli] ld h, [hl] ld l, a ret ; known jump sources: 41361 (10:5361) Function413e0: ; 413e0 (10:53e0) ld hl, $c7da ld a, [hl] inc [hl] and $8 jr z, .asm_413ef call Function413d4 ld [hl], $7f ret .asm_413ef call Function413d4 ld [hl], $ed ret ; known jump sources: 41379 (10:5379) Function413f5: ; 413f5 (10:53f5) ld hl, $c7d9 ld a, [hl] and a ret z dec [hl] scf ret ; known jump sources: 40b27 (10:4b27), 40fb3 (10:4fb3) Function413fe: ; 413fe (10:53fe) jp Functionfb8 ; known jump sources: 401eb (10:41eb), 401fe (10:41fe), 402aa (10:42aa), 403ea (10:43ea), 40431 (10:4431), 4043a (10:443a), 40495 (10:4495), 405a7 (10:45a7), 405eb (10:45eb) Function41401: ; 41401 (10:5401) ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, Unkn1Pals ; $d000 ld bc, $40 xor a call ByteFill pop af ld [rSVBK], a ; $ff00+$70 ld a, $ff call DmgToCgbBGPals ld a, $ff call Functioncf8 call DelayFrame ret Function41423: ; 41423 ld b, a call GetSGBLayout ld a, $e4 call DmgToCgbBGPals ld a, $e0 call Functioncf8 ret ; 41432 Function41432: ; 41432 ld e, a ld d, $0 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ret ; 4143b Function4143b: ; 4143b call Function40bb1 call Function40bd0 jr z, .asm_4145b ld a, [$def4] ld [UnownLetter], a ld a, [$d265] ld [CurPartySpecies], a call GetBaseData ld de, VTiles2 ld a, $3c call Predef ret .asm_4145b ld a, $0 call GetSRAMBank callba Function1de0d7 ld hl, VTiles2 ld de, $a000 ld c, $31 ld a, [hROMBank] ld b, a call Get2bpp call CloseSRAM ret ; 41478 ; known jump sources: 40224 (10:4224), 402ba (10:42ba) Function41478: ; 41478 (10:5478) call Function40bb1 Function4147b: ; 4147b ld a, [$d265] dec a and $f8 srl a srl a srl a ld e, $0 ld d, a ld a, [$d265] dec a and $7 swap a ld l, a ld h, $0 add hl, de ld de, $5434 add hl, de push hl ld e, l ld d, h ld hl, $9620 ld bc, $3e02 call Request1bpp pop hl ld de, $0080 add hl, de ld e, l ld d, h ld hl, $9640 ld bc, $3e02 call Request1bpp ret ; 414b7 Function414b7: ; 414b7 call DisableLCD ld hl, VTiles2 ld bc, $0310 xor a call ByteFill call .asm_414fb call Functione5f ld hl, $9600 ld bc, $0200 call asm_41504 call Function41a24 jr nz, .asm_414e0 callba Function1ddf1c jr .asm_414e9 .asm_414e0 ld hl, $550e ld de, $9310 call Decompress .asm_414e9 ld hl, $56b0 ld de, VTiles0 call Decompress ld a, $6 call Function3cb4 call EnableLCD ret .asm_414fb: ; 414fb call Functione51 ld hl, VTiles1 ld bc, $0800 asm_41504 ld a, [hl] xor $ff ld [hli], a dec bc ld a, b or c jr nz, asm_41504 ret ; 4150e INCBIN "baserom.gbc",$4150e,$41a24 - $4150e Function41a24: ; 41a24 ld a, [hCGB] or a ret nz ld a, [hSGB] dec a ret ; 41a2c Function41a2c: ; 41a2c ld a, $0 call GetSRAMBank ld hl, Pokedex ld de, $a188 ld bc, Function270 ld a, $77 call FarCopyBytes ld hl, $a188 ld bc, $01b0 call asm_41504 ld de, $a188 ld hl, $9400 ld bc, $101b call Request2bpp call CloseSRAM ret ; 41a58 ; known jump sources: 405c7 (10:45c7), 4063d (10:463d) Function41a58: ; 41a58 (10:5a58) ld a, [UnownLetter] ; $d234 push af ld a, [$c7dd] ld e, a ld d, $0 ld hl, EndPokedexSeen ; $ded9 (aliases: UnownDex) add hl, de ld a, [hl] ld [UnownLetter], a ; $d234 ld a, $c9 ld [CurPartySpecies], a ; $d108 call GetBaseData ld de, $9000 ld a, $3c call Predef pop af ld [UnownLetter], a ; $d234 ret Function41a7f: ; 41a7f xor a ld [hBGMapMode], a callba Function1de247 call Function41af7 call DisableLCD call Functione51 call Functione5f call Function414b7 call Function4147b ld a, [$d265] ld [CurPartySpecies], a call Function407fd call Function40ba0 ld hl, $c5f4 ld [hl], $3b inc hl ld bc, $0013 ld a, $7f call ByteFill callba Function4424d call EnableLCD call WaitBGMap call GetBaseData ld de, VTiles2 ld a, $3c call Predef ld a, $4 call Function41423 ld a, [CurPartySpecies] call Function37ce ret ; 41ad7 ; known jump sources: 401d2 (10:41d2), 4052e (10:452e), 4057c (10:457c), 41af3 (10:5af3) Function41ad7: ; 41ad7 (10:5ad7) ld a, $3 ld [hBGMapMode], a ; $ff00+$d4 ld c, $4 call DelayFrames ret ; known jump sources: 40517 (10:4517), 41af0 (10:5af0) Function41ae1: ; 41ae1 (10:5ae1) ld a, $4 ld [hBGMapMode], a ; $ff00+$d4 ld c, $4 call DelayFrames ret ; known jump sources: 40163 (10:4163) Function41aeb: ; 41aeb (10:5aeb) ld a, [hCGB] ; $ff00+$e6 and a jr z, .asm_41af3 call Function41ae1 .asm_41af3 call Function41ad7 ret Function41af7: ; 41af7 xor a ld [hBGMapMode], a ret ; 41afb Moves: ; 0x41afb INCLUDE "battle/moves/moves.asm" Function421d8: ; 421d8 ld hl, EvolvableFlags xor a ld [hl], a ld a, [CurPartyMon] ld c, a ld b, $1 call Function42577 Function421e6: ; 421e6 xor a ld [$d268], a dec a ld [CurPartyMon], a push hl push bc push de ld hl, PartyCount push hl Function421f5: ; 421f5 ld hl, CurPartyMon inc [hl] pop hl inc hl ld a, [hl] cp $ff jp z, Function423ff ld [MagikarpLength], a push hl ld a, [CurPartyMon] ld c, a ld hl, EvolvableFlags ld b, 2 call Function42577 ld a, c and a jp z, Function421f5 ld a, [MagikarpLength] dec a ld b, 0 ld c, a ld hl, EvosAttacksPointers add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a push hl xor a ld [MonType], a ld a, $1f call Predef pop hl .asm_42230 ld a, [hli] and a jr z, Function421f5 ld b, a cp EVOLVE_TRADE jr z, .trade ld a, [InLinkBattle] and a jp nz, .asm_423f9 ld a, b cp EVOLVE_ITEM jp z, .item ld a, [$d1e9] and a jp nz, .asm_423f9 ld a, b cp EVOLVE_LEVEL jp z, .level cp EVOLVE_HAPPINESS jr z, .happiness ; EVOLVE_STAT ld a, [TempMonLevel] cp [hl] jp c, .asm_423f8 call Function42461 jp z, .asm_423f8 push hl ld de, TempMonAtk ld hl, TempMonDef ld c, 2 call StringCmp ld a, ATK_EQ_DEF jr z, .asm_4227a ld a, ATK_LT_DEF jr c, .asm_4227a ld a, ATK_GT_DEF .asm_4227a pop hl inc hl cp [hl] jp nz, .asm_423f9 inc hl jr .asm_422fd .happiness ld a, [TempMonHappiness] cp 220 jp c, .asm_423f9 call Function42461 jp z, .asm_423f9 ld a, [hli] cp TR_ANYTIME jr z, .asm_422fd cp TR_MORNDAY jr z, .asm_422a4 ; TR_NITE ld a, [TimeOfDay] cp NITE jp nz, .asm_423fa jr .asm_422fd .asm_422a4 ld a, [TimeOfDay] cp NITE jp z, .asm_423fa jr .asm_422fd .trade ld a, [InLinkBattle] and a jp z, .asm_423f9 call Function42461 jp z, .asm_423f9 ld a, [hli] ld b, a inc a jr z, .asm_422fd ld a, [InLinkBattle] cp $1 jp z, .asm_423fa ld a, [TempMonItem] cp b jp nz, .asm_423fa xor a ld [TempMonItem], a jr .asm_422fd .item ld a, [hli] ld b, a ld a, [CurItem] cp b jp nz, .asm_423fa ld a, [$d1e9] and a jp z, .asm_423fa ld a, [InLinkBattle] and a jp nz, .asm_423fa jr .asm_422fd .level ld a, [hli] ld b, a ld a, [TempMonLevel] cp b jp c, .asm_423fa call Function42461 jp z, .asm_423fa .asm_422fd ld a, [TempMonLevel] ld [CurPartyLevel], a ld a, $1 ld [$d268], a push hl ld a, [hl] ld [Buffer2], a ld a, [CurPartyMon] ld hl, PartyMon1Nickname call GetNick call CopyName1 ld hl, UnknownText_0x42482 call PrintText ld c, 50 call DelayFrames xor a ld [hBGMapMode], a ld hl, TileMap lb bc, 12, 20 call ClearBox ld a, $1 ld [hBGMapMode], a call ClearSprites callba EvolutionAnimation push af call ClearSprites pop af jp c, Function42454 ld hl, UnknownText_0x42473 call PrintText pop hl ld a, [hl] ld [CurSpecies], a ld [TempMonSpecies], a ld [Buffer2], a ld [$d265], a call GetPokemonName push hl ld hl, UnknownText_0x42478 call PrintTextBoxText callba Function106094 ld de, MUSIC_NONE call PlayMusic ld de, SFX_CAUGHT_MON call PlaySFX call WaitSFX ld c, 40 call DelayFrames call ClearTileMap call Function42414 call GetBaseData ld hl, $d118 ld de, TempMonMaxHP ld b, $1 ld a, PREDEF_FILLSTATS call Predef ld a, [CurPartyMon] ld hl, PartyMons ld bc, PartyMon2 - PartyMon1 call AddNTimes ld e, l ld d, h ld bc, $0024 add hl, bc ld a, [hli] ld b, a ld c, [hl] ld hl, $d133 ld a, [hld] sub c ld c, a ld a, [hl] sbc b ld b, a ld hl, $d131 ld a, [hl] add c ld [hld], a ld a, [hl] adc b ld [hl], a ld hl, TempMonSpecies ld bc, $0030 call CopyBytes ld a, [CurSpecies] ld [$d265], a xor a ld [MonType], a call Function42487 ld a, [$d265] dec a call SetSeenAndCaughtMon ld a, [$d265] cp UNOWN jr nz, .asm_423ec ld hl, TempMonDVs ld a, PREDEF_GET_UNOWN_LETTER call Predef callab Functionfba18 .asm_423ec pop de pop hl ld a, [TempMonSpecies] ld [hl], a push hl ld l, e ld h, d jp Function421f5 ; 423f8 .asm_423f8 inc hl .asm_423f9 inc hl .asm_423fa inc hl jp .asm_42230 ; 423fe INCBIN "baserom.gbc", $423fe, $423ff - $423fe Function423ff: ; 423ff pop de pop bc pop hl ld a, [InLinkBattle] and a ret nz ld a, [IsInBattle] and a ret nz ld a, [$d268] and a call nz, Function3d47 ret ; 42414 Function42414: ; 42414 ld a, [CurSpecies] push af ld a, [BaseDexNo] ld [$d265], a call GetPokemonName pop af ld [CurSpecies], a ld hl, StringBuffer1 ld de, StringBuffer2 .asm_4242b ld a, [de] inc de cp [hl] inc hl ret nz cp "@" jr nz, .asm_4242b ld a, [CurPartyMon] ld bc, $000b ld hl, PartyMon1Nickname call AddNTimes push hl ld a, [CurSpecies] ld [$d265], a call GetPokemonName ld hl, StringBuffer1 pop de ld bc, $000b jp CopyBytes ; 42454 Function42454: ; 42454 ld hl, UnknownText_0x4247d call PrintText call ClearTileMap pop hl jp Function421f5 ; 42461 Function42461: ; 42461 push hl ld a, [CurPartyMon] ld hl, PartyMon1Item ld bc, PartyMon2 - PartyMon1 call AddNTimes ld a, [hl] cp EVERSTONE pop hl ret ; 42473 UnknownText_0x42473: ; 0x42473 ; Congratulations! Your @ @ text_jump UnknownText_0x1c4b92 db "@" ; 0x42478 UnknownText_0x42478: ; 0x42478 ; evolved into @ ! text_jump UnknownText_0x1c4baf db "@" ; 0x4247d UnknownText_0x4247d: ; 0x4247d ; Huh? @ stopped evolving! text_jump UnknownText_0x1c4bc5 db "@" ; 0x42482 UnknownText_0x42482: ; 0x42482 ; What? @ is evolving! text_jump UnknownText_0x1c4be3 db "@" ; 0x42487 Function42487: ; 42487 ld a, [$d265] ld [CurPartySpecies], a dec a ld b, $0 ld c, a ld hl, EvosAttacksPointers add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a .asm_42499 ld a, [hli] and a jr nz, .asm_42499 .asm_4249d ld a, [hli] and a jr z, .asm_424da ld b, a ld a, [CurPartyLevel] cp b ld a, [hli] jr nz, .asm_4249d push hl ld d, a ld hl, PartyMon1Move1 ld a, [CurPartyMon] ld bc, $0030 call AddNTimes ld b, $4 .asm_424b9 ld a, [hli] cp d jr z, .asm_424c2 dec b jr nz, .asm_424b9 jr .asm_424c5 .asm_424c2 pop hl jr .asm_4249d .asm_424c5 ld a, d ld [$d262], a ld [$d265], a call GetMoveName call CopyName1 ld a, $0 call Predef pop hl jr .asm_4249d .asm_424da ld a, [CurPartySpecies] ld [$d265], a ret ; 424e1 FillMoves: ; 424e1 ; Fill in moves at de for CurPartySpecies at CurPartyLevle push hl push de push bc ld hl, EvosAttacksPointers ld b, 0 ld a, [CurPartySpecies] dec a add a rl b ld c, a add hl, bc ld a, [hli] ld h, [hl] ld l, a .GoToAttacks ld a, [hli] and a jr nz, .GoToAttacks jr .GetLevel .NextMove pop de .GetMove inc hl .GetLevel ld a, [hli] and a jp z, .done ld b, a ld a, [CurPartyLevel] cp b jp c, .done ld a, [Buffer1] and a jr z, .CheckMove ld a, [DefaultFlypoint] cp b jr nc, .GetMove .CheckMove push de ld c, NUM_MOVES .CheckRepeat ld a, [de] inc de cp [hl] jr z, .NextMove dec c jr nz, .CheckRepeat pop de push de ld c, NUM_MOVES .CheckSlot ld a, [de] and a jr z, .LearnMove inc de dec c jr nz, .CheckSlot pop de push de push hl ld h, d ld l, e call ShiftMoves ld a, [Buffer1] and a jr z, .ShiftedMove push de ld bc, PartyMon1PP - PartyMon1Move4 add hl, bc ld d, h ld e, l call ShiftMoves pop de .ShiftedMove pop hl .LearnMove ld a, [hl] ld [de], a ld a, [Buffer1] and a jr z, .NextMove push hl ld a, [hl] ld hl, PartyMon1PP - PartyMon1Moves add hl, de push hl dec a ld hl, Moves + MOVE_PP ld bc, Move2 - Move1 call AddNTimes ld a, BANK(Moves) call GetFarByte pop hl ld [hl], a pop hl jr .NextMove .done pop bc pop de pop hl ret ; 4256e ShiftMoves: ; 4256e ld c, $3 .asm_42570 inc de ld a, [de] ld [hli], a dec c jr nz, .asm_42570 ret ; 42577 Function42577: ; 42577 push de ld d, $0 ld a, $3 call Predef pop de ret ; 42581 GetPreEvolution: ; 42581 ; Find the first mon to evolve into CurPartySpecies. ; Return carry and the new species in CurPartySpecies ; if a pre-evolution is found. ld c, BULBASAUR - 1 .asm_42583 ld hl, EvosAttacksPointers ld b, 0 add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a .asm_4258d ld a, [hli] and a jr z, .asm_425a2 cp EVOLVE_STAT jr nz, .asm_42596 inc hl .asm_42596 inc hl ld a, [CurPartySpecies] cp [hl] jr z, .asm_425aa inc hl ld a, [hl] and a jr nz, .asm_4258d .asm_425a2 inc c ld a, c cp NUM_POKEMON jr c, .asm_42583 and a ret .asm_425aa inc c ld a, c ld [CurPartySpecies], a scf ret ; 425b1 SECTION "bank11", ROMX, BANK[$11] INCLUDE "engine/fruit_trees.asm" AIChooseMove: ; 440ce ; Score each move in EnemyMonMoves starting from Buffer1. Lower is better. ; Pick the move with the lowest score. ; Wildmons attack at random. ld a, [IsInBattle] dec a ret z ld a, [InLinkBattle] and a ret nz ; No use picking a move if there's no choice. callba Function3e8d1 ret nz ; The default score is 20. Unusable moves are given a score of 80. ld a, 20 ld hl, Buffer1 ld [hli], a ld [hli], a ld [hli], a ld [hl], a ; Don't pick disabled moves. ld a, [EnemyDisabledMove] and a jr z, .CheckPP ld hl, EnemyMonMove1 ld c, 0 .CheckDisabledMove cp [hl] jr z, .ScoreDisabledMove inc c inc hl jr .CheckDisabledMove .ScoreDisabledMove ld hl, Buffer1 ld b, 0 add hl, bc ld [hl], 80 ; Don't pick moves with 0 PP. .CheckPP ld hl, Buffer1 - 1 ld de, EnemyMonPP ld b, 0 .CheckMovePP inc b ld a, b cp EnemyMonMovesEnd - EnemyMonMoves + 1 jr z, .ApplyLayers inc hl ld a, [de] inc de and $3f jr nz, .CheckMovePP ld [hl], 80 jr .CheckMovePP ; Apply AI scoring layers depending on the trainer class. .ApplyLayers ld hl, $559f ; TrainerAI + 3 ; e:559c-5771 ld a, [$cfc0] bit 0, a jr nz, .asm_4412f ld a, [TrainerClass] dec a ld bc, 7 ; Trainer2AI - Trainer1AI call AddNTimes .asm_4412f ld bc, (CHECK_FLAG << 8) | 0 push bc push hl .CheckLayer pop hl pop bc ld a, c cp 16 ; up to 16 scoring layers jr z, .asm_4415e push bc ld d, $e ; BANK(TrainerAI) ld a, PREDEF_FLAG call Predef ld d, c pop bc inc c push bc push hl ld a, d and a jr z, .CheckLayer ld hl, AIScoringPointers dec c ld b, 0 add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a ld a, BANK(AIScoring) call FarCall_hl jr .CheckLayer .asm_4415e ld hl, Buffer1 ld de, EnemyMonMoves ld c, EnemyMonMovesEnd - EnemyMonMoves .asm_44166 ld a, [de] inc de and a jr z, .asm_4415e dec [hl] jr z, .asm_44174 inc hl dec c jr z, .asm_4415e jr .asm_44166 .asm_44174 ld a, c .asm_44175 inc [hl] dec hl inc a cp EnemyMonMovesEnd - EnemyMonMoves + 1 jr nz, .asm_44175 ld hl, Buffer1 ld de, EnemyMonMoves ld c, EnemyMonMovesEnd - EnemyMonMoves .asm_44184 ld a, [de] and a jr nz, .asm_44189 ld [hl], a .asm_44189 ld a, [hl] dec a jr z, .asm_44191 xor a ld [hli], a jr .asm_44193 .asm_44191 ld a, [de] ld [hli], a .asm_44193 inc de dec c jr nz, .asm_44184 .asm_44197 ld hl, Buffer1 call Random and 3 ld c, a ld b, 0 add hl, bc ld a, [hl] and a jr z, .asm_44197 ld [CurEnemyMove], a ld a, c ld [CurEnemyMoveNum], a ret ; 441af AIScoringPointers: ; 441af dw AIScoring_RedStatus dw AIScoring_RedStatMods dw AIScoring_RedSuperEffective dw AIScoring_Offensive dw AIScoring_Smart dw AIScoring_Opportunist dw AIScoring_Aggressive dw AIScoring_Cautious dw AIScoring_StatusImmunity dw AIScoring_Risky dw AIScoring_None dw AIScoring_None dw AIScoring_None dw AIScoring_None dw AIScoring_None dw AIScoring_None ; 441cf Function441cf: ; 441cf ld hl, $41fc ld b, $19 .asm_441d4 ld a, [hli] cp $fe jr nz, .asm_441dd ld hl, $41fc ld a, [hli] .asm_441dd ld [$c7db], a ld a, [hli] ld c, a push bc push hl call Function44207 pop hl pop bc call DelayFrames dec b jr nz, .asm_441d4 xor a ld [$c7db], a call Function44207 ld c, $20 call DelayFrames ret ; 441fc INCBIN "baserom.gbc",$441fc,$44207 - $441fc Function44207: ; 44207 ld a, [$c7db] ld hl, $4228 ld de, Sprites .asm_44210 ld a, [hli] cp $ff ret z ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [$c7db] ld b, a add a add b add [hl] inc hl ld [de], a inc de ld a, [hli] ld [de], a inc de jr .asm_44210 ; 44228 INCBIN "baserom.gbc",$44228,$4424d - $44228 Function4424d: ; 4424d call GetPokemonName ld hl, $c4e5 call PlaceString ld a, [$d265] ld b, a call Function44333 ld a, b push af ld hl, $c50d call Function13d4 ld h, b ld l, c push de ld hl, $c542 ld a, $5c ld [hli], a ld a, $5d ld [hli], a ld de, $d265 ld bc, $8103 call PrintNum ld a, [$d265] dec a call CheckCaughtMon pop hl pop bc ret z ld a, [CurPartySpecies] ld [CurSpecies], a inc hl ld a, b push af push hl call GetFarHalfword ld d, l ld e, h pop hl inc hl inc hl ld a, d or e jr z, .asm_442b0 push hl push de ld hl, [sp+$0] ld d, h ld e, l ld hl, $c538 ld bc, $0224 call PrintNum ld hl, $c53a ld [hl], $5e pop af pop hl .asm_442b0 pop af push af inc hl push hl dec hl call GetFarHalfword ld d, l ld e, h ld a, e or d jr z, .asm_442cd push de ld hl, [sp+$0] ld d, h ld e, l ld hl, $c55f ld bc, ClearVRAM call PrintNum pop de .asm_442cd ld bc, $0512 ld hl, $c57e call ClearBox ld hl, $c569 ld bc, $0013 ld a, $61 call ByteFill ld hl, $c555 ld [hl], $55 inc hl ld [hl], $55 ld hl, $c569 ld [hl], $56 inc hl ld [hl], $57 pop de inc de pop af ld hl, $c57e push af call Function13d4 pop bc ld a, [$cf65] or a ret z push bc push de ld bc, $0512 ld hl, $c57e call ClearBox ld hl, $c569 ld bc, $0013 ld a, $61 call ByteFill ld hl, $c555 ld [hl], $55 inc hl ld [hl], $55 ld hl, $c569 ld [hl], $56 inc hl ld [hl], $58 pop de inc de pop af ld hl, $c57e call Function13d4 ret ; 44331 INCBIN "baserom.gbc",$44331,$44333 - $44331 Function44333: ; 44333 push hl ld hl, PokedexDataPointerTable ld a, b dec a ld d, $0 ld e, a add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] push de rlca rlca and $3 ld hl, $4351 ld d, $0 ld e, a add hl, de ld b, [hl] pop de pop hl ret ; 44351 INCBIN "baserom.gbc",$44351,$44378 - $44351 PokedexDataPointerTable: ; 0x44378 INCLUDE "stats/pokedex/entry_pointers.asm" Function4456e: ; 4456e ld a, $1 call GetPartyParamLocation ld d, [hl] callba ItemIsMail jr nc, .asm_445be call Function44648 cp $a jr nc, .asm_445be ld bc, $002f ld hl, $a835 call AddNTimes ld d, h ld e, l ld a, [CurPartyMon] ld bc, $002f ld hl, $a600 call AddNTimes push hl ld a, $0 call GetSRAMBank ld bc, $002f call CopyBytes pop hl xor a ld bc, $002f call ByteFill ld a, $1 call GetPartyParamLocation ld [hl], $0 ld hl, $a834 inc [hl] call CloseSRAM xor a ret .asm_445be scf ret ; 445c0 ; known jump sources: 44645 (11:4645) Function445c0: ; 445c0 (11:45c0) ld a, $0 call GetSRAMBank ld a, b push bc ld hl, $a835 ld bc, $2f call AddNTimes push hl add hl, bc pop de pop bc .asm_445d4 ld a, b cp $9 jr z, .asm_445e4 push bc ld bc, $2f call CopyBytes pop bc inc b jr .asm_445d4 .asm_445e4 ld h, d ld l, e xor a ld bc, $2f call ByteFill ld hl, $a834 dec [hl] jp CloseSRAM ; 445f4 (11:45f4) Function445f4: ; 445f4 ld a, b ld hl, $a835 ld bc, $2f call AddNTimes ld d, h ld e, l callba Functionb9237 ret Function44607: ; 44607 ld a, $0 call GetSRAMBank push bc ld a, b ld bc, $2f ld hl, $a835 call AddNTimes push hl ld a, [CurPartyMon] ; $d109 ld bc, $2f ld hl, $a600 call AddNTimes ld d, h ld e, l pop hl push hl ld bc, $2f call CopyBytes pop hl ld de, $2e add hl, de ld d, [hl] ld a, [CurPartyMon] ; $d109 ld hl, PartyMon1Item ; $dce0 ld bc, $30 call AddNTimes ld [hl], d call CloseSRAM pop bc jp Function445c0 ; 44648 (11:4648) Function44648: ; 44648 ld a, $0 call GetSRAMBank ld a, [$a834] ld c, a jp CloseSRAM ; 44654 Function44654: ; 44654 push bc push de callba Function50000 ld a, $2 jr c, .asm_446c6 ld a, [CurPartyMon] ld hl, PartyMon1Item ld bc, $0030 call AddNTimes ld d, [hl] callba ItemIsMail ld a, $3 jr nc, .asm_446c6 ld a, $0 call GetSRAMBank ld a, [CurPartyMon] ld hl, $a600 ld bc, $002f call AddNTimes ld d, h ld e, l pop hl pop bc ld a, $20 ld [$d265], a .asm_44691 ld a, [de] ld c, a ld a, b call GetFarByte cp $50 jr z, .asm_446ab cp c ld a, $0 jr nz, .asm_446c1 inc hl inc de ld a, [$d265] dec a ld [$d265], a jr nz, .asm_44691 .asm_446ab callba Functione538 ld a, $4 jr c, .asm_446c1 xor a ld [$d10b], a callba Functione039 ld a, $1 .asm_446c1 call CloseSRAM jr .asm_446c8 .asm_446c6 pop de pop bc .asm_446c8 ld [ScriptVar], a ret ; 446cc Function446cc: ; 446cc ld a, [PartyCount] dec a push af push bc ld hl, PartyMon1Item ld bc, $0030 call AddNTimes pop bc ld [hl], b pop af push bc push af ld hl, $a600 ld bc, $002f call AddNTimes ld d, h ld e, l ld hl, DefaultFlypoint ld bc, $0021 ld a, $0 call GetSRAMBank call CopyBytes pop af push af ld hl, PartyMon1OT ld bc, $000b call AddNTimes ld bc, $000a call CopyBytes pop af ld hl, PartyMon1ID ld bc, $0030 call AddNTimes ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a inc de ld a, [CurPartySpecies] ld [de], a inc de pop bc ld a, b ld [de], a jp CloseSRAM ; 44725 Function44725: ; 44725 ld a, $0 call GetSRAMBank ld hl, $a600 ld de, $a71a ld bc, $011a call CopyBytes ld hl, $a834 ld de, $aa0b ld bc, $01d7 call CopyBytes jp CloseSRAM ; 44745 ; no known jump sources Function44745: ; 44745 (11:4745) ld a, $0 call GetSRAMBank ld hl, $a71a ld de, $a600 ld bc, $11a call CopyBytes ld hl, $aa0b ld de, $a834 ld bc, $1d7 call CopyBytes jp CloseSRAM ; no known jump sources Function44765: ; 44765 (11:4765) ld a, $0 call GetSRAMBank xor a ld hl, $a600 ld bc, $11a call ByteFill xor a ld hl, $a834 ld bc, $1d7 call ByteFill jp CloseSRAM ; 44781 (11:4781) INCBIN "baserom.gbc",$44781,$447a0 - $44781 _KrisMailBoxMenu: ; 0x447a0 call InitMail jr z, .nomail call Function1d6e call Function44806 jp Function1c17 .nomail ld hl, .EmptyMailboxText jp Function1d67 ; 0x447b4 .EmptyMailboxText ; 0x447b4 TX_FAR _EmptyMailboxText db "@" InitMail: ; 0x447b9 ; initialize $d0f2 and beyond with incrementing values, one per mail ; set z if no mail ld a, $0 call GetSRAMBank ld a, [$a834] call CloseSRAM ld hl, $d0f2 ld [hli], a and a jr z, .done ; if no mail, we're done ; load values in memory with incrementing values starting at $d0f2 ld b, a ld a, $1 .loop ld [hli], a inc a dec b jr nz, .loop .done ld [hl], $ff ; terminate ld a, [$d0f2] and a ret ; 0x447da Function447da: ; 0x447da dec a ld hl, $a856 ld bc, $002f call AddNTimes ld a, $0 call GetSRAMBank ld de, StringBuffer2 push de ld bc, $a call CopyBytes ld a, $50 ld [de], a call CloseSRAM pop de ret ; 0x447fb Function447fb: ; 0x447fb push de ld a, [MenuSelection] call Function447da pop hl jp PlaceString ; 0x44806 Function44806: ; 0x44806 xor a ld [CurMart], a ld a, $1 ld [$d0f1], a .asm_4480f call InitMail ld hl, MenuData4494c call Function1d3c xor a ld [hBGMapMode], a call Function352f call Function1ad2 ld a, [$d0f1] ld [$cf88], a ld a, [CurMart] ld [$d0e4], a call Function350c ld a, [$d0e4] ld [CurMart], a ld a, [$cfa9] ld [$d0f1], a ld a, [$cf73] cp $2 jr z, .asm_44848 call Function4484a jr .asm_4480f .asm_44848 xor a ret ; 0x4484a Function4484a: ; 0x4484a ld hl, MenuData44964 call LoadMenuDataHeader call Function1d81 call Function1c07 jr c, .asm_44860 ld a, [$cfa9] dec a ld hl, $4861 rst JumpTable .asm_44860 ret ; 0x44861 .JumpTable dw .ReadMail dw .PutInPack dw .AttachMail dw .Cancel .ReadMail ; 0x44869 call FadeToMenu ld a, [MenuSelection] dec a ld b, a call Function445f4 jp Function2b3c ; 0x44877 .PutInPack ; 0x44877 ld hl, .MessageLostText call Function1d4f call YesNoBox call Function1c07 ret c ld a, [MenuSelection] dec a call .Function448bb ld a, $1 ld [$d10c], a ld hl, NumItems call ReceiveItem jr c, .asm_4489e ld hl, .PackFullText jp Function1d67 .asm_4489e ld a, [MenuSelection] dec a ld b, a call Function445c0 ld hl, .PutAwayText jp Function1d67 ; 0x448ac .PutAwayText ; 0x448ac TX_FAR ClearedMailPutAwayText db "@" .PackFullText ; 0x448b1 TX_FAR MailPackFullText db "@" .MessageLostText ; 0x448b6 TX_FAR MailMessageLostText db "@" .Function448bb: ; 0x448bb push af ld a, $0 call GetSRAMBank pop af ld hl, $a863 ld bc, $002f call AddNTimes ld a, [hl] ld [CurItem], a jp CloseSRAM ; 0x448d2 .AttachMail ; 0x448d2 call FadeToMenu xor a ld [PartyMenuActionText], a call WhiteBGMap .asm_448dc callba Function5004f callba Function50405 callba Function503e0 callba WritePartyMenuTilemap callba PrintPartyMenuText call WaitBGMap call Function32f9 call DelayFrame callba PartyMenuSelect jr c, .asm_44939 ld a, [CurPartySpecies] cp EGG jr z, .asm_44923 ld a, PartyMon1Item - PartyMon1 call GetPartyParamLocation ld a, [hl] and a jr z, .asm_4492b ld hl, .HoldingMailText call PrintText jr .asm_448dc .asm_44923 ld hl, .EggText call PrintText jr .asm_448dc .asm_4492b ld a, [MenuSelection] dec a ld b, a call Function44607 ld hl, .MailMovedText call PrintText .asm_44939 jp Function2b3c ; 0x4493c .HoldingMailText ; 0x4493c TX_FAR MailAlreadyHoldingItemText db "@" .EggText ; 0x44941 TX_FAR MailEggText db "@" .MailMovedText ; 0x44946 TX_FAR MailMovedFromBoxText db "@" .Cancel ret MenuData4494c: ; 0x4494c db %01000000 ; flags db 1, 8 ; start coords db $a, $12 ; end coords dw .MenuData2 db 1 ; default option .MenuData2 db %00010000 ; flags db 4, 0 ; rows/columns? db 1 ; horizontal spacing? dbw 0,$d0f2 ; text pointer dbw BANK(Function447fb), Function447fb dbw 0,0 dbw 0,0 MenuData44964: ; 0x44964 db %01000000 ; flags db 0, 0 ; start coords db 9, $d ; end coords dw .MenuData2 db 1 ; default option .MenuData2 db %10000000 ; flags db 4 ; items db "READ MAIL@" db "PUT IN PACK@" db "ATTACH MAIL@" db "CANCEL@" SECTION "bank12", ROMX, BANK[$12] Function48000: ; 48000 ld a, $1 ld [$d474], a xor a ld [$d473], a ld [PlayerGender], a ld [$d475], a ld [$d476], a ld [$d477], a ld [$d478], a ld [DefaultFlypoint], a ld [$d003], a ld a, [$d479] res 0, a ld [$d479], a ld a, [$d479] res 1, a ld [$d479], a ret ; 4802f ; known jump sources: 4a0e8 (12:60e8) Function4802f: ; 4802f (12:402f) xor a set 6, a ld [DefaultFlypoint], a ; $d002 ld hl, $d003 set 0, [hl] ld a, c and a call z, Function48000 call WhiteBGMap call Function48d3d ld a, [$d479] bit 1, a jr z, .asm_4805a ld a, [$d003] set 0, a set 1, a set 2, a set 3, a ld [$d003], a .asm_4805a call Function486bf call Functione5f ld de, $48c3 ld hl, $9100 ld bc, $1201 call Request1bpp ld de, $48cb ld hl, $9110 ld bc, $1201 call Request1bpp call Function4a3a7 call WhiteBGMap ld a, [DefaultFlypoint] ; $d002 bit 6, a jr z, .asm_4808a call Function48689 jr .asm_480d7 .asm_4808a ld a, $5 ld [MusicFade], a ; $c2a7 ld a, $5e ld [MusicFadeIDLo], a ; $c2a9 ld a, $0 ld [MusicFadeIDHi], a ; $c2aa ld c, $14 call DelayFrames ld b, $1 call Function4930f call WhiteBGMap ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld b, $2 ld c, $14 call ClearBox ld hl, $c4b4 ld a, $c ld [hl], a ld bc, $13 add hl, bc ld [hl], a ld de, $4471 ld hl, $c4b5 call PlaceString ld hl, $c4c8 ld b, $a ld c, $12 call Function48cdc ld hl, $c4f2 ld de, $4482 call PlaceString .asm_480d7 ld hl, $c51a ld de, $4489 call PlaceString ld hl, $c542 ld de, $448d call PlaceString ld hl, $c56a ld de, $4495 call PlaceString ld hl, $c592 ld de, $449e call PlaceString ld a, [DefaultFlypoint] ; $d002 bit 6, a jr nz, .asm_48113 ld a, [PlayerGender] ; $d472 ld hl, $44fb call GetNthString ld d, h ld e, l ld hl, $c4fb call PlaceString .asm_48113 ld hl, $c523 call Function487ec ld a, [$d474] dec a ld hl, $455b call GetNthString ld d, h ld e, l ld hl, $c54b call PlaceString ld hl, $c573 call Function489ea ld hl, $c5b8 ld b, $2 ld c, $12 call TextBox ld hl, $c5e1 ld de, $4275 call PlaceString call Function48187 call Function3200 call Function32f9 call Function1bc9 ld hl, $cfa9 ld b, [hl] push bc jr asm_4815f ; known jump sources: 48434 (12:4434), 48441 (12:4441) Function48157: ; 48157 (12:4157) call Function1bd3 ld hl, $cfa9 ld b, [hl] push bc ; known jump sources: 48155 (12:4155) asm_4815f: ; 4815f (12:415f) bit 0, a jp nz, Function4820d ld b, a ld a, [DefaultFlypoint] ; $d002 bit 6, a jr z, .asm_48177 ld hl, $d479 bit 1, [hl] jr z, .asm_48177 bit 1, b jr nz, .asm_4817a .asm_48177 jp Function48272 .asm_4817a call WhiteBGMap call Function48d30 pop bc call ClearTileMap ld a, $ff ret ; known jump sources: 48144 (12:4144), 48377 (12:4377), 4840c (12:440c) Function48187: ; 48187 (12:4187) ld a, [$d479] bit 1, a jr nz, .asm_481f1 ld a, [$d003] ld d, a call Function48725 jr c, .asm_481a2 ld bc, $104 ld hl, $c592 call ClearBox jr .asm_481ad .asm_481a2 push de ld hl, $c592 ld de, $449e call PlaceString pop de .asm_481ad ld a, [DefaultFlypoint] ; $d002 bit 6, a jr nz, .asm_481c1 bit 0, d jr nz, .asm_481c1 ld bc, $108 ld hl, $c4fb call ClearBox .asm_481c1 bit 1, d jr nz, .asm_481ce ld bc, $108 ld hl, $c523 call ClearBox .asm_481ce bit 2, d jr nz, .asm_481db ld bc, $208 ld hl, $c537 call ClearBox .asm_481db bit 3, d jr nz, .asm_481f1 ld a, [$d479] bit 0, a jr nz, .asm_481f8 ld bc, $108 ld hl, $c573 call ClearBox jr .asm_48201 .asm_481f1 ld a, [$d479] bit 0, a jr nz, .asm_48201 .asm_481f8 ld hl, $c573 ld de, $4202 call PlaceString .asm_48201 ret ; 48202 (12:4202) INCBIN "baserom.gbc",$48202,$4820d - $48202 ; known jump sources: 48161 (12:4161) Function4820d: ; 4820d (12:420d) call Function1bee ld hl, $cfa9 ld a, [hl] push af ld a, [DefaultFlypoint] ; $d002 bit 6, a jr z, .asm_4821f pop af inc a push af .asm_4821f pop af cp $1 jr z, asm_4828d cp $2 jp z, Function4876f cp $3 jp z, Function48304 cp $4 jp z, Function488d3 ld a, $2 call Function1ff8 ld a, [DefaultFlypoint] ; $d002 bit 6, a jr z, .asm_4825c jr .asm_4825c ; 48241 (12:4241) INCBIN "baserom.gbc",$48241,$4825c - $48241 .asm_4825c call WhiteBGMap call Function48d30 pop bc call ClearTileMap ld b, $8 call GetSGBLayout ld hl, $d479 set 1, [hl] xor a ret ; known jump sources: 48177 (12:4177) Function48272: ; 48272 (12:4272) jp Function4840c ; 48275 (12:4275) INCBIN "baserom.gbc",$48275,$48283 - $48275 ; known jump sources: 4828d (12:428d), 48304 (12:4304), 4840f (12:440f), 4876f (12:476f), 488d3 (12:48d3) Function48283: ; 48283 (12:4283) ld bc, $212 ld hl, $c5cd call ClearBox ret ; known jump sources: 48222 (12:4222) asm_4828d: ; 4828d (12:428d) call Function48283 ld hl, $c5e1 ld de, $44b1 call PlaceString ld hl, $44f1 call LoadMenuDataHeader call Function4873c ld hl, $c4d3 ld b, $4 ld c, $7 call Function48cdc ld hl, $c4fd ld de, $44fb call PlaceString ld hl, $c525 ld de, $44ff call PlaceString call WaitBGMap ld a, [PlayerGender] ; $d472 inc a ld [$cf88], a call Function1bc9 call PlayClickSFX call Function1c07 bit 0, a jp z, Function4840c ld hl, $cfa9 ld a, [hl] ld hl, $44fb cp $1 jr z, .asm_482ed .asm_482e1 ld a, [hli] cp $50 jr nz, .asm_482e1 ld a, $1 ld [PlayerGender], a ; $d472 jr .asm_482f1 .asm_482ed xor a ld [PlayerGender], a ; $d472 .asm_482f1 ld d, h ld e, l ld hl, $c4fb call PlaceString ld a, [$d003] set 0, a ld [$d003], a jp Function4840c ; known jump sources: 4822b (12:422b) Function48304: ; 48304 (12:4304) call Function48283 ld hl, $c5e1 ld de, $44cf call PlaceString ld hl, $4504 call LoadMenuDataHeader ld hl, $4513 call LoadMenuDataHeader ld hl, $c4aa ld b, $c ld c, $8 call Function48cdc ld a, [$cf88] ld b, a ld a, [$d0e4] ld c, a push bc ld a, [$d474] dec a cp $29 jr c, .asm_4833f sub $29 inc a ld [$cf88], a ld a, $29 .asm_4833f ld [$d0e4], a callba Function104148 .asm_48348 call Function350c ld de, $629 call Function48383 jr c, .asm_48348 ld d, a pop bc ld a, b ld [$cf88], a ld a, c ld [$d0e4], a ld a, d push af call Function1c07 call Function1c07 pop af ld a, [hJoyPressed] ; $ff00+$a7 bit 0, a jr z, .asm_48377 call Function483bb ld a, [$d003] set 2, a ld [$d003], a .asm_48377 call Function48187 callba Function104148 jp Function4840c ; known jump sources: 4834e (12:434e) Function48383: ; 48383 (12:4383) push bc push af bit 5, a jr nz, .asm_48390 bit 4, a jr nz, .asm_4839f and a jr .asm_483b7 .asm_48390 ld a, [$d0e4] sub d ld [$d0e4], a jr nc, .asm_483af xor a ld [$d0e4], a jr .asm_483af .asm_4839f ld a, [$d0e4] add d ld [$d0e4], a cp e jr c, .asm_483af ld a, e ld [$d0e4], a jr .asm_483af .asm_483af ld hl, $cfa9 ld a, [hl] ld [$cf88], a scf .asm_483b7 pop bc ld a, b pop bc ret ; known jump sources: 4836c (12:436c) Function483bb: ; 483bb (12:43bb) ld hl, $cf77 ld a, [hl] inc a ld [$d474], a dec a ld b, a ld hl, $455b .asm_483c8 and a jr z, .asm_483d5 .asm_483cb ld a, [hli] cp $50 jr nz, .asm_483cb ld a, b dec a ld b, a jr .asm_483c8 .asm_483d5 ld d, h ld e, l ld b, $2 ld c, $8 ld hl, $c537 call ClearBox ld hl, $c54b call PlaceString ret ; 483e8 (12:43e8) INCBIN "baserom.gbc",$483e8,$4840c - $483e8 ; known jump sources: 48272 (12:4272), 482d3 (12:42d3), 48301 (12:4301), 48380 (12:4380), 487e9 (12:47e9), 488e2 (12:48e2), 489e7 (12:49e7) Function4840c: ; 4840c (12:440c) call Function48187 call Function48283 ld hl, $c5e1 ld de, $4275 call PlaceString call Function486bf pop bc ld hl, $cfa9 ld [hl], b ld a, [DefaultFlypoint] ; $d002 bit 6, a jr nz, .asm_48437 ld b, $9 ld c, $1 ld hl, $c4f1 call ClearBox jp Function48157 .asm_48437 ld b, $7 ld c, $1 ld hl, $c519 call ClearBox jp Function48157 ; known jump sources: 489f0 (12:49f0), 489fb (12:49fb), 48a04 (12:4a04), 48a16 (12:4a16), 48a1f (12:4a1f), 48a2a (12:4a2a), 48a33 (12:4a33) Function48444: ; 48444 (12:4444) push bc push af push de push hl ld hl, $445d .asm_4844b and a jr z, .asm_48453 inc hl inc hl dec a jr .asm_4844b .asm_48453 ld d, h ld e, l pop hl call PlaceString pop de pop af pop bc ret ; 4845d (12:445d) INCBIN "baserom.gbc",$4845d,$48689 - $4845d ; known jump sources: 48085 (12:4085) Function48689: ; 48689 (12:4689) ld c, $7 call DelayFrames ld b, $1 call Function4930f call WhiteBGMap ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld b, $4 ld c, $14 call ClearBox ld hl, $c4c8 ld a, $c ld [hl], a ld bc, $13 add hl, bc ld [hl], a ld de, $4471 ld hl, $c4c9 call PlaceString ld hl, $c4f0 ld b, $8 ld c, $12 call Function48cdc ret ; known jump sources: 4805a (12:405a), 4841b (12:441b) Function486bf: ; 486bf (12:46bf) ld hl, $cfa1 ld a, [DefaultFlypoint] ; $d002 bit 6, a jr nz, .asm_486ce ld a, $4 ld [hli], a jr .asm_486d1 .asm_486ce ld a, $6 ld [hli], a .asm_486d1 ld a, $1 ld [hli], a ld a, [DefaultFlypoint] ; $d002 bit 6, a jr nz, .asm_486e7 call Function48725 ld a, $4 jr nc, .asm_486e4 ld a, $5 .asm_486e4 ld [hli], a jr .asm_486fb .asm_486e7 ld a, [$d479] bit 1, a jr nz, .asm_486f8 call Function48725 jr c, .asm_486f8 ld a, $3 ld [hli], a jr .asm_486fb .asm_486f8 ld a, $4 ld [hli], a .asm_486fb ld a, $1 ld [hli], a ld [hl], $0 set 5, [hl] inc hl xor a ld [hli], a ld a, $20 ld [hli], a ld a, $1 add $40 add $80 push af ld a, [DefaultFlypoint] ; $d002 bit 6, a jr z, .asm_4871a pop af add $2 push af .asm_4871a pop af ld [hli], a ld a, $1 ld [hli], a ld [hli], a xor a ld [hli], a ld [hli], a ld [hli], a ret ; known jump sources: 48192 (12:4192), 486db (12:46db), 486ee (12:46ee) Function48725: ; 48725 (12:4725) ld a, [$d003] bit 0, a jr z, .asm_4873a bit 1, a jr z, .asm_4873a bit 2, a jr z, .asm_4873a bit 3, a jr z, .asm_4873a scf ret .asm_4873a and a ret ; known jump sources: 4829f (12:429f), 48a40 (12:4a40) Function4873c: ; 4873c (12:473c) ld hl, $cfa1 ld a, $4 ld [hli], a ld a, $c ld [hli], a ld a, $2 ld [hli], a ld a, $1 ld [hli], a ld [hl], $0 set 5, [hl] inc hl xor a ld [hli], a ld a, $20 ld [hli], a ld a, $1 add $2 ld [hli], a ld a, [PlayerGender] ; $d472 and a jr z, .asm_48764 ld a, $2 jr .asm_48766 .asm_48764 ld a, $1 .asm_48766 ld [hli], a ld a, $1 ld [hli], a xor a ld [hli], a ld [hli], a ld [hli], a ret ; known jump sources: 48226 (12:4226) Function4876f: ; 4876f (12:476f) call Function48283 ld hl, $c5e1 ld de, $44be call PlaceString ld hl, $4509 call LoadMenuDataHeader ld a, [$FF00+$aa] push af ld a, $1 ld [$FF00+$aa], a ld hl, $c50e ld b, $1 ld c, $8 call Function48cdc call WaitBGMap ld a, [$d473] and a jr z, .asm_487ab cp $64 jr z, .asm_487b2 ld hl, $c510 ld [hl], $10 ld hl, $c538 ld [hl], $11 jr .asm_487b7 .asm_487ab ld hl, $c510 ld [hl], $10 jr .asm_487b7 .asm_487b2 ld hl, $c538 ld [hl], $11 .asm_487b7 ld hl, $c523 call Function487ec ld c, $a call DelayFrames ld a, [$d473] push af .asm_487c6 call Functiona57 call Function4880e jr nc, .asm_487c6 ld a, $1 call Function1ff8 pop bc jr nz, .asm_487da ld a, b ld [$d473], a .asm_487da ld a, [$d473] call Function1c07 ld hl, $c523 call Function487ec pop af ld [$FF00+$aa], a jp Function4840c ; known jump sources: 48116 (12:4116), 487ba (12:47ba), 487e3 (12:47e3), 488aa (12:48aa) Function487ec: ; 487ec (12:47ec) push hl ld de, $d473 call Function487ff pop hl inc hl inc hl inc hl inc hl ld de, $480d call PlaceString ret ; known jump sources: 487f0 (12:47f0) Function487ff: ; 487ff (12:47ff) push hl ld a, $7f ld [hli], a ld [hl], a pop hl ld b, $81 ld c, $3 call PrintNum ret ; 4880d (12:480d) INCBIN "baserom.gbc",$4880d,$4880e - $4880d ; known jump sources: 487c9 (12:47c9) Function4880e: ; 4880e (12:480e) ld a, [hJoyPressed] ; $ff00+$a7 and $1 jp nz, Function488b9 ld a, [hJoyPressed] ; $ff00+$a7 and $2 jp nz, Function488b4 ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_48843 ld a, [hl] and $80 jr nz, .asm_48838 ld a, [hl] and $20 jr nz, .asm_4884f ld a, [hl] and $10 jr nz, .asm_4885f call DelayFrame and a ret .asm_48838 ld hl, $d473 ld a, [hl] and a jr z, .asm_48840 dec a .asm_48840 ld [hl], a jr .asm_4886f .asm_48843 ld hl, $d473 ld a, [hl] cp $64 jr nc, .asm_4884c inc a .asm_4884c ld [hl], a jr .asm_4886f .asm_4884f ld a, [$d473] cp $5b jr c, .asm_48858 ld a, $5a .asm_48858 add $a ld [$d473], a jr .asm_4886f .asm_4885f ld a, [$d473] cp $a jr nc, .asm_48868 ld a, $a .asm_48868 sub $a ld [$d473], a jr .asm_4886f .asm_4886f ld a, [$d473] and a jr z, .asm_48887 cp $64 jr z, .asm_48898 jr z, .asm_488a7 ld hl, $c510 ld [hl], $10 ld hl, $c538 ld [hl], $11 jr .asm_488a7 .asm_48887 ld hl, $c50e ld b, $1 ld c, $8 call Function48cdc ld hl, $c510 ld [hl], $10 jr .asm_488a7 .asm_48898 ld hl, $c50e ld b, $1 ld c, $8 call Function48cdc ld hl, $c538 ld [hl], $11 .asm_488a7 ld hl, $c523 call Function487ec call WaitBGMap ld a, $1 and a ret ; known jump sources: 48819 (12:4819) Function488b4: ; 488b4 (12:48b4) ld a, $0 and a scf ret ; known jump sources: 48812 (12:4812) Function488b9: ; 488b9 (12:48b9) ld a, [$d003] set 1, a ld [$d003], a scf ret ; 488c3 (12:48c3) INCBIN "baserom.gbc",$488c3,$488d3 - $488c3 ; known jump sources: 48230 (12:4230) Function488d3: ; 488d3 (12:48d3) call Function48283 ld hl, $c5e1 ld de, $44e2 call PlaceString call Function48a3a jp c, Function4840c ld hl, $450e call LoadMenuDataHeader ld a, [$FF00+$aa] push af ld a, $1 ld [$FF00+$aa], a ld hl, $c55e ld b, $1 ld c, $8 call Function48cdc ld a, [$d475] and $f ld d, $0 ld hl, $c573 call Function489ea call WaitBGMap ld a, [$d475] ld b, a ld a, [$d476] ld c, a ld a, [$d477] ld d, a ld a, [$d478] ld e, a push de push bc ld d, $0 ld b, $0 ; known jump sources: 48999 (12:4999) asm_48922: ; 48922 (12:4922) push bc call Functiona57 ld a, [hJoyDown] ; $ff00+$a8 and a jp z, Function4896e bit 0, a jp nz, Function4896e bit 1, a jp nz, Function4896e ld a, [DefaultFlypoint] ; $d002 and $cf res 7, a ld [DefaultFlypoint], a ; $d002 pop bc inc b ld a, b cp $5 push bc jr c, .asm_4894c pop bc ld b, $4 push bc .asm_4894c pop bc push bc ld a, b cp $4 jr nz, asm_48972 ld c, $a call DelayFrames jr asm_48972 ; 4895a (12:495a) INCBIN "baserom.gbc",$4895a,$4896e - $4895a ; known jump sources: 48929 (12:4929), 4892e (12:492e), 48933 (12:4933) Function4896e: ; 4896e (12:496e) pop bc ld b, $0 push bc ; known jump sources: 48951 (12:4951), 48958 (12:4958) asm_48972: ; 48972 (12:4972) call Function48ab5 push af cp $f0 jr z, .asm_48994 cp $f jr nz, .asm_48988 ld a, [DefaultFlypoint] ; $d002 set 7, a and $cf ld [DefaultFlypoint], a ; $d002 .asm_48988 ld hl, $c573 ld b, $0 ld c, d add hl, bc ld b, $3 call Function48c11 .asm_48994 call WaitBGMap pop af pop bc jr nc, asm_48922 jr nz, .asm_489b1 pop bc ld a, b ld [$d475], a ld a, c ld [$d476], a pop bc ld a, b ld [$d477], a ld a, c ld [$d478], a jr .asm_489c5 .asm_489b1 push af ld a, [$d479] set 0, a ld [$d479], a ld a, [$d003] set 3, a ld [$d003], a pop af pop bc pop bc .asm_489c5 push af push bc push de push hl ld a, $1 call Function1ff8 pop hl pop de pop bc pop af call Function1c07 ld hl, $c573 call Function489ea ld hl, $c55f ld bc, $108 call ClearBox pop af ld [$FF00+$aa], a jp Function4840c ; known jump sources: 4812e (12:412e), 48906 (12:4906), 489d8 (12:49d8), 48b47 (12:4b47), 48c04 (12:4c04) Function489ea: ; 489ea (12:49ea) push de ld a, [$d475] and $f call Function48444 ld a, [$d476] and $f0 swap a inc hl call Function48444 ld a, [$d476] and $f inc hl call Function48444 inc hl ld de, $4a38 call PlaceString ld a, [$d477] and $f0 swap a inc hl call Function48444 ld a, [$d477] and $f inc hl call Function48444 ld a, [$d478] and $f0 swap a inc hl call Function48444 ld a, [$d478] and $f inc hl call Function48444 pop de ret ; 48a38 (12:4a38) INCBIN "baserom.gbc",$48a38,$48a3a - $48a38 ; known jump sources: 488df (12:48df) Function48a3a: ; 48a3a (12:4a3a) ld hl, $4a9c call LoadMenuDataHeader call Function4873c ld a, $a ld [$cfa1], a ld a, $b ld [$cfa2], a ld a, $1 ld [$cfa9], a ld hl, $c54a ld b, $4 ld c, $8 call Function48cdc ld hl, $c574 ld de, $4aa1 call PlaceString call Function1bc9 push af call PlayClickSFX call Function1c07 pop af bit 1, a jp nz, Function48a9a ld a, [$cfa9] cp $1 jr z, .asm_48a98 ld a, [$d003] set 3, a ld [$d003], a ld a, [$d479] res 0, a ld [$d479], a xor a ld bc, $4 ld hl, $d475 call ByteFill jr Function48a9a .asm_48a98 and a ret ; known jump sources: 48a72 (12:4a72), 48a96 (12:4a96) Function48a9a: ; 48a9a (12:4a9a) scf ret ; 48a9c (12:4a9c) INCBIN "baserom.gbc",$48a9c,$48ab5 - $48a9c ; known jump sources: 48972 (12:4972) Function48ab5: ; 48ab5 (12:4ab5) ld a, [hJoyPressed] ; $ff00+$a7 and $1 jp nz, Function48c0f ld a, [hJoyPressed] ; $ff00+$a7 and $2 jp nz, Function48c0d ld a, d and a jr z, .asm_48adf cp $1 jr z, .asm_48ae7 cp $2 jr z, .asm_48af1 cp $3 jr z, .asm_48af9 cp $4 jr z, .asm_48b03 cp $5 jr z, .asm_48b0b cp $6 jr .asm_48b15 .asm_48adf ld hl, $d475 ld a, [hl] and $f jr .asm_48b1d .asm_48ae7 ld hl, $d476 ld a, [hl] swap a or $f0 jr .asm_48b1d .asm_48af1 ld hl, $d476 ld a, [hl] and $f jr .asm_48b1d .asm_48af9 ld hl, $d477 ld a, [hl] swap a or $f0 jr .asm_48b1d .asm_48b03 ld hl, $d477 ld a, [hl] and $f jr .asm_48b1d .asm_48b0b ld hl, $d478 ld a, [hl] swap a or $f0 jr .asm_48b1d .asm_48b15 ld hl, $d478 ld a, [hl] and $f jr .asm_48b1d .asm_48b1d push hl push af ld e, $0 ld hl, $c573 ld a, d .asm_48b25 and a jr z, .asm_48b2c inc e dec a jr .asm_48b25 .asm_48b2c ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_48b8d ld a, [hl] and $80 jr nz, .asm_48b55 ld a, [hl] and $20 jp nz, Function48bd7 ld a, [hl] and $10 jr nz, .asm_48b9d ld hl, $c573 call Function489ea ld a, [DefaultFlypoint] ; $d002 bit 7, a jr nz, .asm_48b51 .asm_48b51 pop bc pop bc and a ret .asm_48b55 pop af ld b, a and $f and a ld a, b jr nz, .asm_48b61 and $f0 add $a .asm_48b61 dec a .asm_48b62 push de push af ld hl, $c55e ld b, $1 ld c, $8 call Function48cdc pop af pop de ld hl, $c573 ld b, a ld a, d cp $3 jr c, .asm_48b7a inc hl .asm_48b7a ld a, b pop hl bit 7, a jr z, .asm_48b85 call Function48c4d jr .asm_48b88 .asm_48b85 call Function48c5a .asm_48b88 ld a, $f0 jp Function48c00 .asm_48b8d pop af ld b, a and $f cp $9 ld a, b jr c, .asm_48b9a and $f0 add $ff .asm_48b9a inc a jr .asm_48b62 .asm_48b9d push de ld hl, $c55e ld b, $1 ld c, $8 call Function48cdc pop de ld a, d cp $6 jr nc, .asm_48baf inc d .asm_48baf pop af pop hl ld b, a ld a, d cp $6 ld a, b jr z, .asm_48bc4 bit 7, a jr nz, .asm_48bc4 inc hl ld a, [hl] swap a and $f jr asm_48bc7 .asm_48bc4 ld a, [hl] and $f ; known jump sources: 48bc2 (12:4bc2), 48bf6 (12:4bf6), 48bfe (12:4bfe) asm_48bc7: ; 48bc7 (12:4bc7) ld hl, $c573 push af ld a, d cp $3 pop bc ld a, b jr c, .asm_48bd3 inc hl .asm_48bd3 ld a, $f jr Function48c00 ; known jump sources: 48b3c (12:4b3c) Function48bd7: ; 48bd7 (12:4bd7) push de ld hl, $c55e ld b, $1 ld c, $8 call Function48cdc pop de ld a, d and a pop af pop hl ld b, a ld a, d and a ld a, b jr z, .asm_48bf3 bit 7, a jr z, .asm_48bf8 dec d dec hl .asm_48bf3 ld a, [hl] and $f jr asm_48bc7 .asm_48bf8 dec d ld a, [hl] swap a and $f jr asm_48bc7 ; known jump sources: 48b8a (12:4b8a), 48bd5 (12:4bd5) Function48c00: ; 48c00 (12:4c00) push af ld hl, $c573 call Function489ea ld a, $1 and a pop bc ld a, b ret ; known jump sources: 48ac0 (12:4ac0) Function48c0d: ; 48c0d (12:4c0d) xor a and a ; known jump sources: 48ab9 (12:4ab9) Function48c0f: ; 48c0f (12:4c0f) scf ret ; known jump sources: 48991 (12:4991) Function48c11: ; 48c11 (12:4c11) ld a, [DefaultFlypoint] ; $d002 bit 7, a jr z, .asm_48c20 ld a, d cp $3 jr c, .asm_48c1e inc hl .asm_48c1e ld [hl], $7f .asm_48c20 ld a, [DefaultFlypoint] ; $d002 swap a and $3 inc a cp b jr nz, .asm_48c40 ld a, [DefaultFlypoint] ; $d002 bit 7, a jr z, .asm_48c3a res 7, a ld [DefaultFlypoint], a ; $d002 xor a jr .asm_48c40 .asm_48c3a set 7, a ld [DefaultFlypoint], a ; $d002 xor a .asm_48c40 swap a ld b, a ld a, [DefaultFlypoint] ; $d002 and $cf or b ld [DefaultFlypoint], a ; $d002 ret ; known jump sources: 48b80 (12:4b80) Function48c4d: ; 48c4d (12:4c4d) swap a and $f0 push af ld a, [hl] and $f ld [hl], a pop af or [hl] ld [hl], a ret ; known jump sources: 48b85 (12:4b85) Function48c5a: ; 48c5a (12:4c5a) push af ld a, [hl] and $f0 ld [hl], a pop af or [hl] ld [hl], a ret Function48c63: ; 48c63 ld a, $50 ld [de], a ld a, c cp $30 jr nc, .asm_48c8c and a jr z, .asm_48c8c dec c push de ld h, d ld l, e ld a, $50 ld b, $7 .asm_48c76 ld [hli], a dec b jr nz, .asm_48c76 ld hl, $455b ld a, c call GetNthString .asm_48c81 ld a, [hli] ld [de], a inc de ld a, [hl] cp $50 jr nz, .asm_48c81 and a pop de ret .asm_48c8c scf ret ; 48c8e INCBIN "baserom.gbc",$48c8e,$48cda - $48c8e ; no known jump sources Function48cda: ; 48cda (12:4cda) ld h, d ld l, e ; known jump sources: 480cb (12:40cb), 482a9 (12:42a9), 48323 (12:4323), 486bb (12:46bb), 4878f (12:478f), 4888e (12:488e), 4889f (12:489f), 488f9 (12:48f9), 48a59 (12:4a59), 48b6b (12:4b6b), 48ba5 (12:4ba5), 48bdf (12:4bdf), 49f25 (12:5f25), 4a150 (12:6150), 4a2b3 (12:62b3), 4a4df (12:64df) Function48cdc: ; 48cdc (12:4cdc) push bc push hl call Function48cfd pop hl pop bc ld de, $939 add hl, de inc b inc b inc c inc c ld a, $0 .asm_48ced push bc push hl .asm_48cef ld [hli], a dec c jr nz, .asm_48cef pop hl ld de, $14 add hl, de pop bc dec b jr nz, .asm_48ced ret ; known jump sources: 48cde (12:4cde) Function48cfd: ; 48cfd (12:4cfd) push hl ld a, $4 ld [hli], a inc a call Function48d2a inc a ld [hl], a pop hl ld de, $14 add hl, de .asm_48d0c push hl ld a, $7 ld [hli], a ld a, $7f call Function48d2a ld [hl], $8 pop hl ld de, $14 add hl, de dec b jr nz, .asm_48d0c ld a, $9 ld [hli], a ld a, $a call Function48d2a ld [hl], $b ret ; known jump sources: 48d02 (12:4d02), 48d12 (12:4d12), 48d24 (12:4d24) Function48d2a: ; 48d2a (12:4d2a) ld d, c .asm_48d2b ld [hli], a dec d jr nz, .asm_48d2b ret ; known jump sources: 4817d (12:417d), 4825f (12:425f) Function48d30: ; 48d30 (12:4d30) ld hl, $d475 call Function48d4a ld hl, $d477 call Function48d4a ret ; known jump sources: 48042 (12:4042) Function48d3d: ; 48d3d (12:4d3d) ld hl, $d475 call Function48d94 ld hl, $d477 call Function48d94 ret ; known jump sources: 48d33 (12:4d33), 48d39 (12:4d39) Function48d4a: ; 48d4a (12:4d4a) inc hl ld a, [hl] ld b, a and $f ld c, a srl b srl b srl b srl b push bc ld c, $a ld a, b call SimpleMultiply pop bc add c ld [hld], a xor a ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand) ld [$FF00+$b5], a ld a, [hl] srl a srl a srl a srl a ld c, $a call SimpleMultiply ld b, a ld a, [hli] and $f add b ld [$FF00+$b6], a ld a, $64 ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier) call Multiply ld a, [$FF00+$b5] ld b, a ld a, [$FF00+$b6] ld c, a ld e, [hl] add e ld c, a ld a, b adc $0 ld b, a ld a, c ld [hld], a ld [hl], b ret ; known jump sources: 48d40 (12:4d40), 48d46 (12:4d46) Function48d94: ; 48d94 (12:4d94) xor a ld [hPastLeadingZeroes], a ; $ff00+$b3 (aliases: hDividend, hProduct) ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand) ld a, [hli] ld [hPastLeadingZeroes], a ; $ff00+$b3 (aliases: hDividend, hProduct) ld a, [hl] ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand) ld a, $64 ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier) ld b, $2 call Divide ld a, [hDivisor] ; $ff00+$b7 (aliases: hMultiplier) ld c, $a call SimpleDivide sla b sla b sla b sla b or b ld [hld], a ld a, [$FF00+$b6] ld c, $a call SimpleDivide sla b sla b sla b sla b or b ld [hl], a ret ; no known jump sources Function48dcb: ; 48dcb (12:4dcb) call Function48e14 call Function48e47 call Function48e64 call Function3200 call Function32f9 ld hl, $4e0f call PrintText ld hl, $4dfc call LoadMenuDataHeader call Function3200 call Function1d81 call Function1c17 ld a, [$cfa9] dec a ld [PlayerGender], a ; $d472 ld c, $a call DelayFrames ret ; 48dfc (12:4dfc) INCBIN "baserom.gbc",$48dfc,$48e14 - $48dfc ; known jump sources: 48dcb (12:4dcb) Function48e14: ; 48e14 (12:4e14) ld a, $10 ld [MusicFade], a ; $c2a7 ld a, $0 ld [MusicFadeIDLo], a ; $c2a9 ld a, $0 ld [MusicFadeIDHi], a ; $c2aa ld c, $8 call DelayFrames call WhiteBGMap call Function48000 call Functione5f ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 ld a, $0 call ByteFill ld hl, AttrMap ; $cdd9 ld bc, $168 xor a call ByteFill ret ; known jump sources: 48dce (12:4dce) Function48e47: ; 48e47 (12:4e47) ld hl, $4e5c ld de, Unkn1Pals ; $d000 ld bc, $8 ld a, $5 call FarCopyWRAM callba Function96a4 ret ; 48e5c (12:4e5c) INCBIN "baserom.gbc",$48e5c,$48e64 - $48e5c ; known jump sources: 48dd1 (12:4dd1) Function48e64: ; 48e64 (12:4e64) ld de, $4e71 ld hl, $9000 ld bc, $1201 call Get2bpp ret ; 48e71 (12:4e71) INCBIN "baserom.gbc",$48e71,$48e81 - $48e71 Function48e81: ; 48e81 ld hl, $4e93 add hl, de add hl, de ld a, [hli] ld e, a ld d, [hl] ld hl, $9500 ld bc, $120f call Request2bpp ret ; 48e93 INCBIN "baserom.gbc",$48e93,$48e9b - $48e93 PackFGFX: INCBIN "gfx/misc/pack_f.2bpp" Function4925b: ; 4925b call FadeToMenu call WhiteBGMap call Functionfdb call DelayFrame ld b, $14 call GetSGBLayout xor a ld [$d142], a call Function492a5 ld [$d265], a ld [$d262], a call GetMoveName call CopyName1 callba Function2c7fb jr c, .asm_4929c jr .asm_49291 .asm_49289 callba Function2c80a jr c, .asm_4929c .asm_49291 call Function492b9 jr nc, .asm_49289 xor a ld [ScriptVar], a jr .asm_492a1 .asm_4929c ld a, $ff ld [ScriptVar], a .asm_492a1 call Function2b3c ret ; 492a5 Function492a5: ; 492a5 ld a, [ScriptVar] cp $1 jr z, .asm_492b3 cp $2 jr z, .asm_492b6 ld a, $3a ret .asm_492b3 ld a, $35 ret .asm_492b6 ld a, $55 ret ; 492b9 Function492b9: ; 492b9 ld hl, $530a call LoadMenuDataHeader ld a, $e call Predef push bc ld a, [CurPartyMon] ld hl, PartyMon1Nickname call GetNick pop bc ld a, c and a jr nz, .asm_492e5 push de ld de, SFX_WRONG call PlaySFX pop de ld a, $b ld hl, $48ce call FarPrintText jr .asm_49300 .asm_492e5 callab Functionf9ea jr c, .asm_49300 ld a, $0 call Predef ld a, b and a jr z, .asm_49300 ld c, $5 callab ChangeHappiness jr .asm_49305 .asm_49300 call Function1c07 and a ret .asm_49305 call Function1c07 scf ret ; 4930a INCBIN "baserom.gbc",$4930a,$4930f - $4930a ; known jump sources: 480a0 (12:40a0), 48690 (12:4690) Function4930f: ; 4930f (12:530f) ld a, b cp $ff jr nz, .asm_49317 ld a, [SGBPredef] ; $cd98 .asm_49317 push af callba Function9673 pop af ld l, a ld h, $0 add hl, hl ld de, $5330 add hl, de ld a, [hli] ld h, [hl] ld l, a ld de, $532f push de jp [hl] ret ; 49330 (12:5330) INCBIN "baserom.gbc",$49330,$49336 - $49330 Function49336: ; 49336 .asm_49336 push bc push hl .asm_49338 ld [hli], a dec c jr nz, .asm_49338 pop hl ld bc, $0014 add hl, bc pop bc dec b jr nz, .asm_49336 ret ; 49346 ; known jump sources: 49371 (12:5371) Function49346: ; 49346 (12:5346) ld hl, AttrMap ; $cdd9 ld bc, $168 xor a call ByteFill ret ; known jump sources: 4936e (12:536e), 4a0af (12:60af) Function49351: ; 49351 (12:5351) ld de, Unkn1Pals ; $d000 ld hl, $53e1 ld bc, $28 ld a, $5 call FarCopyWRAM ld de, $d038 ld hl, $5418 ld bc, $8 ld a, $5 call FarCopyWRAM ret ; known jump sources: 4a492 (12:6492) Function4936e: ; 4936e (12:536e) call Function49351 call Function49346 call Function49384 callba Function96b3 callba Function96a4 ret ; known jump sources: 49374 (12:5374) Function49384: ; 49384 (12:5384) ld hl, AttrMap ; $cdd9 ld bc, $401 ld a, $1 call Function49336 ld bc, $201 ld a, $2 call Function49336 ld bc, $601 ld a, $3 call Function49336 ld hl, $cdda ld a, $1 ld bc, $312 call Function49336 ld bc, $212 ld a, $2 call Function49336 ld bc, $c12 ld a, $3 call Function49336 ld hl, $cdec ld bc, $401 ld a, $1 call Function49336 ld bc, $201 ld a, $2 call Function49336 ld bc, $601 ld a, $3 call Function49336 ld hl, $cec9 ld bc, $78 ld a, $7 call ByteFill ret ; 493e1 (12:53e1) INCBIN "baserom.gbc",$493e1,$49409 - $493e1 Function49409: ; 49409 ld hl, $5418 ld de, $d038 ld bc, $0008 ld a, $5 call FarCopyWRAM ret ; 49418 INCBIN "baserom.gbc",$49418,$49420 - $49418 ; no known jump sources Function49420: ; 49420 (12:5420) ld hl, $56bd ld de, $d030 ld bc, $8 ld a, $5 call FarCopyWRAM ret ; 4942f (12:542f) INCBIN "baserom.gbc",$4942f,$494ac - $4942f Function494ac: ; 494ac ld a, [$d199] cp $15 jr z, .asm_494c9 cp $16 jr z, .asm_494ce cp $1d jr z, .asm_494d3 cp $5 jr z, .asm_494e1 cp $1b jr z, .asm_494e6 cp $d jr z, .asm_494eb jr .asm_494f0 .asm_494c9 call Function494f2 scf ret .asm_494ce call Function49541 scf ret .asm_494d3 ld a, [$d19a] and $7 cp $3 jr z, .asm_494f0 call Function49590 scf ret .asm_494e1 call Function495df scf ret .asm_494e6 call Function4962e scf ret .asm_494eb call Function496c5 scf ret .asm_494f0 and a ret ; 494f2 Function494f2: ; 494f2 ld a, $5 ld de, Unkn1Pals ld hl, $5501 ld bc, $0040 call FarCopyWRAM ret ; 49501 INCBIN "baserom.gbc",$49501,$49541 - $49501 Function49541: ; 49541 ld a, $5 ld de, Unkn1Pals ld hl, $5550 ld bc, $0040 call FarCopyWRAM ret ; 49550 INCBIN "baserom.gbc",$49550,$49590 - $49550 Function49590: ; 49590 ld a, $5 ld de, Unkn1Pals ld hl, $559f ld bc, $0040 call FarCopyWRAM ret ; 4959f INCBIN "baserom.gbc",$4959f,$495df - $4959f Function495df: ; 495df ld a, $5 ld de, Unkn1Pals ld hl, $55ee ld bc, $0040 call FarCopyWRAM ret ; 495ee INCBIN "baserom.gbc",$495ee,$4962e - $495ee Function4962e: ; 4962e ld a, $5 ld de, Unkn1Pals ld hl, $563d ld bc, $0040 call FarCopyWRAM ret ; 4963d INCBIN "baserom.gbc",$4963d,$496c5 - $4963d Function496c5: ; 496c5 ld a, $5 ld de, Unkn1Pals ld hl, $567d ld bc, $0040 call FarCopyWRAM ld a, $5 ld de, $d020 ld hl, $56fe ld bc, $0008 call FarCopyWRAM ld a, $5 ld de, $d018 ld hl, $56ad ld bc, $0008 call FarCopyWRAM ld a, $5 ld de, $d030 ld hl, $56bd ld bc, $0008 call FarCopyWRAM ret ; 496fe INCBIN "baserom.gbc",$496fe,$49797 - $496fe Function49797: ; 49797 ld hl, AttrMap ld bc, $1002 ld a, $4 call Function49336 ld a, $3 ld [$cded], a ld [$cef1], a ld hl, $cddb ld bc, $0812 ld a, $5 call Function49336 ld hl, $ce7b ld bc, $0812 ld a, $6 call Function49336 ld hl, $cf19 ld bc, $0214 ld a, $4 call Function49336 ld a, $3 ld bc, $0601 ld hl, $cdf3 call Function49336 ld a, $3 ld bc, $0601 ld hl, $cdfe call Function49336 ld a, $3 ld bc, $0601 ld hl, $ce93 call Function49336 ld a, $3 ld bc, $0601 ld hl, $ce9e call Function49336 ld a, $2 ld hl, $cf1b ld [hli], a ld a, $7 ld [hli], a ld [hli], a ld [hli], a ld a, $2 ld [hl], a ld hl, $cf2f ld a, $3 ld bc, $0006 call ByteFill ret ; 49811 Function49811: ; 49811 ld hl, $5826 ld de, $d010 ld bc, $0030 ld a, $5 call FarCopyWRAM callba Function96a4 ret ; 49826 INCBIN "baserom.gbc",$49826,$49856 - $49826 Function49856: ; 49856 call Function49797 ret ; 4985a INCBIN "baserom.gbc",$4985a,$4989a - $4985a Function4989a: ; 4989a call DelayFrame ld a, [VramState] push af xor a ld [VramState], a call Function49912 ld de, $0750 ld a, $2c call Function3b2a ld hl, $0003 add hl, bc ld [hl], $84 ld hl, $0002 add hl, bc ld [hl], $1f ld hl, $000f add hl, bc ld a, $80 ld [hl], a ld a, $a0 ld [$cf64], a ld d, $0 .asm_498ca ld a, [$cf63] bit 7, a jr nz, .asm_498ee push bc call Function49bae inc d push de ld a, $90 ld [$c3b5], a callba Function8cf7a call Function49935 ld c, $2 call DelayFrames pop de pop bc jr .asm_498ca .asm_498ee pop af ld [VramState], a call Function498f9 call Function49bf3 ret ; 498f9 Function498f9: ; 498f9 ld hl, $c402 xor a ld c, $4 .asm_498ff ld [hli], a inc hl inc hl inc hl inc a dec c jr nz, .asm_498ff ld hl, $c410 ld bc, $0090 xor a call ByteFill ret ; 49912 Function49912: ; 49912 callba Function8cf53 ld de, $5962 ld hl, VTiles1 ld bc, $1204 call Request2bpp ld de, $59a2 ld hl, $8840 ld bc, $1210 call Request2bpp xor a ld [$cf63], a ret ; 49935 Function49935: ; 49935 ld hl, $cf64 ld a, [hl] and a jr z, .asm_4993e dec [hl] ret .asm_4993e ld hl, $cf63 set 7, [hl] ret ; 49944 INCBIN "baserom.gbc",$49944,$49962 - $49944 SpecialCelebiGFX: INCBIN "gfx/special/celebi/leaf.2bpp" INCBIN "gfx/special/celebi/1.2bpp" INCBIN "gfx/special/celebi/2.2bpp" INCBIN "gfx/special/celebi/3.2bpp" INCBIN "gfx/special/celebi/4.2bpp" ; no known jump sources Function49aa2: ; 49aa2 (12:5aa2) ld hl, $6 add hl, bc ld a, [hl] push af ld hl, $5 add hl, bc ld a, [hl] cp $52 jp nc, Function49b30 ld hl, $5 add hl, bc inc [hl] ld hl, $f add hl, bc ld a, [hl] ld d, a cp $3a jr c, .asm_49ac6 jr z, .asm_49ac6 sub $3 ld [hl], a .asm_49ac6 ld hl, $e add hl, bc ld a, [hl] inc [hl] call Function49b3b ld hl, $6 add hl, bc ld [hl], a ld d, a ld hl, $4 add hl, bc add [hl] cp $5c jr nc, .asm_49ae2 cp $44 jr nc, .asm_49b0d .asm_49ae2 pop af push af cp d jr nc, .asm_49af2 ld hl, $4 add hl, bc add [hl] cp $50 jr c, .asm_49b05 jr .asm_49afb .asm_49af2 ld hl, $4 add hl, bc add [hl] cp $50 jr nc, .asm_49b05 .asm_49afb ld hl, $5 add hl, bc ld a, [hl] sub $2 ld [hl], a jr .asm_49b0d .asm_49b05 ld hl, $5 add hl, bc ld a, [hl] add $1 ld [hl], a .asm_49b0d pop af ld hl, $4 add hl, bc add [hl] cp $50 jr c, .asm_49b26 cp $e6 jr nc, .asm_49b26 ld hl, $1 add hl, bc ld a, $41 call Function3b3c jr .asm_49b2f .asm_49b26 ld hl, $1 add hl, bc ld a, $40 call Function3b3c .asm_49b2f ret ; known jump sources: 49aaf (12:5aaf) Function49b30: ; 49b30 (12:5b30) pop af ld hl, $1 add hl, bc ld a, $40 call Function3b3c ret ; known jump sources: 49acc (12:5acc) Function49b3b: ; 49b3b (12:5b3b) add $10 and $3f cp $20 jr nc, .asm_49b48 call Function49b52 ld a, h ret .asm_49b48 and $1f call Function49b52 ld a, h xor $ff inc a ret ; known jump sources: 49b43 (12:5b43), 49b4a (12:5b4a) Function49b52: ; 49b52 (12:5b52) ld e, a ld a, d ld d, $0 ld hl, $5b6e add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] ld hl, $0 .asm_49b61 srl a jr nc, .asm_49b66 add hl, de .asm_49b66 sla e rl d and a jr nz, .asm_49b61 ret ; 49b6e (12:5b6e) INCBIN "baserom.gbc",$49b6e,$49bae - $49b6e Function49bae: ; 49bae push hl push bc push de ld a, d ld d, $3 ld e, d cp $0 jr z, .asm_49bd0 cp d jr z, .asm_49bd4 call Function49bed cp d jr z, .asm_49bd8 call Function49bed cp d jr z, .asm_49bdc call Function49bed cp d jr c, .asm_49be9 jr .asm_49be5 .asm_49bd0 ld a, $84 jr .asm_49bde .asm_49bd4 ld a, $88 jr .asm_49bde .asm_49bd8 ld a, $8c jr .asm_49bde .asm_49bdc ld a, $90 .asm_49bde ld hl, $0003 add hl, bc ld [hl], a jr .asm_49be9 .asm_49be5 pop de ld d, $ff push de .asm_49be9 pop de pop bc pop hl ret ; 49bed Function49bed: ; 49bed push af ld a, d add e ld d, a pop af ret ; 49bf3 Function49bf3: ; 49bf3 ld a, $b ld [BattleType], a ret ; 49bf9 Function49bf9: ; 49bf9 ld a, [$d0ee] bit 6, a jr z, .asm_49c07 ld a, $1 ld [ScriptVar], a jr .asm_49c0b .asm_49c07 xor a ld [ScriptVar], a .asm_49c0b ret ; 49c0c INCBIN "baserom.gbc",$49c0c,$49cdc - $49c0c MainMenu: ; 49cdc xor a ld [$c2d7], a call Function49ed0 ld b, $8 call GetSGBLayout call Function32f9 ld hl, GameTimerPause res 0, [hl] call Function49da4 ld [$cf76], a call Function49e09 ld hl, MenuDataHeader_0x49d14 call LoadMenuDataHeader call Function49de4 call Function1c17 jr c, .quit call ClearTileMap ld a, [MenuSelection] ld hl, Label49d60 rst JumpTable jr MainMenu .quit ret ; 49d14 MenuDataHeader_0x49d14: ; 49d14 db $40 ; flags db 00, 00 ; start coords db 07, 16 ; end coords dw MenuData2_0x49d1c db 1 ; default option ; 49d1c MenuData2_0x49d1c: ; 49d1c db $80 ; flags db 0 ; items dw MainMenuItems dw Function1f79 dw MainMenuText ; 49d20 MainMenuText: ; 49d24 db "CONTINUE@" db "NEW GAME@" db "OPTION@" db "MYSTERY GIFT@" db "MOBILE@" db "MOBILE STUDIUM@" Label49d60: ; 0x49d60 dw MainMenu_Continue dw MainMenu_NewGame dw MainMenu_Options dw MainMenu_MysteryGift dw MainMenu_Mobile dw MainMenu_MobileStudium ; 0x49d6c CONTINUE EQU 0 NEW_GAME EQU 1 OPTION EQU 2 MYSTERY_GIFT EQU 3 MOBILE EQU 4 MOBILE_STUDIUM EQU 5 MainMenuItems: NewGameMenu: ; 0x49d6c db 2 db NEW_GAME db OPTION db $ff ContinueMenu: ; 0x49d70 db 3 db CONTINUE db NEW_GAME db OPTION db $ff MobileMysteryMenu: ; 0x49d75 db 5 db CONTINUE db NEW_GAME db OPTION db MYSTERY_GIFT db MOBILE db $ff MobileMenu: ; 0x49d7c db 4 db CONTINUE db NEW_GAME db OPTION db MOBILE db $ff MobileStudiumMenu: ; 0x49d82 db 5 db CONTINUE db NEW_GAME db OPTION db MOBILE db MOBILE_STUDIUM db $ff MysteryMobileStudiumMenu: ; 0x49d89 db 6 db CONTINUE db NEW_GAME db OPTION db MYSTERY_GIFT db MOBILE db MOBILE_STUDIUM db $ff MysteryMenu: ; 0x49d91 db 4 db CONTINUE db NEW_GAME db OPTION db MYSTERY_GIFT db $ff MysteryStudiumMenu: ; 0x49d97 db 5 db CONTINUE db NEW_GAME db OPTION db MYSTERY_GIFT db MOBILE_STUDIUM db $ff StudiumMenu: ; 0x49d9e db 4 db CONTINUE db NEW_GAME db OPTION db MOBILE_STUDIUM db $ff Function49da4: ; 49da4 nop nop nop ld a, [$cfcd] and a jr nz, .asm_49db0 ld a, $0 ret .asm_49db0 ld a, [hCGB] cp $1 ld a, $1 ret nz ld a, $0 call GetSRAMBank ld a, [$abe5] cp $ff call CloseSRAM jr nz, .asm_49dd6 ld a, [StatusFlags] bit 7, a ld a, $1 jr z, .asm_49dd1 jr .asm_49dd1 .asm_49dd1 jr .asm_49dd3 .asm_49dd3 ld a, $1 ret .asm_49dd6 ld a, [StatusFlags] bit 7, a jr z, .asm_49ddf jr .asm_49ddf .asm_49ddf jr .asm_49de1 .asm_49de1 ld a, $6 ret ; 49de4 Function49de4: ; 49de4 call SetUpMenu .asm_49de7 call Function49e09 ld a, [$cfa5] set 5, a ld [$cfa5], a call Function1f1a ld a, [$cf73] cp $2 jr z, .asm_49e07 cp $1 jr z, .asm_49e02 jr .asm_49de7 .asm_49e02 call PlayClickSFX and a ret .asm_49e07 scf ret ; 49e09 Function49e09: ; 49e09 ld a, [$cfcd] and a ret z xor a ld [hBGMapMode], a call Function49e27 ld hl, Options ld a, [hl] push af set 4, [hl] call Function49e3d pop af ld [Options], a ld a, $1 ld [hBGMapMode], a ret ; 49e27 Function49e27: ; 49e27 call Function6e3 and $80 jr nz, .asm_49e39 ld hl, $c5b8 ld b, $2 ld c, $12 call TextBox ret .asm_49e39 call SpeechTextBox ret ; 49e3d Function49e3d: ; 49e3d ld a, [$cfcd] and a ret z call Function6e3 and $80 jp nz, Function49e75 call UpdateTime call GetWeekday ld b, a decoord 1, 15 call Function49e91 decoord 4, 16 ld a, [hHours] ld c, a callba Function90b3e ld [hl], ":" inc hl ld de, hMinutes ld bc, $8102 call PrintNum ret ; 49e70 ; 49e70 db "min.@" ; 49e75 Function49e75: ; 49e75 hlcoord 1, 14 ld de, .TimeNotSet call PlaceString ret ; 49e7f .TimeNotSet ; 49e7f db "TIME NOT SET@" ; 49e8c UnknownText_0x49e8c: ; 49e8c text_jump UnknownText_0x1c5182 db "@" ; 49e91 Function49e91: ; 49e91 push de ld hl, .Days ld a, b call GetNthString ld d, h ld e, l pop hl call PlaceString ld h, b ld l, c ld de, .Day call PlaceString ret ; 49ea8 .Days db "SUN@" db "MON@" db "TUES@" db "WEDNES@" db "THURS@" db "FRI@" db "SATUR@" .Day db "DAY@" ; 49ed0 Function49ed0: ; 49ed0 xor a ld [$ffde], a call ClearTileMap call Functione5f call Functione51 call Function1fbf ret ; 49ee0 MainMenu_NewGame: ; 49ee0 callba NewGame ret ; 49ee7 MainMenu_Options: ; 49ee7 callba OptionsMenu ret ; 49eee MainMenu_Continue: ; 49eee callba Continue ret ; 49ef5 MainMenu_MysteryGift: ; 49ef5 callba MysteryGift ret ; 49efc MainMenu_Mobile: ; 49efc call WhiteBGMap ld a, MUSIC_MOBILE_ADAPTER_MENU ld [CurMusic], a ld de, MUSIC_MOBILE_ADAPTER_MENU call Function4a6c5 Function49f0a: ; 49f0a call WhiteBGMap call Function4a3a7 call Function4a492 call WhiteBGMap Function49f16: ; 49f16 call Function4a071 ld c, $c call DelayFrames ld hl, $c4a4 ld b, $a ld c, $a call Function48cdc ld hl, $c4ce ld de, MobileString1 call PlaceString ld hl, $c590 ld b, $4 ld c, $12 call TextBox xor a ld de, String_0x49fe9 ld hl, $c5b9 call PlaceString call Function3200 call Function32f9 call Function1bc9 ld hl, $cfa9 ld b, [hl] push bc jr .asm_49f5d .asm_49f55 call Function1bd3 ld hl, $cfa9 ld b, [hl] push bc .asm_49f5d bit 0, a jr nz, .asm_49f67 bit 1, a jr nz, .asm_49f84 jr .asm_49f97 .asm_49f67 ld hl, $cfa9 ld a, [hl] cp $1 jp z, Function4a098 cp $2 jp z, Function4a0b9 cp $3 jp z, Function4a0c2 cp $4 jp z, Function4a100 ld a, $1 call Function1ff8 .asm_49f84 pop bc call WhiteBGMap call ClearTileMap ld a, MUSIC_MAIN_MENU ld [CurMusic], a ld de, MUSIC_MAIN_MENU call Function4a6c5 ret .asm_49f97 ld hl, $cfa9 ld a, [hl] dec a ld hl, MobileStrings2 call GetNthString ld d, h ld e, l ld hl, $c5a5 ld b, $4 ld c, $12 call ClearBox ld hl, $c5b9 call PlaceString jp .asm_49fb7 .asm_49fb7 call Function4a071 pop bc ld hl, $cfa9 ld [hl], b ld b, $a ld c, $1 ld hl, $c4b9 call ClearBox jp .asm_49f55 ; 49fcc MobileString1: ; 49fcc db "めいしフ,ルダー", $4e db "あいさつ", $4e db "プロフィール", $4e db "せ", $1e, "い", $4e db "もどる@" ; 49fe9 MobileStrings2: String_0x49fe9: ; 49fe9 db "めいし", $1f, "つくったり", $4e db "ほぞんしておける フ,ルダーです@" ; 4a004 String_0x4a004: ; 4a004 db "モバイルたいせんや じぶんのめいしで", $4e db "つかう あいさつ", $1f, "つくります@" ; 4a026 String_0x4a026: ; 4a026 db "あなた", $25, "じゅうしょや ねんれいの", $4e db "せ", $1e, "い", $1f, "かえられます@" ; 4a042 String_0x4a042: ; 4a042 db "モバイルセンター", $1d, "せつぞくするとき", $4e db "ひつような こと", $1f, "きめます@" ; 4a062 String_0x4a062: ; 4a062 db "まえ", $25, "がめん ", $1d, "もどります", $4e db "@" ; 4a071 ; known jump sources: 49f16 (12:5f16), 49fb7 (12:5fb7) Function4a071: ; 4a071 (12:6071) ld hl, $cfa1 ld a, $2 ld [hli], a ld a, $5 ld [hli], a ld a, $5 ld [hli], a ld a, $1 ld [hli], a ld [hl], $0 set 5, [hl] inc hl xor a ld [hli], a ld a, $20 ld [hli], a ld a, $1 add $40 add $80 add $2 ld [hli], a ld a, $1 ld [hli], a ld [hli], a ret ; known jump sources: 49f6d (12:5f6d) Function4a098: ; 4a098 (12:6098) ld a, $2 call Function1ff8 call Function1bee call WaitBGMap call Function1d6e callba Function89de0 call Function1d7d call Function49351 call Function4a485 pop bc jp Function49f16 ; known jump sources: 49f72 (12:5f72) Function4a0b9: ; 4a0b9 (12:60b9) ld a, $2 call Function1ff8 pop bc jp Function4a4c4 ; known jump sources: 49f77 (12:5f77) Function4a0c2: ; 4a0c2 (12:60c2) ld a, $2 call Function1ff8 ld a, $1 call GetSRAMBank ld hl, $a00b ld de, PlayerName ; $d47d ld bc, $6 call CopyBytes call CloseSRAM callba Function150b9 ld c, $2 call DelayFrames ld c, $1 call Function4802f push af call WhiteBGMap pop af and a jr nz, .asm_4a0f9 callba Function1509a .asm_4a0f9 ld c, $5 call DelayFrames jr asm_4a111 ; known jump sources: 49f7c (12:5f7c) Function4a100: ; 4a100 (12:6100) ld a, $2 call Function1ff8 call WhiteBGMap call Function4a13b call WhiteBGMap call ClearTileMap ; known jump sources: 4a0fe (12:60fe) asm_4a111: ; 4a111 (12:6111) pop bc call Functione5f jp Function49f0a ; known jump sources: 4a2c5 (12:62c5) Function4a118: ; 4a118 (12:6118) ld hl, $cfa1 ld a, $1 ld [hli], a ld a, $d ld [hli], a ld a, $3 ld [hli], a ld a, $1 ld [hli], a ld [hl], $0 set 5, [hl] inc hl xor a ld [hli], a ld a, $20 ld [hli], a ld a, $1 add $2 ld [hli], a ld a, $1 ld [hli], a ld [hli], a ret ; known jump sources: 4a108 (12:6108), 4a23a (12:623a) Function4a13b: ; 4a13b (12:613b) call Function4a3a7 call Function4a492 call Function4a373 ld c, $a call DelayFrames ; known jump sources: 4a236 (12:6236) Function4a149: ; 4a149 (12:6149) ld hl, $c4c9 ld b, $6 ld c, $10 call Function48cdc ld hl, $c4f3 ld de, $61ef call PlaceString ld hl, $c590 ld b, $4 ld c, $12 call TextBox ld a, [$cfa9] dec a ld hl, $623d call GetNthString ld d, h ld e, l ld hl, $c5a5 ld b, $4 ld c, $12 call ClearBox ld hl, $c5b9 call PlaceString callba Function104148 call Function32f9 call Function1bc9 ld hl, $cfa9 ld b, [hl] push bc jr asm_4a19d ; known jump sources: 4a1ec (12:61ec) Function4a195: ; 4a195 (12:6195) call Function1bd3 ld hl, $cfa9 ld b, [hl] push bc ; known jump sources: 4a193 (12:6193) asm_4a19d: ; 4a19d (12:619d) bit 0, a jr nz, .asm_4a1a7 bit 1, a jr nz, .asm_4a1ba jr .asm_4a1bc .asm_4a1a7 ld hl, $cfa9 ld a, [hl] cp $1 jp z, Function4a20e cp $2 jp z, Function4a221 ld a, $1 call Function1ff8 .asm_4a1ba pop bc ret .asm_4a1bc ld hl, $cfa9 ld a, [hl] dec a ld hl, $623d call GetNthString ld d, h ld e, l ld hl, $c5a5 ld b, $4 ld c, $12 call ClearBox ld hl, $c5b9 call PlaceString jr .asm_4a1db .asm_4a1db call Function4a373 pop bc ld hl, $cfa9 ld [hl], b ld bc, $601 ld hl, $c4de call ClearBox jp Function4a195 ; 4a1ef (12:61ef) INCBIN "baserom.gbc",$4a1ef,$4a20e - $4a1ef ; known jump sources: 4a1ad (12:61ad) Function4a20e: ; 4a20e (12:620e) ld a, $1 call Function1ff8 callba Function1719c8 call WhiteBGMap call DelayFrame jr asm_4a239 ; known jump sources: 4a1b2 (12:61b2) Function4a221: ; 4a221 (12:6221) ld a, $1 call Function1ff8 call Function4a28a jr c, asm_4a239 call Function4a373 ld a, $2 ld [$cfa9], a jr .asm_4a235 .asm_4a235 pop bc jp Function4a149 ; known jump sources: 4a21f (12:621f), 4a229 (12:6229) asm_4a239: ; 4a239 (12:6239) pop bc jp Function4a13b ; 4a23d (12:623d) INCBIN "baserom.gbc",$4a23d,$4a28a - $4a23d ; known jump sources: 4a226 (12:6226) Function4a28a: ; 4a28a (12:628a) ld hl, $c4de ld bc, $601 ld a, $7f call Function4a6d8 call Function1bee call WaitBGMap call Function1d6e ld a, $5 call GetSRAMBank ld a, [$aa4b] call CloseSRAM and a jr z, .asm_4a2df ld hl, $c4ac ld b, $5 ld c, $6 call Function48cdc ld hl, $c4c2 ld de, $634b call PlaceString callba Function104148 call Function4a118 call Function1bd3 push af call PlayClickSFX pop af bit 1, a jr nz, .asm_4a33b ld a, [$cfa9] cp $2 jr z, .asm_4a2f0 cp $3 jr z, .asm_4a33b .asm_4a2df callba Function11765d call WhiteBGMap call Function1d7d call Functione5f scf ret .asm_4a2f0 call Function1bee ld hl, $6358 call PrintText ld hl, $c53a ld b, $3 ld c, $4 call TextBox callba Function104148 ld hl, $6362 call LoadMenuDataHeader call Function1d81 bit 1, a jr nz, .asm_4a338 ld a, [$cfa9] cp $2 jr z, .asm_4a338 ld a, $5 call GetSRAMBank ld hl, $aa4b xor a ld bc, $11 call ByteFill call CloseSRAM ld hl, $635d call PrintText call Functiona36 .asm_4a338 call Function1c07 .asm_4a33b call Function1d7d callba Function104148 xor a ret ; 4a346 (12:6346) INCBIN "baserom.gbc",$4a346,$4a373 - $4a346 ; known jump sources: 4a141 (12:6141), 4a1db (12:61db), 4a22b (12:622b) Function4a373: ; 4a373 (12:6373) ld hl, $cfa1 ld a, $4 ld [hli], a ld a, $2 ld [hli], a ld a, $3 ld [hli], a ld a, $1 ld [hli], a ld [hl], $0 set 5, [hl] inc hl xor a ld [hli], a ld a, $20 ld [hli], a ld a, $1 add $40 add $80 add $2 ld [hli], a ld a, $1 ld [hli], a ld [hli], a ret ; 4a39a (12:639a) INCBIN "baserom.gbc",$4a39a,$4a3a7 - $4a39a ; known jump sources: 48078 (12:4078), 49f0d (12:5f0d), 4a13b (12:613b), 4a4c7 (12:64c7) Function4a3a7: ; 4a3a7 (12:63a7) call Function4a485 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $301 xor a call Function4a6d8 ld bc, $101 ld a, $1 call Function4a6d8 ld bc, $101 xor a call Function4a6d8 ld bc, $101 ld a, $1 call Function4a6d8 ld bc, $401 ld a, $2 call Function4a6d8 ld bc, $101 ld a, $3 call Function4a6d8 ld bc, $101 ld a, $7f call Function4a6d8 ld hl, $c4a1 ld a, $1 ld bc, $312 call Function4a6d8 ld bc, $112 ld a, $0 call Function4a6d8 ld bc, $112 ld a, $1 call Function4a6d8 ld bc, $112 ld a, $2 call Function4a6d8 ld bc, $b12 ld a, $7f call Function4a6d8 ld hl, $c4b3 ld bc, $301 ld a, $0 call Function4a6d8 ld bc, $101 ld a, $1 call Function4a6d8 ld bc, $101 xor a call Function4a6d8 ld bc, $101 ld a, $1 call Function4a6d8 ld bc, $401 ld a, $2 call Function4a6d8 ld bc, $101 ld a, $3 call Function4a6d8 ld bc, $101 ld a, $7f call Function4a6d8 ret ; 4a449 (12:6449) INCBIN "baserom.gbc",$4a449,$4a485 - $4a449 ; known jump sources: 4a0b2 (12:60b2), 4a3a7 (12:63a7) Function4a485: ; 4a485 (12:6485) ld de, $5c0c ld hl, $9000 ld bc, $120d call Get2bpp ret ; known jump sources: 49f10 (12:5f10), 4a13e (12:613e), 4a4ca (12:64ca) Function4a492: ; 4a492 (12:6492) call Function4936e ret MainMenu_MobileStudium: ; 4a496 ld a, [StartDay] ld b, a ld a, [StartHour] ld c, a ld a, [StartMinute] ld d, a ld a, [StartSecond] ld e, a push bc push de callba MobileStudium call WhiteBGMap pop de pop bc ld a, b ld [StartDay], a ld a, c ld [StartHour], a ld a, d ld [StartMinute], a ld a, e ld [StartSecond], a ret ; 4a4c4 ; known jump sources: 4a0bf (12:60bf), 4a6c2 (12:66c2) Function4a4c4: ; 4a4c4 (12:64c4) call WhiteBGMap call Function4a3a7 call Function4a492 call Function4a680 call WhiteBGMap ld c, $14 call DelayFrames ld hl, $c4a2 ld b, $a ld c, $e call Function48cdc ld hl, $c4cc ld de, $65c5 call PlaceString ld hl, $c4f4 ld de, $65cd call PlaceString ld hl, $c51c ld de, $65da call PlaceString ld hl, $c544 ld de, $65e6 call PlaceString ld hl, $c56c ld de, $65f2 call PlaceString ld hl, $c590 ld b, $4 ld c, $12 call TextBox xor a ld hl, $65f6 ld d, h ld e, l ld hl, $c5b9 call PlaceString ld a, $1 ld hl, $65f6 call GetNthString ld d, h ld e, l ld hl, $c5e1 call PlaceString call Function3200 call Function32f9 call Function1bc9 ld hl, $cfa9 ld b, [hl] push bc jr asm_4a54d ; known jump sources: 4a5c2 (12:65c2) Function4a545: ; 4a545 (12:6545) call Function1bd3 ld hl, $cfa9 ld b, [hl] push bc ; known jump sources: 4a543 (12:6543) asm_4a54d: ; 4a54d (12:654d) bit 0, a jr nz, .asm_4a557 bit 1, a jr nz, .asm_4a574 jr .asm_4a57e .asm_4a557 ld hl, $cfa9 ld a, [hl] cp $1 jp z, Function4a6ab cp $2 jp z, Function4a6ab cp $3 jp z, Function4a6ab cp $4 jp z, Function4a6ab ld a, $1 call Function1ff8 .asm_4a574 pop bc call WhiteBGMap call ClearTileMap jp Function49f0a .asm_4a57e ld hl, $cfa9 ld a, [hl] dec a add a push af ld hl, $65f6 call GetNthString ld d, h ld e, l ld hl, $c5a5 ld b, $4 ld c, $12 call ClearBox ld hl, $c5b9 call PlaceString pop af inc a ld hl, $65f6 call GetNthString ld d, h ld e, l ld hl, $c5e1 call PlaceString jp Function4a5b0 ; known jump sources: 4a5ad (12:65ad) Function4a5b0: ; 4a5b0 (12:65b0) call Function4a680 pop bc ld hl, $cfa9 ld [hl], b ld b, $a ld c, $1 ld hl, $c4b7 call ClearBox jp Function4a545 ; 4a5c5 (12:65c5) INCBIN "baserom.gbc",$4a5c5,$4a680 - $4a5c5 ; known jump sources: 4a4cd (12:64cd), 4a5b0 (12:65b0) Function4a680: ; 4a680 (12:6680) ld hl, $cfa1 ld a, $2 ld [hli], a ld a, $3 ld [hli], a ld a, $5 ld [hli], a ld a, $1 ld [hli], a ld [hl], $0 set 5, [hl] inc hl xor a ld [hli], a ld a, $20 ld [hli], a ld a, $1 add $40 add $80 add $2 ld [hli], a ld a, $1 ld [hli], a ld [hli], a xor a ld [hli], a ld [hli], a ld [hli], a ret ; known jump sources: 4a55d (12:655d), 4a562 (12:6562), 4a567 (12:6567), 4a56c (12:656c) Function4a6ab: ; 4a6ab (12:66ab) ld a, $2 call Function1ff8 call WhiteBGMap ld b, $8 call GetSGBLayout callba Function11c1ab pop bc call Functione5f jp Function4a4c4 ; known jump sources: 49f07 (12:5f07), 49f93 (12:5f93) Function4a6c5: ; 4a6c5 (12:66c5) ld a, $5 ld [MusicFade], a ; $c2a7 ld a, e ld [MusicFadeIDLo], a ; $c2a9 ld a, d ld [MusicFadeIDHi], a ; $c2aa ld c, $16 call DelayFrames ret ; known jump sources: 4a292 (12:6292), 4a3b1 (12:63b1), 4a3b9 (12:63b9), 4a3c0 (12:63c0), 4a3c8 (12:63c8), 4a3d0 (12:63d0), 4a3d8 (12:63d8), 4a3e0 (12:63e0), 4a3eb (12:63eb), 4a3f3 (12:63f3), 4a3fb (12:63fb), 4a403 (12:6403), 4a40b (12:640b), 4a416 (12:6416), 4a41e (12:641e), 4a425 (12:6425), 4a42d (12:642d), 4a435 (12:6435), 4a43d (12:643d), 4a445 (12:6445), 4a6e5 (12:66e5) Function4a6d8: ; 4a6d8 (12:66d8) push bc push hl .asm_4a6da ld [hli], a dec c jr nz, .asm_4a6da pop hl ld bc, $14 add hl, bc pop bc dec b jr nz, Function4a6d8 ret SpecialBeastsCheck: ; 0x4a6e8 ; Check if the player owns all three legendary beasts. ; They must exist in either party or PC, and have the player's OT and ID. ; outputs: ; ScriptVar is 1 if the Pokémon exist, otherwise 0. ld a, RAIKOU ld [ScriptVar], a call CheckOwnMonAnywhere jr nc, .notexist ld a, ENTEI ld [ScriptVar], a call CheckOwnMonAnywhere jr nc, .notexist ld a, SUICUNE ld [ScriptVar], a call CheckOwnMonAnywhere jr nc, .notexist ; they exist ld a, $1 ld [ScriptVar], a ret .notexist xor a ld [ScriptVar], a ret SpecialMonCheck: ; 0x4a711 ; Check if a Pokémon exists in PC or party. ; It must exist in either party or PC, and have the player's OT and ID. ; inputs: ; ScriptVar contains species to search for call CheckOwnMonAnywhere jr c, .exists ; doesn't exist xor a ld [ScriptVar], a ret .exists ld a, $1 ld [ScriptVar], a ret CheckOwnMonAnywhere: ; 0x4a721 ld a, [PartyCount] and a ret z ; no pokémon in party ld d, a ld e, $0 ld hl, PartyMon1Species ld bc, PartyMon1OT ; run CheckOwnMon on each Pokémon in the party .loop call CheckOwnMon ret c ; found! push bc ld bc, PartyMon2 - PartyMon1 add hl, bc pop bc call UpdateOTPointer dec d jr nz, .loop ; 0x4a73d $f0 ; XXX the below could use some cleanup ; run CheckOwnMon on each Pokémon in the PC ld a, $1 call GetSRAMBank ld a, [BoxCount] and a jr z, .asm_4a766 ; 0x4a748 $1c ld d, a ld hl, BoxMon1Species ld bc, BoxMon1OT .asm_4a751 call CheckOwnMon jr nc, .asm_4a75a ; 0x4a754 $4 call CloseSRAM ret .asm_4a75a push bc ld bc, $0020 add hl, bc pop bc call UpdateOTPointer dec d jr nz, .asm_4a751 ; 0x4a764 $eb .asm_4a766 call CloseSRAM ld c, $0 .asm_4a76b ld a, [$db72] and $f cp c jr z, .asm_4a7af ; 0x4a771 $3c ld hl, $6810 ld b, $0 add hl, bc add hl, bc add hl, bc ld a, [hli] call GetSRAMBank ld a, [hli] ld h, [hl] ld l, a ld a, [hl] and a jr z, .asm_4a7af ; 0x4a784 $29 push bc push hl ld de, $0016 add hl, de ld d, h ld e, l pop hl push de ld de, $0296 add hl, de ld b, h ld c, l pop hl ld d, a .asm_4a798 call CheckOwnMon jr nc, .asm_4a7a2 ; 0x4a79b $5 pop bc call CloseSRAM ret .asm_4a7a2 push bc ld bc, $0020 add hl, bc pop bc call UpdateOTPointer dec d jr nz, .asm_4a798 ; 0x4a7ac $ea pop bc .asm_4a7af inc c ld a, c cp $e jr c, .asm_4a76b ; 0x4a7b3 $b6 call CloseSRAM and a ; clear carry ret CheckOwnMon: ; 0x4a7ba ; Check if a Pokémon belongs to the player and is of a specific species. ; inputs: ; hl, pointer to PartyMonNSpecies ; bc, pointer to PartyMonNOT ; ScriptVar should contain the species we're looking for ; outputs: ; sets carry if monster matches species, ID, and OT name. push bc push hl push de ld d, b ld e, c ; check species ld a, [ScriptVar] ; species we're looking for ld b, [hl] ; species we have cp b jr nz, .notfound ; species doesn't match ; check ID number ld bc, PartyMon1ID - PartyMon1Species add hl, bc ; now hl points to ID number ld a, [PlayerID] cp [hl] jr nz, .notfound ; ID doesn't match inc hl ld a, [PlayerID + 1] cp [hl] jr nz, .notfound ; ID doesn't match ; check OT ; This only checks five characters, which is fine for the Japanese version, ; but in the English version the player name is 7 characters, so this is wrong. ld hl, PlayerName ld a, [de] cp [hl] jr nz, .notfound cp "@" jr z, .found ; reached end of string inc hl inc de ld a, [de] cp [hl] jr nz, .notfound cp $50 jr z, .found inc hl inc de ld a, [de] cp [hl] jr nz, .notfound cp $50 jr z, .found inc hl inc de ld a, [de] cp [hl] jr nz, .notfound cp $50 jr z, .found inc hl inc de ld a, [de] cp [hl] jr z, .found .notfound pop de pop hl pop bc and a ; clear carry ret .found pop de pop hl pop bc scf ret ; 0x4a810 INCBIN "baserom.gbc",$4a810,$4a83a - $4a810 UpdateOTPointer: ; 0x4a83a push hl ld hl, PartyMon2OT - PartyMon1OT add hl, bc ld b, h ld c, l pop hl ret ; 0x4a843 INCBIN "baserom.gbc",$4a843,$4a927 - $4a843 Function4a927: ; 4a927 ld a, [ScriptVar] ld [CurItem], a ld hl, PCItems call CheckItem jr c, .asm_4a948 ld a, [ScriptVar] ld [CurItem], a ld hl, NumItems call CheckItem jr c, .asm_4a948 xor a ld [ScriptVar], a ret .asm_4a948 ld a, $1 ld [ScriptVar], a ret ; 4a94e Function4a94e: ; 4a94e call FadeToMenu ld a, $ff ld hl, DefaultFlypoint ld bc, $0003 call ByteFill xor a ld [$d018], a ld [$d019], a ld b, $14 call GetSGBLayout call Function32f9 call Function4aa22 jr c, .asm_4a985 jr z, .asm_4a9a1 jr .asm_4a97b .asm_4a974 call Function4aa25 jr c, .asm_4a985 jr z, .asm_4a9a1 .asm_4a97b call Function4ac58 ld hl, $d019 res 1, [hl] jr .asm_4a974 .asm_4a985 ld a, [$d018] and a jr nz, .asm_4a990 call Function4aba8 jr c, .asm_4a974 .asm_4a990 call Function2b3c ld hl, DefaultFlypoint ld a, $ff ld bc, $0003 call ByteFill scf jr .asm_4a9af .asm_4a9a1 call Function4a9c3 jr c, .asm_4a9b0 call Function4a9d7 jr c, .asm_4a974 call Function2b3c and a .asm_4a9af ret .asm_4a9b0 ld de, $0019 call PlaySFX ld hl, $69be call PrintText jr .asm_4a974 ; 4a9be INCBIN "baserom.gbc",$4a9be,$4a9c3 - $4a9be Function4a9c3: ; 4a9c3 ld hl, DefaultFlypoint ld a, $ff cp [hl] jr z, .asm_4a9d5 inc hl cp [hl] jr z, .asm_4a9d5 inc hl cp [hl] jr z, .asm_4a9d5 and a ret .asm_4a9d5 scf ret ; 4a9d7 Function4a9d7: ; 4a9d7 ld a, [DefaultFlypoint] ld hl, PartyMon1Nickname call GetNick ld h, d ld l, e ld de, EndFlypoint ld bc, $0006 call CopyBytes ld a, [$d003] ld hl, PartyMon1Nickname call GetNick ld h, d ld l, e ld de, $d00c ld bc, $0006 call CopyBytes ld a, [$d004] ld hl, PartyMon1Nickname call GetNick ld h, d ld l, e ld de, $d012 ld bc, $0006 call CopyBytes ld hl, $6a1d call PrintText call YesNoBox ret ; 4aa1d INCBIN "baserom.gbc",$4aa1d,$4aa22 - $4aa1d Function4aa22: ; 4aa22 call WhiteBGMap Function4aa25: ; 4aa25 callba Function5004f callba Function50405 call Function4aad3 ld a, $9 ld [PartyMenuActionText], a callba WritePartyMenuTilemap xor a ld [PartyMenuActionText], a callba PrintPartyMenuText call Function4aab6 call WaitBGMap call Function32f9 call DelayFrame call Function4ab1a jr z, .asm_4aa66 push af call Function4aafb jr c, .asm_4aa67 call Function4ab06 jr c, .asm_4aa67 pop af .asm_4aa66 ret .asm_4aa67 ld hl, $d019 set 1, [hl] pop af ret ; 4aa6e INCBIN "baserom.gbc",$4aa6e,$4aa7a - $4aa6e Function4aa7a: ; 4aa7a ld hl, DefaultFlypoint ld d, $3 .asm_4aa7f ld e, $6 ld a, [hli] push de push hl cp $ff jr z, .asm_4aab3 ld hl, $c314 inc a ld d, a .asm_4aa8d ld a, [hl] and a jr z, .asm_4aaa5 cp d jr z, .asm_4aa9a jr .asm_4aaa5 ld a, $3 jr .asm_4aa9c .asm_4aa9a ld a, $2 .asm_4aa9c push hl ld c, l ld b, h ld hl, $0002 add hl, bc ld [hl], a pop hl .asm_4aaa5 ld bc, $0010 add hl, bc dec e jr nz, .asm_4aa8d pop hl pop de dec d jr nz, .asm_4aa7f jr .asm_4aab5 .asm_4aab3 pop hl pop de .asm_4aab5 ret ; 4aab6 Function4aab6: ; 4aab6 ld hl, DefaultFlypoint ld d, $3 .asm_4aabb ld a, [hli] cp $ff jr z, .asm_4aad2 push de push hl ld hl, $c4b4 ld bc, $0028 call AddNTimes ld [hl], $ec pop hl pop de dec d jr nz, .asm_4aabb .asm_4aad2 ret ; 4aad3 Function4aad3: ; 4aad3 ld hl, PartyCount ld a, [hli] and a ret z ld c, a xor a ld [hConnectedMapWidth], a .asm_4aadd push bc push hl ld e, $0 callba Function8e83f ld a, [hConnectedMapWidth] inc a ld [hConnectedMapWidth], a pop hl pop bc dec c jr nz, .asm_4aadd call Function4aa7a callba Function8cf69 ret ; 4aafb Function4aafb: ; 4aafb ld a, [CurPartySpecies] cp $fd jr z, .asm_4ab04 and a ret .asm_4ab04 scf ret ; 4ab06 Function4ab06: ; 4ab06 ld a, [CurPartyMon] ld bc, $0030 ld hl, PartyMon1CurHP call AddNTimes ld a, [hli] ld b, a ld a, [hl] or b jr nz, .asm_4ab19 scf .asm_4ab19 ret ; 4ab1a Function4ab1a: ; 4ab1a .asm_4ab1a ld a, $fb ld [$cfa8], a ld a, $26 ld [$cfa7], a ld a, $2 ld [$cfa4], a call Function4adf7 call Function1bc9 call Function4abc3 jr c, .asm_4ab1a push af call Function4ab99 call nc, Function1bee pop af bit 1, a jr nz, .asm_4ab6d ld a, [PartyCount] inc a ld b, a ld a, [$cfa9] ld [$d0d8], a cp b jr z, .asm_4ab7e ld a, [$cfa9] dec a ld [CurPartyMon], a ld c, a ld b, $0 ld hl, PartySpecies add hl, bc ld a, [hl] ld [CurPartySpecies], a ld de, $0008 call PlaySFX call WaitSFX ld a, $1 and a ret .asm_4ab6d ld a, [$cfa9] ld [$d0d8], a .asm_4ab73 ld de, $0008 call PlaySFX call WaitSFX scf ret .asm_4ab7e ld a, $1 ld [$d018], a ld a, [$cfaa] cp $2 jr z, .asm_4ab73 ld de, $0008 call PlaySFX call WaitSFX xor a ld [$d018], a and a ret ; 4ab99 Function4ab99: ; 4ab99 bit 1, a jr z, .asm_4aba6 ld a, [DefaultFlypoint] cp $ff jr z, .asm_4aba6 scf ret .asm_4aba6 and a ret ; 4aba8 Function4aba8: ; 4aba8 ld hl, $d004 ld a, [hl] cp $ff jr nz, .asm_4abbe dec hl ld a, [hl] cp $ff jr nz, .asm_4abbe dec hl ld a, [hl] cp $ff jr nz, .asm_4abbe and a ret .asm_4abbe ld a, $ff ld [hl], a scf ret ; 4abc3 Function4abc3: ; 4abc3 bit 3, a jr z, .asm_4abd5 ld a, [PartyCount] inc a ld [$cfa9], a ld a, $1 ld [$cfaa], a jr .asm_4ac29 .asm_4abd5 bit 6, a jr z, .asm_4abeb ld a, [$cfa9] ld [$cfa9], a and a jr nz, .asm_4ac29 ld a, [PartyCount] inc a ld [$cfa9], a jr .asm_4ac29 .asm_4abeb bit 7, a jr z, .asm_4ac08 ld a, [$cfa9] ld [$cfa9], a ld a, [PartyCount] inc a inc a ld b, a ld a, [$cfa9] cp b jr nz, .asm_4ac29 ld a, $1 ld [$cfa9], a jr .asm_4ac29 .asm_4ac08 bit 4, a jr nz, .asm_4ac10 bit 5, a jr z, .asm_4ac56 .asm_4ac10 ld a, [$cfa9] ld b, a ld a, [PartyCount] inc a cp b jr nz, .asm_4ac29 ld a, [$cfaa] cp $1 jr z, .asm_4ac26 ld a, $1 jr .asm_4ac29 .asm_4ac26 ld [$cfaa], a .asm_4ac29 ld hl, $c4b4 ld bc, $0d01 call ClearBox call Function4aab6 ld a, [PartyCount] ld hl, $c4ba .asm_4ac3b ld bc, $0028 add hl, bc dec a jr nz, .asm_4ac3b ld [hl], $7f ld a, [$cfa9] ld b, a ld a, [PartyCount] inc a cp b jr z, .asm_4ac54 ld a, $1 ld [$cfaa], a .asm_4ac54 scf ret .asm_4ac56 and a ret ; 4ac58 Function4ac58: ; 4ac58 ld bc, $0212 ld hl, $c5cd call ClearBox callba Function8ea4a ld hl, $6ca2 call LoadMenuDataHeader ld hl, $d019 bit 1, [hl] jr z, .asm_4ac89 ld hl, $c5af ld b, $3 ld c, $7 call TextBox ld hl, $c5c5 ld de, $6da7 call PlaceString jr .asm_4ac96 .asm_4ac89 ld hl, $c55f ld b, $7 ld c, $7 call TextBox call Function4ad68 .asm_4ac96 ld a, $1 ld [hBGMapMode], a call Function4acaa call Function1c07 and a ret ; 4aca2 INCBIN "baserom.gbc",$4aca2,$4acaa - $4aca2 Function4acaa: ; 4acaa .asm_4acaa ld a, $a0 ld [$cf91], a ld a, [$d019] bit 1, a jr z, .asm_4acc2 ld a, $2 ld [$cf92], a ld a, $c ld [$cf82], a jr .asm_4accc .asm_4acc2 ld a, $4 ld [$cf92], a ld a, $8 ld [$cf82], a .asm_4accc ld a, $b ld [$cf83], a ld a, $1 ld [$cf88], a call Function1c10 ld hl, $cfa5 set 6, [hl] call Function1bc9 ld de, $0008 call PlaySFX ld a, [hJoyPressed] bit 0, a jr nz, .asm_4acf4 bit 1, a jr nz, .asm_4acf3 jr .asm_4acaa .asm_4acf3 ret .asm_4acf4 ld a, [$d019] bit 1, a jr nz, .asm_4ad0e ld a, [$cfa9] cp $1 jr z, Function4ad17 cp $2 jp z, Function4ad56 cp $3 jp z, Function4ad60 jr .asm_4acf3 .asm_4ad0e ld a, [$cfa9] cp $1 jr z, Function4ad56 jr .asm_4acf3 Function4ad17: ; 4ad17 call Function4adb2 jr z, .asm_4ad4a ld hl, DefaultFlypoint ld a, $ff cp [hl] jr z, .asm_4ad39 inc hl cp [hl] jr z, .asm_4ad39 inc hl cp [hl] jr z, .asm_4ad39 ld de, $0019 call WaitPlaySFX ld hl, UnknownText_0x4ad51 call PrintText ret .asm_4ad39 ld a, [CurPartyMon] ld [hl], a call Function4a9c3 ret c ld a, [$d019] set 0, a ld [$d019], a ret .asm_4ad4a ld a, $ff ld [hl], a call Function4adc2 ret UnknownText_0x4ad51: ; 0x4ad51 ; Only three #MON may enter. text_jump UnknownText_0x1c521c db "@" ; 0x4ad56 Function4ad56: ; 4ad56 callba OpenPartyStats call Function3200 ret ; 4ad60 Function4ad60: ; 4ad60 callba Function12fba ret ; 4ad67 INCBIN "baserom.gbc",$4ad67,$4ad68 - $4ad67 Function4ad68: ; 4ad68 ld hl, $c59d ld de, $6d88 call PlaceString call Function4adb2 jr c, .asm_4ad7e ld hl, $c575 ld de, $6da0 jr .asm_4ad84 .asm_4ad7e ld hl, $c575 ld de, $6d9a .asm_4ad84 call PlaceString ret ; 4ad88 INCBIN "baserom.gbc",$4ad88,$4adb2 - $4ad88 Function4adb2: ; 4adb2 ld hl, DefaultFlypoint ld a, [CurPartyMon] cp [hl] ret z inc hl cp [hl] ret z inc hl cp [hl] ret z scf ret ; 4adc2 Function4adc2: ; 4adc2 ld a, [DefaultFlypoint] cp $ff jr nz, .asm_4ade5 ld a, [$d003] cp $ff jr nz, .asm_4addd ld a, [$d004] ld [DefaultFlypoint], a ld a, $ff ld [$d004], a jr .asm_4ade5 .asm_4addd ld [DefaultFlypoint], a ld a, $ff ld [$d003], a .asm_4ade5 ld a, [$d003] cp $ff ret nz ld b, a ld a, [$d004] ld [$d003], a ld a, b ld [$d004], a ret ; 4adf7 Function4adf7: ; 4adf7 ld a, [$d019] bit 0, a ret z ld a, [PartyCount] inc a ld [$cfa9], a ld a, $1 ld [$cfaa], a ld a, [$d019] res 0, a ld [$d019], a ret ; 4ae12 Function4ae12: ; 4ae12 call Function4ae1f ld a, $0 jr c, .asm_4ae1b ld a, $1 .asm_4ae1b ld [ScriptVar], a ret ; 4ae1f Function4ae1f: ; 4ae1f ld bc, $0e07 push bc ld hl, YesNoMenuDataHeader call Function1d3c pop bc ld a, b ld [$cf83], a add $5 ld [$cf85], a ld a, c ld [$cf82], a add $4 ld [$cf84], a call Function1c00 call Function1d81 push af ld c, $f call DelayFrames call Function4ae5e pop af jr c, .asm_4ae57 ld a, [$cfa9] cp $2 jr z, .asm_4ae57 and a ret .asm_4ae57 ld a, $2 ld [$cfa9], a scf ret ; 4ae5e Function4ae5e: ; 4ae5e ld a, [hOAMUpdate] push af call Function1c07 call Function1ad2 xor a ld [hOAMUpdate], a call DelayFrame ld a, $1 ld [hOAMUpdate], a call Function321c pop af ld [hOAMUpdate], a ret ; 4ae78 SECTION "bank13", ROMX, BANK[$13] Function4c000: ; 4c000 ld hl, TileMap ld de, AttrMap ld b, $12 .asm_4c008 push bc ld c, $14 .asm_4c00b ld a, [hl] push hl srl a jr c, .asm_4c021 ld hl, TilesetPalettes add [hl] ld l, a ld a, [$d1e7] adc $0 ld h, a ld a, [hl] and $f jr .asm_4c031 .asm_4c021 ld hl, TilesetPalettes add [hl] ld l, a ld a, [$d1e7] adc $0 ld h, a ld a, [hl] swap a and $f .asm_4c031 pop hl ld [de], a res 7, [hl] inc hl inc de dec c jr nz, .asm_4c00b pop bc dec b jr nz, .asm_4c008 ret ; 4c03f Function4c03f: ; 4c03f ld hl, BGMapBuffer ld de, BGMapPalBuffer .asm_4c045 ld a, [hl] push hl srl a jr c, .asm_4c05b ld hl, TilesetPalettes add [hl] ld l, a ld a, [$d1e7] adc $0 ld h, a ld a, [hl] and $f jr .asm_4c06b .asm_4c05b ld hl, TilesetPalettes add [hl] ld l, a ld a, [$d1e7] adc $0 ld h, a ld a, [hl] swap a and $f .asm_4c06b pop hl ld [de], a res 7, [hl] inc hl inc de dec c jr nz, .asm_4c045 ret ; 4c075 INCLUDE "tilesets/palette_maps.asm" TileCollisionTable: ; 4ce1f ; 00 land ; 01 water ; 0f wall ; 11 talkable water ; 1f talkable wall db $00, $00, $00, $00, $00, $00, $00, $0f db $00, $00, $00, $00, $00, $00, $00, $0f db $00, $00, $1f, $00, $00, $1f, $00, $00 db $00, $00, $1f, $00, $00, $1f, $00, $00 db $01, $01, $11, $00, $11, $01, $01, $0f db $01, $01, $11, $00, $11, $01, $01, $0f db $01, $01, $01, $01, $01, $01, $01, $01 db $01, $01, $01, $01, $01, $01, $01, $01 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $0f, $00, $00, $00, $00, $00 db $00, $00, $0f, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $0f, $0f, $0f, $0f, $0f, $00, $00, $00 db $0f, $0f, $0f, $0f, $0f, $00, $00, $00 db $0f, $0f, $0f, $0f, $0f, $0f, $0f, $0f db $0f, $0f, $0f, $0f, $0f, $0f, $0f, $0f db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $01, $01, $01, $01, $01, $01, $01, $01 db $01, $01, $01, $01, $01, $01, $01, $01 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $00 db $00, $00, $00, $00, $00, $00, $00, $0f ; 4cf1f Function4cf1f: ; 4cf1f ld a, $0 call Function4cf34 ld a, $1 call Function4cf34 ld a, $2 call Function4cf34 ld a, $3 call Function4cf34 ret ; 4cf34 Function4cf34: ; 4cf34 call GetSRAMBank ld hl, $a000 ld bc, $2000 xor a call ByteFill call CloseSRAM ret ; 4cf45 ; no known jump sources Function4cf45: ; 4cf45 (13:4f45) ld a, [hCGB] ; $ff00+$e6 and a jp z, WaitBGMap ld a, [hBGMapMode] ; $ff00+$d4 push af xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, [$FF00+$de] push af xor a ld [$FF00+$de], a .asm_4cf57 ld a, [rLY] ; $ff00+$44 cp $60 jr c, .asm_4cf57 di ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, AttrMap ; $cdd9 call Function4cf80 ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) call Function4cf80 .asm_4cf72 ld a, [rLY] ; $ff00+$44 cp $60 jr c, .asm_4cf72 ei pop af ld [$FF00+$de], a pop af ld [hBGMapMode], a ; $ff00+$d4 ret ; known jump sources: 4cf65 (13:4f65), 4cf6f (13:4f6f) Function4cf80: ; 4cf80 (13:4f80) ld [hSPBuffer], sp ; $ffd9 ld sp, hl ld a, [$FF00+$d7] ld h, a ld l, $0 ld a, $12 ld [$FF00+$d3], a ld b, $2 ld c, $41 .asm_4cf91 pop de .asm_4cf92 ld a, [$ff00+c] and b jr nz, .asm_4cf92 ld [hl], e inc l ld [hl], d inc l pop de .asm_4cf9b ld a, [$ff00+c] and b jr nz, .asm_4cf9b ld [hl], e inc l ld [hl], d inc l pop de .asm_4cfa4 ld a, [$ff00+c] and b jr nz, .asm_4cfa4 ld [hl], e inc l ld [hl], d inc l pop de .asm_4cfad ld a, [$ff00+c] and b jr nz, .asm_4cfad ld [hl], e inc l ld [hl], d inc l pop de .asm_4cfb6 ld a, [$ff00+c] and b jr nz, .asm_4cfb6 ld [hl], e inc l ld [hl], d inc l pop de .asm_4cfbf ld a, [$ff00+c] and b jr nz, .asm_4cfbf ld [hl], e inc l ld [hl], d inc l pop de .asm_4cfc8 ld a, [$ff00+c] and b jr nz, .asm_4cfc8 ld [hl], e inc l ld [hl], d inc l pop de .asm_4cfd1 ld a, [$ff00+c] and b jr nz, .asm_4cfd1 ld [hl], e inc l ld [hl], d inc l pop de .asm_4cfda ld a, [$ff00+c] and b jr nz, .asm_4cfda ld [hl], e inc l ld [hl], d inc l pop de .asm_4cfe3 ld a, [$ff00+c] and b jr nz, .asm_4cfe3 ld [hl], e inc l ld [hl], d inc l ld de, $c add hl, de ld a, [$FF00+$d3] dec a ld [$FF00+$d3], a jr nz, .asm_4cf91 ld a, [hSPBuffer] ; $ff00+$d9 ld l, a ld a, [$FF00+$da] ld h, a ld sp, hl ret Function4cffe: ; 4cffe ld a, $1 call GetSRAMBank ld a, [$a008] ld b, a ld a, [$ad0f] ld c, a call CloseSRAM ld a, b cp $63 jr nz, .asm_4d01b ld a, c cp $7f jr nz, .asm_4d01b ld c, $1 ret .asm_4d01b ld c, $0 ret ; 4d01e INCBIN "baserom.gbc",$4d01e,$4d15b - $4d01e Function4d15b: ; 4d15b ld hl, EnemyMoveAnimation ld a, [$d196] and a jr z, .asm_4d168 ld bc, $0030 add hl, bc .asm_4d168 ld a, [$d197] and a jr z, .asm_4d170 inc hl inc hl .asm_4d170 ld de, TileMap ld b, $12 .asm_4d175 ld c, $14 .asm_4d177 ld a, [hli] ld [de], a inc de dec c jr nz, .asm_4d177 ld a, l add $4 ld l, a jr nc, .asm_4d184 inc h .asm_4d184 dec b jr nz, .asm_4d175 ret ; 4d188 Function4d188: ; 4d188 ld a, [hCGB] and a jp z, WaitBGMap ld a, [$c2ce] cp $0 jp z, WaitBGMap ld a, [hBGMapMode] push af xor a ld [hBGMapMode], a ld a, [$ffde] push af xor a ld [$ffde], a .asm_4d1a2 ld a, [rLY] cp $8f jr c, .asm_4d1a2 di ld a, $1 ld [rVBK], a ld hl, AttrMap call Function4d1cb ld a, $0 ld [rVBK], a ld hl, TileMap call Function4d1cb .asm_4d1bd ld a, [rLY] cp $8f jr c, .asm_4d1bd ei pop af ld [$ffde], a pop af ld [hBGMapMode], a ret ; 4d1cb Function4d1cb: ; 4d1cb ld [hSPBuffer], sp ld sp, hl ld a, [$ffd7] ld h, a ld l, $0 ld a, $12 ld [$ffd3], a ld b, $2 ld c, $41 .asm_4d1dc pop de .asm_4d1dd ld a, [$ff00+c] and b jr nz, .asm_4d1dd ld [hl], e inc l ld [hl], d inc l pop de .asm_4d1e6 ld a, [$ff00+c] and b jr nz, .asm_4d1e6 ld [hl], e inc l ld [hl], d inc l pop de .asm_4d1ef ld a, [$ff00+c] and b jr nz, .asm_4d1ef ld [hl], e inc l ld [hl], d inc l pop de .asm_4d1f8 ld a, [$ff00+c] and b jr nz, .asm_4d1f8 ld [hl], e inc l ld [hl], d inc l pop de .asm_4d201 ld a, [$ff00+c] and b jr nz, .asm_4d201 ld [hl], e inc l ld [hl], d inc l pop de .asm_4d20a ld a, [$ff00+c] and b jr nz, .asm_4d20a ld [hl], e inc l ld [hl], d inc l pop de .asm_4d213 ld a, [$ff00+c] and b jr nz, .asm_4d213 ld [hl], e inc l ld [hl], d inc l pop de .asm_4d21c ld a, [$ff00+c] and b jr nz, .asm_4d21c ld [hl], e inc l ld [hl], d inc l pop de .asm_4d225 ld a, [$ff00+c] and b jr nz, .asm_4d225 ld [hl], e inc l ld [hl], d inc l pop de .asm_4d22e ld a, [$ff00+c] and b jr nz, .asm_4d22e ld [hl], e inc l ld [hl], d inc l ld de, $000c add hl, de ld a, [$ffd3] dec a ld [$ffd3], a jr nz, .asm_4d1dc ld a, [hSPBuffer] ld l, a ld a, [$ffda] ld h, a ld sp, hl ret ; 4d249 INCBIN "baserom.gbc",$4d249,$4d319 - $4d249 Function4d319: ; 4d319 ld a, [$cfa9] dec a ld [CurPartyMon], a call LowVolume ld a, $25 call Predef ld a, [CurPartyMon] inc a ld [$cfa9], a call Functionfdb call WhiteBGMap call MaxVolume callba Function28ef8 callba Function4d354 callba Function16d673 callba Function28eff call Function3200 ret ; 4d354 Function4d354: ; 4d354 call WaitBGMap call Function3200 ret ; 4d35b Function4d35b: ; 4d35b ld h, d ld l, e push bc push hl call Function4d37e pop hl pop bc ld de, $0939 add hl, de inc b inc b inc c inc c ld a, $7 .asm_4d36e push bc push hl .asm_4d370 ld [hli], a dec c jr nz, .asm_4d370 pop hl ld de, $0014 add hl, de pop bc dec b jr nz, .asm_4d36e ret ; 4d37e Function4d37e: ; 4d37e push hl ld a, $76 ld [hli], a inc a call Function4d3ab inc a ld [hl], a pop hl ld de, $0014 add hl, de .asm_4d38d push hl ld a, $79 ld [hli], a ld a, $7f call Function4d3ab ld [hl], $7a pop hl ld de, $0014 add hl, de dec b jr nz, .asm_4d38d ld a, $7b ld [hli], a ld a, $7c call Function4d3ab ld [hl], $7d ret ; 4d3ab Function4d3ab: ; 4d3ab ld d, c .asm_4d3ac ld [hli], a dec d jr nz, .asm_4d3ac ret ; 4d3b1 Function4d3b1: ; 4d3b1 callba Function8000 ld b, $8 call GetSGBLayout call Functione51 call Functione5f ld de, $0054 call PlayMusic ld hl, $5408 call PrintText ld hl, $540d call Function1d3c call Function1d81 ret c ld a, [$cfa9] cp $1 ret z call Function4d41e jr c, .asm_4d3f7 ld a, $0 call GetSRAMBank ld a, $80 ld [$ac60], a call CloseSRAM ld hl, $53fe call PrintText ret .asm_4d3f7 ld hl, $5403 call PrintText ret ; 4d3fe INCBIN "baserom.gbc",$4d3fe,$4d41e - $4d3fe Function4d41e: ; 4d41e call Function4d50f push de ld hl, StringBuffer2 ld bc, $0005 xor a call ByteFill ld a, $4 ld [$d08b], a ld hl, $5463 call PrintText .asm_4d437 call Function4d468 .asm_4d43a call Functiona57 ld a, [$ffa9] ld b, a and $1 jr nz, .asm_4d453 ld a, b and $f0 jr z, .asm_4d43a call Function4d490 ld c, $3 call DelayFrames jr .asm_4d437 .asm_4d453 call Function4d4e0 pop de ld a, e cp l jr nz, .asm_4d461 ld a, d cp h jr nz, .asm_4d461 and a ret .asm_4d461 scf ret ; 4d463 INCBIN "baserom.gbc",$4d463,$4d468 - $4d463 Function4d468: ; 4d468 ld hl, $c5da ld de, StringBuffer2 ld c, $5 .asm_4d470 ld a, [de] add $f6 ld [hli], a inc de dec c jr nz, .asm_4d470 ld hl, $c5ee ld bc, $0005 ld a, $7f call ByteFill ld hl, $c5ee ld a, [$d08b] ld e, a ld d, $0 add hl, de ld [hl], $61 ret ; 4d490 Function4d490: ; 4d490 ld a, b and $20 jr nz, .asm_4d4a5 ld a, b and $10 jr nz, .asm_4d4af ld a, b and $40 jr nz, .asm_4d4ba ld a, b and $80 jr nz, .asm_4d4c8 ret .asm_4d4a5 ld a, [$d08b] and a ret z dec a ld [$d08b], a ret .asm_4d4af ld a, [$d08b] cp $4 ret z inc a ld [$d08b], a ret .asm_4d4ba call Function4d4d5 ld a, [hl] cp $9 jr z, .asm_4d4c5 inc a ld [hl], a ret .asm_4d4c5 ld [hl], $0 ret .asm_4d4c8 call Function4d4d5 ld a, [hl] and a jr z, .asm_4d4d2 dec a ld [hl], a ret .asm_4d4d2 ld [hl], $9 ret ; 4d4d5 Function4d4d5: ; 4d4d5 ld a, [$d08b] ld e, a ld d, $0 ld hl, StringBuffer2 add hl, de ret ; 4d4e0 Function4d4e0: ; 4d4e0 ld hl, $0000 ld de, $d08a ld bc, $0001 call Function4d501 ld bc, $000a call Function4d501 ld bc, $0064 call Function4d501 ld bc, $03e8 call Function4d501 ld bc, $2710 Function4d501: ; 4d501 ld a, [de] dec de push hl ld hl, $0000 call AddNTimes ld c, l ld b, h pop hl add hl, bc ret ; 4d50f Function4d50f: ; 4d50f ld a, $1 call GetSRAMBank ld de, $0000 ld hl, $a009 ld c, $2 call Function4d533 ld hl, $a00b ld c, $5 call Function4d53e ld hl, $a3dc ld c, $3 call Function4d533 call CloseSRAM ret ; 4d533 Function4d533: ; 4d533 .asm_4d533 ld a, [hli] add e ld e, a ld a, $0 adc d ld d, a dec c jr nz, .asm_4d533 ret ; 4d53e Function4d53e: ; 4d53e .asm_4d53e ld a, [hli] cp $50 ret z add e ld e, a ld a, $0 adc d ld d, a dec c jr nz, .asm_4d53e ret ; 4d54c Function4d54c: ; 4d54c callba Function8000 ld b, $8 call GetSGBLayout call Functione51 call Functione5f ld de, $0054 call PlayMusic ld hl, $5580 call PrintText ld hl, $5585 call Function1d3c call Function1d81 ret c ld a, [$cfa9] cp $1 ret z callba Function4cf1f ret ; 4d580 INCBIN "baserom.gbc",$4d580,$4d596 - $4d580 Tilesets: INCLUDE "tilesets/tileset_headers.asm" FlagPredef: ; 4d7c1 ; Perform action b on flag c in flag array hl. ; If checking a flag, check flag array d:hl unless d is 0. ; For longer flag arrays, see FlagAction. push hl push bc ; Divide by 8 to get the byte we want. push bc srl c srl c srl c ld b, 0 add hl, bc pop bc ; Which bit we want from the byte ld a, c and 7 ld c, a ; Shift left until we can mask the bit ld a, 1 jr z, .shifted .shift add a dec c jr nz, .shift .shifted ld c, a ; What are we doing to this flag? dec b jr z, .set ; 1 dec b jr z, .check ; 2 .reset ld a, c cpl and [hl] ld [hl], a jr .done .set ld a, [hl] or c ld [hl], a jr .done .check ld a, d cp 0 jr nz, .farcheck ld a, [hl] and c jr .done .farcheck call GetFarByte and c .done pop bc pop hl ld c, a ret ; 4d7fd Function4d7fd: ; 4d7fd ld a, [PlayerLightScreenCount] ld hl, $c72f ld de, VTiles2 push de push af ld a, $2d call Predef pop af ld [CurPartySpecies], a ld [CurSpecies], a call GetBaseData pop de ld a, $3e call Predef ret ; 4d81e INCBIN "baserom.gbc",$4d81e,$4d860 - $4d81e CheckPokerus: ; 4d860 ; Return carry if a monster in your party has Pokerus ; Get number of monsters to iterate over ld a, [PartyCount] and a jr z, .NoPokerus ld b, a ; Check each monster in the party for Pokerus ld hl, PartyMon1PokerusStatus ld de, PartyMon2 - PartyMon1 .Check ld a, [hl] and $0f ; only the bottom nybble is used jr nz, .HasPokerus ; Next PartyMon add hl, de dec b jr nz, .Check .NoPokerus and a ret .HasPokerus scf ret ; 4d87a Function4d87a: ; 4d87a xor a ld [ScriptVar], a ld [$d265], a ld a, [PartyCount] and a ret z ld d, a ld hl, PartyMon1ID ld bc, PartySpecies .asm_4d88d ld a, [bc] inc bc cp $fd call nz, Function4d939 push bc ld bc, $0030 add hl, bc pop bc dec d jr nz, .asm_4d88d ld a, $1 call GetSRAMBank ld a, [BoxCount] and a jr z, .asm_4d8c8 ld d, a ld hl, BoxMon1ID ld bc, BoxSpecies .asm_4d8af ld a, [bc] inc bc cp $fd jr z, .asm_4d8bf call Function4d939 jr nc, .asm_4d8bf ld a, $1 ld [$d265], a .asm_4d8bf push bc ld bc, $0020 add hl, bc pop bc dec d jr nz, .asm_4d8af .asm_4d8c8 call CloseSRAM ld c, $0 .asm_4d8cd ld a, [$db72] and $f cp c jr z, .asm_4d90b ld hl, $599f ld b, $0 add hl, bc add hl, bc add hl, bc ld a, [hli] call GetSRAMBank ld a, [hli] ld h, [hl] ld l, a ld a, [hl] and a jr z, .asm_4d90b push bc ld b, h ld c, l inc bc ld de, $001c add hl, de ld d, a .asm_4d8f1 ld a, [bc] inc bc cp $fd jr z, .asm_4d901 call Function4d939 jr nc, .asm_4d901 ld a, $1 ld [$d265], a .asm_4d901 push bc ld bc, $0020 add hl, bc pop bc dec d jr nz, .asm_4d8f1 pop bc .asm_4d90b inc c ld a, c cp $e jr c, .asm_4d8cd call CloseSRAM ld a, [ScriptVar] and a ret z callba Function1060cd ld a, [$d265] and a push af ld a, [CurPartySpecies] ld [$d265], a call GetPokemonName ld hl, $59c9 pop af jr z, .asm_4d936 ld hl, $59ce .asm_4d936 jp PrintText ; 4d939 Function4d939: ; 4d939 push bc push de push hl ld d, h ld e, l ld hl, Buffer1 ld bc, $8205 call PrintNum ld hl, DefaultFlypoint ld de, $dc9f ld bc, $8205 call PrintNum ld b, $5 ld c, $0 ld hl, EndFlypoint ld de, $d1ee .asm_4d95d ld a, [de] cp [hl] jr nz, .asm_4d967 dec de dec hl inc c dec b jr nz, .asm_4d95d .asm_4d967 pop hl push hl ld de, $fffa add hl, de ld a, [hl] pop hl pop de push af ld a, c ld b, $1 cp $5 jr z, .asm_4d984 ld b, $2 cp $3 jr nc, .asm_4d984 ld b, $3 cp $2 jr nz, .asm_4d99b .asm_4d984 inc b ld a, [ScriptVar] and a jr z, .asm_4d98e cp b jr c, .asm_4d99b .asm_4d98e dec b ld a, b ld [ScriptVar], a pop bc ld a, b ld [CurPartySpecies], a pop bc scf ret .asm_4d99b pop bc pop bc and a ret ; 4d99f INCBIN "baserom.gbc",$4d99f,$4d9d3 - $4d99f Function4d9d3: ; 4d9d3 ld hl, StringBuffer3 ld de, $dc9f ld bc, $8205 call PrintNum ld a, $50 ld [$d09e], a ret ; 4d9e5 Function4d9e5: ; 4d9e5 ld a, [$df9c] and a jp z, Function4db35 ld [CurPartySpecies], a ld [CurSpecies], a call GetBaseData ld hl, PartyCount ld a, [hl] cp $6 jp nc, Function4daa3 inc a ld [hl], a ld c, a ld b, $0 add hl, bc ld a, [$df9c] ld [hli], a ld [CurSpecies], a ld a, $ff ld [hl], a ld hl, PartyMon1Species ld a, [PartyCount] dec a ld bc, $0030 call AddNTimes ld d, h ld e, l ld hl, $df9c ld bc, $0030 call CopyBytes ld a, [PartyCount] dec a ld hl, PartyMon1OT call SkipNames ld d, h ld e, l ld hl, PlayerName call CopyBytes ld a, [CurPartySpecies] ld [$d265], a call GetPokemonName ld hl, StringBuffer1 ld de, $d050 ld bc, $000b call CopyBytes call Function4db3b jr c, .asm_4da66 ld a, [PartyCount] dec a ld [CurPartyMon], a xor a ld [MonType], a ld de, $d050 callab Functione3de .asm_4da66 ld a, [PartyCount] dec a ld hl, PartyMon1Nickname call SkipNames ld d, h ld e, l ld hl, $d050 call CopyBytes ld a, [PartyCount] dec a ld hl, PartyMon1Level call GetPartyLocation ld a, [hl] ld [CurPartyLevel], a call Function4db49 ld a, [PartyCount] dec a ld hl, PartyMon1CaughtLocation call GetPartyLocation ld a, [hl] and $80 ld b, $13 or b ld [hl], a xor a ld [$df9c], a and a ld [ScriptVar], a ret ; 4daa3 Function4daa3: ; 4daa3 ld a, $1 call GetSRAMBank ld hl, BoxCount ld a, [hl] cp $14 call CloseSRAM jr nc, .asm_4db08 xor a ld [CurPartyMon], a ld hl, $df9c ld de, $d018 ld bc, $0020 call CopyBytes ld hl, PlayerName ld de, $d00d ld bc, $000b call CopyBytes callab Function51322 ld a, [CurPartySpecies] ld [$d265], a call GetPokemonName call Function4db3b ld hl, StringBuffer1 jr c, .asm_4daf7 ld a, $2 ld [MonType], a ld de, $d050 callab Functione3de ld hl, $d050 .asm_4daf7 ld a, $1 call GetSRAMBank ld de, BoxMon1Nickname ld bc, $000b call CopyBytes call CloseSRAM .asm_4db08 ld a, $1 call GetSRAMBank ld a, [BoxMon1Level] ld [CurPartyLevel], a call CloseSRAM call Function4db83 ld a, $1 call GetSRAMBank ld hl, BoxMon1CaughtLocation ld a, [hl] and $80 ld b, $13 or b ld [hl], a call CloseSRAM xor a ld [$df9c], a ld a, $1 ld [ScriptVar], a ret ; 4db35 Function4db35: ; 4db35 ld a, $2 ld [ScriptVar], a ret ; 4db3b Function4db3b: ; 4db3b ld hl, $5b44 call PrintText jp YesNoBox ; 4db44 INCBIN "baserom.gbc",$4db44,$4db49 - $4db44 Function4db49: ; 4db49 ld a, [PartyCount] dec a ld hl, PartyMon1CaughtLevel call GetPartyLocation Function4db53: ; 4db53 ld a, [TimeOfDay] inc a rrca rrca ld b, a ld a, [CurPartyLevel] or b ld [hli], a ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a cp $1 jr nz, .asm_4db78 ld a, b cp $14 jr nz, .asm_4db78 ld a, [BackupMapGroup] ld b, a ld a, [BackupMapNumber] ld c, a .asm_4db78 call GetWorldMapLocation ld b, a ld a, [PlayerGender] rrca or b ld [hl], a ret ; 4db83 Function4db83: ; 4db83 ld a, $1 call GetSRAMBank ld hl, BoxMon1CaughtLevel call Function4db53 call CloseSRAM ret ; 4db92 Function4db92: ; 4db92 push bc ld a, $1 call GetSRAMBank ld hl, BoxMon1CaughtLevel pop bc call Function4dbaf call CloseSRAM ret ; 4dba3 Function4dba3: ; 4dba3 ld a, [PartyCount] dec a ld hl, PartyMon1CaughtLevel push bc call GetPartyLocation pop bc Function4dbaf: ; 4dbaf xor a ld [hli], a ld a, $7e rrc b or b ld [hl], a ret ; 4dbb8 ; no known jump sources Function4dbb8: ; 4dbb8 (13:5bb8) ld a, [CurPartyMon] ; $d109 ld hl, PartyMon1CaughtLevel ; $dcfc call GetPartyLocation ld a, [CurPartyLevel] ; $d143 push af ld a, $1 ld [CurPartyLevel], a ; $d143 call Function4db53 pop af ld [CurPartyLevel], a ; $d143 ret Function4dbd2: ; 4dbd2 ld hl, PartyMon1Level call Function4dc31 ret ; 4dbd9 Function4dbd9: ; 4dbd9 ld hl, PartyMon1Happiness call Function4dc0a ret ; 4dbe0 Function4dbe0: ; 4dbe0 ld hl, PartyMon1Species jp Function4dc56 ; 4dbe6 Function4dbe6: ; 4dbe6 ld hl, PartyMon1Species call Function4dc56 ret z ld a, c ld hl, PartyMon1ID ld bc, $0030 call AddNTimes ld a, [PlayerID] cp [hl] jr nz, .asm_4dc08 inc hl ld a, [$d47c] cp [hl] jr nz, .asm_4dc08 ld a, $1 and a ret .asm_4dc08 xor a ret ; 4dc0a Function4dc0a: ; 4dc0a ld c, $0 ld a, [PartyCount] ld d, a .asm_4dc10 ld a, d dec a push hl push bc ld bc, $0030 call AddNTimes pop bc ld a, b cp [hl] pop hl jr z, .asm_4dc22 jr nc, .asm_4dc26 .asm_4dc22 ld a, c or $1 ld c, a .asm_4dc26 sla c dec d jr nz, .asm_4dc10 call Function4dc67 ld a, c and a ret ; 4dc31 Function4dc31: ; 4dc31 ld c, $0 ld a, [PartyCount] ld d, a .asm_4dc37 ld a, d dec a push hl push bc ld bc, $0030 call AddNTimes pop bc ld a, b cp [hl] pop hl jr c, .asm_4dc4b ld a, c or $1 ld c, a .asm_4dc4b sla c dec d jr nz, .asm_4dc37 call Function4dc67 ld a, c and a ret ; 4dc56 Function4dc56: ; 4dc56 ld c, $ff ld hl, PartySpecies .asm_4dc5b ld a, [hli] cp $ff ret z inc c cp b jr nz, .asm_4dc5b ld a, $1 and a ret ; 4dc67 Function4dc67: ; 4dc67 ld e, $fe ld hl, PartySpecies .asm_4dc6c ld a, [hli] cp $ff ret z cp $fd jr nz, .asm_4dc77 ld a, c and e ld c, a .asm_4dc77 rlc e jr .asm_4dc6c ; 4dc7b ; no known jump sources Function4dc7b: ; 4dc7b (13:5c7b) ld a, [InLinkBattle] ; $c2dc cp $4 jr nz, StatsScreenInit ld a, [IsInBattle] ; $d22d (aliases: EnemyMonEnd) and a jr z, StatsScreenInit jr asm_4dc8f StatsScreenInit: ; 4dc8a ld hl, StatsScreenMain jr StatsScreenInit_gotaddress asm_4dc8f: ld hl, $5cf7 jr StatsScreenInit_gotaddress StatsScreenInit_gotaddress ld a, [$ffde] push af xor a ld [$ffde], a ; disable overworld tile animations ld a, [$c2c6] ; whether sprite is to be mirrorred push af ld a, [$cf63] ld b, a ld a, [$cf64] ld c, a push bc push hl call WhiteBGMap call ClearTileMap call Function1ad2 callba Functionfb53e pop hl call _hl_ call WhiteBGMap call ClearTileMap pop bc ; restore old values ld a, b ld [$cf63], a ld a, c ld [$cf64], a pop af ld [$c2c6], a pop af ld [$ffde], a ret ; 0x4dcd2 StatsScreenMain: ; 0x4dcd2 xor a ld [$cf63], a ld [$cf64], a ld a, [$cf64] and $fc or $1 ld [$cf64], a .loop ; 4dce3 ld a, [$cf63] and $7f ld hl, StatsScreenPointerTable rst JumpTable call Function4dd3a ; check for keys? ld a, [$cf63] bit 7, a jr z, .loop ret ; 0x4dcf7 INCBIN "baserom.gbc",$4dcf7,$4dd2a - $4dcf7 StatsScreenPointerTable: ; 4dd2a dw $5d72 ; regular pokémon dw EggStatsInit ; egg dw $5de6 dw $5dac dw $5dc6 dw $5de6 dw $5dd6 dw $5d6c ; 4dd3a ; known jump sources: 4dcec (13:5cec) Function4dd3a: ; 4dd3a (13:5d3a) ld hl, $cf64 bit 6, [hl] jr nz, .asm_4dd49 bit 5, [hl] jr nz, .asm_4dd56 call DelayFrame ret .asm_4dd49 callba Functiond00b4 jr nc, .asm_4dd56 ld hl, $cf64 res 6, [hl] .asm_4dd56 ld hl, $cf64 res 5, [hl] callba Function10402d ret ; known jump sources: 4dd97 (13:5d97), 4dd9d (13:5d9d), 4ddb3 (13:5db3), 4ddc2 (13:5dc2), 4dddd (13:5ddd), 4deda (13:5eda), 4dee0 (13:5ee0), 4dee6 (13:5ee6) Function4dd62: ; 4dd62 (13:5d62) ld a, [$cf63] and $80 or h ld [$cf63], a ret ; no known jump sources Function4dd6c: ; 4dd6c (13:5d6c) ld hl, $cf63 set 7, [hl] ret ; no known jump sources Function4dd72: ; 4dd72 (13:5d72) ld hl, $cf64 res 6, [hl] call WhiteBGMap call ClearTileMap callba Function10402d call Function4ddf2 ld a, [CurPartySpecies] ; $d108 cp $fd jr z, .asm_4dd9b call Function4deea ld hl, $cf64 set 4, [hl] ld h, $4 call Function4dd62 ret .asm_4dd9b ld h, $1 call Function4dd62 ret EggStatsInit: ; 4dda1 call EggStatsScreen ld a, [$cf63] inc a ld [$cf63], a ret ; 0x4ddac ; no known jump sources Function4ddac: ; 4ddac (13:5dac) call Function4de2c jr nc, .asm_4ddb7 ld h, $0 call Function4dd62 ret .asm_4ddb7 bit 0, a jr nz, .asm_4ddc0 and $c3 jp Function4de54 .asm_4ddc0 ld h, $7 call Function4dd62 ret ; no known jump sources Function4ddc6: ; 4ddc6 (13:5dc6) call Function4dfb6 ld hl, $cf64 res 4, [hl] ld a, [$cf63] inc a ld [$cf63], a ret ; no known jump sources Function4ddd6: ; 4ddd6 (13:5dd6) call Function4de2c jr nc, .asm_4dde1 ld h, $0 call Function4dd62 ret .asm_4dde1 and $f3 jp Function4de54 ; no known jump sources Function4dde6: ; 4dde6 (13:5de6) call Function3c74 ret nc ld a, [$cf63] inc a ld [$cf63], a ret ; known jump sources: 4dd83 (13:5d83) Function4ddf2: ; 4ddf2 (13:5df2) ld a, [MonType] ; $cf5f cp $3 jr nz, .asm_4de10 ld a, [$d018] ld [CurSpecies], a ; $cf60 call GetBaseData ld hl, $d018 ld de, TempMonSpecies ; $d10e (aliases: TempMon) ld bc, $30 call CopyBytes jr .asm_4de2a .asm_4de10 callba Function5084a ld a, [CurPartySpecies] ; $d108 cp $fd jr z, .asm_4de2a ld a, [MonType] ; $cf5f cp $2 jr c, .asm_4de2a callba Function50890 .asm_4de2a and a ret ; known jump sources: 4ddac (13:5dac), 4ddd6 (13:5dd6) Function4de2c: ; 4de2c (13:5e2c) call GetJoypad ld a, [MonType] ; $cf5f cp $3 jr nz, .asm_4de4e push hl push de push bc callba Functione2f95 pop bc pop de pop hl ld a, [$cf73] and $c0 jr nz, .asm_4de52 ld a, [$cf73] jr .asm_4de50 .asm_4de4e ld a, [hJoyPressed] ; $ff00+$a7 .asm_4de50 and a ret .asm_4de52 scf ret ; known jump sources: 4ddbd (13:5dbd), 4dde3 (13:5de3) Function4de54: ; 4de54 (13:5e54) push af ld a, [$cf64] and $3 ld c, a pop af bit 1, a jp nz, Function4dee4 bit 5, a jr nz, .asm_4dec7 bit 4, a jr nz, .asm_4debd bit 0, a jr nz, .asm_4deb8 bit 6, a jr nz, .asm_4dea0 bit 7, a jr nz, .asm_4de77 jr .asm_4dece .asm_4de77 ld a, [MonType] ; $cf5f cp $2 jr nc, .asm_4dece and a ld a, [PartyCount] ; $dcd7 jr z, .asm_4de87 ld a, [OTPartyCount] ; $d280 .asm_4de87 ld b, a ld a, [CurPartyMon] ; $d109 inc a cp b jr z, .asm_4dece ld [CurPartyMon], a ; $d109 ld b, a ld a, [MonType] ; $cf5f and a jr nz, .asm_4dede ld a, b inc a ld [$d0d8], a jr .asm_4dede .asm_4dea0 ld a, [CurPartyMon] ; $d109 and a jr z, .asm_4dece dec a ld [CurPartyMon], a ; $d109 ld b, a ld a, [MonType] ; $cf5f and a jr nz, .asm_4dede ld a, b inc a ld [$d0d8], a jr .asm_4dede .asm_4deb8 ld a, c cp $3 jr z, Function4dee4 .asm_4debd inc c ld a, $3 cp c jr nc, .asm_4decf ld c, $1 jr .asm_4decf .asm_4dec7 dec c jr nz, .asm_4decf ld c, $3 jr .asm_4decf .asm_4dece ret .asm_4decf ld a, [$cf64] and $fc or c ld [$cf64], a ld h, $4 call Function4dd62 ret .asm_4dede ld h, $0 call Function4dd62 ret ; known jump sources: 4de5e (13:5e5e), 4debb (13:5ebb) Function4dee4: ; 4dee4 (13:5ee4) ld h, $7 call Function4dd62 ret ; known jump sources: 4dd8d (13:5d8d) Function4deea: ; 4deea (13:5eea) call Function4df45 xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, [CurBaseData] ; $d236 (aliases: BaseDexNo) ld [$d265], a ld [CurSpecies], a ; $cf60 ld hl, $c4a8 ld [hl], $74 inc hl ld [hl], $e8 inc hl ld hl, $c4aa ld bc, $8103 ld de, $d265 call PrintNum ld hl, $c4ae call PrintLevel ld hl, $5f77 call Function4e528 call Function4e505 ld hl, $c4d0 call PlaceString ld hl, $c4b2 call Function4df66 ld hl, $c4f9 ld a, $f3 ld [hli], a ld a, [CurBaseData] ; $d236 (aliases: BaseDexNo) ld [$d265], a call GetPokemonName call PlaceString call Function4df8f call Function4df9b call Function4dfa6 ret ; known jump sources: 4deea (13:5eea) Function4df45: ; 4df45 (13:5f45) ld hl, TempMonCurHP ; $d130 ld a, [hli] ld b, a ld c, [hl] ld hl, TempMonMaxHP ; $d132 ld a, [hli] ld d, a ld e, [hl] callba Functionc699 ld hl, $cda1 call SetHPPal ld b, $3 call GetSGBLayout call DelayFrame ret ; known jump sources: 4df26 (13:5f26) Function4df66: ; 4df66 (13:5f66) push hl callba GetGender pop hl ret c ld a, $ef jr nz, .asm_4df75 ld a, $f5 .asm_4df75 ld [hl], a ret ; 4df77 (13:5f77) INCBIN "baserom.gbc",$4df77,$4df8f - $4df77 ; known jump sources: 4df3b (13:5f3b), 4e348 (13:6348) Function4df8f: ; 4df8f (13:5f8f) ld hl, $c52c ld b, $14 ld a, $62 .asm_4df96 ld [hli], a dec b jr nz, .asm_4df96 ret ; known jump sources: 4df3e (13:5f3e) Function4df9b: ; 4df9b (13:5f9b) ld hl, $c524 ld [hl], $71 ld hl, $c52b ld [hl], $ed ret ; known jump sources: 4df41 (13:5f41) Function4dfa6: ; 4dfa6 (13:5fa6) ld bc, TempMonDVs ; $d123 callba CheckShininess ret nc ld hl, $c4b3 ld [hl], $3f ret ; known jump sources: 4ddc6 (13:5dc6) Function4dfb6: ; 4dfb6 (13:5fb6) ld a, [CurBaseData] ; $d236 (aliases: BaseDexNo) ld [$d265], a ld [CurSpecies], a ; $cf60 xor a ld [hBGMapMode], a ; $ff00+$d4 call Function4dfda call Function4e002 call Function4dfed ld hl, $cf64 bit 4, [hl] jr nz, .asm_4dfd6 call Function32f9 ret .asm_4dfd6 call Function4e226 ret ; known jump sources: 4dfc2 (13:5fc2) Function4dfda: ; 4dfda (13:5fda) ld a, [$cf64] and $3 ld c, a call Function4e4cd ld hl, $c540 ld bc, $a14 call ClearBox ret ; known jump sources: 4dfc8 (13:5fc8) Function4dfed: ; 4dfed (13:5fed) ld a, [$cf64] and $3 ld c, a callba Function8c8a call DelayFrame ld hl, $cf64 set 5, [hl] ret ; known jump sources: 4dfc5 (13:5fc5) Function4e002: ; 4e002 (13:6002) ld a, [$cf64] and $3 dec a ld hl, $600d rst $28 ret ; no known jump sources Jumptable_4e00d: ; 4e00d (13:600d) dw Function4e013 dw Function4e147 dw Function4e1ae ; no known jump sources Function4e013: ; 4e013 (13:6013) ld hl, $c554 ld b, $0 ld a, $26 call Predef ld hl, $c55c ld [hl], $41 ld de, $6119 ld hl, $c590 call PlaceString ld a, [$d12a] ld b, a and $f jr nz, .asm_4e055 ld a, b and $f0 jr z, .asm_4e03d ld hl, $c548 ld [hl], $e8 .asm_4e03d ld a, [MonType] ; $cf5f cp $2 jr z, .asm_4e060 ld hl, $c5aa push hl ld de, TempMonStatus ; $d12e ld a, $45 call Predef pop hl jr nz, .asm_4e066 jr .asm_4e060 .asm_4e055 ld de, $6142 ld hl, $c5a5 call PlaceString jr .asm_4e066 .asm_4e060 ld de, $6127 call PlaceString .asm_4e066 ld hl, $c5cd ld a, $2c call Predef ld hl, $c549 ld de, $14 ld b, $a ld a, $31 .asm_4e078 ld [hl], a add hl, de dec b jr nz, .asm_4e078 ld de, $612b ld hl, $c55e call PlaceString ld hl, $c5c9 call Function4e0d3 ld hl, $c575 ld bc, $307 ld de, TempMonExp ; $d116 call PrintNum call Function4e0e7 ld hl, $c5b1 ld bc, $307 ld de, Buffer1 ; $d1ea (aliases: MagikarpLength) call PrintNum ld de, $6136 ld hl, $c59a call PlaceString ld de, $613f ld hl, $c5c6 call PlaceString ld hl, $c5eb ld a, [TempMonLevel] ; $d12d ld b, a ld de, $d118 ld a, $17 call Predef ld hl, $c5ea ld [hl], $40 ld hl, $c5f3 ld [hl], $41 ret ; known jump sources: 4e089 (13:6089) Function4e0d3: ; 4e0d3 (13:60d3) ld a, [TempMonLevel] ; $d12d push af cp $64 jr z, .asm_4e0df inc a ld [TempMonLevel], a ; $d12d .asm_4e0df call PrintLevel pop af ld [TempMonLevel], a ; $d12d ret ; known jump sources: 4e098 (13:6098) Function4e0e7: ; 4e0e7 (13:60e7) ld a, [TempMonLevel] ; $d12d cp $64 jr z, .asm_4e111 inc a ld d, a callba Function50e47 ld hl, $d118 ld hl, $d118 ld a, [$FF00+$b6] sub [hl] dec hl ld [$d1ec], a ld a, [$FF00+$b5] sbc [hl] dec hl ld [Buffer2], a ; $d1eb (aliases: MovementType) ld a, [hQuotient] ; $ff00+$b4 (aliases: hMultiplicand) sbc [hl] ld [Buffer1], a ; $d1ea (aliases: MagikarpLength) ret .asm_4e111 ld hl, Buffer1 ; $d1ea (aliases: MagikarpLength) xor a ld [hli], a ld [hli], a ld [hl], a ret ; 4e119 (13:6119) INCBIN "baserom.gbc",$4e119,$4e147 - $4e119 ; no known jump sources Function4e147: ; 4e147 (13:6147) ld de, $61a0 ld hl, $c540 call PlaceString call Function4e189 ld hl, $c548 call PlaceString ld de, $61a9 ld hl, $c568 call PlaceString ld hl, TempMonMoves ; $d110 (aliases: TempMonMove1) ld de, $d25e ld bc, $4 call CopyBytes ld hl, $c570 ld a, $28 ld [Buffer1], a ; $d1ea (aliases: MagikarpLength) ld a, $20 call Predef ld hl, $c588 ld a, $28 ld [Buffer1], a ; $d1ea (aliases: MagikarpLength) ld a, $23 call Predef ret ; known jump sources: 4e150 (13:6150) Function4e189: ; 4e189 (13:6189) ld de, $61a5 ld a, [TempMonItem] ; $d10f and a ret z ld b, a callba Function28771 ld a, b ld [$d265], a call GetItemName ret ; 4e1a0 (13:61a0) INCBIN "baserom.gbc",$4e1a0,$4e1ae - $4e1a0 ; no known jump sources Function4e1ae: ; 4e1ae (13:61ae) call Function4e1cc ld hl, $c54a ld de, $14 ld b, $a ld a, $31 .asm_4e1bb ld [hl], a add hl, de dec b jr nz, .asm_4e1bb ld hl, $c54b ld bc, $6 ld a, $28 call Predef ret ; known jump sources: 4e1ae (13:61ae) Function4e1cc: ; 4e1cc (13:61cc) ld de, $621e ld hl, $c554 call PlaceString ld de, $6222 ld hl, $c590 call PlaceString ld hl, $c56a ld bc, $8205 ld de, TempMonID ; $d114 call PrintNum ld hl, $6216 call Function4e528 call Function4e505 callba CheckNickErrors ld hl, $c5a6 call PlaceString ld a, [$d12c] and a jr z, .asm_4e215 cp $7f jr z, .asm_4e215 and $80 ld a, $ef jr z, .asm_4e211 ld a, $f5 .asm_4e211 ld hl, $c5ad ld [hl], a .asm_4e215 ret ; 4e216 (13:6216) INCBIN "baserom.gbc",$4e216,$4e21e - $4e216 IDNoString: ; 4e21e db $73, "№.@" OTString: ; 4e222 db "OT/@" ; 4e226 ; known jump sources: 4dfd6 (13:5fd6) Function4e226: ; 4e226 (13:6226) ld hl, TempMonDVs ; $d123 ld a, $2d call Predef call Function4e2ad jr c, .asm_4e238 and a jr z, .asm_4e23f jr .asm_4e246 .asm_4e238 call Function4e271 call Function32f9 ret .asm_4e23f call Function4e253 call Function32f9 ret .asm_4e246 call Function32f9 call Function4e253 ld a, [CurPartySpecies] ; $d108 call Function37d5 ret ; known jump sources: 4e23f (13:623f), 4e249 (13:6249) Function4e253: ; 4e253 (13:6253) ld hl, $cf64 set 5, [hl] ld a, [CurPartySpecies] ; $d108 cp $c9 jr z, .asm_4e266 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) call Function3786 ret .asm_4e266 xor a ld [$c2c6], a ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) call Function378b ret ; known jump sources: 4e238 (13:6238) Function4e271: ; 4e271 (13:6271) ld a, [CurPartySpecies] ; $d108 cp $c9 jr z, .asm_4e281 ld a, $1 ld [$c2c6], a call Function4e289 ret .asm_4e281 xor a ld [$c2c6], a call Function4e289 ret ; known jump sources: 4e27d (13:627d), 4e285 (13:6285) Function4e289: ; 4e289 (13:6289) ld a, [CurPartySpecies] ; $d108 call IsAPokemon ret c call Function4e307 ld de, $9000 ld a, $3e call Predef ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld d, $0 ld e, $2 ld a, $46 call Predef ld hl, $cf64 set 6, [hl] ret ; known jump sources: 4e22e (13:622e), 4e497 (13:6497) Function4e2ad: ; 4e2ad (13:62ad) ld a, [MonType] ; $cf5f ld hl, $62b5 rst $28 ret ; no known jump sources Jumptable_4e2b5: ; 4e2b5 (13:62b5) dw Function4e2bf dw Function4e2cf dw Function4e2d1 dw Function4e2ed dw Function4e301 ; no known jump sources Function4e2bf: ; 4e2bf (13:62bf) ld a, [CurPartyMon] ; $d109 ld hl, PartyMons ; $dcdf (aliases: PartyMon1, PartyMon1Species) ld bc, $30 call AddNTimes ld b, h ld c, l jr Function4e2f2 ; no known jump sources Function4e2cf: ; 4e2cf (13:62cf) xor a ret ; no known jump sources Function4e2d1: ; 4e2d1 (13:62d1) ld hl, $ad26 ld bc, $30 ld a, [CurPartyMon] ; $d109 call AddNTimes ld b, h ld c, l ld a, $1 call GetSRAMBank call Function4e2f2 push af call CloseSRAM pop af ret ; no known jump sources Function4e2ed: ; 4e2ed (13:62ed) ld bc, TempMonSpecies ; $d10e (aliases: TempMon) jr Function4e2f2 ; known jump sources: 4e2cd (13:62cd), 4e2e4 (13:62e4), 4e2f0 (13:62f0) Function4e2f2: ; 4e2f2 (13:62f2) ld a, [CurPartySpecies] ; $d108 cp $fd jr z, .asm_4e2fe call Function4e53f jr c, asm_4e305 .asm_4e2fe xor a scf ret ; no known jump sources Function4e301: ; 4e301 (13:6301) ld a, $1 and a ret asm_4e305: ; 4e305 (13:6305) xor a ret ; known jump sources: 4e290 (13:6290), 4e4b1 (13:64b1) Function4e307: ; 4e307 (13:6307) nop push hl push de push bc push af call DelayFrame ld a, [rVBK] ; $ff00+$4f push af ld a, $1 ld [rVBK], a ; $ff00+$4f ld de, $5204 ld bc, $3e01 ld hl, $97f0 call Get2bpp pop af ld [rVBK], a ; $ff00+$4f pop af pop bc pop de pop hl ret ; 4e32a (13:632a) INCBIN "baserom.gbc",$4e32a,$4e33a - $4e32a EggStatsScreen: ; 4e33a xor a ld [hBGMapMode], a ld hl, $cda1 call SetHPPal ld b, $3 call GetSGBLayout call Function4df8f ld de, EggString hlcoord 8, 1 ; $c4bc call PlaceString ld de, IDNoString hlcoord 8, 3 ; $c4e4 call PlaceString ld de, OTString hlcoord 8, 5 ; $c50c call PlaceString ld de, FiveQMarkString hlcoord 11, 3 ; $c4e7 call PlaceString ld de, FiveQMarkString hlcoord 11, 5 ; $c50f call PlaceString ld a, [TempMonHappiness] ; egg status ld de, EggSoonString cp $6 jr c, .picked ld de, EggCloseString cp $b jr c, .picked ld de, EggMoreTimeString cp $29 jr c, .picked ld de, EggALotMoreTimeString .picked hlcoord 1, 9 ; $c555 call PlaceString ld hl, $cf64 set 5, [hl] call Function32f9 ; pals call DelayFrame ld hl, TileMap call Function3786 callba Function10402d call Function4e497 ld a, [TempMonHappiness] cp 6 ret nc ld de, SFX_2_BOOPS call PlaySFX ret ; 0x4e3c0 EggString: ; 4e3c0 db "EGG@" FiveQMarkString: ; 4e3c4 db "?????@" EggSoonString: ; 0x4e3ca db "It's making sounds", $4e, "inside. It's going", $4e, "to hatch soon!@" EggCloseString: ; 0x4e3fd db "It moves around", $4e, "inside sometimes.", $4e, "It must be close", $4e, "to hatching.@" EggMoreTimeString: ; 0x4e43d db "Wonder what's", $4e, "inside? It needs", $4e, "more time, though.@" EggALotMoreTimeString: ; 0x4e46e db "This EGG needs a", $4e, "lot more time to", $4e, "hatch.@" ; 0x4e497 ; known jump sources: 4e3b0 (13:63b0) Function4e497: ; 4e497 (13:6497) call Function4e2ad ret nc ld a, [TempMonHappiness] ; $d129 ld e, $7 cp $6 jr c, .asm_4e4ab ld e, $8 cp $b jr c, .asm_4e4ab ret .asm_4e4ab push de ld a, $1 ld [$c2c6], a call Function4e307 ld de, $9000 ld a, $3e call Predef pop de ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld d, $0 ld a, $46 call Predef ld hl, $cf64 set 6, [hl] ret ; known jump sources: 4dfe0 (13:5fe0) Function4e4cd: ; 4e4cd (13:64cd) ld hl, $c511 ld a, $36 call Function4e4f7 ld hl, $c513 ld a, $36 call Function4e4f7 ld hl, $c515 ld a, $36 call Function4e4f7 ld a, c cp $2 ld a, $3a ld hl, $c511 jr c, Function4e4f7 ld hl, $c513 jr z, Function4e4f7 ld hl, $c515 ; known jump sources: 4e4d2 (13:64d2), 4e4da (13:64da), 4e4e2 (13:64e2), 4e4ed (13:64ed), 4e4f2 (13:64f2) Function4e4f7: ; 4e4f7 (13:64f7) push bc ld [hli], a inc a ld [hld], a ld bc, $14 add hl, bc inc a ld [hli], a inc a ld [hl], a pop bc ret ; known jump sources: 4df1a (13:5f1a), 4e1f0 (13:61f0) Function4e505: ; 4e505 (13:6505) ld de, StringBuffer1 ; $d073 ld bc, $b jr .asm_4e50d .asm_4e50d ld a, [MonType] ; $cf5f cp $2 jr nz, .asm_4e522 ld a, $1 call GetSRAMBank push de call CopyBytes pop de call CloseSRAM ret .asm_4e522 push de call CopyBytes pop de ret ; known jump sources: 4df17 (13:5f17), 4e1ed (13:61ed) Function4e528: ; 4e528 (13:6528) ld a, [MonType] ; $cf5f add a ld c, a ld b, $0 add hl, bc ld a, [hli] ld h, [hl] ld l, a ld a, [MonType] ; $cf5f cp $3 ret z ld a, [CurPartyMon] ; $d109 jp SkipNames Function4e53f: ; 4e53f ld hl, $0022 add hl, bc ld a, [hli] or [hl] jr z, .asm_4e552 ld hl, $0020 add hl, bc ld a, [hl] and $27 jr nz, .asm_4e552 and a ret .asm_4e552 scf ret ; 4e554 Function4e554: ; 4e554 ld a, [BattleType] dec a ld c, a ld hl, $6564 ld b, $0 add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 4e564 ; no known jump sources Jumptable_4e564: ; 4e564 (13:6564) dw Function4e56a dw Function4e56a dw Function4e56a ; no known jump sources Function4e56a: ; 4e56a (13:656a) ld hl, PlayerName ; $d47d ld de, MomsName ; $d488 ld bc, $b call CopyBytes ld hl, $65da ld de, PlayerName ; $d47d ld bc, $b call CopyBytes call Function4e5b7 xor a ld [hJoyDown], a ; $ff00+$a8 ld [hJoyPressed], a ; $ff00+$a7 ld a, [Options] ; $cfcc push af and $f8 add $3 ld [Options], a ; $cfcc ld hl, $65df ld a, $13 call StartAutoInput callab StartBattle call StopAutoInput pop af ld [Options], a ; $cfcc ld hl, MomsName ; $d488 ld de, PlayerName ; $d47d ld bc, $b call CopyBytes ret ; known jump sources: 4e582 (13:6582) Function4e5b7: ; 4e5b7 (13:65b7) ld hl, OTPartyMon1Species ; $d288 (aliases: OTPartyMon1) ld [hl], $1 inc hl ld [hl], $12 inc hl ld [hl], $1 inc hl ld [hl], $ff ld hl, $d292 ld [hl], $0 inc hl ld [hl], $ff ld hl, $d2a6 ld a, $1 ld [hli], a ld a, $5 ld [hli], a ld [hli], a ld [hl], $ff ret ; 4e5da (13:65da) INCBIN "baserom.gbc",$4e5da,$4e5e1 - $4e5da EvolutionAnimation: ; 4e5e1 push hl push de push bc ld a, [CurSpecies] push af ld a, [rOBP0] push af ld a, [BaseDexNo] push af call _EvolutionAnimation pop af ld [BaseDexNo], a pop af ld [rOBP0], a pop af ld [CurSpecies], a pop bc pop de pop hl ld a, [$d1ed] and a ret z scf ret ; 4e607 _EvolutionAnimation: ; 4e607 ld a, $e4 ld [rOBP0], a ld de, MUSIC_NONE call PlayMusic callba Function8cf53 ld de, EvolutionGFX ld hl, VTiles0 ld bc, BANK(EvolutionGFX) << 8 + 8 call Request2bpp xor a ld [Danger], a call WaitBGMap xor a ld [hBGMapMode], a ld a, [Buffer1] ld [PlayerHPPal], a ld c, $0 call Function4e703 ld a, [Buffer1] ld [CurPartySpecies], a ld [CurSpecies], a call Function4e708 ld de, VTiles2 ld hl, $9310 ld bc, $0031 call Request2bpp ld a, $31 ld [$d1ec], a call Function4e755 ld a, [Buffer2] ld [CurPartySpecies], a ld [CurSpecies], a call Function4e711 ld a, [Buffer1] ld [CurPartySpecies], a ld [CurSpecies], a ld a, $1 ld [hBGMapMode], a call Function4e794 jr c, .asm_4e67c ld a, [Buffer1] call Function37ce .asm_4e67c ld de, MUSIC_EVOLUTION call PlayMusic ld c, 80 call DelayFrames ld c, $1 call Function4e703 call Function4e726 jr c, .asm_4e6df ld a, $cf ld [$d1ec], a call Function4e755 xor a ld [$d1ed], a ld a, [Buffer2] ld [PlayerHPPal], a ld c, $0 call Function4e703 call Function4e7a6 callba Function8cf53 call Function4e794 jr c, .asm_4e6de ld a, [$c2c6] push af ld a, $1 ld [$c2c6], a ld a, [CurPartySpecies] push af ld a, [PlayerHPPal] ld [CurPartySpecies], a ld hl, $c4cf ld d, $0 ld e, $4 ld a, $47 call Predef pop af ld [CurPartySpecies], a pop af ld [$c2c6], a ret .asm_4e6de ret .asm_4e6df ld a, $1 ld [$d1ed], a ld a, [Buffer1] ld [PlayerHPPal], a ld c, $0 call Function4e703 call Function4e7a6 callba Function8cf53 call Function4e794 ret c ld a, [PlayerHPPal] call Function37ce ret ; 4e703 Function4e703: ; 4e703 ld b, $b jp GetSGBLayout ; 4e708 Function4e708: ; 4e708 call GetBaseData ld hl, $c4cf jp Function3786 ; 4e711 Function4e711: ; 4e711 call GetBaseData ld a, $1 ld [$c2c6], a ld de, VTiles2 ld a, $3e call Predef xor a ld [$c2c6], a ret ; 4e726 Function4e726: ; 4e726 call ClearJoypad ld bc, $010e .asm_4e72c push bc call Function4e779 pop bc jr c, .asm_4e73f push bc call Function4e741 pop bc inc b dec c dec c jr nz, .asm_4e72c and a ret .asm_4e73f scf ret ; 4e741 Function4e741: ; 4e741 .asm_4e741 ld a, $cf ld [$d1ec], a call Function4e755 ld a, $31 ld [$d1ec], a call Function4e755 dec b jr nz, .asm_4e741 ret ; 4e755 Function4e755: ; 4e755 push bc xor a ld [hBGMapMode], a ld hl, $c4cf ld bc, $0707 ld de, $000d .asm_4e762 push bc .asm_4e763 ld a, [$d1ec] add [hl] ld [hli], a dec c jr nz, .asm_4e763 pop bc add hl, de dec b jr nz, .asm_4e762 ld a, $1 ld [hBGMapMode], a call WaitBGMap pop bc ret ; 4e779 Function4e779: ; 4e779 .asm_4e779 call DelayFrame push bc call Functiona57 ld a, [hJoyDown] pop bc and $2 jr nz, .asm_4e78c .asm_4e787 dec c jr nz, .asm_4e779 and a ret .asm_4e78c ld a, [$d1e9] and a jr nz, .asm_4e787 scf ret ; 4e794 Function4e794: ; 4e794 ld a, [CurPartyMon] ld hl, PartyMon1Species call GetPartyLocation ld b, h ld c, l callba Function4e53f ret ; 4e7a6 Function4e7a6: ; 4e7a6 ld a, [$d1ed] and a ret nz ld de, SFX_EVOLVED call PlaySFX ld hl, $cf63 ld a, [hl] push af ld [hl], $0 .asm_4e7b8 call Function4e7cf jr nc, .asm_4e7c2 call Function4e80c jr .asm_4e7b8 .asm_4e7c2 ld c, $20 .asm_4e7c4 call Function4e80c dec c jr nz, .asm_4e7c4 pop af ld [$cf63], a ret ; 4e7cf Function4e7cf: ; 4e7cf ld hl, $cf63 ld a, [hl] cp $20 ret nc ld d, a inc [hl] and $1 jr nz, .asm_4e7e6 ld e, $0 call Function4e7e8 ld e, $10 call Function4e7e8 .asm_4e7e6 scf ret ; 4e7e8 Function4e7e8: ; 4e7e8 push de ld de, $4858 ld a, $13 call Function3b2a ld hl, $000b add hl, bc ld a, [$cf63] and $e sla a pop de add e ld [hl], a ld hl, $0003 add hl, bc ld [hl], $0 ld hl, $000c add hl, bc ld [hl], $10 ret ; 4e80c Function4e80c: ; 4e80c push bc callab Function8cf69 ld a, [$ff9b] and $e srl a inc a inc a and $7 ld b, a ld hl, $c403 ld c, $28 .asm_4e823 ld a, [hl] or b ld [hli], a inc hl inc hl inc hl dec c jr nz, .asm_4e823 pop bc call DelayFrame ret ; 4e831 EvolutionGFX: INCBIN "gfx/evo/bubble_large.2bpp" INCBIN "gfx/evo/bubble.2bpp" Function4e881: ; 4e881 call WhiteBGMap call ClearTileMap call ClearSprites call DisableLCD call Functione51 call Functione58 ld hl, VBGMap0 ld bc, VBlank5 ld a, $7f call ByteFill ld hl, AttrMap ld bc, $0168 xor a call ByteFill xor a ld [hSCY], a ld [hSCX], a call EnableLCD ld hl, $68bd call PrintText call Function3200 call Function32f9 ret ; 4e8bd INCBIN "baserom.gbc",$4e8bd,$4e8c2 - $4e8bd Function4e8c2: ; 4e8c2 call WhiteBGMap call ClearTileMap call ClearSprites call DisableLCD call Functione51 call Functione58 ld hl, VBGMap0 ld bc, VBlank5 ld a, $7f call ByteFill ld hl, AttrMap ld bc, $0168 xor a call ByteFill ld hl, $d000 ld c, $40 .asm_4e8ee ld a, $ff ld [hli], a ld a, $7f ld [hli], a dec c jr nz, .asm_4e8ee xor a ld [hSCY], a ld [hSCX], a call EnableLCD call Function3200 call Function32f9 ret ; 4e906 Function4e906: ; 4e906 ld a, [rSVBK] push af ld a, $6 ld [rSVBK], a ld hl, $d000 ld bc, VBlank5 ld a, $7f call ByteFill ld hl, VBGMap0 ld de, $d000 ld b, $0 ld c, $40 call Request2bpp pop af ld [rSVBK], a ret ; 4e929 Function4e929: ; 4e929 ld h, b ld l, c call Function4e930 ld c, a ret ; 4e930 Function4e930: ; 4e930 ld a, [hli] xor [hl] ld c, a jr z, .asm_4e941 srl c srl c .asm_4e939 srl c ld a, c cp $18 jr nc, .asm_4e939 inc c .asm_4e941 ld a, [de] cp $1 ld hl, $695d jr nz, .asm_4e958 ld hl, $6976 ld a, c and a jr z, .asm_4e958 .asm_4e950 srl c ld a, c cp $9 jr nc, .asm_4e950 inc c .asm_4e958 ld b, $0 add hl, bc ld a, [hl] ret ; 4e95d INCBIN "baserom.gbc",$4e95d,$4e980 - $4e95d Function4e980: ; 4e980 ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a call Function4e998 ld a, $43 ld [hLCDStatCustom], a call Function4e9ab xor a ld [hLCDStatCustom], a pop af ld [rSVBK], a ret ; 4e998 Function4e998: ; 4e998 call Function4e9e5 ld a, $90 ld [hSCX], a ld a, $e4 call DmgToCgbBGPals ld de, $e4e4 call DmgToCgbObjPals ret ; 4e9ab Function4e9ab: ; 4e9ab ld d, $90 ld e, $72 ld a, $48 inc a .asm_4e9b2 push af .asm_4e9b3 ld a, [rLY] cp $60 jr c, .asm_4e9b3 ld a, d ld [hSCX], a call Function4e9f1 inc e inc e dec d dec d pop af push af cp $1 jr z, .asm_4e9ce push de call Function4e9d6 pop de .asm_4e9ce call DelayFrame pop af dec a jr nz, .asm_4e9b2 ret ; 4e9d6 Function4e9d6: ; 4e9d6 ld hl, $c401 ld c, $12 ld de, $0004 .asm_4e9de dec [hl] dec [hl] add hl, de dec c jr nz, .asm_4e9de ret ; 4e9e5 Function4e9e5: ; 4e9e5 ld hl, LYOverrides ld a, $90 ld bc, $0090 call ByteFill ret ; 4e9f1 Function4e9f1: ; 4e9f1 ld hl, LYOverrides ld a, d ld c, $3e .asm_4e9f7 ld [hli], a dec c jr nz, .asm_4e9f7 ld a, e ld c, $22 .asm_4e9fe ld [hli], a dec c jr nz, .asm_4e9fe xor a ld c, $30 .asm_4ea05 ld [hli], a dec c jr nz, .asm_4ea05 ret ; 4ea0a Function4ea0a: ; 4ea0a ld a, c push af call SpeechTextBox call MobileTextBorder pop af dec a ld bc, $000c ld hl, $dc1a call AddNTimes ld de, $cd53 ld bc, $000c ld a, $5 call FarCopyWRAM ld a, [rSVBK] push af ld a, $1 ld [rSVBK], a ld bc, $cd53 ld de, $c5b9 callba Function11c0c6 pop af ld [rSVBK], a ld c, $b4 call DelayFrames ret ; 4ea44 CheckBattleScene: ; 4ea44 ; Return carry if battle scene is turned off. ld a, 0 ld hl, InLinkBattle call GetFarWRAMByte cp 4 jr z, .mobile ld a, [Options] bit BATTLE_SCENE, a jr nz, .off and a ret .mobile ld a, [$cd2f] and a jr nz, .asm_4ea72 ld a, $4 call GetSRAMBank ld a, [$a60c] ld c, a call CloseSRAM ld a, c bit 0, c jr z, .off and a ret .asm_4ea72 ld a, $5 ld hl, $dc00 call GetFarWRAMByte bit 0, a jr z, .off and a ret .off scf ret ; 4ea82 INCLUDE "misc/gbc_only.asm" INCLUDE "event/poke_seer.asm" SECTION "bank14", ROMX, BANK[$14] Function50000: ; 50000 call Function2ed3 xor a ld [PartyMenuActionText], a call WhiteBGMap call Function5003f call WaitBGMap call Function32f9 call DelayFrame call PartyMenuSelect call Function2b74 ret ; 5001d Function5001d: ; 5001d ld a, b ld [PartyMenuActionText], a call Function2ed3 call WhiteBGMap call Function5003f call WaitBGMap ld b, $a call GetSGBLayout call Function32f9 call DelayFrame call PartyMenuSelect call Function2b74 ret ; 5003f Function5003f: ; 5003f call Function5004f call Function50405 call Function503e0 call WritePartyMenuTilemap call PrintPartyMenuText ret ; 5004f Function5004f: ; 5004f call Functione58 callab Function8ad1 callab Function8e814 ret ; 5005f WritePartyMenuTilemap: ; 0x5005f ld hl, Options ld a, [hl] push af set 4, [hl] ; Disable text delay xor a ld [hBGMapMode], a ld hl, TileMap ld bc, $0168 ld a, " " call ByteFill ; blank the tilemap call Function50396 ; This reads from a pointer table??? .asm_50077 ld a, [hli] cp $ff jr z, .asm_50084 ; 0x5007a $8 push hl ld hl, Table50089 rst JumpTable pop hl jr .asm_50077 ; 0x50082 $f3 .asm_50084 pop af ld [Options], a ret ; 0x50089 Table50089: ; 50089 dw Function5009b dw Function500cf dw Function50138 dw Function50176 dw Function501b2 dw Function501e0 dw Function5022f dw Function502b1 dw Function50307 ; 5009b Function5009b: ; 5009b ld hl, $c4b7 ld a, [PartyCount] and a jr z, .asm_500bf ld c, a ld b, $0 .asm_500a7 push bc push hl push hl ld hl, PartyMon1Nickname ld a, b call GetNick pop hl call PlaceString pop hl ld de, $0028 add hl, de pop bc inc b dec c jr nz, .asm_500a7 .asm_500bf dec hl dec hl ld de, $40c8 call PlaceString ret ; 500c8 INCBIN "baserom.gbc",$500c8,$500cf - $500c8 Function500cf: ; 500cf xor a ld [$cda9], a ld a, [PartyCount] and a ret z ld c, a ld b, $0 ld hl, $c4d3 .asm_500de push bc push hl call Function50389 jr z, .asm_50103 push hl call Function50117 pop hl ld d, $6 ld b, $0 call DrawHPBar ld hl, $cd9b ld a, [$cda9] ld c, a ld b, $0 add hl, bc call SetHPPal ld b, $fc call GetSGBLayout .asm_50103 ld hl, $cda9 inc [hl] pop hl ld de, $0028 add hl, de pop bc inc b dec c jr nz, .asm_500de ld b, $a call GetSGBLayout ret ; 50117 Function50117: ; 50117 ld a, b ld bc, $0030 ld hl, PartyMon1CurHP call AddNTimes ld a, [hli] or [hl] jr nz, .asm_50129 xor a ld e, a ld c, a ret .asm_50129 dec hl ld a, [hli] ld b, a ld a, [hli] ld c, a ld a, [hli] ld d, a ld a, [hli] ld e, a ld a, $4 call Predef ret ; 50138 Function50138: ; 50138 ld a, [PartyCount] and a ret z ld c, a ld b, $0 ld hl, $c4c1 .asm_50143 push bc push hl call Function50389 jr z, .asm_5016b push hl ld a, b ld bc, $0030 ld hl, PartyMon1CurHP call AddNTimes ld e, l ld d, h pop hl push de ld bc, $0203 call PrintNum pop de ld a, $f3 ld [hli], a inc de inc de ld bc, $0203 call PrintNum .asm_5016b pop hl ld de, $0028 add hl, de pop bc inc b dec c jr nz, .asm_50143 ret ; 50176 Function50176: ; 50176 ld a, [PartyCount] and a ret z ld c, a ld b, $0 ld hl, $c4d0 .asm_50181 push bc push hl call Function50389 jr z, .asm_501a7 push hl ld a, b ld bc, $0030 ld hl, PartyMon1Level call AddNTimes ld e, l ld d, h pop hl ld a, [de] cp $64 jr nc, .asm_501a1 ld a, $6e ld [hli], a ld bc, $4102 .asm_501a1 ld bc, $4103 call PrintNum .asm_501a7 pop hl ld de, $0028 add hl, de pop bc inc b dec c jr nz, .asm_50181 ret ; 501b2 Function501b2: ; 501b2 ld a, [PartyCount] and a ret z ld c, a ld b, $0 ld hl, $c4cd .asm_501bd push bc push hl call Function50389 jr z, .asm_501d5 push hl ld a, b ld bc, $0030 ld hl, PartyMon1Status call AddNTimes ld e, l ld d, h pop hl call Function50d0a .asm_501d5 pop hl ld de, $0028 add hl, de pop bc inc b dec c jr nz, .asm_501bd ret ; 501e0 Function501e0: ; 501e0 ld a, [PartyCount] and a ret z ld c, a ld b, $0 ld hl, $c4d4 .asm_501eb push bc push hl call Function50389 jr z, .asm_5020a push hl ld hl, PartySpecies ld e, b ld d, $0 add hl, de ld a, [hl] ld [CurPartySpecies], a ld a, $e call Predef pop hl call Function50215 call PlaceString .asm_5020a pop hl ld de, $0028 add hl, de pop bc inc b dec c jr nz, .asm_501eb ret ; 50215 Function50215: ; 50215 ld a, c and a jr nz, .asm_5021d ld de, $4226 ret .asm_5021d ld de, $4221 ret ; 50221 INCBIN "baserom.gbc",$50221,$5022f - $50221 Function5022f: ; 5022f ld a, [PartyCount] and a ret z ld c, a ld b, $0 ld hl, $c4d4 .asm_5023a push bc push hl call Function50389 jr z, .asm_5025d push hl ld a, b ld bc, $0030 ld hl, PartyMon1Species call AddNTimes ld a, [hl] dec a ld e, a ld d, $0 ld hl, $65b1 add hl, de add hl, de call Function50268 pop hl call PlaceString .asm_5025d pop hl ld de, $0028 add hl, de pop bc inc b dec c jr nz, .asm_5023a ret ; 50268 Function50268: ; 50268 ld de, StringBuffer1 ld a, $10 ld bc, $0002 call FarCopyBytes ld hl, StringBuffer1 ld a, [hli] ld h, [hl] ld l, a ld de, StringBuffer1 ld a, $10 ld bc, $000a call FarCopyBytes ld hl, StringBuffer1 .asm_50287 ld a, [hli] and a jr z, .asm_5029f inc hl inc hl cp $2 jr nz, .asm_50287 dec hl dec hl ld a, [CurItem] cp [hl] inc hl inc hl jr nz, .asm_50287 ld de, $42a3 ret .asm_5029f ld de, $42a8 ret ; 502a3 INCBIN "baserom.gbc",$502a3,$502b1 - $502a3 Function502b1: ; 502b1 ld a, [PartyCount] and a ret z ld c, a ld b, $0 ld hl, $c4d4 .asm_502bc push bc push hl call Function50389 jr z, .asm_502e3 ld [CurPartySpecies], a push hl ld a, b ld [CurPartyMon], a xor a ld [MonType], a call GetGender ld de, $42fe jr c, .asm_502df ld de, $42ee jr nz, .asm_502df ld de, $42f5 .asm_502df pop hl call PlaceString .asm_502e3 pop hl ld de, $0028 add hl, de pop bc inc b dec c jr nz, .asm_502bc ret ; 502ee INCBIN "baserom.gbc",$502ee,$50307 - $502ee Function50307: ; 50307 ld a, [PartyCount] and a ret z ld c, a ld b, $0 ld hl, $c4c0 .asm_50312 push bc push hl ld de, $4372 call PlaceString pop hl ld de, $0028 add hl, de pop bc inc b dec c jr nz, .asm_50312 ld a, l ld e, $b sub e ld l, a ld a, h sbc $0 ld h, a ld de, $4379 call PlaceString ld b, $3 ld c, $0 ld hl, DefaultFlypoint ld a, [hl] .asm_5033b push hl push bc ld hl, $c4c0 .asm_50340 and a jr z, .asm_5034a ld de, $0028 add hl, de dec a jr .asm_50340 .asm_5034a ld de, $436b push hl call PlaceString pop hl pop bc push bc push hl ld a, c ld hl, $4383 call GetNthString ld d, h ld e, l pop hl call PlaceString pop bc pop hl inc hl ld a, [hl] inc c dec b ret z jr .asm_5033b ; 5036b INCBIN "baserom.gbc",$5036b,$50389 - $5036b Function50389: ; 50389 ld a, PartySpecies & $ff add b ld e, a ld a, PartySpecies >> 8 adc 0 ld d, a ld a, [de] cp EGG ret ; 50396 Function50396: ; 50396 ld a, [PartyMenuActionText] and $f0 jr nz, .asm_503ae ld a, [PartyMenuActionText] and $f ld e, a ld d, 0 ld hl, $43b2 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ret .asm_503ae ld hl, $43c6 ret ; 503b2 INCBIN "baserom.gbc",$503b2,$503e0 - $503b2 Function503e0: ; 503e0 ld hl, PartyCount ld a, [hli] and a ret z ld c, a xor a ld [hConnectedMapWidth], a .asm_503ea push bc push hl ld hl, Function8e83f ld a, BANK(Function8e83f) ld e, $0 rst FarCall ld a, [hConnectedMapWidth] inc a ld [hConnectedMapWidth], a pop hl pop bc dec c jr nz, .asm_503ea callab Function8cf69 ret ; 50405 Function50405: ; 50405 xor a ld [$d0e3], a ld de, $444f call Function1bb1 ld a, [PartyCount] inc a ld [$cfa3], a dec a ld b, a ld a, [$d0d8] and a jr z, .asm_50422 inc b cp b jr c, .asm_50424 .asm_50422 ld a, $1 .asm_50424 ld [$cfa9], a ld a, $3 ld [$cfa8], a ret ; 5042d Function5042d: ; 0x5042d ld de, $444f call Function1bb1 ld a, [PartyCount] ; $dcd7 ld [$cfa3], a ld b, a ld a, [$d0d8] and a jr z, .asm_50444 inc b cp b jr c, .asm_50446 .asm_50444 ld a, $1 .asm_50446 ld [$cfa9], a ld a, $3 ld [$cfa8], a ret ; 5044f (14:444f) INCBIN "baserom.gbc",$5044f,$50457 - $5044f PartyMenuSelect: ; 0x50457 ; sets carry if exitted menu. call Function1bc9 call Function1bee ld a, [PartyCount] inc a ld b, a ld a, [$cfa9] ; menu selection? cp b jr z, .exitmenu ; CANCEL ld [$d0d8], a ld a, [$ffa9] ld b, a bit 1, b jr nz, .exitmenu ; B button? ld a, [$cfa9] dec a ld [CurPartyMon], a ld c, a ld b, $0 ld hl, PartySpecies add hl, bc ld a, [hl] ld [CurPartySpecies], a ld de, SFX_READ_TEXT_2 call PlaySFX call WaitSFX and a ret .exitmenu ld de, SFX_READ_TEXT_2 call PlaySFX call WaitSFX scf ret ; 0x5049a PrintPartyMenuText: ; 5049a ld hl, $c5b8 ld bc, $0212 call TextBox ld a, [PartyCount] and a jr nz, .haspokemon ld de, YouHaveNoPKMNString jr .gotstring .haspokemon ; 504ae ld a, [PartyMenuActionText] and $f ; drop high nibble ld hl, PartyMenuStrings ld e, a ld d, $0 add hl, de add hl, de ld a, [hli] ld d, [hl] ld e, a .gotstring ; 504be ld a, [Options] push af set 4, a ; disable text delay ld [Options], a ld hl, $c5e1 ; Coord call PlaceString pop af ld [Options], a ret ; 0x504d2 PartyMenuStrings: ; 0x504d2 dw ChooseAMonString dw UseOnWhichPKMNString dw WhichPKMNString dw TeachWhichPKMNString dw MoveToWhereString dw UseOnWhichPKMNString dw ChooseAMonString ; Probably used to be ChooseAFemalePKMNString dw ChooseAMonString ; Probably used to be ChooseAMalePKMNString dw ToWhichPKMNString ChooseAMonString: ; 0x504e4 db "Choose a #MON.@" UseOnWhichPKMNString: ; 0x504f3 db "Use on which ", $e1, $e2, "?@" WhichPKMNString: ; 0x50504 db "Which ", $e1, $e2, "?@" TeachWhichPKMNString: ; 0x5050e db "Teach which ", $e1, $e2, "?@" MoveToWhereString: ; 0x5051e db "Move to where?@" ChooseAFemalePKMNString: ; 0x5052d ; UNUSED db "Choose a ♀", $e1, $e2, ".@" ChooseAMalePKMNString: ; 0x5053b ; UNUSED db "Choose a ♂", $e1, $e2, ".@" ToWhichPKMNString: ; 0x50549 db "To which ", $e1, $e2, "?@" YouHaveNoPKMNString: ; 0x50556 db "You have no ", $e1, $e2, "!@" Function50566: ; 50566 ld a, [CurPartyMon] ld hl, PartyMon1Nickname call GetNick ld a, [PartyMenuActionText] and $f ld hl, $457b call Function505c1 ret ; 5057b INCBIN "baserom.gbc",$5057b,$505c1 - $5057b Function505c1: ; 505c1 ld e, a ld d, $0 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ld a, [Options] push af set 4, a ld [Options], a call PrintText pop af ld [Options], a ret ; 505da Function505da: ; 505da ld a, [PartyCount] and a jr z, .asm_5062c xor a ld c, 7 ld hl, EngineBuffer1 .asm_505e6 ld [hli], a dec c jr nz, .asm_505e6 xor a ld [CurPartyMon], a .asm_505ee call Function5062e jr nc, .asm_50605 ld a, [CurPartyMon] ld e, a ld d, 0 ld hl, $d03f add hl, de ld [hl], c ld a, [EngineBuffer1] or c ld [EngineBuffer1], a .asm_50605 ld a, [PartyCount] ld hl, CurPartyMon inc [hl] cp [hl] jr nz, .asm_505ee ld a, [EngineBuffer1] and $2 jr nz, .asm_50622 ld a, [EngineBuffer1] and $1 jr z, .asm_5062c call Function50658 xor a ret .asm_50622 ld a, $14 ld hl, UnknownScript_0x50669 call CallScript scf ret .asm_5062c xor a ret ; 5062e Function5062e: ; 5062e ld a, $20 call GetPartyParamLocation ld a, [hl] and $8 ret z ld a, $22 call GetPartyParamLocation ld a, [hli] ld b, a ld c, [hl] or c ret z dec bc ld [hl], c dec hl ld [hl], b ld a, b or c jr nz, .asm_50654 ld a, $20 call GetPartyParamLocation ld [hl], $0 ld c, $2 scf ret .asm_50654 ld c, $1 scf ret ; 50658 Function50658: ; 50658 ld de, SFX_POISON call PlaySFX ld b, $2 ld a, $2e call Predef call DelayFrame ret ; 50669 UnknownScript_0x50669: ; 50669 3callasm Function50658 loadfont 3callasm Function5067b iffalse UnknownScript_0x50677 loadmovesprites end ; 50677 UnknownScript_0x50677: ; 50677 3jump UnknownScript_0x124c8 ; 5067b Function5067b: ; 5067b xor a ld [CurPartyMon], a ld de, $d03f .asm_50682 push de ld a, [de] and 2 jr z, .asm_5069c ld c, 7 callba ChangeHappiness callba GetPartyNick ld hl, PoisonFaintText call PrintText .asm_5069c pop de inc de ld hl, CurPartyMon inc [hl] ld a, [PartyCount] cp [hl] jr nz, .asm_50682 ld a, $14 call Predef ld a, d ld [ScriptVar], a ret ; 506b2 PoisonFaintText: ; 506b2 text_jump UnknownText_0x1c0acc db "@" ; 506b7 PoisonWhiteOutText: ; 506b7 text_jump UnknownText_0x1c0ada db "@" ; 506bc Function506bc: ; 506bc ld hl, UnknownScript_0x506c8 call Function31cd ld a, $1 ld [$d0ec], a ret ; 506c8 UnknownScript_0x506c8: ; 0x506c8 reloadmappart special $0035 3callasm GetPartyNick 2writetext UnknownText_0x50726 closetext 3callasm Function506ef iffalse UnknownScript_0x506e9 checkflag $0011 iftrue UnknownScript_0x506e5 battlecheck startbattle returnafterbattle end ; 0x506e5 UnknownScript_0x506e5: ; 0x506e5 3jump UnknownScript_0x135eb ; 0x506e9 UnknownScript_0x506e9: ; 0x506e9 2writetext UnknownText_0x5072b closetext loadmovesprites end ; 0x506ef Function506ef: ; 506ef callba Function97cfd jr nc, .asm_5071e ld hl, StatusFlags2 bit 2, [hl] jr nz, .asm_50712 callba Function2a111 ld a, b and a jr z, .asm_5071e callba Function2a14f jr nz, .asm_5071e jr .asm_50718 .asm_50712 callba Function97d31 .asm_50718 ld a, $1 ld [ScriptVar], a ret .asm_5071e xor a ld [ScriptVar], a ld [BattleType], a ret ; 50726 UnknownText_0x50726: ; 0x50726 text_jump UnknownText_0x1c0b03 db $50 ; 0x5072b UnknownText_0x5072b: ; 0x5072b text_jump UnknownText_0x1c0b1a db $50 ; 0x50730 _Squirtbottle: ; 50730 ld hl, UnknownScript_0x5073c call Function31cd ld a, $1 ld [$d0ec], a ret ; 5073c UnknownScript_0x5073c: ; 0x5073c reloadmappart special $0035 3callasm Function50753 iffalse UnknownScript_0x5074b 3jump WateredWeirdTreeScript ; 0x5074b UnknownScript_0x5074b: ; 0x5074b jumptext UnknownText_0x5074e ; 0x5074e UnknownText_0x5074e: ; 0x5074e text_jump UnknownText_0x1c0b3b db $50 ; 0x50753 Function50753: ; 50753 ld a, [MapGroup] cp GROUP_ROUTE_36 jr nz, .asm_50774 ld a, [MapNumber] cp MAP_ROUTE_36 jr nz, .asm_50774 callba Functioncf0d jr c, .asm_50774 ld a, d cp 23 jr nz, .asm_50774 ld a, $1 ld [ScriptVar], a ret .asm_50774 xor a ld [ScriptVar], a ret ; 50779 _CardKey: ; 50779 ld a, [MapGroup] cp GROUP_RADIO_TOWER_3F jr nz, .asm_507a9 ld a, [MapNumber] cp MAP_RADIO_TOWER_3F jr nz, .asm_507a9 ld a, [PlayerDirection] and $c cp UP << 2 jr nz, .asm_507a9 call GetFacingTileCoord ld a, d cp 18 jr nz, .asm_507a9 ld a, e cp 6 jr nz, .asm_507a9 ld hl, UnknownScript_0x507af call Function31cd ld a, $1 ld [$d0ec], a ret .asm_507a9 ld a, $0 ld [$d0ec], a ret ; 507af UnknownScript_0x507af: ; 0x507af loadmovesprites 3jump MapRadioTower3FSignpost2Script ; 0x507b4 _BasementKey: ; 507b4 ld a, [MapGroup] cp GROUP_WAREHOUSE_ENTRANCE jr nz, .asm_507db ld a, [MapNumber] cp MAP_WAREHOUSE_ENTRANCE jr nz, .asm_507db call GetFacingTileCoord ld a, d cp 22 jr nz, .asm_507db ld a, e cp 10 jr nz, .asm_507db ld hl, UnknownScript_0x507e1 call Function31cd ld a, $1 ld [$d0ec], a ret .asm_507db ld a, $0 ld [$d0ec], a ret ; 507e1 UnknownScript_0x507e1: ; 0x507e1 loadmovesprites 3jump MapWarehouseEntranceSignpost0Script ; 0x507e6 _SacredAsh: ; 507e6 ld a, $0 ld [$d0ec], a call CheckAnyFaintedMon ret nc ld hl, UnknownScript_0x50821 call Function31cd ld a, $1 ld [$d0ec], a ret ; 507fb CheckAnyFaintedMon: ; 507fb ld de, PartyMon2 - PartyMon1 ld bc, PartySpecies ld hl, PartyMon1CurHP ld a, [PartyCount] and a ret z .loop push af push hl ld a, [bc] inc bc cp EGG jr z, .next ld a, [hli] or [hl] jr z, .asm_5081d .next pop hl add hl, de pop af dec a jr nz, .loop xor a ret .asm_5081d pop hl pop af scf ret ; 50821 UnknownScript_0x50821: ; 0x50821 special $001b reloadmappart playsound SFX_WARP_TO special $002e special $0031 special $002e special $0031 special $002e special $0031 waitbutton 2writetext UnknownText_0x50845 playsound SFX_CAUGHT_MON waitbutton closetext loadmovesprites end ; 0x50845 UnknownText_0x50845: ; 0x50845 text_jump UnknownText_0x1c0b65 db $50 ; 0x5084a Function5084a: ; 5084a ld a, [CurPartyMon] ld e, a call Function508d5 ld a, [CurPartySpecies] ld [CurSpecies], a call GetBaseData ld a, [MonType] ld hl, PartyMon1Species ld bc, PartyMon2 - PartyMon1 and a jr z, .asm_5087b ld hl, OTPartyMon1Species ld bc, OTPartyMon2 - OTPartyMon1 cp $1 jr z, .asm_5087b ld bc, $0020 callab Functione5bb jr .asm_5088a .asm_5087b ld a, [CurPartyMon] call AddNTimes ld de, TempMonSpecies ld bc, $0030 call CopyBytes .asm_5088a ret ; 5088b Function5088b: ; 5088b ld bc, $d018 jr Function50893 ; 50890 Function50890: ; 50890 ld bc, TempMon ; fallthrough ; 50893 Function50893: ; 50893 ld hl, TempMonLevel - TempMon add hl, bc ld a, [hl] ld [CurPartyLevel], a ld hl, TempMonMaxHP - TempMon add hl, bc ld d, h ld e, l ld hl, TempMonExp + 2 - TempMon add hl, bc push bc ld b, $1 ld a, $c call Predef pop bc ld hl, TempMonCurHP - TempMon add hl, bc ld d, h ld e, l ld a, [CurPartySpecies] cp EGG jr nz, .asm_508c1 xor a ld [de], a inc de ld [de], a jr .asm_508cd .asm_508c1 push bc ld hl, TempMonMaxHP - TempMon add hl, bc ld bc, 2 call CopyBytes pop bc .asm_508cd ld hl, TempMonStatus - TempMon add hl, bc xor a ld [hli], a ld [hl], a ret ; 508d5 Function508d5: ; 508d5 ld a, [MonType] and a ; PARTYMON jr z, .asm_508e7 cp OTPARTYMON jr z, .asm_508ec cp BOXMON jr z, .asm_508f1 cp $3 jr z, .asm_50900 ; WILDMON .asm_508e7 ld hl, PartySpecies jr .asm_50905 .asm_508ec ld hl, OTPartySpecies jr .asm_50905 .asm_508f1 ld a, 1 ; BANK(BoxSpecies) call GetSRAMBank ld hl, BoxSpecies call .asm_50905 call CloseSRAM ret .asm_50900 ld a, [BreedMon1Species] jr .asm_50909 .asm_50905 ld d, 0 add hl, de ld a, [hl] .asm_50909 ld [CurPartySpecies], a ret ; 5090d INCLUDE "text/types.asm" Function50a28: ; 50a28 ld hl, Strings50a42 ld a, [TrainerClass] dec a ld c, a ld b, 0 add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a ld de, StringBuffer1 .copy ld a, [hli] ld [de], a inc de cp "@" jr nz, .copy ret ; 50a42 Strings50a42: ; 50a42 ; Untranslated trainer class names from Red. dw .Youngster dw .BugCatcher dw .Lass dw OTName dw .JrTrainerM dw .JrTrainerF dw .Pokemaniac dw .SuperNerd dw OTName dw OTName dw .Burglar dw .Engineer dw .Jack dw OTName dw .Swimmer dw OTName dw OTName dw .Beauty dw OTName dw .Rocker dw .Juggler dw OTName dw OTName dw .Blackbelt dw OTName dw .ProfOak dw .Chief dw .Scientist dw OTName dw .Rocket dw .CooltrainerM dw .CooltrainerF dw OTName dw OTName dw OTName dw OTName dw OTName dw OTName dw OTName dw OTName dw OTName dw OTName dw OTName dw OTName dw OTName dw OTName dw OTName .Youngster db "たんパン@" .BugCatcher db "むしとり@" .Lass db "ミニスカ@" .JrTrainerM db "ボーイ@" .JrTrainerF db "ガール@" .Pokemaniac db "マニア@" .SuperNerd db "りかけい@" .Burglar db "どろぼう@" .Engineer db "ォヤジ@" .Jack db "ジャック@" .Swimmer db "かいパン@" .Beauty db "おねえさん@" .Rocker db "グループ@" .Juggler db "ジャグラー@" .Blackbelt db "からて@" .ProfOak db "ォーキド@" .Chief db "チーフ@" .Scientist db "けんきゅういん@" .Rocket db "だんいん@" .CooltrainerM db "エりート♂@" .CooltrainerF db "エりート♀@" ; 50b0a DrawPlayerHP: ; 50b0a ld a, $1 jr DrawHP DrawEnemyHP: ; 50b0e ld a, $2 DrawHP: ; 50b10 ld [$d10a], a push hl push bc ld a, [MonType] cp BOXMON jr z, .asm_50b30 ld a, [TempMonCurHP] ld b, a ld a, [TempMonCurHP + 1] ld c, a ; Any HP? or b jr nz, .asm_50b30 xor a ld c, a ld e, a ld a, 6 ld d, a jp .asm_50b4a .asm_50b30 ld a, [TempMonMaxHP] ld d, a ld a, [TempMonMaxHP + 1] ld e, a ld a, [MonType] cp BOXMON jr nz, .asm_50b41 ld b, d ld c, e .asm_50b41 ld a, $4 call Predef ld a, 6 ld d, a ld c, a .asm_50b4a ld a, c pop bc ld c, a pop hl push de push hl push hl call DrawHPBar pop hl ; Print HP ld bc, $0015 ; move (1,1) add hl, bc ld de, TempMonCurHP ld a, [MonType] cp BOXMON jr nz, .asm_50b66 ld de, TempMonMaxHP .asm_50b66 ld bc, $0203 call PrintNum ld a, "/" ld [hli], a ; Print max HP ld de, TempMonMaxHP ld bc, $0203 call PrintNum pop hl pop de ret ; 50b7b Function50b7b: ; 50b7b push bc push hl ld de, $4bb5 call PlaceString pop hl pop bc add hl, bc ld bc, $0014 add hl, bc ld de, TempMonAtk ld bc, $0203 call Function50bab ld de, TempMonDef call Function50bab ld de, TempMonSpclAtk call Function50bab ld de, TempMonSpclDef call Function50bab ld de, TempMonSpd jp PrintNum ; 50bab Function50bab: ; 50bab push hl call PrintNum pop hl ld de, $0028 add hl, de ret ; 50bb5 INCBIN "baserom.gbc",$50bb5,$50bdd - $50bb5 GetGender: ; 50bdd ; Return the gender of a given monster in a. ; 1: male ; 0: female ; c: genderless ; This is determined by comparing the Attack and Speed DVs ; with the species' gender ratio. ; Figure out what type of monster struct we're looking at. ; 0: PartyMon ld hl, PartyMon1DVs ld bc, PartyMon2 - PartyMon1 ld a, [MonType] and a jr z, .PartyMon ; 1: OTPartyMon ld hl, OTPartyMon1DVs dec a jr z, .PartyMon ; 2: BoxMon ld hl, BoxMon1DVs ld bc, BoxMon2 - BoxMon1 dec a jr z, .BoxMon ; 3: Unknown ld hl, TempMonDVs dec a jr z, .DVs ; else: WildMon ld hl, EnemyMonDVs jr .DVs ; Get our place in the party/box. .PartyMon .BoxMon ld a, [CurPartyMon] call AddNTimes .DVs ; BoxMon data is read directly from SRAM. ld a, [MonType] cp BOXMON ld a, 1 call z, GetSRAMBank ; Attack DV ld a, [hli] and $f0 ld b, a ; Speed DV ld a, [hl] and $f0 swap a ; Put our DVs together. or b ld b, a ; Close SRAM if we were dealing with a BoxMon. ld a, [MonType] cp BOXMON call z, CloseSRAM ; We need the gender ratio to do anything with this. push bc ld a, [CurPartySpecies] dec a ld hl, BaseData + BaseGender - CurBaseData ld bc, BaseData1 - BaseData call AddNTimes pop bc ld a, BANK(BaseData) call GetFarByte ; The higher the ratio, the more likely the monster is to be female. cp $ff jr z, .Genderless and a jr z, .Male cp $fe jr z, .Female ; Values below the ratio are male, and vice versa. cp b jr c, .Male .Female xor a ret .Male ld a, 1 and a ret .Genderless scf ret ; 50c50 Function50c50: ; 50c50 ld a, [$d0eb] inc a ld c, a ld a, $4 sub c ld b, a push hl ld a, [Buffer1] ld e, a ld d, $0 ld a, $3e call Function50cc9 ld a, b and a jr z, .asm_50c6f ld c, a ld a, $e3 call Function50cc9 .asm_50c6f pop hl inc hl inc hl inc hl ld d, h ld e, l ld hl, TempMonMove1 ld b, $0 .asm_50c7a ld a, [hli] and a jr z, .asm_50cc8 push bc push hl push de ld hl, $cfa9 ld a, [hl] push af ld [hl], b push hl callab Functionf8ec pop hl pop af ld [hl], a pop de pop hl push hl ld bc, $0014 add hl, bc ld a, [hl] and $3f ld [$d077], a ld h, d ld l, e push hl ld de, $d077 ld bc, $0102 call PrintNum ld a, $f3 ld [hli], a ld de, $d265 ld bc, $0102 call PrintNum pop hl ld a, [Buffer1] ld e, a ld d, $0 add hl, de ld d, h ld e, l pop hl pop bc inc b ld a, b cp $4 jr nz, .asm_50c7a .asm_50cc8 ret ; 50cc9 Function50cc9: ; 50cc9 .asm_50cc9 ld [hli], a ld [hld], a add hl, de dec c jr nz, .asm_50cc9 ret ; 50cd0 INCBIN "baserom.gbc",$50cd0,$50cdb - $50cd0 Function50cdb: ; 50cdb push hl push hl ld hl, PartyMon1Nickname ld a, [CurPartyMon] call GetNick pop hl call PlaceString call Function5084a pop hl ld a, [CurPartySpecies] cp $fd jr z, .asm_50d09 push hl ld bc, $fff4 add hl, bc ld b, $0 call DrawEnemyHP pop hl ld bc, $0005 add hl, bc push de call PrintLevel pop de .asm_50d09 ret ; 50d0a Function50d0a: ; 50d0a push de inc de inc de ld a, [de] ld b, a inc de ld a, [de] or b pop de jr nz, Function50d2e push de ld de, .string_50d21 call Function50d25 pop de ld a, $1 and a ret .string_50d21 db "カセト@" ; 50d25 Function50d25: ; 50d25 ld a, [de] inc de ld [hli], a ld a, [de] inc de ld [hli], a ld a, [de] ld [hl], a ret ; 50d2e Function50d2e: ; 50d2e push de ld a, [de] ld de, $4d5f bit 3, a jr nz, .asm_50d53 ld de, $4d63 bit 4, a jr nz, .asm_50d53 ld de, $4d67 bit 5, a jr nz, .asm_50d53 ld de, $4d6b bit 6, a jr nz, .asm_50d53 ld de, $4d5b and $7 jr z, .asm_50d59 .asm_50d53 call Function50d25 ld a, $1 and a .asm_50d59 pop de ret ; 50d5b INCBIN "baserom.gbc",$50d5b,$50d6f - $50d5b Function50d6f: ; 50d6f ld de, $d25e ld b, $0 .asm_50d74 ld a, [de] inc de and a jr z, .asm_50da7 push de push hl push hl ld [CurSpecies], a ld a, $2 ld [$cf61], a call GetName ld de, StringBuffer1 pop hl push bc call PlaceString pop bc ld a, b ld [$d0eb], a inc b pop hl push bc ld a, [Buffer1] ld c, a ld b, $0 add hl, bc pop bc pop de ld a, b cp $4 jr z, .asm_50db8 jr .asm_50d74 .asm_50da7 ld a, b .asm_50da8 push af ld [hl], $e3 ld a, [Buffer1] ld c, a ld b, $0 add hl, bc pop af inc a cp $4 jr nz, .asm_50da8 .asm_50db8 ret ; 50db9 Function50db9: ; 50db9 ld a, [$d263] cp $1 jr nz, .asm_50dca ld hl, OTPartyCount ld de, OTPartyMon1OT ld a, $6 jr .asm_50dfc .asm_50dca cp $4 jr nz, .asm_50dd8 ld hl, PartyCount ld de, PartyMon1OT ld a, $5 jr .asm_50dfc .asm_50dd8 cp $5 jr nz, .asm_50de6 ld hl, CurMart ld de, PokemonNames ld a, $1 jr .asm_50dfc .asm_50de6 cp $2 jr nz, .asm_50df4 ld hl, NumItems ld de, Function50000 ld a, $4 jr .asm_50dfc .asm_50df4 ld hl, CurMart ld de, Function50000 ld a, $4 .asm_50dfc ld [$cf61], a ld a, l ld [LYOverrides], a ld a, h ld [$d101], a ld a, e ld [$d102], a ld a, d ld [$d103], a ld bc, $67c1 ld a, c ld [$d104], a ld a, b ld [$d105], a ret ; 50e1b Function50e1b: ; 50e1b ld a, [TempMonSpecies] ld [CurSpecies], a call GetBaseData ld d, $1 .asm_50e26 inc d ld a, d cp $65 jr z, .asm_50e45 call Function50e47 push hl ld hl, $d118 ld a, [$ffb6] ld c, a ld a, [hld] sub c ld a, [$ffb5] ld c, a ld a, [hld] sbc c ld a, [hMultiplicand] ld c, a ld a, [hl] sbc c pop hl jr nc, .asm_50e26 .asm_50e45 dec d ret ; 50e47 Function50e47: ; 50e47 ld a, [BaseGrowthRate] add a add a ld c, a ld b, $0 ld hl, $4efa add hl, bc call Function50eed ld a, d ld [hMultiplier], a call Multiply ld a, [hl] and $f0 swap a ld [hMultiplier], a call Multiply ld a, [hli] and $f ld [hMultiplier], a ld b, $4 call Divide ld a, [hMultiplicand] push af ld a, [$ffb5] push af ld a, [$ffb6] push af call Function50eed ld a, [hl] and $7f ld [hMultiplier], a call Multiply ld a, [hMultiplicand] push af ld a, [$ffb5] push af ld a, [$ffb6] push af ld a, [hli] push af xor a ld [hMultiplicand], a ld [$ffb5], a ld a, d ld [$ffb6], a ld a, [hli] ld [hMultiplier], a call Multiply ld b, [hl] ld a, [$ffb6] sub b ld [$ffb6], a ld b, $0 ld a, [$ffb5] sbc b ld [$ffb5], a ld a, [hMultiplicand] sbc b ld [hMultiplicand], a pop af and $80 jr nz, .asm_50ec8 pop bc ld a, [$ffb6] add b ld [$ffb6], a pop bc ld a, [$ffb5] adc b ld [$ffb5], a pop bc ld a, [hMultiplicand] adc b ld [hMultiplicand], a jr .asm_50eda .asm_50ec8 pop bc ld a, [$ffb6] sub b ld [$ffb6], a pop bc ld a, [$ffb5] sbc b ld [$ffb5], a pop bc ld a, [hMultiplicand] sbc b ld [hMultiplicand], a .asm_50eda pop bc ld a, [$ffb6] add b ld [$ffb6], a pop bc ld a, [$ffb5] adc b ld [$ffb5], a pop bc ld a, [hMultiplicand] adc b ld [hMultiplicand], a ret ; 50eed Function50eed: ; 50eed xor a ld [hMultiplicand], a ld [$ffb5], a ld a, d ld [$ffb6], a ld [hMultiplier], a jp Multiply ; 50efa INCBIN "baserom.gbc",$50efa,$50f12 - $50efa Function50f12: ld a, [$d0e3] dec a ld [$d1ec], a ld b, a ld a, [$cfa9] dec a ld [Buffer2], a ; $d1eb (aliases: MovementType) cp b jr z, .asm_50f33 call Function50f62 ld a, [$d1ec] call Function50f34 ld a, [Buffer2] ; $d1eb (aliases: MovementType) call Function50f34 .asm_50f33 ret ; known jump sources: 50f2a (14:4f2a), 50f30 (14:4f30) Function50f34: ; 50f34 (14:4f34) push af ld hl, $c4b4 ld bc, $28 call AddNTimes ld bc, $28 ld a, $7f call ByteFill pop af ld hl, Sprites ; $c400 ld bc, $10 call AddNTimes ld de, $4 ld c, $4 .asm_50f55 ld [hl], $a0 add hl, de dec c jr nz, .asm_50f55 ld de, $20 call WaitPlaySFX ret ; known jump sources: 50f24 (14:4f24) Function50f62: ; 50f62 (14:4f62) push hl push de push bc ld bc, PartySpecies ; $dcd8 ld a, [Buffer2] ; $d1eb (aliases: MovementType) ld l, a ld h, $0 add hl, bc ld d, h ld e, l ld a, [$d1ec] ld l, a ld h, $0 add hl, bc ld a, [hl] push af ld a, [de] ld [hl], a pop af ld [de], a ld a, [Buffer2] ; $d1eb (aliases: MovementType) ld hl, PartyMons ; $dcdf (aliases: PartyMon1, PartyMon1Species) ld bc, $30 call AddNTimes push hl ld de, DefaultFlypoint ; $d002 ld bc, $30 call CopyBytes ld a, [$d1ec] ld hl, PartyMons ; $dcdf (aliases: PartyMon1, PartyMon1Species) ld bc, $30 call AddNTimes pop de push hl ld bc, $30 call CopyBytes pop de ld hl, DefaultFlypoint ; $d002 ld bc, $30 call CopyBytes ld a, [Buffer2] ; $d1eb (aliases: MovementType) ld hl, PartyMonOT ; $ddff (aliases: PartyMon1OT) call SkipNames push hl call Function51036 ld a, [$d1ec] ld hl, PartyMonOT ; $ddff (aliases: PartyMon1OT) call SkipNames pop de push hl call Function51039 pop de ld hl, DefaultFlypoint ; $d002 call Function51039 ld hl, PartyMonNicknames ; $de41 (aliases: PartyMon1Nickname) ld a, [Buffer2] ; $d1eb (aliases: MovementType) call SkipNames push hl call Function51036 ld hl, PartyMonNicknames ; $de41 (aliases: PartyMon1Nickname) ld a, [$d1ec] call SkipNames pop de push hl call Function51039 pop de ld hl, DefaultFlypoint ; $d002 call Function51039 ld hl, $a600 ld a, [Buffer2] ; $d1eb (aliases: MovementType) ld bc, $2f call AddNTimes push hl ld de, DefaultFlypoint ; $d002 ld bc, $2f ld a, $0 call GetSRAMBank call CopyBytes ld hl, $a600 ld a, [$d1ec] ld bc, $2f call AddNTimes pop de push hl ld bc, $2f call CopyBytes pop de ld hl, DefaultFlypoint ; $d002 ld bc, $2f call CopyBytes call CloseSRAM pop bc pop de pop hl ret ; known jump sources: 50fbc (14:4fbc), 50fde (14:4fde) Function51036: ; 51036 (14:5036) ld de, DefaultFlypoint ; $d002 ; known jump sources: 50fca (14:4fca), 50fd1 (14:4fd1), 50fec (14:4fec), 50ff3 (14:4ff3) Function51039: ; 51039 (14:5039) ld bc, $b call CopyBytes ret GetUnownLetter: ; 51040 ; Return Unown letter in UnownLetter based on DVs at hl ; Take the middle 2 bits of each DV and place them in order: ; AtkDefDV | SpdSpcDV ; .ww..xx. .yy..zz. ; atk ld a, [hl] and %01100000 sla a ld b, a ; def ld a, [hli] and %00000110 swap a srl a or b ld b, a ; spd ld a, [hl] and %01100000 swap a sla a or b ld b, a ; spc ld a, [hl] and %00000110 srl a or b ; Divide by 10 to get 0-25 ld [hDividend + 3], a xor a ld [hDividend], a ld [hDividend + 1], a ld [hDividend + 2], a ld a, 10 ld [hDivisor], a ld b, $4 call Divide ; Increment to get 1-26 ld a, [hQuotient + 2] inc a ld [UnownLetter], a ret ; 51077 Function51077: ; 51077 ld a, [CurPartySpecies] ld [CurSpecies], a call IsAPokemon ret c ld a, [rSVBK] push af call Function510a5 pop af ld [rSVBK], a ret ; 5108b Function5108b: ; 5108b ld a, [CurPartySpecies] ld [CurSpecies], a call IsAPokemon ret c ld a, [rSVBK] push af xor a ld [hBGMapMode], a call Function510a5 call Function51103 pop af ld [rSVBK], a ret ; 510a5 Function510a5: ; 510a5 push de call GetBaseData ld a, [BasePicSize] and $f ld b, a push bc call Function510d7 ld a, $6 ld [rSVBK], a ld a, b ld de, $d800 call FarDecompress pop bc ld hl, Unkn1Pals ld de, $d800 call Function512ab pop hl push hl ld de, Unkn1Pals ld c, $31 ld a, [hROMBank] ld b, a call Get2bpp pop hl ret ; 510d7 Function510d7: ; 510d7 ld a, [CurPartySpecies] cp $c9 jr z, .asm_510e5 ld a, [CurPartySpecies] ld d, $48 jr .asm_510ea .asm_510e5 ld a, [UnownLetter] ld d, $49 .asm_510ea ld hl, Function50000 dec a ld bc, $0006 call AddNTimes ld a, d call GetFarByte call Function511c5 push af inc hl ld a, d call GetFarHalfword pop bc ret ; 51103 Function51103: ; 51103 ld a, $1 ld [rVBK], a push hl ld de, Unkn1Pals ld c, $31 ld a, [hROMBank] ld b, a call Get2bpp pop hl ld de, $0310 add hl, de push hl ld a, $1 ld hl, BasePicSize call GetFarWRAMByte pop hl and $f ld de, $d990 ld c, $19 cp $5 jr z, .asm_5113b ld de, $da40 ld c, $24 cp $6 jr z, .asm_5113b ld de, $db10 ld c, $31 .asm_5113b push hl push bc call Function5114f pop bc pop hl ld de, Unkn1Pals ld a, [hROMBank] ld b, a call Get2bpp xor a ld [rVBK], a ret ; 5114f Function5114f: ; 5114f ld hl, Unkn1Pals swap c ld a, c and $f ld b, a ld a, c and $f0 ld c, a push bc call Function512f2 pop bc .asm_51161 push bc ld c, $0 call Function512f2 pop bc dec b jr nz, .asm_51161 ret ; 5116c Function5116c: ; 5116c ld a, [CurPartySpecies] call IsAPokemon ret c ld a, [CurPartySpecies] ld b, a ld a, [UnownLetter] ld c, a ld a, [rSVBK] push af ld a, $6 ld [rSVBK], a push de ld hl, Function50000 ld a, b ld d, $48 cp $c9 jr nz, .asm_51190 ld a, c ld d, $49 .asm_51190 dec a ld bc, $0006 call AddNTimes ld bc, $0003 add hl, bc ld a, d call GetFarByte call Function511c5 push af inc hl ld a, d call GetFarHalfword ld de, Unkn1Pals pop af call FarDecompress ld hl, Unkn1Pals ld c, $24 call Function5127c pop hl ld de, Unkn1Pals ld a, [hROMBank] ld b, a call Get2bpp pop af ld [rSVBK], a ret ; 511c5 Function511c5: ; 511c5 push hl push bc sub $12 ld c, a ld b, 0 ld hl, $51d4 add hl, bc ld a, [hl] pop bc pop hl ret ; 511d4 INCBIN "baserom.gbc",$511d4,$5120d - $511d4 Function5120d: ; 5120d ld a, [TrainerClass] and a ret z cp $44 ret nc call WaitBGMap xor a ld [hBGMapMode], a ld hl, Function50000 ld a, [TrainerClass] dec a ld bc, $0003 call AddNTimes ld a, [rSVBK] push af ld a, $6 ld [rSVBK], a push de ld a, $4a call GetFarByte call Function511c5 push af inc hl ld a, $4a call GetFarHalfword pop af ld de, $d000 call FarDecompress pop hl ld de, $d000 ld c, $31 ld a, [hROMBank] ld b, a call Get2bpp pop af ld [rSVBK], a call WaitBGMap ld a, $1 ld [hBGMapMode], a ret ; 5125d DecompressPredef: ; 5125d ; Decompress lz data from b:hl to scratch space at 6:d000, then copy it to address de. ld a, [rSVBK] push af ld a, 6 ld [rSVBK], a push de push bc ld a, b ld de, $d000 call FarDecompress pop bc ld de, $d000 pop hl ld a, [hROMBank] ld b, a call Get2bpp pop af ld [rSVBK], a ret ; 5127c Function5127c: ; 5127c push de push bc ld a, [$c2c6] and a jr z, .asm_512a8 ld a, c cp $31 ld de, $0310 jr z, .asm_51296 cp $24 ld de, $0240 jr z, .asm_51296 ld de, $0190 .asm_51296 ld a, [hl] ld b, $0 ld c, $8 .asm_5129b rra rl b dec c jr nz, .asm_5129b ld a, b ld [hli], a dec de ld a, e or d jr nz, .asm_51296 .asm_512a8 pop bc pop de ret ; 512ab Function512ab: ; 512ab ld a, b cp $6 jr z, .asm_512bd cp $5 jr z, .asm_512d2 .asm_512b4 ld c, $70 call Function512f2 dec b jr nz, .asm_512b4 ret .asm_512bd ld c, $70 xor a call Function512ed .asm_512c3 ld c, $10 xor a call Function512ed ld c, $60 call Function512f2 dec b jr nz, .asm_512c3 ret .asm_512d2 ld c, $70 xor a call Function512ed .asm_512d8 ld c, $20 xor a call Function512ed ld c, $50 call Function512f2 dec b jr nz, .asm_512d8 ld c, $70 xor a call Function512ed ret ; 512ed Function512ed: ; 512ed .asm_512ed ld [hli], a dec c jr nz, .asm_512ed ret ; 512f2 Function512f2: ; 512f2 ld a, [$c2c6] and a jr nz, .asm_512ff .asm_512f8 ld a, [de] inc de ld [hli], a dec c jr nz, .asm_512f8 ret .asm_512ff push bc .asm_51300 ld a, [de] inc de ld b, a xor a rr b rla rr b rla rr b rla rr b rla rr b rla rr b rla rr b rla rr b rla ld [hli], a dec c jr nz, .asm_51300 pop bc ret ; 51322 Function51322: ; 51322 ld a, $1 call GetSRAMBank ld hl, BoxCount call Function513cb ld a, [BoxCount] dec a ld [$d265], a ld hl, BoxMon1Nickname ld bc, $000b ld de, DefaultFlypoint call Function513e0 ld a, [BoxCount] dec a ld [$d265], a ld hl, BoxMon1OT ld bc, $000b ld de, $d00d call Function513e0 ld a, [BoxCount] dec a ld [$d265], a ld hl, BoxMon1Species ld bc, $0020 ld de, $d018 call Function513e0 ld hl, $d01a ld de, TempMonMove1 ld bc, $0004 call CopyBytes ld hl, $d02f ld de, TempMonPP ld bc, $0004 call CopyBytes ld a, [CurPartyMon] ld b, a callba Functiondcb6 jp CloseSRAM ; 5138b INCBIN "baserom.gbc",$5138b,$513cb - $5138b Function513cb: ; 513cb inc [hl] inc hl ld a, [CurPartyMon] ld c, a ld b, $0 add hl, bc ld a, [CurPartySpecies] ld c, a .asm_513d8 ld a, [hl] ld [hl], c inc hl inc c ld c, a jr nz, .asm_513d8 ret ; 513e0 Function513e0: ; 513e0 push de push hl push bc ld a, [$d265] dec a call AddNTimes push hl add hl, bc ld d, h ld e, l pop hl .asm_513ef push bc ld a, [$d265] ld b, a ld a, [CurPartyMon] cp b pop bc jr z, .asm_51415 push hl push de push bc call CopyBytes pop bc pop de pop hl push hl ld a, l sub c ld l, a ld a, h sbc b ld h, a pop de ld a, [$d265] dec a ld [$d265], a jr .asm_513ef .asm_51415 pop bc pop hl ld a, [CurPartyMon] call AddNTimes ld d, h ld e, l pop hl call CopyBytes ret ; 51424 BaseData: INCLUDE "stats/base_stats.asm" PokemonNames: INCLUDE "stats/pokemon_names.asm" INCBIN "baserom.gbc",$53d84,$53e2e - $53d84 SECTION "bank19", ROMX, BANK[$19] INCLUDE "text/phone/extra.asm" SECTION "bank20", ROMX, BANK[$20] DoPlayerMovement: ; 80000 call GetMovementInput ld a, $3e ; standing ld [MovementAnimation], a xor a ld [$d041], a call GetPlayerMovement ld c, a ld a, [MovementAnimation] ld [$c2de], a ret ; 80017 GetMovementInput: ; 80017 ld a, [hJoyDown] ld [CurInput], a ; Standing downhill instead moves down. ld hl, BikeFlags bit 2, [hl] ; downhill ret z ld c, a and $f0 ret nz ld a, c or D_DOWN ld [CurInput], a ret ; 8002d GetPlayerMovement: ; 8002d ld a, [PlayerState] cp PLAYER_NORMAL jr z, .Normal cp PLAYER_SURF jr z, .Surf cp PLAYER_SURF_PIKA jr z, .Surf cp PLAYER_BIKE jr z, .Normal cp PLAYER_SLIP jr z, .Board .Normal call CheckForcedMovementInput call GetMovementAction call CheckTileMovement ret c call CheckTurning ret c call TryStep ret c call TryJumpLedge ret c call CheckEdgeWarp ret c jr .NotMoving .Surf call CheckForcedMovementInput call GetMovementAction call CheckTileMovement ret c call CheckTurning ret c call TrySurfStep ret c jr .NotMoving .Board call CheckForcedMovementInput call GetMovementAction call CheckTileMovement ret c call CheckTurning ret c call TryStep ret c call TryJumpLedge ret c call CheckEdgeWarp ret c ld a, [WalkingDirection] cp STANDING jr z, .HitWall call PlayBump .HitWall call StandInPlace xor a ret .NotMoving ld a, [WalkingDirection] cp STANDING jr z, .Standing ; Walking into an edge warp won't bump. ld a, [$d041] and a jr nz, .CantMove call PlayBump .CantMove call WalkInPlace xor a ret .Standing call StandInPlace xor a ret ; 800b7 CheckTileMovement: ; 800b7 ; Tiles such as waterfalls and warps move the player ; in a given direction, overriding input. ld a, [StandingTile] ld c, a call CheckWhirlpoolTile jr c, .asm_800c4 ld a, 3 scf ret .asm_800c4 and $f0 cp $30 ; moving water jr z, .water cp $40 ; moving land 1 jr z, .land1 cp $50 ; moving land 2 jr z, .land2 cp $70 ; warps jr z, .warps jr .asm_8013c .water ld a, c and 3 ld c, a ld b, 0 ld hl, .water_table add hl, bc ld a, [hl] ld [WalkingDirection], a jr .asm_8013e .water_table db RIGHT db LEFT db UP db DOWN .land1 ld a, c and 7 ld c, a ld b, 0 ld hl, .land1_table add hl, bc ld a, [hl] cp STANDING jr z, .asm_8013c ld [WalkingDirection], a jr .asm_8013e .land1_table db STANDING db RIGHT db LEFT db UP db DOWN db STANDING db STANDING db STANDING .land2 ld a, c and 7 ld c, a ld b, 0 ld hl, .land2_table add hl, bc ld a, [hl] cp STANDING jr z, .asm_8013c ld [WalkingDirection], a jr .asm_8013e .land2_table db RIGHT db LEFT db UP db DOWN db STANDING db STANDING db STANDING db STANDING .warps ld a, c cp $71 ; door jr z, .down cp $79 jr z, .down cp $7a ; stairs jr z, .down cp $7b ; cave jr nz, .asm_8013c .down ld a, DOWN ld [WalkingDirection], a jr .asm_8013e .asm_8013c xor a ret .asm_8013e ld a, STEP_WALK call DoStep ld a, 5 scf ret ; 80147 CheckTurning: ; 80147 ; If the player is turning, change direction first. This also lets ; the player change facing without moving by tapping a direction. ld a, [$d04e] cp 0 jr nz, .asm_80169 ld a, [WalkingDirection] cp STANDING jr z, .asm_80169 ld e, a ld a, [PlayerDirection] rrca rrca and 3 cp e jr z, .asm_80169 ld a, STEP_TURN call DoStep ld a, 2 scf ret .asm_80169 xor a ret ; 8016b TryStep: ; 8016b ; Surfing actually calls TrySurfStep directly instead of passing through here. ld a, [PlayerState] cp PLAYER_SURF jr z, TrySurfStep cp PLAYER_SURF_PIKA jr z, TrySurfStep call CheckLandPermissions jr c, .asm_801be call Function80341 and a jr z, .asm_801be cp 2 jr z, .asm_801be ld a, [StandingTile] call CheckIceTile jr nc, .ice ; Downhill riding is slower when not moving down. call CheckRiding jr nz, .asm_801ae ld hl, BikeFlags bit 2, [hl] ; downhill jr z, .fast ld a, [WalkingDirection] cp DOWN jr z, .fast ld a, STEP_WALK call DoStep scf ret .fast ld a, STEP_BIKE call DoStep scf ret .asm_801ae ld a, STEP_WALK call DoStep scf ret .ice ld a, STEP_ICE call DoStep scf ret ; unused? xor a ret .asm_801be xor a ret ; 801c0 TrySurfStep: ; 801c0 call CheckWaterPermissions ld [MartPointer], a jr c, .asm_801f1 call Function80341 ld [$d03f], a and a jr z, .asm_801f1 cp 2 jr z, .asm_801f1 ld a, [MartPointer] and a jr nz, .ExitWater ld a, STEP_WALK call DoStep scf ret .ExitWater call WaterToLandSprite call Function3cdf ; PlayMapMusic ld a, STEP_WALK call DoStep ld a, 6 scf ret .asm_801f1 xor a ret ; 801f3 TryJumpLedge: ; 801f3 ld a, [StandingTile] ld e, a and $f0 cp $a0 ; ledge jr nz, .DontJump ld a, e and 7 ld e, a ld d, 0 ld hl, .data_8021e add hl, de ld a, [FacingDirection] and [hl] jr z, .DontJump ld de, SFX_JUMP_OVER_LEDGE call PlaySFX ld a, STEP_LEDGE call DoStep ld a, 7 scf ret .DontJump xor a ret .data_8021e db FACE_RIGHT db FACE_LEFT db FACE_UP db FACE_DOWN db FACE_RIGHT | FACE_DOWN db FACE_DOWN | FACE_LEFT db FACE_UP | FACE_RIGHT db FACE_UP | FACE_LEFT ; 80226 CheckEdgeWarp: ; 80226 ; Bug: Since no case is made for STANDING here, it will check ; [.edgewarps + $ff]. This resolves to $3e at $8035a. ; This causes $d041 to be nonzero when standing on tile $3e, ; making bumps silent. ld a, [WalkingDirection] ld e, a ld d, 0 ld hl, .EdgeWarps add hl, de ld a, [StandingTile] cp [hl] jr nz, .asm_80259 ld a, 1 ld [$d041], a ld a, [WalkingDirection] cp STANDING jr z, .asm_80259 ld e, a ld a, [PlayerDirection] rrca rrca and 3 cp e jr nz, .asm_80259 call Function224a ; CheckFallPit? jr nc, .asm_80259 call StandInPlace scf ld a, 1 ret .asm_80259 xor a ret .EdgeWarps db $70, $78, $76, $7e ; 8025f DoStep: ; 8025f ld e, a ld d, 0 ld hl, .Steps add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ld a, [WalkingDirection] ld e, a cp STANDING jp z, StandInPlace add hl, de ld a, [hl] ld [MovementAnimation], a ld hl, .WalkInPlace add hl, de ld a, [hl] ld [$d04e], a ld a, 4 ret .Steps dw .Slow dw .Walk dw .Bike dw .Ledge dw .Ice dw .Turn dw .BackwardsLedge dw .WalkInPlace .Slow db $08, $09, $0a, $0b .Walk db $0c, $0d, $0e, $0f .Bike db $10, $11, $12, $13 .Ledge db $30, $31, $32, $33 .Ice db $1c, $1d, $1e, $1f .BackwardsLedge db $31, $30, $33, $32 .Turn db $04, $05, $06, $07 .WalkInPlace db $80, $81, $82, $83 ; 802b3 StandInPlace: ; 802b3 ld a, 0 ld [$d04e], a ld a, $3e ; standing ld [MovementAnimation], a xor a ret ; 802bf WalkInPlace: ; 802bf ld a, 0 ld [$d04e], a ld a, $50 ; walking ld [MovementAnimation], a xor a ret ; 802cb CheckForcedMovementInput: ; 802cb ; When sliding on ice, input is forced to remain in the same direction. call Function80404 ret nc ld a, [$d04e] cp 0 ret z and 3 ld e, a ld d, 0 ld hl, .data_802e8 add hl, de ld a, [CurInput] and A_BUTTON | B_BUTTON | SELECT | START or [hl] ld [CurInput], a ret .data_802e8 db D_DOWN, D_UP, D_LEFT, D_RIGHT ; 802ec GetMovementAction: ; 802ec ; Poll player input and update movement info. ld hl, .table ld de, .table2 - .table1 ld a, [CurInput] bit 7, a jr nz, .down bit 6, a jr nz, .up bit 5, a jr nz, .left bit 4, a jr nz, .right ; Standing jr .update .down add hl, de .up add hl, de .left add hl, de .right add hl, de .update ld a, [hli] ld [WalkingDirection], a ld a, [hli] ld [FacingDirection], a ld a, [hli] ld [WalkingX], a ld a, [hli] ld [WalkingY], a ld a, [hli] ld h, [hl] ld l, a ld a, [hl] ld [WalkingTile], a ret .table ; struct: ; walk direction ; facing ; x movement ; y movement ; tile collision pointer .table1 db STANDING, FACE_CURRENT, 0, 0 dw StandingTile .table2 db RIGHT, FACE_RIGHT, 1, 0 dw TileRight db LEFT, FACE_LEFT, -1, 0 dw TileLeft db UP, FACE_UP, 0, -1 dw TileUp db DOWN, FACE_DOWN, 0, 1 dw TileDown ; 80341 Function80341: ; 80341 ld a, 0 ld [hConnectionStripLength], a ld a, [MapX] ld d, a ld a, [WalkingX] add d ld d, a ld a, [MapY] ld e, a ld a, [WalkingY] add e ld e, a ld bc, $d4d6 callba Function7041 jr nc, .asm_80369 call Function8036f jr c, .asm_8036c xor a ret .asm_80369 ld a, 1 ret .asm_8036c ld a, 2 ret ; 8036f Function8036f: ; 8036f ld hl, BikeFlags bit 0, [hl] jr z, .asm_8039c ld hl, $0007 add hl, bc ld a, [hl] cp $ff jr nz, .asm_8039c ld hl, $0006 add hl, bc bit 6, [hl] jr z, .asm_8039c ld hl, $0005 add hl, bc set 2, [hl] ld a, [WalkingDirection] ld d, a ld hl, $0020 add hl, bc ld a, [hl] and $fc or d ld [hl], a scf ret .asm_8039c xor a ret ; 8039e CheckLandPermissions: ; 8039e ; Return 0 if walking onto land and tile permissions allow it. ; Otherwise, return carry. ld a, [TilePermissions] ld d, a ld a, [FacingDirection] and d jr nz, .NotWalkable ld a, [WalkingTile] call CheckWalkable jr c, .NotWalkable xor a ret .NotWalkable scf ret ; 803b4 CheckWaterPermissions: ; 803b4 ; Return 0 if moving in water, or 1 if moving onto land. ; Otherwise, return carry. ld a, [TilePermissions] ld d, a ld a, [FacingDirection] and d jr nz, .NotSurfable ld a, [WalkingTile] call CheckSurfable jr c, .NotSurfable and a ret .NotSurfable scf ret ; 803ca CheckRiding: ; 803ca ld a, [PlayerState] cp PLAYER_BIKE ret z cp PLAYER_SLIP ret ; 803d3 CheckWalkable: ; 803d3 ; Return 0 if tile a is land. Otherwise, return carry. call GetTileCollision and a ; land ret z scf ret ; 803da CheckSurfable: ; 803da ; Return 0 if tile a is water, or 1 if land. ; Otherwise, return carry. call GetTileCollision cp 1 jr z, .Water ; Can walk back onto land from water. and a jr z, .Land jr .Neither .Water xor a ret .Land ld a, 1 and a ret .Neither scf ret ; 803ee PlayBump: ; 803ee call CheckSFX ret c ld de, SFX_BUMP call PlaySFX ret ; 803f9 WaterToLandSprite: ; 803f9 push bc ld a, PLAYER_NORMAL ld [PlayerState], a call Functione4a ; UpdateSprites pop bc ret ; 80404 Function80404: ; 80404 ld a, [$d04e] cp 0 jr z, .asm_80420 cp $f0 jr z, .asm_80420 ld a, [StandingTile] call CheckIceTile jr nc, .asm_8041e ld a, [PlayerState] cp PLAYER_SLIP jr nz, .asm_80420 .asm_8041e scf ret .asm_80420 and a ret ; 80422 Function80422: ; 80422 ld hl, $c2de ld a, $3e ; standing cp [hl] ret z ld [hl], a ld a, 0 ld [$d04e], a ret ; 80430 EngineFlagAction: ; 80430 ; Do action b on engine flag de ; ; b = 0: reset flag ; = 1: set flag ; > 1: check flag, result in c ; ; Setting/resetting does not return a result. ; 16-bit flag ids are considered invalid, but it's nice ; to know that the infrastructure is there. ld a, d cp 0 jr z, .ceiling jr c, .read ; cp 0 can't set carry! jr .invalid ; There are only $a2 engine flags, so ; anything beyond that is invalid too. .ceiling ld a, e cp $a2 jr c, .read ; Invalid flags are treated as flag $00. .invalid xor a ld e, a ld d, a ; Get this flag's location. .read ld hl, EngineFlags ; location add hl, de add hl, de ; bit add hl, de ; location ld e, [hl] inc hl ld d, [hl] inc hl ; bit ld c, [hl] ; What are we doing with this flag? ld a, b cp 1 jr c, .reset ; b = 0 jr z, .set ; b = 1 ; Return the given flag in c. .check ld a, [de] and c ld c, a ret ; Set the given flag. .set ld a, [de] or c ld [de], a ret ; Reset the given flag. .reset ld a, c cpl ; AND all bits except the one in question ld c, a ld a, [de] and c ld [de], a ret ; 80462 EngineFlags: ; 80462 INCLUDE "engine/engine_flags.asm" ; 80648 ; no known jump sources Function80648: ; 80648 (20:4648) ld a, c cp $1b jr c, .asm_8064e xor a .asm_8064e ld c, a ld b, $0 ld hl, $4671 add hl, bc add hl, bc add hl, bc ld e, [hl] inc hl ld d, [hl] inc hl ld b, [hl] ld a, b and $80 jr nz, .asm_80668 ld a, b and $40 ret nz ld a, [de] jr Function8066c .asm_80668 call _de_ ret ; known jump sources: 80666 (20:4666), 806ec (20:46ec), 806f6 (20:46f6), 806fc (20:46fc) Function8066c: ; 8066c (20:466c) ld de, StringBuffer2 ; $d086 ld [de], a ret ; 80671 (20:4671) INCBIN "baserom.gbc",$80671,$806e1 - $80671 ld hl, JohtoBadges ; $d857 ld b, $2 call CountSetBits ld a, [$d265] jp Function8066c ld a, [PlayerDirection] ; $d4de and $c rrca rrca jp Function8066c call GetWeekday jp Function8066c ; 806ff (20:46ff) INCBIN "baserom.gbc",$806ff,$80730 - $806ff BattleText: INCLUDE "text/battle.asm" INCBIN "baserom.gbc",$818ac,$81fe3 - $818ac DebugColorTestGFX: INCBIN "gfx/debug/color_test.2bpp" INCBIN "baserom.gbc",$82153,$823c8 - $82153 SECTION "bank21", ROMX, BANK[$21] Function84000: ; 84000 ld hl, OverworldMap ld bc, $040c xor a call Function842ab xor a ld [rSB], a ld [rSC], a ld [$c2d5], a ld hl, $c2d4 set 0, [hl] ld a, [GBPrinter] ld [$cbfb], a xor a ld [$cf63], a ret ; 84022 Function84022: ; 84022 ld a, [$cf63] ld e, a ld d, $0 ld hl, $4031 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 84031 ; no known jump sources Jumptable_84031: ; 84031 (21:4031) dw Function84077 dw Function84143 dw Function84120 dw Function84099 dw Function84180 dw Function8412e dw Function840c5 dw Function84180 dw Function84120 dw Function840de dw Function84180 dw Function84120 dw Function841a1 dw Function84063 dw Function8406d dw Function84120 dw Function84103 dw Function84071 dw Function841b0 dw Function841b3 ; known jump sources: 8406d (21:406d), 8408d (21:408d), 840b9 (21:40b9), 840d7 (21:40d7), 840f7 (21:40f7), 84119 (21:4119), 8412a (21:412a), 8416e (21:416e), 84193 (21:4193), 841ac (21:41ac), 841b0 (21:41b0) Function84059: ; 84059 (21:4059) ld hl, $cf63 inc [hl] ret ; known jump sources: 8413c (21:413c), 8413f (21:413f), 84197 (21:4197) Function8405e: ; 8405e (21:405e) ld hl, $cf63 dec [hl] ret ; no known jump sources Function84063: ; 84063 (21:4063) xor a ld [$ca89], a ld hl, $cf63 set 7, [hl] ret ; no known jump sources Function8406d: ; 8406d (21:406d) call Function84059 ret ; no known jump sources Function84071: ; 84071 (21:4071) ld a, $1 ld [$cf63], a ret ; no known jump sources Function84077: ; 84077 (21:4077) call Function841fb ld hl, $42b7 call Function841e2 xor a ld [$ca8e], a ld [$ca8f], a ld a, [$cf65] ld [$ca81], a call Function84059 call Function841c3 ld a, $1 ld [$cbf8], a ret ; no known jump sources Function84099: ; 84099 (21:4099) call Function841fb ld hl, $ca81 ld a, [hl] and a jr z, Function840c5 ld hl, $42c3 call Function841e2 call Function84260 ld a, $80 ld [$ca8e], a ld a, $2 ld [$ca8f], a call Function84219 call Function84059 call Function841c3 ld a, $2 ld [$cbf8], a ret ; known jump sources: 840a1 (21:40a1) Function840c5: ; 840c5 (21:40c5) ld a, $6 ld [$cf63], a ld hl, $42c9 call Function841e2 xor a ld [$ca8e], a ld [$ca8f], a call Function84059 call Function841c3 ret ; no known jump sources Function840de: ; 840de (21:40de) call Function841fb ld hl, $42bd call Function841e2 call Function84249 ld a, $4 ld [$ca8e], a ld a, $0 ld [$ca8f], a call Function84219 call Function84059 call Function841c3 ld a, $3 ld [$cbf8], a ret ; no known jump sources Function84103: ; 84103 (21:4103) call Function841fb ld hl, $42b7 call Function841e2 xor a ld [$ca8e], a ld [$ca8f], a ld a, [$cf65] ld [$ca81], a call Function84059 call Function841c3 ret ; no known jump sources Function84120: ; 84120 (21:4120) ld hl, $ca8b inc [hl] ld a, [hl] cp $6 ret c xor a ld [hl], a call Function84059 ret ; no known jump sources Function8412e: ; 8412e (21:412e) ld hl, $ca8b inc [hl] ld a, [hl] cp $6 ret c xor a ld [hl], a ld hl, $ca81 dec [hl] call Function8405e call Function8405e ret ; no known jump sources Function84143: ; 84143 (21:4143) ld a, [$c2d5] and a ret nz ld a, [$ca88] cp $ff jr nz, .asm_84156 ld a, [$ca89] cp $ff jr z, .asm_84172 .asm_84156 ld a, [$ca88] cp $81 jr nz, .asm_84172 ld a, [$ca89] cp $0 jr nz, .asm_84172 ld hl, $c2d4 set 1, [hl] ld a, $5 ld [$ca8a], a call Function84059 ret .asm_84172 ld a, $ff ld [$ca88], a ld [$ca89], a ld a, $e ld [$cf63], a ret ; no known jump sources Function84180: ; 84180 (21:4180) ld a, [$c2d5] and a ret nz ld a, [$ca89] and $f0 jr nz, .asm_8419b ld a, [$ca89] and $1 jr nz, .asm_84197 call Function84059 ret .asm_84197 call Function8405e ret .asm_8419b ld a, $12 ld [$cf63], a ret ; no known jump sources Function841a1: ; 841a1 (21:41a1) ld a, [$c2d5] and a ret nz ld a, [$ca89] and $f3 ret nz call Function84059 ret ; no known jump sources Function841b0: ; 841b0 (21:41b0) call Function84059 ; no known jump sources Function841b3: ; 841b3 (21:41b3) ld a, [$c2d5] and a ret nz ld a, [$ca89] and $f0 ret nz xor a ld [$cf63], a ret ; known jump sources: 84090 (21:4090), 840bc (21:40bc), 840da (21:40da), 840fa (21:40fa), 8411c (21:411c), 841c7 (21:41c7) Function841c3: ; 841c3 (21:41c3) ld a, [$c2d5] and a jr nz, Function841c3 xor a ld [$ca8c], a ld [$ca8d], a ld a, $1 ld [$c2d5], a ld a, $88 ld [rSB], a ; $ff00+$1 ld a, $1 ld [rSC], a ; $ff00+$2 ld a, $81 ld [rSC], a ; $ff00+$2 ret ; known jump sources: 8407d (21:407d), 840a6 (21:40a6), 840cd (21:40cd), 840e4 (21:40e4), 84109 (21:4109) Function841e2: ; 841e2 (21:41e2) ld a, [hli] ld [$ca82], a ld a, [hli] ld [$ca83], a ld a, [hli] ld [$ca84], a ld a, [hli] ld [$ca85], a ld a, [hli] ld [$ca86], a ld a, [hl] ld [$ca87], a ret ; known jump sources: 84077 (21:4077), 84099 (21:4099), 840de (21:40de), 84103 (21:4103) Function841fb: ; 841fb (21:41fb) xor a ld hl, $ca82 ld [hli], a ld [hli], a ld [hli], a ld [hl], a ld hl, $ca86 ld [hli], a ld [hl], a xor a ld [$ca8e], a ld [$ca8f], a ld hl, OverworldMap ; $c800 ld bc, $280 call Function842ab ret ; known jump sources: 840b6 (21:40b6), 840f4 (21:40f4) Function84219: ; 84219 (21:4219) ld hl, $0 ld bc, $4 ld de, $ca82 call Function8423c ld a, [$ca8e] ld c, a ld a, [$ca8f] ld b, a ld de, OverworldMap ; $c800 call Function8423c ld a, l ld [$ca86], a ld a, h ld [$ca87], a ret ; known jump sources: 84222 (21:4222), 84230 (21:4230), 84246 (21:4246) Function8423c: ; 8423c (21:423c) ld a, [de] inc de add l jr nc, .asm_84242 inc h .asm_84242 ld l, a dec bc ld a, c or b jr nz, Function8423c ret ; known jump sources: 840e7 (21:40e7) Function84249: ; 84249 (21:4249) ld a, $1 ld [OverworldMap], a ; $c800 ld a, [$cbfa] ld [$c801], a ld a, $e4 ld [$c802], a ld a, [$cbfb] ld [$c803], a ret ; known jump sources: 840a9 (21:40a9) Function84260: ; 84260 (21:4260) ld a, [$ca81] xor $ff ld d, a ld a, [$cf65] inc a add d ld hl, $ca90 ld de, $28 .asm_84271 and a jr z, .asm_84278 add hl, de dec a jr .asm_84271 .asm_84278 ld e, l ld d, h ld hl, OverworldMap ; $c800 ld c, $28 .asm_8427f ld a, [de] inc de push bc push de push hl swap a ld d, a and $f0 ld e, a ld a, d and $f ld d, a and $8 ld a, d jr nz, .asm_84297 or $90 jr .asm_84299 .asm_84297 or $80 .asm_84299 ld d, a ld bc, $2101 call Request2bpp pop hl ld de, $10 add hl, de pop de pop bc dec c jr nz, .asm_8427f ret Function842ab: ; 842ab push de ld e, a .asm_842ad ld [hl], e inc hl dec bc ld a, c or b jr nz, .asm_842ad ld a, e pop de ret ; 842b7 INCBIN "baserom.gbc",$842b7,$842db - $842b7 Function842db: ; 842db ld a, [$c2d5] add a ld e, a ld d, $0 ld hl, $42ea add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 842ea ; no known jump sources Jumptable_842ea: ; 842ea (21:42ea) dw Function8432f dw Function84330 dw Function84339 dw Function84343 dw Function8434d dw Function84357 dw Function84361 dw Function8438b dw Function84395 dw Function8439f dw Function843a8 dw Function843b6 dw Function84330 dw Function843c0 dw Function843c9 dw Function843c9 dw Function843c9 dw Function843c0 dw Function843c9 dw Function8439f dw Function843a8 dw Function843e6 dw Function84330 dw Function843d2 dw Function843c9 dw Function843c9 dw Function843c9 dw Function843d2 dw Function843c9 dw Function8439f dw Function843a8 dw Function843b6 ; known jump sources: 84335 (21:4335), 8433f (21:433f), 84349 (21:4349), 84353 (21:4353), 8435d (21:435d), 84388 (21:4388), 84391 (21:4391), 8439b (21:439b), 843a4 (21:43a4), 843b2 (21:43b2), 843c5 (21:43c5), 843ce (21:43ce), 843d7 (21:43d7) Function8432a: ; 8432a (21:432a) ld hl, $c2d5 inc [hl] ret ; no known jump sources Function8432f: ; 8432f (21:432f) ret ; no known jump sources Function84330: ; 84330 (21:4330) ld a, $33 call Function843db call Function8432a ret ; no known jump sources Function84339: ; 84339 (21:4339) ld a, [$ca82] call Function843db call Function8432a ret ; no known jump sources Function84343: ; 84343 (21:4343) ld a, [$ca83] call Function843db call Function8432a ret ; no known jump sources Function8434d: ; 8434d (21:434d) ld a, [$ca84] call Function843db call Function8432a ret ; no known jump sources Function84357: ; 84357 (21:4357) ld a, [$ca85] call Function843db call Function8432a ret ; no known jump sources Function84361: ; 84361 (21:4361) ld hl, $ca8e ld a, [hli] ld d, [hl] ld e, a or d jr z, .asm_84388 dec de ld [hl], d dec hl ld [hl], e ld a, [$ca8c] ld e, a ld a, [$ca8d] ld d, a ld hl, OverworldMap ; $c800 add hl, de inc de ld a, e ld [$ca8c], a ld a, d ld [$ca8d], a ld a, [hl] call Function843db ret .asm_84388 call Function8432a ; no known jump sources Function8438b: ; 8438b (21:438b) ld a, [$ca86] call Function843db call Function8432a ret ; no known jump sources Function84395: ; 84395 (21:4395) ld a, [$ca87] call Function843db call Function8432a ret ; no known jump sources Function8439f: ; 8439f (21:439f) ld a, $0 call Function843db call Function8432a ret ; no known jump sources Function843a8: ; 843a8 (21:43a8) ld a, [rSB] ; $ff00+$1 ld [$ca88], a ld a, $0 call Function843db call Function8432a ret ; no known jump sources Function843b6: ; 843b6 (21:43b6) ld a, [rSB] ; $ff00+$1 ld [$ca89], a xor a ld [$c2d5], a ret ; no known jump sources Function843c0: ; 843c0 (21:43c0) ld a, $f call Function843db call Function8432a ret ; no known jump sources Function843c9: ; 843c9 (21:43c9) ld a, $0 call Function843db call Function8432a ret ; no known jump sources Function843d2: ; 843d2 (21:43d2) ld a, $8 call Function843db call Function8432a ret ; known jump sources: 84332 (21:4332), 8433c (21:433c), 84346 (21:4346), 84350 (21:4350), 8435a (21:435a), 84384 (21:4384), 8438e (21:438e), 84398 (21:4398), 843a1 (21:43a1), 843af (21:43af), 843c2 (21:43c2), 843cb (21:43cb), 843d4 (21:43d4) Function843db: ; 843db (21:43db) ld [rSB], a ; $ff00+$1 ld a, $1 ld [rSC], a ; $ff00+$2 ld a, $81 ld [rSC], a ; $ff00+$2 ret ; no known jump sources Function843e6: ; 843e6 (21:43e6) ld a, [rSB] ; $ff00+$1 ld [$ca89], a xor a ld [$c2d5], a ret Function843f0: ; 843f0 .asm_843f0 call Functiona57 call Function846f6 jr c, .asm_8440f ld a, [$cf63] bit 7, a jr nz, .asm_8440d call Function84022 call Function84757 call Function84785 call DelayFrame jr .asm_843f0 .asm_8440d and a ret .asm_8440f scf ret ; 84411 Function84411: ; 84411 xor a ld [$c2d4], a ld [$c2d5], a ret ; 84419 Function84419: ; 84419 push af call Function84000 pop af ld [$cbfa], a call Function84728 ret ; 84425 Function84425: ; 84425 call Function222a call Function84753 ret ; 8442c INCBIN "baserom.gbc",$8442c,$844bc - $8442c ; no known jump sources Function844bc: ; 844bc (21:44bc) ld a, [$cf65] push af ld a, $9 ld [$cf65], a ld a, e ld [$d004], a ld a, d ld [StartFlypoint], a ; $d005 ld a, b ld [EndFlypoint], a ; $d006 ld a, c ld [MovementBuffer], a ; $d007 xor a ld [$FF00+$ac], a ld [$d003], a call Function8474c ld a, [rIE] ; $ff00+$ff push af xor a ld [rIF], a ; $ff00+$f ld a, $9 ld [rIE], a ; $ff00+$ff ld hl, $ff9e ld a, [hl] push af ld [hl], $4 xor a ld [hBGMapMode], a ; $ff00+$d4 call Function84817 ld a, $10 call Function84419 call Function84559 jr c, .asm_84545 call Function84411 ld c, $c call DelayFrames xor a ld [hBGMapMode], a ; $ff00+$d4 call Function8486f ld a, $0 call Function84419 call Function84559 jr c, .asm_84545 call Function84411 ld c, $c call DelayFrames xor a ld [hBGMapMode], a ; $ff00+$d4 call Function84893 ld a, $0 call Function84419 call Function84559 jr c, .asm_84545 call Function84411 ld c, $c call DelayFrames xor a ld [hBGMapMode], a ; $ff00+$d4 call Function848b7 ld a, $3 call Function84419 call Function84559 .asm_84545 pop af ld [$FF00+$9e], a call Function84411 xor a ld [rIF], a ; $ff00+$f pop af ld [rIE], a ; $ff00+$ff call Function84425 pop af ld [$cf65], a ret ; known jump sources: 844fa (21:44fa), 84512 (21:4512), 8452a (21:452a), 84542 (21:4542) Function84559: ; 84559 (21:4559) call Function84742 call Function843f0 ret Function84560: ; 84560 ld a, [$cf65] push af xor a ld [$ffac], a call Function8474c ld a, [rIE] push af xor a ld [rIF], a ld a, $9 ld [rIE], a ld hl, $ff9e ld a, [hl] push af ld [hl], $4 xor a ld [hBGMapMode], a call Function309d callba Function16dac ld a, $0 call Function84419 call Function30b4 call Function84742 ld a, $9 ld [$cf65], a .asm_84597 call Functiona57 call Function846f6 jr c, .asm_845c0 ld a, [$cf63] bit 7, a jr nz, .asm_845c0 call Function84022 ld a, [$cf63] cp $2 jr nc, .asm_845b5 ld a, $3 ld [$ca81], a .asm_845b5 call Function84757 call Function84785 call DelayFrame jr .asm_84597 .asm_845c0 pop af ld [$ff9e], a call Function84411 call Function30b4 xor a ld [rIF], a pop af ld [rIE], a pop af ld [$cf65], a ret ; 845d4 Function845d4: ; 845d4 call Function845db call Function84425 ret ; 845db Function845db: ; 845db ld a, [$cf65] push af xor a ld [$ffac], a call Function8474c ld a, [rIE] push af xor a ld [rIF], a ld a, $9 ld [rIE], a xor a ld [hBGMapMode], a ld a, $13 call Function84419 ld hl, $ff9e ld a, [hl] push af ld [hl], $4 ld a, $9 ld [$cf65], a call Function843f0 pop af ld [$ff9e], a call Function84411 call Function84735 xor a ld [rIF], a pop af ld [rIE], a pop af ld [$cf65], a ret ; 8461a Function8461a: ; 8461a ld a, [$cf65] push af xor a ld [$ffac], a call Function8474c ld a, [rIE] push af xor a ld [rIF], a ld a, $9 ld [rIE], a xor a ld [hBGMapMode], a callba Function1dc381 ld a, $10 call Function84419 ld hl, $ff9e ld a, [hl] push af ld [hl], $4 ld a, $8 ld [$cf65], a call Function84742 call Function843f0 jr c, .asm_84671 call Function84411 ld c, $c call DelayFrames xor a ld [hBGMapMode], a callba Function1dc47b ld a, $3 call Function84419 ld a, $9 ld [$cf65], a call Function84742 call Function843f0 .asm_84671 pop af ld [$ff9e], a call Function84411 call Function84735 xor a ld [rIF], a pop af ld [rIE], a call Function84425 pop af ld [$cf65], a ret ; 84688 Function84688: ; 84688 ld a, [$cf65] push af callba Function1dd709 xor a ld [$ffac], a call Function8474c ld a, [rIE] push af xor a ld [rIF], a ld a, $9 ld [rIE], a ld hl, $ff9e ld a, [hl] push af ld [hl], $4 ld a, $10 call Function84419 call Function84742 ld a, $9 ld [$cf65], a call Function843f0 jr c, .asm_846e2 call Function84411 ld c, $c call DelayFrames call Function309d xor a ld [hBGMapMode], a callba Function1dd7ae ld a, $3 call Function84419 call Function30b4 call Function84742 ld a, $9 ld [$cf65], a call Function843f0 .asm_846e2 pop af ld [$ff9e], a call Function84411 xor a ld [rIF], a pop af ld [rIE], a call Function84425 pop af ld [$cf65], a ret ; 846f6 Function846f6: ; 846f6 ld a, [hJoyDown] and $2 jr nz, .asm_846fe and a ret .asm_846fe ld a, [$ca80] cp $c jr nz, .asm_84722 .asm_84705 ld a, [$c2d5] and a jr nz, .asm_84705 ld a, $16 ld [$c2d5], a ld a, $88 ld [rSB], a ld a, $1 ld [rSC], a ld a, $81 ld [rSC], a .asm_8471c ld a, [$c2d5] and a jr nz, .asm_8471c .asm_84722 ld a, $1 ld [$ffac], a scf ret ; 84728 Function84728: ; 84728 ld hl, TileMap ld de, $ca90 ld bc, $0168 call CopyBytes ret ; 84735 Function84735: ; 84735 ld hl, $ca90 ld de, TileMap ld bc, $0168 call CopyBytes ret ; 84742 Function84742: ; 84742 xor a ld [hJoyReleased], a ld [hJoyPressed], a ld [hJoyDown], a ld [$ffa9], a ret ; 8474c Function8474c: ; 8474c ld de, MUSIC_PRINTER call PlayMusic2 ret ; 84753 Function84753: ; 84753 call Function3d47 ret ; 84757 Function84757: ; 84757 ld a, [$ca88] cp $ff jr nz, .asm_84765 ld a, [$ca89] cp $ff jr z, .asm_8477f .asm_84765 ld a, [$ca89] and $e0 ret z bit 7, a jr nz, .asm_8477b bit 6, a jr nz, .asm_84777 ld a, $6 jr .asm_84781 .asm_84777 ld a, $7 jr .asm_84781 .asm_8477b ld a, $4 jr .asm_84781 .asm_8477f ld a, $5 .asm_84781 ld [$cbf8], a ret ; 84785 Function84785: ; 84785 ld a, [$cbf8] and a ret z push af xor a ld [hBGMapMode], a ld hl, $c504 ld bc, $0a12 call TextBox pop af ld e, a ld d, $0 ld hl, $4807 add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] ld hl, $c52d ld a, $77 call Function13d4 ld hl, $c5ce ld de, $47f5 call PlaceString ld a, $1 ld [hBGMapMode], a xor a ld [$cbf8], a ret ; 847bd INCBIN "baserom.gbc",$847bd,$84817 - $847bd ; known jump sources: 844f2 (21:44f2) Function84817: ; 84817 (21:4817) xor a ld [DefaultFlypoint], a ; $d002 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 ld a, $7f call ByteFill call Function84a0e ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $b4 ld a, $7f call ByteFill call Function849e9 call Function849d7 ld hl, $c4e0 ld de, $4865 call PlaceString ld a, [MovementBuffer] ; $d007 ld bc, $9 ld hl, Box1Name ; $db75 call AddNTimes ld d, h ld e, l ld hl, $c50a call PlaceString ld a, $1 call Function849c6 ld hl, $c556 ld c, $3 call Function848e7 ret ; 84865 (21:4865) INCBIN "baserom.gbc",$84865,$8486f - $84865 ; known jump sources: 8450a (21:450a) Function8486f: ; 8486f (21:486f) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 ld a, $7f call ByteFill call Function84a0e call Function849e9 ld a, [$d003] and a ret nz ld a, $4 call Function849c6 ld hl, $c4a2 ld c, $6 call Function848e7 ret ; known jump sources: 84522 (21:4522) Function84893: ; 84893 (21:4893) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 ld a, $7f call ByteFill call Function84a0e call Function849e9 ld a, [$d003] and a ret nz ld a, $a call Function849c6 ld hl, $c4a2 ld c, $6 call Function848e7 ret ; known jump sources: 8453a (21:453a) Function848b7: ; 848b7 (21:48b7) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 ld a, $7f call ByteFill call Function84a0e ld hl, $c5cd ld bc, $212 call ClearBox call Function849e9 call Function849fc ld a, [$d003] and a ret nz ld a, $10 call Function849c6 ld hl, $c4a2 ld c, $5 call Function848e7 ret ; known jump sources: 84861 (21:4861), 8488f (21:488f), 848b3 (21:48b3), 848e3 (21:48e3) Function848e7: ; 848e7 (21:48e7) ld a, [EndFlypoint] ; $d006 call GetSRAMBank ; known jump sources: 8497e (21:497e) Function848ed: ; 848ed (21:48ed) ld a, c and a jp z, Function84986 dec c ld a, [de] cp $ff jp z, Function84981 ld [$d265], a ld [CurPartySpecies], a ; $d108 push bc push hl push de push hl ld bc, $10 ld a, $7f call ByteFill pop hl push hl call GetBasePokemonName pop hl push hl call PlaceString ld a, [CurPartySpecies] ; $d108 cp $fd pop hl jr z, .asm_84972 ld bc, $b add hl, bc call Function8498a ld bc, $9 add hl, bc ld a, $f3 ld [hli], a push hl ld bc, $e ld a, $7f call ByteFill pop hl push hl ld a, [$d004] ld l, a ld a, [StartFlypoint] ; $d005 ld h, a ld bc, $372 add hl, bc ld bc, $b ld a, [DefaultFlypoint] ; $d002 call AddNTimes ld e, l ld d, h pop hl push hl call PlaceString pop hl ld bc, $b add hl, bc push hl ld a, [$d004] ld l, a ld a, [StartFlypoint] ; $d005 ld h, a ld bc, $35 add hl, bc ld bc, $20 ld a, [DefaultFlypoint] ; $d002 call AddNTimes ld a, [hl] pop hl call Function383d .asm_84972 ld hl, DefaultFlypoint ; $d002 inc [hl] pop de pop hl ld bc, $3c add hl, bc pop bc inc de jp Function848ed ; known jump sources: 848f6 (21:48f6) Function84981: ; 84981 (21:4981) ld a, $1 ld [$d003], a ; known jump sources: 848ef (21:48ef) Function84986: ; 84986 (21:4986) call CloseSRAM ret ; known jump sources: 84921 (21:4921) Function8498a: ; 8498a (21:498a) push hl ld a, [$d004] ld l, a ld a, [StartFlypoint] ; $d005 ld h, a ld bc, $2b add hl, bc ld bc, $20 ld a, [DefaultFlypoint] ; $d002 call AddNTimes ld de, TempMonDVs ; $d123 ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a ld a, [DefaultFlypoint] ; $d002 ld [CurPartyMon], a ; $d109 ld a, $3 ld [MonType], a ; $cf5f callba GetGender ld a, $7f jr c, .asm_849c3 ld a, $ef jr nz, .asm_849c3 ld a, $f5 .asm_849c3 pop hl ld [hli], a ret ; known jump sources: 84859 (21:4859), 84887 (21:4887), 848ab (21:48ab), 848db (21:48db) Function849c6: ; 849c6 (21:49c6) push hl ld e, a ld d, $0 ld a, [$d004] ld l, a ld a, [StartFlypoint] ; $d005 ld h, a add hl, de ld e, l ld d, h pop hl ret ; known jump sources: 84837 (21:4837) Function849d7: ; 849d7 (21:49d7) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld a, $79 ld [hli], a ld a, $7a ld c, $12 .asm_849e1 ld [hli], a dec c jr nz, .asm_849e1 ld a, $7b ld [hl], a ret ; known jump sources: 84834 (21:4834), 8487d (21:487d), 848a1 (21:48a1), 848ce (21:48ce) Function849e9: ; 849e9 (21:49e9) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld de, $13 ld c, $12 .asm_849f1 ld a, $7c ld [hl], a add hl, de ld a, $7c ld [hli], a dec c jr nz, .asm_849f1 ret ; known jump sources: 848d1 (21:48d1) Function849fc: ; 849fc (21:49fc) ld hl, $c5f4 ld a, $7d ld [hli], a ld a, $7a ld c, $12 .asm_84a06 ld [hli], a dec c jr nz, .asm_84a06 ld a, $7e ld [hl], a ret ; known jump sources: 84826 (21:4826), 8487a (21:487a), 8489e (21:489e), 848c2 (21:48c2) Function84a0e: ; 84a0e (21:4a0e) ld hl, $c4a2 ld c, $6 .asm_84a13 push bc push hl ld de, String84a25 call PlaceString pop hl ld bc, $3c add hl, bc pop bc dec c jr nz, .asm_84a13 ret ; 84a25 (21:4a25) String84a25: ; 84a25 db " ------@" ; 84a2e INCLUDE "battle/anim_gfx.asm" HallOfFame: ; 0x8640e call Function8648e ld a, [StatusFlags] push af ld a, $1 ld [$c2cd], a call Function2ed3 ld a, $1 ld [$d4b5], a ; Enable the Pokégear map to cycle through all of Kanto ld hl, StatusFlags set 6, [hl] callba Function14da0 ld hl, $d95e ld a, [hl] cp $c8 jr nc, .asm_86436 ; 0x86433 $1 inc [hl] .asm_86436 callba Function14b85 call Function8653f callba Function14b5f xor a ld [$c2cd], a call Function864c3 pop af ld b, a callba Function109847 ret ; 0x86455 Function86455: ; 86455 ld a, $0 ld [MusicFadeIDLo], a ld a, $0 ld [MusicFadeIDHi], a ld a, $a ld [MusicFade], a callba Function8c084 xor a ld [VramState], a ld [$ffde], a callba Function4e8c2 ld c, $8 call DelayFrames call Function2ed3 ld a, $2 ld [$d4b5], a ld a, [StatusFlags] ld b, a callba Function109847 ret ; 8648e Function8648e: ; 8648e ld a, $0 ld [MusicFadeIDLo], a ld a, $0 ld [MusicFadeIDHi], a ld a, $a ld [MusicFade], a callba Function8c084 xor a ld [VramState], a ld [$ffde], a callba Function4e881 ld c, $64 jp DelayFrames ; 864b4 Function864b4: ; 864b4 push de ld de, $0000 call PlayMusic call DelayFrame pop de call PlayMusic ret ; 864c3 Function864c3: ; 864c3 xor a ld [$cf63], a call Function8671c jr c, .asm_864fb ld de, $0014 call Function864b4 xor a ld [$cf64], a .asm_864d6 ld a, [$cf64] cp $6 jr nc, .asm_864fb ld hl, EnemyMoveEffect ld bc, $0010 call AddNTimes ld a, [hl] cp $ff jr z, .asm_864fb push hl call Function865b5 pop hl call Function8650c jr c, .asm_864fb ld hl, $cf64 inc [hl] jr .asm_864d6 .asm_864fb call Function86810 ld a, $4 ld [MusicFade], a call Function4b6 ld c, $8 call DelayFrames ret ; 8650c Function8650c: ; 8650c call Function86748 ld de, $652c ld hl, $c4c9 call PlaceString call WaitBGMap ld de, $c50a ld c, $6 ld a, $49 call Predef ld c, $3c call DelayFrames and a ret ; 8652c INCBIN "baserom.gbc",$8652c,$8653f - $8652c Function8653f: ; 8653f ld hl, OverworldMap ld bc, $0062 xor a call ByteFill ld a, [$d95e] ld de, OverworldMap ld [de], a inc de ld hl, PartySpecies ld c, 0 .asm_86556 ld a, [hli] cp $ff jr z, .asm_865b1 cp EGG jr nz, .asm_86562 inc c jr .asm_86556 .asm_86562 push hl push de push bc ld a, c ld hl, PartyMon1Species ld bc, $0030 call AddNTimes ld c, l ld b, h ld hl, $0000 add hl, bc ld a, [hl] ld [de], a inc de ld hl, $0006 add hl, bc ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a inc de ld hl, $0015 add hl, bc ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a inc de ld hl, $001f add hl, bc ld a, [hl] ld [de], a inc de pop bc push bc ld a, c ld hl, PartyMon1Nickname ld bc, $000b call AddNTimes ld bc, $000a call CopyBytes pop bc inc c pop de ld hl, $0010 add hl, de ld e, l ld d, h pop hl jr .asm_86556 .asm_865b1 ld a, $ff ld [de], a ret ; 865b5 Function865b5: ; 865b5 push hl call WhiteBGMap callba Function4e906 pop hl ld a, [hli] ld [TempMonSpecies], a ld [CurPartySpecies], a inc hl inc hl ld a, [hli] ld [TempMonDVs], a ld a, [hli] ld [$d124], a ld hl, TempMonDVs ld a, $2d call Predef ld hl, TileMap ld bc, $0168 ld a, $7f call ByteFill ld de, $9310 ld a, $3d call Predef ld a, $31 ld [$ffad], a ld hl, $c51e ld bc, $0606 ld a, $13 call Predef ld a, $d0 ld [hSCY], a ld a, $90 ld [hSCX], a call WaitBGMap xor a ld [hBGMapMode], a ld b, $1a call GetSGBLayout call Function32f9 call Function86635 xor a ld [$c2c6], a ld hl, TileMap ld bc, $0168 ld a, $7f call ByteFill ld hl, $c50a call Function378b call WaitBGMap xor a ld [hBGMapMode], a ld [hSCY], a call Function86643 ret ; 86635 Function86635: ; 86635 .asm_86635 ld a, [hSCX] cp $70 ret z add $4 ld [hSCX], a call DelayFrame jr .asm_86635 ; 86643 Function86643: ; 86643 .asm_86643 ld a, [hSCX] and a ret z dec a dec a ld [hSCX], a call DelayFrame jr .asm_86643 ; 86650 INCBIN "baserom.gbc",$86650,$8671c - $86650 Function8671c: ; 8671c ld a, [$cf63] cp $1e jr nc, .asm_86746 ld hl, $b2c0 ld bc, $0062 call AddNTimes ld a, $1 call GetSRAMBank ld a, [hl] and a jr z, .asm_86743 ld de, EnemyMoveAnimation ld bc, $0062 call CopyBytes call CloseSRAM and a ret .asm_86743 call CloseSRAM .asm_86746 scf ret ; 86748 Function86748: ; 86748 xor a ld [hBGMapMode], a ld a, [hli] ld [TempMonSpecies], a ld a, [hli] ld [TempMonID], a ld a, [hli] ld [$d115], a ld a, [hli] ld [TempMonDVs], a ld a, [hli] ld [$d124], a ld a, [hli] ld [TempMonLevel], a ld de, StringBuffer2 ld bc, $000a call CopyBytes ld a, $50 ld [$d090], a ld hl, TileMap ld bc, $0168 ld a, $7f call ByteFill ld hl, TileMap ld bc, $0312 call TextBox ld hl, $c590 ld bc, $0412 call TextBox ld a, [TempMonSpecies] ld [CurPartySpecies], a ld [$d265], a ld hl, TempMonDVs ld a, $2d call Predef xor a ld [$c2c6], a ld hl, $c50a call Function378b ld a, [CurPartySpecies] cp EGG jr z, .asm_867f8 ld hl, $c5a5 ld a, $74 ld [hli], a ld [hl], $f2 ld hl, $c5a7 ld de, $d265 ld bc, $8103 call PrintNum call GetBasePokemonName ld hl, $c5ab call PlaceString ld a, $3 ld [MonType], a callba GetGender ld a, $7f jr c, .asm_867e2 ld a, $ef jr nz, .asm_867e2 ld a, $f5 .asm_867e2 ld hl, $c5b6 ld [hli], a ld hl, $c5c0 ld a, $f3 ld [hli], a ld de, StringBuffer2 call PlaceString ld hl, $c5e1 call PrintLevel .asm_867f8 ld hl, $c5e7 ld a, $73 ld [hli], a ld a, $74 ld [hli], a ld [hl], $f3 ld hl, $c5ea ld de, TempMonID ld bc, $8205 call PrintNum ret ; 86810 Function86810: ; 86810 call WhiteBGMap ld hl, $9630 ld de, $40d0 ld bc, $3e01 call Request2bpp ld hl, TileMap ld bc, $0168 ld a, $7f call ByteFill callba GetPlayerBackpic ld a, $31 ld [$ffad], a hlcoord 6, 6 ld bc, $0606 ld a, $13 call Predef ld a, $d0 ld [hSCY], a ld a, $90 ld [hSCX], a call WaitBGMap xor a ld [hBGMapMode], a ld [CurPartySpecies], a ld b, $1a call GetSGBLayout call Function32f9 call Function86635 xor a ld [$c2c6], a ld hl, TileMap ld bc, $0168 ld a, $7f call ByteFill callba Function88840 xor a ld [$ffad], a hlcoord 12, 5 ld bc, $0707 ld a, $13 call Predef ld a, $c0 ld [hSCX], a call WaitBGMap xor a ld [hBGMapMode], a ld [hSCY], a call Function86643 xor a ld [hBGMapMode], a hlcoord 0, 2 ld bc, $0809 call TextBox hlcoord 0, 12 ld bc, $0412 call TextBox hlcoord 2, 4 ld de, PlayerName call PlaceString hlcoord 1, 6 ld a, $73 ld [hli], a ld a, $74 ld [hli], a ld [hl], $f3 hlcoord 4, 6 ld de, PlayerID ld bc, $8205 call PrintNum hlcoord 1, 8 ld de, .PlayTime call PlaceString hlcoord 3, 9 ld de, GameTimeHours ld bc, $0203 call PrintNum ld [hl], $63 inc hl ld de, GameTimeMinutes ld bc, $8102 call PrintNum call WaitBGMap callba Function26601 ret ; 868ed .PlayTime db "PLAY TIME@" ; 868f7 SECTION "bank22", ROMX, BANK[$22] Function88000: ; 88000 ld hl, $4007 call PrintText ret ; 88007 INCBIN "baserom.gbc",$88007,$8800c - $88007 Function8800c: ; 8800c ld hl, $4013 call PrintText ret ; 88013 INCBIN "baserom.gbc",$88013,$88018 - $88013 Function88018: ; 88018 call Function1d6e ld c, $1 xor a ld [$d0e4], a ld [$dca4], a .asm_88024 push bc call Function88000 pop bc ld a, c ld [MenuSelection], a call Function88055 ld a, c ld [ScriptVar], a and a jr z, .asm_88051 ld [CurItem], a ld a, [$cfa9] ld c, a push bc call Function8800c call Function880c2 pop bc jr nc, .asm_88024 ld a, [$d10c] ld [$dca4], a call Function88161 .asm_88051 call Function1d7d ret ; 88055 Function88055: ; 88055 callba Function24c64 jr c, .asm_88083 ld hl, $4086 call Function1d3c ld a, [MenuSelection] ld [$cf88], a xor a ld [hBGMapMode], a call Function352f call Function1ad2 call Function350c ld a, [$cf73] cp $2 jr z, .asm_88083 ld a, [MenuSelection] cp $ff jr nz, .asm_88084 .asm_88083 xor a .asm_88084 ld c, a ret ; 88086 INCBIN "baserom.gbc",$88086,$880c2 - $88086 Function880c2: ; 880c2 ld a, [CurItem] ld [MenuSelection], a call Function88139 jr z, .asm_88109 ld a, [$d10c] ld [$d10d], a ld a, $1 ld [$d10c], a ld hl, $410d call LoadMenuDataHeader .asm_880de xor a ld [hBGMapMode], a call Function1cbb call Function1ad2 call Function88116 call Function88126 call Function321c callba Function27a28 jr nc, .asm_880de push bc call PlayClickSFX pop bc ld a, b cp $ff jr z, .asm_88109 ld a, [$d10c] ld [$d10c], a scf .asm_88109 call Function1c17 ret ; 8810d INCBIN "baserom.gbc",$8810d,$88116 - $8810d Function88116: ; 88116 call Function1cfd ld de, $0015 add hl, de ld d, h ld e, l callba Function24ab4 ret ; 88126 Function88126: ; 88126 call Function1cfd ld de, $0032 add hl, de ld [hl], $f1 inc hl ld de, $d10c ld bc, $8102 jp PrintNum ; 88139 Function88139: ; 88139 push bc ld hl, NumItems ld a, [CurItem] ld c, a ld b, $0 .asm_88143 inc hl ld a, [hli] cp $ff jr z, .asm_88153 cp c jr nz, .asm_88143 ld a, [hl] add b ld b, a jr nc, .asm_88143 ld b, $ff .asm_88153 ld a, b sub $63 jr c, .asm_8815a ld b, $63 .asm_8815a ld a, b ld [$d10c], a and a pop bc ret ; 88161 Function88161: ; 88161 push de push bc ld hl, NumItems ld a, [CurItem] ld c, a ld e, $0 xor a ld [$d107], a ld a, $ff ld [DefaultFlypoint], a .asm_88175 ld a, [$d107] inc a ld [$d107], a inc hl ld a, [hli] cp $ff jr z, .asm_88198 cp c jr nz, .asm_88175 ld d, $0 push hl ld hl, DefaultFlypoint add hl, de inc e ld a, [$d107] dec a ld [hli], a ld a, $ff ld [hl], a pop hl jr .asm_88175 .asm_88198 ld a, e and a jr z, .asm_881fa dec a jr z, .asm_881d0 ld hl, DefaultFlypoint .asm_881a2 ld a, [hl] ld c, a push hl .asm_881a5 inc hl ld a, [hl] cp $ff jr z, .asm_881c9 ld b, a ld a, c call Function88201 ld e, a ld a, b call Function88201 sub e jr z, .asm_881bc jr c, .asm_881c0 jr .asm_881a5 .asm_881bc ld a, c sub b jr nc, .asm_881a5 .asm_881c0 ld a, c ld c, b ld [hl], a ld a, c pop hl ld [hl], a push hl jr .asm_881a5 .asm_881c9 pop hl inc hl ld a, [hl] cp $ff jr nz, .asm_881a2 .asm_881d0 ld hl, DefaultFlypoint .asm_881d3 ld a, [hl] cp $ff jr z, .asm_881fa push hl ld [$d107], a call Function88211 pop hl ld a, [$d10c] and a jr z, .asm_881fa push hl ld a, [hli] ld c, a .asm_881e9 ld a, [hli] cp $ff jr z, .asm_881f6 cp c jr c, .asm_881e9 dec a dec hl ld [hli], a jr .asm_881e9 .asm_881f6 pop hl inc hl jr .asm_881d3 .asm_881fa ld a, [$d10c] and a pop bc pop de ret ; 88201 Function88201: ; 88201 push hl push bc ld hl, NumItems inc hl ld c, a ld b, $0 add hl, bc add hl, bc inc hl ld a, [hl] pop bc pop hl ret ; 88211 Function88211: ; 88211 push bc ld hl, NumItems ld a, [$d107] ld c, a ld b, $0 inc hl add hl, bc add hl, bc ld a, [CurItem] ld c, a ld a, [hli] cp $ff jr z, .asm_88243 cp c jr nz, .asm_88243 ld a, [$d10c] ld c, a ld a, [hl] sub c ld b, c jr nc, .asm_88235 add c ld b, a .asm_88235 push bc ld hl, NumItems ld a, b ld [$d10c], a call TossItem pop bc ld a, c sub b .asm_88243 ld [$d10c], a pop bc ret ; 88248 INCBIN "baserom.gbc",$88248,$88258 - $88248 MovePlayerPicRight: ; 88258 hlcoord 6, 4 ld de, 1 jr MovePlayerPic MovePlayerPicLeft: ; 88260 hlcoord 13, 4 ld de, -1 ; fallthrough MovePlayerPic: ; 88266 ; Move player pic at hl by de * 7 tiles. ld c, $8 .loop push bc push hl push de xor a ld [hBGMapMode], a ld bc, $0707 ld a, $13 call Predef xor a ld [hBGMapThird], a call WaitBGMap call DelayFrame pop de pop hl add hl, de pop bc dec c ret z push hl push bc ld a, l sub e ld l, a ld a, h sbc d ld h, a ld bc, $0707 call ClearBox pop bc pop hl jr .loop ; 88297 ShowPlayerNamingChoices: ; 88297 ld hl, ChrisNameMenuHeader ld a, [PlayerGender] bit 0, a jr z, .GotGender ld hl, KrisNameMenuHeader .GotGender call LoadMenuDataHeader call Function1d81 ld a, [$cfa9] dec a call Function1db8 call Function1c17 ret ; 882b5 ChrisNameMenuHeader: ; 882b5 db $40 ; flags db 00, 00 ; start coords db 11, 10 ; end coords dw MenuData2_0x882be db 1 ; ???? db 0 ; default option ; 882be MenuData2_0x882be: ; 882be db $91 ; flags db 5 ; items db "NEW NAME@" db "CHRIS@" db "MAT@" db "ALLAN@" db "JON@" db 2 ; displacement db " NAME @" ; title ; 882e5 KrisNameMenuHeader: ; 882e5 db $40 ; flags db 00, 00 ; start coords db 11, 10 ; end coords dw MenuData2_0x882ee db 1 ; ???? db 0 ; default option ; 882ee MenuData2_0x882ee: ; 882ee db $91 ; flags db 5 ; items db "NEW NAME@" db "KRIS@" db "AMANDA@" db "JUANA@" db "JODI@" db 2 ; displacement db " NAME @" ; title ; 88318 INCBIN "baserom.gbc",$88318,$8832c - $88318 GetPlayerIcon: ; 8832c ; Get the player icon corresponding to gender ; Male ld de, ChrisSpriteGFX ld b, BANK(ChrisSpriteGFX) ld a, [PlayerGender] bit 0, a jr z, .done ; Female ld de, KrisSpriteGFX ld b, BANK(KrisSpriteGFX) .done ret ; 8833e Function8833e: ; 8833e ld hl, $4365 ld a, [PlayerGender] ; $d472 bit 0, a jr z, .asm_8834b ld hl, $4595 .asm_8834b ld de, $9000 ld bc, $230 ld a, $22 call FarCopyBytes ld hl, $47c5 ld de, $9230 ld bc, $60 ld a, $22 call FarCopyBytes ret ; 88365 (22:4365) INCBIN "baserom.gbc",$88365,$88825 - $88365 GetPlayerBackpic: ; 88825 ld a, [PlayerGender] bit 0, a jr z, .asm_88830 call GetKrisBackpic ret .asm_88830 ld hl, ChrisBackpic ld b, BANK(ChrisBackpic) ld de, $9310 ld c, $31 ld a, $40 call Predef ret ; 88840 Function88840: ; 88840 call WaitBGMap xor a ld [hBGMapMode], a ld e, $0 ld a, [PlayerGender] bit 0, a jr z, .asm_88851 ld e, $1 .asm_88851 ld a, e ld [TrainerClass], a ld de, ChrisPic ld a, [PlayerGender] bit 0, a jr z, .asm_88862 ld de, KrisPic .asm_88862 ld hl, VTiles2 ld b, $22 ld c, $31 call Get2bpp call WaitBGMap ld a, $1 ld [hBGMapMode], a ret ; 88874 DrawIntroPlayerPic: ; 88874 ; Draw the player pic at (6,4). ; Get class ld e, 0 ld a, [PlayerGender] bit 0, a jr z, .GotClass ld e, 1 .GotClass ld a, e ld [TrainerClass], a ; Load pic ld de, ChrisPic ld a, [PlayerGender] bit 0, a jr z, .GotPic ld de, KrisPic .GotPic ld hl, VTiles2 ld b, BANK(ChrisPic) ld c, 7 * 7 ; dimensions call Get2bpp ; Draw xor a ld [$ffad], a hlcoord 6, 4 ld bc, $0707 ld a, $13 call Predef ret ; 888a9 ChrisPic: ; 888a9 INCBIN "baserom.gbc",$888a9,$88bb9 - $888a9 ; 88bb9 KrisPic: ; 88bb9 INCBIN "baserom.gbc",$88bb9,$88ec9 - $88bb9 ; 88ec9 GetKrisBackpic: ; 88ec9 ; Kris's backpic is uncompressed. ld de, KrisBackpic ld hl, $9310 ld bc, BANK(KrisBackpic) << 8 + (7 * 7) ; dimensions call Get2bpp ret ; 88ed6 KrisBackpic: ; 88ed6 INCBIN "baserom.gbc",$88ed6,$89116 - $88ed6 ; 89116 INCBIN "baserom.gbc",$89116,$89160 - $89116 Function89160: ; 89160 push af ld a, $4 call GetSRAMBank pop af ret ; 89168 ; known jump sources: 89e63 (22:5e63), 8a166 (22:6166), 8a2e5 (22:62e5) Function89168: ; 89168 (22:5168) ld hl, GameTimerPause ; $cfbc set 7, [hl] ret ; known jump sources: 8a13b (22:613b) Function8916e: ; 8916e (22:516e) ld hl, GameTimerPause ; $cfbc res 7, [hl] ret ; known jump sources: 8a140 (22:6140) Function89174: ; 89174 (22:5174) ld hl, GameTimerPause ; $cfbc bit 7, [hl] ret ; known jump sources: 89e00 (22:5e00) Function8917a: ; 8917a (22:517a) ld hl, DefaultFlypoint ; $d002 ld bc, $32 xor a call ByteFill ret ; known jump sources: 8a772 (22:6772), 8a782 (22:6782), 8aacc (22:6acc), 8ab1c (22:6b1c), 8b3aa (22:73aa) Function89185: ; 89185 (22:5185) push de push hl .asm_89187 ld a, [de] inc de cp [hl] jr nz, .asm_89190 inc hl dec c jr nz, .asm_89187 .asm_89190 pop hl pop de ret Function89193: ; 89193 push de push hl .asm_89195 ld a, [hli] ld [de], a inc de dec c jr nz, .asm_89195 pop hl pop de ret ; 8919e ; known jump sources: 8a46f (22:646f) Function8919e: ; 8919e (22:519e) ld a, c and a ret z .asm_891a1 ld a, [de] inc de cp $50 jr nz, .asm_891a1 dec c jr nz, .asm_891a1 ret Function891ab: ; 891ab call Function89240 callba Function104061 call Function8923c ret ; 891b8 Function891b8: ; 891b8 call Function8923c ld hl, TileMap ld a, $7f ld bc, $0168 call ByteFill call DelayFrame ret ; 891ca ; known jump sources: 891d4 (22:51d4) Function891ca: ; 891ca (22:51ca) push bc call Function891b8 call WaitBGMap pop bc ret ; known jump sources: 8a748 (22:6748) Function891d3: ; 891d3 (22:51d3) push bc call Function891ca ld c, $10 call DelayFrames pop bc ret Function891de: ; 891de call Function8923c call ClearPalettes ld hl, AttrMap ld a, $7 ld bc, $0168 call ByteFill ld hl, TileMap ld a, $7f ld bc, $0168 call ByteFill call Function891ab ret ; 891fe Function891fe: ; 891fe push bc call Function891de ld c, $10 call DelayFrames pop bc ret ; 89209 Function89209: ; 89209 ld a, $1 ld [$c2ce], a ret ; 8920f Function8920f: ; 8920f ld a, $0 ld [$c2ce], a ret ; 89215 Function89215: ; 89215 push hl push bc ld bc, $0939 add hl, bc ld [hl], a pop bc pop hl ret ; 8921f ; known jump sources: 89a2a (22:5a2a) Function8921f: ; 8921f (22:521f) push de ld de, $14 add hl, de inc hl ld a, $7f .asm_89227 push bc push hl .asm_89229 ld [hli], a dec c jr nz, .asm_89229 pop hl add hl, de pop bc dec b jr nz, .asm_89227 pop de ret ; known jump sources: 8a037 (22:6037), 8ab0c (22:6b0c) Function89235: ; 89235 (22:5235) call Functiona36 call PlayClickSFX ret Function8923c: ; 8923c xor a ld [hBGMapMode], a ret ; 89240 Function89240: ; 89240 ld a, $1 ld [hBGMapMode], a ret ; 89245 ; known jump sources: 89e72 (22:5e72), 8a163 (22:6163), 8a2e2 (22:62e2) Function89245: ; 89245 (22:5245) callba Function14ea5 ret c callba Function150b9 and a ret ; known jump sources: 8a73a (22:673a), 8a8ba (22:68ba), 8a8ec (22:68ec), 8ab32 (22:6b32) Function89254: ; 89254 (22:5254) ld bc, $d07 jr Function89261 Function89259: ; 89259 ld bc, $0e07 jr Function89261 Function8925e: ; 8925e ld bc, $0e0c Function89261: ; 89261 push af push bc ld hl, $52a3 call Function1d3c pop bc ld hl, $cf82 ld a, c ld [hli], a ld a, b ld [hli], a ld a, c add $4 ld [hli], a ld a, b add $5 ld [hl], a pop af ld [$cf88], a call Function1c00 call Function8923c call Function89209 call Function1d81 push af ld c, $a call DelayFrames call Function1c17 call Function8920f pop af jr c, .asm_892a1 ld a, [$cfa9] cp $2 jr z, .asm_892a1 and a ret .asm_892a1 scf ret ; 892a3 INCBIN "baserom.gbc",$892a3,$892b4 - $892a3 ; known jump sources: 89313 (22:5313), 8a8f4 (22:68f4), 8b9ff (22:79ff) Function892b4: ; 892b4 (22:52b4) call Function8931b Function892b7: ; 892b7 ld d, b ld e, c ld hl, $0000 add hl, bc ld a, $50 ld bc, $0006 call ByteFill ld b, d ld c, e ld hl, $0006 add hl, bc ld a, $50 ld bc, $0006 call ByteFill ld b, d ld c, e ld hl, $000c add hl, bc xor a ld [hli], a ld [hl], a ld hl, $000e add hl, bc ld [hli], a ld [hl], a ld hl, $0010 add hl, bc ld [hl], a ld hl, $0011 add hl, bc ld a, $ff ld bc, $0008 call ByteFill ld b, d ld c, e ld e, $6 ld hl, $0019 add hl, bc .asm_892fb ld a, $ff ld [hli], a ld a, $ff ld [hli], a dec e jr nz, .asm_892fb ret ; 89305 ; known jump sources: 8a301 (22:6301) Function89305: ; 89305 (22:5305) xor a ld [MenuSelection], a ; $cf74 ld c, $28 .asm_8930b ld a, [MenuSelection] ; $cf74 inc a ld [MenuSelection], a ; $cf74 push bc call Function892b4 pop bc dec c jr nz, .asm_8930b ret Function8931b: ; 8931b push hl ld hl, $a03b ld a, [MenuSelection] dec a ld bc, $0025 call AddNTimes ld b, h ld c, l pop hl ret ; 8932d Function8932d: ; 8932d ld hl, $0000 add hl, bc Function89331: ; 89331 push bc ld c, $5 .asm_89334 ld a, [hli] cp $50 jr z, .asm_89340 cp $7f jr nz, .asm_89343 dec c jr nz, .asm_89334 .asm_89340 scf jr .asm_89344 .asm_89343 and a .asm_89344 pop bc ret ; 89346 ; known jump sources: 899b5 (22:59b5) Function89346: ; 89346 (22:5346) ld h, b ld l, c jr asm_8934e Function8934a: ; 8934a ld hl, $0006 add hl, bc asm_8934e: push bc ld c, $5 .asm_89351 ld a, [hli] cp $50 jr z, .asm_8935d cp $7f jr nz, .asm_89360 dec c jr nz, .asm_89351 .asm_8935d scf jr .asm_89361 .asm_89360 and a .asm_89361 pop bc ret ; 89363 Function89363: ; 89363 ld h, b ld l, c jr .asm_8936b ld hl, $0019 add hl, bc .asm_8936b push de ld e, $6 .asm_8936e ld a, [hli] cp $ff jr nz, .asm_8937e ld a, [hli] cp $ff jr nz, .asm_8937e dec e jr nz, .asm_8936e scf jr .asm_8937f .asm_8937e and a .asm_8937f pop de ret ; 89381 Function89381: ; 89381 push bc push de call Function89b45 jr c, .asm_89392 push hl ld a, $ff ld bc, $0008 call ByteFill pop hl .asm_89392 pop de ld c, $8 call Function89193 pop bc ret ; 8939a Function8939a: ; 8939a push bc ld hl, $0000 add hl, bc ld de, DefaultFlypoint ld c, $6 call Function89193 pop bc ld hl, $0011 add hl, bc ld de, $d008 call Function89381 ret ; 893b3 ; known jump sources: 893e5 (22:53e5) Function893b3: ; 893b3 (22:53b3) call DisableLCD call ClearSprites call Functione51 call Functione5f call Function893ef call Function8942b call Function89455 call EnableLCD ret Function893cc: ; 893cc call DisableLCD call ClearSprites call Functione51 call Functione5f call Function893ef call Function89464 call EnableLCD ret ; 893e2 ; known jump sources: 89b2e (22:5b2e), 89e60 (22:5e60), 89ee4 (22:5ee4), 8a160 (22:6160), 8a265 (22:6265) Function893e2: ; 893e2 (22:53e2) call Function89b1e call Function893b3 call Function8a5b6 call Function8949c ret Function893ef: ; 893ef ld de, VTiles0 ld hl, $540b ld bc, $0020 ld a, $22 call FarCopyBytes ret ; 893fe INCBIN "baserom.gbc",$893fe,$8942b - $893fe ; known jump sources: 893c2 (22:53c2) Function8942b: ; 8942b (22:542b) ld de, $8020 ld hl, $61bf ld bc, $80 ld a, $5e call FarCopyBytes ld de, $80a0 ld hl, $664f ld bc, $40 ld a, $5e call FarCopyBytes ret ; known jump sources: 89b9c (22:5b9c), 89c4a (22:5c4a), 89fe1 (22:5fe1), 8a36a (22:636a), 8a370 (22:6370), 8a6b8 (22:66b8), 8a70a (22:670a), 8a726 (22:6726), 8a745 (22:6745), 8a90f (22:690f), 8aa52 (22:6a52), 8aa61 (22:6a61), 8aa69 (22:6a69), 8b563 (22:7563), 8b595 (22:7595), 8b5b8 (22:75b8), 8b5c9 (22:75c9), 8b610 (22:7610), 8b63d (22:763d) Function89448: ; 89448 (22:5448) push af ld hl, Sprites ; $c400 ld d, $60 xor a .asm_8944f ld [hli], a dec d jr nz, .asm_8944f pop af ret ; known jump sources: 893c5 (22:53c5) Function89455: ; 89455 (22:5455) ld hl, $61bf ld de, $90c0 ld bc, $490 ld a, $5e call FarCopyBytes ret Function89464: ; 89464 ld hl, $59ef ld de, VTiles2 ld bc, $0200 ld a, $5e call FarCopyBytes ld hl, $604f ld de, $9200 ld bc, $0170 ld a, $5e call FarCopyBytes ret ; 89481 Function89481: ; 89481 ld d, $2 call Function8934a ret c ld d, $0 ld hl, $0010 add hl, bc bit 0, [hl] ret z inc d ret ; 89492 ; known jump sources: 8a002 (22:6002), 8aa34 (22:6a34), 8aaa9 (22:6aa9), 8ab47 (22:6b47) Function89492: ; 89492 (22:5492) ld d, $0 ld a, [PlayerGender] ; $d472 bit 0, a ret z inc d ret Function8949c: ; 8949c ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, $54b3 ld de, $d038 ld bc, $0008 call CopyBytes pop af ld [rSVBK], a ret ; 894b3 INCBIN "baserom.gbc",$894b3,$894bb - $894b3 Function894bb: ; 894bb call Function894dc push bc call Function8956f call Function8949c call Function8a60d pop bc ret ; 894ca ; known jump sources: 8a005 (22:6005), 8aa37 (22:6a37), 8aaac (22:6aac), 8ab4a (22:6b4a) Function894ca: ; 894ca (22:54ca) push bc call Function894dc call Function895c7 call Function8949c call Function8a60d call Function32f9 pop bc ret Function894dc: ; 894dc push bc ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld c, d ld b, $0 ld hl, $5509 add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a ld de, Unkn1Pals ld bc, $0018 call CopyBytes ld hl, $5557 ld de, $d018 ld bc, $0018 call CopyBytes pop af ld [rSVBK], a pop bc ret ; 89509 INCBIN "baserom.gbc",$89509,$8956f - $89509 Function8956f: ; 8956f push bc ld hl, $0010 add hl, bc ld d, h ld e, l ld hl, $000c add hl, bc ld b, h ld c, l callba Function4e929 ld a, c ld [TrainerClass], a ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, $d030 ld a, $ff ld [hli], a ld a, $7f ld [hl], a pop af ld [rSVBK], a ld a, [TrainerClass] ld h, $0 ld l, a add hl, hl add hl, hl ld de, $70ce add hl, de ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld de, $d032 ld c, $4 .asm_895b1 ld a, $2 call GetFarByte ld [de], a inc de inc hl dec c jr nz, .asm_895b1 ld hl, $d036 xor a ld [hli], a ld [hl], a pop af ld [rSVBK], a pop bc ret ; 895c7 ; known jump sources: 894ce (22:54ce) Function895c7: ; 895c7 (22:55c7) ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $55de ld de, $d030 ld bc, $8 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 ret ; 895de (22:55de) INCBIN "baserom.gbc",$895de,$895f2 - $895de Function895f2: ; 895f2 push bc xor a ld hl, AttrMap ld bc, $0168 call ByteFill call Function89605 call Function89655 pop bc ret ; 89605 Function89605: ; 89605 ld hl, $ce14 ld a, $1 ld de, $0014 ld c, $e .asm_8960f ld [hl], a dec c jr z, .asm_8961b add hl, de inc a ld [hl], a dec a add hl, de dec c jr nz, .asm_8960f .asm_8961b ld hl, $cf19 ld c, $a ld a, $2 .asm_89622 ld [hli], a dec a ld [hli], a inc a dec c jr nz, .asm_89622 ld hl, $ceb6 ld a, $4 ld bc, $0004 call ByteFill ld a, $5 ld bc, $000e call ByteFill ret ; 8963d Function8963d: ; 8963d ld hl, $ce21 ld a, $6 ld de, $0014 ld bc, $0707 .asm_89648 push hl ld c, $7 .asm_8964b ld [hli], a dec c jr nz, .asm_8964b pop hl add hl, de dec b jr nz, .asm_89648 ret ; 89655 Function89655: ; 89655 ld hl, $ceca ld de, $0014 ld a, $5 ld b, $4 .asm_8965f ld c, $12 push hl .asm_89662 ld [hli], a dec c jr nz, .asm_89662 pop hl add hl, de dec b jr nz, .asm_8965f ret ; 8966c Function8966c: ; 8966c push bc call Function89688 ld hl, $c4a4 ld c, $8 call Function896f5 pop bc ret ; 8967a ; known jump sources: 89885 (22:5885) Function8967a: ; 8967a (22:567a) push bc call Function89688 ld hl, $c4a2 ld c, $c call Function896f5 pop bc ret Function89688: ; 89688 ld hl, TileMap ld a, $1 ld e, $14 call Function896e1 ld a, $2 ld e, $14 call Function896eb ld a, $3 ld [hli], a ld a, $4 ld e, $12 call Function896e1 ld a, $6 ld [hli], a push bc ld c, $d .asm_896a9 call Function896cb dec c jr z, .asm_896b5 call Function896d6 dec c jr nz, .asm_896a9 .asm_896b5 pop bc ld a, $19 ld [hli], a ld a, $1a ld e, $12 call Function896e1 ld a, $1c ld [hli], a ld a, $2 ld e, $14 call Function896eb ret ; 896cb Function896cb: ; 896cb ld de, $0013 ld a, $7 ld [hl], a add hl, de ld a, $9 ld [hli], a ret ; 896d6 Function896d6: ; 896d6 ld de, $0013 ld a, $a ld [hl], a add hl, de ld a, $b ld [hli], a ret ; 896e1 Function896e1: ; 896e1 .asm_896e1 ld [hli], a inc a dec e ret z ld [hli], a dec a dec e jr nz, .asm_896e1 ret ; 896eb Function896eb: ; 896eb .asm_896eb ld [hli], a dec a dec e ret z ld [hli], a inc a dec e jr nz, .asm_896eb ret ; 896f5 Function896f5: ; 896f5 call Function8971f call Function89736 inc hl inc hl ld b, 2 ClearScreenArea: ; 0x896ff ; clears an area of the screen ; INPUT: ; hl = address of upper left corner of the area ; b = height ; c = width ld a, " " ; blank tile ld de, 20 ; screen width .loop push bc push hl .innerLoop ld [hli], a dec c jr nz, .innerLoop pop hl pop bc add hl, de dec b jr nz, .loop dec hl inc c inc c .asm_89713 ld a, $36 ld [hli], a dec c ret z ld a, $18 ld [hli], a dec c jr nz, .asm_89713 ; 0x8971c $f5 ret ; 0x8971f Function8971f: ; 8971f ld a, $2c ld [hli], a ld a, $2d ld [hld], a push hl ld de, $0014 add hl, de ld a, $31 ld [hli], a ld a, $32 ld [hld], a add hl, de ld a, $35 ld [hl], a pop hl ret ; 89736 Function89736: ; 89736 push hl inc hl inc hl ld e, c ld d, $0 add hl, de ld a, $2f ld [hli], a ld a, $30 ld [hld], a ld de, $0014 add hl, de ld a, $33 ld [hli], a ld a, $34 ld [hl], a add hl, de ld a, $1f ld [hl], a pop hl ret ; 89753 Function89753: ; 89753 ld a, $c ld [hl], a xor a call Function89215 ret ; 8975b Function8975b: ; 8975b ld a, $1d ld [hli], a inc a ld [hli], a ld a, $d ld [hl], a dec hl dec hl ld a, $4 ld e, $3 .asm_89769 call Function89215 inc hl dec e jr nz, .asm_89769 ret ; 89771 Function89771: ; 89771 ld a, $12 ld [hl], a ld a, $3 call Function89215 ret ; 8977a Function8977a: ; 8977a ld e, $4 ld d, $13 .asm_8977e ld a, d ld [hl], a ld a, $4 call Function89215 inc hl inc d dec e jr nz, .asm_8977e ld e, $e .asm_8978c ld a, d ld [hl], a xor a call Function89215 inc hl dec e jr nz, .asm_8978c ret ; 89797 Function89797: ; 89797 push bc ld a, $e ld [hl], a ld bc, $0014 add hl, bc ld a, $11 ld [hli], a ld a, $10 ld c, $8 .asm_897a6 ld [hli], a dec c jr nz, .asm_897a6 ld a, $f ld [hl], a pop bc ret ; 897af Function897af: ; 897af push bc ld hl, $0010 add hl, bc ld d, h ld e, l ld hl, $000c add hl, bc ld b, h ld c, l callba Function4e929 ld a, c ld [TrainerClass], a xor a ld [CurPartySpecies], a ld de, $9370 callba Function5120d pop bc ret ; 897d5 Function897d5: ; 897d5 push bc call Function8934a jr nc, .asm_897f3 ld hl, $ce21 xor a ld de, $0014 ld bc, $0707 .asm_897e5 push hl ld c, $7 .asm_897e8 ld [hli], a dec c jr nz, .asm_897e8 pop hl add hl, de dec b jr nz, .asm_897e5 pop bc ret .asm_897f3 ld a, $37 ld [$ffad], a ld hl, $c4e8 ld bc, $0707 ld a, $13 call Predef call Function8963d pop bc ret ; 89807 ; known jump sources: 89fff (22:5fff), 8aa31 (22:6a31), 8aaa6 (22:6aa6), 8ab44 (22:6b44) Function89807: ; 89807 (22:5807) ld hl, $5bef ld a, [PlayerGender] ; $d472 bit 0, a jr z, .asm_89814 ld hl, $5e1f .asm_89814 call DisableLCD ld de, $9370 ld bc, $230 ld a, $5e call FarCopyBytes call EnableLCD call DelayFrame ret ; known jump sources: 89894 (22:5894) Function89829: ; 89829 (22:5829) push bc ld bc, $705 ld de, $14 ld a, $37 .asm_89832 push bc push hl .asm_89834 ld [hli], a inc a dec c jr nz, .asm_89834 pop hl add hl, de pop bc dec b jr nz, .asm_89832 call Function8963d pop bc ret Function89844: ; 89844 call Function89481 call Function894bb call Function897af push bc call Function3200 call Function32f9 pop bc ret ; 89856 Function89856: ; 89856 push bc call Function891b8 pop bc call Function895f2 call Function8966c call Function899d3 call Function898aa call Function898be call Function898dc call Function898f3 push bc ld bc, $d008 ld hl, $c56a call Function89975 pop bc call Function897d5 ret ; 8987f ; known jump sources: 8a022 (22:6022), 8aa3a (22:6a3a), 8ab5c (22:6b5c) Function8987f: ; 8987f (22:587f) call Function891b8 call Function895f2 call Function8967a call Function899d3 ld hl, $c4b9 call Function8999c ld hl, $c4e9 call Function89829 call Function899b2 ld hl, $c509 call Function899c9 ld bc, $d008 ld hl, $c56a call Function89975 ret Function898aa: ; 898aa ld a, [MenuSelection] and a ret z push bc ld hl, $c4ba ld de, MenuSelection ld bc, $8102 call PrintNum pop bc ret ; 898be Function898be: ; 898be push bc ld de, DefaultFlypoint ld hl, DefaultFlypoint call Function89331 jr nc, .asm_898cd ld de, $5116 .asm_898cd ld hl, $c4bd ld a, [MenuSelection] and a jr nz, .asm_898d7 dec hl .asm_898d7 call PlaceString pop bc ret ; 898dc Function898dc: ; 898dc ld hl, $0006 add hl, bc push bc ld d, h ld e, l call Function8934a jr nc, .asm_898eb ld de, $5116 .asm_898eb ld hl, $c4f6 call PlaceString pop bc ret ; 898f3 Function898f3: ; 898f3 push bc ld hl, $000c add hl, bc ld d, h ld e, l call Function8934a jr c, .asm_8990a ld hl, $c509 ld bc, $8205 call PrintNum jr .asm_89913 .asm_8990a ld hl, $c509 ld de, $5116 call PlaceString .asm_89913 pop bc ret ; 89915 Function89915: ; 89915 push bc push hl ld de, $5942 ld c, $8 .asm_8991c ld a, [de] ld [hl], a ld a, $4 call Function89215 inc hl inc de dec c jr nz, .asm_8991c pop hl ld b, $4 ld c, $2b ld a, $8 ld de, $594a .asm_89932 push af ld a, [de] cp [hl] jr nz, .asm_8993b call Function8994e inc de .asm_8993b inc hl pop af dec a jr nz, .asm_89932 pop bc ret ; 89942 INCBIN "baserom.gbc",$89942,$8994e - $89942 Function8994e: ; 8994e push hl push de ld de, $0014 ld a, l sub e ld l, a ld a, h sbc d ld h, a ld a, c ld [hl], a ld a, b call Function89215 pop de pop hl ret ; 89962 Function89962: ; 89962 push bc ld c, $4 ld b, $20 .asm_89967 ld a, b ld [hl], a ld a, $4 call Function89215 inc hl inc b dec c jr nz, .asm_89967 pop bc ret ; 89975 Function89975: ; 89975 push bc ld e, $8 .asm_89978 ld a, [bc] ld d, a call Function8998b swap d inc hl ld a, d call Function8998b inc bc inc hl dec e jr nz, .asm_89978 pop bc ret ; 8998b Function8998b: ; 8998b push bc and $f cp $a jr nc, .asm_89997 ld c, $f6 add c jr .asm_89999 .asm_89997 ld a, $7f .asm_89999 ld [hl], a pop bc ret ; 8999c ; known jump sources: 8988e (22:588e) Function8999c: ; 8999c (22:599c) ld de, PlayerName ; $d47d call PlaceString inc bc ld h, b ld l, c ld de, $59ac call PlaceString ret ; 899ac (22:59ac) INCBIN "baserom.gbc",$899ac,$899b2 - $899ac ; known jump sources: 89897 (22:5897) Function899b2: ; 899b2 (22:59b2) ld bc, PlayerName ; $d47d call Function89346 jr c, .asm_899bf ld de, PlayerName ; $d47d jr .asm_899c2 .asm_899bf ld de, $5116 .asm_899c2 ld hl, $c4f6 call PlaceString ret ; known jump sources: 8989d (22:589d) Function899c9: ; 899c9 (22:59c9) ld de, PlayerID ; $d47b ld bc, $8205 call PrintNum ret Function899d3: ; 899d3 ld hl, $c4f1 call Function89753 ld hl, $c506 call Function8975b ld hl, $c555 call Function89771 ld hl, $c57d call Function8977a ld hl, $c505 call Function89797 ld hl, $c4f2 call Function89962 ld hl, $c556 call Function89915 ret ; 899fe Function899fe: ; 899fe push bc push hl ld hl, $0019 add hl, bc ld b, h ld c, l pop hl call Function89a0c pop bc ret ; 89a0c Function89a0c: ; 89a0c push hl call Function89363 pop hl jr c, .asm_89a1c ld d, h ld e, l callba Function11c08f ret .asm_89a1c ld de, $5153 call PlaceString ret ; 89a23 ; known jump sources: 8a729 (22:6729), 8a818 (22:6818), 8a8ac (22:68ac), 8a8fa (22:68fa), 8aab6 (22:6ab6), 8ab24 (22:6b24) Function89a23: ; 89a23 (22:5a23) ld hl, $c57c ld b, $4 ld c, $12 call Function8921f ret ; known jump sources: 8a6ee (22:66ee), 8a80d (22:680d), 8aa3d (22:6a3d) Function89a2e: ; 89a2e (22:5a2e) ld hl, $c59b ld b, $2 ld c, $6 call TextBox ld hl, $c5b1 ld de, $5a4e call PlaceString ld hl, $c5c5 ld de, $5a53 call PlaceString call Function89655 ret ; 89a4e (22:5a4e) INCBIN "baserom.gbc",$89a4e,$89a57 - $89a4e Function89a57: ; 89a57 call Function354b bit 6, c jr nz, .asm_89a78 bit 7, c jr nz, .asm_89a81 bit 0, c jr nz, .asm_89a70 bit 1, c jr nz, .asm_89a70 bit 3, c jr nz, .asm_89a74 scf ret .asm_89a70 ld a, $1 and a ret .asm_89a74 ld a, $2 and a ret .asm_89a78 call Function89a9b call nc, Function89a8a ld a, $0 ret .asm_89a81 call Function89a93 call nc, Function89a8a ld a, $0 ret ; 89a8a Function89a8a: ; 89a8a push af ld de, $0062 call PlaySFX pop af ret ; 89a93 Function89a93: ; 89a93 ld d, $28 ld e, $1 call Function89aa3 ret ; 89a9b Function89a9b: ; 89a9b ld d, $1 ld e, $ff call Function89aa3 ret ; 89aa3 Function89aa3: ; 89aa3 ld a, [MenuSelection] ld c, a push bc .asm_89aa8 ld a, [MenuSelection] cp d jr z, .asm_89ac0 add e jr nz, .asm_89ab2 inc a .asm_89ab2 ld [MenuSelection], a call Function89ac7 jr nc, .asm_89aa8 call Function89ae6 pop bc and a ret .asm_89ac0 pop bc ld a, c ld [MenuSelection], a scf ret ; 89ac7 Function89ac7: ; 89ac7 call Function89160 call Function8931b call Function89ad4 call CloseSRAM ret ; 89ad4 Function89ad4: ; 89ad4 push de call Function8932d jr c, .asm_89ae3 ld hl, $0011 add hl, bc call Function89b45 jr c, .asm_89ae4 .asm_89ae3 and a .asm_89ae4 pop de ret ; 89ae6 Function89ae6: ; 89ae6 ld hl, $d031 xor a ld [hl], a ld a, [MenuSelection] .asm_89aee cp $6 jr c, .asm_89afc sub $5 ld c, a ld a, [hl] add $5 ld [hl], a ld a, c jr .asm_89aee .asm_89afc ld [$d030], a ret ; 89b00 ; known jump sources: 89b24 (22:5b24) Function89b00: ; 89b00 (22:5b00) callba Function49351 ret ; 89b07 (22:5b07) INCBIN "baserom.gbc",$89b07,$89b1e - $89b07 ; known jump sources: 893e2 (22:53e2) Function89b1e: ; 89b1e (22:5b1e) callba Function4a485 call Function89b00 ret ; known jump sources: 8a24f (22:624f), 8a66d (22:666d), 8a9b5 (22:69b5), 8aba5 (22:6ba5) Function89b28: ; 89b28 (22:5b28) call Function891de call WhiteBGMap call Function893e2 call Function1d7d call Function891ab call Function32f9 ret ; known jump sources: 8a182 (22:6182), 8a3c6 (22:63c6), 8a3d5 (22:63d5), 8a9d6 (22:69d6), 8b4bd (22:74bd) Function89b3b: ; 89b3b (22:5b3b) call Function8923c callba Function48cda ret Function89b45: ; 89b45 push hl push bc ld c, $10 ld e, $0 .asm_89b4b ld a, [hli] ld b, a and $f cp $a jr c, .asm_89b5a ld a, c cp $b jr nc, .asm_89b74 jr .asm_89b71 .asm_89b5a dec c swap b inc e ld a, b and $f cp $a jr c, .asm_89b6c ld a, c cp $b jr nc, .asm_89b74 jr .asm_89b71 .asm_89b6c inc e dec c jr nz, .asm_89b4b dec e .asm_89b71 scf jr .asm_89b75 .asm_89b74 and a .asm_89b75 pop bc pop hl ret ; 89b78 ; known jump sources: 8b47a (22:747a) Function89b78: ; 89b78 (22:5b78) push bc ld a, [$d010] cp $10 jr c, .asm_89b8c ld a, e and a jr z, .asm_89b89 ld c, e .asm_89b85 inc hl dec c jr nz, .asm_89b85 .asm_89b89 ld a, $7f ld [hl], a .asm_89b8c ld a, [$d010] inc a and $1f ld [$d010], a pop bc ret ; known jump sources: 8a6fb (22:66fb), 8aa43 (22:6a43) Function89b97: ; 89b97 (22:5b97) call Function89c34 jr c, .asm_89ba0 call Function89448 ret .asm_89ba0 ld a, [$d011] ld hl, $5bd8 and a jr z, .asm_89bae .asm_89ba9 inc hl inc hl dec a jr nz, .asm_89ba9 .asm_89bae ld a, [hli] ld h, [hl] ld l, a ld de, Sprites ; $c400 .asm_89bb4 ld a, [hli] cp $ff ret z ld c, a ld b, $0 .asm_89bbb push hl ld a, [hli] ld [de], a inc de ld a, [hli] add b ld [de], a inc de ld a, $8 add b ld b, a ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de pop hl dec c jr nz, .asm_89bbb ld b, $0 ld c, $4 add hl, bc jr .asm_89bb4 ; 89bd8 (22:5bd8) INCBIN "baserom.gbc",$89bd8,$89c34 - $89bd8 ; known jump sources: 89b97 (22:5b97), 89c44 (22:5c44) Function89c34: ; 89c34 (22:5c34) push bc ld a, [$d012] ld c, a inc a and $f ld [$d012], a ld a, c cp $8 pop bc ret ; known jump sources: 8b481 (22:7481), 8b54e (22:754e), 8b5ff (22:75ff) Function89c44: ; 89c44 (22:5c44) call Function89c34 jr c, .asm_89c4f push de call Function89448 pop de ret .asm_89c4f ld hl, Sprites ; $c400 push de ld a, b ld [hli], a ld d, $8 ld a, e and a ld a, c jr z, .asm_89c60 .asm_89c5c add d dec e jr nz, .asm_89c5c .asm_89c60 pop de ld [hli], a ld a, d ld [hli], a xor a ld [hli], a ret ; known jump sources: 8a6fe (22:66fe), 8aa46 (22:6a46) Function89c67: ; 89c67 (22:5c67) call Function354b ld b, $0 bit 0, c jr z, .asm_89c74 ld b, $1 and a ret .asm_89c74 bit 1, c jr z, .asm_89c7a scf ret .asm_89c7a xor a bit 6, c jr z, .asm_89c81 ld a, $1 .asm_89c81 bit 7, c jr z, .asm_89c87 ld a, $2 .asm_89c87 bit 5, c jr z, .asm_89c8d ld a, $3 .asm_89c8d bit 4, c jr z, .asm_89c93 ld a, $4 .asm_89c93 and a ret z dec a ld c, a ld d, $0 ld hl, $5cbf ld a, [$d02f] and a jr z, .asm_89ca5 ld hl, $5ccf .asm_89ca5 ld a, [$d011] and a jr z, .asm_89cb1 ld e, $4 .asm_89cad add hl, de dec a jr nz, .asm_89cad .asm_89cb1 ld e, c add hl, de ld a, [hl] and a ret z dec a ld [$d011], a xor a ld [$d012], a ret ; 89cbf (22:5cbf) INCBIN "baserom.gbc",$89cbf,$89cdf - $89cbf ; known jump sources: 8a50e (22:650e) Function89cdf: ; 89cdf (22:5cdf) ld a, $10 add b ld b, a ld a, $8 add c ld c, a ld e, $2 ld a, $2 ld hl, Sprites ; $c400 .asm_89cee push af push bc ld d, $4 .asm_89cf2 ld a, b ld [hli], a ld a, c ld [hli], a ld a, e ld [hli], a ld a, $1 ld [hli], a ld a, $8 add c ld c, a inc e dec d jr nz, .asm_89cf2 pop bc ld a, $8 add b ld b, a pop af dec a jr nz, .asm_89cee ret ; known jump sources: 8a6c8 (22:66c8), 8ab89 (22:6b89) Function89d0d: ; 89d0d (22:5d0d) call Function8923c ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld c, $8 ld de, Unkn1Pals ; $d000 .asm_89d1c push bc ld hl, $5d4e ld bc, $8 call CopyBytes pop bc dec c jr nz, .asm_89d1c ld hl, $5d56 ld de, $d010 ld bc, $8 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 call Function32f9 callba Function845db call Function89240 ld c, $18 call DelayFrames call Function3d47 ret ; 89d4e (22:5d4e) INCBIN "baserom.gbc",$89d4e,$89d5e - $89d4e ; known jump sources: 8a18b (22:618b), 8a9de (22:69de), 8b989 (22:7989) Function89d5e: ; 89d5e (22:5d5e) push af call Function1d3c pop af ld [$cf88], a call Function8923c call Function1c89 call Function1c10 ld hl, $cfa5 set 7, [hl] ret ; known jump sources: 8a191 (22:6191) Function89d75: ; 89d75 (22:5d75) push hl call Function8923c call _hl_ callba Function104148 pop hl jr asm_89d90 ; known jump sources: 8a9e4 (22:69e4), 8b98f (22:798f) Function89d85: ; 89d85 (22:5d85) push hl call Function8923c call _hl_ call Function3238 pop hl ; known jump sources: 89d83 (22:5d83), 89da5 (22:5da5) asm_89d90: ; 89d90 (22:5d90) call Function8923c push hl call _hl_ call Function89dab ld a, [$cfa9] push af call Function891ab pop af pop hl jr c, .asm_89da9 jr z, asm_89d90 scf ret .asm_89da9 and a ret ; known jump sources: 89d97 (22:5d97) Function89dab: ; 89dab (22:5dab) call Function8923c callba Function241ba call Function8923c ld a, c ld hl, $cfa8 and [hl] ret z bit 0, a jr nz, .asm_89dc7 bit 1, a jr nz, .asm_89dd9 xor a ret .asm_89dc7 call PlayClickSFX ld a, [$cfa3] ld c, a ld a, [$cfa9] cp c jr z, .asm_89dd9 call Function1bee scf ret .asm_89dd9 call PlayClickSFX ld a, $1 and a ret ; no known jump sources Function89de0: ; 89de0 (22:5de0) call ClearSprites call Function89e0a jr c, .asm_89e00 ld c, $1 .asm_89dea call Function8a31c jr z, .asm_89dfd ld a, [$cfa9] ld c, a push bc ld hl, $5e04 ld a, e dec a rst $28 pop bc jr .asm_89dea .asm_89dfd call Function891fe .asm_89e00 call Function8917a ret ; no known jump sources Jumptable_89e04: ; 89e04 (22:5e04) dw Function8a62c dw Function8a999 dw Function8ab93 ; known jump sources: 89de3 (22:5de3) Function89e0a: ; 89e0a (22:5e0a) call Function89160 call Function8b3b0 call CloseSRAM ld hl, $5e18 rst $28 ret ; no known jump sources Jumptable_89e18: ; 89e18 (22:5e18) dw Function89e1e dw Function8a116 dw Function8a2aa ; no known jump sources Function89e1e: ; 89e1e (22:5e1e) call Function89160 ld bc, $a037 call Function8b36c call CloseSRAM xor a ld [$d02d], a ; known jump sources: 89e3a (22:5e3a) asm_89e2e: ; 89e2e (22:5e2e) ld a, [$d02d] ld hl, $5e3c rst $28 ret ; known jump sources: 89e97 (22:5e97), 89ede (22:5ede), 89f67 (22:5f67), 89fea (22:5fea), 89ff3 (22:5ff3), 8a03a (22:603a), 8a049 (22:6049), 8a052 (22:6052), 8a09e (22:609e), 8a0e9 (22:60e9), 8a0f2 (22:60f2), 8a0ff (22:60ff) Function89e36: ; 89e36 (22:5e36) ld hl, $d02d inc [hl] jr asm_89e2e ; no known jump sources Jumptable_89e3c: ; 89e3c (22:5e3c) dw Function89e6f dw Function89fed dw Function89ff6 dw Function8a03d dw Function89eb9 dw Function89efd dw Function89fce dw Function8a04c dw Function8a055 dw Function8a0e6 dw Function8a0ec dw Function8a0f5 dw Function89e58 dw Function89e68 ; no known jump sources Function89e58: ; 89e58 (22:5e58) ld a, $1 call Function8a2fe call Function891fe call Function893e2 call Function89168 and a ret ; no known jump sources Function89e68: ; 89e68 (22:5e68) call Function891fe ld a, $1 scf ret ; no known jump sources Function89e6f: ; 89e6f (22:5e6f) call Function891de call Function89245 call Function89ee1 call Function89e9a ld hl, $c4f7 call Function8a58d ld a, $5 ld hl, $ce30 call Function8a5a3 ld a, $6 ld hl, $ce33 call Function8a5a3 call Function891ab call Function32f9 jp Function89e36 ; known jump sources: 89e78 (22:5e78), 89ebf (22:5ebf) Function89e9a: ; 89e9a (22:5e9a) ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $5eb1 ld de, $d028 ld bc, $8 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 ret ; 89eb1 (22:5eb1) INCBIN "baserom.gbc",$89eb1,$89eb9 - $89eb1 ; no known jump sources Function89eb9: ; 89eb9 (22:5eb9) call Function891fe call Function89ee1 call Function89e9a ld hl, $c4f7 call Function8a58d ld a, $5 ld hl, $ce30 call Function8a5a3 ld a, $6 ld hl, $ce33 call Function8a5a3 call Function891ab call Function32f9 jp Function89e36 ; known jump sources: 89e75 (22:5e75), 89ebc (22:5ebc) Function89ee1: ; 89ee1 (22:5ee1) call WhiteBGMap call Function893e2 call Function8923c callba Function4a3a7 callba Function49384 ld hl, $c4a1 call Function8a53d ret ; no known jump sources Function89efd: ; 89efd (22:5efd) ld hl, $d012 ld a, $ff ld [hli], a xor a ld [hli], a ld [hli], a ld [hli], a ld [hli], a ld [hl], a .asm_89f09 ld hl, $d012 inc [hl] ld a, [hli] and $3 jr nz, .asm_89f2e ld a, [hl] cp $4 jr nc, .asm_89f2e ld b, $32 inc [hl] ld a, [hl] dec a jr z, .asm_89f26 ld c, a .asm_89f1f ld a, $b add b ld b, a dec c jr nz, .asm_89f1f .asm_89f26 ld c, $e8 ld a, [$d013] call Function89fa5 .asm_89f2e ld a, [$d013] and a jr z, .asm_89f58 .asm_89f34 call Function89f6a ld e, a ld a, c cp $a8 jr nc, .asm_89f4d cp $46 jr c, .asm_89f4d ld d, $0 dec e ld hl, $d014 add hl, de set 0, [hl] inc e jr .asm_89f51 .asm_89f4d ld a, $2 add c ld c, a .asm_89f51 ld a, e call Function89f77 dec a jr nz, .asm_89f34 .asm_89f58 call DelayFrame ld hl, $d014 ld c, $4 .asm_89f60 ld a, [hli] and a jr z, .asm_89f09 dec c jr nz, .asm_89f60 jp Function89e36 ; known jump sources: 89f34 (22:5f34) Function89f6a: ; 89f6a (22:5f6a) push af ld de, $10 call Function89f9a ld a, [hli] ld b, a ld a, [hl] ld c, a pop af ret ; known jump sources: 89f52 (22:5f52) Function89f77: ; 89f77 (22:5f77) push af ld de, $10 call Function89f9a ld d, $2 .asm_89f80 push bc ld e, $2 .asm_89f83 ld a, b ld [hli], a ld a, c ld [hli], a inc hl inc hl ld a, $8 add c ld c, a dec e jr nz, .asm_89f83 pop bc ld a, $8 add b ld b, a dec d jr nz, .asm_89f80 pop af ret ; known jump sources: 89f6e (22:5f6e), 89f7b (22:5f7b), 89fa8 (22:5fa8) Function89f9a: ; 89f9a (22:5f9a) dec a ld hl, Sprites ; $c400 and a ret z .asm_89fa0 add hl, de dec a jr nz, .asm_89fa0 ret ; known jump sources: 89f2b (22:5f2b) Function89fa5: ; 89fa5 (22:5fa5) ld de, $10 call Function89f9a ld e, $2 ld d, $a .asm_89faf push bc ld a, $2 .asm_89fb2 push af ld a, b ld [hli], a ld a, c ld [hli], a ld a, d inc d ld [hli], a ld a, $1 ld [hli], a ld a, $8 add c ld c, a pop af dec a jr nz, .asm_89fb2 pop bc ld a, $8 add b ld b, a dec e jr nz, .asm_89faf ret ; no known jump sources Function89fce: ; 89fce (22:5fce) call Function8a5b6 ld a, $5 ld hl, $ce30 call Function8a5a3 ld a, $6 ld hl, $ce33 call Function8a5a3 call Function89448 call Function32f9 call Function891ab jp Function89e36 ; no known jump sources Function89fed: ; 89fed (22:5fed) ld hl, $6102 call PrintText jp Function89e36 ; no known jump sources Function89ff6: ; 89ff6 (22:5ff6) call Function891fe call WhiteBGMap call Function893cc call Function89807 call Function89492 call Function894ca call Function89160 ld hl, $a603 ld a, $ff ld bc, $8 call ByteFill ld hl, $a603 ld de, $d008 call Function89381 call CloseSRAM call Function8987f call Function89160 ld hl, $c5a5 ld bc, $a007 call Function89a0c call CloseSRAM call Function891ab call Function89235 jp Function89e36 ; no known jump sources Function8a03d: ; 8a03d (22:603d) ld hl, $6107 call Function89209 call PrintText call Function8920f jp Function89e36 ; no known jump sources Function8a04c: ; 8a04c (22:604c) ld hl, $610c call PrintText jp Function89e36 ; no known jump sources Function8a055: ; 8a055 (22:6055) ld c, $7 ld b, $4 .asm_8a059 call Function8a0a1 inc c call Function8a0c9 push bc call Function8a58d pop bc call Function8a0de push bc push hl ld a, $5 call Function8a5a3 pop hl inc hl inc hl inc hl ld a, $6 call Function8a5a3 call Function3238 pop bc ld a, c cp $b jr nz, .asm_8a059 call Function8a0a1 ld hl, $c4fc call Function8a58d ld a, $5 ld hl, $ce35 call Function8a5a3 pop hl ld a, $6 ld hl, $ce38 call Function8a5a3 call Function3238 jp Function89e36 ; known jump sources: 8a059 (22:6059), 8a081 (22:6081) Function8a0a1: ; 8a0a1 (22:60a1) call Function8923c push bc call Function8a0c9 ld e, $6 .asm_8a0aa push hl ld bc, $6 add hl, bc ld d, [hl] call Function8a0c1 pop hl ld [hl], d call Function89215 ld bc, $14 add hl, bc dec e jr nz, .asm_8a0aa pop bc ret ; known jump sources: 8a0b0 (22:60b0) Function8a0c1: ; 8a0c1 (22:60c1) push hl ld bc, $939 add hl, bc ld a, [hl] pop hl ret ; known jump sources: 8a05d (22:605d), 8a0a5 (22:60a5), 8a0de (22:60de) Function8a0c9: ; 8a0c9 (22:60c9) push bc ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld de, $14 ld a, b and a jr z, .asm_8a0d8 .asm_8a0d4 add hl, de dec b jr nz, .asm_8a0d4 .asm_8a0d8 ld d, $0 ld e, c add hl, de pop bc ret ; known jump sources: 8a065 (22:6065) Function8a0de: ; 8a0de (22:60de) call Function8a0c9 ld de, $939 add hl, de ret ; no known jump sources Function8a0e6: ; 8a0e6 (22:60e6) call Function8b539 jp Function89e36 ; no known jump sources Function8a0ec: ; 8a0ec (22:60ec) ld hl, $6111 call PrintText jp Function89e36 ; no known jump sources Function8a0f5: ; 8a0f5 (22:60f5) call Function8b555 jp nc, Function8a0ff ld hl, $d02d inc [hl] ; known jump sources: 8a0f8 (22:60f8) Function8a0ff: ; 8a0ff (22:60ff) jp Function89e36 ; 8a102 (22:6102) INCBIN "baserom.gbc",$8a102,$8a116 - $8a102 ; no known jump sources Function8a116: ; 8a116 (22:6116) ld a, $1 ld [$d030], a ld hl, $6176 call LoadMenuDataHeader .asm_8a121 call Function8923c call Function8a17b jr c, .asm_8a16b ld a, [$cfa9] ld [$d030], a dec d jr z, .asm_8a140 call Function8a20d jr c, .asm_8a121 xor a call Function8a2fe call Function8916e jr .asm_8a16b .asm_8a140 call Function89174 jr nz, .asm_8a14c call Function8a241 jr c, .asm_8a121 jr .asm_8a15a .asm_8a14c call WaitSFX ld de, $ce call PlaySFX ld c, $10 call DelayFrames .asm_8a15a call Function1c07 call Function891de call Function893e2 call Function89245 call Function89168 and a ret .asm_8a16b call Function89209 call Function1c17 call Function8920f scf ret ; 8a176 (22:6176) INCBIN "baserom.gbc",$8a176,$8a17b - $8a176 ; known jump sources: 8a124 (22:6124) Function8a17b: ; 8a17b (22:617b) ld de, $c4ae ld b, $5 ld c, $4 call Function89b3b ld hl, $619a ld a, [$d030] call Function89d5e ld hl, $61b0 call Function89d75 jr nc, .asm_8a198 ld a, $0 .asm_8a198 ld d, a ret ; 8a19a (22:619a) INCBIN "baserom.gbc",$8a19a,$8a20d - $8a19a ; known jump sources: 8a132 (22:6132), 8a2ca (22:62ca) Function8a20d: ; 8a20d (22:620d) ld hl, $6232 call PrintText ld a, $2 call Function89259 ret c ld hl, $6237 call PrintText ld a, $2 call Function89259 ret c xor a call Function8a2fe ld hl, $623c call PrintText xor a and a ret ; 8a232 (22:6232) INCBIN "baserom.gbc",$8a232,$8a241 - $8a232 ; known jump sources: 8a145 (22:6145), 8a2d2 (22:62d2) Function8a241: ; 8a241 (22:6241) call Function1d6e call Function891fe call Function8a262 jr nc, .asm_8a254 call Function891fe call Function89b28 scf ret .asm_8a254 call Function891de call WhiteBGMap call Function1d7d call Function891de and a ret ; known jump sources: 8a247 (22:6247) Function8a262: ; 8a262 (22:6262) call WhiteBGMap call Function893e2 call Function8923c callba Function4a3a7 callba Function49384 ld hl, $c4a1 call Function8a53d ld hl, $c4fc call Function8a58d ld a, $5 ld hl, $ce35 call Function8a5a3 ld a, $6 ld hl, $ce38 call Function8a5a3 xor a ld [$d02e], a ld bc, $d013 call Function8b36c call Function8b493 call Function891ab call Function32f9 call Function8b5e7 ret ; no known jump sources Function8a2aa: ; 8a2aa (22:62aa) ld hl, $62ef call LoadMenuDataHeader ld hl, $62f4 call PrintText ld a, $1 call Function89259 jr nc, .asm_8a2cf ld hl, $62f9 call PrintText ld a, $2 call Function89259 jr c, .asm_8a2ea call Function8a20d jr .asm_8a2ea .asm_8a2cf call Function1c07 call Function8a241 jr c, .asm_8a2ed ld a, $1 call Function8a313 call CloseSRAM call Function891de call Function89245 call Function89168 and a ret .asm_8a2ea call Function1c17 .asm_8a2ed scf ret ; 8a2ef (22:62ef) INCBIN "baserom.gbc",$8a2ef,$8a2fe - $8a2ef ; known jump sources: 89e5a (22:5e5a), 8a138 (22:6138), 8a226 (22:6226) Function8a2fe: ; 8a2fe (22:62fe) call Function8a313 call Function89305 ld hl, $a603 ld bc, $8 ld a, $ff call ByteFill call CloseSRAM ret ; known jump sources: 8a2d9 (22:62d9), 8a2fe (22:62fe) Function8a313: ; 8a313 (22:6313) ld c, a call Function89160 ld a, c ld [$a60b], a ret ; known jump sources: 89dea (22:5dea) Function8a31c: ; 8a31c (22:631c) push bc call Function8923c callba Function4a3a7 callba Function49384 ld hl, $c4a1 call Function8a53d ld hl, $c4fc call Function8a58d call Function8a3b2 pop bc ld a, c ld [$cf88], a ld [MenuSelection], a ; $cf74 call Function1c89 call Function1c10 ld hl, $cfa5 set 7, [hl] .asm_8a34e call Function8a3a2 call Function8923c call Function8a453 call Function8a4d3 call Function8a4fc call Function891ab call Function32f9 call Function8a383 jr c, .asm_8a370 jr z, .asm_8a34e .asm_8a36a call Function89448 xor a ld e, a ret .asm_8a370 call Function89448 call Function1bee call Function8a3a2 ld a, [MenuSelection] ; $cf74 cp $ff jr z, .asm_8a36a ld e, a and a ret ; known jump sources: 8a363 (22:6363) Function8a383: ; 8a383 (22:6383) callba Function241ba ld a, c ld hl, $cfa8 and [hl] ret z bit 0, a jr nz, .asm_8a399 bit 1, a jr nz, .asm_8a39e xor a ret .asm_8a399 call PlayClickSFX scf ret .asm_8a39e call PlayClickSFX ret ; known jump sources: 8a34e (22:634e), 8a376 (22:6376) Function8a3a2: ; 8a3a2 (22:63a2) ld a, [$cfa9] dec a ld hl, DefaultFlypoint ; $d002 ld e, a ld d, $0 add hl, de ld a, [hl] ld [MenuSelection], a ; $cf74 ret ; known jump sources: 8a338 (22:6338) Function8a3b2: ; 8a3b2 (22:63b2) ld a, $1 ld [MenuSelection], a ; $cf74 call Function8a4fc call Function8a3df jr nc, .asm_8a3ce ld de, $c4c8 ld b, $6 ld c, $9 call Function89b3b ld hl, $6435 jr .asm_8a3db .asm_8a3ce ld de, $c4c8 ld b, $8 ld c, $9 call Function89b3b ld hl, $640f .asm_8a3db call Function1d3c ret ; known jump sources: 8a3ba (22:63ba) Function8a3df: ; 8a3df (22:63df) call Function89160 ld hl, $a603 call Function89b45 call CloseSRAM ld hl, DefaultFlypoint ; $d002 jr c, .asm_8a3f8 ld de, $6408 call Function8a400 scf ret .asm_8a3f8 ld de, $640b call Function8a400 and a ret ; known jump sources: 8a3f3 (22:63f3), 8a3fb (22:63fb), 8a405 (22:6405) Function8a400: ; 8a400 (22:6400) ld a, [de] inc de ld [hli], a cp $ff jr nz, Function8a400 ret ; 8a408 (22:6408) INCBIN "baserom.gbc",$8a408,$8a453 - $8a408 ; known jump sources: 8a354 (22:6354) Function8a453: ; 8a453 (22:6453) ld hl, $c590 ld b, $4 ld c, $12 call TextBox ld hl, $c5b9 ld de, $6476 ld a, [MenuSelection] ; $cf74 cp $ff jr z, .asm_8a472 ld de, $6483 dec a ld c, a call Function8919e .asm_8a472 call PlaceString ret ; 8a476 (22:6476) INCBIN "baserom.gbc",$8a476,$8a4d3 - $8a476 ; known jump sources: 8a357 (22:6357) Function8a4d3: ; 8a4d3 (22:64d3) ld a, [MenuSelection] ; $cf74 cp $1 jr nz, .asm_8a4eb ld a, $5 ld hl, $ce35 call Function8a5a3 ld a, $7 ld hl, $ce38 call Function8a5a3 ret .asm_8a4eb ld a, $7 ld hl, $ce35 call Function8a5a3 ld a, $6 ld hl, $ce38 call Function8a5a3 ret ; known jump sources: 8a35a (22:635a), 8a3b7 (22:63b7) Function8a4fc: ; 8a4fc (22:64fc) ld a, [MenuSelection] ; $cf74 cp $3 jr nz, asm_8a529 ld hl, $d012 ld a, [hli] ld b, a ld a, [hld] add b ld [hl], a ld b, a ld c, $80 call Function89cdf call Function8a515 ret ; known jump sources: 8a511 (22:6511) Function8a515: ; 8a515 (22:6515) ld hl, $d012 ld a, [hl] cp $38 jr c, .asm_8a520 cp $3c ret c .asm_8a520 ld a, [$d013] cpl inc a ld [$d013], a ret ; known jump sources: 8a501 (22:6501) asm_8a529: ; 8a529 (22:6529) ld hl, $d012 ld a, $3c ld [hli], a ld a, $ff ld [hli], a ld hl, Sprites ; $c400 xor a ld bc, $20 call ByteFill ret ; known jump sources: 89ef9 (22:5ef9), 8a27a (22:627a), 8a32f (22:632f) Function8a53d: ; 8a53d (22:653d) push hl ld a, $15 ld c, $8 ld de, $14 call Function8a573 ld a, $1d ld c, $9 call Function8a57c inc a ld [hl], a call Function8a584 pop hl add hl, de ld a, $1f ld c, $8 call Function8a573 dec hl ld a, $51 ld [hli], a ld a, $26 ld c, $1 call Function8a57c ld a, $52 ld c, $3 call Function8a573 ld a, $27 ld c, $6 ; known jump sources: 8a545 (22:6545), 8a55a (22:655a), 8a56c (22:656c), 8a579 (22:6579) Function8a573: ; 8a573 (22:6573) ld [hl], a call Function8a584 inc a dec c jr nz, Function8a573 ret ; known jump sources: 8a54c (22:654c), 8a565 (22:6565), 8a581 (22:6581) Function8a57c: ; 8a57c (22:657c) ld [hl], a call Function8a584 dec c jr nz, Function8a57c ret ; known jump sources: 8a551 (22:6551), 8a574 (22:6574), 8a57d (22:657d) Function8a584: ; 8a584 (22:6584) push af ld a, $4 call Function89215 inc hl pop af ret ; known jump sources: 89e7e (22:5e7e), 89ec5 (22:5ec5), 8a061 (22:6061), 8a087 (22:6087), 8a280 (22:6280), 8a335 (22:6335) Function8a58d: ; 8a58d (22:658d) ld a, $2d ld bc, $606 ld de, $14 .asm_8a595 push bc push hl .asm_8a597 ld [hli], a inc a dec c jr nz, .asm_8a597 pop hl add hl, de pop bc dec b jr nz, .asm_8a595 ret ; known jump sources: 89e86 (22:5e86), 89e8e (22:5e8e), 89ecd (22:5ecd), 89ed5 (22:5ed5), 89fd6 (22:5fd6), 89fde (22:5fde), 8a06c (22:606c), 8a075 (22:6075), 8a08f (22:608f), 8a098 (22:6098), 8a288 (22:6288), 8a290 (22:6290), 8a4df (22:64df), 8a4e7 (22:64e7), 8a4f0 (22:64f0), 8a4f8 (22:64f8) Function8a5a3: ; 8a5a3 (22:65a3) ld bc, $603 ld de, $14 .asm_8a5a9 push bc push hl .asm_8a5ab ld [hli], a dec c jr nz, .asm_8a5ab pop hl add hl, de pop bc dec b jr nz, .asm_8a5a9 ret ; known jump sources: 893e8 (22:53e8), 89fce (22:5fce) Function8a5b6: ; 8a5b6 (22:65b6) ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $65e5 ld de, $d020 ld bc, $18 call CopyBytes ld hl, $65fd ld de, MartPointer ; $d040 (aliases: Unkn2Pals) ld bc, $8 call CopyBytes ld hl, $6605 ld de, $d048 ld bc, $8 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 ret ; 8a5e5 (22:65e5) INCBIN "baserom.gbc",$8a5e5,$8a60d - $8a5e5 Function8a60d: ; 8a60d ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, $6624 ld de, Unkn2Pals ld bc, $0008 call CopyBytes pop af ld [rSVBK], a ret ; 8a624 INCBIN "baserom.gbc",$8a624,$8a62c - $8a624 ; no known jump sources Function8a62c: ; 8a62c (22:662c) call Function1d6e call Function891fe xor a call Function8b94a call Function8b677 .asm_8a639 xor a ld [$d033], a ld [$d032], a ld [$d0e3], a call Function8b7bd ld a, c and a jr z, .asm_8a66a ld [MenuSelection], a ; $cf74 ld b, a ld a, [$cf77] inc a ld [$d034], a push bc call Function8b960 ld a, c pop bc jr z, .asm_8a639 ld c, a ld hl, $6671 ld a, b ld [MenuSelection], a ; $cf74 ld a, c dec a rst $28 jr .asm_8a639 .asm_8a66a call Function891fe call Function89b28 ret ; no known jump sources Jumptable_8a671: ; 8a671 (22:6671) dw Function8a679 dw Function8a6cd dw Function8a8c3 dw Function8a930 ; known jump sources: 8a6a9 (22:66a9), 8a6b0 (22:66b0) Function8a679: ; 8a679 (22:6679) call Function891de call WhiteBGMap call Function893cc call Function89160 call Function8931b call Function89844 call CloseSRAM call Function89160 call Function8939a call Function89856 ld hl, $c5a5 call Function899fe call Function891ab call CloseSRAM .asm_8a6a3 call Function89a57 jr c, .asm_8a6a3 and a jr z, Function8a679 ld hl, $66bc dec a rst $28 jr c, Function8a679 call Function891fe call Function8b677 call Function89448 ret ; no known jump sources Jumptable_8a6bc: ; 8a6bc (22:66bc) dw Function8a6c0 dw Function8a6c5 ; no known jump sources Function8a6c0: ; 8a6c0 (22:66c0) call PlayClickSFX and a ret ; no known jump sources Function8a6c5: ; 8a6c5 (22:66c5) call PlayClickSFX call Function89d0d scf ret ; no known jump sources Function8a6cd: ; 8a6cd (22:66cd) call Function891de call WhiteBGMap call Function893cc call Function89160 call Function8931b call Function89844 call Function8a757 call CloseSRAM .asm_8a6e5 call Function89160 call Function8931b call Function89856 call Function89a2e call Function891ab xor a ld [$d02f], a call CloseSRAM .asm_8a6fb call Function89b97 call Function89c67 jr c, .asm_8a718 ld a, b and a jr z, .asm_8a6fb call PlayClickSFX call Function89448 ld a, [$d011] ld hl, $674f rst $28 jr nc, .asm_8a6e5 jr .asm_8a742 .asm_8a718 call Function89160 call Function8a765 call CloseSRAM jr nc, .asm_8a73f call Function8923c call Function89448 call Function89a23 ld hl, $c5a5 ld de, $5135 call PlaceString call WaitBGMap ld a, $2 call Function89254 jr c, .asm_8a6e5 .asm_8a73f call CloseSRAM .asm_8a742 call WhiteBGMap call Function89448 call Function891d3 call Function8b677 ret ; no known jump sources Jumptable_8a74f: ; 8a74f (22:674f) dw Function8a78c dw Function8a7cb dw Function8a818 dw Function8a8a1 ; known jump sources: 8a6df (22:66df) Function8a757: ; 8a757 (22:6757) call Function8939a xor a ld [$d010], a ld [$d011], a ld [$d012], a ret ; known jump sources: 8a71b (22:671b), 8a82e (22:682e), 8a8a4 (22:68a4) Function8a765: ; 8a765 (22:6765) call Function8931b push bc ld hl, $0 add hl, bc ld de, DefaultFlypoint ; $d002 ld c, $6 call Function89185 pop bc jr nz, .asm_8a78a push bc ld hl, $11 add hl, bc ld de, $d008 ld c, $8 call Function89185 pop bc jr nz, .asm_8a78a and a ret .asm_8a78a scf ret ; no known jump sources Function8a78c: ; 8a78c (22:678c) call Function891fe ld de, DefaultFlypoint ; $d002 ld b, $5 callba Function116c1 call Function89160 call Function8931b push bc ld hl, $0 add hl, bc ld d, h ld e, l ld hl, DefaultFlypoint ; $d002 call InitName call CloseSRAM call DelayFrame call Functiona57 call Function891de call WhiteBGMap call Function893cc call Function89160 pop bc call Function89844 call CloseSRAM and a ret ; no known jump sources Function8a7cb: ; 8a7cb (22:67cb) ld a, [MenuSelection] ; $cf74 push af call Function891de ld de, $d008 ld c, $0 callba Function17a68f jr c, .asm_8a7f4 ld hl, $d008 ld a, $ff ld bc, $8 call ByteFill ld h, d ld l, e ld de, $d008 ld c, $8 call Function89193 .asm_8a7f4 pop af ld [MenuSelection], a ; $cf74 call Function891de call WhiteBGMap call Function893cc call Function89160 call Function8931b call Function89844 call Function89856 call Function89a2e call Function891ab call CloseSRAM and a ret ; no known jump sources Function8a818: ; 8a818 (22:6818) call Function89a23 ld hl, DefaultFlypoint ; $d002 call Function89331 jr c, .asm_8a875 ld hl, $d008 call Function89b45 jr nc, .asm_8a87a call Function89160 call Function8a765 jr nc, .asm_8a863 call Function8931b push bc ld hl, $0 add hl, bc ld d, h ld e, l ld hl, DefaultFlypoint ; $d002 ld c, $6 call Function89193 pop bc ld hl, $11 add hl, bc ld d, h ld e, l ld hl, $d008 ld c, $8 call Function89193 ld hl, $c5a5 ld de, $6868 call PlaceString call WaitBGMap call Functiona36 .asm_8a863 call CloseSRAM scf ret ; 8a868 (22:6868) INCBIN "baserom.gbc",$8a868,$8a875 - $8a868 .asm_8a875 ld de, $688b jr .asm_8a87d .asm_8a87a ld de, $511c .asm_8a87d ld hl, $c5a5 call PlaceString call WaitBGMap call Functiona36 and a ret ; 8a88b (22:688b) INCBIN "baserom.gbc",$8a88b,$8a8a1 - $8a88b ; no known jump sources Function8a8a1: ; 8a8a1 (22:68a1) call Function89160 call Function8a765 call CloseSRAM jr nc, .asm_8a8bf call Function89a23 ld hl, $c5a5 ld de, $5135 call PlaceString ld a, $2 call Function89254 jr c, .asm_8a8c1 .asm_8a8bf scf ret .asm_8a8c1 and a ret ; no known jump sources Function8a8c3: ; 8a8c3 (22:68c3) call Function891de call WhiteBGMap call Function893cc call Function89160 call Function8931b call Function89844 call Function8939a call Function89856 call CloseSRAM call Function891ab ld hl, $c5a5 ld de, $6919 call PlaceString ld a, $2 call Function89254 jr c, .asm_8a90f call Function89160 call Function892b4 call CloseSRAM call Function89a23 call Function8923c ld hl, $c5a5 ld de, $6926 call PlaceString call WaitBGMap call Functiona36 .asm_8a90f call Function89448 call Function891fe call Function8b677 ret ; 8a919 (22:6919) INCBIN "baserom.gbc",$8a919,$8a930 - $8a919 ; no known jump sources Function8a930: ; 8a930 (22:6930) ld a, [MenuSelection] ; $cf74 push af xor a ld [$d032], a ld a, $1 ld [$d033], a ld a, [$d034] ld [$d0e3], a .asm_8a943 call Function8b7bd ld a, [$cf73] and $1 jr nz, .asm_8a953 ld a, c and a jr nz, .asm_8a943 pop af ret .asm_8a953 call Function89160 pop af cp c jr z, .asm_8a995 push bc ld [MenuSelection], a ; $cf74 call Function8931b push bc ld h, b ld l, c ld de, DefaultFlypoint ; $d002 ld bc, $25 call CopyBytes pop de pop bc ld a, c ld [MenuSelection], a ; $cf74 call Function8931b push bc ld h, b ld l, c ld bc, $25 call CopyBytes pop de ld hl, DefaultFlypoint ; $d002 ld bc, $25 call CopyBytes ld de, $20 call WaitPlaySFX ld de, $20 call WaitPlaySFX .asm_8a995 call CloseSRAM ret ; no known jump sources Function8a999: ; 8a999 (22:6999) ld hl, $69c9 call LoadMenuDataHeader ld c, $1 .asm_8a9a1 call Function8a9ce jr c, .asm_8a9bb push bc push de call Function1d6e pop de dec e ld a, e ld hl, $69c5 rst $28 call Function891fe call Function89b28 pop bc jr .asm_8a9a1 .asm_8a9bb call Function89209 call Function1c17 call Function8920f ret ; no known jump sources Jumptable_8a9c5: ; 8a9c5 (22:69c5) dw Function8aa0a dw Function8ab3b ; 8a9c9 (22:69c9) INCBIN "baserom.gbc",$8a9c9,$8a9ce - $8a9c9 ; known jump sources: 8a9a1 (22:69a1) Function8a9ce: ; 8a9ce (22:69ce) push bc ld de, $c4fb ld b, $6 ld c, $6 call Function89b3b pop bc ld a, c ld hl, $69f2 call Function89d5e ld hl, $6a09 call Function89d85 jr c, .asm_8a9ed ld c, a ld e, a and a ret .asm_8a9ed ld c, a ld e, $0 scf ret ; 8a9f2 (22:69f2) INCBIN "baserom.gbc",$8a9f2,$8aa0a - $8a9f2 ; no known jump sources Function8aa0a: ; 8aa0a (22:6a0a) ld a, $1 ld [$d02f], a ld [$d011], a xor a ld [$d010], a ld [$d012], a call Function89160 ld hl, $a603 ld de, $d008 call Function89381 call CloseSRAM call Function891fe call WhiteBGMap call Function893cc call Function89807 call Function89492 call Function894ca .asm_8aa3a call Function8987f call Function89a2e call Function891ab .asm_8aa43 call Function89b97 call Function89c67 jr c, .asm_8aa61 ld a, b and a jr z, .asm_8aa43 call PlayClickSFX call Function89448 ld a, [$d011] dec a ld hl, $6a6d rst $28 jr nc, .asm_8aa3a jr .asm_8aa69 .asm_8aa61 call Function89448 call Function8ab11 jr nc, .asm_8aa3a .asm_8aa69 call Function89448 ret ; no known jump sources Jumptable_8aa6d: ; 8aa6d (22:6a6d) dw Function8aa73 dw Function8aab6 dw Function8ab11 ; no known jump sources Function8aa73: ; 8aa73 (22:6a73) ld a, [MenuSelection] ; $cf74 ld e, a push de call Function891de ld de, $d008 ld c, $0 callba Function17a68f jr c, .asm_8aa9d ld hl, $d008 ld a, $ff ld bc, $8 call ByteFill ld h, d ld l, e ld de, $d008 ld c, $8 call Function89193 .asm_8aa9d call Function891fe call WhiteBGMap call Function893cc call Function89807 call Function89492 call Function894ca pop de ld a, e ld [MenuSelection], a ; $cf74 and a ret ; no known jump sources Function8aab6: ; 8aab6 (22:6ab6) call Function89a23 ld hl, $d008 call Function89b45 jr nc, .asm_8ab00 call Function89160 ld de, $d008 ld hl, $a603 ld c, $8 call Function89185 jr z, .asm_8aaeb ld hl, $d008 ld de, $a603 ld c, $8 call Function89193 ld hl, $c5a5 ld de, $6af0 call PlaceString call WaitBGMap call Functiona36 .asm_8aaeb call CloseSRAM scf ret ; 8aaf0 (22:6af0) INCBIN "baserom.gbc",$8aaf0,$8ab00 - $8aaf0 .asm_8ab00 ld de, $511c ld hl, $c5a5 call PlaceString call WaitBGMap call Function89235 and a ret ; known jump sources: 8aa64 (22:6a64) Function8ab11: ; 8ab11 (22:6b11) call Function89160 ld hl, $a603 ld de, $d008 ld c, $8 call Function89185 call CloseSRAM jr z, .asm_8ab37 call Function89a23 ld hl, $c5a5 ld de, $5135 call PlaceString ld a, $2 call Function89254 jr c, .asm_8ab39 .asm_8ab37 scf ret .asm_8ab39 and a ret ; known jump sources: 8ab74 (22:6b74) Function8ab3b: ; 8ab3b (22:6b3b) call Function891fe call WhiteBGMap call Function893cc call Function89807 call Function89492 call Function894ca call Function89160 ld hl, $a603 ld de, $d008 call Function89381 call CloseSRAM call Function8987f call Function89160 ld hl, $c5a5 ld bc, $a007 call Function89a0c call CloseSRAM call Function891ab call Function8ab77 jr c, Function8ab3b ret ; known jump sources: 8ab71 (22:6b71), 8ab84 (22:6b84) Function8ab77: ; 8ab77 (22:6b77) call Function354b bit 0, c jr nz, .asm_8ab8e bit 1, c jr nz, .asm_8ab8e bit 3, c jr z, Function8ab77 call PlayClickSFX call Function89d0d scf ret .asm_8ab8e call PlayClickSFX and a ret ; no known jump sources Function8ab93: ; 8ab93 (22:6b93) call WhiteBGMap call Function1d6e callba Function105688 call ClearSprites call Function891fe call Function89b28 ret ; 8aba9 (22:6ba9) INCBIN "baserom.gbc",$8aba9,$8ac4e - $8aba9 Function8ac4e: ; 8ac4e xor a ld [MenuSelection], a push de call Function891de call WhiteBGMap call Function893cc pop bc call Function89844 call Function8939a call Function89856 ld hl, $c5a5 call Function899fe call Function891ab ret ; 8ac70 Function8ac70: ; 8ac70 push de ld a, $3 call Function8b94a Function8ac76: ; 8ac76 call Function891fe call Function8b677 Function8ac7c: ; 8ac7c call Function8b7bd jr z, .asm_8acf0 ld a, c ld [$d02f], a ld [MenuSelection], a call Function89160 call Function8931b call Function8932d call CloseSRAM jr nc, .asm_8acb0 call Function89160 ld hl, $0011 add hl, bc call Function89b45 call CloseSRAM jr nc, .asm_8accc call Function89160 call Function892b7 call CloseSRAM jr .asm_8accc .asm_8acb0 call Function8ad0b jr c, Function8ac76 and a jr nz, .asm_8accc call Function89160 ld h, b ld l, c ld d, $0 ld e, $6 add hl, de ld d, h ld e, l pop hl ld c, $1f call Function89193 jr .asm_8ace4 .asm_8accc pop hl call Function89160 ld d, b ld e, c ld c, $6 call Function89193 ld a, $6 add e ld e, a ld a, $0 adc d ld d, a ld c, $1f call Function89193 .asm_8ace4 call CloseSRAM call Functione51 ld a, [$d02f] ld c, a and a ret .asm_8acf0 ld hl, $6d06 call PrintText ld a, $2 call Function89259 jp c, Function8ac7c call Functione51 pop de ld c, $0 scf ret ; 8ad06 INCBIN "baserom.gbc",$8ad06,$8ad0b - $8ad06 Function8ad0b: ; 8ad0b .asm_8ad0b ld a, [MenuSelection] ld [$d02f], a call Function891de call WhiteBGMap call Function893cc call Function89160 call Function8931b push bc call Function89844 call Function8939a call Function89856 ld hl, $c5a5 call Function899fe call CloseSRAM call Function891ab pop bc .asm_8ad37 push bc call Function89a57 pop bc jr c, .asm_8ad37 and a jr z, .asm_8ad0b cp $2 jr z, .asm_8ad37 call Function8923c push bc ld hl, $c590 ld b, $4 ld c, $12 call TextBox ld de, $6d89 ld hl, $c5b9 call PlaceString ld a, $2 call Function8925e jr c, .asm_8ad87 call Function8923c ld hl, $c590 ld b, $4 ld c, $12 call TextBox ld de, $6d9c ld hl, $c5b9 call PlaceString ld a, $1 call Function8925e jr c, .asm_8ad84 ld a, $0 jr .asm_8ad86 .asm_8ad84 ld a, $1 .asm_8ad86 and a .asm_8ad87 pop bc ret ; 8ad89 INCBIN "baserom.gbc",$8ad89,$8addb - $8ad89 SpecialHoOhChamber: ; 0x8addb ld hl, PartySpecies ld a, [hl] cp HO_OH ; is Ho-oh the first Pokémon in the party? jr nz, .done ; if not, we're done call GetSecondaryMapHeaderPointer ld de, $0326 ld b, SET_FLAG call EventFlagAction .done ret ; 0x8adef Function8adef: ; 8adef call GetSecondaryMapHeaderPointer ld de, $0328 ld b, CHECK_FLAG call EventFlagAction ld a, c and a jr nz, .asm_8ae2f ld a, WATER_STONE ld [CurItem], a ld hl, NumItems call CheckItem jr c, .asm_8ae24 ld a, [PartyCount] ld b, a inc b .asm_8ae10 dec b jr z, .asm_8ae2f ld a, b dec a ld [CurPartyMon], a push bc ld a, $1 call GetPartyParamLocation pop bc ld a, [hl] cp $18 jr nz, .asm_8ae10 .asm_8ae24 call GetSecondaryMapHeaderPointer ld de, $0328 ld b, SET_FLAG call EventFlagAction .asm_8ae2f ret ; 8ae30 Function8ae30: ; 8ae30 push de push bc call GetSecondaryMapHeaderPointer ld a, h cp RuinsofAlphAerodactylChamber_SecondMapHeader >> 8 jr nz, .asm_8ae4a ld a, l cp RuinsofAlphAerodactylChamber_SecondMapHeader & $ff jr nz, .asm_8ae4a ld de, $0329 ld b, SET_FLAG call EventFlagAction scf jr .done .asm_8ae4a and a .done pop bc pop de ret ; 8ae4e Function8ae4e: ; 8ae4e push hl push de call GetSecondaryMapHeaderPointer ld a, h cp RuinsofAlphKabutoChamber_SecondMapHeader >> 8 jr nz, .done ld a, l cp RuinsofAlphKabutoChamber_SecondMapHeader & $ff jr nz, .done ld de, $0327 ld b, SET_FLAG call EventFlagAction .done pop de pop hl ret ; 8ae68 Function8ae68: ; 8ae68 ld a, [ScriptVar] ld hl, $6ed5 and a jr z, .asm_8ae79 ld d, $0 ld e, $5 .asm_8ae75 add hl, de dec a jr nz, .asm_8ae75 .asm_8ae79 call LoadMenuDataHeader xor a ld [hBGMapMode], a call Function1cbb call Function1ad2 call Function321c call Function1cfd inc hl ld d, $0 ld e, $14 add hl, de add hl, de ld a, [ScriptVar] ld c, a ld de, $6ebc and a jr z, .asm_8aea5 .asm_8ae9c ld a, [de] inc de cp $ff jr nz, .asm_8ae9c dec c jr nz, .asm_8ae9c .asm_8aea5 call Function8af09 ld bc, $0939 add hl, bc call Function8aee9 call Function3200 call Functiona36 call PlayClickSFX call Function1c17 ret ; 8aebc INCBIN "baserom.gbc",$8aebc,$8aee9 - $8aebc Function8aee9: ; 8aee9 .asm_8aee9 ld a, [de] cp $ff ret z cp $60 ld a, $d jr c, .asm_8aef5 ld a, $5 .asm_8aef5 call Function8aefd inc hl inc hl inc de jr .asm_8aee9 ; 8aefd Function8aefd: ; 8aefd push hl ld [hli], a ld [hld], a ld b, $0 ld c, $14 add hl, bc ld [hli], a ld [hl], a pop hl ret ; 8af09 Function8af09: ; 8af09 push hl push de .asm_8af0b ld a, [de] cp $ff jr z, .asm_8af19 ld c, a call Function8af1c inc hl inc hl inc de jr .asm_8af0b .asm_8af19 pop de pop hl ret ; 8af1c Function8af1c: ; 8af1c push hl ld a, c cp $60 jr z, .asm_8af3b cp $62 jr z, .asm_8af4b cp $64 jr z, .asm_8af5b ld [hli], a inc a ld [hld], a dec a ld b, $0 ld c, $14 add hl, bc ld c, $10 add c ld [hli], a inc a ld [hl], a pop hl ret .asm_8af3b ld [hl], $5b inc hl ld [hl], $5c ld bc, $0013 add hl, bc ld [hl], $4d inc hl ld [hl], $5d pop hl ret .asm_8af4b ld [hl], $4e inc hl ld [hl], $4f ld bc, $0013 add hl, bc ld [hl], $5e inc hl ld [hl], $5f pop hl ret .asm_8af5b ld [hl], $2 inc hl ld [hl], $3 ld bc, $0013 add hl, bc ld [hl], $3 inc hl ld [hl], $2 pop hl ret ; 8af6b Function8af6b: ; 8af6b xor a ld [$cf76], a ld hl, $6fa9 call Function1d3c ld a, [$dc4a] ld c, a callba Functionb8f8f ld a, [$cf83] add c add $2 ld [$cf85], a call Function1c00 call Function1e5d callba Function4ae5e ld b, $0 ld a, [MenuSelection] ld c, a ld a, [$dc4a] and $3 cp c jr nz, .asm_8afa4 ld b, $1 .asm_8afa4 ld a, b ld [ScriptVar], a ret ; 8afa9 INCBIN "baserom.gbc",$8afa9,$8afd4 - $8afa9 Function8afd4: ; 8afd4 xor a ld [$d0e4], a ld a, $1 ld [MenuSelection], a call Function8b0d6 call Function8b090 ld hl, $7072 call PrintText jr .asm_8aff1 .asm_8afeb ld hl, $7072 call Function105a .asm_8aff1 call DelayFrame call Function1ad2 call Function8b097 call Function8b0e2 jr z, .asm_8b05f ld [$cf75], a call Function8b154 ld a, [hl] ld [$d265], a call GetItemName ld hl, $7077 call Function105a call YesNoBox jr c, .asm_8afeb ld a, [$cf75] call Function8b154 inc hl ld a, [hld] ld c, a ld a, [$dc4b] cp c jr c, .asm_8b047 ld a, [hli] push hl ld [CurItem], a ld a, $1 ld [$d10c], a ld hl, NumItems call ReceiveItem pop hl jr nc, .asm_8b04c ld a, [hl] ld c, a ld a, [$dc4b] sub c ld [$dc4b], a call Function8b097 jr .asm_8b051 .asm_8b047 ld hl, $7081 jr .asm_8b05a .asm_8b04c ld hl, $7086 jr .asm_8b05a .asm_8b051 ld de, $0022 call PlaySFX ld hl, $707c .asm_8b05a call Function105a jr .asm_8afeb .asm_8b05f call Function1c17 call Function1c17 ld hl, $708b call PrintText call Functiona36 call PlayClickSFX ret ; 8b072 INCBIN "baserom.gbc",$8b072,$8b090 - $8b072 Function8b090: ; 8b090 ld hl, $70d1 call LoadMenuDataHeader ret ; 8b097 Function8b097: ; 8b097 ld de, $dc4b call Function8b09e ret ; 8b09e Function8b09e: ; 8b09e push de xor a ld [hBGMapMode], a ld hl, $70d1 call Function1d3c call Function1cbb call Function1ad2 call Function1cfd ld bc, $0015 add hl, bc ld de, $70ca call PlaceString ld h, b ld l, c inc hl ld a, $7f ld [hli], a ld [hld], a pop de ld bc, $0102 call PrintNum ret ; 8b0ca INCBIN "baserom.gbc",$8b0ca,$8b0d6 - $8b0ca Function8b0d6: ; 8b0d6 ld hl, $70dd call LoadMenuDataHeader ret ; 8b0dd INCBIN "baserom.gbc",$8b0dd,$8b0e2 - $8b0dd Function8b0e2: ; 8b0e2 ld hl, $7113 call Function1d3c ld a, [MenuSelection] ld [$cf88], a xor a ld [$cf76], a ld [hBGMapMode], a call Function352f call Function1ad2 call Function350c ld a, [MenuSelection] ld c, a ld a, [$cfa9] ld [MenuSelection], a ld a, [$cf73] cp $2 jr z, .asm_8b111 ld a, c and a ret nz .asm_8b111 xor a ret ; 8b113 INCBIN "baserom.gbc",$8b113,$8b154 - $8b113 Function8b154: ; 8b154 dec a ld hl, $715e ld b, $0 ld c, a add hl, bc add hl, bc ret ; 8b15e INCBIN "baserom.gbc",$8b15e,$8b170 - $8b15e INCLUDE "event/dratini.asm" Function8b1e1: ; 8b1e1 ld de, $71ed call Function8b25b ret z call Function8b231 scf ret ; 8b1ed INCBIN "baserom.gbc",$8b1ed,$8b201 - $8b1ed Function8b201: ; 8b201 ld hl, StringBuffer2 ld [hl], $f9 inc hl ld [hl], $50 ld de, $7215 call Function8b25b ret z call Function8b231 scf ret ; 8b215 INCBIN "baserom.gbc",$8b215,$8b231 - $8b215 Function8b231: ; 8b231 ld hl, $7238 call PrintText ret ; 8b238 INCBIN "baserom.gbc",$8b238,$8b25b - $8b238 Function8b25b: ; 8b25b ld bc, $0000 .asm_8b25e call Function8b26c call c, Function8b28e call Function8b276 jr nz, .asm_8b25e ld a, b and a ret ; 8b26c Function8b26c: ; 8b26c push de push bc call Function8b27a ld a, c rst JumpTable pop bc pop de ret ; 8b276 Function8b276: ; 8b276 inc c ld a, [de] cp c ret ; 8b27a Function8b27a: ; 8b27a inc de ld a, [de] ld l, a inc de ld a, [de] ld h, a ret ; 8b281 Function8b281: ; 8b281 inc de inc de inc de ld a, [de] ld l, a inc de ld a, [de] ld h, a ret ; 8b28a Function8b28a: ; 8b28a ld a, [hli] ld h, [hl] ld l, a ret ; 8b28e Function8b28e: ; 8b28e push de push bc ld a, b and a call z, Function8b29d pop bc call Function8b2a9 ld b, $1 pop de ret ; 8b29d Function8b29d: ; 8b29d push de call Function8b281 call Function8b28a call PrintText pop de ret ; 8b2a9 Function8b2a9: ; 8b2a9 push bc call Function8b281 inc hl inc hl ld b, $0 add hl, bc add hl, bc call Function8b28a call PrintText pop bc ret ; 8b2bb INCBIN "baserom.gbc",$8b2bb,$8b342 - $8b2bb Function8b342: ; 8b342 call GetSecondaryMapHeaderPointer ld d, h ld e, l xor a .asm_8b348 push af ld hl, Table8b354 rst JumpTable pop af inc a cp $3 jr nz, .asm_8b348 ret ; 8b354 Table8b354: ; 8b354 dw Function8b35a dw Function8b35b dw Function8b35c ; 8b35a Function8b35a: ; 8b35a ret ; 8b35b Function8b35b: ; 8b35b ret ; 8b35c Function8b35c: ; 8b35c ret ; 8b35d INCBIN "baserom.gbc",$8b35d,$8b36c - $8b35d ; known jump sources: 89e24 (22:5e24), 8a29a (22:629a), 8b3c2 (22:73c2), 8b45c (22:745c), 8b53c (22:753c), 8b5ea (22:75ea), 8b630 (22:7630) Function8b36c: ; 8b36c (22:736c) push bc ld h, b ld l, c ld bc, $4 ld a, $ff call ByteFill pop bc ret ; known jump sources: 8b429 (22:7429), 8b443 (22:7443) Function8b379: ; 8b379 (22:7379) push bc ld a, c add e ld c, a ld a, $0 adc b ld b, a ld a, [bc] ld d, a pop bc ret ; known jump sources: 8b3ff (22:73ff), 8b417 (22:7417), 8b420 (22:7420), 8b43b (22:743b), 8b454 (22:7454), 8b46b (22:746b) Function8b385: ; 8b385 (22:7385) push bc ld a, c add e ld c, a ld a, $0 adc b ld b, a ld a, d ld [bc], a pop bc ret ; known jump sources: 8b3bd (22:73bd), 8b466 (22:7466) Function8b391: ; 8b391 (22:7391) push bc ld e, $0 ld d, $4 .asm_8b396 ld a, [bc] inc bc cp $ff jr z, .asm_8b3a2 inc e dec d jr nz, .asm_8b396 dec e scf .asm_8b3a2 pop bc ret ; known jump sources: 8b590 (22:7590), 8b61f (22:761f) Function8b3a4: ; 8b3a4 (22:73a4) push de push bc ld d, b ld e, c ld c, $4 call Function89185 pop bc pop de ret ; known jump sources: 89e0d (22:5e0d) Function8b3b0: ; 8b3b0 (22:73b0) ld bc, $a037 ld a, [$a60b] and a jr z, .asm_8b3c2 cp $3 jr nc, .asm_8b3c2 call Function8b391 jr c, .asm_8b3c9 .asm_8b3c2 call Function8b36c xor a ld [$a60b], a .asm_8b3c9 ld a, [$a60b] ret ; known jump sources: 8b4b4 (22:74b4), 8b4c8 (22:74c8) Function8b3cd: ; 8b3cd (22:73cd) push de push bc ld e, $4 .asm_8b3d1 ld a, [bc] inc bc call Function8998b inc hl dec e jr nz, .asm_8b3d1 pop bc pop de ret ; known jump sources: 8b489 (22:7489) Function8b3dd: ; 8b3dd (22:73dd) push de push bc call Function354b ld a, c pop bc pop de bit 0, a jr nz, .asm_8b3f7 bit 1, a jr nz, .asm_8b40e bit 6, a jr nz, .asm_8b429 bit 7, a jr nz, .asm_8b443 and a ret .asm_8b3f7 ld a, e cp $3 jr z, .asm_8b407 inc e ld d, $0 call Function8b385 xor a ld [$d010], a ret .asm_8b407 call PlayClickSFX ld d, $0 scf ret .asm_8b40e ld a, e and a jr nz, .asm_8b41e call PlayClickSFX ld d, $ff call Function8b385 ld d, $1 scf ret .asm_8b41e ld d, $ff call Function8b385 dec e xor a ld [$d010], a ret .asm_8b429 call Function8b379 ld a, d cp $a jr c, .asm_8b433 ld d, $9 .asm_8b433 inc d ld a, d cp $a jr c, .asm_8b43b ld d, $0 .asm_8b43b call Function8b385 xor a ld [$d010], a ret .asm_8b443 call Function8b379 ld a, d cp $a jr c, .asm_8b44d ld d, $0 .asm_8b44d ld a, d dec d and a jr nz, .asm_8b454 ld d, $9 .asm_8b454 call Function8b385 xor a ld [$d010], a ret ; known jump sources: 8b55e (22:755e), 8b585 (22:7585), 8b60b (22:760b) Function8b45c: ; 8b45c (22:745c) call Function8b36c xor a ld [$d010], a ld [$d012], a call Function8b391 ld d, $0 call Function8b385 .asm_8b46e call Function8923c call Function8b493 call Function8b4cc call Function8b518 call Function89b78 push bc call Function8b4fd call Function89c44 ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 pop bc call Function8b3dd jr nc, .asm_8b46e ld a, d and a ret z scf ret ; known jump sources: 8a29d (22:629d), 8b471 (22:7471), 8b546 (22:7546), 8b569 (22:7569), 8b59b (22:759b), 8b5be (22:75be), 8b5f4 (22:75f4), 8b616 (22:7616) Function8b493: ; 8b493 (22:7493) push bc call Function8923c call Function8b521 ld hl, $74a0 pop bc rst $28 ret ; no known jump sources Jumptable_8b4a0: ; 8b4a0 (22:74a0) dw Function8b4a4 dw Function8b4b8 ; no known jump sources Function8b4a4: ; 8b4a4 (22:74a4) push bc push de call Function8b4d8 call TextBox pop de pop bc call Function8b4cc call Function8b518 call Function8b3cd ret ; no known jump sources Function8b4b8: ; 8b4b8 (22:74b8) push bc push de call Function8b4ea call Function89b3b pop de pop bc call Function8b4cc call Function8b518 call Function8b3cd ret ; known jump sources: 8b474 (22:7474), 8b4ae (22:74ae), 8b4c2 (22:74c2) Function8b4cc: ; 8b4cc (22:74cc) push bc ld hl, $7529 call Function8b50a ld a, [hli] ld h, [hl] ld l, a pop bc ret ; known jump sources: 8b4a6 (22:74a6) Function8b4d8: ; 8b4d8 (22:74d8) ld hl, $7529 call Function8b50a push hl inc hl inc hl ld a, [hli] ld b, a ld a, [hl] ld c, a pop hl ld a, [hli] ld h, [hl] ld l, a ret ; known jump sources: 8b4ba (22:74ba) Function8b4ea: ; 8b4ea (22:74ea) ld hl, $7529 call Function8b50a push hl inc hl inc hl ld a, [hli] ld b, a ld a, [hl] ld c, a pop hl ld a, [hli] ld e, a ld a, [hl] ld d, a ret ; known jump sources: 8b47e (22:747e), 8b549 (22:7549), 8b5fa (22:75fa) Function8b4fd: ; 8b4fd (22:74fd) ld hl, $752d call Function8b50a ld a, [hli] ld c, a ld a, [hli] ld b, a ld a, [hli] ld d, a ret ; known jump sources: 8b4d0 (22:74d0), 8b4db (22:74db), 8b4ed (22:74ed), 8b500 (22:7500), 8b524 (22:7524) Function8b50a: ; 8b50a (22:750a) ld a, [$d02e] and a ret z ld b, $0 ld c, $8 .asm_8b513 add hl, bc dec a jr nz, .asm_8b513 ret ; known jump sources: 8b477 (22:7477), 8b4b1 (22:74b1), 8b4c5 (22:74c5) Function8b518: ; 8b518 (22:7518) push de ld d, $0 ld e, $14 add hl, de inc hl pop de ret ; known jump sources: 8b497 (22:7497) Function8b521: ; 8b521 (22:7521) ld hl, $7530 call Function8b50a ld a, [hl] ret ; 8b529 (22:7529) INCBIN "baserom.gbc",$8b529,$8b539 - $8b529 ; known jump sources: 8a0e6 (22:60e6) Function8b539: ; 8b539 (22:7539) ld bc, $d017 call Function8b36c xor a ld [$d012], a ld [$d02e], a call Function8b493 call Function8b4fd ld e, $0 call Function89c44 call Function3238 ret ; known jump sources: 8a0f5 (22:60f5), 8b57a (22:757a), 8b588 (22:7588) Function8b555: ; 8b555 (22:7555) ld hl, $75ce call PrintText ld bc, $d017 call Function8b45c jr c, .asm_8b5c8 call Function89448 ld bc, $d017 call Function8b493 ld bc, $d017 call Function8b664 jr nz, .asm_8b57c ld hl, $75e2 call PrintText jr Function8b555 .asm_8b57c ld hl, $75d3 call PrintText ld bc, $d013 call Function8b45c jr c, Function8b555 ld bc, $d017 ld hl, $d013 call Function8b3a4 jr z, .asm_8b5a6 call Function89448 ld bc, $d013 call Function8b493 ld hl, $75d8 call PrintText jr .asm_8b57c .asm_8b5a6 call Function89160 ld hl, $d013 ld de, $a037 ld bc, $4 call CopyBytes call CloseSRAM call Function89448 ld bc, $d013 call Function8b493 ld hl, $75dd call PrintText and a .asm_8b5c8 push af call Function89448 pop af ret ; 8b5ce (22:75ce) INCBIN "baserom.gbc",$8b5ce,$8b5e7 - $8b5ce ; known jump sources: 8a2a6 (22:62a6) Function8b5e7: ; 8b5e7 (22:75e7) ld bc, $d013 call Function8b36c xor a ld [$d012], a ld [$d02e], a call Function8b493 call Function891ab call Function8b4fd ld e, $0 call Function89c44 .asm_8b602 ld hl, $7642 call PrintText ld bc, $d013 call Function8b45c jr c, .asm_8b63c call Function89448 ld bc, $d013 call Function8b493 call Function89160 ld hl, $a037 call Function8b3a4 call CloseSRAM jr z, .asm_8b635 ld hl, $7647 call PrintText ld bc, $d013 call Function8b36c jr .asm_8b602 .asm_8b635 ld hl, $764c call PrintText and a .asm_8b63c push af call Function89448 pop af ret ; 8b642 (22:7642) INCBIN "baserom.gbc",$8b642,$8b664 - $8b642 ; known jump sources: 8b56f (22:756f) Function8b664: ; 8b664 (22:7664) push bc ld de, $4 .asm_8b668 ld a, [bc] cp $0 jr nz, .asm_8b66e inc d .asm_8b66e inc bc dec e jr nz, .asm_8b668 pop bc ld a, d cp $4 ret Function8b677: ; 8b677 call WhiteBGMap call DisableLCD call Function8b690 call Function8b6bb call Function8b6ed call EnableLCD call Function891ab call Function32f9 ret ; 8b690 Function8b690: ; 8b690 ld hl, $74b9 ld de, VTiles2 ld bc, $0160 ld a, $5e call FarCopyBytes ld hl, $7609 ld de, $9610 ld bc, $0010 ld a, $5e call FarCopyBytes ld hl, $7619 ld de, $8ee0 ld bc, $0010 ld a, $5e call FarCopyBytes ret ; 8b6bb Function8b6bb: ; 8b6bb ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, $76d5 ld de, Unkn1Pals ld bc, $0018 call CopyBytes pop af ld [rSVBK], a call Function8949c ret ; 8b6d5 INCBIN "baserom.gbc",$8b6d5,$8b6ed - $8b6d5 Function8b6ed: ; 8b6ed ld hl, AttrMap ld bc, $012c xor a call ByteFill ld hl, $cef1 ld bc, $0050 ld a, $7 call ByteFill ret ; 8b703 Function8b703: ; 8b703 call Function8923c push hl ld a, $c ld [hli], a inc a call Function8b73e inc a ld [hl], a pop hl push hl push bc ld de, $0014 add hl, de .asm_8b717 push hl ld a, $f ld [hli], a ld a, $7f call Function8b73e ld a, $11 ld [hl], a pop hl ld de, $0014 add hl, de dec b jr nz, .asm_8b717 call Function8b732 pop bc pop hl jr Function8b744 ; 8b732 Function8b732: ; 8b732 ld a, $12 ld [hli], a ld a, $13 call Function8b73e ld a, $14 ld [hl], a ret ; 8b73e Function8b73e: ; 8b73e ld d, c .asm_8b73f ld [hli], a dec d jr nz, .asm_8b73f ret ; 8b744 Function8b744: ; 8b744 ld de, $0939 add hl, de inc b inc b inc c inc c xor a .asm_8b74d push bc push hl .asm_8b74f ld [hli], a dec c jr nz, .asm_8b74f pop hl ld de, $0014 add hl, de pop bc dec b jr nz, .asm_8b74d ret ; 8b75d Function8b75d: ; 8b75d call Function8923c ld hl, TileMap ld a, $1 ld bc, $0014 call ByteFill ld hl, $c4b4 ld a, $2 ld [hl], a ld hl, $c4bd ld c, $b call Function8b788 ld hl, $c4b5 ld a, $4 ld e, $8 .asm_8b780 ld [hli], a inc a dec e jr nz, .asm_8b780 jr Function8b79e ; 8b787 Function8b787: ; 8b787 ret ; 8b788 Function8b788: ; 8b788 .asm_8b788 ld a, $2 ld [hli], a dec c ret z ld a, $1 ld [hli], a dec c ret z ld a, $3 ld [hli], a dec c ret z ld a, $1 ld [hli], a dec c jr nz, .asm_8b788 ret ; 8b79e Function8b79e: ; 8b79e ld hl, $cded ld a, $1 ld [hli], a ld hl, $cdf6 ld e, $b .asm_8b7a9 ld a, $2 ld [hli], a dec e ret z xor a ld [hli], a dec e ret z ld a, $1 ld [hli], a dec e ret z xor a ld [hli], a dec e jr nz, .asm_8b7a9 ret ; 8b7bd Function8b7bd: ; 8b7bd call Function8b855 ld hl, $7867 call Function1d3c ld a, [$d030] ld [$cf88], a ld a, [$d031] ld [$d0e4], a ld a, [$d032] and a jr z, .asm_8b7e0 ld a, [$cf81] set 3, a ld [$cf81], a .asm_8b7e0 ld a, [$d0e3] and a jr z, .asm_8b7ea dec a ld [$cf77], a .asm_8b7ea ld hl, $c4c8 ld b, $b ld c, $12 call Function8b703 call Function8b75d call Function1ad2 call Function89209 call Function350c call Function8920f ld a, [$cf73] cp $2 jr z, .asm_8b823 cp $20 jr nz, .asm_8b813 call Function8b832 jr .asm_8b7ea .asm_8b813 cp $10 jr nz, .asm_8b81c call Function8b83e jr .asm_8b7ea .asm_8b81c ld a, [MenuSelection] cp $ff jr nz, .asm_8b824 .asm_8b823 xor a .asm_8b824 ld c, a ld a, [$cfa9] ld [$d030], a ld a, [$d0e4] ld [$d031], a ret ; 8b832 Function8b832: ; 8b832 ld a, [$d0e4] ld hl, $cf92 sub [hl] jr nc, Function8b84b xor a jr Function8b84b ; 8b83e Function8b83e: ; 8b83e ld a, [$d0e4] ld hl, $cf92 add [hl] cp $24 jr c, Function8b84b ld a, $24 Function8b84b: ; 8b84b ld [$d0e4], a ld a, [$cfa9] ld [$cf88], a ret ; 8b855 Function8b855: ; 8b855 ld a, $28 ld hl, DefaultFlypoint ld [hli], a ld c, $28 xor a .asm_8b85e inc a ld [hli], a dec c jr nz, .asm_8b85e ld a, $ff ld [hl], a ret ; 8b867 INCBIN "baserom.gbc",$8b867,$8b94a - $8b867 Function8b94a: ; 8b94a ld [$d033], a xor a ld [$d0e4], a ld [$d032], a ld [$d0e3], a ld [$d031], a ld a, $1 ld [$d030], a ret ; 8b960 ; known jump sources: 8a656 (22:6656) Function8b960: ; 8b960 (22:7960) ld hl, $79ac call LoadMenuDataHeader call Function8b9e9 jr c, .asm_8b97a ld hl, $c4ab ld b, $6 ld c, $7 call Function8b703 ld hl, $79b1 jr .asm_8b987 .asm_8b97a ld hl, $c4ab ld b, $a ld c, $7 call Function8b703 ld hl, $79ca .asm_8b987 ld a, $1 call Function89d5e ld hl, $79ab call Function89d85 call Function1c07 jr c, .asm_8b99c call Function8b99f jr nz, .asm_8b99d .asm_8b99c xor a .asm_8b99d ld c, a ret ; known jump sources: 8b997 (22:7997) Function8b99f: ; 8b99f (22:799f) ld hl, DefaultFlypoint ; $d002 dec a ld c, a ld b, $0 add hl, bc ld a, [hl] cp $ff ret ; 8b9ab (22:79ab) INCBIN "baserom.gbc",$8b9ab,$8b9e9 - $8b9ab ; known jump sources: 8b966 (22:7966) Function8b9e9: ; 8b9e9 (22:79e9) call Function89160 call Function8931b call Function8932d jr nc, .asm_8b9f6 jr .asm_8b9ff .asm_8b9f6 ld hl, $11 add hl, bc call Function89b45 jr c, .asm_8ba08 .asm_8b9ff call Function892b4 and a ld de, $7a1c jr .asm_8ba0c .asm_8ba08 ld de, $7a1f scf .asm_8ba0c push af ld hl, DefaultFlypoint ; $d002 .asm_8ba10 ld a, [de] inc de ld [hli], a cp $ff jr nz, .asm_8ba10 call CloseSRAM pop af ret ; 8ba1c (22:7a1c) INCBIN "baserom.gbc",$8ba1c,$8ba24 - $8ba1c SECTION "bank23", ROMX, BANK[$23] Function8c000: ; 8c000 ret ; 8c001 Function8c001: ; 8c001 call UpdateTime ld a, [TimeOfDay] ld [CurTimeOfDay], a call GetTimePalette ld [TimeOfDayPal], a ret ; 8c011 _TimeOfDayPals: ; 8c011 ; return carry if pals are changed ; forced pals? ld hl, $d846 bit 7, [hl] jr nz, .dontchange ; do we need to bother updating? ld a, [TimeOfDay] ld hl, CurTimeOfDay cp [hl] jr z, .dontchange ; if so, the time of day has changed ld a, [TimeOfDay] ld [CurTimeOfDay], a ; get palette id call GetTimePalette ; same palette as before? ld hl, TimeOfDayPal cp [hl] jr z, .dontchange ; update palette id ld [TimeOfDayPal], a ; save bg palette 8 ld hl, $d038 ; Unkn1Pals + 7 pals ; save wram bank ld a, [rSVBK] ld b, a ; wram bank 5 ld a, 5 ld [rSVBK], a ; push palette ld c, 4 ; NUM_PAL_COLORS .push ld d, [hl] inc hl ld e, [hl] inc hl push de dec c jr nz, .push ; restore wram bank ld a, b ld [rSVBK], a ; update sgb pals ld b, $9 call GetSGBLayout ; restore bg palette 8 ld hl, $d03f ; last byte in Unkn1Pals ; save wram bank ld a, [rSVBK] ld d, a ; wram bank 5 ld a, 5 ld [rSVBK], a ; pop palette ld e, 4 ; NUM_PAL_COLORS .pop pop bc ld [hl], c dec hl ld [hl], b dec hl dec e jr nz, .pop ; restore wram bank ld a, d ld [rSVBK], a ; update palettes call _UpdateTimePals call DelayFrame ; successful change scf ret .dontchange ; no change occurred and a ret ; 8c070 _UpdateTimePals: ; 8c070 ld c, $9 ; normal call GetTimePalFade call DmgToCgbTimePals ret ; 8c079 Function8c079: ; 8c079 ld c, $12 call GetTimePalFade ld b, $4 call Function8c16d ret ; 8c084 Function8c084: ; 8c084 call Function8c0c1 ld c, $9 call GetTimePalFade ld b, $4 call Function8c15e ret ; 8c092 Function8c092: ; 8c092 call Function8c0c1 ld c, $9 call GetTimePalFade ld b, $4 .asm_8c09c call DmgToCgbTimePals inc hl inc hl inc hl ld c, $7 call DelayFrames dec b jr nz, .asm_8c09c ret ; 8c0ab Function8c0ab: ; 8c0ab ld c, $0 call GetTimePalFade ld b, $4 call Function8c15e ret ; 8c0b6 Function8c0b6: ; 8c0b6 ld c, $9 call GetTimePalFade ld b, $4 call Function8c16d ret ; 8c0c1 Function8c0c1: ; 8c0c1 ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, $d000 ld a, [hli] ld e, a ld a, [hli] ld d, a ld hl, $d008 ld c, $6 .asm_8c0d4 ld a, e ld [hli], a ld a, d ld [hli], a inc hl inc hl inc hl inc hl inc hl inc hl dec c jr nz, .asm_8c0d4 pop af ld [rSVBK], a ret ; 8c0e5 Function8c0e5: ; 8c0e5 ld hl, $410f ld a, [$c2d0] cp $4 jr z, .asm_8c0fc and $7 add l ld l, a ld a, $0 adc h ld h, a ld a, [hl] ld [$d847], a ret .asm_8c0fc ld a, [StatusFlags] ; $d84c bit 2, a jr nz, .asm_8c109 ld a, $ff ld [$d847], a ret .asm_8c109 ld a, $aa ld [$d847], a ret ; 8c10f (23:410f) INCBIN "baserom.gbc",$8c10f,$8c117 - $8c10f GetTimePalette: ; 8c117 ; get time of day ld a, [TimeOfDay] ld e, a ld d, $0 ; get fn ptr ld hl, .TimePalettes add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ; go jp [hl] ; 8c126 .TimePalettes dw .MorningPalette dw .DayPalette dw .NitePalette dw .DarknessPalette .MorningPalette ; 8c12e ld a, [$d847] and %00000011 ; 0 ret ; 8c134 .DayPalette ; 8c134 ld a, [$d847] and %00001100 ; 1 srl a srl a ret ; 8c13e .NitePalette ; 8c13e ld a, [$d847] and %00110000 ; 2 swap a ret ; 8c146 .DarknessPalette ; 8c146 ld a, [$d847] and %11000000 ; 3 rlca rlca ret ; 8c14e DmgToCgbTimePals: ; 8c14e push hl push de ld a, [hli] call DmgToCgbBGPals ld a, [hli] ld e, a ld a, [hli] ld d, a call DmgToCgbObjPals pop de pop hl ret ; 8c15e Function8c15e: ; 8c15e .asm_8c15e call DmgToCgbTimePals inc hl inc hl inc hl ld c, $2 call DelayFrames dec b jr nz, .asm_8c15e ret ; 8c16d Function8c16d: ; 8c16d .asm_8c16d call DmgToCgbTimePals dec hl dec hl dec hl ld c, $2 call DelayFrames dec b jr nz, .asm_8c16d ret ; 8c17c GetTimePalFade: ; 8c17c ; check cgb ld a, [hCGB] and a jr nz, .cgb ; else: dmg ; index ld a, [TimeOfDayPal] and %11 ; get fade table push bc ld c, a ld b, $0 ld hl, .dmgfades add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a pop bc ; get place in fade table ld b, $0 add hl, bc ret .cgb ld hl, .cgbfade ld b, $0 add hl, bc ret ; 8c19e .dmgfades ; 8c19e dw .morn dw .day dw .nite dw .darkness ; 8c1a6 .morn ; 8c1a6 db %11111111 db %11111111 db %11111111 db %11111110 db %11111110 db %11111110 db %11111001 db %11100100 db %11100100 db %11100100 db %11010000 db %11010000 db %10010000 db %10000000 db %10000000 db %01000000 db %01000000 db %01000000 db %00000000 db %00000000 db %00000000 ; 8c1bb .day ; 8c1bb db %11111111 db %11111111 db %11111111 db %11111110 db %11111110 db %11111110 db %11111001 db %11100100 db %11100100 db %11100100 db %11010000 db %11010000 db %10010000 db %10000000 db %10000000 db %01000000 db %01000000 db %01000000 db %00000000 db %00000000 db %00000000 ; 8c1d0 .nite ; 8c1d0 db %11111111 db %11111111 db %11111111 db %11111110 db %11111110 db %11111110 db %11111001 db %11100100 db %11100100 db %11101001 db %11010000 db %11010000 db %10010000 db %10000000 db %10000000 db %01000000 db %01000000 db %01000000 db %00000000 db %00000000 db %00000000 ; 8c1e5 .darkness ; 8c1e5 db %11111111 db %11111111 db %11111111 db %11111110 db %11111110 db %11111111 db %11111110 db %11100100 db %11111111 db %11111101 db %11010000 db %11111111 db %11111101 db %10000000 db %11111111 db %00000000 db %01000000 db %00000000 db %00000000 db %00000000 db %00000000 ; 8c1fa .cgbfade ; 8c1fa db %11111111 db %11111111 db %11111111 db %11111110 db %11111110 db %11111110 db %11111001 db %11111001 db %11111001 db %11100100 db %11100100 db %11100100 db %10010000 db %10010000 db %10010000 db %01000000 db %01000000 db %01000000 db %00000000 db %00000000 db %00000000 ; 8c20f Function8c20f: ; 8c20f call Function8c26d ld a, [rBGP] ld [$cfc7], a ld a, [rOBP0] ld [$cfc8], a ld a, [rOBP1] ld [$cfc9], a call DelayFrame ld hl, $ff9e ld a, [hl] push af ld [hl], $1 .asm_8c22b ld a, [$cf63] bit 7, a jr nz, .asm_8c23a call Function8c314 call DelayFrame jr .asm_8c22b .asm_8c23a ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, Unkn1Pals ld bc, $0040 xor a call ByteFill pop af ld [rSVBK], a ld a, $ff ld [$cfc7], a call DmgToCgbBGPals call DelayFrame xor a ld [hLCDStatCustom], a ld [$ffc7], a ld [$ffc8], a ld [hSCY], a ld a, $1 ld [rSVBK], a pop af ld [$ff9e], a call DelayFrame ret ; 8c26d Function8c26d: ; 8c26d ld a, [InLinkBattle] cp $4 jr z, .asm_8c288 callba Function6454 call Function1ad2 call DelayFrame call Function8c2a0 call Function8cf4f jr .asm_8c28b .asm_8c288 call Function8c2aa .asm_8c28b ld a, $90 ld [hWY], a call DelayFrame xor a ld [hBGMapMode], a ld hl, $cf63 xor a ld [hli], a ld [hli], a ld [hl], a call Function8c6d8 ret ; 8c2a0 Function8c2a0: ; 8c2a0 call Function8c2aa ld hl, VBGMap0 call Function8c2cf ret ; 8c2aa Function8c2aa: ; 8c2aa ld de, $42f4 ld hl, $8fe0 ld b, $23 ld c, $2 call Request2bpp ld a, [rVBK] push af ld a, $1 ld [rVBK], a ld de, $42f4 ld hl, $8fe0 ld b, $23 ld c, $2 call Request2bpp pop af ld [rVBK], a ret ; 8c2cf Function8c2cf: ; 8c2cf ld a, [rSVBK] push af ld a, $6 ld [rSVBK], a push hl ld hl, Unkn1Pals ld bc, $0280 .asm_8c2dd ld [hl], $ff inc hl dec bc ld a, c or b jr nz, .asm_8c2dd pop hl ld de, Unkn1Pals ld b, $23 ld c, $28 call Request2bpp pop af ld [rSVBK], a ret ; 8c2f4 INCBIN "baserom.gbc",$8c2f4,$8c314 - $8c2f4 Function8c314: ; 8c314 ld a, [$cf63] ld e, a ld d, $0 ld hl, $4323 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 8c323 ; no known jump sources Jumptable_8c323: ; 8c323 (23:4323) dw Function8c365 dw Function8c5dc dw Function8c3a1 dw Function8c3ab dw Function8c3ab dw Function8c3ab dw Function8c39c dw Function8c3e8 dw Function8c408 dw Function8c5dc dw Function8c3a1 dw Function8c3ab dw Function8c3ab dw Function8c3ab dw Function8c39c dw Function8c768 dw Function8c5dc dw Function8c3a1 dw Function8c3ab dw Function8c3ab dw Function8c3ab dw Function8c39c dw Function8c43d dw Function8c44f dw Function8c5dc dw Function8c3a1 dw Function8c3ab dw Function8c3ab dw Function8c3ab dw Function8c39c dw Function8c578 dw Function8c58f dw Function8c393 ; no known jump sources Function8c365: ; 8c365 (23:4365) ld de, $0 ld a, [BattleMonLevel] ; $c639 add $3 ld hl, EnemyMonLevel ; $d213 cp [hl] jr nc, .asm_8c375 set 0, e .asm_8c375 ld a, [$d19a] cp $4 jr z, .asm_8c386 cp $5 jr z, .asm_8c386 cp $7 jr z, .asm_8c386 set 1, e .asm_8c386 ld hl, $438f add hl, de ld a, [hl] ld [$cf63], a ret ; 8c38f (23:438f) INCBIN "baserom.gbc",$8c38f,$8c393 - $8c38f ; no known jump sources Function8c393: ; 8c393 (23:4393) call ClearSprites ld a, $80 ld [$cf63], a ret ; known jump sources: 8c3a1 (23:43a1), 8c3af (23:43af), 8c3f2 (23:43f2), 8c447 (23:4447), 8c582 (23:4582), 8c673 (23:4673) Function8c39c: ; 8c39c (23:439c) ld hl, $cf63 inc [hl] ret ; no known jump sources Function8c3a1: ; 8c3a1 (23:43a1) call Function8c39c xor a ld [$cf64], a ld [hBGMapMode], a ; $ff00+$d4 ret ; no known jump sources Function8c3ab: ; 8c3ab (23:43ab) call Function8c3b3 ret nc call Function8c39c ret ; known jump sources: 8c3ab (23:43ab) Function8c3b3: ; 8c3b3 (23:43b3) ld a, [$d847] cp $ff jr z, .asm_8c3d5 ld hl, $cf64 ld a, [hl] inc [hl] srl a ld e, a ld d, $0 ld hl, $43db add hl, de ld a, [hl] cp $1 jr z, .asm_8c3d5 ld [$cfc7], a call DmgToCgbBGPals and a ret .asm_8c3d5 xor a ld [$cf64], a scf ret ; 8c3db (23:43db) INCBIN "baserom.gbc",$8c3db,$8c3e8 - $8c3db ; no known jump sources Function8c3e8: ; 8c3e8 (23:43e8) callba Function5602 ld a, $5 ld [rSVBK], a ; $ff00+$70 call Function8c39c ld a, $43 ld [hLCDStatCustom], a ; $ff00+$c6 xor a ld [$FF00+$c7], a ld a, $90 ld [$FF00+$c8], a xor a ld [$cf64], a ld [$cf65], a ret ; no known jump sources Function8c408: ; 8c408 (23:4408) ld a, [$cf64] cp $60 jr nc, .asm_8c413 call Function8c419 ret .asm_8c413 ld a, $20 ld [$cf63], a ret ; known jump sources: 8c40f (23:440f) Function8c419: ; 8c419 (23:4419) ld hl, $cf65 ld a, [hl] inc [hl] ld hl, $cf64 ld d, [hl] add [hl] ld [hl], a ld a, $90 ld bc, CurMartEnd ; $d100 (aliases: LYOverrides) ld e, $0 .asm_8c42b push af push de ld a, e call Function8c6f7 ld [bc], a inc bc pop de ld a, e add $2 ld e, a pop af dec a jr nz, .asm_8c42b ret ; no known jump sources Function8c43d: ; 8c43d (23:443d) callba Function5602 ld a, $5 ld [rSVBK], a ; $ff00+$70 call Function8c39c xor a ld [$cf64], a ret ; no known jump sources Function8c44f: ; 8c44f (23:444f) xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, [$cf64] ld e, a ld d, $0 ld hl, $4490 add hl, de add hl, de add hl, de add hl, de add hl, de ld a, [hli] cp $ff jr z, .asm_8c47a ld [$cf65], a call Function8c4f5 ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 call DelayFrame call DelayFrame ld hl, $cf64 inc [hl] ret .asm_8c47a ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 call DelayFrame call DelayFrame call DelayFrame xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, $20 ld [$cf63], a ret ; 8c490 (23:4490) INCBIN "baserom.gbc",$8c490,$8c4f5 - $8c490 ; known jump sources: 8c468 (23:4468) Function8c4f5: ; 8c4f5 (23:44f5) ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] ld h, [hl] ld l, a .asm_8c4fc push hl ld a, [de] ld c, a inc de .asm_8c500 ld [hl], $ff ld a, [$cf65] bit 0, a jr z, .asm_8c50c inc hl jr .asm_8c50d .asm_8c50c dec hl .asm_8c50d dec c jr nz, .asm_8c500 pop hl ld a, [$cf65] bit 1, a ld bc, $14 jr z, .asm_8c51e ld bc, $ffec .asm_8c51e add hl, bc ld a, [de] inc de cp $ff ret z and a jr z, .asm_8c4fc ld c, a .asm_8c528 ld a, [$cf65] bit 0, a jr z, .asm_8c532 dec hl jr .asm_8c533 .asm_8c532 inc hl .asm_8c533 dec c jr nz, .asm_8c528 jr .asm_8c4fc ; 8c538 (23:4538) INCBIN "baserom.gbc",$8c538,$8c578 - $8c538 ; no known jump sources Function8c578: ; 8c578 (23:4578) callba Function5602 ld a, $5 ld [rSVBK], a ; $ff00+$70 call Function8c39c ld a, $10 ld [$cf64], a ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ret ; no known jump sources Function8c58f: ; 8c58f (23:458f) ld hl, $cf64 ld a, [hl] and a jr z, .asm_8c5a2 dec [hl] ld c, $c .asm_8c599 push bc call Function8c5b8 pop bc dec c jr nz, .asm_8c599 ret .asm_8c5a2 ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 call DelayFrame call DelayFrame call DelayFrame xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, $20 ld [$cf63], a ret ; known jump sources: 8c59a (23:459a), 8c5bd (23:45bd), 8c5d7 (23:45d7) Function8c5b8: ; 8c5b8 (23:45b8) call Random cp $12 jr nc, Function8c5b8 ld b, a .asm_8c5c0 call Random cp $14 jr nc, .asm_8c5c0 ld c, a ld hl, $c48c ld de, $14 inc b .asm_8c5cf add hl, de dec b jr nz, .asm_8c5cf add hl, bc ld a, [hl] cp $ff jr z, Function8c5b8 ld [hl], $ff ret ; no known jump sources Function8c5dc: ; 8c5dc (23:45dc) ld a, [OtherTrainerClass] ; $d22f and a jp z, Function8c673 xor a ld [hBGMapMode], a ; $ff00+$d4 ld hl, AttrMap ; $cdd9 ld bc, $168 inc b inc c jr .asm_8c5f4 .asm_8c5f0 ld a, [hl] or $7 ld [hli], a .asm_8c5f4 dec c jr nz, .asm_8c5f0 dec b jr nz, .asm_8c5f0 call Function8c6b1 ld hl, $c4b6 ld b, $10 .asm_8c602 push hl ld c, $2 .asm_8c605 push hl ld a, [de] inc de .asm_8c608 and a jr z, .asm_8c614 sla a jr nc, .asm_8c611 ld [hl], $fe .asm_8c611 inc hl jr .asm_8c608 .asm_8c614 pop hl push bc ld bc, $8 add hl, bc pop bc dec c jr nz, .asm_8c605 pop hl push bc ld bc, $14 add hl, bc pop bc dec b jr nz, .asm_8c602 ld a, [hCGB] ; $ff00+$e6 and a jr nz, .asm_8c639 ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 call DelayFrame call DelayFrame jr Function8c673 .asm_8c639 ld hl, $46a1 ld a, [TimeOfDayPal] ; $d841 and $3 cp $3 jr nz, .asm_8c648 ld hl, $46a9 .asm_8c648 ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 call Function8c677 push hl ld de, $d038 ld bc, $8 call CopyBytes pop hl ld de, $d0b8 ld bc, $8 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 ld a, $1 ld [hCGBPalUpdate], a ; $ff00+$e5 call DelayFrame call Function8cf4f ; known jump sources: 8c5e0 (23:45e0), 8c637 (23:4637) Function8c673: ; 8c673 (23:4673) call Function8c39c ret ; known jump sources: 8c64f (23:464f) Function8c677: ; 8c677 (23:4677) ld de, $d038 call Function8c698 ld de, $d0b8 call Function8c698 ld de, $d070 call Function8c698 ld de, CurMart ; $d0f0 call Function8c698 ld de, $d078 call Function8c698 ld de, $d0f8 ; known jump sources: 8c67a (23:467a), 8c680 (23:4680), 8c686 (23:4686), 8c68c (23:468c), 8c692 (23:4692) Function8c698: ; 8c698 (23:4698) push hl ld bc, $8 call CopyBytes pop hl ret ; 8c6a1 (23:46a1) INCBIN "baserom.gbc",$8c6a1,$8c6b1 - $8c6a1 ; known jump sources: 8c5fa (23:45fa) Function8c6b1: ; 8c6b1 (23:46b1) ld a, [OtherTrainerClass] ; $d22f ld de, $46b8 ret ; 8c6b8 (23:46b8) INCBIN "baserom.gbc",$8c6b8,$8c6d8 - $8c6b8 Function8c6d8: ; 8c6d8 ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, LYOverrides call Function8c6ef ld hl, $d200 call Function8c6ef pop af ld [rSVBK], a ret ; 8c6ef Function8c6ef: ; 8c6ef xor a ld c, $90 .asm_8c6f2 ld [hli], a dec c jr nz, .asm_8c6f2 ret ; 8c6f7 ; known jump sources: 8c42e (23:442e) Function8c6f7: ; 8c6f7 (23:46f7) and $3f cp $20 jr nc, .asm_8c702 call Function8c70c ld a, h ret .asm_8c702 and $1f call Function8c70c ld a, h xor $ff inc a ret ; known jump sources: 8c6fd (23:46fd), 8c704 (23:4704) Function8c70c: ; 8c70c (23:470c) ld e, a ld a, d ld d, $0 ld hl, $4728 add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] ld hl, $0 .asm_8c71b srl a jr nc, .asm_8c720 add hl, de .asm_8c720 sla e rl d and a jr nz, .asm_8c71b ret ; 8c728 (23:4728) INCBIN "baserom.gbc",$8c728,$8c768 - $8c728 ; no known jump sources Function8c768: ; 8c768 (23:4768) callba Function5602 ld de, $4792 .asm_8c771 ld a, [de] cp $ff jr z, .asm_8c78c inc de ld c, a ld a, [de] inc de ld b, a ld a, [de] inc de ld l, a ld a, [de] inc de ld h, a xor a ld [hBGMapMode], a ; $ff00+$d4 call Function8c7b7 call WaitBGMap jr .asm_8c771 .asm_8c78c ld a, $20 ld [$cf63], a ret ; 8c792 (23:4792) INCBIN "baserom.gbc",$8c792,$8c7b7 - $8c792 ; known jump sources: 8c784 (23:4784) Function8c7b7: ; 8c7b7 (23:47b7) ld a, $ff .asm_8c7b9 push bc push hl .asm_8c7bb ld [hli], a dec c jr nz, .asm_8c7bb pop hl ld bc, $14 add hl, bc pop bc dec b jr nz, .asm_8c7b9 ret ; 8c7c9 (23:47c9) INCBIN "baserom.gbc",$8c7c9,$8c7d4 - $8c7c9 Function8c7d4: ; 8c7d4 call WaitSFX ld de, $0053 call PlaySFX call WaitSFX ret ; 8c7e1 Function8c7e1: ; 8c7e1 callba Function8c084 ld hl, StatusFlags set 2, [hl] callba Function8c0e5 callba Function8c001 ld b, $9 call GetSGBLayout callba Function49409 callba Function8c079 ret ; 8c80a Function8c80a: ; 8c80a callba Function8cf53 ld de, $49cc ld hl, VTiles1 ld bc, $2304 call Request2bpp ld de, $4893 ld hl, $8840 ld bc, $2308 call Request2bpp call Function8cad3 ld a, $1b call Function3b2a ld hl, $0003 add hl, bc ld [hl], $84 ld a, $90 ld [$c3b5], a callba Function8cf7a call Function8c913 ld a, $20 ld [$cf64], a call WaitSFX ld de, $006d call PlaySFX .asm_8c852 ld hl, $cf64 ld a, [hl] and a jr z, .asm_8c86a dec [hl] ld a, $90 ld [$c3b5], a callba Function8cf7a call DelayFrame jr .asm_8c852 .asm_8c86a call Function2173 call WaitBGMap xor a ld [hBGMapMode], a callba Function8cf53 ld hl, $c490 ld bc, $0010 xor a call ByteFill ld de, $4200 ld hl, VTiles1 ld bc, $3e0c call Get1bpp call Functione4a ret ; 8c893 INCBIN "baserom.gbc", $8c893, $8c913 - $8c893 Function8c913: ; 8c913 xor a ld [hBGMapMode], a ld a, [PlayerDirection] and $c srl a ld e, a ld d, $0 ld hl, $4938 add hl, de ld a, [hli] ld h, [hl] ld l, a ld a, $5 ld [hli], a ld [hld], a ld bc, $0014 add hl, bc ld [hli], a ld [hld], a call WaitBGMap xor a ld [hBGMapMode], a ret ; 8c938 INCBIN "baserom.gbc", $8c938, $8c940 - $8c938 Function8c940: ; 8c940 ld a, e and $1 ld [$cf63], a call Function8c96d call WaitSFX ld de, $001e call PlaySFX .asm_8c952 ld a, [$cf63] bit 7, a jr nz, .asm_8c96c ld a, $90 ld [$c3b5], a callab Function8cf7a call Function8ca0c call DelayFrame jr .asm_8c952 .asm_8c96c ret ; 8c96d Function8c96d: ; 8c96d callab Function8cf53 ld de, $49cc ld hl, VTiles1 ld bc, $2304 call Request2bpp ld de, $498c ld hl, $8840 ld bc, $2304 call Request2bpp ret ; 8c98c INCBIN "baserom.gbc",$8c98c,$8ca0c - $8c98c Function8ca0c: ; 8ca0c ld a, [$cf63] ld e, a ld d, $0 ld hl, $4a1b add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 8ca1b ; no known jump sources Jumptable_8ca1b: ; 8ca1b (23:4a1b) dw Function8ca23 dw Function8ca3c dw Function8ca5c dw Function8ca64 ; no known jump sources Function8ca23: ; 8ca23 (23:4a23) call Function8cad3 ld a, $17 call Function3b2a ld hl, $3 add hl, bc ld [hl], $84 ld a, $20 ld [$cf64], a ld hl, $cf63 inc [hl] inc [hl] ret ; no known jump sources Function8ca3c: ; 8ca3c (23:4a3c) call Function8ca8e xor a call Function8ca73 ld a, $10 call Function8ca73 ld a, $20 call Function8ca73 ld a, $30 call Function8ca73 ld a, $20 ld [$cf64], a ld hl, $cf63 inc [hl] ret ; no known jump sources Function8ca5c: ; 8ca5c (23:4a5c) ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ld hl, $cf63 inc [hl] ; no known jump sources Function8ca64: ; 8ca64 (23:4a64) ld hl, $cf64 ld a, [hl] and a jr z, .asm_8ca6d dec [hl] ret .asm_8ca6d ld hl, $cf63 set 7, [hl] ret ; known jump sources: 8ca40 (23:4a40), 8ca45 (23:4a45), 8ca4a (23:4a4a), 8ca4f (23:4a4f) Function8ca73: ; 8ca73 (23:4a73) push de push af ld a, $16 call Function3b2a ld hl, $3 add hl, bc ld [hl], $80 ld hl, $e add hl, bc ld [hl], $4 pop af ld hl, $c add hl, bc ld [hl], a pop de ret ; known jump sources: 8ca3c (23:4a3c) Function8ca8e: ; 8ca8e (23:4a8e) ld de, $0 ld a, [$d197] bit 0, a jr z, .asm_8ca9a set 0, e .asm_8ca9a ld a, [$d196] bit 0, a jr z, .asm_8caa3 set 1, e .asm_8caa3 ld a, [PlayerDirection] ; $d4de and $c add e ld e, a ld hl, $4ab3 add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] ret ; 8cab3 (23:4ab3) INCBIN "baserom.gbc",$8cab3,$8cad3 - $8cab3 ; known jump sources: 8ca23 (23:4a23) Function8cad3: ; 8cad3 (23:4ad3) ld a, [PlayerDirection] ; $d4de and $c srl a ld e, a ld d, $0 ld hl, $4ae5 add hl, de ld e, [hl] inc hl ld d, [hl] ret ; 8cae5 (23:4ae5) INCBIN "baserom.gbc",$8cae5,$8caed - $8cae5 Function8caed: ; 8caed call DelayFrame ld a, [VramState] ; $d0ed push af xor a ld [VramState], a ; $d0ed call Function8cb9b ld de, $5450 ld a, $a call Function3b2a ld hl, $3 add hl, bc ld [hl], $84 ld hl, $2 add hl, bc ld [hl], $16 ld a, $80 ld [$cf64], a .asm_8cb14 ld a, [$cf63] bit 7, a jr nz, .asm_8cb2e ld a, $0 ld [$c3b5], a callab Function8cf7a call Function8cbc8 call DelayFrame jr .asm_8cb14 .asm_8cb2e pop af ld [VramState], a ; $d0ed ret ; 8cb33 Function8cb33: ; 8cb33 call DelayFrame ld a, [VramState] ; $d0ed push af xor a ld [VramState], a ; $d0ed call Function8cb9b ld de, $fc50 ld a, $a call Function3b2a ld hl, $3 add hl, bc ld [hl], $84 ld hl, $2 add hl, bc ld [hl], $18 ld hl, $f add hl, bc ld [hl], $58 ld a, $40 ld [$cf64], a .asm_8cb60 ld a, [$cf63] bit 7, a jr nz, .asm_8cb7a ld a, $0 ld [$c3b5], a callab Function8cf7a call Function8cbc8 call DelayFrame jr .asm_8cb60 .asm_8cb7a pop af ld [VramState], a ; $d0ed call Function8cb82 ret ; known jump sources: 8cb7e (23:4b7e) Function8cb82: ; 8cb82 (23:4b82) ld hl, $c402 xor a ld c, $4 .asm_8cb88 ld [hli], a inc hl inc hl inc hl inc a dec c jr nz, .asm_8cb88 ld hl, $c410 ld bc, $90 xor a call ByteFill ret ; known jump sources: 8caf8 (23:4af8), 8cb3e (23:4b3e) Function8cb9b: ; 8cb9b (23:4b9b) callab Function8cf53 ld de, $49cc ld hl, $8800 ld bc, $2304 call Request2bpp ld a, [CurPartyMon] ; $d109 ld hl, PartySpecies ; $dcd8 ld e, a ld d, $0 add hl, de ld a, [hl] ld [$d265], a ld e, $84 callba Function8e9bc xor a ld [$cf63], a ret ; known jump sources: 8cb26 (23:4b26), 8cb72 (23:4b72) Function8cbc8: ; 8cbc8 (23:4bc8) call Function8cbe6 ld hl, $cf64 ld a, [hl] and a jr z, .asm_8cbe0 dec [hl] cp $40 ret c and $7 ret nz ld de, $18 call PlaySFX ret .asm_8cbe0 ld hl, $cf63 set 7, [hl] ret ; known jump sources: 8cbc8 (23:4bc8) Function8cbe6: ; 8cbe6 (23:4be6) ld hl, $cf65 ld a, [hl] inc [hl] and $7 ret nz ld a, [hl] and $18 sla a add $40 ld d, a ld e, $0 ld a, $18 call Function3b2a ld hl, $3 add hl, bc ld [hl], $80 ret Function8cc04: ; 8cc04 ld a, [ScriptVar] and a jr nz, .asm_8cc14 ld a, $1 ld bc, $4060 ld de, $fca0 jr .asm_8cc1c .asm_8cc14 ld a, $ff ld bc, $c0a0 ld de, $b460 .asm_8cc1c ld h, a ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld a, h ld [$d191], a ld a, c ld [$d192], a ld a, b ld [$d193], a ld a, e ld [$d194], a ld a, d ld [$d195], a ld a, [hSCX] push af ld a, [hSCY] push af call Function8ccc9 ld hl, $ff9e ld a, [hl] push af ld [hl], $1 .asm_8cc48 ld a, [$cf63] and a jr z, .asm_8cc66 bit 7, a jr nz, .asm_8cc6b callab Function8cf69 call Function8cdf7 call Function8cc99 call Function3b0c call DelayFrame jr .asm_8cc48 .asm_8cc66 call Function8ceae jr .asm_8cc48 .asm_8cc6b pop af ld [$ff9e], a call WhiteBGMap xor a ld [hLCDStatCustom], a ld [$ffc7], a ld [$ffc8], a ld [hSCX], a ld [Requested2bppSource], a ld [$cf69], a ld [Requested2bppDest], a ld [$cf6b], a ld [Requested2bpp], a call ClearTileMap pop af ld [hSCY], a pop af ld [hSCX], a xor a ld [hBGMapMode], a pop af ld [rSVBK], a ret ; 8cc99 Function8cc99: ; 8cc99 ld hl, $d200 ld c, $2f ld a, [$cf64] add a ld [hSCX], a call Function8ccc4 ld c, $30 ld a, [$cf65] call Function8ccc4 ld c, $31 ld a, [$cf64] add a call Function8ccc4 ld a, [$d191] ld d, a ld hl, $cf64 ld a, [hl] add d add d ld [hl], a ret ; 8ccc4 Function8ccc4: ; 8ccc4 .asm_8ccc4 ld [hli], a dec c jr nz, .asm_8ccc4 ret ; 8ccc9 Function8ccc9: ; 8ccc9 call WhiteBGMap call ClearSprites call DisableLCD callab Function8cf53 call Function8cdc3 call Function8cd27 ld a, $90 ld [hWY], a call EnableLCD xor a ld [hBGMapMode], a ld [hSCX], a ld [hSCY], a ld a, [rSVBK] push af ld a, $1 ld [rSVBK], a callba GetPlayerIcon pop af ld [rSVBK], a ld hl, VTiles0 ld c, $4 call Request2bpp ld hl, $00c0 add hl, de ld d, h ld e, l ld hl, $8040 ld c, $4 call Request2bpp call Function8cda6 ld hl, $cf63 xor a ld [hli], a ld a, [$d192] ld [hli], a ld [hli], a ld [hli], a ld de, MUSIC_MAGNET_TRAIN call PlayMusic2 ret ; 8cd27 Function8cd27: ; 8cd27 ld hl, VBGMap0 xor a .asm_8cd2b call Function8cd74 ld b, $10 call Function8cd6c inc a cp $12 jr c, .asm_8cd2b ld hl, $98c0 ld de, $4eff ld c, $14 call Function8cd65 ld hl, $98e0 ld de, $4f13 ld c, $14 call Function8cd65 ld hl, $9900 ld de, $4f27 ld c, $14 call Function8cd65 ld hl, $9920 ld de, $4f3b ld c, $14 call Function8cd65 ret ; 8cd65 Function8cd65: ; 8cd65 .asm_8cd65 ld a, [de] inc de ld [hli], a dec c jr nz, .asm_8cd65 ret ; 8cd6c Function8cd6c: ; 8cd6c .asm_8cd6c ld [hl], e inc hl ld [hl], d inc hl dec b jr nz, .asm_8cd6c ret ; 8cd74 Function8cd74: ; 8cd74 push hl ld e, a ld d, $0 ld hl, $4d82 add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] pop hl ret ; 8cd82 INCBIN "baserom.gbc",$8cd82,$8cda6 - $8cd82 Function8cda6: ; 8cda6 ld hl, LYOverrides ld bc, $0090 ld a, [$d192] call ByteFill ld hl, $d200 ld bc, $0090 ld a, [$d192] call ByteFill ld a, $43 ld [hLCDStatCustom], a ret ; 8cdc3 Function8cdc3: ; 8cdc3 ld a, $1 ld [rVBK], a ld hl, VBGMap0 ld bc, $0080 ld a, $2 call ByteFill ld hl, $9880 ld bc, $0140 xor a call ByteFill ld hl, $99c0 ld bc, $0080 ld a, $2 call ByteFill ld hl, $9907 ld bc, $0006 ld a, $4 call ByteFill ld a, $0 ld [rVBK], a ret ; 8cdf7 Function8cdf7: ; 8cdf7 ld a, [$cf63] ld e, a ld d, $0 ld hl, $4e06 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 8ce06 INCBIN "baserom.gbc",$8ce06,$8ceae - $8ce06 Function8ceae: ; 8ceae callba Function8cf69 call Function8cdf7 call Function8cc99 call Function3b0c call DelayFrame ld a, [rSVBK] push af ld a, $1 ld [rSVBK], a ld a, [TimeOfDayPal] push af ld a, [$d19a] push af ld a, [TimeOfDay] and $3 ld [TimeOfDayPal], a ld a, $1 ld [$d19a], a ld b, $9 call GetSGBLayout call UpdateTimePals ld a, [rBGP] ld [$cfc7], a ld a, [rOBP0] ld [$cfc8], a ld a, [rOBP1] ld [$cfc9], a pop af ld [$d19a], a pop af ld [TimeOfDayPal], a pop af ld [rSVBK], a ret ; 8ceff INCBIN "baserom.gbc",$8ceff,$8cf4f - $8ceff Function8cf4f: ; 8cf4f call Function3238 ret ; 8cf53 Function8cf53: ; 8cf53 ld hl, $c300 ld bc, $00c1 .asm_8cf59 ld [hl], $0 inc hl dec bc ld a, c or b jr nz, .asm_8cf59 ret ; 8cf62 Function8cf62: ; 8cf62 call Function8cf69 call DelayFrame ret ; 8cf69 Function8cf69: ; 8cf69 push hl push de push bc push af ld a, $0 ld [$c3b5], a call Function8cf7a pop af pop bc pop de pop hl ret ; 8cf7a Function8cf7a: ; 8cf7a ld hl, $c314 ld e, $a .asm_8cf7f ld a, [hl] and a jr z, .asm_8cf91 ld c, l ld b, h push hl push de call Function8d24b call Function8d04c pop de pop hl jr c, .asm_8cfa7 .asm_8cf91 ld bc, $0010 add hl, bc dec e jr nz, .asm_8cf7f ld a, [$c3b5] ld l, a ld h, $c4 .asm_8cf9e ld a, l cp $a0 jr nc, .asm_8cfa7 xor a ld [hli], a jr .asm_8cf9e .asm_8cfa7 ret ; 8cfa8 Function8cfa8: ; 8cfa8 (23:4fa8) ld hl, $c314 ld e, $a .asm_8cfad ld a, [hl] and a jr z, .asm_8cfbf ld c, l ld b, h push hl push de call Function8d24b call Function8d04c pop de pop hl jr c, .asm_8cfd5 .asm_8cfbf ld bc, $10 add hl, bc dec e jr nz, .asm_8cfad ld a, [$c3b5] ld l, a ld h, $c4 .asm_8cfcc ld a, l cp $40 jr nc, .asm_8cfd5 xor a ld [hli], a jr .asm_8cfcc .asm_8cfd5 ret Function8cfd6: ; 8cfd6 push de push af ld hl, $c314 ld e, $a .asm_8cfdd ld a, [hl] and a jr z, .asm_8cfec ld bc, $0010 add hl, bc dec e jr nz, .asm_8cfdd pop af pop de scf ret .asm_8cfec ld c, l ld b, h ld hl, $c3b4 inc [hl] ld a, [hl] and a jr nz, .asm_8cff7 inc [hl] .asm_8cff7 pop af ld e, a ld d, $0 ld hl, $51c4 add hl, de add hl, de add hl, de ld e, l ld d, h ld hl, $0000 add hl, bc ld a, [$c3b4] ld [hli], a ld a, [de] ld [hli], a inc de ld a, [de] ld [hli], a inc de ld a, [de] call Function8d109 ld [hli], a pop de ld hl, $0004 add hl, bc ld a, e ld [hli], a ld a, d ld [hli], a xor a ld [hli], a ld [hli], a xor a ld [hli], a ld [hli], a dec a ld [hli], a xor a ld [hli], a ld [hli], a ld [hli], a ld [hli], a ld [hl], a ld a, c ld [$c3b8], a ld a, b ld [$c3b9], a ret ; 8d036 Function8d036: ; 8d036 ld hl, $0000 add hl, bc ld [hl], $0 ret ; 8d03d ; no known jump sources Function8d03d: ; 8d03d (23:503d) ld hl, $c314 ld bc, $10 ld e, $a xor a .asm_8d046 ld [hl], a add hl, bc dec e jr nz, .asm_8d046 ret Function8d04c: ; 8d04c call Function8d0ec call Function8d132 cp EGG jr z, .asm_8d0b9 cp NUM_POKEMON + 1 jr z, .asm_8d0b6 call Function8d1a2 ld a, [$c3ba] add [hl] ld [$c3ba], a inc hl ld a, [hli] ld h, [hl] ld l, a push bc ld a, [$c3b5] ld e, a ld d, $c4 ld a, [hli] ld c, a .asm_8d071 ld a, [$c3bc] ld b, a ld a, [$c3be] add b ld b, a ld a, [$c3bf] add b ld b, a call Function8d0be add b ld [de], a inc hl inc de ld a, [$c3bb] ld b, a ld a, [$c3bd] add b ld b, a ld a, [$c3c0] add b ld b, a call Function8d0ce add b ld [de], a inc hl inc de ld a, [$c3ba] add [hl] ld [de], a inc hl inc de call Function8d0de ld [de], a inc hl inc de ld a, e ld [$c3b5], a cp $a0 jr nc, .asm_8d0bb dec c jr nz, .asm_8d071 pop bc jr .asm_8d0b9 .asm_8d0b6 call Function8d036 .asm_8d0b9 and a ret .asm_8d0bb pop bc scf ret ; 8d0be Function8d0be: ; 8d0be push hl ld a, [hl] ld hl, $c3b8 bit 6, [hl] jr z, .asm_8d0cc add $8 xor $ff inc a .asm_8d0cc pop hl ret ; 8d0ce Function8d0ce: ; 8d0ce push hl ld a, [hl] ld hl, $c3b8 bit 5, [hl] jr z, .asm_8d0dc add $8 xor $ff inc a .asm_8d0dc pop hl ret ; 8d0de Function8d0de: ; 8d0de ld a, [$c3b8] ld b, a ld a, [hl] xor b and $e0 ld b, a ld a, [hl] and $1f or b ret ; 8d0ec Function8d0ec: ; 8d0ec xor a ld [$c3b8], a ld hl, $0003 add hl, bc ld a, [hli] ld [$c3ba], a ld a, [hli] ld [$c3bb], a ld a, [hli] ld [$c3bc], a ld a, [hli] ld [$c3bd], a ld a, [hli] ld [$c3be], a ret ; 8d109 Function8d109: ; 8d109 push hl push bc ld hl, $c300 ld b, a ld c, $a .asm_8d111 ld a, [hli] cp b jr z, .asm_8d11c inc hl dec c jr nz, .asm_8d111 xor a jr .asm_8d11d .asm_8d11c ld a, [hl] .asm_8d11d pop bc pop hl ret ; 8d120 Function8d120: ; 8d120 ld hl, $0001 add hl, bc ld [hl], a ld hl, $0008 add hl, bc ld [hl], $0 ld hl, $000a add hl, bc ld [hl], $ff ret ; 8d132 Function8d132: ; 8d132 .asm_8d132 ld hl, $0008 add hl, bc ld a, [hl] and a jr z, .asm_8d142 dec [hl] call Function8d189 ld a, [hli] push af jr .asm_8d163 .asm_8d142 ld hl, $000a add hl, bc inc [hl] call Function8d189 ld a, [hli] cp $fe jr z, .asm_8d17b cp $ff jr z, .asm_8d16d push af ld a, [hl] push hl and $3f ld hl, $0009 add hl, bc add [hl] ld hl, $0008 add hl, bc ld [hl], a pop hl .asm_8d163 ld a, [hl] and $c0 srl a ld [$c3b8], a pop af ret .asm_8d16d xor a ld hl, $0008 add hl, bc ld [hl], a ld hl, $000a add hl, bc dec [hl] dec [hl] jr .asm_8d132 .asm_8d17b xor a ld hl, $0008 add hl, bc ld [hl], a dec a ld hl, $000a add hl, bc ld [hl], a jr .asm_8d132 ; 8d189 Function8d189: ; 8d189 ld hl, $0001 add hl, bc ld e, [hl] ld d, $0 ld hl, $56e6 add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] ld hl, $000a add hl, bc ld l, [hl] ld h, $0 add hl, hl add hl, de ret ; 8d1a2 Function8d1a2: ; 8d1a2 ld e, a ld d, $0 ld hl, $594d add hl, de add hl, de add hl, de ret ; 8d1ac INCBIN "baserom.gbc",$8d1ac,$8d24b - $8d1ac Function8d24b: ; 8d24b ld hl, $0002 add hl, bc ld e, [hl] ld d, $0 ld hl, $525b add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 8d25b ; no known jump sources Jumptable_8d25b: ; 8d25b (23:525b) dw Function8d2a1 dw Function8d2a2 dw Function8d2b9 dw Function8d2ea dw Function8d302 dw Function8d36c dw Function8d37a dw Function8d381 dw Function8d3c3 dw Function8d422 dw Function8d429 dw Function8d43e dw Function8d373 dw Function8d46e dw Function8d47c dw Function8d475 dw Function8d483 dw Function8d52a dw Function8d543 dw Function8d54a dw Function8d578 dw Function8d57f dw Function8d5b0 dw Function8d5e2 dw Function8d607 dw Function8d35a dw Function8d6b7 dw Function8d630 dw Function8d637 dw Function8d63e dw Function8d666 dw Function8d6be dw Function8d680 dw Function8d6a2 dw Function8d6ae ; no known jump sources Function8d2a1: ; 8d2a1 (23:52a1) ret ; no known jump sources Function8d2a2: ; 8d2a2 (23:52a2) ld a, [$cfa9] ld hl, $0 add hl, bc cp [hl] jr z, Function8d2b9 ld hl, $4 add hl, bc ld [hl], $10 ld hl, $7 add hl, bc ld [hl], $0 ret ; known jump sources: 8d2aa (23:52aa) Function8d2b9: ; 8d2b9 (23:52b9) ld hl, $4 add hl, bc ld [hl], $18 ld hl, $c add hl, bc ld a, [hl] ld d, a inc [hl] and $f ret nz ld hl, $d add hl, bc ld e, [hl] ld hl, $7 add hl, bc ld a, d and $10 jr z, .asm_8d2df ld a, e and a jr z, .asm_8d2e6 cp $1 jr z, .asm_8d2e2 .asm_8d2df xor a ld [hl], a ret .asm_8d2e2 ld a, $ff ld [hl], a ret .asm_8d2e6 ld a, $fe ld [hl], a ret ; no known jump sources Function8d2ea: ; 8d2ea (23:52ea) ld a, [$cfa9] ld hl, $0 add hl, bc cp [hl] jr z, .asm_8d2fb ld hl, $4 add hl, bc ld [hl], $10 ret .asm_8d2fb ld hl, $4 add hl, bc ld [hl], $18 ret ; no known jump sources Function8d302: ; 8d302 (23:5302) call Function8d6c5 jp [hl] ; 8d306 (23:5306) INCBIN "baserom.gbc",$8d306,$8d35a - $8d306 ; no known jump sources Function8d35a: ; 8d35a (23:535a) ld hl, $c add hl, bc ld a, [hl] inc a ld [hl], a ld d, $2 call Function8d6de ld hl, $7 add hl, bc ld [hl], a ret ; no known jump sources Function8d36c: ; 8d36c (23:536c) callab Function11a3b ret ; no known jump sources Function8d373: ; 8d373 (23:5373) callab Function120c1 ret ; no known jump sources Function8d37a: ; 8d37a (23:537a) callab Functione46ed ret ; no known jump sources Function8d381: ; 8d381 (23:5381) ld hl, $c add hl, bc ld a, [hl] and a jr z, .asm_8d3ba dec [hl] dec [hl] ld d, a and $1f jr nz, .asm_8d395 ld hl, $d add hl, bc dec [hl] .asm_8d395 ld hl, $b add hl, bc ld a, [hl] push af push de call Function8d6de ld hl, $7 add hl, bc ld [hl], a pop de pop af call Function8d6e2 ld hl, $6 add hl, bc ld [hl], a ld hl, $d add hl, bc ld a, [hl] ld hl, $b add hl, bc add [hl] ld [hl], a ret .asm_8d3ba ld a, $1 ld [$cf64], a call Function8d036 ret ; no known jump sources Function8d3c3: ; 8d3c3 (23:53c3) ld hl, $c add hl, bc ld a, [hli] or [hl] jr z, .asm_8d41e ld hl, $f add hl, bc ld d, [hl] ld hl, $b add hl, bc ld a, [hl] push af push de call Function8d6de ld hl, $7 add hl, bc ld [hl], a pop de pop af call Function8d6e2 ld hl, $6 add hl, bc ld [hl], a ld hl, $c add hl, bc ld e, [hl] inc hl ld d, [hl] ld hl, $e add hl, bc ld a, [hli] ld h, [hl] ld l, a add hl, de ld e, l ld d, h ld hl, $e add hl, bc ld [hl], e inc hl ld [hl], d ld hl, $c add hl, bc ld a, [hli] ld h, [hl] ld l, a ld de, $fff0 add hl, de ld e, l ld d, h ld hl, $c add hl, bc ld [hl], e inc hl ld [hl], d ld hl, $b add hl, bc ld a, [hl] xor $20 ld [hl], a ret .asm_8d41e call Function8d036 ret ; no known jump sources Function8d422: ; 8d422 (23:5422) callab Function9321d ret ; no known jump sources Function8d429: ; 8d429 (23:5429) callab Function932ac ld hl, $cf64 ld a, [hl] cp $2 ret nz ld [hl], $3 ld a, $f call Function8d120 ret ; no known jump sources Function8d43e: ; 8d43e (23:543e) ld hl, $b add hl, bc ld a, [hl] dec [hl] ld e, a and $1 jr z, .asm_8d462 ld hl, $4 add hl, bc ld a, [hl] cp $78 jr c, .asm_8d461 call Function8d036 ld a, $4 ld [$cf64], a ld de, $1e call PlaySFX ret .asm_8d461 inc [hl] .asm_8d462 ld a, e ld d, $20 call Function8d6de ld hl, $7 add hl, bc ld [hl], a ret ; no known jump sources Function8d46e: ; 8d46e (23:546e) callab Functione00ed ret ; no known jump sources Function8d475: ; 8d475 (23:5475) callab Function90d41 ret ; no known jump sources Function8d47c: ; 8d47c (23:547c) callab Functione21a1 ret ; no known jump sources Function8d483: ; 8d483 (23:5483) call Function8d6c5 jp [hl] ; 8d487 (23:5487) INCBIN "baserom.gbc",$8d487,$8d52a - $8d487 ; no known jump sources Function8d52a: ; 8d52a (23:552a) ld hl, $4 add hl, bc ld a, [hl] inc [hl] inc [hl] cp $b0 jr nc, .asm_8d53f and $3 ret nz ld de, $3 call PlaySFX ret .asm_8d53f call Function8d036 ret ; no known jump sources Function8d543: ; 8d543 (23:5543) callab Function29676 ret ; no known jump sources Function8d54a: ; 8d54a (23:554a) ld hl, $c add hl, bc ld a, [hl] cp $80 jr nc, .asm_8d574 ld d, a add $8 ld [hl], a ld hl, $b add hl, bc ld a, [hl] xor $20 ld [hl], a push af push de call Function8d6de ld hl, $7 add hl, bc ld [hl], a pop de pop af call Function8d6e2 ld hl, $6 add hl, bc ld [hl], a ret .asm_8d574 call Function8d036 ret ; no known jump sources Function8d578: ; 8d578 (23:5578) callab Function91640 ret ; no known jump sources Function8d57f: ; 8d57f (23:557f) ld hl, $d add hl, bc ld e, [hl] inc hl ld d, [hl] ld hl, $80 add hl, de ld e, l ld d, h ld hl, $d add hl, bc ld [hl], e inc hl ld [hl], d ld hl, $c add hl, bc ld a, [hl] inc [hl] inc [hl] inc [hl] push af push de call Function8d6de ld hl, $7 add hl, bc ld [hl], a pop de pop af call Function8d6e2 ld hl, $6 add hl, bc ld [hl], a ret ; no known jump sources Function8d5b0: ; 8d5b0 (23:55b0) ld hl, $5 add hl, bc ld a, [hl] and a ret z ld hl, $d add hl, bc ld a, [hl] inc [hl] cp $40 ret c ld hl, $5 add hl, bc dec [hl] dec [hl] ld hl, $f add hl, bc ld a, [hl] ld d, a cp $40 jr nc, .asm_8d5d3 add $8 ld [hl], a .asm_8d5d3 ld hl, $e add hl, bc ld a, [hl] inc [hl] call Function8d6e2 ld hl, $6 add hl, bc ld [hl], a ret ; no known jump sources Function8d5e2: ; 8d5e2 (23:55e2) ld hl, $4 add hl, bc ld a, [hl] cp $b8 jr nc, .asm_8d603 inc [hl] inc [hl] ld hl, $5 add hl, bc dec [hl] ld d, $40 ld hl, $c add hl, bc ld a, [hl] inc [hl] call Function8d6e2 ld hl, $6 add hl, bc ld [hl], a ret .asm_8d603 call Function8d036 ret ; no known jump sources Function8d607: ; 8d607 (23:5607) ld hl, $5 add hl, bc ld a, [hl] cp $54 ret z ld hl, $5 add hl, bc inc [hl] inc [hl] ld hl, $f add hl, bc ld a, [hl] ld d, a and a jr z, .asm_8d621 sub $2 ld [hl], a .asm_8d621 ld hl, $e add hl, bc ld a, [hl] inc [hl] call Function8d6e2 ld hl, $6 add hl, bc ld [hl], a ret ; no known jump sources Function8d630: ; 8d630 (23:5630) callba Function108bc7 ret ; no known jump sources Function8d637: ; 8d637 (23:5637) callba Function108be0 ret ; no known jump sources Function8d63e: ; 8d63e (23:563e) ld a, [$cf65] and a jr nz, .asm_8d645 ret .asm_8d645 ld hl, $7 add hl, bc ld [hl], $0 ld hl, $d add hl, bc ld a, [hl] add $2 ld [hl], a xor $ff inc a ld d, $20 call Function8d6de ld hl, $7 add hl, bc ld [hl], a ld a, $36 call Function8d120 ret ; no known jump sources Function8d666: ; 8d666 (23:5666) ld hl, $c add hl, bc ld a, [hl] cp $14 jr nc, .asm_8d67f add $2 ld [hl], a xor $ff inc a ld d, $20 call Function8d6de ld hl, $7 add hl, bc ld [hl], a .asm_8d67f ret ; no known jump sources Function8d680: ; 8d680 (23:5680) ld hl, $b add hl, bc ld d, [hl] inc [hl] inc [hl] inc [hl] ld hl, $c add hl, bc ld a, [hl] push af push de call Function8d6de ld hl, $7 add hl, bc ld [hl], a pop de pop af call Function8d6e2 ld hl, $6 add hl, bc ld [hl], a ret ; no known jump sources Function8d6a2: ; 8d6a2 (23:56a2) ld a, [$cf64] cp $40 ret nz ld a, $3d call Function8d120 ret ; no known jump sources Function8d6ae: ; 8d6ae (23:56ae) ld hl, $5 add hl, bc ld a, [hl] add $10 ld [hl], a ret ; no known jump sources Function8d6b7: ; 8d6b7 (23:56b7) callba Function11d0b6 ret ; no known jump sources Function8d6be: ; 8d6be (23:56be) callba Function49aa2 ret ; known jump sources: 8d302 (23:5302), 8d483 (23:5483) Function8d6c5: ; 8d6c5 (23:56c5) ld hl, [sp+$0] ld e, [hl] inc hl ld d, [hl] inc de ld hl, $b add hl, bc ld l, [hl] ld h, $0 add hl, hl add hl, de ld a, [hli] ld h, [hl] ld l, a ret ; 8d6d8 (23:56d8) INCBIN "baserom.gbc",$8d6d8,$8d6de - $8d6d8 ; known jump sources: 8d363 (23:5363), 8d39c (23:539c), 8d3d7 (23:53d7), 8d465 (23:5465), 8d561 (23:5561), 8d59d (23:559d), 8d658 (23:5658), 8d677 (23:5677), 8d68f (23:568f) Function8d6de: ; 8d6de (23:56de) call Function8e72c ret ; known jump sources: 8d3a6 (23:53a6), 8d3e1 (23:53e1), 8d56b (23:556b), 8d5a7 (23:55a7), 8d5d9 (23:55d9), 8d5fa (23:55fa), 8d627 (23:5627), 8d699 (23:5699) Function8d6e2: ; 8d6e2 (23:56e2) call Function8e72a ret ; 8d6e6 (23:56e6) INCBIN "baserom.gbc",$8d6e6,$8e72a - $8d6e6 Function8e72a: ; 8e72a add $10 Function8e72c: ; 8e72c and $3f cp $20 jr nc, .asm_8e737 call Function8e741 ld a, h ret .asm_8e737 and $1f call Function8e741 ld a, h xor $ff inc a ret ; 8e741 Function8e741: ; 8e741 ld e, a ld a, d ld d, $0 ld hl, $675d add hl, de add hl, de ld e, [hl] inc hl ld d, [hl] ld hl, $0000 .asm_8e750 srl a jr nc, .asm_8e755 add hl, de .asm_8e755 sla e rl d and a jr nz, .asm_8e750 ret ; 8e75d INCBIN "baserom.gbc",$8e75d,$8e79d - $8e75d Function8e79d: ; 8e79d ld a, [hSGB] ld de, $67f4 and a jr z, .asm_8e7a8 ld de, $6804 .asm_8e7a8 ld hl, VTiles0 ld bc, $2301 call Request2bpp ld c, $8 ld d, $0 .asm_8e7b5 push bc call Function8e7c6 call DelayFrame pop bc inc d inc d dec c jr nz, .asm_8e7b5 call ClearSprites ret ; 8e7c6 Function8e7c6: ; 8e7c6 ld hl, Sprites ld c, $8 .asm_8e7cb ld a, c and a ret z dec c ld a, c sla a sla a sla a push af push de push hl call Function8e72c pop hl pop de add $68 ld [hli], a pop af push de push hl call Function8e72a pop hl pop de add $54 ld [hli], a ld a, $0 ld [hli], a ld a, $6 ld [hli], a jr .asm_8e7cb ; 8e7f4 INCBIN "baserom.gbc",$8e7f4,$8e814 - $8e7f4 Function8e814: ; 8e814 push hl push de push bc push af ld hl, $c300 ld bc, $00c1 .asm_8e81e ld [hl], $0 inc hl dec bc ld a, c or b jr nz, .asm_8e81e pop af pop bc pop de pop hl ret ; 8e82b Function8e82b: ; 8e82b ld a, e call ReadMonMenuIcon ld l, a ld h, $0 add hl, hl ld de, IconPointers add hl, de ld a, [hli] ld e, a ld d, [hl] ld b, $23 ld c, $8 ret ; 8e83f Function8e83f: ; 8e83f push hl push de push bc call Function8e849 pop bc pop de pop hl ret ; 8e849 Function8e849: ; 8e849 ld d, $0 ld hl, $6854 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 8e854 ; no known jump sources Jumptable_8e854: ; 8e854 (23:6854) dw Function8e8d5 dw Function8e961 dw Function8e97d dw Function8e99a dw Function8e898 dw Function8e8b1 dw Function8e862 ; no known jump sources Function8e862: ; 8e862 (23:6862) call Function8e908 call Function8e86c call Function8e936 ret ; known jump sources: 8e865 (23:6865) Function8e86c: ; 8e86c (23:686c) push bc ld a, [hConnectedMapWidth] ; $ff00+$b0 ld hl, PartyMon1Item ; $dce0 ld bc, $30 call AddNTimes pop bc ld a, [hl] and a jr z, .asm_8e890 push hl push bc ld d, a callab ItemIsMail pop bc pop hl jr c, .asm_8e88e ld a, $6 jr .asm_8e892 .asm_8e88e ld a, $5 .asm_8e890 ld a, $4 .asm_8e892 ld hl, $1 add hl, bc ld [hl], a ret ; no known jump sources Function8e898: ; 8e898 (23:6898) call Function8e8d5 ld hl, $2 add hl, bc ld a, $0 ld [hl], a ld hl, $4 add hl, bc ld a, $48 ld [hl], a ld hl, $5 add hl, bc ld a, $48 ld [hl], a ret ; no known jump sources Function8e8b1: ; 8e8b1 (23:68b1) call Function8e908 call Function8e936 ld hl, $2 add hl, bc ld a, $0 ld [hl], a ld hl, $4 add hl, bc ld a, $18 ld [hl], a ld hl, $5 add hl, bc ld a, $60 ld [hl], a ld a, c ld [EnemyMoveAnimation], a ; $c608 (aliases: EnemyMoveStruct) ld a, b ld [EnemyMoveEffect], a ; $c609 ret ; known jump sources: 8e898 (23:6898) Function8e8d5: ; 8e8d5 (23:68d5) call Function8e908 call Function8e8df call Function8e936 ret ; known jump sources: 8e8d8 (23:68d8) Function8e8df: ; 8e8df (23:68df) push bc ld a, [hConnectedMapWidth] ; $ff00+$b0 ld hl, PartyMon1Item ; $dce0 ld bc, $30 call AddNTimes pop bc ld a, [hl] and a ret z push hl push bc ld d, a callab ItemIsMail pop bc pop hl jr c, .asm_8e900 ld a, $3 jr .asm_8e902 .asm_8e900 ld a, $2 .asm_8e902 ld hl, $1 add hl, bc ld [hl], a ret ; known jump sources: 8e862 (23:6862), 8e8b1 (23:68b1), 8e8d5 (23:68d5) Function8e908: ; 8e908 (23:6908) ld a, [$c3b7] push af ld a, [hConnectedMapWidth] ; $ff00+$b0 ld hl, PartySpecies ; $dcd8 ld e, a ld d, $0 add hl, de ld a, [hl] call ReadMonMenuIcon ld [CurIcon], a ; $c3b6 call Function8e9db ld a, [hConnectedMapWidth] ; $ff00+$b0 add a add a add a add a add $1c ld d, a ld e, $10 ld a, $0 call Function8cfd6 pop af ld hl, $3 add hl, bc ld [hl], a ret ; known jump sources: 8e868 (23:6868), 8e8b4 (23:68b4), 8e8db (23:68db) Function8e936: ; 8e936 (23:6936) push bc ld a, [hConnectedMapWidth] ; $ff00+$b0 ld b, a call Function8e94c ld a, b pop bc ld hl, $9 add hl, bc ld [hl], a rlca rlca ld hl, $d add hl, bc ld [hl], a ret ; known jump sources: 8e93a (23:693a) Function8e94c: ; 8e94c (23:694c) callba Function50117 call GetHPPal ld e, d ld d, $0 ld hl, $695e add hl, de ld b, [hl] ret ; 8e95e (23:695e) INCBIN "baserom.gbc",$8e95e,$8e961 - $8e95e ; no known jump sources Function8e961: ; 8e961 (23:6961) ld a, [$d265] call ReadMonMenuIcon ld [CurIcon], a ; $c3b6 xor a call GetIconGFX ld de, $2420 ld a, $0 call Function8cfd6 ld hl, $2 add hl, bc ld [hl], $0 ret ; no known jump sources Function8e97d: ; 8e97d (23:697d) ld a, [$d265] call ReadMonMenuIcon ld [CurIcon], a ; $c3b6 xor a call GetIconGFX ld d, $1a ld e, $24 ld a, $0 call Function8cfd6 ld hl, $2 add hl, bc ld [hl], $0 ret ; no known jump sources Function8e99a: ; 8e99a (23:699a) ld a, [$d265] call ReadMonMenuIcon ld [CurIcon], a ; $c3b6 ld a, $62 ld [$c3b7], a call Function8e9db ret GetSpeciesIcon: ; 8e9ac ; Load species icon into VRAM at tile a push de ld a, [$d265] call ReadMonMenuIcon ld [CurIcon], a pop de ld a, e call GetIconGFX ret ; 8e9bc ; no known jump sources Function8e9bc: ; 8e9bc (23:69bc) push de ld a, [$d265] call ReadMonMenuIcon ld [CurIcon], a ; $c3b6 pop de ld a, e call GetIcon_a ret ; 8e9cc (23:69cc) INCBIN "baserom.gbc",$8e9cc,$8e9db - $8e9cc ; known jump sources: 8e91c (23:691c), 8e9a8 (23:69a8) Function8e9db: ; 8e9db (23:69db) ld a, [$c3b7] GetIconGFX: ; 8e9de call GetIcon_a ld de, $80 ; 8 tiles add hl, de ld de, HeldItemIcons ld bc, $2302 call GetGFXUnlessMobile ld a, [$c3b7] add 10 ld [$c3b7], a ret HeldItemIcons: INCBIN "gfx/icon/mail.2bpp" INCBIN "gfx/icon/item.2bpp" ; 8ea17 GetIcon_de: ; 8ea17 ; Load icon graphics into VRAM starting from tile de ld l, e ld h, d jr GetIcon GetIcon_a: ; 8ea1b ; Load icon graphics into VRAM starting from tile a ld l, a ld h, 0 GetIcon: ; 8ea1e ; Load icon graphics into VRAM starting from tile hl ; One tile is 16 bytes long add hl, hl add hl, hl add hl, hl add hl, hl ld de, VTiles0 add hl, de push hl ; Reading the icon pointer table would only make sense if they were ; scattered. However, the icons are contiguous and in-order. ld a, [CurIcon] push hl ld l, a ld h, 0 add hl, hl ld de, IconPointers add hl, de ld a, [hli] ld e, a ld d, [hl] pop hl ld bc, $2308 call GetGFXUnlessMobile pop hl ret ; 8ea3f GetGFXUnlessMobile: ; 8ea3f ld a, [InLinkBattle] cp 4 ; Mobile Link Battle jp nz, Request2bpp jp Functiondc9 ; 8ea4a Function8ea4a: ; 8ea4a ld hl, $c314 ld e, $6 ld a, [$cfa9] ld d, a .asm_8ea53 ld a, [hl] and a jr z, .asm_8ea69 cp d jr z, .asm_8ea5e ld a, $0 jr .asm_8ea60 .asm_8ea5e ld a, $2 .asm_8ea60 push hl ld c, l ld b, h ld hl, $0002 add hl, bc ld [hl], a pop hl .asm_8ea69 ld bc, $0010 add hl, bc dec e jr nz, .asm_8ea53 ret ; 8ea71 Function8ea71: ; 8ea71 ld hl, $c314 ld e, $6 .asm_8ea76 ld a, [hl] and a jr z, .asm_8ea84 push hl ld c, l ld b, h ld hl, $2 add hl, bc ld [hl], $1 pop hl .asm_8ea84 ld bc, $10 add hl, bc dec e jr nz, .asm_8ea76 ret ; 8ea8c (23:6a8c) Function8ea8c: ; 8ea8c ld hl, $c314 ld e, $6 ld a, [$d0e3] ld d, a .asm_8ea95 ld a, [hl] and a jr z, .asm_8eaab cp d jr z, .asm_8eaa0 ld a, $3 jr .asm_8eaa2 .asm_8eaa0 ld a, $2 .asm_8eaa2 push hl ld c, l ld b, h ld hl, $2 add hl, bc ld [hl], a pop hl .asm_8eaab ld bc, $10 add hl, bc dec e jr nz, .asm_8ea95 ret INCLUDE "menu/mon_icons.asm" SECTION "bank24", ROMX, BANK[$24] Function90000: ; 90000 call Function9001c jr c, .asm_9000d call Function9002d jr nc, .asm_9000d ld [hl], c xor a ret .asm_9000d scf ret ; 9000f Function9000f: ; 9000f call Function9001c jr nc, .asm_90017 xor a ld [hl], a ret .asm_90017 scf ret ; 90019 Function90019: ; 90019 jp Function9001c ; 9001c Function9001c: ; 9001c ld hl, $dc7c ld b, $a .asm_90021 ld a, [hli] cp c jr z, .asm_9002a dec b jr nz, .asm_90021 xor a ret .asm_9002a dec hl scf ret ; 9002d Function9002d: ; 9002d call Function90040 ld b, a ld hl, $dc7c .asm_90034 ld a, [hli] and a jr z, .asm_9003d dec b jr nz, .asm_90034 xor a ret .asm_9003d dec hl scf ret ; 90040 Function90040: ; 90040 xor a ld [Buffer1], a ld hl, $4066 .asm_90047 ld a, [hli] cp $ff jr z, .asm_9005f cp c jr z, .asm_9005d push bc push hl ld c, a call Function9001c jr c, .asm_9005b ld hl, Buffer1 inc [hl] .asm_9005b pop hl pop bc .asm_9005d jr .asm_90047 .asm_9005f ld a, $a ld hl, Buffer1 sub [hl] ret ; 90066 INCBIN "baserom.gbc",$90066,$90069 - $90066 Function90069: ; 90069 ld a, [hROMBank] push af ld a, b rst Bankswitch call PlaceString pop af rst Bankswitch ret ; 90074 ; no known jump sources Function90074: ; 90074 (24:4074) call CheckStandingOnEntrance jr z, .asm_900a4 call Function900a6 nop jr nc, .asm_900a4 call Random ld b, a and $7f cp b jr nz, .asm_900a4 call Function2d05 and a jr nz, .asm_900a4 call Function900de call Function900bf jr nc, .asm_900a4 ld e, a call Function9020d ld a, $24 ld hl, $4241 call CallScript scf ret .asm_900a4 xor a ret ; known jump sources: 90079 (24:4079) Function900a6: ; 900a6 (24:40a6) callba Function11401 ret ; known jump sources: 901b9 (24:41b9) Function900ad: ; 900ad (24:40ad) push hl push bc push de push af callba Functionc000 pop af and $7 and c pop de pop bc pop hl ret ; known jump sources: 90091 (24:4091) Function900bf: ; 900bf (24:40bf) ld a, [MartPointer] ; $d040 (aliases: Unkn2Pals) and a jr z, .asm_900dc ld c, a call Random ld a, [hRandomAdd] ; $ff00+$e1 swap a and $1f call SimpleDivide ld c, a ld b, $0 ld hl, $d041 add hl, bc ld a, [hl] scf ret .asm_900dc xor a ret ; known jump sources: 9008e (24:408e) Function900de: ; 900de (24:40de) callba Functionc000 ld a, c ld [EngineBuffer1], a ; $d03e (aliases: MenuItemsList, CurFruitTree, CurInput) ld hl, MartPointer ; $d040 (aliases: Unkn2Pals) ld bc, $b xor a call ByteFill ld de, $dc7c ld a, $a .asm_900f7 ld [CurFruit], a ; $d03f ld a, [de] and a jr z, .asm_9012e ld hl, $4467 ld bc, $c call AddNTimes ld a, [EngineBuffer1] ; $d03e (aliases: MenuItemsList, CurFruitTree, CurInput) and [hl] jr z, .asm_9012e ld bc, $fffa add hl, bc ld a, [MapGroup] ; $dcb5 cp [hl] jr nz, .asm_9011e inc hl ld a, [MapNumber] ; $dcb6 cp [hl] jr z, .asm_9012e .asm_9011e ld a, [MartPointer] ; $d040 (aliases: Unkn2Pals) ld c, a ld b, $0 inc a ld [MartPointer], a ; $d040 (aliases: Unkn2Pals) ld hl, $d041 add hl, bc ld a, [de] ld [hl], a .asm_9012e inc de ld a, [CurFruit] ; $d03f dec a jr nz, .asm_900f7 ret ; no known jump sources Function90136: ; 90136 (24:4136) ld a, [$dc31] and a jr z, .asm_90171 dec a ld c, a ld b, $0 ld hl, $4627 ld a, $6 call AddNTimes ld a, [hli] ld h, [hl] ld l, a call _hl_ jr nc, .asm_90171 call Function90178 inc hl inc hl ld a, [hli] ld e, a push hl call Function9020d pop hl ld de, $d048 ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a ld a, $24 ld hl, $4173 call CallScript scf ret .asm_90171 xor a ret ; 90173 (24:4173) INCBIN "baserom.gbc",$90173,$90178 - $90173 ; known jump sources: 90150 (24:4150) Function90178: ; 90178 (24:4178) ld a, [$dc31] dec a ld c, a ld b, $0 ld hl, $4627 ld a, $6 call AddNTimes ret ld a, [$d19a] cp $1 jr z, .asm_90195 cp $2 jr z, .asm_90195 xor a ret .asm_90195 scf ret scf ret ; known jump sources: 9121b (24:521b) Function90199: ; 90199 (24:4199) ld a, [InLinkBattle] ; $c2dc and a jr nz, .asm_901e7 call Function2d05 and a jr nz, .asm_901e7 ld a, b ld [$dbf9], a ld hl, $445f ld bc, $c call AddNTimes ld d, h ld e, l ld hl, $4 add hl, de ld a, [hl] call Function900ad jr z, .asm_901e7 ld hl, $2 add hl, de ld a, [MapGroup] ; $dcb5 cp [hl] jr nz, .asm_901d9 ld hl, $3 add hl, de ld a, [MapNumber] ; $dcb6 cp [hl] jr nz, .asm_901d9 ld b, $24 ld hl, $4660 jr .asm_901f0 .asm_901d9 ld hl, $5 add hl, de ld b, [hl] ld hl, $6 add hl, de ld a, [hli] ld h, [hl] ld l, a jr .asm_901f0 .asm_901e7 ld b, $24 ld de, $4209 call Function2674 ret .asm_901f0 ld a, b ld [DefaultFlypoint], a ; $d002 ld a, l ld [$d003], a ld a, h ld [$d004], a ld b, $24 ld de, $4205 call Function2674 ret ; 90205 (24:4205) INCBIN "baserom.gbc",$90205,$9020d - $90205 ; known jump sources: 90097 (24:4097), 90158 (24:4158) Function9020d: ; 9020d (24:420d) nop nop ld a, e ld [$dbf9], a and a jr nz, .asm_9021d ld a, $24 ld hl, $4233 jr .asm_90229 .asm_9021d ld hl, $445f ld bc, $c ld a, e call AddNTimes ld a, $24 .asm_90229 ld de, CurFruit ; $d03f ld bc, $c call FarCopyBytes ret ; 90233 (24:4233) INCBIN "baserom.gbc",$90233,$9026f - $90233 call Function9027c call Function9027c callba Function1060d3 ret ; known jump sources: 9026f (24:426f), 90272 (24:4272) Function9027c: ; 9027c (24:427c) call Function9033f call Function90357 call Function90292 call Function90357 call Function90375 call Function90357 call Function90292 ret ; known jump sources: 90282 (24:4282), 9028e (24:428e) Function90292: ; 90292 (24:4292) ld a, [$dbf9] ld b, a call Function90363 ret Function9029a: ; 9029a ld a, b ld [DefaultFlypoint], a ld a, e ld [$d003], a ld a, d ld [$d004], a call Function902b3 call Function902b3 callba Function1060d3 ret ; 902b3 Function902b3: ; 902b3 call Function9033f call Function90357 call Function902c9 call Function90357 call Function90375 call Function90357 call Function902c9 ret ; 902c9 Function902c9: ; 902c9 call Function90375 ld hl, $c4c9 ld [hl], $62 inc hl inc hl ld a, [DefaultFlypoint] ld b, a ld a, [$d003] ld e, a ld a, [$d004] ld d, a call Function90069 ret ; 902e3 ; no known jump sources Function902e3: ; 902e3 (24:42e3) ld de, $6c call PlaySFX jr asm_902f1 Function902eb: ; 902eb call Function9031d call Function90355 asm_902f1: call Function9032f call Function90355 call Function9033b call Function90355 call Function9032f call Function90355 call Function9033b call Function90355 call Function9032f call Function90355 call Function9033b call Function90355 ret ; 90316 INCBIN "baserom.gbc",$90316,$9031d - $90316 Function9031d: ; 9031d ld hl, UnknownText_0x9032a call PrintText ld de, SFX_HANG_UP call PlaySFX ret ; 9032a UnknownText_0x9032a: ; 9032a text_jump UnknownText_0x1c5580 db "@" ; 9032f Function9032f: ; 9032f ld hl, UnknownText_0x90336 call PrintText ret ; 90336 UnknownText_0x90336: ; 0x90336 text_jump UnknownText_0x1c5588 db "@" ; 0x9033b Function9033b: ; 9033b call SpeechTextBox ret ; 9033f Function9033f: ; 9033f call WaitSFX ld de, SFX_CALL call PlaySFX call Function90375 call Function1ad2 callba Function4d188 ret ; 90355 Function90355: ; 90355 jr Function90357 Function90357 ld c, $14 call DelayFrames callba Function4d188 ret ; 90363 ; known jump sources: 90296 (24:4296) Function90363: ; 90363 (24:4363) push bc call Function90375 ld hl, $c4b5 ld [hl], $62 inc hl inc hl ld d, h ld e, l pop bc call Function90380 ret Function90375: ; 90375 ld hl, TileMap ld b, $2 ld c, $12 call TextBox ret ; 90380 ; known jump sources: 90371 (24:4371), 9130b (24:530b) Function90380: ; 90380 (24:4380) ld h, d ld l, e ld a, b call Function9039a call Function903a9 ret ; no known jump sources Function9038a: ; 9038a (24:438a) ld a, c call Function9039a ld a, c ret nz ld a, b cp $1 ret z cp $4 ret z ld c, $1 ret Function9039a: ; 9039a push hl ld hl, $445f ld bc, $000c call AddNTimes ld a, [hli] ld b, [hl] ld c, a pop hl ret ; 903a9 ; known jump sources: 90386 (24:4386) Function903a9: ; 903a9 (24:43a9) ld a, c and a jr z, .asm_903c5 call Function90423 push hl push bc call PlaceString ld a, $9c ld [bc], a pop bc pop hl ld de, $17 add hl, de call Function9042e call PlaceString ret .asm_903c5 push hl ld c, b ld b, $0 ld hl, $43d6 add hl, bc add hl, bc ld a, [hli] ld e, a ld d, [hl] pop hl call PlaceString ret ; 903d6 (24:43d6) INCBIN "baserom.gbc",$903d6,$90423 - $903d6 ; known jump sources: 903ad (24:43ad) Function90423: ; 90423 (24:4423) push hl push bc callba Function3994c pop bc pop hl ret ; known jump sources: 903be (24:43be) Function9042e: ; 9042e (24:442e) push hl push bc callba Function3952d pop bc pop hl ret Function90439: ; 90439 ld a, [$dbf9] call Function9039a ld d, c ld e, b push de ld a, [$dbf9] ld hl, $4461 ld bc, $000c call AddNTimes ld b, [hl] inc hl ld c, [hl] push bc call GetWorldMapLocation ld e, a callba GetLandmarkName pop bc pop de ret ; 9045f INCBIN "baserom.gbc",$9045f,$90672 - $9045f ; no known jump sources Function90672: ; 90672 (24:4672) ld a, [$FF00+$aa] push af ld a, $1 ld [$FF00+$aa], a ld a, $0 ld [$c2ce], a ld a, $10 ld [MusicFade], a ; $c2a7 ld a, $0 ld [MusicFadeIDLo], a ; $c2a9 ld a, $0 ld [MusicFadeIDHi], a ; $c2aa ld c, $8 call DelayFrames call Function4dd call ClearTileMap call ClearSprites ld b, $8 call GetSGBLayout xor a ld [hBGMapMode], a ; $ff00+$d4 call Functione51 ld de, $48fb ld hl, $9000 ld bc, $2401 call Request1bpp ld de, $4903 ld hl, $9010 ld bc, $2401 call Request1bpp ld de, $490b ld hl, $9020 ld bc, $2401 call Request1bpp call Function90783 call WaitBGMap call Function4a3 ld hl, $4874 call PrintText ld hl, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) ld bc, $32 xor a call ByteFill ld a, $a ld [$c61c], a .asm_906e8 ld hl, $4879 call PrintText ld hl, $c52f ld b, $2 ld c, $f call TextBox ld hl, $c537 ld [hl], $1 ld hl, $c573 ld [hl], $2 ld hl, $c558 call Function907de ld c, $a call DelayFrames .asm_9070d call Functiona57 call Function90795 jr nc, .asm_9070d ld a, [$c61c] ld [$d087], a call Function90783 ld hl, $4886 call PrintText call YesNoBox jr nc, .asm_9072e call Function90783 jr .asm_906e8 .asm_9072e ld hl, $489a call PrintText ld hl, $c537 ld bc, $207 call TextBox ld hl, $c53b ld [hl], $1 ld hl, $c577 ld [hl], $2 ld hl, $c560 call Function90859 ld c, $a call DelayFrames .asm_90752 call Functiona57 call Function90810 jr nc, .asm_90752 ld a, [$c626] ld [$d088], a call Function90783 ld hl, $48a4 call PrintText call YesNoBox jr nc, .asm_90773 call Function90783 jr .asm_9072e .asm_90773 call Function658 ld hl, $48b8 call PrintText call Functiona80 pop af ld [$FF00+$aa], a ret ; known jump sources: 906ca (24:46ca), 9071b (24:471b), 90729 (24:4729), 90760 (24:4760), 9076e (24:476e) Function90783: ; 90783 (24:4783) xor a ld [hBGMapMode], a ; $ff00+$d4 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 xor a call ByteFill ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ret ; known jump sources: 90710 (24:4710) Function90795: ; 90795 (24:4795) ld a, [hJoyPressed] ; $ff00+$a7 and $1 jr nz, .asm_907dc ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_907ba ld a, [hl] and $80 jr nz, .asm_907ad call DelayFrame and a ret .asm_907ad ld hl, $c61c ld a, [hl] and a jr nz, .asm_907b6 ld a, $18 .asm_907b6 dec a ld [hl], a jr .asm_907c6 .asm_907ba ld hl, $c61c ld a, [hl] cp $17 jr c, .asm_907c4 ld a, $ff .asm_907c4 inc a ld [hl], a .asm_907c6 ld hl, $c558 ld a, $7f ld bc, $f call ByteFill ld hl, $c558 call Function907de call WaitBGMap and a ret .asm_907dc scf ret ; known jump sources: 90705 (24:4705), 907d4 (24:47d4), 9088e (24:488e) Function907de: ; 907de (24:47de) push hl ld a, [$c61c] ld c, a ld e, l ld d, h call Function90b3e inc hl ld de, $487e call PlaceString pop hl ret ; 907f1 (24:47f1) INCBIN "baserom.gbc",$907f1,$90810 - $907f1 ; known jump sources: 90755 (24:4755) Function90810: ; 90810 (24:4810) ld a, [hJoyPressed] ; $ff00+$a7 and $1 jr nz, .asm_90857 ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_90835 ld a, [hl] and $80 jr nz, .asm_90828 call DelayFrame and a ret .asm_90828 ld hl, $c626 ld a, [hl] and a jr nz, .asm_90831 ld a, $3c .asm_90831 dec a ld [hl], a jr .asm_90841 .asm_90835 ld hl, $c626 ld a, [hl] cp $3b jr c, .asm_9083f ld a, $ff .asm_9083f inc a ld [hl], a .asm_90841 ld hl, $c560 ld a, $7f ld bc, $7 call ByteFill ld hl, $c560 call Function90859 call WaitBGMap and a ret .asm_90857 scf ret ; known jump sources: 9074a (24:474a), 9084f (24:484f), 908ac (24:48ac) Function90859: ; 90859 (24:4859) ld de, $c626 call Function90867 inc hl ld de, $489f call PlaceString ret ; known jump sources: 9085c (24:485c), 90b54 (24:4b54) Function90867: ; 90867 (24:4867) push hl ld a, $7f ld [hli], a ld [hl], a pop hl ld bc, $4102 call PrintNum ret ; 90874 (24:4874) INCBIN "baserom.gbc",$90874,$9088b - $90874 ld hl, $c5e1 call Function907de ld hl, $4895 ret ; 90895 (24:4895) INCBIN "baserom.gbc",$90895,$908a9 - $90895 ld hl, $c5bf call Function90859 ld hl, $48b3 ret ; 908b3 (24:48b3) INCBIN "baserom.gbc",$908b3,$908b9 - $908b3 ld de, $c5b9 ld a, [$c61c] ld c, a call Function90b3e ld [hl], $9c inc hl ld de, $c626 ld bc, $8102 call PrintNum ld b, h ld c, l ld a, [$c61c] cp $4 jr c, .asm_908e0 cp $b jr c, .asm_908e4 cp $12 jr c, .asm_908e8 .asm_908e0 ld hl, $48f6 ret .asm_908e4 ld hl, $48ec ret .asm_908e8 ld hl, $48f1 ret ; 908ec (24:48ec) INCBIN "baserom.gbc",$908ec,$90913 - $908ec Function90913: ; 90913 ld a, [$ffaa] push af ld a, $1 ld [$ffaa], a ld de, $4903 ld hl, $8ef0 ld bc, $2401 call Request1bpp ld de, $490b ld hl, $8f50 ld bc, $2401 call Request1bpp xor a ld [DefaultFlypoint], a .asm_90936 ld hl, $c590 ld bc, $0412 call TextBox call Function1d6e ld hl, $4a3f call PrintText ld hl, $c4e5 ld b, $2 ld c, $9 call TextBox ld hl, $c4ea ld [hl], $ef ld hl, $c526 ld [hl], $f5 ld hl, $c50e call Function909de call Function321c ld c, $a call DelayFrames .asm_9096a call Functiona57 call Function90993 jr nc, .asm_9096a call Function1c07 call Function1ad2 ld hl, $4a44 call PrintText call YesNoBox jr c, .asm_90936 ld a, [DefaultFlypoint] ld [StringBuffer2], a call Function663 call Functione51 pop af ld [$ffaa], a ret ; 90993 Function90993: ; 90993 ld a, [hJoyPressed] and $1 jr z, .asm_9099b scf ret .asm_9099b ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_909ba ld a, [hl] and $80 jr nz, .asm_909ad call DelayFrame and a ret .asm_909ad ld hl, DefaultFlypoint ld a, [hl] and a jr nz, .asm_909b6 ld a, $7 .asm_909b6 dec a ld [hl], a jr .asm_909c6 .asm_909ba ld hl, DefaultFlypoint ld a, [hl] cp $6 jr c, .asm_909c4 ld a, $ff .asm_909c4 inc a ld [hl], a .asm_909c6 xor a ld [hBGMapMode], a ld hl, $c4fa ld b, $2 ld c, $9 call ClearBox ld hl, $c50e call Function909de call WaitBGMap and a ret ; 909de Function909de: ; 909de push hl ld a, [DefaultFlypoint] ld e, a ld d, $0 ld hl, $49f2 add hl, de add hl, de ld a, [hli] ld d, [hl] ld e, a pop hl call PlaceString ret ; 909f2 dw Sunday dw Monday dw Tuesday dw Wednesday dw Thursday dw Friday dw Saturday dw Sunday Sunday: db " SUNDAY@" Monday: db " MONDAY@" Tuesday: db " TUESDAY@" Wednesday: db "WEDNESDAY@" Thursday: db "THURSDAY@" Friday: db " FRIDAY@" Saturday: db "SATURDAY@" INCBIN "baserom.gbc",$90a3f,$90a45 - $90a3f ld hl, $c5b9 call Function909de ld hl, $4a4f ret ; 90a4f (24:4a4f) INCBIN "baserom.gbc",$90a4f,$90a54 - $90a4f Function90a54: ; 90a54 ld a, [$d4c2] set 7, a ld [$d4c2], a ld hl, $c5b9 ld bc, $0312 call ClearBox ld hl, $4a6c call Function13e5 ret ; 90a6c INCBIN "baserom.gbc",$90a6c,$90a6d - $90a6c call UpdateTime ld a, [hHours] ; $ff00+$94 ld b, a ld a, [hMinutes] ; $ff00+$96 ld c, a ld de, $c5b9 callba Function1dd6bb ld hl, $4a83 ret ; 90a83 (24:4a83) INCBIN "baserom.gbc",$90a83,$90a88 - $90a83 Function90a88: ; 90a88 ld a, [$d4c2] res 7, a ld [$d4c2], a ld hl, $c5b9 ld bc, $0312 call ClearBox ld hl, $4aa0 call Function13e5 ret ; 90aa0 INCBIN "baserom.gbc",$90aa0,$90b3e - $90aa0 ; known jump sources: 907e5 (24:47e5), 908c0 (24:48c0) Function90b3e: ; 90b3e (24:4b3e) ld l, e ld h, d push bc call Function90b58 call PlaceString ld l, c ld h, b inc hl pop bc call Function90b7f ld [$d265], a ld de, $d265 call Function90867 ret ; known jump sources: 90b41 (24:4b41) Function90b58: ; 90b58 (24:4b58) ld a, c cp $4 jr c, .asm_90b65 cp $a jr c, .asm_90b69 cp $12 jr c, .asm_90b6d .asm_90b65 ld de, $4b71 ret .asm_90b69 ld de, $4b76 ret .asm_90b6d ld de, $4b7b ret ; 90b71 (24:4b71) INCBIN "baserom.gbc",$90b71,$90b7f - $90b71 ; known jump sources: 90b4b (24:4b4b) Function90b7f: ; 90b7f (24:4b7f) ld a, c or a jr z, .asm_90b8a cp $c ret c ret z sub $c ret .asm_90b8a ld a, $c ret Function90b8d: ; 90b8d (24:4b8d) ld hl, Options ; $cfcc ld a, [hl] push af set 4, [hl] ld a, [$FF00+$aa] push af ld a, $1 ld [$FF00+$aa], a ld a, [VramState] ; $d0ed push af xor a ld [VramState], a ; $d0ed call Function90bea call DelayFrame .asm_90ba9 call UpdateTime call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_90bc4 call Function90f04 callba Function8cf69 call DelayFrame jr .asm_90ba9 .asm_90bc4 ld de, $8 call PlaySFX call WaitSFX pop af ld [VramState], a ; $d0ed pop af ld [$FF00+$aa], a pop af ld [Options], a ; $cfcc call WhiteBGMap xor a ld [hBGMapAddress], a ; $ff00+$d6 ld a, $98 ld [$FF00+$d7], a ld a, $90 ld [hWY], a ; $ff00+$d2 call Function91492 ret ; known jump sources: 90ba3 (24:4ba3) Function90bea: ; 90bea (24:4bea) call WhiteBGMap call ClearTileMap call ClearSprites call DisableLCD xor a ld [hSCY], a ; $ff00+$d0 ld [hSCX], a ; $ff00+$cf ld a, $7 ld [hWX], a ; $ff00+$d1 call Function90c4e callba Function8cf53 call Function90d32 ld a, $8 call Function3cb4 ld a, $e3 ld [rLCDC], a ; $ff00+$40 call Function90d70 xor a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [$cf66], a ld [PlayerEvaLevel], a ; $c6d2 ld [PlayerAccLevel], a ; $c6d1 ld [$c6d3], a ld [EnemyAccLevel], a ; $c6d9 ld [EnemyEvaLevel], a ; $c6da ld [$c6db], a call Function90d9e call Function90da8 ld b, $2 call GetSGBLayout call Function32f9 ld a, [hCGB] ; $ff00+$e6 and a ret z ld a, $e4 call Functioncf8 ret Function90c4e: ; 90c4e call Functiond79 ld hl, TownMapGFX ld de, VTiles2 ld a, BANK(TownMapGFX) call FarDecompress ld hl, PokegearGFX ld de, $9300 ld a, BANK(PokegearGFX) call FarDecompress ld hl, PokegearSpritesGFX ld de, VTiles0 ld a, BANK(PokegearSpritesGFX) call Decompress ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a call GetWorldMapLocation cp FAST_SHIP jr z, .ssaqua callba GetPlayerIcon push de ld h, d ld l, e ld a, b push af ld de, $8100 ld bc, $40 call FarCopyBytes pop af pop hl ld de, $c0 add hl, de ld de, $8140 ld bc, $40 call FarCopyBytes ret .ssaqua ld hl, FastShipGFX ld de, $8100 ld bc, $80 call CopyBytes ret ; 90cb2 FastShipGFX: ; 90cb2 INCBIN "gfx/misc/fast_ship.2bpp" ; 90d32 ; known jump sources: 90c08 (24:4c08) Function90d32: ; 90d32 (24:4d32) ld de, $2410 ld a, $d call Function3b2a ld hl, $3 add hl, bc ld [hl], $0 ret ; no known jump sources Function90d41: ; 90d41 (24:4d41) ld hl, $cf64 ld e, [hl] ld d, $0 ld hl, $4d52 add hl, de ld a, [hl] ld hl, $6 add hl, bc ld [hl], a ret ; 90d52 (24:4d52) INCBIN "baserom.gbc",$90d52,$90d56 - $90d52 Function90d56: ; 90d56 ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a call GetWorldMapLocation cp SPECIAL_MAP ret nz ld a, [BackupMapGroup] ld b, a ld a, [BackupMapNumber] ld c, a call GetWorldMapLocation ret ; 90d70 ; known jump sources: 90c14 (24:4c14) Function90d70: ; 90d70 (24:4d70) ld a, [MapGroup] ; $dcb5 ld b, a ld a, [MapNumber] ; $dcb6 ld c, a call GetWorldMapLocation cp FAST_SHIP jr z, .asm_90d95 cp SPECIAL_MAP jr nz, .asm_90d8e ld a, [BackupMapGroup] ; $dcad ld b, a ld a, [BackupMapNumber] ; $dcae ld c, a call GetWorldMapLocation .asm_90d8e ld [$c6d8], a ld [$c6d7], a ret .asm_90d95 ld [$c6d8], a ld a, 1 ld [$c6d7], a ret ; known jump sources: 90c36 (24:4c36) Function90d9e: ; 90d9e (24:4d9e) ld a, $0 ld [$cf63], a xor a ld [$cf64], a ret ; known jump sources: 90c39 (24:4c39), 90f2d (24:4f2d), 90fcd (24:4fcd), 910f9 (24:50f9), 91164 (24:5164) Function90da8: ; 90da8 (24:4da8) xor a ld [hBGMapMode], a ; $ff00+$d4 ld hl, TileMap ld bc, TileMapEnd - TileMap ld a, $4f call ByteFill ld a, [$cf64] and $3 add a ld e, a ld d, 0 ld hl, $4e12 add hl, de ld a, [hli] ld h, [hl] ld l, a ld de, .asm_90dcb push de jp [hl] .asm_90dcb call Function90eb0 callba TownMapPals ld a, [$cf65] and a jr nz, .asm_90de8 xor a ld [hBGMapAddress], a ; $ff00+$d6 ld a, $98 ld [$FF00+$d7], a call Function90e00 ld a, $90 jr .asm_90df3 .asm_90de8 xor a ld [hBGMapAddress], a ; $ff00+$d6 ld a, $9c ld [$FF00+$d7], a call Function90e00 xor a .asm_90df3 ld [hWY], a ; $ff00+$d2 ld a, [$cf65] and 1 xor 1 ld [$cf65], a ret ; known jump sources: 90de1 (24:4de1), 90def (24:4def) Function90e00: ; 90e00 (24:4e00) ld a, [hCGB] ; $ff00+$e6 and a jr z, .asm_90e0e ld a, $2 ld [hBGMapMode], a ; $ff00+$d4 ld c, $3 call DelayFrames .asm_90e0e call WaitBGMap ret ; 90e12 (24:4e12) JumpTable90e12: ; 90e12 dw Function90e1a dw Function90e3f dw Function90e82 dw Function90e72 ; 90e1a Function90e1a: ; 90e1a ld de, $55db call Function914bb ld hl, $c4c0 ld de, .switch call PlaceString ld hl, $c590 lb bc, 4, 18 call TextBox call Function90f86 ret ; 90e36 (24:4e36) .switch db " SWITCH▶@" ; 90e3f Function90e3f: ; 90e3f ld a, [$c6d8] cp FAST_SHIP jr z, .johto cp KANTO_LANDMARK jr nc, .kanto .johto ld e, 0 jr .asm_90e50 .kanto ld e, 1 .asm_90e50 callba Function91ae1 ld a, $7 ld bc, $12 ld hl, $c4c9 call ByteFill ld hl, $c4c8 ld [hl], $6 ld hl, $c4db ld [hl], $17 ld a, [$c6d7] call Function910b4 ret ; 90e72 Function90e72: ; 90e72 ld de, $550d call Function914bb ld hl, $c590 ld bc, $412 call TextBox ret ; 90e82 Function90e82: ; 90e82 ld de, $558a call Function914bb ld hl, $c590 ld bc, $412 call TextBox call Function90e98 call Function912d8 ret ; 90e98 ; known jump sources: 90e91 (24:4e91) Function90e98: ; 90e98 (24:4e98) ld hl, $c4c5 ld a, $3c ld [hli], a inc a ld [hl], a ld hl, $c4d9 inc a ld [hli], a call Function2d05 and a ret nz ld hl, $c4da ld [hl], $3f ret ; known jump sources: 90dcb (24:4dcb) Function90eb0: ; 90eb0 (24:4eb0) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $8 ld a, $4f call ByteFill ld hl, $c4b4 ld bc, $8 ld a, $4f call ByteFill ld de, $d957 ld a, [de] bit 0, a call nz, Function90ee4 ld a, [de] bit 2, a call nz, Function90eeb ld a, [de] bit 1, a call nz, Function90ef2 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld a, $46 call Function90ef7 ret ; known jump sources: 90ecc (24:4ecc) Function90ee4: ; 90ee4 (24:4ee4) ld hl, $c4a2 ld a, $40 jr Function90ef7 ; known jump sources: 90ed2 (24:4ed2) Function90eeb: ; 90eeb (24:4eeb) ld hl, $c4a4 ld a, $44 jr Function90ef7 ; known jump sources: 90ed8 (24:4ed8) Function90ef2: ; 90ef2 (24:4ef2) ld hl, $c4a6 ld a, $42 ; known jump sources: 90ee0 (24:4ee0), 90ee9 (24:4ee9), 90ef0 (24:4ef0) Function90ef7: ; 90ef7 (24:4ef7) ld [hli], a inc a ld [hld], a ld bc, $14 add hl, bc add $f ld [hli], a inc a ld [hld], a ret ; known jump sources: 90bb6 (24:4bb6) Function90f04: ; 90f04 (24:4f04) ld a, [$cf63] ld e, a ld d, $0 ld hl, $4f13 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_90f13: ; 90f13 (24:4f13) dw Function90f2d dw Function90f3e dw Function90fb4 dw Function90fcd dw Function90fee dw Function90fcd dw Function90fe9 dw Function91156 dw Function91171 dw Function911eb dw Function91256 dw Function910f9 dw Function91112 ; no known jump sources Function90f2d: ; 90f2d (24:4f2d) call Function90da8 ld hl, $54d3 call PrintText ld hl, $cf63 inc [hl] call Function91492 ret ; no known jump sources Function90f3e: ; 90f3e (24:4f3e) call Function90f7b ld hl, $ffa9 ld a, [hl] and $f jr nz, .asm_90f75 ld a, [hl] and $10 ret z ld a, [$d957] bit 0, a jr z, .asm_90f5a ld c, $2 ld b, $1 jr .asm_90f71 .asm_90f5a ld a, [$d957] bit 2, a jr z, .asm_90f67 ld c, $7 ld b, $2 jr .asm_90f71 .asm_90f67 ld a, [$d957] bit 1, a ret z ld c, $b ld b, $3 .asm_90f71 call Function91480 ret .asm_90f75 ld hl, $cf63 set 7, [hl] ret ; known jump sources: 90f3e (24:4f3e) Function90f7b: ; 90f7b (24:4f7b) xor a ld [hBGMapMode], a ; $ff00+$d4 call Function90f86 ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ret ; known jump sources: 90e32 (24:4e32), 90f7e (24:4f7e) Function90f86: ; 90f86 (24:4f86) ld hl, $c507 ld bc, $50e call ClearBox ld a, [hHours] ; $ff00+$94 ld b, a ld a, [hMinutes] ; $ff00+$96 ld c, a ld de, $c546 callba Function1dd6bb ld hl, $4faf ld bc, $c51e call Function13e5 ret ; 90fa8 (24:4fa8) INCBIN "baserom.gbc",$90fa8,$90fb4 - $90fa8 ; no known jump sources Function90fb4: ; 90fb4 (24:4fb4) ld a, [EnemySDefLevel] ; $c6d8 cp $5f jr z, .asm_90fbf cp $2f jr nc, .asm_90fc4 .asm_90fbf ld a, $3 jr .asm_90fc6 ; 90fc3 (24:4fc3) INCBIN "baserom.gbc",$90fc3,$90fc4 - $90fc3 .asm_90fc4 ld a, $5 .asm_90fc6 ld [$cf63], a call Function91492 ret ; no known jump sources Function90fcd: ; 90fcd (24:4fcd) call Function90da8 ld a, [EnemySDefLevel] ; $c6d8 call Function9106a ld a, [EnemySAtkLevel] ; $c6d7 call Function91098 ld a, c ld [EnemyDefLevel], a ; $c6d5 ld a, b ld [$c6d6], a ld hl, $cf63 inc [hl] ret ; no known jump sources Function90fe9: ; 90fe9 (24:4fe9) call Function910e8 jr asm_90ff2 ; no known jump sources Function90fee: ; 90fee (24:4fee) ld d, $2e ld e, $1 asm_90ff2: ; 90ff2 (24:4ff2) ld hl, $ffa9 ld a, [hl] and $2 jr nz, .asm_91029 ld a, [hl] and $10 jr nz, .asm_91008 ld a, [hl] and $20 jr nz, .asm_91021 call Function9102f ret .asm_91008 ld a, [$d957] bit 2, a jr z, .asm_91015 ld c, $7 ld b, $2 jr .asm_91025 .asm_91015 ld a, [$d957] bit 1, a ret z ld c, $b ld b, $3 jr .asm_91025 .asm_91021 ld c, $0 ld b, $0 .asm_91025 call Function91480 ret .asm_91029 ld hl, $cf63 set 7, [hl] ret ; known jump sources: 91004 (24:5004) Function9102f: ; 9102f (24:502f) ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_9103d ld a, [hl] and $80 jr nz, .asm_9104a ret .asm_9103d ld hl, EnemySAtkLevel ; $c6d7 ld a, [hl] cp d jr c, .asm_91047 ld a, e dec a ld [hl], a .asm_91047 inc [hl] jr .asm_91055 .asm_9104a ld hl, EnemySAtkLevel ; $c6d7 ld a, [hl] cp e jr nz, .asm_91054 ld a, d inc a ld [hl], a .asm_91054 dec [hl] .asm_91055 ld a, [EnemySAtkLevel] ; $c6d7 call Function910b4 ld a, [EnemyDefLevel] ; $c6d5 ld c, a ld a, [$c6d6] ld b, a ld a, [EnemySAtkLevel] ; $c6d7 call Function910d4 ret Function9106a: ; 9106a push af ld de, $0000 ld b, $a ld a, [PlayerGender] bit 0, a jr z, .asm_91079 ld b, $1e .asm_91079 ld a, b call Function3b2a ld hl, $0003 add hl, bc ld [hl], $10 pop af ld e, a push bc callba GetLandmarkCoords pop bc ld hl, $0004 add hl, bc ld [hl], e ld hl, $0005 add hl, bc ld [hl], d ret ; 91098 Function91098: ; 91098 push af ld de, $0000 ld a, $d call Function3b2a ld hl, $0003 add hl, bc ld [hl], $4 ld hl, $0002 add hl, bc ld [hl], $0 pop af push bc call Function910d4 pop bc ret ; 910b4 Function910b4: ; 910b4 push af ld hl, $c4a8 ld bc, $020c call ClearBox pop af ld e, a push de callba GetLandmarkName pop de callba Function1de2c5 ld hl, $c4a8 ld [hl], $34 ret ; 910d4 Function910d4: ; 910d4 push bc ld e, a callba GetLandmarkCoords pop bc ld hl, $0004 add hl, bc ld [hl], e ld hl, $0005 add hl, bc ld [hl], d ret ; 910e8 Function910e8: ; 910e8 ld a, [StatusFlags] bit 6, a jr z, .asm_910f4 ld d, $5e ld e, $2f ret .asm_910f4 ld d, $5e ld e, $58 ret ; 910f9 ; no known jump sources Function910f9: ; 910f9 (24:50f9) call Function90da8 ld de, $2454 ld a, $14 call Function3b2a ld hl, $3 add hl, bc ld [hl], $8 call Function9163e ld hl, $cf63 inc [hl] ret ; no known jump sources Function91112: ; 91112 (24:5112) ld hl, $ffa9 ld a, [hl] and $2 jr nz, .asm_91150 ld a, [hl] and $20 jr nz, .asm_9112e ld a, [EnemyEvaLevel] ; $c6da ld l, a ld a, [$c6db] ld h, a ld a, [EnemyAccLevel] ; $c6d9 and a ret z rst FarCall ret .asm_9112e ld a, [$d957] bit 2, a jr z, .asm_9113b ld c, $7 ld b, $2 jr .asm_9114c .asm_9113b ld a, [$d957] bit 0, a jr z, .asm_91148 ld c, $2 ld b, $1 jr .asm_9114c .asm_91148 ld c, $0 ld b, $0 .asm_9114c call Function91480 ret .asm_91150 ld hl, $cf63 set 7, [hl] ret ; no known jump sources Function91156: ; 91156 (24:5156) ld hl, $cf63 inc [hl] xor a ld [PlayerEvaLevel], a ; $c6d2 ld [PlayerAccLevel], a ; $c6d1 ld [$c6d3], a call Function90da8 call Function91492 ld hl, $54ce call PrintText ret ; no known jump sources Function91171: ; 91171 (24:5171) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $2 jr nz, .asm_911b0 ld a, [hl] and $1 jr nz, .asm_911b6 ld hl, $ffa9 ld a, [hl] and $20 jr nz, .asm_9118f ld a, [hl] and $10 jr nz, .asm_911a2 call Function9126d ret .asm_9118f ld a, [$d957] bit 0, a jr z, .asm_9119c ld c, $2 ld b, $1 jr .asm_911ac .asm_9119c ld c, $0 ld b, $0 jr .asm_911ac .asm_911a2 ld a, [$d957] bit 1, a ret z ld c, $b ld b, $3 .asm_911ac call Function91480 ret .asm_911b0 ld hl, $cf63 set 7, [hl] ret .asm_911b6 ld hl, $dc7c ld a, [PlayerEvaLevel] ; $c6d2 ld e, a ld d, $0 add hl, de ld a, [PlayerAccLevel] ; $c6d1 ld e, a ld d, $0 add hl, de ld a, [hl] and a ret z ld [$c6d3], a ld hl, $c4f1 ld a, [PlayerAccLevel] ; $c6d1 ld bc, $28 call AddNTimes ld [hl], $ec call Function91342 jr c, .asm_911e5 ld hl, $cf63 inc [hl] ret .asm_911e5 ld a, $8 ld [$cf63], a ret ; no known jump sources Function911eb: ; 911eb (24:51eb) call Function2d05 and a jr nz, .asm_91234 ld hl, Options ; $cfcc res 4, [hl] xor a ld [$FF00+$aa], a ld de, $6a call PlaySFX ld hl, $524c call PrintText call WaitSFX ld de, $6a call PlaySFX ld hl, $524c call PrintText call WaitSFX ld a, [$c6d3] ld b, a call Function90199 ld c, $a call DelayFrames ld hl, Options ; $cfcc set 4, [hl] ld a, $1 ld [$FF00+$aa], a call Function912b7 ld hl, $cf63 inc [hl] ret .asm_91234 callba Function902e3 ld hl, $5251 call PrintText ld a, $8 ld [$cf63], a ld hl, $54ce call PrintText ret ; 9124c (24:524c) INCBIN "baserom.gbc",$9124c,$91256 - $9124c ; no known jump sources Function91256: ; 91256 (24:5256) ld a, [hJoyPressed] ; $ff00+$a7 and $3 ret z callba Function902eb ld a, $8 ld [$cf63], a ld hl, $54ce call PrintText ret ; known jump sources: 9118b (24:518b) Function9126d: ; 9126d (24:526d) ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_9127b ld a, [hl] and $80 jr nz, .asm_9128e ret .asm_9127b ld hl, PlayerAccLevel ; $c6d1 ld a, [hl] and a jr z, .asm_91285 dec [hl] jr .asm_912a3 .asm_91285 ld hl, PlayerEvaLevel ; $c6d2 ld a, [hl] and a ret z dec [hl] jr .asm_912ad .asm_9128e ld hl, PlayerAccLevel ; $c6d1 ld a, [hl] cp $3 jr nc, .asm_91299 inc [hl] jr .asm_912a3 .asm_91299 ld hl, PlayerEvaLevel ; $c6d2 ld a, [hl] cp $6 ret nc inc [hl] jr .asm_912ad .asm_912a3 xor a ld [hBGMapMode], a ; $ff00+$d4 call Function912b7 call WaitBGMap ret .asm_912ad xor a ld [hBGMapMode], a ; $ff00+$d4 call Function912d8 call WaitBGMap ret ; known jump sources: 9122c (24:522c), 912a6 (24:52a6), 9131a (24:531a) Function912b7: ; 912b7 (24:52b7) ld a, $7f ld hl, $c4f1 ld [hl], a ld hl, $c519 ld [hl], a ld hl, $c541 ld [hl], a ld hl, $c569 ld [hl], a ld hl, $c4f1 ld a, [PlayerAccLevel] ; $c6d1 ld bc, $28 call AddNTimes ld [hl], $ed ret ; known jump sources: 90e94 (24:4e94), 912b0 (24:52b0), 913d7 (24:53d7) Function912d8: ; 912d8 (24:52d8) ld hl, $c4dd ld b, $9 ld a, $7f .asm_912df ld c, $12 .asm_912e1 ld [hli], a dec c jr nz, .asm_912e1 inc hl inc hl dec b jr nz, .asm_912df ld a, [PlayerEvaLevel] ; $c6d2 ld e, a ld d, $0 ld hl, $dc7c add hl, de xor a ld [PlayerSDefLevel], a ; $c6d0 .asm_912f8 ld a, [hli] push hl push af ld hl, $c4f2 ld a, [PlayerSDefLevel] ; $c6d0 ld bc, $28 call AddNTimes ld d, h ld e, l pop af ld b, a call Function90380 pop hl ld a, [PlayerSDefLevel] ; $c6d0 inc a ld [PlayerSDefLevel], a ; $c6d0 cp $4 jr c, .asm_912f8 call Function912b7 ret ; 9131e (24:531e) INCBIN "baserom.gbc",$9131e,$91342 - $9131e ; known jump sources: 911db (24:51db) Function91342: ; 91342 (24:5342) ld hl, $dc7c ld a, [PlayerEvaLevel] ; $c6d2 ld e, a ld d, $0 add hl, de ld a, [PlayerAccLevel] ; $c6d1 ld e, a ld d, $0 add hl, de ld c, [hl] callba Function9038a ld a, c and a jr z, .asm_91366 ld hl, $5455 ld de, $543f jr .asm_9136c .asm_91366 ld hl, $546a ld de, $545b .asm_9136c xor a ld [hBGMapMode], a ; $ff00+$d4 push hl push de ld a, [de] ld l, a inc de ld a, [de] ld h, a inc de push hl ld bc, $ffd7 add hl, bc ld a, [de] inc de sla a ld b, a ld c, $8 push de call TextBox pop de pop hl inc hl call PlaceString pop de xor a ld [EnemyAtkLevel], a ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd) call Function9141d call WaitBGMap .asm_91398 push de call Functiona57 pop de ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $40 jr nz, .asm_913b4 ld a, [hl] and $80 jr nz, .asm_913c1 ld a, [hl] and $3 jr nz, .asm_913d4 call DelayFrame jr .asm_91398 .asm_913b4 ld hl, EnemyAtkLevel ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd) ld a, [hl] and a jr z, .asm_91398 dec [hl] call Function9141d jr .asm_91398 .asm_913c1 ld hl, $2 add hl, de ld a, [EnemyAtkLevel] ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd) inc a cp [hl] jr nc, .asm_91398 ld [EnemyAtkLevel], a ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd) call Function9141d jr .asm_91398 .asm_913d4 xor a ld [hBGMapMode], a ; $ff00+$d4 call Function912d8 ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 pop hl ld a, [hJoyPressed] ; $ff00+$a7 and $2 jr nz, .asm_913f1 ld a, [EnemyAtkLevel] ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd) ld e, a ld d, $0 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] .asm_913f1 ld hl, $54ce call PrintText scf ret ; 913f9 (24:53f9) INCBIN "baserom.gbc",$913f9,$9141d - $913f9 ; known jump sources: 91392 (24:5392), 913bc (24:53bc), 913cf (24:53cf) Function9141d: ; 9141d (24:541d) push de ld a, [de] inc de ld l, a ld a, [de] inc de ld h, a ld a, [de] ld c, a push hl ld a, $7f ld de, $28 .asm_9142c ld [hl], a add hl, de dec c jr nz, .asm_9142c pop hl ld a, [EnemyAtkLevel] ; $c6d4 (aliases: EnemyStatLevels, PlayerStatLevelsEnd) ld bc, $28 call AddNTimes ld [hl], $ed pop de ret ; 9143f (24:543f) INCBIN "baserom.gbc",$9143f,$91480 - $9143f ; known jump sources: 90f71 (24:4f71), 91025 (24:5025), 9114c (24:514c), 911ac (24:51ac) Function91480: ; 91480 (24:5480) ld de, $8 call PlaySFX ld a, c ld [$cf63], a ld a, b ld [$cf64], a call Function914ab ret Function91492: ; 91492 ld a, [EnemyTurnsTaken] cp $fe jr z, .asm_914a3 cp $ff call z, Function3d03 xor a ld [EnemyTurnsTaken], a ret .asm_914a3 call Function3d47 xor a ld [EnemyTurnsTaken], a ret ; 914ab ; known jump sources: 9148e (24:548e) Function914ab: ; 914ab (24:54ab) ld hl, $c324 ld bc, $90 xor a call ByteFill ld a, $2 ld [$c3b4], a ret ; known jump sources: 90e1d (24:4e1d), 90e75 (24:4e75), 90e85 (24:4e85) Function914bb: ; 914bb (24:54bb) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) .asm_914be ld a, [de] cp $ff ret z ld b, a inc de ld a, [de] ld c, a inc de ld a, b .asm_914c8 ld [hli], a dec c jr nz, .asm_914c8 jr .asm_914be ; 914ce (24:54ce) INCBIN "baserom.gbc",$914ce,$914dd - $914ce PokegearSpritesGFX: ; 914dd INCBIN "gfx/misc/pokegear_sprites.lz" ; 91508 INCBIN "baserom.gbc",$91508,$9163e - $91508 ; known jump sources: 9110a (24:510a) Function9163e: ; 9163e (24:563e) jr asm_9166f ; no known jump sources Function91640: ; 91640 (24:5640) push bc call Function9164e pop bc ld a, [$d958] ld hl, $6 add hl, bc ld [hl], a ret ; known jump sources: 91641 (24:5641) Function9164e: ; 9164e (24:564e) ld hl, $ffa9 ld a, [hl] and $80 jr nz, .asm_9165c ld a, [hl] and $40 jr nz, .asm_91666 ret .asm_9165c ld hl, $d958 ld a, [hl] and a ret z dec [hl] dec [hl] jr asm_9166f .asm_91666 ld hl, $d958 ld a, [hl] cp $50 ret nc inc [hl] inc [hl] asm_9166f: ; 9166f (24:566f) ld hl, $d958 ld d, [hl] ld hl, $56ad .asm_91676 ld a, [hli] cp $ff jr z, .asm_91682 cp d jr z, .asm_91686 inc hl inc hl jr .asm_91676 .asm_91682 call Function91888 ret .asm_91686 ld a, [hli] ld h, [hl] ld l, a ld de, $568e push de jp [hl] ld a, [EnemyAccLevel] ; $c6d9 and a ret z xor a ld [hBGMapMode], a ; $ff00+$d4 ld hl, $c556 call PlaceString ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ret ; 916a1 (24:56a1) INCBIN "baserom.gbc",$916a1,$916c9 - $916a1 call Function91744 jr nc, .asm_91740 ld a, [TimeOfDay] ; $d269 and a jp z, Function91766 jp Function91753 call Function91744 jr nc, .asm_91740 jp Function9177b call Function91744 jr nc, .asm_91740 jp Function91790 call Function91744 jr nc, .asm_91740 jp Function917a5 ld a, [EnemySDefLevel] ; $c6d8 cp $9 jr nz, .asm_91740 jp Function917d5 call Function91744 jr c, .asm_91740 ld a, [$d957] bit 3, a jr z, .asm_91740 jp Function917ea call Function91744 jr c, .asm_91740 ld a, [$d957] bit 3, a jr z, .asm_91740 jp Function917ff call Function91744 jr c, .asm_91740 ld a, [$d957] bit 3, a jr z, .asm_91740 jp Function91829 ld a, [StatusFlags] ; $d84c bit 4, a jr z, .asm_91740 ld a, [EnemySDefLevel] ; $c6d8 cp $24 jr z, .asm_9173d cp $25 jr z, .asm_9173d cp $26 jr nz, .asm_91740 .asm_9173d jp Function9183e .asm_91740 call Function91888 ret ; known jump sources: 916c9 (24:56c9), 916d8 (24:56d8), 916e0 (24:56e0), 916e8 (24:56e8), 916fa (24:56fa), 91709 (24:5709), 91718 (24:5718) Function91744: ; 91744 (24:5744) ld a, [EnemySDefLevel] ; $c6d8 cp $5f jr z, .asm_91751 cp $2f jr c, .asm_91751 and a ret .asm_91751 scf ret ; known jump sources: 916d5 (24:56d5) Function91753: ; 91753 (24:5753) xor a ld [DefaultFlypoint], a ; $d002 ld [StartFlypoint], a ; $d005 ld a, $2e ld hl, $4612 call Function9187c ld de, $58bf ret ; known jump sources: 916d2 (24:56d2) Function91766: ; 91766 (24:5766) ld a, $1 ld [DefaultFlypoint], a ; $d002 xor a ld [StartFlypoint], a ; $d005 ld a, $2e ld hl, $4612 call Function9187c ld de, $58cc ret ; known jump sources: 916dd (24:56dd) Function9177b: ; 9177b (24:577b) ld a, $2 ld [DefaultFlypoint], a ; $d002 xor a ld [StartFlypoint], a ; $d005 ld a, $2e ld hl, $4612 call Function9187c ld de, $58d6 ret ; known jump sources: 916e5 (24:56e5) Function91790: ; 91790 (24:5790) ld a, $3 ld [DefaultFlypoint], a ; $d002 xor a ld [StartFlypoint], a ; $d005 ld a, $2e ld hl, $4612 call Function9187c ld de, $58e1 ret ; known jump sources: 916ed (24:56ed) Function917a5: ; 917a5 (24:57a5) ld a, $4 ld [DefaultFlypoint], a ; $d002 xor a ld [StartFlypoint], a ; $d005 ld a, $2e ld hl, $4612 call Function9187c ld de, $57d4 ld a, [StatusFlags2] ; $d84d bit 0, a ret z ld de, $57c3 ret ; 917c3 (24:57c3) INCBIN "baserom.gbc",$917c3,$917d5 - $917c3 ; known jump sources: 916f7 (24:56f7) Function917d5: ; 917d5 (24:57d5) ld a, $9 ld [DefaultFlypoint], a ; $d002 xor a ld [StartFlypoint], a ; $d005 ld a, $2e ld hl, $4612 call Function9187c ld de, $58ef ret ; known jump sources: 91706 (24:5706) Function917ea: ; 917ea (24:57ea) ld a, $5 ld [DefaultFlypoint], a ; $d002 xor a ld [StartFlypoint], a ; $d005 ld a, $2e ld hl, $4612 call Function9187c ld de, $58f5 ret ; known jump sources: 91715 (24:5715) Function917ff: ; 917ff (24:57ff) ld a, $6 ld [DefaultFlypoint], a ; $d002 xor a ld [StartFlypoint], a ; $d005 ld a, $2e ld hl, $4612 call Function9187c ld de, $5905 ret ; 91814 (24:5814) INCBIN "baserom.gbc",$91814,$91829 - $91814 ; known jump sources: 91724 (24:5724) Function91829: ; 91829 (24:5829) ld a, $8 ld [DefaultFlypoint], a ; $d002 xor a ld [StartFlypoint], a ; $d005 ld a, $2e ld hl, $4612 call Function9187c ld de, $5914 ret ; known jump sources: 9173d (24:573d) Function9183e: ; 9183e (24:583e) ld a, $a ld [DefaultFlypoint], a ; $d002 xor a ld [StartFlypoint], a ; $d005 ld a, $2e ld hl, $4612 call Function9187c ld de, $58ef ret ; 91853 (24:5853) INCBIN "baserom.gbc",$91853,$91854 - $91853 ; no known jump sources Function91854: ; 91854 (24:5854) push de ld a, e ld [EnemyTurnsTaken], a ; $c6dc ld de, $0 call PlayMusic pop de ld a, e ld [CurMusic], a ; $c2c0 call PlayMusic ret ; no known jump sources Function91868: ; 91868 (24:5868) push de ld a, $fe ld [EnemyTurnsTaken], a ; $c6dc ld de, $0 call PlayMusic pop de ld de, $3f call PlayMusic ret ; known jump sources: 9175f (24:575f), 91774 (24:5774), 91789 (24:5789), 9179e (24:579e), 917b3 (24:57b3), 917e3 (24:57e3), 917f8 (24:57f8), 9180d (24:580d), 91837 (24:5837), 9184c (24:584c) Function9187c: ; 9187c (24:587c) ld [EnemyAccLevel], a ; $c6d9 ld a, l ld [EnemyEvaLevel], a ; $c6da ld a, h ld [$c6db], a ret ; known jump sources: 91682 (24:5682), 91740 (24:5740) Function91888: ; 91888 (24:5888) call Function9189d call Function918a9 xor a ld [EnemyAccLevel], a ; $c6d9 ld [EnemyEvaLevel], a ; $c6da ld [$c6db], a ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ret ; known jump sources: 91888 (24:5888) Function9189d: ; 9189d (24:589d) ld de, $0 call PlayMusic ld a, $ff ld [EnemyTurnsTaken], a ; $c6dc ret ; known jump sources: 9188b (24:588b) Function918a9: ; 918a9 (24:58a9) xor a ld [hBGMapMode], a ; $ff00+$d4 ld hl, $c541 ld bc, $312 call ClearBox ld hl, $c590 ld bc, $412 call TextBox ret RadioChannels: ; 918bf ; Buena's Password is at 0x917c3 db "OAK's ", $e1, $e2, " Talk@" db "#DEX Show@" db "#MON Music@" db "Lucky Channel@" db "?????@" db "Places & People@" db "Let's All Sing!@" db "# FLUTE@" ; 9191c Function9191c: ; 9191c ld hl, Options ld a, [hl] push af set 4, [hl] ld a, [$ffaa] push af ld a, $1 ld [$ffaa], a ld a, [VramState] push af xor a ld [VramState], a call WhiteBGMap call ClearTileMap call ClearSprites call DisableLCD call Function90c4e callba Function8cf53 ld a, $8 call Function3cb4 ld a, $e3 ld [rLCDC], a call Function90d56 ld [DefaultFlypoint], a ld [$d003], a xor a ld [hBGMapMode], a call Function91a04 call Function3200 ld a, [DefaultFlypoint] call Function9106a ld a, [$d003] call Function91098 ld a, c ld [$d004], a ld a, b ld [StartFlypoint], a ld b, $2 call GetSGBLayout call Function32f9 ld a, [hCGB] and a jr z, .asm_9198b ld a, $e4 call Functioncf8 call DelayFrame .asm_9198b ld a, [DefaultFlypoint] cp $2f jr nc, .asm_9199b ld d, $2e ld e, $1 call Function919b0 jr .asm_919a1 .asm_9199b call Function910e8 call Function919b0 .asm_919a1 pop af ld [VramState], a pop af ld [$ffaa], a pop af ld [Options], a call WhiteBGMap ret ; 919b0 Function919b0: ; 919b0 .asm_919b0 call Functiona57 ld hl, hJoyPressed ld a, [hl] and $2 ret nz ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_919d4 ld a, [hl] and $80 jr nz, .asm_919e1 .asm_919c7 push de callba Function8cf69 pop de call DelayFrame jr .asm_919b0 .asm_919d4 ld hl, $d003 ld a, [hl] cp d jr c, .asm_919de ld a, e dec a ld [hl], a .asm_919de inc [hl] jr .asm_919ec .asm_919e1 ld hl, $d003 ld a, [hl] cp e jr nz, .asm_919eb ld a, d inc a ld [hl], a .asm_919eb dec [hl] .asm_919ec push de ld a, [$d003] call Function910b4 ld a, [$d004] ld c, a ld a, [StartFlypoint] ld b, a ld a, [$d003] call Function910d4 pop de jr .asm_919c7 ; 91a04 Function91a04: ; 91a04 ld a, [DefaultFlypoint] cp $2f jr nc, .asm_91a0f ld e, $0 jr .asm_91a11 .asm_91a0f ld e, $1 .asm_91a11 callba Function91ae1 ld a, $7 ld bc, $0006 ld hl, $c4a1 call ByteFill ld hl, TileMap ld [hl], $6 ld hl, $c4a7 ld [hl], $17 ld hl, $c4bb ld [hl], $16 ld hl, $c4cf ld [hl], $26 ld a, $7 ld bc, $000b ld hl, $c4d0 call ByteFill ld hl, $c4db ld [hl], $17 ld a, [$d003] call Function910b4 callba TownMapPals ret ; 91a53 Function91a53: ; 91a53 ld hl, Options ld a, [hl] push af set 4, [hl] call Function91a87 ld c, $64 call DelayFrames .asm_91a62 call Functiona57 ld a, [hJoyPressed] and $3 jr nz, .asm_91a7f ld a, [EnemyEvaLevel] ld l, a ld a, [$c6db] ld h, a ld a, [EnemyAccLevel] and a jr z, .asm_91a7a rst FarCall .asm_91a7a call DelayFrame jr .asm_91a62 .asm_91a7f pop af ld [Options], a call Function91492 ret ; 91a87 Function91a87: ; 91a87 ld a, $ff ld [EnemyTurnsTaken], a ld hl, $5ab9 ld d, $0 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ld de, $5a9b push de jp [hl] ; 91a9b INCBIN "baserom.gbc",$91a9b,$91ae1 - $91a9b Function91ae1: ; 91ae1 ld a, e and a jr nz, .asm_91aec call Function91ff2 call FillJohtoMap ret .asm_91aec call Function91ff2 call FillKantoMap ret ; 91af3 Function91af3: ; 91af3 call WhiteBGMap call ClearTileMap call ClearSprites ld hl, $ffaa ld a, [hl] push af ld [hl], $1 xor a ld [hBGMapMode], a callba Function8cf53 call Function91ff2 ld de, $62e1 ld hl, $9300 ld bc, $2406 call Request1bpp call FlyMap call Function91c8f ld b, $2 call GetSGBLayout call Function32f9 .asm_91b29 call Functiona57 ld hl, hJoyPressed ld a, [hl] and $2 jr nz, .asm_91b4a ld a, [hl] and $1 jr nz, .asm_91b4e call Function91b73 call Function91c17 callba Function8cf69 call DelayFrame jr .asm_91b29 .asm_91b4a ld a, $ff jr .asm_91b5a .asm_91b4e ld a, [DefaultFlypoint] ld l, a ld h, $0 add hl, hl ld de, $5c5f add hl, de ld a, [hl] .asm_91b5a ld [DefaultFlypoint], a pop af ld [$ffaa], a call WhiteBGMap ld a, $90 ld [hWY], a xor a ld [hBGMapAddress], a ld a, $98 ld [$ffd7], a ld a, [DefaultFlypoint] ld e, a ret ; 91b73 Function91b73: ; 91b73 ld a, [StartFlypoint] ld e, a ld a, [EndFlypoint] ld d, a ld hl, $ffa9 ld a, [hl] and $40 jr nz, .asm_91b89 ld a, [hl] and $80 jr nz, .asm_91b9b ret .asm_91b89 ld hl, DefaultFlypoint ld a, [hl] cp d jr nz, .asm_91b93 ld a, e dec a ld [hl], a .asm_91b93 inc [hl] call Function91c3c jr z, .asm_91b89 jr .asm_91bab .asm_91b9b ld hl, DefaultFlypoint ld a, [hl] cp e jr nz, .asm_91ba5 ld a, d inc a ld [hl], a .asm_91ba5 dec [hl] call Function91c3c jr z, .asm_91b9b .asm_91bab call TownMapBubble call WaitBGMap xor a ld [hBGMapMode], a ret ; 91bb5 TownMapBubble: ; 91bb5 ; Draw the bubble containing the location text in the town map HUD ; Top-left corner ld hl, TileMap + 1 ; (1,0) ld a, $30 ld [hli], a ; Top row ld bc, 16 ld a, " " call ByteFill ; Top-right corner ld a, $31 ld [hl], a ld hl, TileMap + 1 + 20 ; (1,1) ; Middle row ld bc, 18 ld a, " " call ByteFill ; Bottom-left corner ld hl, TileMap + 1 + 40 ; (1,2) ld a, $32 ld [hli], a ; Bottom row ld bc, 16 ld a, " " call ByteFill ; Bottom-right corner ld a, $33 ld [hl], a ; Print "Where?" ld hl, TileMap + 2 ; (2,0) ld de, .Where call PlaceString ; Print the name of the default flypoint call .Name ; Up/down arrows ld hl, TileMap + 18 + 20 ; (18,1) ld [hl], $34 ret .Where db "Where?@" .Name ; We need the map location of the default flypoint ld a, [DefaultFlypoint] ld l, a ld h, 0 add hl, hl ; two bytes per flypoint ld de, Flypoints add hl, de ld e, [hl] callba GetLandmarkName ld hl, TileMap + 2 + 20 ; (2,1) ld de, StringBuffer1 call PlaceString ret ; 91c17 Function91c17: ; 91c17 ld a, [DefaultFlypoint] ld l, a ld h, $0 add hl, hl ld de, Flypoints add hl, de ld e, [hl] callba GetLandmarkCoords ld a, [$d003] ld c, a ld a, [$d004] ld b, a ld hl, $0004 add hl, bc ld [hl], e ld hl, $0005 add hl, bc ld [hl], d ret ; 91c3c Function91c3c: ; 91c3c push bc push de push hl ld l, [hl] ld h, 0 add hl, hl ld de, Flypoints + 1 add hl, de ld c, [hl] call HasVisitedSpawn pop hl pop de pop bc and a ret ; 91c50 HasVisitedSpawn: ; 91c50 ; Check if spawn point c has been visited. ld hl, VisitedSpawns ld b, CHECK_FLAG ld d, 0 ld a, PREDEF_FLAG call Predef ld a, c ret ; 91c5e Flypoints: ; 91c5e ; landmark, spawn point const_def ; Johto const FLY_NEW_BARK const FLY_CHERRYGROVE const FLY_VIOLET const FLY_AZALEA const FLY_GOLDENROD const FLY_ECRUTEAK const FLY_OLIVINE const FLY_CIANWOOD const FLY_MAHOGANY const FLY_LAKE const FLY_BLACKTHORN const FLY_MT_SILVER db NEW_BARK_TOWN, SPAWN_NEW_BARK db CHERRYGROVE_CITY, SPAWN_CHERRYGROVE db VIOLET_CITY, SPAWN_VIOLET db AZALEA_TOWN, SPAWN_AZALEA db GOLDENROD_CITY, SPAWN_GOLDENROD db ECRUTEAK_CITY, SPAWN_ECRUTEAK db OLIVINE_CITY, SPAWN_OLIVINE db CIANWOOD_CITY, SPAWN_CIANWOOD db MAHOGANY_TOWN, SPAWN_MAHOGANY db LAKE_OF_RAGE, SPAWN_LAKE db BLACKTHORN_CITY, SPAWN_BLACKTHORN db SILVER_CAVE, SPAWN_MT_SILVER ; Kanto const FLY_PALLET const FLY_VIRIDIAN const FLY_PEWTER const FLY_CERULEAN const FLY_VERMILION const FLY_ROCK_TUNNEL const FLY_LAVENDER const FLY_CELADON const FLY_SAFFRON const FLY_FUCHSIA const FLY_CINNABAR const FLY_INDIGO_PLATEAU db PALLET_TOWN, SPAWN_PALLET db VIRIDIAN_CITY, SPAWN_VIRIDIAN db PEWTER_CITY, SPAWN_PEWTER db CERULEAN_CITY, SPAWN_CERULEAN db VERMILION_CITY, SPAWN_VERMILION db ROCK_TUNNEL, SPAWN_ROCK_TUNNEL db LAVENDER_TOWN, SPAWN_LAVENDER db CELADON_CITY, SPAWN_CELADON db SAFFRON_CITY, SPAWN_SAFFRON db FUCHSIA_CITY, SPAWN_FUCHSIA db CINNABAR_ISLAND, SPAWN_CINNABAR db INDIGO_PLATEAU, SPAWN_INDIGO_PLATEAU db -1 ; 91c8f Function91c8f: ; 91c8f ret ; 91c90 FlyMap: ; 91c90 ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a call GetWorldMapLocation ; If we're not in a valid location, i.e. Pokecenter floor 2F, ; the backup map information is used cp SPECIAL_MAP jr nz, .CheckRegion ld a, [BackupMapGroup] ld b, a ld a, [BackupMapNumber] ld c, a call GetWorldMapLocation .CheckRegion ; The first 46 locations are part of Johto. The rest are in Kanto cp KANTO_LANDMARK jr nc, .KantoFlyMap .JohtoFlyMap ; Note that .NoKanto should be modified in tandem with this branch push af ; Start from New Bark Town ld a, FLY_NEW_BARK ld [DefaultFlypoint], a ; Flypoints begin at New Bark Town... ld [StartFlypoint], a ; ..and end at Silver Cave ld a, FLY_MT_SILVER ld [EndFlypoint], a ; Fill out the map call FillJohtoMap call .MapHud pop af call TownMapPlayerIcon ret .KantoFlyMap ; The event that there are no flypoints enabled in a map is not ; accounted for. As a result, if you attempt to select a flypoint ; when there are none enabled, the game will crash. Additionally, ; the flypoint selection has a default starting point that ; can be flown to even if none are enabled ; To prevent both of these things from happening when the player ; enters Kanto, fly access is restricted until Indigo Plateau is ; visited and its flypoint enabled push af ld c, SPAWN_INDIGO_PLATEAU call HasVisitedSpawn and a jr z, .NoKanto ; Kanto's map is only loaded if we've visited Indigo Plateau ; Flypoints begin at Pallet Town... ld a, FLY_PALLET ld [StartFlypoint], a ; ...and end at Indigo Plateau ld a, FLY_INDIGO_PLATEAU ld [EndFlypoint], a ; Because Indigo Plateau is the first flypoint the player ; visits, it's made the default flypoint ld [DefaultFlypoint], a ; Fill out the map call FillKantoMap call .MapHud pop af call TownMapPlayerIcon ret .NoKanto ; If Indigo Plateau hasn't been visited, we use Johto's map instead ; Start from New Bark Town ld a, FLY_NEW_BARK ld [DefaultFlypoint], a ; Flypoints begin at New Bark Town... ld [StartFlypoint], a ; ..and end at Silver Cave ld a, FLY_MT_SILVER ld [EndFlypoint], a call FillJohtoMap pop af .MapHud call TownMapBubble call TownMapPals ld hl, VBGMap0 ; BG Map 0 call TownMapBGUpdate call TownMapMon ld a, c ld [$d003], a ld a, b ld [$d004], a ret ; 91d11 Function91d11: ; 91d11 ld a, [DefaultFlypoint] push af ld a, [$d003] push af ld a, e ld [DefaultFlypoint], a call ClearSprites xor a ld [hBGMapMode], a ld a, $1 ld [$ffaa], a ld de, $62d1 ld hl, $87f0 ld bc, $2401 call Request2bpp call Function91ed0 ld hl, $8780 ld c, $4 call Request2bpp call Function91ff2 call FillKantoMap call Function91de9 call TownMapPals ld hl, VBGMap1 call TownMapBGUpdate call FillJohtoMap call Function91de9 call TownMapPals ld hl, VBGMap0 call TownMapBGUpdate ld b, $2 call GetSGBLayout call Function32f9 xor a ld [hBGMapMode], a xor a call Function91e1e .asm_91d6e call Functiona57 ld hl, hJoyPressed ld a, [hl] and $3 jr nz, .asm_91d8f ld a, [hJoypadDown] and $4 jr nz, .asm_91d87 call Function91d9b call Function91dcd jr .asm_91d8a .asm_91d87 call Function91e5a .asm_91d8a call DelayFrame jr .asm_91d6e .asm_91d8f call ClearSprites pop af ld [$d003], a pop af ld [DefaultFlypoint], a ret ; 91d9b Function91d9b: ; 91d9b ld a, [hl] and $20 jr nz, .asm_91da6 ld a, [hl] and $10 jr nz, .asm_91db7 ret .asm_91da6 ld a, [hWY] cp $90 ret z call ClearSprites ld a, $90 ld [hWY], a xor a call Function91e1e ret .asm_91db7 ld a, [StatusFlags] bit 6, a ret z ld a, [hWY] and a ret z call ClearSprites xor a ld [hWY], a ld a, $1 call Function91e1e ret ; 91dcd Function91dcd: ; 91dcd ld a, [$ff9b] ld e, a and $f ret nz ld a, e and $10 jr nz, .asm_91ddc call ClearSprites ret .asm_91ddc ld hl, TileMap ld de, Sprites ld bc, $00a0 call CopyBytes ret ; 91de9 Function91de9: ; 91de9 ld hl, TileMap ld bc, $0014 ld a, $7f call ByteFill ld hl, $c4b4 ld a, $6 ld [hli], a ld bc, $0012 ld a, $7 call ByteFill ld [hl], $17 call GetPokemonName ld hl, $c4a2 call PlaceString ld h, b ld l, c ld de, $5e16 call PlaceString ret ; 91e16 INCBIN "baserom.gbc",$91e16,$91e1e - $91e16 Function91e1e: ; 91e1e ld [$d003], a ld e, a callba Function2a01f ld de, TileMap ld hl, Sprites .asm_91e2e ld a, [de] and a jr z, .asm_91e4d push de ld e, a push hl callba GetLandmarkCoords pop hl ld a, d sub $4 ld [hli], a ld a, e sub $4 ld [hli], a ld a, $7f ld [hli], a xor a ld [hli], a pop de inc de jr .asm_91e2e .asm_91e4d ld hl, Sprites ld de, TileMap ld bc, $00a0 call CopyBytes ret ; 91e5a Function91e5a: ; 91e5a call Function91ea9 ret c ld a, [DefaultFlypoint] ld e, a callba GetLandmarkCoords ld c, e ld b, d ld de, $5e9c ld hl, Sprites .asm_91e70 ld a, [de] cp $80 jr z, .asm_91e91 add b ld [hli], a inc de ld a, [de] add c ld [hli], a inc de ld a, [de] add $78 ld [hli], a inc de push bc ld c, $0 ld a, [PlayerGender] bit 0, a jr z, .asm_91e8c inc c .asm_91e8c ld a, c ld [hli], a pop bc jr .asm_91e70 .asm_91e91 ld hl, $c410 ld bc, $0090 xor a call ByteFill ret ; 91e9c INCBIN "baserom.gbc",$91e9c,$91ea9 - $91e9c Function91ea9: ; 91ea9 ld a, [DefaultFlypoint] cp $5f jr z, .asm_91ebc cp $2f jr c, .asm_91ebc ld a, [$d003] and a jr z, .asm_91ec4 jr .asm_91ec2 .asm_91ebc ld a, [$d003] and a jr nz, .asm_91ec4 .asm_91ec2 and a ret .asm_91ec4 ld hl, Sprites ld bc, $00a0 xor a call ByteFill scf ret ; 91ed0 Function91ed0: ; 91ed0 ld a, [DefaultFlypoint] cp $5f jr z, .asm_91ede callba GetPlayerIcon ret .asm_91ede ld de, $4cb2 ld b, $24 ret ; 91ee4 TownMapBGUpdate: ; 91ee4 ; Update BG Map tiles and attributes ; BG Map address ld a, l ld [hBGMapAddress], a ld a, h ld [$ffd7], a ; Only update palettes on CGB ld a, [hCGB] and a jr z, .tiles ; BG Map mode 2 (palettes) ld a, 2 ld [hBGMapMode], a ; The BG Map is updated in thirds, so we wait ; 3 frames to update the whole screen's palettes. ld c, 3 call DelayFrames .tiles ; Update BG Map tiles call WaitBGMap ; Turn off BG Map update xor a ld [hBGMapMode], a ret ; 91eff FillJohtoMap: ; 91eff ld de, JohtoMap jr FillTownMap FillKantoMap: ; 91f04 ld de, KantoMap FillTownMap: ; 91f07 ld hl, TileMap .loop ld a, [de] cp $ff ret z ld a, [de] ld [hli], a inc de jr .loop ; 91f13 TownMapPals: ; 91f13 ; Assign palettes based on tile ids ld hl, TileMap ld de, AttrMap ld bc, 360 .loop ; Current tile ld a, [hli] push hl ; HP/borders use palette 0 cp $60 jr nc, .pal0 ; The palette data is condensed to nybbles, ; least-significant first. ld hl, .Pals srl a jr c, .odd ; Even-numbered tile ids take the bottom nybble... add l ld l, a ld a, h adc 0 ld h, a ld a, [hl] and %111 jr .update .odd ; ...and odd ids take the top. add l ld l, a ld a, h adc 0 ld h, a ld a, [hl] swap a and %111 jr .update .pal0 xor a .update pop hl ld [de], a inc de dec bc ld a, b or c jr nz, .loop ret .Pals db $11, $21, $22, $00, $11, $13, $54, $54, $11, $21, $22, $00 db $11, $10, $01, $00, $11, $21, $22, $00, $00, $00, $00, $00 db $00, $00, $44, $04, $00, $00, $00, $00, $33, $33, $33, $33 db $33, $33, $33, $03, $33, $33, $33, $33, $00, $00, $00, $00 ; 91f7b TownMapMon: ; 91f7b ; Draw the FlyMon icon at town map location in ; Get FlyMon species ld a, [CurPartyMon] ld hl, PartySpecies ld e, a ld d, $0 add hl, de ld a, [hl] ld [$d265], a ; Get FlyMon icon ld e, 8 ; starting tile in VRAM callba GetSpeciesIcon ; Animation/palette ld de, $0000 ld a, $0 call Function3b2a ld hl, 3 add hl, bc ld [hl], 8 ld hl, 2 add hl, bc ld [hl], 0 ret ; 91fa6 TownMapPlayerIcon: ; 91fa6 ; Draw the player icon at town map location in a push af callba GetPlayerIcon ; Standing icon ld hl, $8100 ld c, 4 ; # tiles call Request2bpp ; Walking icon ld hl, $00c0 add hl, de ld d, h ld e, l ld hl, $8140 ld c, 4 ; # tiles ld a, $30 call Request2bpp ; Animation/palette ld de, $0000 ld b, $0a ; Male ld a, [PlayerGender] bit 0, a jr z, .asm_91fd3 ld b, $1e ; Female .asm_91fd3 ld a, b call Function3b2a ld hl, $0003 add hl, bc ld [hl], $10 pop af ld e, a push bc callba GetLandmarkCoords pop bc ld hl, 4 add hl, bc ld [hl], e ld hl, 5 add hl, bc ld [hl], d ret ; 0x91ff2 Function91ff2: ; 91ff2 ld hl, TownMapGFX ld de, VTiles2 ld bc, BANK(TownMapGFX) << 8 + $30 call Functione73 ret ; 91fff JohtoMap: ; 91fff INCBIN "gfx/misc/johto.bin" ; 92168 KantoMap: ; 92168 INCBIN "gfx/misc/kanto.bin" ; 922d1 INCBIN "baserom.gbc",$922d1,$92402 - $922d1 INCLUDE "stats/wild/fish.asm" Function926c7: ld hl, Options ; $cfcc set 4, [hl] call Function926f7 call DelayFrame .asm_926d2 call Function927af jr nc, .asm_926d2 call WaitSFX ld de, $9d call PlaySFX call WaitSFX call WhiteBGMap ld a, BANK(Function105fd0) ld hl, Function105fd0 rst $8 ; ; indirect jump to Function105fd0 (105fd0 (41:5fd0)) ld hl, Options ; $cfcc res 4, [hl] ld hl, rLCDC ; $ff40 res 2, [hl] ret ; known jump sources: 926cc (24:66cc) Function926f7: ; 926f7 (24:66f7) call WhiteBGMap call ClearTileMap call ClearSprites ld de, $0 call PlayMusic call DelayFrame call DisableLCD ld hl, $9800 ld bc, $400 ld a, $7f call ByteFill ld b, $5 call GetSGBLayout ld hl, Function8cf53 ld a, BANK(Function8cf53) rst $8 ; ; indirect jump to Function8cf53 (8cf53 (23:4f53)) ld hl, PlayerSDefLevel ; $c6d0 ld bc, $48 xor a call ByteFill ld hl, $75cd ld de, $8000 call Decompress ld hl, $782d ld de, $8400 call Decompress ld hl, $744d ld de, $9000 call Decompress ld hl, $75cd ld de, $9250 call Decompress ld hl, $735d ld de, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $f0 call CopyBytes ld hl, rLCDC ; $ff40 set 2, [hl] call EnableLCD ld hl, PlayerSDefLevel ; $c6d0 ld bc, $64 xor a call ByteFill call Function92a98 call Function9279b ld a, $7 ld hl, $c300 ld [hli], a ld [hl], $40 xor a ld [$cf63], a ld a, $ff ld [$c709], a ld de, $12 call PlayMusic xor a ld [DefaultFlypoint], a ; $d002 call Random and $2a ret nz ld a, $1 ld [DefaultFlypoint], a ; $d002 ret ; known jump sources: 92771 (24:6771) Function9279b: ; 9279b (24:679b) ld a, $e4 call DmgToCgbBGPals ld de, $e4e4 ld a, [hCGB] ; $ff00+$e6 and a jr nz, .asm_927ab ld de, $c0e4 .asm_927ab call DmgToCgbObjPals ret ; known jump sources: 926d2 (24:66d2) Function927af: ; 927af (24:67af) ld a, [$cf63] bit 7, a jr nz, .asm_927d1 call Function92844 call Function92b0f xor a ld [$c3b5], a ld hl, Function8cfa8 ld a, BANK(Function8cfa8) rst $8 ; ; indirect jump to Function8cfa8 (8cfa8 (23:4fa8)) call Function927f8 call Function927d3 call DelayFrame and a ret .asm_927d1 scf ret ; known jump sources: 927c9 (24:67c9) Function927d3: ; 927d3 (24:67d3) ret ; 927d4 (24:67d4) INCBIN "baserom.gbc",$927d4,$927f8 - $927d4 ; known jump sources: 927c6 (24:67c6) Function927f8: ; 927f8 (24:67f8) ld hl, $c4b9 ld de, Coins ; $d855 ld bc, $8204 call PrintNum ld hl, $c4bf ld de, $c711 ld bc, $8204 call PrintNum ret ; 92811 (24:6811) INCBIN "baserom.gbc",$92811,$92844 - $92811 ; known jump sources: 927b6 (24:67b6) Function92844: ; 92844 (24:6844) ld a, [$cf63] ld e, a ld d, $0 ld hl, $6853 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 92853 (24:6853) ; no known jump sources Jumptable_92853: ; 92853 (24:6853) dw Function9287e dw Function9288e dw Function928c6 dw Function928d6 dw Function928e6 dw Function92900 dw Function92910 dw Function9292a dw Function9293a dw Function92879 dw Function92879 dw Function92879 dw Function92955 dw Function9296b dw Function92987 dw Function9299e dw Function929a4 dw Function929d9 dw Function929f0 ; known jump sources: 9287e (24:687e), 92899 (24:6899), 928cf (24:68cf), 928dd (24:68dd), 928fa (24:68fa), 92907 (24:6907), 92924 (24:6924), 92931 (24:6931), 9294e (24:694e), 9295c (24:695c), 9295f (24:695f), 92963 (24:6963), 92983 (24:6983), 9299a (24:699a), 929a1 (24:69a1), 929d5 (24:69d5) Function92879: ; 92879 (24:6879) ld hl, $cf63 inc [hl] ret ; no known jump sources Function9287e: ; 9287e (24:687e) call Function92879 xor a ld [WeatherCount], a ; $c70b ld [LoweredStat], a ; $c70c ld a, $ff ld [EffectFailed], a ; $c70d ret ; no known jump sources Function9288e: ; 9288e (24:688e) call Function9307c jr nc, .asm_92899 ld a, $12 ld [$cf63], a ret .asm_92899 call Function92879 call Function9303f call Function93002 ld a, $20 ld [$cf64], a ld a, $4 ld [PlayerSDefLevel], a ; $c6d0 ld [$c6e0], a ld [$c6f0], a ld a, $4 ld [EnemyAccLevel], a ; $c6d9 ld [CurEnemyMoveNum], a ; $c6e9 ld [LastPlayerCounterMove], a ; $c6f9 call WaitSFX ld a, $2c call Function9331e ret ; no known jump sources Function928c6: ; 928c6 (24:68c6) ld hl, $cf64 ld a, [hl] and a jr z, .asm_928cf dec [hl] ret .asm_928cf call Function92879 xor a ld [hJoypadSum], a ; $ff00+$a5 ret ; no known jump sources Function928d6: ; 928d6 (24:68d6) ld hl, hJoypadSum ; $ffa5 ld a, [hl] and $1 ret z call Function92879 call Function92a2b ld [PlayerSDefLevel], a ; $c6d0 ; no known jump sources Function928e6: ; 928e6 (24:68e6) ld a, [PlayerSDefLevel] ; $c6d0 cp $0 ret nz ld a, $ba call Function9331e ld bc, PlayerSDefLevel ; $c6d0 ld de, EnemyScreens ; $c700 call Function929f6 call Function92879 xor a ld [hJoypadSum], a ; $ff00+$a5 ; no known jump sources Function92900: ; 92900 (24:6900) ld hl, hJoypadSum ; $ffa5 ld a, [hl] and $1 ret z call Function92879 call Function92a2e ld [$c6e0], a ; no known jump sources Function92910: ; 92910 (24:6910) ld a, [$c6e0] cp $0 ret nz ld a, $ba call Function9331e ld bc, $c6e0 ld de, PlayerReflectCount ; $c703 call Function929f6 call Function92879 xor a ld [hJoypadSum], a ; $ff00+$a5 ; no known jump sources Function9292a: ; 9292a (24:692a) ld hl, hJoypadSum ; $ffa5 ld a, [hl] and $1 ret z call Function92879 call Function92a60 ld [$c6f0], a ; no known jump sources Function9293a: ; 9293a (24:693a) ld a, [$c6f0] cp $0 ret nz ld a, $ba call Function9331e ld bc, $c6f0 ld de, EnemyLightScreenCount ; $c706 call Function929f6 call Function92879 xor a ld [hJoypadSum], a ; $ff00+$a5 ret ; no known jump sources Function92955: ; 92955 (24:6955) ld a, [EffectFailed] ; $c70d cp $ff jr nz, .asm_92963 call Function92879 call Function92879 ret .asm_92963 call Function92879 ld a, $10 ld [$cf64], a ; no known jump sources Function9296b: ; 9296b (24:696b) ld hl, $cf64 ld a, [hl] and a jr z, .asm_92980 dec [hl] srl a ret z ld a, [rOBP0] ; $ff00+$48 xor $ff ld e, a ld d, a call DmgToCgbObjPals ret .asm_92980 call Function9279b call Function92879 ret ; no known jump sources Function92987: ; 92987 (24:6987) xor a ld [WeatherCount], a ; $c70b ld [LoweredStat], a ; $c70c ld a, $e4 call DmgToCgbBGPals call Function93124 xor a ld [$cf64], a call Function92879 ret ; no known jump sources Function9299e: ; 9299e (24:699e) call Function93158 call Function92879 ; no known jump sources Function929a4: ; 929a4 (24:69a4) ld hl, $cf64 ld a, [hl] inc [hl] and $1 ret z ld hl, $c711 ld a, [hli] ld d, a or [hl] jr z, .asm_929d5 ld e, [hl] dec de ld [hl], e dec hl ld [hl], d ld hl, Coins ; $d855 ld d, [hl] inc hl ld e, [hl] call Function92a04 jr c, .asm_929c5 inc de .asm_929c5 ld [hl], e dec hl ld [hl], d ld a, [$cf64] and $7 ret z ld de, $67 call PlaySFX ret .asm_929d5 call Function92879 ret ; no known jump sources Function929d9: ; 929d9 (24:69d9) call Function9304c call Functiona80 call Function930e9 jr c, .asm_929ea ld a, $0 ld [$cf63], a ret .asm_929ea ld a, $12 ld [$cf63], a ret ; no known jump sources Function929f0: ; 929f0 (24:69f0) ld hl, $cf63 set 7, [hl] ret ; known jump sources: 928f7 (24:68f7), 92921 (24:6921), 9294b (24:694b) Function929f6: ; 929f6 (24:69f6) push de call Function92a12 pop de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a ret ; known jump sources: 929bf (24:69bf) Function92a04: ; 92a04 (24:6a04) ld a, d cp $27 jr c, .asm_92a10 ld a, e cp $f jr c, .asm_92a10 scf ret .asm_92a10 and a ret ; known jump sources: 929f7 (24:69f7) Function92a12: ; 92a12 (24:6a12) ld hl, $3 add hl, bc ld a, [hl] and a jr nz, .asm_92a1c ld a, $f .asm_92a1c dec a and $f ld e, a ld d, $0 ld hl, $1 add hl, bc ld a, [hli] ld h, [hl] ld l, a add hl, de ret ; known jump sources: 928e0 (24:68e0) Function92a2b: ; 92a2b (24:6a2b) ld a, $7 ret ; known jump sources: 9290a (24:690a) Function92a2e: ; 92a2e (24:6a2e) ld a, [Weather] ; $c70a cp $2 jr c, .asm_92a4e ld a, [$c709] and a jr z, .asm_92a3f cp $ff jr nz, .asm_92a4e .asm_92a3f call Function92a51 jr nz, .asm_92a4e call Random cp $50 jr nc, .asm_92a4e ld a, $a ret .asm_92a4e ld a, $8 ret ; known jump sources: 92a3f (24:6a3f) Function92a51: ; 92a51 (24:6a51) ld a, [EnemyScreens] ; $c700 and a ret z ld a, [$c701] and a ret z ld a, [PlayerLightScreenCount] ; $c702 and a ret ; known jump sources: 92934 (24:6934) Function92a60: ; 92a60 (24:6a60) ld a, [WeatherCount] ; $c70b and a jr z, .asm_92a95 ld a, [LoweredStat] ; $c70c and a jr z, .asm_92a95 ld a, [$c709] and a jr nz, .asm_92a84 call Random cp $b4 jr nc, .asm_92a95 cp $78 jr nc, .asm_92a92 cp $3c jr nc, .asm_92a8f ld a, $15 ret .asm_92a84 call Random cp $a0 jr nc, .asm_92a95 cp $50 jr nc, .asm_92a92 .asm_92a8f ld a, $12 ret .asm_92a92 ld a, $10 ret .asm_92a95 ld a, $9 ret ; known jump sources: 9276e (24:676e) Function92a98: ; 92a98 (24:6a98) ld bc, PlayerSDefLevel ; $c6d0 ld hl, $6 add hl, bc ld de, $c440 ld [hl], e inc hl ld [hl], d ld hl, $1 add hl, bc ld de, $7327 ld [hl], e inc hl ld [hl], d ld hl, $8 add hl, bc ld [hl], $30 call Function92af9 ld bc, $c6e0 ld hl, $6 add hl, bc ld de, $c460 ld [hl], e inc hl ld [hl], d ld hl, $1 add hl, bc ld de, $7339 ld [hl], e inc hl ld [hl], d ld hl, $8 add hl, bc ld [hl], $50 call Function92af9 ld bc, $c6f0 ld hl, $6 add hl, bc ld de, $c480 ld [hl], e inc hl ld [hl], d ld hl, $1 add hl, bc ld de, $734b ld [hl], e inc hl ld [hl], d ld hl, $8 add hl, bc ld [hl], $70 call Function92af9 ret ; known jump sources: 92ab5 (24:6ab5), 92ad5 (24:6ad5), 92af5 (24:6af5) Function92af9: ; 92af9 (24:6af9) ld hl, $0 add hl, bc ld [hl], $0 ld hl, $3 add hl, bc ld [hl], $e ld hl, $4 add hl, bc ld [hl], $0 call Function92b53 ret ; known jump sources: 927b9 (24:67b9) Function92b0f: ; 92b0f (24:6b0f) ld bc, PlayerSDefLevel ; $c6d0 call Function92b22 ld bc, $c6e0 call Function92b22 ld bc, $c6f0 call Function92b22 ret ; known jump sources: 92b12 (24:6b12), 92b18 (24:6b18), 92b1e (24:6b1e) Function92b22: ; 92b22 (24:6b22) ld hl, $4 add hl, bc ld a, [hl] and $f jr nz, .asm_92b2e call Function92bd4 .asm_92b2e ld hl, $5 add hl, bc ld a, [hl] and a ret z ld d, a ld hl, $4 add hl, bc add [hl] ld [hl], a and $f jr z, Function92b53 ld hl, $6 add hl, bc ld a, [hli] ld h, [hl] ld l, a ld e, $8 .asm_92b49 ld a, [hl] add d ld [hli], a inc hl inc hl inc hl dec e jr nz, .asm_92b49 ret ; known jump sources: 92b0b (24:6b0b), 92b3e (24:6b3e) Function92b53: ; 92b53 (24:6b53) ld hl, $8 add hl, bc ld a, [hl] ld [$c713], a ld a, $50 ld [$c714], a ld hl, $3 add hl, bc ld e, [hl] ld d, $0 ld hl, $1 add hl, bc ld a, [hli] ld h, [hl] ld l, a add hl, de ld e, l ld d, h call Function92b83 ld hl, $3 add hl, bc ld a, [hl] inc a and $f cp $f jr nz, .asm_92b81 xor a .asm_92b81 ld [hl], a ret ; known jump sources: 92b71 (24:6b71) Function92b83: ; 92b83 (24:6b83) ld hl, $6 add hl, bc ld a, [hli] ld h, [hl] ld l, a .asm_92b8a ld a, [$c714] ld [hli], a ld a, [$c713] ld [hli], a ld a, [de] ld [hli], a srl a srl a set 7, a ld [hli], a ld a, [$c714] ld [hli], a ld a, [$c713] add $8 ld [hli], a ld a, [de] inc a inc a ld [hli], a srl a srl a set 7, a ld [hli], a inc de ld a, [$c714] sub $10 ld [$c714], a cp $10 jr nz, .asm_92b8a ret ; 92bbe (24:6bbe) INCBIN "baserom.gbc",$92bbe,$92bd4 - $92bbe ; known jump sources: 92b2b (24:6b2b) Function92bd4: ; 92bd4 (24:6bd4) ld hl, $0 add hl, bc ld e, [hl] ld d, $0 ld hl, $6be4 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 92be4 (24:6be4) INCBIN "baserom.gbc",$92be4,$93002 - $92be4 ; known jump sources: 9289f (24:689f) Function93002: ; 93002 (24:7002) ld a, [$c709] and a ret z ld hl, $7023 ld a, [ScriptVar] ; $c2dd and a jr z, .asm_93013 ld hl, $7031 .asm_93013 call Random ld c, a .asm_93017 ld a, [hli] cp c jr nc, .asm_9301e inc hl jr .asm_93017 .asm_9301e ld a, [hl] ld [$c709], a ret ; 93023 (24:7023) INCBIN "baserom.gbc",$93023,$9303f - $93023 ; known jump sources: 9289c (24:689c) Function9303f: ; 9303f (24:703f) ld b, $14 ld a, [Weather] ; $c70a dec a jr z, asm_93066 dec a jr z, asm_9305a jr asm_9304e ; known jump sources: 929d9 (24:69d9) Function9304c: ; 9304c (24:704c) ld b, $23 asm_9304e: ; 9304e (24:704e) ld hl, $c4cb call Function93069 ld hl, $c56b call Function93069 asm_9305a: ; 9305a (24:705a) ld hl, $c4f3 call Function93069 ld hl, $c543 call Function93069 asm_93066: ; 93066 (24:7066) ld hl, $c51b ; known jump sources: 93051 (24:7051), 93057 (24:7057), 9305d (24:705d), 93063 (24:7063) Function93069: ; 93069 (24:7069) ld a, b ld [hl], a ld de, $d add hl, de ld [hl], a ld de, $7 add hl, de inc a ld [hl], a ld de, $d add hl, de ld [hl], a ret ; known jump sources: 9288e (24:688e), 930ab (24:70ab) Function9307c: ; 9307c (24:707c) ld hl, $70c7 call PrintText ld hl, $70d6 call LoadMenuDataHeader call Function1d81 call Function1c17 ret c ld a, [$cfa9] ld b, a ld a, $4 sub b ld [Weather], a ; $c70a ld hl, Coins ; $d855 ld c, a ld a, [hli] and a jr nz, .asm_930ad ld a, [hl] cp c jr nc, .asm_930ad ld hl, $70d1 call PrintText jr Function9307c .asm_930ad ld hl, $d856 ld a, [hl] sub c ld [hld], a jr nc, .asm_930b6 dec [hl] .asm_930b6 call WaitSFX ld de, $68 call PlaySFX ld hl, $70cc call PrintText and a ret ; 930c7 (24:70c7) INCBIN "baserom.gbc",$930c7,$930e9 - $930c7 ; known jump sources: 929df (24:69df) Function930e9: ; 930e9 (24:70e9) ld hl, Coins ; $d855 ld a, [hli] or [hl] jr nz, .asm_930fd ld hl, UnknownText_9311a call PrintText ld c, $3c call DelayFrames jr .asm_93118 .asm_930fd ld hl, UnknownText_9311f call PrintText call Function1d58 lb bc, 14, 12 call PlaceYesNoBox ld a, [$cfa9] dec a call Function1c17 and a jr nz, .asm_93118 and a ret .asm_93118 scf ret ; 9311a (24:711a) UnknownText_9311a: ; 9311a TX_FAR UnknownText_0x1c5079 db "@" UnknownText_9311f: ; 9311f TX_FAR UnknownText_0x1c5092 db "@" ; known jump sources: 92993 (24:6993) Function93124: ; 93124 (24:7124) ld a, [EffectFailed] ; $c70d cp $ff jr z, .asm_93151 srl a ld e, a ld d, $0 ld hl, $7145 add hl, de ld a, [hli] ld [PlayerUsedMoves], a ; $c712 ld e, a ld a, [hl] ld [$c711], a ld d, a ld a, BANK(Function105fe3) ld hl, Function105fe3 rst $8 ; ; indirect jump to Function105fe3 (105fe3 (41:5fe3)) ret ; 93145 (24:7145) INCBIN "baserom.gbc",$93145,$93151 - $93145 .asm_93151 ld hl, $c711 xor a ld [hli], a ld [hl], a ret ; known jump sources: 9299e (24:699e) Function93158: ; 93158 (24:7158) ld a, [EffectFailed] ; $c70d cp $ff jr nz, .asm_9316c ld hl, $71e0 call PrintText ld a, BANK(Function105fd0) ld hl, Function105fd0 rst $8 ; ; indirect jump to Function105fd0 (105fd0 (41:5fd0)) ret .asm_9316c srl a ld e, a ld d, $0 ld hl, $7195 add hl, de add hl, de add hl, de ld de, StringBuffer2 ; $d086 ld bc, $4 call CopyBytes ld a, [hli] ld h, [hl] ld l, a ld de, .asm_93188 push de jp [hl] .asm_93188 ld hl, $71b9 call PrintText ld a, BANK(Function105f9f) ld hl, Function105f9f rst $8 ; ; indirect jump to Function105f9f (105f9f (41:5f9f)) ret ; 93195 (24:7195) INCBIN "baserom.gbc",$93195,$9321d - $93195 ; no known jump sources Function9321d: ; 9321d (24:721d) ld hl, $b add hl, bc ld e, [hl] ld d, $0 ld hl, $722d add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_9322d: ; 9322d (24:722d) dw Function93233 dw Function93259 dw Function93289 ; no known jump sources Function93233: ; 93233 (24:7233) ld hl, $e add hl, bc ld a, [hl] and a jr nz, .asm_93247 ld a, $2 ld [$cf64], a ld hl, $0 add hl, bc ld [hl], $0 ret .asm_93247 dec [hl] ld hl, $b add hl, bc inc [hl] ld hl, $c add hl, bc ld [hl], $30 ld hl, $6 add hl, bc ld [hl], $0 ; no known jump sources Function93259: ; 93259 (24:7259) ld hl, $c add hl, bc ld a, [hl] cp $20 jr c, .asm_93273 dec [hl] ld e, a ld d, $70 callba Functionce765 ld a, e ld hl, $7 add hl, bc ld [hl], a ret .asm_93273 ld hl, $b add hl, bc inc [hl] ld hl, $d add hl, bc ld [hl], $2 ld a, $1 ld [$cf64], a ld a, $1e call Function9331e ret ; no known jump sources Function93289: ; 93289 (24:7289) ld hl, $6 add hl, bc ld a, [hl] inc [hl] inc [hl] cp $48 jr nc, .asm_932a3 and $3 ret nz ld hl, $d add hl, bc ld a, [hl] xor $ff inc a ld [hl], a ld [hSCY], a ; $ff00+$d0 ret .asm_932a3 ld hl, $b add hl, bc xor a ld [hl], a ld [hSCY], a ; $ff00+$d0 ret ; no known jump sources Function932ac: ; 932ac (24:72ac) ld hl, $b add hl, bc ld e, [hl] ld d, $0 ld hl, $72bc add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_932bc: ; 932bc (24:72bc) dw Function932c2 dw Function932e0 dw Function932fc ; no known jump sources Function932c2: ; 932c2 (24:72c2) ld hl, $4 add hl, bc ld a, [hl] inc [hl] cp $68 jr z, .asm_932d6 and $f ret nz ld de, $16 call PlaySFX ret .asm_932d6 ld hl, $b add hl, bc inc [hl] ld a, $1 ld [$cf64], a ; no known jump sources Function932e0: ; 932e0 (24:72e0) ld a, [$cf64] cp $2 jr z, .asm_932f1 cp $5 ret nz ld hl, $0 add hl, bc ld [hl], $0 ret .asm_932f1 ld hl, $b add hl, bc inc [hl] ld hl, $c add hl, bc ld [hl], $8 ; no known jump sources Function932fc: ; 932fc (24:72fc) ld hl, $c add hl, bc ld a, [hl] and a jr z, .asm_93306 dec [hl] ret .asm_93306 ld hl, $b add hl, bc dec [hl] push bc ld de, $606c ld a, $8 call Function3b2a pop bc ret ; 93316 (24:7316) INCBIN "baserom.gbc",$93316,$9331e - $93316 ; known jump sources: 93285 (24:7285) Function9331e: ; 9331e (24:731e) push de ld e, a ld d, $0 call PlaySFX pop de ret ; 93327 (24:7327) INCBIN "baserom.gbc",$93327,$93a31 - $93327 SECTION "bank28", ROMX, BANK[$28] INCBIN "baserom.gbc",$a0000,$a0c28 - $a0000 INCLUDE "text/buena.asm" SECTION "bank29", ROMX, BANK[$29] INCLUDE "text/phone/extra2.asm" SECTION "Tileset Data 5", ROMX, BANK[TILESETS_5] INCLUDE "tilesets/data_5.asm" SECTION "bank2E", ROMX, BANK[$2E] Functionb8000: ; b8000 xor a ld [hBGMapMode], a callba Functionb800a ret ; b800a Functionb800a: ; b800a ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a call GetWorldMapLocation ld [$c2d9], a call Functionb8089 jr z, .asm_b8024 call GetMapPermission cp $6 jr nz, .asm_b8029 .asm_b8024 ld a, $ff ld [$c2d9], a .asm_b8029 ld hl, $d83e bit 1, [hl] res 1, [hl] jr nz, .asm_b8054 call Functionb8064 jr z, .asm_b8054 ld a, [$c2d9] ld [$c2d8], a call Functionb8070 jr z, .asm_b8054 ld a, $3c ld [$c2da], a call Functionb80c6 call Functionb80d3 callba Function104303 ret .asm_b8054 ld a, [$c2d9] ld [$c2d8], a ld a, $90 ld [rWY], a ld [hWY], a xor a ld [hLCDStatCustom], a ret ; b8064 Functionb8064: ; b8064 ld a, [$c2d9] ld c, a ld a, [$c2d8] cp c ret z cp $0 ret ; b8070 Functionb8070: ; b8070 cp $ff ret z cp $0 ret z cp $11 ret z cp $46 ret z cp $3b ret z cp $5a ret z cp $44 ret z ld a, $1 and a ret ; b8089 Functionb8089: ; b8089 ld a, [MapGroup] cp $a ret nz ld a, [MapNumber] cp $f ret z cp $11 ret ; b8098 ; no known jump sources Functionb8098: ; b8098 (2e:4098) ld hl, $c2da ld a, [hl] and a jr z, .asm_b80bc dec [hl] cp $3c ret z cp $3b jr nz, .asm_b80b3 call Functionb80d3 call Functionb80e1 callba Function104303 .asm_b80b3 ld a, $80 ld a, $70 ld [rWY], a ; $ff00+$4a ld [hWY], a ; $ff00+$d2 ret .asm_b80bc ld a, $90 ld [rWY], a ; $ff00+$4a ld [hWY], a ; $ff00+$d2 xor a ld [hLCDStatCustom], a ; $ff00+$c6 ret Functionb80c6: ; b80c6 ld de, $5344 ld hl, $9600 ld bc, $3e0e call Get2bpp ret ; b80d3 Functionb80d3: ; b80d3 ld hl, TileMap ld b, $2 ld c, $12 call Functionb8115 call Functionb812f ret ; b80e1 ; known jump sources: b80aa (2e:40aa) Functionb80e1: ; b80e1 (2e:40e1) ld a, [$c2d9] ld e, a callba GetLandmarkName call Functionb8101 ld a, $14 sub c srl a ld b, $0 ld c, a ld hl, $c4c8 add hl, bc ld de, StringBuffer1 ; $d073 call PlaceString ret ; known jump sources: b80eb (2e:40eb) Functionb8101: ; b8101 (2e:4101) ld c, $0 push hl ld hl, StringBuffer1 ; $d073 .asm_b8107 ld a, [hli] cp $50 jr z, .asm_b8113 cp $25 jr z, .asm_b8107 inc c jr .asm_b8107 .asm_b8113 pop hl ret Functionb8115: ; b8115 ld de, $0939 add hl, de inc b inc b inc c inc c ld a, $87 .asm_b811f push bc push hl .asm_b8121 ld [hli], a dec c jr nz, .asm_b8121 pop hl ld de, $0014 add hl, de pop bc dec b jr nz, .asm_b811f ret ; b812f Functionb812f: ; b812f ld hl, TileMap ld a, $61 ld [hli], a ld a, $62 call Functionb8164 ld a, $64 ld [hli], a ld a, $65 ld [hli], a call Functionb815b ld a, $6b ld [hli], a ld a, $66 ld [hli], a call Functionb815b ld a, $6c ld [hli], a ld a, $67 ld [hli], a ld a, $68 call Functionb8164 ld a, $6a ld [hl], a ret ; b815b Functionb815b: ; b815b ld c, $12 ld a, $6d .asm_b815f ld [hli], a dec c jr nz, .asm_b815f ret ; b8164 Functionb8164: ; b8164 ld c, $5 jr .asm_b816a .asm_b8168 ld [hli], a ld [hli], a .asm_b816a inc a ld [hli], a ld [hli], a dec a dec c jr nz, .asm_b8168 ret ; b8172 Functionb8172: ; b8172 call GetMapScriptHeaderBank ld [MagikarpLength], a ld a, [XCoord] add $5 ld [$d1ed], a ld a, [YCoord] add $4 ld [$d1ec], a ld hl, $dc02 ld a, [hli] ld h, [hl] ld l, a ld a, [$dc01] and a jr z, .asm_b81dd .asm_b8194 ld [Buffer2], a push hl call Functionb81e2 ld e, a ld a, [$d1ec] sub e jr c, .asm_b81d2 cp $9 jr nc, .asm_b81d2 call Functionb81e2 ld d, a ld a, [$d1ed] sub d jr c, .asm_b81d2 cp $a jr nc, .asm_b81d2 call Functionb81e2 cp $7 jr nz, .asm_b81d2 ld a, [MagikarpLength] call GetFarHalfword ld a, [MagikarpLength] call GetFarHalfword ld d, h ld e, l ld b, $2 call EventFlagAction ld a, c and a jr z, .asm_b81df .asm_b81d2 pop hl ld bc, $0005 add hl, bc ld a, [Buffer2] dec a jr nz, .asm_b8194 .asm_b81dd xor a ret .asm_b81df pop hl scf ret ; b81e2 Functionb81e2: ; b81e2 ld a, [MagikarpLength] call GetFarByte inc hl ret ; b81ea Functionb81ea: ; b81ea callba Function1060ef xor a ld [$d22e], a ld [CurPartyLevel], a ld hl, $425e call GetTreeMonEncounterTable jr nc, .asm_b8214 call LoadTreeMonData jr nc, .asm_b8214 call Functionb83e5 jr nc, .asm_b8214 ld a, $8 ld [BattleType], a ld a, $1 ld [ScriptVar], a ret .asm_b8214 xor a ld [ScriptVar], a ret ; b8219 Functionb8219: ; b8219 ; get a RockMon encounter xor a ld [$d22e], a ld [CurPartyLevel], a ld hl, RockMonMaps call GetTreeMonEncounterTable jr nc, .quit call LoadTreeMonData jr nc, .quit ld a, 10 call Function2fb1 cp 4 jr nc, .quit call Functionb841f jr nc, .quit ret .quit xor a ret ; b823e db $05 ; ???? GetTreeMonEncounterTable: ; b823f ; Return carry and table id in a ; if MapGroup and MapNumber are in table hl ld a, [MapNumber] ld e, a ld a, [MapGroup] ld d, a .loop ld a, [hli] cp $ff jr z, .quit cp d jr nz, .skip2 ld a, [hli] cp e jr nz, .skip1 jr .end .skip2 inc hl .skip1 inc hl jr .loop .quit xor a ret .end ld a, [hl] scf ret ; b825e INCBIN "baserom.gbc",$b825e,$b82c5 - $b825e RockMonMaps: ; b82c5 db GROUP_CIANWOOD_CITY, MAP_CIANWOOD_CITY, 7 db GROUP_ROUTE_40, MAP_ROUTE_40, 7 db GROUP_DARK_CAVE_VIOLET_ENTRANCE, MAP_DARK_CAVE_VIOLET_ENTRANCE, 7 db GROUP_SLOWPOKE_WELL_B1F, MAP_SLOWPOKE_WELL_B1F, 7 db $ff ; end ; b82d2 LoadTreeMonData: ; b82d2 ; Return TreeMon pointer a in hl ; Return carry on success ; only 7 tables cp 8 jr nc, .quit and a jr z, .quit ld e, a ld d, 0 ld hl, TreeMonPointers add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a scf ret .quit xor a ret ; b82e8 TreeMonPointers: ; b82e8 ; seems to point to "normal" tree encounter data ; so only odd-numbered tables are used dw TreeMons1 ; filler dw TreeMons1 ; 1 dw TreeMons3 ; 2 dw TreeMons5 ; 3 dw TreeMons7 ; 4 dw TreeMons9 ; 5 dw TreeMons11 ; 6 dw RockMons ; 7 dw TreeMons1 ; filler ; b82fa ; structure: % species level TreeMons1: ; b82fa db 50, SPEAROW, 10 db 15, SPEAROW, 10 db 15, SPEAROW, 10 db 10, AIPOM, 10 db 5, AIPOM, 10 db 5, AIPOM, 10 db $ff ; end ; b830d TreeMons2 ; b830d ; unused db 50, SPEAROW, 10 db 15, HERACROSS, 10 db 15, HERACROSS, 10 db 10, AIPOM, 10 db 5, AIPOM, 10 db 5, AIPOM, 10 db $ff ; end ; b8320 TreeMons3: ; b8320 db 50, SPEAROW, 10 db 15, EKANS, 10 db 15, SPEAROW, 10 db 10, AIPOM, 10 db 5, AIPOM, 10 db 5, AIPOM, 10 db $ff ; end ; b8333 TreeMons4: ; b8333 ; unused db 50, SPEAROW, 10 db 15, HERACROSS, 10 db 15, HERACROSS, 10 db 10, AIPOM, 10 db 5, AIPOM, 10 db 5, AIPOM, 10 db $ff ; end ; b8346 TreeMons5: ; b8346 db 50, HOOTHOOT, 10 db 15, SPINARAK, 10 db 15, LEDYBA, 10 db 10, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db $ff ; end ; b8359 TreeMons6: ; b8359 ; unused db 50, HOOTHOOT, 10 db 15, PINECO, 10 db 15, PINECO, 10 db 10, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db $ff ; end ; b836c TreeMons7: ; b836c db 50, HOOTHOOT, 10 db 15, EKANS, 10 db 15, HOOTHOOT, 10 db 10, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db $ff ; end ; b837f TreeMons8: ; b837f ; unused db 50, HOOTHOOT, 10 db 15, PINECO, 10 db 15, PINECO, 10 db 10, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db $ff ; end ; b8392 TreeMons9: ; b8392 db 50, HOOTHOOT, 10 db 15, VENONAT, 10 db 15, HOOTHOOT, 10 db 10, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db $ff ; end ; b83a5 TreeMons10: ; b83a5 ; unused db 50, HOOTHOOT, 10 db 15, PINECO, 10 db 15, PINECO, 10 db 10, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db 5, EXEGGCUTE, 10 db $ff ; end ; b83b8 TreeMons11: ; b83b8 db 50, HOOTHOOT, 10 db 15, PINECO, 10 db 15, PINECO, 10 db 10, NOCTOWL, 10 db 5, BUTTERFREE, 10 db 5, BEEDRILL, 10 db $ff ; end ; b83cb TreeMons12; b83cb ; unused db 50, HOOTHOOT, 10 db 15, CATERPIE, 10 db 15, WEEDLE, 10 db 10, HOOTHOOT, 10 db 5, METAPOD, 10 db 5, KAKUNA, 10 db $ff ; end ; b83de RockMons: ; b83de db 90, KRABBY, 15 db 10, SHUCKLE, 15 db $ff ; end ; b83e5 Functionb83e5: ; b83e5 push hl call Functionb8443 pop hl and a jr z, .asm_b83f6 cp $1 jr z, .asm_b8400 cp $2 jr z, .asm_b840b ret .asm_b83f6 ld a, $a call Function2fb1 and a jr nz, Functionb843b jr Functionb841f .asm_b8400 ld a, $a call Function2fb1 cp $5 jr nc, Functionb843b jr Functionb841f .asm_b840b ld a, $a call Function2fb1 cp $8 jr nc, Functionb843b jr .asm_b8416 .asm_b8416 ld a, [hli] cp $ff jr nz, .asm_b8416 call Functionb841f ret ; b841f Functionb841f: ; b841f ; Read a TreeMons table. ld a, 100 call Function2fb1 .asm_b8424 sub [hl] jr c, .asm_b842c inc hl inc hl inc hl jr .asm_b8424 .asm_b842c ld a, [hli] cp $ff jr z, Functionb843b ld a, [hli] ld [$d22e], a ld a, [hl] ld [CurPartyLevel], a scf ret Functionb843b: ; b843b xor a ld [$d22e], a ld [CurPartyLevel], a ret ; b8443 Functionb8443: ; b8443 call Functionb8466 ld [Buffer1], a call Functionb849d ld [Buffer2], a ld c, a ld a, [Buffer1] sub c jr z, .asm_b8463 jr nc, .asm_b845a add $a .asm_b845a cp $5 jr c, .asm_b8460 xor a ret .asm_b8460 ld a, $1 ret .asm_b8463 ld a, $2 ret ; b8466 Functionb8466: ; b8466 call GetFacingTileCoord ld hl, $0000 ld c, e ld b, $0 ld a, d and a jr z, .asm_b8477 .asm_b8473 add hl, bc dec a jr nz, .asm_b8473 .asm_b8477 add hl, bc ld c, d add hl, bc ld a, h ld [hProduct], a ld a, l ld [hMultiplicand], a ld a, $5 ld [hMultiplier], a ld b, $2 call Divide ld a, [$ffb5] ld [hProduct], a ld a, [$ffb6] ld [hMultiplicand], a ld a, $a ld [hMultiplier], a ld b, $2 call Divide ld a, [hMultiplier] ret ; b849d Functionb849d: ; b849d ld a, [PlayerID] ld [hProduct], a ld a, [$d47c] ld [hMultiplicand], a ld a, $a ld [hMultiplier], a ld b, $2 call Divide ld a, [hMultiplier] ret ; b84b3 Functionb84b3: ; b84b3 ld a, [rVBK] push af ld a, $1 ld [rVBK], a ld de, FishingGFX ld a, [PlayerGender] bit 0, a jr z, .asm_b84c7 ld de, KrisFishingGFX .asm_b84c7 ld hl, $8020 call Functionb84e3 ld hl, $8060 call Functionb84e3 ld hl, $80a0 call Functionb84e3 ld hl, $8fc0 call Functionb84e3 pop af ld [rVBK], a ret ; b84e3 Functionb84e3: ; b84e3 ld bc, $2e02 push de call Get2bpp pop de ld hl, $0020 add hl, de ld d, h ld e, l ret ; b84f2 FishingGFX: ; b84f2 INCBIN "baserom.gbc",$b84f2,$b8582 - $b84f2 ; b8582 KrisFishingGFX: ; b8582 INCBIN "baserom.gbc",$b8582,$b8612 - $b8582 ; b8612 ld a, [DefaultFlypoint] ; $d002 cp $8 jr nc, .asm_b862b ld a, [StatusFlags2] ; $d84d bit 0, a jr z, .asm_b862b call IsInJohto and a jr nz, .asm_b862b ld a, $7 ld [DefaultFlypoint], a ; $d002 .asm_b862b ld a, [DefaultFlypoint] ; $d002 ld e, a ld d, $0 ld hl, $463a add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_b863a: ; b863a (2e:463a) dw Functionb8742 dw Functionb8a46 dw Functionb8b35 dw Functionb8bdc dw Functionb8f12 dw Functionb8cbf dw Functionb8b50 dw Functionb8e72 dw Functionb8ef7 dw Functionb8f00 dw Functionb8f09 dw Functionb8752 dw Functionb875a dw Functionb8762 dw Functionb8810 dw Functionb8818 dw Functionb883e dw Functionb8854 dw Functionb88d9 dw Functionb8a6c dw Functionb8aa4 dw Functionb8aac dw Functionb8ab4 dw Functionb8b40 dw Functionb8b48 dw Functionb8b63 dw Functionb8b6b dw Functionb8b7d dw Functionb8b8f dw Functionb8b5b dw Functionb8bf5 dw Functionb8bfd dw Functionb8c05 dw Functionb8c0d dw Functionb8c15 dw Functionb8c1d dw Functionb8c25 dw Functionb8c3e dw Functionb8c46 dw Functionb8c4e dw Functionb8c56 dw Functionb8c5e dw Functionb8c6e dw Functionb8c76 dw Functionb8cca dw Functionb8cd2 dw Functionb8cf2 dw Functionb8d56 dw Functionb8ded dw Functionb8e28 dw Functionb8e7d dw Functionb8e85 dw Functionb8e8d dw Functionb8e95 dw Functionb8e9d dw Functionb8ea5 dw Functionb8ead dw Functionb8eb5 dw Functionb8ebd dw Functionb896e dw Functionb8994 dw Functionb89a9 dw Functionb89c6 dw Functionb89d7 dw Functionb8f3f dw Functionb8f47 dw Functionb8f55 dw Functionb909c dw Functionb90a4 dw Functionb90ac dw Functionb90c5 dw Functionb90d2 dw Functionb90da dw Functionb90e2 dw Functionb90ea dw Functionb90f2 dw Functionb90fa dw Functionb9102 dw Functionb910a dw Functionb9112 dw Functionb911a dw Functionb9122 dw Functionb912a dw Functionb9152 dw Functionb8728 dw Functionb8abc dw Functionb8ac4 dw Functionb8acc ; known jump sources: b87e9 (2e:47e9), b87ef (2e:47ef), b8aa1 (2e:4aa1), b8aa9 (2e:4aa9), b8ab1 (2e:4ab1), b8ab9 (2e:4ab9), b8ac1 (2e:4ac1), b8ac9 (2e:4ac9), b8ad1 (2e:4ad1), b8e4f (2e:4e4f), b9226 (2e:5226) Functionb86ea: ; b86ea (2e:46ea) ld [$d003], a ld hl, $d00c ld a, [StartFlypoint] ; $d005 cp $2 jr nc, .asm_b870a inc hl ld [hl], $0 inc a ld [StartFlypoint], a ; $d005 cp $2 jr nz, .asm_b870a ld bc, $c5e1 call Function13e5 jr .asm_b870d .asm_b870a call PrintTextBoxText .asm_b870d ld a, $54 ld [DefaultFlypoint], a ; $d002 ld a, $64 ld [$d004], a ret ; b8718 (2e:4718) INCBIN "baserom.gbc",$b8718,$b8728 - $b8718 ; no known jump sources Functionb8728: ; b8728 (2e:4728) ld hl, $d004 ld a, [hl] and a jr z, .asm_b8731 dec [hl] ret .asm_b8731 ld a, [$d003] ld [DefaultFlypoint], a ; $d002 ld a, [StartFlypoint] ; $d005 cp $1 call nz, Functionb8a0b jp Functionb8a17 ; no known jump sources Functionb8742: ; b8742 (2e:4742) ld a, $5 ld [EndFlypoint], a ; $d006 call Functionb91eb ld hl, $4820 ld a, $b jp Functionb9221 ; no known jump sources Functionb8752: ; b8752 (2e:4752) ld hl, $4825 ld a, $c jp Functionb9221 ; no known jump sources Functionb875a: ; b875a (2e:475a) ld hl, $482a ld a, $d jp Functionb9221 ; known jump sources: b8769 (2e:4769) Functionb8762: ; b8762 (2e:4762) call Random and $1f cp $f jr nc, Functionb8762 ld hl, $47f2 ld c, a ld b, $0 add hl, bc add hl, bc ld b, [hl] inc hl ld c, [hl] push bc ld hl, $65e9 .asm_b877a ld a, $a call GetFarByte cp $ff jr z, .asm_b87ec inc hl cp b jr nz, .asm_b878f ld a, $a call GetFarByte cp c jr z, .asm_b8796 .asm_b878f dec hl ld de, $2f add hl, de jr .asm_b877a .asm_b8796 inc hl inc hl inc hl inc hl .asm_b879a call Random and $3 cp $3 jr z, .asm_b879a ld bc, $e call AddNTimes .asm_b87a9 call Random and $7 cp $2 jr c, .asm_b87a9 cp $5 jr nc, .asm_b87a9 ld e, a ld d, $0 add hl, de add hl, de inc hl ld a, $a call GetFarByte ld [$d265], a ld [CurPartySpecies], a ; $d108 call GetPokemonName ld hl, StringBuffer1 ; $d073 ld de, $d050 ld bc, $b call CopyBytes pop bc call GetWorldMapLocation ld e, a callba GetLandmarkName ld hl, $482f call Functionb91dc ld a, $e jp Functionb86ea .asm_b87ec pop bc ld a, $0 jp Functionb86ea ; b87f2 (2e:47f2) INCBIN "baserom.gbc",$b87f2,$b8810 - $b87f2 ; no known jump sources Functionb8810: ; b8810 (2e:4810) ld hl, $4834 ld a, $f jp Functionb9221 ; no known jump sources Functionb8818: ; b8818 (2e:4818) ld hl, $4839 ld a, $10 jp Functionb9221 ; b8820 (2e:4820) INCBIN "baserom.gbc",$b8820,$b883e - $b8820 ; no known jump sources Functionb883e: ; b883e (2e:483e) ld a, [CurPartySpecies] ; $d108 ld [$d265], a call GetPokemonName ld hl, $484f ld a, $11 jp Functionb9221 ; b884f (2e:484f) INCBIN "baserom.gbc",$b884f,$b8854 - $b884f ; no known jump sources Functionb8854: ; b8854 (2e:4854) call Random and $f ld e, a ld d, $0 ld hl, $4869 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ld a, $12 jp Functionb9221 ; b8869 (2e:4869) INCBIN "baserom.gbc",$b8869,$b88d9 - $b8869 ; no known jump sources Functionb88d9: ; b88d9 (2e:48d9) call Random and $f ld e, a ld d, $0 ld hl, $48fe add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ld a, [EndFlypoint] ; $d006 dec a ld [EndFlypoint], a ; $d006 ld a, $d jr nz, .asm_b88fb ld a, $5 ld [EndFlypoint], a ; $d006 ld a, $3b .asm_b88fb jp Functionb9221 ; b88fe (2e:48fe) INCBIN "baserom.gbc",$b88fe,$b896e - $b88fe ; no known jump sources Functionb896e: ; b896e (2e:496e) callba Function91868 ld hl, $4993 call PrintText call WaitBGMap ld hl, $498e call PrintText ld a, $3c ld [DefaultFlypoint], a ; $d002 ld a, $64 ld [$d004], a ret ; b898e (2e:498e) INCBIN "baserom.gbc",$b898e,$b8994 - $b898e ; no known jump sources Functionb8994: ; b8994 (2e:4994) ld hl, $d004 dec [hl] ret nz ld hl, $c5c1 ld de, $49a4 ld a, $3d jp Functionb8a00 ; b89a4 (2e:49a4) INCBIN "baserom.gbc",$b89a4,$b89a9 - $b89a4 ; no known jump sources Functionb89a9: ; b89a9 (2e:49a9) ld hl, $d004 dec [hl] ret nz ld hl, $c5e1 ld de, $49b9 ld a, $3e jp Functionb8a00 ; b89b9 (2e:49b9) INCBIN "baserom.gbc",$b89b9,$b89c6 - $b89b9 ; no known jump sources Functionb89c6: ; b89c6 (2e:49c6) ld hl, $d004 dec [hl] ret nz ld hl, $c5ec ld de, $49d6 ld a, $3f jp Functionb8a00 ; b89d6 (2e:49d6) INCBIN "baserom.gbc",$b89d6,$b89d7 - $b89d6 ; no known jump sources Functionb89d7: ; b89d7 (2e:49d7) ld hl, $d004 dec [hl] ret nz ld de, $1d callab Function91854 ld hl, $49ff call PrintText ld a, $d ld [$d003], a xor a ld [StartFlypoint], a ; $d005 ld a, $54 ld [DefaultFlypoint], a ; $d002 ld a, $a ld [$d004], a ret ; b89ff (2e:49ff) INCBIN "baserom.gbc",$b89ff,$b8a00 - $b89ff ; known jump sources: b89a1 (2e:49a1), b89b6 (2e:49b6), b89d3 (2e:49d3) Functionb8a00: ; b8a00 (2e:4a00) ld [DefaultFlypoint], a ; $d002 ld a, $64 ld [$d004], a jp PlaceString ; known jump sources: b873c (2e:473c) Functionb8a0b: ; b8a0b (2e:4a0b) ld hl, $c5cc ld de, $c5a4 ld bc, $28 jp CopyBytes ; known jump sources: b873f (2e:473f) Functionb8a17: ; b8a17 (2e:4a17) ld hl, $c5cd ld bc, $12 ld a, $7f call ByteFill ld hl, $c5e1 ld bc, $12 ld a, $7f jp ByteFill ; known jump sources: b8a7d (2e:4a7d) Functionb8a2d: ; b8a2d (2e:4a2d) push hl push de ld a, [CurPartySpecies] ; $d108 dec a rlca rlca and $3 ld hl, $4a42 ld d, $0 ld e, a add hl, de ld a, [hl] pop de pop hl ret ; b8a42 (2e:4a42) INCBIN "baserom.gbc",$b8a42,$b8a46 - $b8a42 ; no known jump sources Functionb8a46: ; b8a46 (2e:4a46) call Functionb91eb .asm_b8a49 call Random cp $fb jr nc, .asm_b8a49 ld c, a push bc ld a, c call CheckCaughtMon pop bc jr z, .asm_b8a49 inc c ld a, c ld [CurPartySpecies], a ; $d108 ld [$d265], a call GetPokemonName ld hl, $4b30 ld a, $13 jp Functionb9221 ; no known jump sources Functionb8a6c: ; b8a6c (2e:4a6c) ld a, [CurPartySpecies] ; $d108 dec a ld hl, $4378 ld c, a ld b, $0 add hl, bc add hl, bc ld a, $11 call GetFarHalfword call Functionb8a2d push af push hl call Functionb8af3 dec hl ld [hl], $57 ld hl, $d26b call Functionb91dc pop hl pop af call Functionb8b11 inc hl inc hl inc hl inc hl ld a, l ld [$d26b], a ld a, h ld [$d26c], a ld a, $14 jp Functionb86ea ; no known jump sources Functionb8aa4: ; b8aa4 (2e:4aa4) call Functionb8ad4 ld a, $15 jp Functionb86ea ; no known jump sources Functionb8aac: ; b8aac (2e:4aac) call Functionb8ad4 ld a, $16 jp Functionb86ea ; no known jump sources Functionb8ab4: ; b8ab4 (2e:4ab4) call Functionb8ad4 ld a, $55 jp Functionb86ea ; no known jump sources Functionb8abc: ; b8abc (2e:4abc) call Functionb8ad4 ld a, $56 jp Functionb86ea ; no known jump sources Functionb8ac4: ; b8ac4 (2e:4ac4) call Functionb8ad4 ld a, $57 jp Functionb86ea ; no known jump sources Functionb8acc: ; b8acc (2e:4acc) call Functionb8ad4 ld a, $1 jp Functionb86ea ; known jump sources: b8aa4 (2e:4aa4), b8aac (2e:4aac), b8ab4 (2e:4ab4), b8abc (2e:4abc), b8ac4 (2e:4ac4), b8acc (2e:4acc) Functionb8ad4: ; b8ad4 (2e:4ad4) ld a, [$d26b] ld l, a ld a, [$d26c] ld h, a ld a, [$d26d] push af push hl call Functionb8af3 dec hl ld [hl], $57 ld hl, $d26b call Functionb91dc pop hl pop af call Functionb8b11 ret ; known jump sources: b8a82 (2e:4a82), b8ae1 (2e:4ae1) Functionb8af3: ; b8af3 (2e:4af3) ld de, $d26d ld bc, $13 call FarCopyBytes ld hl, $d26b ld [hl], $0 inc hl ld [hl], $4f inc hl .asm_b8b05 ld a, [hli] cp $50 ret z cp $4e ret z cp $5f ret z jr .asm_b8b05 ; known jump sources: b8a90 (2e:4a90), b8aef (2e:4aef) Functionb8b11: ; b8b11 (2e:4b11) ld d, a .asm_b8b12 ld a, d call GetFarByte inc hl cp $50 jr z, .asm_b8b23 cp $4e jr z, .asm_b8b23 cp $5f jr nz, .asm_b8b12 .asm_b8b23 ld a, l ld [$d26b], a ld a, h ld [$d26c], a ld a, d ld [$d26d], a ret ; b8b30 (2e:4b30) INCBIN "baserom.gbc",$b8b30,$b8b35 - $b8b30 ; no known jump sources Functionb8b35: ; b8b35 (2e:4b35) call Functionb8b90 ld hl, $4baa ld a, $17 jp Functionb9221 ; no known jump sources Functionb8b40: ; b8b40 (2e:4b40) ld hl, $4baf ld a, $18 jp Functionb9221 ; no known jump sources Functionb8b48: ; b8b48 (2e:4b48) ld hl, $4bb4 ld a, $19 jp Functionb9221 ; no known jump sources Functionb8b50: ; b8b50 (2e:4b50) call Functionb8b90 ld hl, $4bb9 ld a, $1d jp Functionb9221 ; no known jump sources Functionb8b5b: ; b8b5b (2e:4b5b) ld hl, $4bbe ld a, $19 jp Functionb9221 ; no known jump sources Functionb8b63: ; b8b63 (2e:4b63) ld hl, $4bc3 ld a, $1a jp Functionb9221 ; no known jump sources Functionb8b6b: ; b8b6b (2e:4b6b) call GetWeekday and $1 ld hl, $4bc8 jr z, .asm_b8b78 ld hl, $4bcd .asm_b8b78 ld a, $1b jp Functionb9221 ; no known jump sources Functionb8b7d: ; b8b7d (2e:4b7d) call GetWeekday and $1 ld hl, $4bd2 jr z, .asm_b8b8a ld hl, $4bd7 .asm_b8b8a ld a, $1c jp Functionb9221 ; no known jump sources Functionb8b8f: ; b8b8f (2e:4b8f) ret ; known jump sources: b8b35 (2e:4b35), b8b50 (2e:4b50) Functionb8b90: ; b8b90 (2e:4b90) call Function1052 call PrintText ld de, $51 call GetWeekday and $1 jr z, .asm_b8ba3 ld de, $50 .asm_b8ba3 callab Function91854 ret ; b8baa (2e:4baa) INCBIN "baserom.gbc",$b8baa,$b8bdc - $b8baa ; no known jump sources Functionb8bdc: ; b8bdc (2e:4bdc) call Functionb91eb callab Functionc434 jr nc, .asm_b8bed callab Functionc422 .asm_b8bed ld hl, $4c7e ld a, $1e jp Functionb9221 ; no known jump sources Functionb8bf5: ; b8bf5 (2e:4bf5) ld hl, $4c83 ld a, $1f jp Functionb9221 ; no known jump sources Functionb8bfd: ; b8bfd (2e:4bfd) ld hl, $4c88 ld a, $20 jp Functionb9221 ; no known jump sources Functionb8c05: ; b8c05 (2e:4c05) ld hl, $4c8d ld a, $21 jp Functionb9221 ; no known jump sources Functionb8c0d: ; b8c0d (2e:4c0d) ld hl, $4c92 ld a, $22 jp Functionb9221 ; no known jump sources Functionb8c15: ; b8c15 (2e:4c15) ld hl, $4c97 ld a, $23 jp Functionb9221 ; no known jump sources Functionb8c1d: ; b8c1d (2e:4c1d) ld hl, $4c9c ld a, $24 jp Functionb9221 ; no known jump sources Functionb8c25: ; b8c25 (2e:4c25) ld hl, StringBuffer1 ; $d073 ld de, $dc9f ld bc, $8205 call PrintNum ld a, $50 ld [$d078], a ld hl, $4ca1 ld a, $25 jp Functionb9221 ; no known jump sources Functionb8c3e: ; b8c3e (2e:4c3e) ld hl, $4ca6 ld a, $26 jp Functionb9221 ; no known jump sources Functionb8c46: ; b8c46 (2e:4c46) ld hl, $4c9c ld a, $27 jp Functionb9221 ; no known jump sources Functionb8c4e: ; b8c4e (2e:4c4e) ld hl, $4ca1 ld a, $28 jp Functionb9221 ; no known jump sources Functionb8c56: ; b8c56 (2e:4c56) ld hl, $4cab ld a, $29 jp Functionb9221 ; no known jump sources Functionb8c5e: ; b8c5e (2e:4c5e) ld hl, $4cb0 call Random and a ld a, $3 jr nz, .asm_b8c6b ld a, $2a .asm_b8c6b jp Functionb9221 ; no known jump sources Functionb8c6e: ; b8c6e (2e:4c6e) ld hl, $4cb5 ld a, $2b jp Functionb9221 ; no known jump sources Functionb8c76: ; b8c76 (2e:4c76) ld hl, $4cba ld a, $3 jp Functionb9221 ; b8c7e (2e:4c7e) INCBIN "baserom.gbc",$b8c7e,$b8cbf - $b8c7e ; no known jump sources Functionb8cbf: ; b8cbf (2e:4cbf) call Functionb91eb ld hl, $4ce3 ld a, $2c jp Functionb9221 ; no known jump sources Functionb8cca: ; b8cca (2e:4cca) ld hl, $4ce8 ld a, $2d jp Functionb9221 ; no known jump sources Functionb8cd2: ; b8cd2 (2e:4cd2) ld hl, $4ced call Random cp $7b ld a, $2e jr c, .asm_b8ce0 ld a, $30 .asm_b8ce0 jp Functionb9221 ; b8ce3 (2e:4ce3) INCBIN "baserom.gbc",$b8ce3,$b8cf2 - $b8ce3 ; known jump sources: b8cfa (2e:4cfa), b8d1e (2e:4d1e) Functionb8cf2: ; b8cf2 (2e:4cf2) call Random and $7f inc a cp $43 jr nc, Functionb8cf2 push af ld hl, $4d3e ld a, [StatusFlags] ; $d84c bit 6, a jr z, .asm_b8d14 ld hl, $4d43 ld a, [KantoBadges] ; $d858 cp $ff jr nz, .asm_b8d14 ld hl, $4d4b .asm_b8d14 pop af ld c, a ld de, $1 push bc call IsInArray pop bc jr c, Functionb8cf2 push bc callab Function3952d ld de, StringBuffer1 ; $d073 call CopyName1 pop bc ld b, $1 callab Function3994c ld hl, $4d51 ld a, $2f jp Functionb9221 ; b8d3e (2e:4d3e) INCBIN "baserom.gbc",$b8d3e,$b8d56 - $b8d3e ; no known jump sources Functionb8d56: ; b8d56 (2e:4d56) call Random and $f ld e, a ld d, $0 ld hl, $4d7d add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a call Random cp $a ld a, $5 jr c, .asm_b8d7a call Random cp $7b ld a, $2e jr c, .asm_b8d7a ld a, $30 .asm_b8d7a jp Functionb9221 ; b8d7d (2e:4d7d) INCBIN "baserom.gbc",$b8d7d,$b8ded - $b8d7d ; known jump sources: b8df2 (2e:4df2) Functionb8ded: ; b8ded (2e:4ded) call Random cp $9 jr nc, Functionb8ded ld hl, $4e11 ld c, a ld b, $0 add hl, bc add hl, bc ld b, [hl] inc hl ld c, [hl] call GetWorldMapLocation ld e, a callba GetLandmarkName ld hl, $4e23 ld a, $31 jp Functionb9221 ; b8e11 (2e:4e11) INCBIN "baserom.gbc",$b8e11,$b8e28 - $b8e11 ; no known jump sources Functionb8e28: ; b8e28 (2e:4e28) call Random and $f ld e, a ld d, $0 ld hl, $4e52 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a call Functionb91dc call Random cp $a ld a, $5 jr c, .asm_b8e4f call Random cp $7b ld a, $2e jr c, .asm_b8e4f ld a, $30 .asm_b8e4f jp Functionb86ea ; b8e52 (2e:4e52) INCBIN "baserom.gbc",$b8e52,$b8e72 - $b8e52 ; no known jump sources Functionb8e72: ; b8e72 (2e:4e72) call Functionb91eb ld hl, $4ec5 ld a, $32 jp Functionb9221 ; no known jump sources Functionb8e7d: ; b8e7d (2e:4e7d) ld hl, $4eca ld a, $33 jp Functionb9221 ; no known jump sources Functionb8e85: ; b8e85 (2e:4e85) ld hl, $4ecf ld a, $34 jp Functionb9221 ; no known jump sources Functionb8e8d: ; b8e8d (2e:4e8d) ld hl, $4ed4 ld a, $35 jp Functionb9221 ; no known jump sources Functionb8e95: ; b8e95 (2e:4e95) ld hl, $4ed9 ld a, $36 jp Functionb9221 ; no known jump sources Functionb8e9d: ; b8e9d (2e:4e9d) ld hl, $4ede ld a, $37 jp Functionb9221 ; no known jump sources Functionb8ea5: ; b8ea5 (2e:4ea5) ld hl, $4ee3 ld a, $38 jp Functionb9221 ; no known jump sources Functionb8ead: ; b8ead (2e:4ead) ld hl, $4ee8 ld a, $39 jp Functionb9221 ; no known jump sources Functionb8eb5: ; b8eb5 (2e:4eb5) ld hl, $4eed ld a, $3a jp Functionb9221 ; no known jump sources Functionb8ebd: ; b8ebd (2e:4ebd) ld hl, $4ef2 ld a, $7 jp Functionb9221 ; b8ec5 (2e:4ec5) INCBIN "baserom.gbc",$b8ec5,$b8ef7 - $b8ec5 ; no known jump sources Functionb8ef7: ; b8ef7 (2e:4ef7) call Functionb91eb ld a, $1 ld [StartFlypoint], a ; $d005 ret ; no known jump sources Functionb8f00: ; b8f00 (2e:4f00) call Functionb91eb ld a, $1 ld [StartFlypoint], a ; $d005 ret ; no known jump sources Functionb8f09: ; b8f09 (2e:4f09) call Functionb91eb ld a, $1 ld [StartFlypoint], a ; $d005 ret ; known jump sources: b915e (2e:515e) Functionb8f12: ; b8f12 (2e:4f12) call Functionb9169 jp nc, Functionb8f22 ld a, [StartFlypoint] ; $d005 and a jp z, Functionb912a jp Functionb90c5 ; known jump sources: b8f15 (2e:4f15) Functionb8f22: ; b8f22 (2e:4f22) call Functionb91eb ld a, [hBGMapMode] ; $ff00+$d4 push af xor a ld [hBGMapMode], a ; $ff00+$d4 ld de, $5171 ld hl, $c556 call PlaceString pop af ld [hBGMapMode], a ; $ff00+$d4 ld hl, $5182 ld a, $40 jp Functionb9221 ; no known jump sources Functionb8f3f: ; b8f3f (2e:4f3f) ld hl, $5187 ld a, $41 jp Functionb9221 ; no known jump sources Functionb8f47: ; b8f47 (2e:4f47) call Functionb9169 ld hl, $518c jp c, Functionb90b9 ld a, $42 jp Functionb9221 ; no known jump sources Functionb8f55: ; b8f55 (2e:4f55) call Functionb9169 jp c, Functionb90c5 ld a, [$dc4a] ld hl, $dc1f bit 7, [hl] jr nz, .asm_b8f83 .asm_b8f65 call Random and $f cp $b jr nc, .asm_b8f65 swap a ld e, a .asm_b8f71 call Random and $3 cp $3 jr nc, .asm_b8f71 add e ld [$dc4a], a ld hl, $dc1f set 7, [hl] .asm_b8f83 ld c, a call Functionb8f8f ld hl, $5191 ld a, $43 jp Functionb9221 Functionb8f8f: ; b8f8f ld a, c swap a and $f ld hl, $4ff9 ld d, $0 ld e, a add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ld a, [hli] ld b, a push hl inc hl ld a, c and $f ld c, a push hl ld hl, $4fb8 ld e, b add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a pop de call _hl_ pop hl ld c, [hl] ret ; b8fb8 ; no known jump sources Jumptable_b8fb8: ; b8fb8 (2e:4fb8) dw Functionb8fc0 dw Functionb8fc7 dw Functionb8fce dw Functionb8fde ; no known jump sources Functionb8fc0: ; b8fc0 (2e:4fc0) call Functionb8fd5 call GetPokemonName ret ; no known jump sources Functionb8fc7: ; b8fc7 (2e:4fc7) call Functionb8fd5 call GetItemName ret ; no known jump sources Functionb8fce: ; b8fce (2e:4fce) call Functionb8fd5 call GetMoveName ret ; known jump sources: b8fc0 (2e:4fc0), b8fc7 (2e:4fc7), b8fce (2e:4fce) Functionb8fd5: ; b8fd5 (2e:4fd5) ld h, $0 ld l, c add hl, de ld a, [hl] ld [$d265], a ret ; no known jump sources Functionb8fde: ; b8fde (2e:4fde) ld a, c and a jr z, .asm_b8feb .asm_b8fe2 ld a, [de] inc de cp $50 jr nz, .asm_b8fe2 dec c jr nz, .asm_b8fe2 .asm_b8feb ld hl, StringBuffer1 ; $d073 .asm_b8fee ld a, [de] inc de ld [hli], a cp $50 jr nz, .asm_b8fee ld de, StringBuffer1 ; $d073 ret ; b8ff9 (2e:4ff9) INCBIN "baserom.gbc",$b8ff9,$b909c - $b8ff9 ; no known jump sources Functionb909c: ; b909c (2e:509c) ld hl, $5196 ld a, $44 jp Functionb9221 ; no known jump sources Functionb90a4: ; b90a4 (2e:50a4) ld hl, $519b ld a, $45 jp Functionb9221 ; no known jump sources Functionb90ac: ; b90ac (2e:50ac) call Functionb9169 ld hl, $51a0 jr c, Functionb90b9 ld a, $4 jp Functionb9221 ; known jump sources: b8f4d (2e:4f4d), b90b2 (2e:50b2) Functionb90b9: ; b90b9 (2e:50b9) push hl ld hl, $dc1f res 7, [hl] pop hl ld a, $46 jp Functionb9221 ; known jump sources: b8f1f (2e:4f1f), b8f58 (2e:4f58) Functionb90c5: ; b90c5 (2e:50c5) ld hl, $dc1f res 7, [hl] ld hl, $51d2 ld a, $47 jp Functionb9221 ; no known jump sources Functionb90d2: ; b90d2 (2e:50d2) ld hl, $51a5 ld a, $48 jp Functionb9221 ; no known jump sources Functionb90da: ; b90da (2e:50da) ld hl, $51aa ld a, $49 jp Functionb9221 ; no known jump sources Functionb90e2: ; b90e2 (2e:50e2) ld hl, $51af ld a, $4a jp Functionb9221 ; no known jump sources Functionb90ea: ; b90ea (2e:50ea) ld hl, $51b4 ld a, $4b jp Functionb9221 ; no known jump sources Functionb90f2: ; b90f2 (2e:50f2) ld hl, $51b9 ld a, $4c jp Functionb9221 ; no known jump sources Functionb90fa: ; b90fa (2e:50fa) ld hl, $51be ld a, $4d jp Functionb9221 ; no known jump sources Functionb9102: ; b9102 (2e:5102) ld hl, $51c3 ld a, $4e jp Functionb9221 ; no known jump sources Functionb910a: ; b910a (2e:510a) ld hl, $51c8 ld a, $4f jp Functionb9221 ; no known jump sources Functionb9112: ; b9112 (2e:5112) ld hl, $51cd ld a, $50 jp Functionb9221 ; no known jump sources Functionb911a: ; b911a (2e:511a) ld hl, $51d2 ld a, $51 jp Functionb9221 ; no known jump sources Functionb9122: ; b9122 (2e:5122) ld hl, $51d2 ld a, $52 jp Functionb9221 ; known jump sources: b8f1c (2e:4f1c) Functionb912a: ; b912a (2e:512a) ld a, [hBGMapMode] ; $ff00+$d4 push af callba Function9189d callba Function918a9 pop af ld [hBGMapMode], a ; $ff00+$d4 ld hl, $dc1f res 7, [hl] ld a, $4 ld [DefaultFlypoint], a ; $d002 xor a ld [StartFlypoint], a ; $d005 ld hl, $51d7 ld a, $53 jp Functionb9221 ; no known jump sources Functionb9152: ; b9152 (2e:5152) ld a, $4 ld [DefaultFlypoint], a ; $d002 xor a ld [StartFlypoint], a ; $d005 call Functionb9169 jp nc, Functionb8f12 ld hl, $51d7 ld a, $53 jp Functionb9221 ; known jump sources: b8f12 (2e:4f12), b8f47 (2e:4f47), b8f55 (2e:4f55), b90ac (2e:50ac), b915b (2e:515b) Functionb9169: ; b9169 (2e:5169) call UpdateTime ld a, [hHours] ; $ff00+$94 cp $12 ret ; b9171 (2e:5171) INCBIN "baserom.gbc",$b9171,$b91dc - $b9171 ; known jump sources: b87e4 (2e:47e4), b8a8b (2e:4a8b), b8aea (2e:4aea), b8e38 (2e:4e38), b9222 (2e:5222) Functionb91dc: ; b91dc (2e:51dc) ld a, [hl] cp $16 jp z, Function3a90 ld de, $d00c ld bc, $28 jp CopyBytes ; known jump sources: b8747 (2e:4747), b8a46 (2e:4a46), b8bdc (2e:4bdc), b8cbf (2e:4cbf), b8e72 (2e:4e72), b8ef7 (2e:4ef7), b8f00 (2e:4f00), b8f09 (2e:4f09), b8f22 (2e:4f22) Functionb91eb: ; b91eb (2e:51eb) ld a, [StartFlypoint] ; $d005 and a ret nz call Function1052 call PrintText ld hl, $520b ld a, [DefaultFlypoint] ; $d002 ld c, a ld b, $0 add hl, bc add hl, bc ld e, [hl] inc hl ld d, [hl] callab Function91854 ret ; b920b (2e:520b) INCBIN "baserom.gbc",$b920b,$b9221 - $b920b ; known jump sources: b874f (2e:474f), b8757 (2e:4757), b875f (2e:475f), b8815 (2e:4815), b881d (2e:481d), b884c (2e:484c), b8866 (2e:4866), b88fb (2e:48fb), b8a69 (2e:4a69), b8b3d (2e:4b3d), b8b45 (2e:4b45), b8b4d (2e:4b4d), b8b58 (2e:4b58), b8b60 (2e:4b60), b8b68 (2e:4b68), b8b7a (2e:4b7a), b8b8c (2e:4b8c), b8bf2 (2e:4bf2), b8bfa (2e:4bfa), b8c02 (2e:4c02), b8c0a (2e:4c0a), b8c12 (2e:4c12), b8c1a (2e:4c1a), b8c22 (2e:4c22), b8c3b (2e:4c3b), b8c43 (2e:4c43), b8c4b (2e:4c4b), b8c53 (2e:4c53), b8c5b (2e:4c5b), b8c6b (2e:4c6b), b8c73 (2e:4c73), b8c7b (2e:4c7b), b8cc7 (2e:4cc7), b8ccf (2e:4ccf), b8ce0 (2e:4ce0), b8d3b (2e:4d3b), b8d7a (2e:4d7a), b8e0e (2e:4e0e), b8e7a (2e:4e7a), b8e82 (2e:4e82), b8e8a (2e:4e8a), b8e92 (2e:4e92), b8e9a (2e:4e9a), b8ea2 (2e:4ea2), b8eaa (2e:4eaa), b8eb2 (2e:4eb2), b8eba (2e:4eba), b8ec2 (2e:4ec2), b8f3c (2e:4f3c), b8f44 (2e:4f44), b8f52 (2e:4f52), b8f8c (2e:4f8c), b90a1 (2e:50a1), b90a9 (2e:50a9), b90b6 (2e:50b6), b90c2 (2e:50c2), b90cf (2e:50cf), b90d7 (2e:50d7), b90df (2e:50df), b90e7 (2e:50e7), b90ef (2e:50ef), b90f7 (2e:50f7), b90ff (2e:50ff), b9107 (2e:5107), b910f (2e:510f), b9117 (2e:5117), b911f (2e:511f), b9127 (2e:5127), b914f (2e:514f), b9166 (2e:5166) Functionb9221: ; b9221 (2e:5221) push af call Functionb91dc pop af jp Functionb86ea Functionb9229: ; b9229 ld a, [CurPartyMon] ld hl, $a600 ld bc, $002f call AddNTimes ld d, h ld e, l Functionb9237: ; b9237 push de call WhiteBGMap call ClearSprites call ClearTileMap call DisableLCD call Functione5f pop de push de ld a, $0 call GetSRAMBank callba Function1de5c8 call CloseSRAM ld a, c ld de, $65e6 or a jr z, .asm_b9268 ld de, $69e6 sub $3 jr c, .asm_b9268 ld de, $6de6 .asm_b9268 ld hl, VTiles1 ld bc, $7780 call Get1bpp pop de call Functionb92b8 call EnableLCD call WaitBGMap ld a, [$d1ec] ld e, a callba Function8cb4 call Function32f9 xor a ld [hJoyPressed], a call Functionb929a call WhiteBGMap call DisableLCD call Functione51 jp EnableLCD ; b929a Functionb929a: ; b929a .asm_b929a call GetJoypad ld a, [hJoyPressed] and $b jr z, .asm_b929a and $8 jr nz, .asm_b92a8 ret .asm_b92a8 ld a, [$cf63] push af callab Function845d4 pop af ld [$cf63], a jr .asm_b929a ; b92b8 Functionb92b8: ; b92b8 ld h, d ld l, e push hl ld a, $0 call GetSRAMBank ld de, $002b add hl, de ld a, [hli] ld [Buffer1], a ld a, [hli] ld [Buffer2], a ld a, [hli] ld [CurPartySpecies], a ld b, [hl] call CloseSRAM ld hl, $52f8 ld c, $0 .asm_b92d9 ld a, [hli] cp b jr z, .asm_b92ea cp $ff jr z, .asm_b92e6 inc c inc hl inc hl jr .asm_b92d9 .asm_b92e6 ld hl, $52f8 inc hl .asm_b92ea ld a, c ld [$d1ec], a ld a, [hli] ld h, [hl] ld l, a ld de, $52f7 pop bc push de jp [hl] ; b92f7 INCBIN "baserom.gbc",$b92f7,$b9e76 - $b92f7 ItemIsMail: ; b9e76 ld a, d ld hl, .items ld de, 1 jp IsInArray ; b9e80 .items db FLOWER_MAIL db SURF_MAIL db LITEBLUEMAIL db PORTRAITMAIL db LOVELY_MAIL db EON_MAIL db MORPH_MAIL db BLUESKY_MAIL db MUSIC_MAIL db MIRAGE_MAIL db $ff ; b9e8b SECTION "bank2F", ROMX, BANK[$2F] INCLUDE "engine/std_scripts.asm" INCBIN "baserom.gbc",$bd0d0,$be66a - $bd0d0 UnknownScript_0xbe66a: ; 0xbe66a faceplayer trainerstatus $2 iftrue $6698 loadtrainerdata playrammusic 2jump UnknownScript_0xbe68a ; 0xbe675 UnknownScript_0xbe675: ; 0xbe675 loadtrainerdata playrammusic showemote $0, $fe, 30 3callasm Function831e applymovement2 $d007 writepersonxy $fe faceperson $0, $fe 2jump UnknownScript_0xbe68a ; 0xbe68a UnknownScript_0xbe68a: ; 0xbe68a loadfont trainertext $0 closetext loadmovesprites loadtrainerdata startbattle returnafterbattle trainerstatus $1 loadvar $d04d, $ff scripttalkafter ; 0xbe699 SECTION "bank30", ROMX, BANK[$30] INCLUDE "gfx/overworld/sprites_1.asm" SECTION "bank31", ROMX, BANK[$31] INCLUDE "gfx/overworld/sprites_2.asm" SECTION "bank32", ROMX, BANK[$32] INCLUDE "battle/bg_effects.asm" INCLUDE "battle/anims.asm" Functioncbcdd: ; cbcdd call Functioncbce5 ld a, [hCGB] and a ret nz ret ; cbce5 Functioncbce5: ; cbce5 ld a, [hCGB] and a jr nz, .asm_cbd06 ld a, [TimeOfDayPal] and $3 cp $3 ld a, $0 jr z, .asm_cbcf7 ld a, $aa .asm_cbcf7 call DmgToCgbBGPals ld c, $4 call DelayFrames callba _UpdateTimePals ret .asm_cbd06 ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, BGPals ld c, $20 .asm_cbd12 ld a, $bc ld [hli], a ld a, $7e ld [hli], a dec c jr nz, .asm_cbd12 pop af ld [rSVBK], a ld a, $1 ld [hCGBPalUpdate], a ld c, $4 call DelayFrames callba _UpdateTimePals ret ; cbd2e TheEndGFX: ; cbd2e INCBIN "gfx/credits/theend.2bpp" ; cbe2e SECTION "bank33", ROMX, BANK[$33] Functioncc000: ; cc000 call WhiteBGMap call ClearTileMap call ClearSprites call Functione58 ld hl, Options ld a, [hl] push af set 4, [hl] hlcoord 0, 0 ld b, 4 ld c, 13 call TextBox hlcoord 0, 6 ld b, 4 ld c, 13 call TextBox hlcoord 2, 0 ld de, .Stock call PlaceString hlcoord 2, 6 ld de, .This call PlaceString hlcoord 5, 4 ld de, .Health call PlaceString hlcoord 5, 10 ld de, .Health call PlaceString ld a, [$df9c] ld [$d265], a call GetPokemonName ld de, StringBuffer1 hlcoord 1, 2 call PlaceString ld h, b ld l, c ld a, [$dfbb] ld [TempMonLevel], a call PrintLevel ld de, EnemyMonNick hlcoord 1, 8 call PlaceString ld h, b ld l, c ld a, [EnemyMonLevel] ld [TempMonLevel], a call PrintLevel hlcoord 11, 4 ld de, $dfc0 ld bc, $0203 call PrintNum hlcoord 11, 10 ld de, EnemyMonMaxHPHi call PrintNum ld hl, SwitchMonText call PrintText pop af ld [Options], a call WaitBGMap ld b, $8 call GetSGBLayout call Function32f9 ret ; cc0a7 .Health db "HEALTH@" .Stock db " STOCK ", $4a, " @" .This db " THIS ", $4a, " @" SwitchMonText: ; cc0c2 ; Switch #MON? text_jump UnknownText_0x1c10cf db "@" ; cc0c7 Functioncc0c7: ; cc0c7 call GetPokemonName ld hl, AlreadyCaughtText jp PrintText ; cc0d0 AlreadyCaughtText: ; 0xcc0d0 ; You already caught a @ . text_jump UnknownText_0x1c10dd db "@" ; 0xcc0d5 Predef2F: Predef38: Predef39: ; cc0d5 ret ; cc0d6 INCLUDE "battle/anim_commands.asm" INCLUDE "battle/anim_objects.asm" SECTION "Pic Animations 1", ROMX, BANK[$34] INCLUDE "gfx/pics/animation.asm" ; Pic animations are assembled in 3 parts: ; Top-level animations: ; frame #, duration: Frame 0 is the original pic (no change) ; setrepeat #: Sets the number of times to repeat ; dorepeat #: Repeats from command # (starting from 0) ; end ; Bitmasks: ; Layered over the pic to designate affected tiles ; Frame definitions: ; first byte is the bitmask used for this frame ; following bytes are tile ids mapped to each bit in the mask ; Main animations (played everywhere) INCLUDE "gfx/pics/anim_pointers.asm" INCLUDE "gfx/pics/anims.asm" ; Extra animations, appended to the main animation ; Used in the status screen (blinking, tail wags etc.) INCLUDE "gfx/pics/extra_pointers.asm" INCLUDE "gfx/pics/extras.asm" ; Unown has its own animation data despite having an entry in the main tables INCLUDE "gfx/pics/unown_anim_pointers.asm" INCLUDE "gfx/pics/unown_anims.asm" INCLUDE "gfx/pics/unown_extra_pointers.asm" INCLUDE "gfx/pics/unown_extras.asm" ; Bitmasks INCLUDE "gfx/pics/bitmask_pointers.asm" INCLUDE "gfx/pics/bitmasks.asm" INCLUDE "gfx/pics/unown_bitmask_pointers.asm" INCLUDE "gfx/pics/unown_bitmasks.asm" SECTION "Pic Animations 2", ROMX, BANK[$35] INCLUDE "gfx/pics/frame_pointers.asm" INCLUDE "gfx/pics/kanto_frames.asm" SECTION "bank36", ROMX, BANK[$36] FontInversed: INCBIN "gfx/misc/font_inversed.1bpp" SECTION "Pic Animations 3", ROMX, BANK[$36] INCLUDE "gfx/pics/johto_frames.asm" INCLUDE "gfx/pics/unown_frame_pointers.asm" INCLUDE "gfx/pics/unown_frames.asm" SECTION "Tileset Data 6", ROMX, BANK[TILESETS_6] INCLUDE "tilesets/data_6.asm" SECTION "bank38", ROMX, BANK[$38] Functione0000: ; e0000 push de xor a call GetSRAMBank ld hl, $a000 ld bc, $0000 .asm_e000b push bc push hl push bc ld de, DefaultFlypoint call Functione004e call Functione0057 ld hl, $408b pop bc add hl, bc add hl, bc ld a, [hli] ld e, a ld d, [hl] ld hl, $d012 call Functione004e pop hl ld bc, $0010 add hl, bc pop bc inc c ld a, c cp $31 jr c, .asm_e000b ld hl, OverworldMap ld de, $a000 ld bc, $0310 call CopyBytes pop hl ld de, $a000 ld c, $31 ld a, [hROMBank] ld b, a call Get2bpp call CloseSRAM ret ; e004e Functione004e: ; e004e ld c, $10 .asm_e0050 ld a, [hli] ld [de], a inc de dec c jr nz, .asm_e0050 ret ; e0057 Functione0057: ; e0057 ld hl, $d012 ld e, $80 ld d, $8 .asm_e005e push hl ld hl, DefaultFlypoint call Functione0078 pop hl ld a, b ld [hli], a push hl ld hl, $d003 call Functione0078 pop hl ld a, b ld [hli], a srl e dec d jr nz, .asm_e005e ret ; e0078 Functione0078: ; e0078 ld b, $0 ld c, $8 .asm_e007c ld a, [hli] and e jr z, .asm_e0083 scf jr .asm_e0084 .asm_e0083 and a .asm_e0084 rr b inc hl dec c jr nz, .asm_e007c ret ; e008b INCBIN "baserom.gbc",$e008b,$e00ed - $e008b ; no known jump sources Functione00ed: ; e00ed (38:40ed) ret ; e00ee (38:40ee) Functione00ee: ; e00ee (38:40ee) ld hl, Options ; $cfcc set 4, [hl] call WhiteBGMap call ClearTileMap call ClearSprites ld de, $0 call PlayMusic call DelayFrame call DisableLCD call Functione51 call Functione5f ld hl, $4d16 ld de, $9000 call Decompress ld hl, $4ea8 ld de, $93e0 call Decompress ld hl, $4cdb ld de, $8000 call Decompress ld hl, $4cf6 ld de, $8ef0 ld bc, $10 call CopyBytes ld hl, $4d06 ld de, $8f50 ld bc, $10 call CopyBytes call Functione0521 call Functione04c1 call Functione0c37 call EnableLCD call Function3200 ld a, $e4 call DmgToCgbBGPals ld de, $e4e4 call DmgToCgbObjPals call DelayFrame xor a ld [$cf63], a ld a, $2 ld [$cf64], a ld [$cf65], a ld de, $12 call PlayMusic .asm_e0170 ld a, [$cf63] bit 7, a jr nz, .asm_e017c call Functione0191 jr .asm_e0170 .asm_e017c call WaitSFX ld de, $9d call PlaySFX call WaitSFX call WhiteBGMap ld hl, Options ; $cfcc res 4, [hl] ret ; known jump sources: e0177 (38:4177) Functione0191: ; e0191 (38:4191) ld a, [$cf63] ld e, a ld d, $0 ld hl, $41a0 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; e01a0 (38:41a0) Tablee01a0: ; e01a0 dw Functione01b5 dw Functione01d2 dw Functione0217 dw Functione02b7 dw Functione02da dw Functione0314 dw Functione031e dw Functione0360 ; e01b0 Functione01b0: ; e01b0 ld hl, $cf63 inc [hl] ret ; e01b5 Functione01b5: ; e01b5 ld hl, UnknownText_0xe01cd call Functione0489 call YesNoBox jr c, .asm_e01c7 call Functione0366 call Functione01b0 ret .asm_e01c7 ld a, $7 ld [$cf63], a ret ; e01cd UnknownText_0xe01cd: ; 0xe01cd ; Play with three coins? text_jump UnknownText_0x1c5793 db "@" ; 0xe01d2 Functione01d2: ; e01d2 ld a, [Coins] ld h, a ld a, [Coins + 1] ld l, a ld a, h and a jr nz, .asm_e01ef ld a, l cp 3 jr nc, .asm_e01ef ld hl, UnknownText_0xe0212 call Functione0489 ld a, $7 ld [$cf63], a ret .asm_e01ef ld de, -3 add hl, de ld a, h ld [Coins], a ld a, l ld [$d856], a ld de, SFX_TRANSACTION call PlaySFX xor a ld [hBGMapMode], a call Functione049c ld a, $1 ld [hBGMapMode], a call WaitSFX call Functione01b0 ret ; e0212 UnknownText_0xe0212: ; 0xe0212 ; Not enough coins… text_jump UnknownText_0x1c57ab db "@" ; 0xe0217 Functione0217: ; e0217 xor a ld [hBGMapMode], a ld hl, TileMap ld bc, $0c09 call Functione04e5 ld hl, $c4a9 ld bc, $0014 ld a, [$c6e8] call AddNTimes ld [hl], $f5 ld a, $1 ld [hBGMapMode], a ld c, $14 call DelayFrames ld hl, $c4a2 call Functione03c1 ld a, $1 ld [hBGMapMode], a ld c, $14 call DelayFrames ld hl, $c51a call Functione03c1 call WaitBGMap ld hl, UnknownText_0xe02b2 call Functione0489 xor a ld [$cf66], a .asm_e025c call Functiona57 ld a, [$ffa9] and $1 jr nz, .asm_e027c ld de, $002f call PlaySFX call Functione0849 ld c, $4 call DelayFrames ld hl, $cf66 ld a, [hl] xor $1 ld [hl], a jr .asm_e025c .asm_e027c ld de, $002c call PlaySFX ld a, $3 .asm_e0284 push af call Functione0849 ld c, $4 call DelayFrames call ClearSprites ld c, $4 call DelayFrames pop af dec a jr nz, .asm_e0284 ld hl, $cf66 ld a, [hl] push af xor $1 ld [hl], a call Functione03ac ld bc, $0605 call Functione04e5 pop af ld [$cf66], a call Functione01b0 ret ; e02b2 UnknownText_0xe02b2: ; 0xe02b2 ; Choose a card. text_jump UnknownText_0x1c57be db "@" ; 0xe02b7 Functione02b7: ; e02b7 ld hl, UnknownText_0xe02d5 call Functione0489 .asm_e02bd call Functiona57 ld a, [$ffa9] and $1 jr nz, .asm_e02d1 call Functione089c call Functione0960 call DelayFrame jr .asm_e02bd .asm_e02d1 call Functione01b0 ret ; e02d5 UnknownText_0xe02d5: ; 0xe02d5 ; Place your bet. text_jump UnknownText_0x1c57ce db "@" ; 0xe02da Functione02da: ; e02da xor a ld [$ff9b], a call Functione0960 call WaitSFX ld de, $009a call PlaySFX call WaitSFX ld a, [$c6e8] ld e, a ld d, $0 ld hl, PlayerSDefLevel add hl, de add hl, de ld a, [$cf66] ld e, a add hl, de ld a, [hl] ld [CurEnemyMoveNum], a ld e, a ld hl, $c6ea add hl, de ld [hl], $1 call Functione03ac call Functione03ec call Function3200 call Functione01b0 ret ; e0314 Functione0314: ; e0314 call Functione0637 call Functiona80 call Functione01b0 ret ; e031e Functione031e: ; e031e call ClearSprites ld hl, UnknownText_0xe0356 call Functione0489 call YesNoBox jr nc, .asm_e0330 call Functione01b0 ret .asm_e0330 ld a, [$c6e8] inc a ld [$c6e8], a cp $c jr c, .asm_e034d call Functione04c1 ld a, $1 ld [hBGMapMode], a call Functione0366 ld hl, $435b call PrintText jr .asm_e0350 .asm_e034d call Functione0534 .asm_e0350 ld a, $1 ld [$cf63], a ret ; e0356 UnknownText_0xe0356: ; 0xe0356 ; Want to play again? text_jump UnknownText_0x1c57df db "@" ; 0xe035b INCBIN "baserom.gbc", $e035b, $e0360 - $e035b Functione0360: ; e0360 ld hl, $cf63 set 7, [hl] ret ; e0366 Functione0366: ; e0366 ld hl, PlayerSDefLevel ld bc, $0018 xor a call ByteFill ld de, PlayerSDefLevel ld c, $17 .asm_e0375 call Random and $1f cp $18 jr nc, .asm_e0375 ld l, a ld h, $0 add hl, de ld a, [hl] and a jr nz, .asm_e0375 ld [hl], c dec c jr nz, .asm_e0375 xor a ld [$c6e8], a ld hl, $c6ea ld bc, $0018 call ByteFill ret ; e0398 Functione0398: ; e0398 ld hl, $0000 ld bc, $0006 ld a, [$cf64] call AddNTimes ld b, $0 ld a, [$cf65] ld c, a add hl, bc ret ; e03ac Functione03ac: ; e03ac ld a, [$cf66] and a jr nz, .asm_e03ba ld hl, $c4a2 ld bc, $1018 jr .asm_e03c0 .asm_e03ba ld hl, $c51a ld bc, $4018 .asm_e03c0 ret ; e03c1 Functione03c1: ; e03c1 xor a ld [hBGMapMode], a ld de, $43ce ld bc, $0605 call Functione04f7 ret ; e03ce INCBIN "baserom.gbc", $e03ce, $e03ec - $e03ce Functione03ec: ; e03ec xor a ld [hBGMapMode], a push hl push hl ld de, $443b ld bc, $0605 call Functione04f7 ld a, [CurEnemyMoveNum] ld e, a ld d, $0 ld hl, $4459 add hl, de add hl, de ld a, [hli] ld e, a ld d, [hl] pop hl ld bc, $0017 add hl, bc ld [hl], e ld bc, $0012 add hl, bc ld a, d ld de, $0014 ld b, $3 .asm_e0418 push hl ld c, $3 .asm_e041b ld [hli], a inc a dec c jr nz, .asm_e041b pop hl add hl, de dec b jr nz, .asm_e0418 pop hl ld a, [hCGB] and a ret z ld de, $0939 add hl, de ld a, [CurEnemyMoveNum] and $3 inc a ld bc, $0605 call Functione04e7 ret ; e043b INCBIN "baserom.gbc", $e043b, $e0489 - $e043b Functione0489: ; e0489 push hl ld hl, $c590 ld b, $4 ld c, $12 call TextBox pop hl call PrintTextBoxText call Functione049c ret ; e049c Functione049c: ; e049c ld hl, $c5d5 ld b, $1 ld c, $9 call TextBox ld hl, $c5ea ld de, $44bc call PlaceString ld hl, $c5ef ld de, Coins ld bc, $8204 call PrintNum ret ; e04bc INCBIN "baserom.gbc", $e04bc, $e04c1 - $e04bc ; known jump sources: e0144 (38:4144) Functione04c1: ; e04c1 (38:44c1) xor a ld [hBGMapMode], a ; $ff00+$d4 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 ld a, $29 call ByteFill ld hl, $c4a9 ld de, $510c ld bc, $c0b call Functione04f7 ld hl, $c590 ld bc, $412 call TextBox ret ; e04e5 (38:44e5) Functione04e5: ; e04e5 ld a, $29 ; known jump sources: e04f4 (38:44f4), e0c4d (38:4c4d), e0c58 (38:4c58), e0c63 (38:4c63), e0c6e (38:4c6e), e0c79 (38:4c79) Functione04e7: ; e04e7 (38:44e7) push bc push hl .asm_e04e9 ld [hli], a dec c jr nz, .asm_e04e9 pop hl ld bc, $14 add hl, bc pop bc dec b jr nz, Functione04e7 ret ; known jump sources: e04d8 (38:44d8), e0506 (38:4506) Functione04f7: ; e04f7 (38:44f7) push bc push hl .asm_e04f9 ld a, [de] inc de ld [hli], a dec c jr nz, .asm_e04f9 pop hl ld bc, $14 add hl, bc pop bc dec b jr nz, Functione04f7 ret ; e0509 (38:4509) Functione0509: ; e0509 ld de, Sprites ld a, [hli] .asm_e050d push af ld a, [hli] add b ld [de], a inc de ld a, [hli] add c ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de pop af dec a jr nz, .asm_e050d ret ; e0521 ; known jump sources: e0141 (38:4141) Functione0521: ; e0521 (38:4521) ld de, $8f60 ld hl, $8f62 ld bc, $9e call CopyBytes ld hl, $8ffe xor a ld [hli], a ld [hl], a ret ; e0534 (38:4534) Functione0534: ; e0534 xor a ld [hBGMapMode], a ld a, [CurEnemyMoveNum] ld e, a ld d, $0 and $3 ld c, a ld b, $0 ld a, e and $1c srl a add $53 ld l, a ld a, $0 adc $45 ld h, a ld a, [hli] ld h, [hl] ld l, a jp [hl] ; e0553 INCBIN "baserom.gbc", $e0553, $e0637 - $e0553 Functione0637: ; e0637 call Functione0398 add hl, hl ld de, $4643 add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; e0643 INCBIN "baserom.gbc", $e0643, $e0849 - $e0643 Functione0849: ; e0849 call Functione03ac ld hl, $4853 call Functione0509 ret ; e0853 INCBIN "baserom.gbc", $e0853, $e089c - $e0853 Functione089c: ; e089c ld hl, $ffa9 ld a, [hl] and $20 jp nz, Functione08b8 ld a, [hl] and $10 jp nz, Functione08ef ld a, [hl] and $40 jp nz, Functione090a ld a, [hl] and $80 jp nz, Functione093d ret ; e08b8 Functione08b8: ; e08b8 ld hl, $cf65 ld a, [$cf64] and a jr z, .asm_e08d5 cp $1 jr z, .asm_e08cc ld a, [hl] and a ret z dec [hl] jp Functione0959 .asm_e08cc ld a, [hl] cp $3 jr c, .asm_e08e2 dec [hl] jp Functione0959 .asm_e08d5 ld a, [hl] and $e ld [hl], a cp $3 jr c, .asm_e08e2 dec [hl] dec [hl] jp Functione0959 .asm_e08e2 ld a, $2 ld [$cf64], a ld a, $1 ld [$cf65], a jp Functione0959 ; e08ef Functione08ef: ; e08ef ld hl, $cf65 ld a, [$cf64] and a jr z, .asm_e08ff ld a, [hl] cp $5 ret nc inc [hl] jr Functione0959 .asm_e08ff ld a, [hl] and $e ld [hl], a cp $4 ret nc inc [hl] inc [hl] jr Functione0959 Functione090a: ; e090a ld hl, $cf64 ld a, [$cf65] and a jr z, .asm_e0925 cp $1 jr z, .asm_e091d ld a, [hl] and a ret z dec [hl] jr Functione0959 .asm_e091d ld a, [hl] cp $3 jr c, .asm_e0931 dec [hl] jr Functione0959 .asm_e0925 ld a, [hl] and $e ld [hl], a cp $3 jr c, .asm_e0931 dec [hl] dec [hl] jr Functione0959 .asm_e0931 ld a, $1 ld [$cf64], a ld a, $2 ld [$cf65], a jr Functione0959 Functione093d: ; e093d ld hl, $cf64 ld a, [$cf65] and a jr z, .asm_e0950 ld hl, $cf64 ld a, [hl] cp $7 ret nc inc [hl] jr Functione0959 .asm_e0950 ld a, [hl] and $e ld [hl], a cp $6 ret nc inc [hl] inc [hl] Functione0959: ; e0959 ld de, $0003 call PlaySFX ret ; e0960 Functione0960: ; e0960 call ClearSprites ld a, [hCGB] and a jr nz, .asm_e096d ld a, [$ff9b] and $4 ret nz .asm_e096d call Functione0398 add hl, hl add hl, hl ld de, $4981 add hl, de ld a, [hli] ld c, a ld a, [hli] ld b, a ld a, [hli] ld h, [hl] ld l, a call Functione0509 ret ; e0981 INCBIN "baserom.gbc", $e0981, $e0c37 - $e0981 ; known jump sources: e0147 (38:4147) Functione0c37: ; e0c37 (38:4c37) ld a, [hCGB] ; $ff00+$e6 and a ret z ld hl, AttrMap ; $cdd9 ld bc, $168 xor a call ByteFill ld hl, $cdf9 ld bc, $202 ld a, $1 call Functione04e7 ld hl, $cdfb ld bc, $202 ld a, $2 call Functione04e7 ld hl, $cdfd ld bc, $202 ld a, $3 call Functione04e7 ld hl, $cdff ld bc, $202 ld a, $4 call Functione04e7 ld hl, $cde2 ld bc, $c01 ld a, $1 call Functione04e7 ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $4c93 ld de, Unkn1Pals ; $d000 ld bc, $48 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 ret ; e0c93 (38:4c93) INCBIN "baserom.gbc",$e0c93,$e1190 - $e0c93 Functione1190: ; e1190 ld a, [$ffaa] push af ld a, $1 ld [$ffaa], a call WhiteBGMap call ClearTileMap call ClearSprites xor a ld [hBGMapMode], a call DisableLCD ld hl, EnemyMoveAnimation ld bc, $01e0 xor a call ByteFill ld hl, $57c5 ld de, $8e00 ld bc, $0040 call CopyBytes ld hl, $5805 ld de, $8ed0 call Decompress call Functione17a3 ld hl, TileMap ld bc, $0168 ld a, $ee call ByteFill ld hl, $c4e0 ld bc, $0c0c ld a, $ef call Functione13ee call Functione124e call Functione13fe call Functione127d xor a ld [hSCY], a ld [hSCX], a ld [rWY], a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [$cf66], a ld a, $93 ld [rLCDC], a call WaitBGMap ld b, $18 call GetSGBLayout ld a, $e4 call DmgToCgbBGPals ld a, $24 call Functioncf8 xor a ld [$d0ec], a call DelayFrame .asm_e1217 call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_e123d call Functione12ca ld a, [$cf64] and a jr nz, .asm_e1230 ld a, [$ff9b] and $10 jr z, .asm_e1235 .asm_e1230 call Functione14d9 jr .asm_e1238 .asm_e1235 call ClearSprites .asm_e1238 call DelayFrame jr .asm_e1217 .asm_e123d pop af ld [$ffaa], a call WhiteBGMap call ClearTileMap call ClearSprites ld a, $e3 ld [rLCDC], a ret ; e124e Functione124e: ; e124e ld c, $1 ld b, $10 .asm_e1252 call Random and $f ld hl, $526d ld e, a ld d, $0 add hl, de ld e, [hl] ld hl, PlayerSDefLevel add hl, de ld a, [hl] and a jr nz, .asm_e1252 ld [hl], c inc c dec b jr nz, .asm_e1252 ret ; e126d INCBIN "baserom.gbc",$e126d,$e127d - $e126d Functione127d: ; e127d call Functione128d ld hl, $c5e5 ld a, $f6 ld c, $a .asm_e1287 ld [hli], a inc a dec c jr nz, .asm_e1287 ret ; e128d Functione128d: ; e128d ld hl, $c5d0 ld a, $f0 ld [hli], a ld bc, $000a ld a, $f1 call ByteFill ld hl, $c5db ld a, $f2 ld [hli], a ld hl, $c5e4 ld a, $f3 ld [hli], a ld bc, $000a ld a, $ef call ByteFill ld hl, $c5ef ld a, $f3 ld [hli], a ld hl, $c5f8 ld a, $f4 ld [hli], a ld bc, $000a ld a, $f1 call ByteFill ld hl, $c603 ld a, $f5 ld [hl], a ret ; e12ca Functione12ca: ; e12ca ld a, [$cf63] ld e, a ld d, $0 ld hl, $52d9 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; e12d9 INCBIN "baserom.gbc",$e12d9,$e13ee - $e12d9 Functione13ee: ; e13ee ld de, $0014 .asm_e13f1 push bc push hl .asm_e13f3 ld [hli], a dec c jr nz, .asm_e13f3 pop hl add hl, de pop bc dec b jr nz, .asm_e13f1 ret ; e13fe Functione13fe: ; e13fe xor a ld [$cf65], a ld c, $24 .asm_e1404 push bc call Functione1475 ld [$cf66], a and a jr z, .asm_e1413 call Functione141f jr .asm_e1416 .asm_e1413 call Functione1441 .asm_e1416 ld hl, $cf65 inc [hl] pop bc dec c jr nz, .asm_e1404 ret ; e141f Functione141f: ; e141f ld a, $2 call Functione1463 ld a, [hli] ld h, [hl] ld l, a push hl call Functione1481 pop hl ld de, $0014 ld b, $3 .asm_e1431 ld c, $3 push hl .asm_e1434 ld [hli], a inc a dec c jr nz, .asm_e1434 add $9 pop hl add hl, de dec b jr nz, .asm_e1431 ret ; e1441 Functione1441: ; e1441 ld a, $2 call Functione1463 ld a, [hli] ld h, [hl] ld l, a push hl ld a, $4 call Functione1463 ld a, [hl] pop hl ld de, $0014 ld b, $3 .asm_e1456 ld c, $3 push hl .asm_e1459 ld [hli], a dec c jr nz, .asm_e1459 pop hl add hl, de dec b jr nz, .asm_e1456 ret ; e1463 Functione1463: ; e1463 ld e, a ld d, $0 ld hl, $5559 add hl, de ld a, [$cf65] ld e, a add hl, de add hl, de add hl, de add hl, de add hl, de add hl, de ret ; e1475 Functione1475: ; e1475 ld hl, PlayerSDefLevel ld a, [$cf65] ld e, a ld d, $0 add hl, de ld a, [hl] ret ; e1481 Functione1481: ; e1481 ld a, [$cf66] ld hl, $548f add l ld l, a ld a, $0 adc h ld h, a ld a, [hl] ret ; e148f INCBIN "baserom.gbc",$e148f,$e14d9 - $e148f Functione14d9: ; e14d9 call Functione1481 ld [DefaultFlypoint], a xor a call Functione1463 ld a, [hli] ld b, [hl] ld c, a ld a, [DefaultFlypoint] cp $e0 jr z, .asm_e14f2 ld hl, $550f jr .asm_e14f5 .asm_e14f2 ld hl, $5534 .asm_e14f5 ld de, Sprites .asm_e14f8 ld a, [hli] cp $ff ret z add b ld [de], a inc de ld a, [hli] add c ld [de], a inc de ld a, [DefaultFlypoint] add [hl] ld [de], a inc hl inc de ld a, [hli] ld [de], a inc de jr .asm_e14f8 ; e150f INCBIN "baserom.gbc",$e150f,$e1631 - $e150f Functione1631: ; e1631 ld hl, VTiles2 ld de, VTiles0 ld b, $6 .asm_e1639 push bc push hl push hl call Functione1654 pop hl ld bc, $0008 add hl, bc call Functione1654 pop hl ld bc, $0060 add hl, bc pop bc dec b jr nz, .asm_e1639 call Functione16c7 ret ; e1654 Functione1654: ; e1654 ld c, $6 .asm_e1656 push bc push hl push hl ld c, $4 .asm_e165b push bc ld a, [hli] and $f0 swap a call Functione16aa ld c, a ld a, [hli] and $f0 swap a call Functione16aa ld b, a ld a, c ld [de], a inc de ld a, b ld [de], a inc de ld a, c ld [de], a inc de ld a, b ld [de], a inc de pop bc dec c jr nz, .asm_e165b pop hl ld c, $4 .asm_e1681 push bc ld a, [hli] and $f call Functione16aa ld c, a ld a, [hli] and $f call Functione16aa ld b, a ld a, c ld [de], a inc de ld a, b ld [de], a inc de ld a, c ld [de], a inc de ld a, b ld [de], a inc de pop bc dec c jr nz, .asm_e1681 pop hl ld bc, $0010 add hl, bc pop bc dec c jr nz, .asm_e1656 ret ; e16aa Functione16aa: ; e16aa push hl ld hl, $56b7 add l ld l, a ld a, $0 adc h ld h, a ld a, [hl] pop hl ret ; e16b7 INCBIN "baserom.gbc",$e16b7,$e16c7 - $e16b7 Functione16c7: ; e16c7 ld hl, $5703 ld a, $8 .asm_e16cc push af push hl ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] ld h, [hl] ld l, a call Functione16e2 pop hl inc hl inc hl inc hl inc hl pop af dec a jr nz, .asm_e16cc ret ; e16e2 Functione16e2: ; e16e2 ld bc, $0404 .asm_e16e5 push bc .asm_e16e6 push de push hl ld b, $10 .asm_e16ea ld a, [de] or [hl] ld [hli], a inc de dec b jr nz, .asm_e16ea pop hl ld de, $0030 add hl, de pop de dec c jr nz, .asm_e16e6 ld bc, $0180 add hl, bc pop bc dec b jr nz, .asm_e16e5 ret ; e1703 INCBIN "baserom.gbc",$e1703,$e17a3 - $e1703 Functione17a3: ; e17a3 ld a, [ScriptVar] and $3 ld e, a ld d, $0 ld hl, $57bd add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ld de, VTiles2 call Decompress call Functione1631 ret ; e17bd INCBIN "baserom.gbc",$e17bd,$e1e5b - $e17bd ; no known jump sources Functione1e5b: ; e1e5b (38:5e5b) call Functione1e67 call DelayFrame .asm_e1e61 call Functione1ebb jr nc, .asm_e1e61 ret ; known jump sources: e1e5b (38:5e5b) Functione1e67: ; e1e67 (38:5e67) call DisableLCD ld b, $8 call GetSGBLayout ld hl, Function8cf53 ld a, BANK(Function8cf53) rst $8 ; ; indirect jump to Function8cf53 (8cf53 (23:4f53)) ld hl, $6221 ld de, $9000 call Decompress ld hl, $40ed ld de, $8000 ld bc, $40 ld a, $38 call FarCopyBytes ld a, $8 ld hl, $c300 ld [hli], a ld [hl], $0 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 xor a call ByteFill xor a ld [hSCY], a ; $ff00+$d0 ld [hSCX], a ; $ff00+$cf ld [rWY], a ; $ff00+$4a ld [$cf63], a ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ld a, $e3 ld [rLCDC], a ; $ff00+$40 ld a, $e4 call DmgToCgbBGPals ld a, $e0 call Functioncf8 ret ; known jump sources: e1e61 (38:5e61) Functione1ebb: ; e1ebb (38:5ebb) ld a, [$cf63] bit 7, a jr nz, .asm_e1ed0 call Functione1ed2 ld hl, Function8cf69 ld a, BANK(Function8cf69) rst $8 ; ; indirect jump to Function8cf69 (8cf69 (23:4f69)) call DelayFrame and a ret .asm_e1ed0 scf ret ; known jump sources: e1ec2 (38:5ec2) Functione1ed2: ; e1ed2 (38:5ed2) ld a, [$cf63] ld e, a ld d, $0 ld hl, $5ee1 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; e1ee1 (38:5ee1) INCBIN "baserom.gbc",$e1ee1,$e21a1 - $e1ee1 ; no known jump sources Functione21a1: ; e21a1 (38:61a1) ld a, [$cf63] cp $7 jr nc, .asm_e21c8 call Functiona57 ld hl, hJoypadPressed ; $ffa3 ld a, [hl] and $1 jr nz, .asm_e21cf ld a, [hl] and $20 jr nz, .asm_e21d9 ld a, [hl] and $10 jr nz, .asm_e21e9 ld a, [hl] and $40 jr nz, .asm_e21fa ld a, [hl] and $80 jr nz, .asm_e220d ret .asm_e21c8 ld hl, $0 add hl, bc ld [hl], $0 ret .asm_e21cf ld hl, $c add hl, bc ld a, [hl] inc a ld [$cf64], a ret .asm_e21d9 ld hl, $6 add hl, bc ld a, [hl] and a ret z sub $10 ld [hl], a ld hl, $c add hl, bc dec [hl] ret .asm_e21e9 ld hl, $6 add hl, bc ld a, [hl] cp $80 ret z add $10 ld [hl], a ld hl, $c add hl, bc inc [hl] ret .asm_e21fa ld hl, $7 add hl, bc ld a, [hl] and a ret z sub $10 ld [hl], a ld hl, $c add hl, bc ld a, [hl] sub $9 ld [hl], a ret .asm_e220d ld hl, $7 add hl, bc ld a, [hl] cp $40 ret z add $10 ld [hl], a ld hl, $c add hl, bc ld a, [hl] add $9 ld [hl], a ret ; e2221 (38:6221) INCBIN "baserom.gbc",$e2221,$e2391 - $e2221 ; no known jump sources Functione2391: ; e2391 (38:6391) ld hl, Options ; $cfcc ld a, [hl] push af set 4, [hl] ld a, [VramState] ; $d0ed push af xor a ld [VramState], a ; $d0ed ld a, [$FF00+$aa] push af ld a, $1 ld [$FF00+$aa], a xor a ld [$FF00+$de], a call Functione2963 xor a ld [$cb2e], a call DelayFrame .asm_e23b4 call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_e23c6 call Functione23d5 call DelayFrame jr .asm_e23b4 .asm_e23c6 call ClearSprites pop af ld [$FF00+$aa], a pop af ld [VramState], a ; $d0ed pop af ld [Options], a ; $cfcc ret ; known jump sources: e23be (38:63be) Functione23d5: ; e23d5 (38:63d5) ld a, [$cf63] ld hl, $63df call Functione33df jp [hl] ; no known jump sources Jumptable_e23df: ; e23df (38:63df) dw Functione23e9 dw Functione241a dw Functione245d dw Functione247d dw Functione2992 ; no known jump sources Functione23e9: ; e23e9 (38:63e9) xor a ld [hBGMapMode], a ; $ff00+$d4 call ClearSprites call Functione2d30 call Functione2a8e ld de, $74dd call Functione2a6e ld a, $5 ld [$cb2d], a call Functione2c2c call Functione2ac6 ld a, $ff ld [CurPartySpecies], a ; $d108 ld a, $17 call Functione33d0 call WaitBGMap call Functione2e01 call Functione298d ret ; no known jump sources Functione241a: ; e241a (38:641a) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $2 jr nz, .asm_e2457 ld a, [hl] and $1 jr nz, .asm_e2443 call Functione29b5 and a ret z call Functione2e01 xor a ld [hBGMapMode], a ; $ff00+$d4 call Functione2c2c call Functione2ac6 ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 call DelayFrame call DelayFrame ret .asm_e2443 call Functione2def and a ret z cp $ff jr z, .asm_e2457 ld a, $2 ld [$cf63], a ret ; e2452 (38:6452) INCBIN "baserom.gbc",$e2452,$e2457 - $e2452 .asm_e2457 ld a, $4 ld [$cf63], a ret ; no known jump sources Functione245d: ; e245d (38:645d) xor a ld [hBGMapMode], a ; $ff00+$d4 call ClearSprites call Functione2def ld [CurPartySpecies], a ; $d108 ld a, $17 call Functione33d0 ld de, $74ea call Functione2a6e ld a, $1 ld [$cfa9], a call Functione298d ret ; no known jump sources Functione247d: ; e247d (38:647d) ld hl, $653d call Function1d3c ld a, [$cfa9] call Function1d4b call Function1d81 jp c, Functione2537 ld a, [$cfa9] dec a and $3 ld e, a ld d, $0 ld hl, $64a1 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_e24a1: ; e24a1 (38:64a1) dw Functione24a9 dw Functione24c8 dw Functione24e0 dw Functione2537 ; no known jump sources Functione24a9: ; e24a9 (38:64a9) call Functione2f18 jp c, Functione2537 call Functione307c jr c, .asm_e24c1 ld a, $0 ld [$cf63], a xor a ld [$cb2b], a ld [$cb2a], a ret .asm_e24c1 ld de, $74ea call Functione2a6e ret ; no known jump sources Functione24c8: ; e24c8 (38:64c8) call Function1d6e call Functione2f7e call Function1c07 call Functione2ac6 call Functione2def ld [CurPartySpecies], a ; $d108 ld a, $17 call Functione33d0 ret ; no known jump sources Functione24e0: ; e24e0 (38:64e0) call Functione2f18 jr c, Functione2537 call Functione2f5f jr c, Functione2537 ld a, [$cfa9] push af ld de, $74f4 call Functione2a6e call Function1d6e lb bc, 14, 11 call PlaceYesNoBox ld a, [$cfa9] dec a call Function1c07 and a jr nz, .asm_e252c ld a, [$cb2b] ld hl, $cb2a add [hl] ld [CurPartyMon], a ; $d109 xor a ld [$d10b], a callba Functione039 call Functione3180 ld a, $0 ld [$cf63], a xor a ld [$cb2b], a ld [$cb2a], a pop af ret .asm_e252c ld de, $74ea call Functione2a6e pop af ld [$cfa9], a ret ; known jump sources: e248c (38:648c), e24ac (38:64ac), e24e3 (38:64e3), e24e8 (38:64e8) Functione2537: ; e2537 (38:6537) ld a, $0 ld [$cf63], a ret ; e253d (38:653d) INCBIN "baserom.gbc",$e253d,$e2583 - $e253d ; no known jump sources Functione2583: ; e2583 (38:6583) ld hl, Options ; $cfcc ld a, [hl] push af set 4, [hl] ld a, [VramState] ; $d0ed push af xor a ld [VramState], a ; $d0ed ld a, [$FF00+$aa] push af ld a, $1 ld [$FF00+$aa], a xor a ld [$FF00+$de], a call Functione2963 ld a, $f ld [$cb2e], a call DelayFrame .asm_e25a7 call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_e25b9 call Functione25c8 call DelayFrame jr .asm_e25a7 .asm_e25b9 call ClearSprites pop af ld [$FF00+$aa], a pop af ld [VramState], a ; $d0ed pop af ld [Options], a ; $cfcc ret ; known jump sources: e25b1 (38:65b1) Functione25c8: ; e25c8 (38:65c8) ld a, [$cf63] ld hl, $65d2 call Functione33df jp [hl] ; no known jump sources Jumptable_e25d2: ; e25d2 (38:65d2) dw Functione25dc dw Functione2612 dw Functione2655 dw Functione2675 dw Functione2992 ; no known jump sources Functione25dc: ; e25dc (38:65dc) ld a, $f ld [$cb2e], a xor a ld [hBGMapMode], a ; $ff00+$d4 call ClearSprites call Functione2d30 call Functione2a8e ld de, $74dd call Functione2a6e ld a, $5 ld [$cb2d], a call Functione2c2c call Functione2ac6 ld a, $ff ld [CurPartySpecies], a ; $d108 ld a, $17 call Functione33d0 call WaitBGMap call Functione2e01 call Functione298d ret ; no known jump sources Functione2612: ; e2612 (38:6612) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $2 jr nz, .asm_e264f ld a, [hl] and $1 jr nz, .asm_e263b call Functione29b5 and a ret z call Functione2e01 xor a ld [hBGMapMode], a ; $ff00+$d4 call Functione2c2c call Functione2ac6 ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 call DelayFrame call DelayFrame ret .asm_e263b call Functione2def and a ret z cp $ff jr z, .asm_e264f ld a, $2 ld [$cf63], a ret ; e264a (38:664a) INCBIN "baserom.gbc",$e264a,$e264f - $e264a .asm_e264f ld a, $4 ld [$cf63], a ret ; no known jump sources Functione2655: ; e2655 (38:6655) xor a ld [hBGMapMode], a ; $ff00+$d4 call ClearSprites call Functione2def ld [CurPartySpecies], a ; $d108 ld a, $17 call Functione33d0 ld de, $74ea call Functione2a6e ld a, $1 ld [$cfa9], a call Functione298d ret ; no known jump sources Functione2675: ; e2675 (38:6675) ld hl, $6731 call Function1d3c ld a, [$cfa9] call Function1d4b call Function1d81 jp c, Functione272b ld a, [$cfa9] dec a and $3 ld e, a ld d, $0 ld hl, $6699 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_e2699: ; e2699 (38:6699) dw Functione26a1 dw Functione26c0 dw Functione26d8 dw Functione272b ; no known jump sources Functione26a1: ; e26a1 (38:66a1) call Functione2f18 jp c, Functione272b call Functione30fa jr c, .asm_e26b9 ld a, $0 ld [$cf63], a xor a ld [$cb2b], a ld [$cb2a], a ret .asm_e26b9 ld de, $74ea call Functione2a6e ret ; no known jump sources Functione26c0: ; e26c0 (38:66c0) call Function1d6e call Functione2f7e call Function1c07 call Functione2ac6 call Functione2def ld [CurPartySpecies], a ; $d108 ld a, $17 call Functione33d0 ret ; no known jump sources Functione26d8: ; e26d8 (38:66d8) ld a, [$cfa9] push af call Functione2f5f jr c, .asm_e2720 ld de, $74f4 call Functione2a6e call Function1d6e lb bc, 14, 11 call PlaceYesNoBox ld a, [$cfa9] dec a call Function1c07 and a jr nz, .asm_e2720 ld a, [$cb2b] ld hl, $cb2a add [hl] ld [CurPartyMon], a ; $d109 ld a, $1 ld [$d10b], a callba Functione039 call Functione3180 ld a, $0 ld [$cf63], a xor a ld [$cb2b], a ld [$cb2a], a pop af ret .asm_e2720 ld de, $74ea call Functione2a6e pop af ld [$cfa9], a ret ; known jump sources: e2684 (38:6684), e26a4 (38:66a4) Functione272b: ; e272b (38:672b) ld a, $0 ld [$cf63], a ret ; e2731 (38:6731) INCBIN "baserom.gbc",$e2731,$e2963 - $e2731 ; known jump sources: e23aa (38:63aa), e259c (38:659c) Functione2963: ; e2963 (38:6963) call WhiteBGMap call ClearSprites call ClearTileMap call Functione33e8 ld hl, OverworldMap ; $c800 ld bc, $338 xor a call ByteFill xor a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [$cf66], a ld [$cb2b], a ld [$cb2a], a ret ; known jump sources: e2416 (38:6416), e2479 (38:6479), e260e (38:660e), e2671 (38:6671) Functione298d: ; e298d (38:698d) ld hl, $cf63 inc [hl] ret ; no known jump sources Functione2992: ; e2992 (38:6992) ld hl, $cf63 set 7, [hl] ret ; known jump sources: e2faa (38:6faa) Functione2998: ; e2998 (38:6998) ld a, [$cb2d] ld d, a ld a, [$cb2c] and a jr z, .asm_e29b2 dec a cp $1 jr z, .asm_e29b2 ld e, a ld a, [hl] and $40 jr nz, asm_e2a18 ld a, [hl] and $80 jr nz, asm_e2a2c .asm_e29b2 jp Functione2a65 ; known jump sources: e2427 (38:6427), e261f (38:661f) Functione29b5: ; e29b5 (38:69b5) ld hl, $ffa9 ld a, [$cb2d] ld d, a ld a, [$cb2c] ld e, a and a jr z, .asm_e29cd ld a, [hl] and $40 jr nz, asm_e2a18 ld a, [hl] and $80 jr nz, asm_e2a2c .asm_e29cd jp Functione2a65 ; e29d0 (38:69d0) INCBIN "baserom.gbc",$e29d0,$e2a18 - $e29d0 asm_e2a18: ; e2a18 (38:6a18) ld hl, $cb2b ld a, [hl] and a jr z, .asm_e2a22 dec [hl] jr asm_e2a68 .asm_e2a22 ld hl, $cb2a ld a, [hl] and a jr z, Functione2a65 dec [hl] jr asm_e2a68 asm_e2a2c: ; e2a2c (38:6a2c) ld a, [$cb2b] ld hl, $cb2a add [hl] inc a cp e jr nc, Functione2a65 ld hl, $cb2b ld a, [hl] inc a cp d jr nc, .asm_e2a42 inc [hl] jr asm_e2a68 .asm_e2a42 ld hl, $cb2a inc [hl] jr asm_e2a68 ; e2a48 (38:6a48) INCBIN "baserom.gbc",$e2a48,$e2a65 - $e2a48 ; known jump sources: e29b2 (38:69b2), e29cd (38:69cd), e2a27 (38:6a27), e2a35 (38:6a35) Functione2a65: ; e2a65 (38:6a65) xor a and a ret ; known jump sources: e2a20 (38:6a20), e2a2a (38:6a2a), e2a40 (38:6a40), e2a46 (38:6a46) asm_e2a68: ; e2a68 (38:6a68) ld a, $1 and a ret ; e2a6c (38:6a6c) INCBIN "baserom.gbc",$e2a6c,$e2a6e - $e2a6c ; known jump sources: e23f8 (38:63f8), e2471 (38:6471), e24c4 (38:64c4), e24f1 (38:64f1), e252f (38:652f), e25f0 (38:65f0), e2669 (38:6669), e26bc (38:66bc), e26e4 (38:66e4), e2723 (38:6723), e2f4c (38:6f4c), e2f6b (38:6f6b), e30e7 (38:70e7), e316d (38:716d) Functione2a6e: ; e2a6e (38:6a6e) push de ld hl, $c5cc ld bc, $112 call TextBox pop de ld hl, $c5e1 call PlaceString ret ; e2a80 (38:6a80) INCBIN "baserom.gbc",$e2a80,$e2a8e - $e2a80 ; known jump sources: e23f2 (38:63f2), e25ea (38:65ea) Functione2a8e: ; e2a8e (38:6a8e) ld hl, $c4a8 ld bc, $10a call TextBox ld a, [$cb2e] and a jr z, .asm_e2ab3 cp $f jr nz, .asm_e2aa5 ld a, [$db72] inc a .asm_e2aa5 dec a ld hl, Box1Name ; $db75 ld bc, $9 call AddNTimes ld e, l ld d, h jr .asm_e2ab6 .asm_e2ab3 ld de, $6abd .asm_e2ab6 ld hl, $c4be call PlaceString ret ; e2abd (38:6abd) INCBIN "baserom.gbc",$e2abd,$e2ac6 - $e2abd ; known jump sources: e2403 (38:6403), e2435 (38:6435), e24d1 (38:64d1), e25fb (38:65fb), e262d (38:662d), e26c9 (38:66c9) Functione2ac6: ; e2ac6 (38:6ac6) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $f08 call ClearBox ld hl, $c5c0 ld bc, $103 call ClearBox call Functione2def and a ret z cp $ff ret z ld [$d265], a ld hl, $c4f1 xor a ld b, $7 .asm_e2ae9 ld c, $7 push af push hl .asm_e2aed ld [hli], a add $7 dec c jr nz, .asm_e2aed pop hl ld de, $14 add hl, de pop af inc a dec b jr nz, .asm_e2ae9 call Functione2b6d ld a, [$d265] ld [CurPartySpecies], a ; $d108 ld [CurSpecies], a ; $cf60 ld hl, TempMonDVs ; $d123 ld a, $2d call Predef call GetBaseData ld de, $9000 ld a, $3c call Predef xor a ld [$cb32], a ld a, [CurPartySpecies] ; $d108 ld [$d265], a cp $fd ret z call GetBasePokemonName ld hl, $c5b9 call PlaceString ld hl, $c591 call PrintLevel ld a, $3 ld [MonType], a ; $cf5f callba GetGender jr c, .asm_e2b4f ld a, $ef jr nz, .asm_e2b4b ld a, $f5 .asm_e2b4b ld hl, $c595 ld [hl], a .asm_e2b4f ld a, [TempMonItem] ; $d10f and a ret z ld d, a callab ItemIsMail jr c, .asm_e2b61 ld a, $5d jr .asm_e2b68 .asm_e2b61 ld a, $1 ld [$cb32], a ld a, $5c .asm_e2b68 ld hl, $c597 ld [hl], a ret ; known jump sources: e2afd (38:6afd), e2fb6 (38:6fb6) Functione2b6d: ; e2b6d (38:6b6d) ld a, [$cb2b] ld hl, $cb2a add [hl] ld e, a ld d, $0 ld hl, $c801 add hl, de add hl, de add hl, de ld a, [hl] and a jr z, .asm_e2bc6 cp $f jr z, .asm_e2bf5 ld b, a call Functione3396 ld a, b call GetSRAMBank push hl ld bc, $35 add hl, bc ld bc, $20 ld a, e call AddNTimes ld a, [hl] ld [TempMonLevel], a ; $d12d pop hl push hl ld bc, $17 add hl, bc ld bc, $20 ld a, e call AddNTimes ld a, [hl] ld [TempMonItem], a ; $d10f pop hl ld bc, $2b add hl, bc ld bc, $20 ld a, e call AddNTimes ld de, TempMonDVs ; $d123 ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a call CloseSRAM ret .asm_e2bc6 ld hl, PartyMon1Level ; $dcfe ld bc, $30 ld a, e call AddNTimes ld a, [hl] ld [TempMonLevel], a ; $d12d ld hl, PartyMon1Item ; $dce0 ld bc, $30 ld a, e call AddNTimes ld a, [hl] ld [TempMonItem], a ; $d10f ld hl, PartyMon1DVs ; $dcf4 ld bc, $30 ld a, e call AddNTimes ld de, TempMonDVs ; $d123 ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a ret .asm_e2bf5 ld a, $1 call GetSRAMBank ld hl, $ad45 ld bc, $20 ld a, e call AddNTimes ld a, [hl] ld [TempMonLevel], a ; $d12d ld hl, $ad27 ld bc, $20 ld a, e call AddNTimes ld a, [hl] ld [TempMonItem], a ; $d10f ld hl, $ad3b ld bc, $20 ld a, e call AddNTimes ld de, TempMonDVs ; $d123 ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a call CloseSRAM ret ; known jump sources: e2400 (38:6400), e2432 (38:6432), e25f8 (38:65f8), e262a (38:662a) Functione2c2c: ; e2c2c (38:6c2c) ld hl, $c4d0 ld bc, $a0a call TextBox ld hl, $c4d0 ld [hl], $7d ld hl, $c4db ld [hl], $7e ld a, [$cb2a] ld e, a ld d, $0 ld hl, OverworldMap ; $c800 add hl, de add hl, de add hl, de ld e, l ld d, h ld hl, $c4f9 ld a, [$cb2d] .asm_e2c53 push af push de push hl call Functione2c6e pop hl ld de, $28 add hl, de pop de inc de inc de inc de pop af dec a jr nz, .asm_e2c53 ret ; e2c67 (38:6c67) INCBIN "baserom.gbc",$e2c67,$e2c6e - $e2c67 ; known jump sources: e2c56 (38:6c56) Functione2c6e: ; e2c6e (38:6c6e) ld a, [de] and a ret z cp $ff jr nz, .asm_e2c7c ld de, $6c67 call PlaceString ret .asm_e2c7c inc de ld a, [de] ld b, a inc de ld a, [de] ld e, a ld a, b and a jr z, .asm_e2cc8 cp $f jr z, .asm_e2cf1 push hl call Functione3396 ld a, b call GetSRAMBank push hl ld bc, $16 add hl, bc ld bc, $20 ld a, e call AddNTimes ld a, [hl] pop hl and a jr z, .asm_e2cc2 ld bc, $372 add hl, bc ld bc, $b ld a, e call AddNTimes ld de, StringBuffer1 ; $d073 ld bc, $b call CopyBytes call CloseSRAM pop hl ld de, StringBuffer1 ; $d073 call PlaceString ret .asm_e2cc2 call CloseSRAM pop hl jr .asm_e2d23 .asm_e2cc8 push hl ld hl, PartySpecies ; $dcd8 ld d, $0 add hl, de ld a, [hl] and a jr z, .asm_e2cee ld hl, PartyMonNicknames ; $de41 (aliases: PartyMon1Nickname) ld bc, $b ld a, e call AddNTimes ld de, StringBuffer1 ; $d073 ld bc, $b call CopyBytes pop hl ld de, StringBuffer1 ; $d073 call PlaceString ret .asm_e2cee pop hl jr .asm_e2d23 .asm_e2cf1 push hl ld a, $1 call GetSRAMBank ld hl, $ad11 ld d, $0 add hl, de ld a, [hl] and a jr z, .asm_e2d1f ld hl, $b082 ld bc, $b ld a, e call AddNTimes ld de, StringBuffer1 ; $d073 ld bc, $b call CopyBytes call CloseSRAM pop hl ld de, StringBuffer1 ; $d073 call PlaceString ret .asm_e2d1f call CloseSRAM pop hl .asm_e2d23 ld de, $6d2a call PlaceString ret ; e2d2a (38:6d2a) INCBIN "baserom.gbc",$e2d2a,$e2d30 - $e2d2a ; known jump sources: e23ef (38:63ef), e25e7 (38:65e7) Functione2d30: ; e2d30 (38:6d30) xor a ld hl, OverworldMap ; $c800 ld bc, $5a call ByteFill ld de, OverworldMap ; $c800 xor a ld [$d003], a ld [$d004], a ld a, [$cb2e] and a jr z, .asm_e2d87 cp $f jr z, .asm_e2db7 ld b, a call Functione3396 ld a, b call GetSRAMBank inc hl .asm_e2d57 ld a, [hl] cp $ff jr z, .asm_e2d79 and a jr z, .asm_e2d79 ld [de], a inc de ld a, [$cb2e] ld [de], a inc de ld a, [$d003] ld [de], a inc a ld [$d003], a inc de inc hl ld a, [$d004] inc a ld [$d004], a jr .asm_e2d57 .asm_e2d79 call CloseSRAM ld a, $ff ld [de], a ld a, [$d004] inc a ld [$cb2c], a ret .asm_e2d87 ld hl, PartySpecies ; $dcd8 .asm_e2d8a ld a, [hl] cp $ff jr z, .asm_e2dac and a jr z, .asm_e2dac ld [de], a inc de ld a, [$cb2e] ld [de], a inc de ld a, [$d003] ld [de], a inc a ld [$d003], a inc de inc hl ld a, [$d004] inc a ld [$d004], a jr .asm_e2d8a .asm_e2dac ld a, $ff ld [de], a ld a, [$d004] inc a ld [$cb2c], a ret .asm_e2db7 ld a, $1 call GetSRAMBank ld hl, $ad11 .asm_e2dbf ld a, [hl] cp $ff jr z, .asm_e2de1 and a jr z, .asm_e2de1 ld [de], a inc de ld a, [$cb2e] ld [de], a inc de ld a, [$d003] ld [de], a inc a ld [$d003], a inc de inc hl ld a, [$d004] inc a ld [$d004], a jr .asm_e2dbf .asm_e2de1 call CloseSRAM ld a, $ff ld [de], a ld a, [$d004] inc a ld [$cb2c], a ret ; known jump sources: e2443 (38:6443), e2463 (38:6463), e24d4 (38:64d4), e263b (38:663b), e265b (38:665b), e26cc (38:66cc), e2ad8 (38:6ad8), e2fb0 (38:6fb0) Functione2def: ; e2def (38:6def) ld a, [$cb2b] ld hl, $cb2a add [hl] ld e, a ld d, $0 ld hl, OverworldMap ; $c800 add hl, de add hl, de add hl, de ld a, [hl] ret ; known jump sources: e2413 (38:6413), e242c (38:642c), e260b (38:660b), e2624 (38:6624) Functione2e01: ; e2e01 (38:6e01) ld a, [$cb2c] and a jr nz, .asm_e2e0b call ClearSprites ret .asm_e2e0b ld hl, $6e2b ld de, Sprites ; $c400 .asm_e2e11 ld a, [hl] cp $ff ret z ld a, [$cb2b] and $7 swap a add [hl] inc hl ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de jr .asm_e2e11 ; e2e2b (38:6e2b) INCBIN "baserom.gbc",$e2e2b,$e2f18 - $e2e2b ; known jump sources: e24a9 (38:64a9), e24e0 (38:64e0), e26a1 (38:66a1) Functione2f18: ; e2f18 (38:6f18) ld a, [$cb2e] and a jr nz, .asm_e2f3d ld a, [$cb2c] cp $3 jr c, .asm_e2f49 ld a, [$cb2b] ld hl, $cb2a add [hl] ld [CurPartyMon], a ; $d109 callba Functione538 jr c, .asm_e2f44 ld a, [$cb32] and a jr nz, .asm_e2f3f .asm_e2f3d and a ret .asm_e2f3f ld de, $7544 jr .asm_e2f4c .asm_e2f44 ld de, $7531 jr .asm_e2f4c .asm_e2f49 ld de, $750f .asm_e2f4c call Functione2a6e ld de, $19 call WaitPlaySFX call WaitSFX ld c, $32 call DelayFrames scf ret ; known jump sources: e24e5 (38:64e5), e26dc (38:66dc) Functione2f5f: ; e2f5f (38:6f5f) ld a, [CurPartySpecies] ; $d108 cp $fd jr z, .asm_e2f68 and a ret .asm_e2f68 ld de, $7597 call Functione2a6e ld de, $19 call WaitPlaySFX call WaitSFX ld c, $32 call DelayFrames scf ret ; known jump sources: e24cb (38:64cb), e26c3 (38:66c3) Functione2f7e: ; e2f7e (38:6f7e) call LowVolume call Functione2fd6 ld a, $3 ld [MonType], a ; $cf5f ld a, $25 call Predef call Functione33e8 call MaxVolume ret ; no known jump sources Functione2f95: ; e2f95 (38:6f95) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $33 ld [$cf73], a jr nz, .asm_e2fd0 ld a, [hl] and $c0 ld [$cf73], a jr nz, .asm_e2faa jr .asm_e2fd0 .asm_e2faa call Functione2998 and a jr z, .asm_e2fd1 call Functione2def ld [$d265], a call Functione2b6d ld a, [$d265] ld [CurPartySpecies], a ; $d108 ld [CurSpecies], a ; $cf60 ld hl, TempMonDVs ; $d123 ld a, $2d call Predef call GetBaseData call Functione2fd6 .asm_e2fd0 ret .asm_e2fd1 xor a ld [$cf73], a ret ; known jump sources: e2f81 (38:6f81), e2fcd (38:6fcd) Functione2fd6: ; e2fd6 (38:6fd6) ld a, [$cb2b] ld hl, $cb2a add [hl] ld [CurPartyMon], a ; $d109 ld a, [$cb2e] and a jr z, .asm_e3020 cp $f jr nz, .asm_e3048 ld a, $1 call GetSRAMBank ld hl, $ad11 call Functione3357 ld hl, $b082 call Functione3363 ld hl, $afa6 call Functione3376 ld hl, $ad26 ld bc, $20 ld a, [CurPartyMon] ; $d109 call AddNTimes ld de, $d018 ld bc, $30 call CopyBytes call CloseSRAM callba Function5088b ret .asm_e3020 ld hl, PartySpecies ; $dcd8 call Functione3357 ld hl, PartyMonNicknames ; $de41 (aliases: PartyMon1Nickname) call Functione3363 ld hl, PartyMonOT ; $ddff (aliases: PartyMon1OT) call Functione3376 ld hl, PartyMons ; $dcdf (aliases: PartyMon1, PartyMon1Species) ld bc, $30 ld a, [CurPartyMon] ; $d109 call AddNTimes ld de, $d018 ld bc, $30 call CopyBytes ret .asm_e3048 ld b, a call Functione3396 ld a, b call GetSRAMBank push hl inc hl call Functione3357 pop hl push hl ld bc, $372 add hl, bc call Functione3363 pop hl push hl ld bc, $296 add hl, bc call Functione3376 pop hl ld bc, $16 add hl, bc ld bc, $20 call Functione3389 call CloseSRAM callba Function5088b ret ; known jump sources: e24af (38:64af) Functione307c: ; e307c (38:707c) ld a, [$cb2b] ld hl, $cb2a add [hl] ld [CurPartyMon], a ; $d109 ld hl, PartyMonNicknames ; $de41 (aliases: PartyMon1Nickname) ld a, [CurPartyMon] ; $d109 call GetNick ld a, $1 ld [$d10b], a ld a, $8 call Predef jr c, .asm_e30e4 xor a ld [$d10b], a callba Functione039 ld a, [CurPartySpecies] ; $d108 call Function37ce ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $f08 call ClearBox ld hl, $c5c0 ld bc, $103 call ClearBox ld hl, $c5cc ld bc, $112 call TextBox call WaitBGMap ld hl, $c5e1 ld de, $7563 call PlaceString ld l, c ld h, b ld de, StringBuffer1 ; $d073 call PlaceString ld a, $e7 ld [bc], a ld c, $32 call DelayFrames and a ret .asm_e30e4 ld de, $7575 call Functione2a6e ld de, $19 call WaitPlaySFX call WaitSFX ld c, $32 call DelayFrames scf ret ; known jump sources: e26a7 (38:66a7) Functione30fa: ; e30fa (38:70fa) ld a, [$cb2b] ld hl, $cb2a add [hl] ld [CurPartyMon], a ; $d109 ld a, $1 call GetSRAMBank ld a, [CurPartyMon] ; $d109 ld hl, $b082 call GetNick call CloseSRAM xor a ld [$d10b], a ld a, $8 call Predef jr c, .asm_e316a ld a, $1 ld [$d10b], a callba Functione039 ld a, [CurPartySpecies] ; $d108 call Function37ce ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $f08 call ClearBox ld hl, $c5c0 ld bc, $103 call ClearBox ld hl, $c5cc ld bc, $112 call TextBox call WaitBGMap ld hl, $c5e1 ld de, $756b call PlaceString ld l, c ld h, b ld de, StringBuffer1 ; $d073 call PlaceString ld a, $e7 ld [bc], a ld c, $32 call DelayFrames and a ret .asm_e316a ld de, $7586 call Functione2a6e ld de, $19 call WaitPlaySFX call WaitSFX ld c, $32 call DelayFrames scf ret ; known jump sources: e251b (38:651b), e270f (38:670f) Functione3180: ; e3180 (38:7180) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $f08 call ClearBox ld hl, $c5c0 ld bc, $103 call ClearBox ld hl, $c5cc ld bc, $112 call TextBox call WaitBGMap ld a, [CurPartySpecies] ; $d108 call Function381e jr c, .asm_e31ab ld e, c ld d, b call PlayCryHeader .asm_e31ab ld a, [CurPartySpecies] ; $d108 ld [$d265], a call GetPokemonName ld hl, $c5e1 ld de, $7551 call PlaceString ld c, $50 call DelayFrames ld hl, $c5cc ld bc, $112 call TextBox ld hl, $c5e1 ld de, $755e call PlaceString ld l, c ld h, b inc hl ld de, StringBuffer1 ; $d073 call PlaceString ld l, c ld h, b ld [hl], $e7 ld c, $32 call DelayFrames ret ; e31e7 (38:71e7) INCBIN "baserom.gbc",$e31e7,$e3357 - $e31e7 ; known jump sources: e2ff2 (38:6ff2), e3023 (38:7023), e3052 (38:7052) Functione3357: ; e3357 (38:7357) ld a, [CurPartyMon] ; $d109 ld c, a ld b, $0 add hl, bc ld a, [hl] ld [CurPartySpecies], a ; $d108 ret ; known jump sources: e2ff8 (38:6ff8), e3029 (38:7029), e305b (38:705b) Functione3363: ; e3363 (38:7363) ld bc, $b ld a, [CurPartyMon] ; $d109 call AddNTimes ld de, DefaultFlypoint ; $d002 ld bc, $b call CopyBytes ret ; known jump sources: e2ffe (38:6ffe), e302f (38:702f), e3064 (38:7064) Functione3376: ; e3376 (38:7376) ld bc, $b ld a, [CurPartyMon] ; $d109 call AddNTimes ld de, $d00d ld bc, $b call CopyBytes ret ; known jump sources: e306f (38:706f) Functione3389: ; e3389 (38:7389) ld a, [CurPartyMon] ; $d109 call AddNTimes ld de, $d018 call CopyBytes ret ; known jump sources: e2b86 (38:6b86), e2c8b (38:6c8b), e2d4f (38:6d4f), e3049 (38:7049) Functione3396: ; e3396 (38:7396) dec b ld c, b ld b, $0 ld hl, $73a6 add hl, bc add hl, bc add hl, bc ld a, [hli] ld b, a ld a, [hli] ld h, [hl] ld l, a ret ; e33a6 (38:73a6) INCBIN "baserom.gbc",$e33a6,$e33d0 - $e33a6 ; known jump sources: e240d (38:640d), e246b (38:646b), e24dc (38:64dc), e2605 (38:6605), e2663 (38:6663), e26d4 (38:66d4) Functione33d0: ; e33d0 (38:73d0) ld b, a call GetSGBLayout ld a, $e4 call DmgToCgbBGPals ld a, $fc call Functioncf8 ret ; known jump sources: e23db (38:63db), e25ce (38:65ce) Functione33df: ; e33df (38:73df) ld e, a ld d, $0 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ret ; known jump sources: e296c (38:696c), e2f8e (38:6f8e) Functione33e8: ; e33e8 (38:73e8) call DisableLCD ld hl, $9000 ld bc, $310 xor a call ByteFill call Functione51 call Functione58 ld hl, $749d ld de, $95c0 ld bc, $40 call CopyBytes ld hl, $7419 ld de, $8000 call Decompress ld a, $6 call Function3cb4 call EnableLCD ret ; e3419 (38:7419) INCBIN "baserom.gbc",$e3419,$e35aa - $e3419 ; no known jump sources Functione35aa: ; e35aa (38:75aa) call Function1d6e call Functione35e2 .asm_e35b0 xor a ld [hBGMapMode], a ; $ff00+$d4 call Functione36cf call Functione379c ld hl, $75f1 call Function1d3c xor a ld [$d0e4], a ld hl, $c4f0 ld bc, $809 call TextBox call Function350c ld a, [$cf73] cp $2 jr z, .asm_e35de call Functione37af call Functione36f9 jr .asm_e35b0 .asm_e35de call Function1c17 ret ; known jump sources: e35ad (38:75ad), e372a (38:772a) Functione35e2: ; e35e2 (38:75e2) xor a ld [hBGMapMode], a ; $ff00+$d4 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 ld a, $7f call ByteFill ret ; e35f1 (38:75f1) INCBIN "baserom.gbc",$e35f1,$e3626 - $e35f1 ; known jump sources: e36e7 (38:76e7), e375d (38:775d), e376e (38:776e) Functione3626: ; e3626 (38:7626) ld bc, $9 ld hl, Box1Name ; $db75 call AddNTimes ld d, h ld e, l ret ; e3632 (38:7632) INCBIN "baserom.gbc",$e3632,$e366c - $e3632 ; known jump sources: e3717 (38:7717) Functione366c: ; e366c (38:766c) ld a, [$db72] ld c, a ld a, [MenuSelection] ; $cf74 dec a cp c jr z, .asm_e3697 ld c, a ld b, $0 ld hl, $76a5 add hl, bc add hl, bc add hl, bc ld a, [hli] ld b, a call GetSRAMBank ld a, [hli] ld h, [hl] ld l, a ld a, [hl] call CloseSRAM ld c, a ld a, [$d4b4] and a jr z, .asm_e3695 ld a, c ret .asm_e3695 xor a ret .asm_e3697 ld a, $1 ld b, a call GetSRAMBank ld hl, $ad10 ld a, [hl] call CloseSRAM ret ; e36a5 (38:76a5) INCBIN "baserom.gbc",$e36a5,$e36cf - $e36a5 ; known jump sources: e35b3 (38:75b3) Functione36cf: ; e36cf (38:76cf) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld b, $2 ld c, $12 call TextBox ld hl, $c4c9 ld de, $76f1 call PlaceString ld a, [$db72] and $f call Functione3626 ld hl, $c4d3 call PlaceString ret ; e36f1 (38:76f1) INCBIN "baserom.gbc",$e36f1,$e36f9 - $e36f1 ; known jump sources: e35d9 (38:75d9) Functione36f9: ; e36f9 (38:76f9) ld hl, $777b call LoadMenuDataHeader call Function1d81 call Function1c07 ret c ld a, [$cfa9] cp $1 jr z, .asm_e3734 cp $2 jr z, .asm_e3745 cp $3 jr z, .asm_e3717 and a ret .asm_e3717 call Functione366c and a jr z, .asm_e372f ld e, l ld d, h ld a, [MenuSelection] ; $cf74 dec a ld c, a callba Function844bc call Functione35e2 and a ret .asm_e372f call Functione37be and a ret .asm_e3734 ld a, [MenuSelection] ; $cf74 dec a ld e, a ld a, [$db72] cp e ret z callba Function14a83 ret .asm_e3745 ld b, $4 ld de, DefaultFlypoint ; $d002 callba Function116c1 call ClearTileMap call Functione51 call Functione58 ld a, [MenuSelection] ; $cf74 dec a call Functione3626 ld e, l ld d, h ld hl, DefaultFlypoint ; $d002 ld c, $8 call InitString ld a, [MenuSelection] ; $cf74 dec a call Functione3626 ld de, DefaultFlypoint ; $d002 call CopyName2 ret ; e3778 (38:7778) INCBIN "baserom.gbc",$e3778,$e379c - $e3778 ; known jump sources: e35b6 (38:75b6) Functione379c: ; e379c (38:779c) ld de, $77a1 jr Functione37e3 ; e37a1 (38:77a1) INCBIN "baserom.gbc",$e37a1,$e37af - $e37a1 ; known jump sources: e35d6 (38:75d6) Functione37af: ; e37af (38:77af) ld de, $77b4 jr Functione37e3 ; e37b4 (38:77b4) INCBIN "baserom.gbc",$e37b4,$e37be - $e37b4 ; known jump sources: e372f (38:772f) Functione37be: ; e37be (38:77be) ld de, $77d3 call Functione37e3 ld de, $19 call WaitPlaySFX call WaitSFX ld c, $32 call DelayFrames ret ; e37d3 (38:77d3) INCBIN "baserom.gbc",$e37d3,$e37e3 - $e37d3 ; known jump sources: e379f (38:779f), e37b2 (38:77b2), e37c1 (38:77c1) Functione37e3: ; e37e3 (38:77e3) push de ld hl, $c5b8 ld bc, $212 call TextBox pop de ld hl, $c5e1 call PlaceString ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ret SECTION "bank39", ROMX, BANK[$39] CopyrightGFX: ; e4000 INCBIN "gfx/misc/copyright.2bpp" ; e41d0 _OptionsMenu: ; e41d0 ld hl, $ffaa ld a, [hl] push af ld [hl], $1 call WhiteBGMap ld hl, TileMap ld b, $10 ld c, $12 call TextBox ld hl, $c4ca ld de, Stringe4241 call PlaceString xor a ld [$cf63], a ld c, $6 .asm_e41f3 push bc xor a ld [$ffa9], a call Functione42d6 pop bc ld hl, $cf63 inc [hl] dec c jr nz, .asm_e41f3 call Functione4512 xor a ld [$cf63], a inc a ld [hBGMapMode], a call WaitBGMap ld b, $8 call GetSGBLayout call Function32f9 .asm_e4217 call Functiona57 ld a, [hJoyPressed] and $a jr nz, .asm_e4234 call Functione452a jr c, .asm_e422a call Functione42d6 jr c, .asm_e4234 .asm_e422a call Functione455c ld c, $3 call DelayFrames jr .asm_e4217 .asm_e4234 ld de, SFX_TRANSACTION call PlaySFX call WaitSFX pop af ld [$ffaa], a ret ; e4241 Stringe4241: ; e4241 db "TEXT SPEED", $22 db " :", $22 db "BATTLE SCENE", $22 db " :", $22 db "BATTLE STYLE", $22 db " :", $22 db "SOUND", $22 db " :", $22 db "PRINT", $22 db " :", $22 db "MENU ACCOUNT", $22 db " :", $22 db "FRAME", $22 db " :TYPE", $22 db "CANCEL@" ; e42d6 Functione42d6: ; e42d6 ld a, [$cf63] ld e, a ld d, 0 ld hl, .Pointers add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; e42e5 .Pointers dw Options_TextSpeed dw Options_BattleScene dw Options_BattleStyle dw Options_Sound dw Options_Print dw Options_MenuAccount dw Options_Frame dw Options_Cancel ; e42f5 Options_TextSpeed: ; e42f5 call Functione4346 ld a, [hJoyPressed] bit 5, a jr nz, .asm_e430d bit 4, a jr z, .asm_e431f ld a, c cp $2 jr c, .asm_e4309 ld c, $ff .asm_e4309 inc c ld a, e jr .asm_e4315 .asm_e430d ld a, c and a jr nz, .asm_e4313 ld c, $3 .asm_e4313 dec c ld a, d .asm_e4315 ld b, a ld a, [Options] and $f0 or b ld [Options], a .asm_e431f ld b, 0 ld hl, .Strings add hl, bc add hl, bc ld e, [hl] inc hl ld d, [hl] hlcoord 11, 3 call PlaceString and a ret ; e4331 .Strings dw .Fast dw .Mid dw .Slow .Fast db "FAST@" .Mid db "MID @" .Slow db "SLOW@" ; e4346 Functione4346: ; e4346 ld a, [Options] and $7 cp $5 jr z, .asm_e4359 cp $1 jr z, .asm_e435f ld c, $1 ld de, $0105 ret .asm_e4359 ld c, $2 ld de, $0301 ret .asm_e435f ld c, $0 ld de, $0503 ret ; e4365 Options_BattleScene: ; e4365 ld hl, Options ld a, [hJoyPressed] bit 5, a jr nz, .asm_e4378 bit 4, a jr z, .asm_e437e bit 7, [hl] jr nz, .asm_e4384 jr .asm_e438b .asm_e4378 bit 7, [hl] jr z, .asm_e438b jr .asm_e4384 .asm_e437e bit 7, [hl] jr z, .asm_e4384 jr .asm_e438b .asm_e4384 res 7, [hl] ld de, .On jr .asm_e4390 .asm_e438b set 7, [hl] ld de, .Off .asm_e4390 hlcoord 11, 5 call PlaceString and a ret ; e4398 .On db "ON @" .Off db "OFF@" ; e43a0 Options_BattleStyle: ; e43a0 ld hl, Options ld a, [hJoyPressed] bit 5, a jr nz, .asm_e43b3 bit 4, a jr z, .asm_e43b9 bit 6, [hl] jr nz, .asm_e43bd jr .asm_e43c4 .asm_e43b3 bit 6, [hl] jr z, .asm_e43c4 jr .asm_e43bd .asm_e43b9 bit 6, [hl] jr nz, .asm_e43c4 .asm_e43bd res 6, [hl] ld de, .Shift jr .asm_e43c9 .asm_e43c4 set 6, [hl] ld de, .Set .asm_e43c9 hlcoord 11, 7 call PlaceString and a ret ; e43d1 .Shift db "SHIFT@" .Set db "SET @" ; e43dd Options_Sound: ; e43dd ld hl, Options ld a, [hJoyPressed] bit 5, a jr nz, .asm_e43f0 bit 4, a jr z, .asm_e43f6 bit 5, [hl] jr nz, .asm_e43fc jr .asm_e4406 .asm_e43f0 bit 5, [hl] jr z, .asm_e4406 jr .asm_e43fc .asm_e43f6 bit 5, [hl] jr nz, .asm_e440b jr .asm_e4401 .asm_e43fc res 5, [hl] call Function3d47 .asm_e4401 ld de, .Mono jr .asm_e440e .asm_e4406 set 5, [hl] call Function3d47 .asm_e440b ld de, .Stereo .asm_e440e hlcoord 11, 9 call PlaceString and a ret ; e4416 .Mono db "MONO @" .Stereo db "STEREO@" ; e4424 Options_Print: ; e4424 call Functione4491 ld a, [hJoyPressed] bit 5, a jr nz, .asm_e443c bit 4, a jr z, .asm_e4448 ld a, c cp $4 jr c, .asm_e4438 ld c, $ff .asm_e4438 inc c ld a, e jr .asm_e4444 .asm_e443c ld a, c and a jr nz, .asm_e4442 ld c, $5 .asm_e4442 dec c ld a, d .asm_e4444 ld b, a ld [GBPrinter], a .asm_e4448 ld b, $0 ld hl, $445a add hl, bc add hl, bc ld e, [hl] inc hl ld d, [hl] hlcoord 11, 11 call PlaceString and a ret ; e445a .Strings dw .Lightest dw .Lighter dw .Normal dw .Darker dw .Darkest .Lightest db "LIGHTEST@" .Lighter db "LIGHTER @" .Normal db "NORMAL @" .Darker db "DARKER @" .Darkest db "DARKEST @" ; e4491 Functione4491: ; e4491 ld a, [GBPrinter] and a jr z, .asm_e44a9 cp $20 jr z, .asm_e44af cp $60 jr z, .asm_e44b5 cp $7f jr z, .asm_e44bb ld c, $2 ld de, $2060 ret .asm_e44a9 ld c, $0 ld de, $7f20 ret .asm_e44af ld c, $1 ld de, $0040 ret .asm_e44b5 ld c, $3 ld de, $407f ret .asm_e44bb ld c, $4 ld de, $6000 ret ; e44c1 Options_MenuAccount: ; e44c1 ld hl, Options2 ld a, [hJoyPressed] bit 5, a jr nz, .asm_e44d4 bit 4, a jr z, .asm_e44da bit 0, [hl] jr nz, .asm_e44de jr .asm_e44e5 .asm_e44d4 bit 0, [hl] jr z, .asm_e44e5 jr .asm_e44de .asm_e44da bit 0, [hl] jr nz, .asm_e44e5 .asm_e44de res 0, [hl] ld de, .Off jr .asm_e44ea .asm_e44e5 set 0, [hl] ld de, .On .asm_e44ea hlcoord 11, 13 call PlaceString and a ret ; e44f2 .Off db "OFF@" .On db "ON @" ; e44fa Options_Frame: ; e44fa ld hl, TextBoxFrame ld a, [hJoyPressed] bit 5, a jr nz, .asm_e450d bit 4, a jr nz, .asm_e4509 and a ret .asm_e4509 ld a, [hl] inc a jr .asm_e450f .asm_e450d ld a, [hl] dec a .asm_e450f and $7 ld [hl], a ; fallthrough ; e4512 Functione4512: ; e4512 ld a, [TextBoxFrame] ld hl, $c5dc add "1" ld [hl], a call Functione5f and a ret ; e4520 Options_Cancel: ; e4520 ld a, [hJoyPressed] and A_BUTTON jr nz, .asm_e4528 and a ret .asm_e4528 scf ret ; e452a Functione452a: ; e452a ld hl, $cf63 ld a, [$ffa9] cp $80 jr z, .asm_e4539 cp $40 jr z, .asm_e454b and a ret .asm_e4539 ld a, [hl] cp $7 jr nz, .asm_e4542 ld [hl], $0 scf ret .asm_e4542 cp $5 jr nz, .asm_e4548 ld [hl], $5 .asm_e4548 inc [hl] scf ret .asm_e454b ld a, [hl] cp $6 jr nz, .asm_e4554 ld [hl], $5 scf ret .asm_e4554 and a jr nz, .asm_e4559 ld [hl], $8 .asm_e4559 dec [hl] scf ret ; e455c Functione455c: ; e455c hlcoord 1, 1 ld de, $0014 ld c, $10 .asm_e4564 ld [hl], $7f add hl, de dec c jr nz, .asm_e4564 hlcoord 1, 2 ld bc, $0028 ld a, [$cf63] call AddNTimes ld [hl], $ed ret ; e4579 Functione4579: ; e4579 ld de, MUSIC_NONE call PlayMusic call WhiteBGMap call ClearTileMap ld a, $98 ld [$ffd7], a xor a ld [hBGMapAddress], a ld [hJoyDown], a ld [hSCX], a ld [hSCY], a ld a, $90 ld [hWY], a call WaitBGMap ld b, $19 call GetSGBLayout call Function32f9 ld c, 10 call DelayFrames callab Copyright call WaitBGMap ld c, $64 call DelayFrames call ClearTileMap callba GBCOnlyScreen call Functione45e8 .asm_e45c0 call Functiona57 ld a, [$ffa9] and $f jr nz, .asm_e45de ld a, [$cf63] bit 7, a jr nz, .asm_e45e3 call Functione4670 callba Function8cf69 call DelayFrame jr .asm_e45c0 .asm_e45de call Functione465e scf ret .asm_e45e3 call Functione465e and a ret ; e45e8 Functione45e8: ; e45e8 ld de, GameFreakLogo ld hl, VTiles2 ld bc, BANK(GameFreakLogo) << 8 + $1c call Get1bpp ld a, [rSVBK] push af ld a, $6 ld [rSVBK], a ld hl, IntroLogoGFX ld de, $d000 ld a, BANK(IntroLogoGFX) call FarDecompress ld hl, VTiles0 ld de, $d000 ld bc, $0180 call Request2bpp ld hl, VTiles1 ld de, $d800 ld bc, $0180 call Request2bpp pop af ld [rSVBK], a callba Function8cf53 ld de, $5458 ld a, $3 call Function3b2a ld hl, $0007 add hl, bc ld [hl], $a0 ld hl, $000c add hl, bc ld [hl], $60 ld hl, $000d add hl, bc ld [hl], $30 xor a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [hSCX], a ld [hSCY], a ld a, $1 ld [hBGMapMode], a ld a, $90 ld [hWY], a ld de, $e4e4 call DmgToCgbObjPals ret ; e465e Functione465e: ; e465e callba Function8cf53 call ClearTileMap call ClearSprites ld c, $10 call DelayFrames ret ; e4670 Functione4670: ; e4670 ld a, [$cf63] ld e, a ld d, 0 ld hl, .pointers add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; e467f .pointers dw Functione468c dw Functione468d dw Functione46ba dw Functione46dd ; e4687 Functione4687: ; e4687 ld hl, $cf63 inc [hl] ret ; e468c Functione468c: ; e468c ret ; e468d Functione468d: ; e468d ld hl, $cf65 ld a, [hl] cp $20 jr nc, .asm_e4697 inc [hl] ret .asm_e4697 ld [hl], 0 ld hl, .GAME_FREAK decoord 5, 10 ld bc, .end - .GAME_FREAK call CopyBytes call Functione4687 ld de, SFX_GAME_FREAK_PRESENTS call PlaySFX ret ; e46af .GAME_FREAK ; G A M E _ F R E A K db 0, 1, 2, 3, 13, 4, 5, 3, 1, 6 .end db "@" ; e46ba Functione46ba: ; e46ba ld hl, $cf65 ld a, [hl] cp $40 jr nc, .asm_e46c4 inc [hl] ret .asm_e46c4 ld [hl], 0 ld hl, .presents decoord 7,11 ld bc, .end - .presents call CopyBytes call Functione4687 ret ; e46d6 .presents db 7, 8, 9, 10, 11, 12 .end db "@" ; e46dd Functione46dd: ; e46dd ld hl, $cf65 ld a, [hl] cp $80 jr nc, .asm_e46e7 inc [hl] ret .asm_e46e7 ld hl, $cf63 set 7, [hl] ret ; e46ed ; no known jump sources Functione46ed: ; e46ed (39:46ed) ld hl, $b add hl, bc ld e, [hl] ld d, $0 ld hl, $46fd add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_e46fd: ; e46fd (39:46fd) dw Functione4707 dw Functione470d dw Functione4759 dw Functione4776 dw Functione47ab ; no known jump sources Functione4707: ; e4707 (39:4707) ld hl, $b add hl, bc inc [hl] ret ; no known jump sources Functione470d: ; e470d (39:470d) ld hl, $c add hl, bc ld a, [hl] and a jr z, .asm_e4747 ld d, a ld hl, $d add hl, bc ld a, [hl] and $3f cp $20 jr nc, .asm_e4723 add $20 .asm_e4723 ld e, a callba Functionce765 ld hl, $7 add hl, bc ld [hl], e ld hl, $d add hl, bc ld a, [hl] dec [hl] and $1f ret nz ld hl, $c add hl, bc ld a, [hl] sub $30 ld [hl], a ld de, $c7 call PlaySFX ret .asm_e4747 ld hl, $b add hl, bc inc [hl] ld hl, $d add hl, bc ld [hl], $0 ld de, $c1 call PlaySFX ret ; no known jump sources Functione4759: ; e4759 (39:4759) ld hl, $d add hl, bc ld a, [hl] cp $20 jr nc, .asm_e4764 inc [hl] ret .asm_e4764 ld hl, $b add hl, bc inc [hl] ld hl, $d add hl, bc ld [hl], $0 ld de, $c2 call PlaySFX ret ; no known jump sources Functione4776: ; e4776 (39:4776) ld hl, $d add hl, bc ld a, [hl] cp $40 jr z, .asm_e47a3 inc [hl] srl a srl a ld e, a ld d, $0 ld hl, $47ac add hl, de add hl, de ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld a, [hli] ld [$d0cc], a ld a, [hli] ld [$d0cd], a pop af ld [rSVBK], a ; $ff00+$70 ld a, $1 ld [hCGBPalUpdate], a ; $ff00+$e5 ret .asm_e47a3 ld hl, $b add hl, bc inc [hl] call Functione4687 ; no known jump sources Functione47ab: ; e47ab (39:47ab) ret ; e47ac (39:47ac) INCBIN "baserom.gbc",$e47ac,$e47cc - $e47ac GameFreakLogo: ; e47cc INCBIN "gfx/splash/logo.1bpp" ; e48ac Functione48ac: ; e48ac ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld a, [$ffaa] push af ld a, [$ff9e] push af call Functione4901 Functione48bc: ; e48bc call Functiona57 ld a, [$ffa9] and $f jr nz, .asm_e48db ld a, [$cf63] bit 7, a jr nz, .asm_e48e1 call Functione490f callba Function8cf69 call DelayFrame jp Functione48bc .asm_e48db ld de, $0000 call PlayMusic .asm_e48e1 call WhiteBGMap call ClearSprites call ClearTileMap xor a ld [hSCX], a ld [hSCY], a ld a, $7 ld [hWX], a ld a, $90 ld [hWY], a pop af ld [$ff9e], a pop af ld [$ffaa], a pop af ld [rSVBK], a ret ; e4901 Functione4901: ; e4901 xor a ld [$ff9e], a ld a, $1 ld [$ffaa], a xor a ld [$ffde], a ld [$cf63], a ret ; e490f Functione490f: ; e490f ld a, [$cf63] ld e, a ld d, $0 ld hl, $491e add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; e491e ; no known jump sources Jumptable_e491e: ; e491e (39:491e) dw Functione495b dw Functione49d6 dw Functione49fd dw Functione4a69 dw Functione4a7a dw Functione4af7 dw Functione4b3f dw Functione4bd3 dw Functione4c04 dw Functione4c4f dw Functione4c86 dw Functione4cfa dw Functione4d6d dw Functione4dfa dw Functione4e40 dw Functione4edc dw Functione4ef5 dw Functione4f67 dw Functione4f7e dw Functione5019 dw Functione505d dw Functione5072 dw Functione5086 dw Functione508e dw Functione50ad dw Functione50bb dw Functione512d dw Functione5152 ; known jump sources: e49d2 (39:49d2), e49f9 (39:49f9), e4a65 (39:4a65), e4a76 (39:4a76), e4af3 (39:4af3), e4b3b (39:4b3b), e4bcf (39:4bcf), e4c00 (39:4c00), e4c4b (39:4c4b), e4c82 (39:4c82), e4cf6 (39:4cf6), e4d32 (39:4d32), e4df6 (39:4df6), e4e3c (39:4e3c), e4ed8 (39:4ed8), e4ef1 (39:4ef1), e4f63 (39:4f63), e4f7a (39:4f7a), e5015 (39:5015), e5059 (39:5059), e506e (39:506e), e5082 (39:5082), e508a (39:508a), e50a9 (39:50a9), e50b7 (39:50b7), e5129 (39:5129), e5149 (39:5149) Functione4956: ; e4956 (39:4956) ld hl, $cf63 inc [hl] ret ; no known jump sources Functione495b: ; e495b (39:495b) call Functione54a3 call ClearSprites call ClearTileMap xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $641d ld de, $9800 call Functione54fa ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, $5f5d ld de, $9000 call Functione54c2 ld hl, $634d ld de, $8000 call Functione54c2 ld hl, $63dd ld de, $9800 call Functione54fa ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $65ad ld de, Unkn1Pals ; $d000 ld bc, $80 call CopyBytes ld hl, $65ad ld de, BGPals ; $d080 ld bc, $80 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 xor a ld [hSCX], a ; $ff00+$cf ld [hSCY], a ; $ff00+$d0 ld a, $7 ld [hWX], a ; $ff00+$d1 ld a, $90 ld [hWY], a ; $ff00+$d2 callba Function8cf53 call Functione549e xor a ld [$cf64], a ld [$cf65], a call Functione4956 ret ; no known jump sources Functione49d6: ; e49d6 (39:49d6) ld hl, $cf64 ld a, [hl] inc [hl] cp $80 jr nc, .asm_e49f9 cp $60 jr nz, .asm_e49f1 push af ld de, $5858 call Functione51dc ld de, $be call PlaySFX pop af .asm_e49f1 ld [$cf65], a xor a call Functione5223 ret .asm_e49f9 call Functione4956 ret ; no known jump sources Functione49fd: ; e49fd (39:49fd) call Functione54a3 call ClearSprites call ClearTileMap xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $5ecd ld de, $9800 call Functione54fa ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, $5c7d ld de, $9000 call Functione54c2 ld hl, $5e6d ld de, $9800 call Functione54fa ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $5edd ld de, Unkn1Pals ; $d000 ld bc, $80 call CopyBytes ld hl, $5edd ld de, BGPals ; $d080 ld bc, $80 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 xor a ld [hSCX], a ; $ff00+$cf ld [hSCY], a ; $ff00+$d0 ld a, $7 ld [hWX], a ; $ff00+$d1 ld a, $90 ld [hWY], a ; $ff00+$d2 call Functione5516 call Functione549e xor a ld [$cf64], a call Functione4956 ret ; no known jump sources Functione4a69: ; e4a69 (39:4a69) call Functione552f ld hl, $cf64 ld a, [hl] cp $80 jr z, .asm_e4a76 inc [hl] ret .asm_e4a76 call Functione4956 ret ; no known jump sources Functione4a7a: ; e4a7a (39:4a7a) call Functione54a3 call ClearSprites call ClearTileMap xor a ld [hBGMapMode], a ; $ff00+$d4 ld [hLCDStatCustom], a ; $ff00+$c6 ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $647d ld de, $9800 call Functione54fa ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, $5f5d ld de, $9000 call Functione54c2 ld hl, $634d ld de, $8000 call Functione54c2 ld hl, $642d ld de, $9800 call Functione54fa ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $65ad ld de, Unkn1Pals ; $d000 ld bc, $80 call CopyBytes ld hl, $65ad ld de, BGPals ; $d080 ld bc, $80 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 xor a ld [hSCX], a ; $ff00+$cf ld [hSCY], a ; $ff00+$d0 ld a, $7 ld [hWX], a ; $ff00+$d1 ld a, $90 ld [hWY], a ; $ff00+$d2 callba Function8cf53 call Functione549e xor a ld [$cf64], a ld [$cf65], a call Functione4956 ret ; no known jump sources Functione4af7: ; e4af7 (39:4af7) ld hl, $cf64 ld a, [hl] inc [hl] cp $80 jr nc, .asm_e4b3b cp $60 jr z, .asm_e4b24 cp $40 jr nc, .asm_e4b32 cp $20 jr z, .asm_e4b0e jr .asm_e4b1c .asm_e4b0e push af ld de, $3878 call Functione51dc ld de, $bf call PlaySFX pop af .asm_e4b1c ld [$cf65], a xor a call Functione5223 ret .asm_e4b24 push af ld de, $7030 call Functione51dc ld de, $be call PlaySFX pop af .asm_e4b32 ld [$cf65], a ld a, $1 call Functione5223 ret .asm_e4b3b call Functione4956 ret ; no known jump sources Functione4b3f: ; e4b3f (39:4b3f) call Functione54a3 call ClearSprites call ClearTileMap xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $5ecd ld de, $9800 call Functione54fa ld hl, $592d ld de, $8000 call Functione54c2 ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, $555d ld de, $8000 call Functione54de ld hl, $5c7d ld de, $9000 call Functione54c2 ld hl, $5e6d ld de, $9800 call Functione54fa ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $5edd ld de, Unkn1Pals ; $d000 ld bc, $80 call CopyBytes ld hl, $5edd ld de, BGPals ; $d080 ld bc, $80 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 xor a ld [hSCX], a ; $ff00+$cf ld [hSCY], a ; $ff00+$d0 ld a, $7 ld [hWX], a ; $ff00+$d1 ld a, $90 ld [hWY], a ; $ff00+$d2 call Functione5516 callba Function8cf53 ld de, $6cd8 ld a, $26 call Function3b2a ld a, $f0 ld [$c3c0], a call Functione549e xor a ld [$cf64], a ld [$cf65], a call Functione4956 ret ; no known jump sources Functione4bd3: ; e4bd3 (39:4bd3) ld hl, $cf64 ld a, [hl] inc [hl] cp $40 jr z, .asm_e4be2 jr nc, .asm_e4be8 call Functione552f ret .asm_e4be2 ld de, $c6 call PlaySFX .asm_e4be8 ld a, [$c3c0] and a jr z, .asm_e4bf4 sub $8 ld [$c3c0], a ret .asm_e4bf4 ld de, $c5 call PlaySFX callba Function8d03d call Functione4956 ret ; no known jump sources Functione4c04: ; e4c04 (39:4c04) xor a ld [hLCDStatCustom], a ; $ff00+$c6 call ClearSprites ld hl, AttrMap ; $cdd9 ld bc, $f0 ld a, $1 call ByteFill ld bc, $3c ld a, $2 call ByteFill ld bc, $3c ld a, $3 call ByteFill ld a, $2 ld [hBGMapMode], a ; $ff00+$d4 call DelayFrame call DelayFrame call DelayFrame ld a, $c ld [hBGMapAddress], a ; $ff00+$d6 call DelayFrame call DelayFrame call DelayFrame xor a ld [hBGMapMode], a ; $ff00+$d4 ld [hBGMapAddress], a ; $ff00+$d6 ld [$c3c0], a xor a ld [$cf64], a call Functione4956 ret ; no known jump sources Functione4c4f: ; e4c4f (39:4c4f) call Functione546d ld hl, $cf64 ld a, [hl] inc [hl] cp $c0 jr z, .asm_e4c82 cp $20 jr z, .asm_e4c73 cp $40 jr z, .asm_e4c64 ret .asm_e4c64 ld de, $a980 ld a, $27 call Function3b2a ld de, $c4 call PlaySFX ret .asm_e4c73 ld de, $b030 ld a, $28 call Function3b2a ld de, $c4 call PlaySFX ret .asm_e4c82 call Functione4956 ret ; no known jump sources Functione4c86: ; e4c86 (39:4c86) call Functione54a3 call ClearSprites call ClearTileMap xor a ld [hBGMapMode], a ; $ff00+$d4 ld [hLCDStatCustom], a ; $ff00+$c6 ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $655d ld de, $9800 call Functione54fa ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, $5f5d ld de, $9000 call Functione54c2 ld hl, $649d ld de, $9800 call Functione54fa ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $65ad ld de, Unkn1Pals ; $d000 ld bc, $80 call CopyBytes ld hl, $65ad ld de, BGPals ; $d080 ld bc, $80 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 xor a ld [hSCX], a ; $ff00+$cf ld [hSCY], a ; $ff00+$d0 ld a, $7 ld [hWX], a ; $ff00+$d1 ld a, $90 ld [hWY], a ; $ff00+$d2 callba Function8cf53 call Functione549e xor a ld [$cf64], a ld [$cf65], a call Functione4956 ret ; no known jump sources Functione4cfa: ; e4cfa (39:4cfa) call Functione4d36 ld hl, $cf64 ld a, [hl] inc [hl] cp $c0 jr nc, .asm_e4d32 cp $80 jr nc, .asm_e4d1d ld c, a and $1f sla a ld [$cf65], a ld a, c and $e0 srl a swap a call Functione5223 ret .asm_e4d1d ld c, a and $f sla a sla a ld [$cf65], a ld a, c and $70 or $40 swap a call Functione5223 ret .asm_e4d32 call Functione4956 ret ; known jump sources: e4cfa (39:4cfa) Functione4d36: ; e4d36 (39:4d36) ld a, [$cf64] ld c, a ld hl, $4d54 .asm_e4d3d ld a, [hli] cp $ff ret z cp c jr z, .asm_e4d48 inc hl inc hl jr .asm_e4d3d .asm_e4d48 ld a, [hli] ld d, [hl] ld e, a push de call SFXChannelsOff pop de call PlaySFX ret ; e4d54 (39:4d54) INCBIN "baserom.gbc",$e4d54,$e4d6d - $e4d54 ; no known jump sources Functione4d6d: ; e4d6d (39:4d6d) call Functione54a3 call ClearSprites call ClearTileMap xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $5ecd ld de, $9800 call Functione54fa ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, $555d ld de, $8000 call Functione54de ld hl, $5c7d ld de, $9000 call Functione54c2 ld hl, $5e6d ld de, $9800 call Functione54fa ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $5edd ld de, Unkn1Pals ; $d000 ld bc, $80 call CopyBytes ld hl, $5edd ld de, BGPals ; $d080 ld bc, $80 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 xor a ld [hSCX], a ; $ff00+$cf ld [hSCY], a ; $ff00+$d0 ld a, $7 ld [hWX], a ; $ff00+$d1 ld a, $90 ld [hWY], a ; $ff00+$d2 callba Function8cf53 ld de, $6c58 ld a, $26 call Function3b2a ld de, $62 call PlayMusic xor a ld [$c3c0], a call Functione549e xor a ld [$cf64], a ld [$cf65], a call Functione4956 ret ; no known jump sources Functione4dfa: ; e4dfa (39:4dfa) ld a, [hSCX] ; $ff00+$cf sub $a ld [hSCX], a ; $ff00+$cf ld hl, $cf64 ld a, [hl] inc [hl] cp $80 jr z, .asm_e4e3c cp $60 jr z, .asm_e4e14 jr nc, .asm_e4e1a cp $40 jr nc, .asm_e4e33 ret .asm_e4e14 ld de, $c8 call PlaySFX .asm_e4e1a ld a, $1 ld [$cf65], a ld a, [$c3c0] cp $88 jr c, .asm_e4e2c sub $8 ld [$c3c0], a ret .asm_e4e2c callba Function8d03d ret .asm_e4e33 ld a, [$c3c0] sub $2 ld [$c3c0], a ret .asm_e4e3c call Functione4956 ret ; no known jump sources Functione4e40: ; e4e40 (39:4e40) call Functione54a3 call ClearSprites call ClearTileMap xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $76ad ld de, $9800 call Functione54fa ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, $6ded ld de, $9000 call Functione54c2 ld hl, $785d ld de, $8000 call Functione54c2 ld de, $7a5d ld hl, $8800 ld bc, $3901 call Request2bpp ld hl, $764d ld de, $9800 call Functione54fa call Functione541b ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $77dd ld de, Unkn1Pals ; $d000 ld bc, $80 call CopyBytes ld hl, $77dd ld de, BGPals ; $d080 ld bc, $80 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 xor a ld [hSCX], a ; $ff00+$cf ld a, $90 ld [hSCY], a ; $ff00+$d0 ld a, $7 ld [hWX], a ; $ff00+$d1 ld a, $90 ld [hWY], a ; $ff00+$d2 callba Function8cf53 call Functione549e ld de, $4028 ld a, $2a call Function3b2a ld de, $6000 ld a, $2b call Function3b2a xor a ld [$cf64], a ld [$cf65], a call Functione4956 ret ; no known jump sources Functione4edc: ; e4edc (39:4edc) ld hl, $cf64 ld a, [hl] inc [hl] cp $80 jr nc, .asm_e4ef1 call Functione5441 ld a, [hSCY] ; $ff00+$d0 and a ret z add $8 ld [hSCY], a ; $ff00+$d0 ret .asm_e4ef1 call Functione4956 ret ; no known jump sources Functione4ef5: ; e4ef5 (39:4ef5) call Functione54a3 call ClearSprites call ClearTileMap xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $6d0d ld de, $9800 call Functione54fa ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, $681d ld de, $8800 call Functione54de ld hl, $6c3d ld de, $9800 call Functione54fa ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $6d6d ld de, Unkn1Pals ; $d000 ld bc, $80 call CopyBytes ld hl, $6d6d ld de, BGPals ; $d080 ld bc, $80 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 xor a ld [hSCX], a ; $ff00+$cf ld [hSCY], a ; $ff00+$d0 ld a, $7 ld [hWX], a ; $ff00+$d1 ld a, $90 ld [hWY], a ; $ff00+$d2 callba Function8cf53 call Functione549e xor a ld [$cf64], a ld [$cf65], a call Functione4956 ret ; no known jump sources Functione4f67: ; e4f67 (39:4f67) ld hl, $cf64 ld a, [hl] inc [hl] cp $60 jr nc, .asm_e4f7a ld a, [hSCX] ; $ff00+$cf cp $60 ret z add $8 ld [hSCX], a ; $ff00+$cf ret .asm_e4f7a call Functione4956 ret ; no known jump sources Functione4f7e: ; e4f7e (39:4f7e) call Functione54a3 call ClearSprites call ClearTileMap xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $778d ld de, $9800 call Functione54fa ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, $72ad ld de, $9000 call Functione54c2 ld hl, $5f5d ld de, $8800 call Functione54c2 ld de, $7a5d ld hl, $8ff0 ld bc, $3901 call Request2bpp ld hl, $76bd ld de, $9800 call Functione54fa call Functione541b ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $77dd ld de, Unkn1Pals ; $d000 ld bc, $80 call CopyBytes ld hl, $77dd ld de, BGPals ; $d080 ld bc, $80 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 xor a ld [hSCX], a ; $ff00+$cf ld a, $d8 ld [hSCY], a ; $ff00+$d0 ld a, $7 ld [hWX], a ; $ff00+$d1 ld a, $90 ld [hWY], a ; $ff00+$d2 callba Function8cf53 ld hl, $c300 xor a ld [hli], a ld [hl], $7f call Functione549e ld de, $6000 ld a, $2b call Function3b2a xor a ld [$cf64], a ld [$cf65], a call Functione4956 ret ; no known jump sources Functione5019: ; e5019 (39:5019) ld hl, $cf64 ld a, [hl] inc [hl] cp $98 jr nc, .asm_e5059 cp $58 ret nc cp $40 jr nc, .asm_e5032 cp $28 ret nc ld a, [hSCY] ; $ff00+$d0 inc a ld [hSCY], a ; $ff00+$d0 ret .asm_e5032 sub $18 ld c, a and $3 cp $3 ret nz ld a, c and $1c srl a srl a ld [$cf65], a xor a call Functione5348 ret ; e5049 (39:5049) INCBIN "baserom.gbc",$e5049,$e5059 - $e5049 .asm_e5059 call Functione4956 ret ; no known jump sources Functione505d: ; e505d (39:505d) call Functione5451 ld c, $3 call DelayFrames xor a ld [hBGMapMode], a ; $ff00+$d4 ld [$cf64], a ld [$cf65], a call Functione4956 ret ; no known jump sources Functione5072: ; e5072 (39:5072) ld hl, $cf64 ld a, [hl] inc [hl] cp $8 jr nc, .asm_e507c ret .asm_e507c callba Function8d03d call Functione4956 ret ; no known jump sources Functione5086: ; e5086 (39:5086) xor a ld [$cf64], a call Functione4956 ret ; no known jump sources Functione508e: ; e508e (39:508e) ld hl, $cf64 ld a, [hl] inc [hl] cp $20 jr nc, .asm_e50a4 ld c, a and $3 ret nz ld a, c and $1c sla a call Functione5172 ret .asm_e50a4 ld a, $40 ld [$cf64], a call Functione4956 ret ; no known jump sources Functione50ad: ; e50ad (39:50ad) ld a, [$cf64] dec a jr z, .asm_e50b7 ld [$cf64], a ret .asm_e50b7 call Functione4956 ret ; no known jump sources Functione50bb: ; e50bb (39:50bb) call WhiteBGMap call ClearSprites call ClearTileMap xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $676d ld de, $9800 call Functione54fa ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, $662d ld de, $9000 call Functione54c2 ld hl, $672d ld de, $9800 call Functione54fa ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $679d ld de, Unkn1Pals ; $d000 ld bc, $80 call CopyBytes ld hl, $679d ld de, BGPals ; $d080 ld bc, $80 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 xor a ld [hSCX], a ; $ff00+$cf ld [hSCY], a ; $ff00+$d0 ld a, $7 ld [hWX], a ; $ff00+$d1 ld a, $90 ld [hWY], a ; $ff00+$d2 callba Function8cf53 call Functione549e xor a ld [$cf64], a ld [$cf65], a call Functione4956 ret ; no known jump sources Functione512d: ; e512d (39:512d) ld hl, $cf65 inc [hl] ld hl, $cf64 ld a, [hl] inc [hl] cp $80 jr nc, .asm_e5149 ld c, a and $f ld [$cf65], a ld a, c and $70 swap a call Functione539d ret .asm_e5149 call Functione4956 ld a, $80 ld [$cf64], a ret ; no known jump sources Functione5152: ; e5152 (39:5152) ld hl, $cf64 ld a, [hl] and a jr z, .asm_e516c dec [hl] cp $18 jr z, .asm_e5168 cp $8 ret nz ld de, $cb call PlaySFX ret .asm_e5168 call WhiteBGMap ret .asm_e516c ld hl, $cf63 set 7, [hl] ret ; known jump sources: e50a0 (39:50a0) Functione5172: ; e5172 (39:5172) ld hl, $519c add l ld l, a ld a, $0 adc h ld h, a ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld de, BGPals ; $d080 ld b, $8 .asm_e5187 push hl ld c, $8 .asm_e518a ld a, [hli] ld [de], a inc de dec c jr nz, .asm_e518a pop hl dec b jr nz, .asm_e5187 pop af ld [rSVBK], a ; $ff00+$70 ld a, $1 ld [hCGBPalUpdate], a ; $ff00+$e5 ret ; e519c (39:519c) INCBIN "baserom.gbc",$e519c,$e51dc - $e519c ; known jump sources: e49e7 (39:49e7), e4b12 (39:4b12), e4b28 (39:4b28) Functione51dc: ; e51dc (39:51dc) push de ld a, $29 call Function3b2a ld hl, $c add hl, bc ld [hl], $8 ld a, $3c call Function3b3c pop de push de ld a, $29 call Function3b2a ld hl, $c add hl, bc ld [hl], $18 ld a, $3b call Function3b3c pop de push de ld a, $29 call Function3b2a ld hl, $c add hl, bc ld [hl], $28 ld a, $39 call Function3b3c pop de ld a, $29 call Function3b2a ld hl, $c add hl, bc ld [hl], $38 ld a, $3a call Function3b3c ret ; known jump sources: e49f5 (39:49f5), e4b20 (39:4b20), e4b37 (39:4b37), e4d19 (39:4d19), e4d2e (39:4d2e) Functione5223: ; e5223 (39:5223) add a add a add a ld e, a ld d, $0 ld hl, BGPals ; $d080 add hl, de inc hl inc hl ld a, [$cf65] and $3f cp $1f jr z, .asm_e523e jr c, .asm_e523e ld c, a ld a, $3f sub c .asm_e523e ld c, a ld b, $0 ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 push hl push bc ld hl, BGPals ; $d080 ld bc, $40 xor a call ByteFill pop bc pop hl push hl ld hl, $5288 add hl, bc add hl, bc ld a, [hli] ld d, [hl] ld e, a pop hl ld a, e ld [hli], a ld a, d ld [hli], a push hl ld hl, $52c8 add hl, bc add hl, bc ld a, [hli] ld d, [hl] ld e, a pop hl ld a, e ld [hli], a ld a, d ld [hli], a push hl ld hl, $5308 add hl, bc add hl, bc ld a, [hli] ld d, [hl] ld e, a pop hl ld a, e ld [hli], a ld a, d ld [hli], a pop af ld [rSVBK], a ; $ff00+$70 ld a, $1 ld [hCGBPalUpdate], a ; $ff00+$e5 ret ; e5288 (39:5288) INCBIN "baserom.gbc",$e5288,$e5348 - $e5288 ; known jump sources: e5045 (39:5045) Functione5348: ; e5348 (39:5348) and a jr nz, .asm_e5350 ld hl, $538d jr .asm_e5353 .asm_e5350 ld hl, $5395 .asm_e5353 ld a, [$cf65] and $7 add a add a add a ld c, a ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 push bc ld de, BGPals ; $d080 ld a, c add e ld e, a ld a, $0 adc d ld d, a ld bc, $8 call CopyBytes pop bc ld de, Unkn1Pals ; $d000 ld a, c add e ld e, a ld a, $0 adc d ld d, a ld bc, $8 call CopyBytes pop af ld [rSVBK], a ; $ff00+$70 ld a, $1 ld [hCGBPalUpdate], a ; $ff00+$e5 ret ; e538d (39:538d) INCBIN "baserom.gbc",$e538d,$e539d - $e538d ; known jump sources: e5145 (39:5145) Functione539d: ; e539d (39:539d) add a add a add a ld e, a ld d, $0 ld hl, BGPals ; $d080 add hl, de inc hl inc hl inc hl inc hl ld a, [$cf65] add a ld c, a ld b, $0 ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 push hl ld hl, $53db add hl, bc ld a, [hli] ld d, [hl] ld e, a pop hl ld a, e ld [hli], a ld a, d ld [hli], a push hl ld hl, $53fb add hl, bc ld a, [hli] ld d, [hl] ld e, a pop hl ld a, e ld [hli], a ld a, d ld [hli], a pop af ld [rSVBK], a ; $ff00+$70 ld a, $1 ld [hCGBPalUpdate], a ; $ff00+$e5 ret ; e53db (39:53db) INCBIN "baserom.gbc",$e53db,$e541b - $e53db ; known jump sources: e4e84 (39:4e84), e4fc2 (39:4fc2) Functione541b: ; e541b (39:541b) ld a, [rSVBK] ; $ff00+$70 push af ld a, $6 ld [rSVBK], a ; $ff00+$70 ld hl, Unkn1Pals ; $d000 ld de, TileMap ; $c4a0 (aliases: SpritesEnd) ld b, $12 .asm_e542a ld c, $14 .asm_e542c ld a, [hli] ld [de], a inc de dec c jr nz, .asm_e542c ld a, $c add l ld l, a ld a, $0 adc h ld h, a dec b jr nz, .asm_e542a pop af ld [rSVBK], a ; $ff00+$70 ret ; known jump sources: e4ee5 (39:4ee5) Functione5441: ; e5441 (39:5441) ld a, [$cf64] and $3 jr z, Functione5451 cp $3 jr z, .asm_e544d ret .asm_e544d xor a ld [hBGMapMode], a ; $ff00+$d4 ret ; known jump sources: e505d (39:505d), e5446 (39:5446) Functione5451: ; e5451 (39:5451) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 .asm_e5457 ld a, [hl] and a jr z, .asm_e5462 cp $80 jr nc, .asm_e5462 xor $8 ld [hl], a .asm_e5462 inc hl dec bc ld a, c or b jr nz, .asm_e5457 ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ret ; known jump sources: e4c4f (39:4c4f) Functione546d: ; e546d (39:546d) ld a, [$cf64] cp $24 ret nc and $c srl a ld e, a ld d, $0 ld hl, $5496 add hl, de ld a, [hli] ld [$cf68], a ld a, [hli] ld [$cf69], a ld a, $90 ld [$cf6a], a ld a, $90 ld [$cf6b], a ld a, $4 ld [$cf67], a ret ; e5496 (39:5496) INCBIN "baserom.gbc",$e5496,$e549e - $e5496 ; known jump sources: e49c8 (39:49c8), e4a5e (39:4a5e), e4ae9 (39:4ae9), e4bc5 (39:4bc5), e4cec (39:4cec), e4dec (39:4dec), e4ebe (39:4ebe), e4f59 (39:4f59), e5003 (39:5003), e511f (39:511f) Functione549e: ; e549e (39:549e) ld a, $1 ld [hCGBPalUpdate], a ; $ff00+$e5 ret ; known jump sources: e495b (39:495b), e49fd (39:49fd), e4a7a (39:4a7a), e4b3f (39:4b3f), e4c86 (39:4c86), e4d6d (39:4d6d), e4e40 (39:4e40), e4ef5 (39:4ef5), e4f7e (39:4f7e) Functione54a3: ; e54a3 (39:54a3) ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, BGPals ; $d080 ld bc, $80 xor a call ByteFill pop af ld [rSVBK], a ; $ff00+$70 ld a, $1 ld [hCGBPalUpdate], a ; $ff00+$e5 call DelayFrame call DelayFrame ret ; known jump sources: e497e (39:497e), e4987 (39:4987), e4a20 (39:4a20), e4a9f (39:4a9f), e4aa8 (39:4aa8), e4b5e (39:4b5e), e4b74 (39:4b74), e4cab (39:4cab), e4d99 (39:4d99), e4e63 (39:4e63), e4e6c (39:4e6c), e4fa1 (39:4fa1), e4faa (39:4faa), e50de (39:50de) Functione54c2: ; e54c2 (39:54c2) ld a, [rSVBK] ; $ff00+$70 push af ld a, $6 ld [rSVBK], a ; $ff00+$70 push de ld de, Unkn1Pals ; $d000 call Decompress pop hl ld de, Unkn1Pals ; $d000 ld bc, $180 call Request2bpp pop af ld [rSVBK], a ; $ff00+$70 ret ; known jump sources: e4b6b (39:4b6b), e4d90 (39:4d90), e4f18 (39:4f18) Functione54de: ; e54de (39:54de) ld a, [rSVBK] ; $ff00+$70 push af ld a, $6 ld [rSVBK], a ; $ff00+$70 push de ld de, Unkn1Pals ; $d000 call Decompress pop hl ld de, Unkn1Pals ; $d000 ld bc, $1ff call Request2bpp pop af ld [rSVBK], a ; $ff00+$70 ret ; known jump sources: e4971 (39:4971), e4990 (39:4990), e4a13 (39:4a13), e4a29 (39:4a29), e4a92 (39:4a92), e4ab1 (39:4ab1), e4b55 (39:4b55), e4b7d (39:4b7d), e4c9e (39:4c9e), e4cb4 (39:4cb4), e4d83 (39:4d83), e4da2 (39:4da2), e4e56 (39:4e56), e4e81 (39:4e81), e4f0b (39:4f0b), e4f21 (39:4f21), e4f94 (39:4f94), e4fbf (39:4fbf), e50d1 (39:50d1), e50e7 (39:50e7) Functione54fa: ; e54fa (39:54fa) ld a, [rSVBK] ; $ff00+$70 push af ld a, $6 ld [rSVBK], a ; $ff00+$70 push de ld de, Unkn1Pals ; $d000 call Decompress pop hl ld de, Unkn1Pals ; $d000 ld bc, $140 call Request2bpp pop af ld [rSVBK], a ; $ff00+$70 ret ; known jump sources: e4a5b (39:4a5b), e4baf (39:4baf) Functione5516: ; e5516 (39:5516) ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, CurMartEnd ; $d100 (aliases: LYOverrides) ld bc, $90 xor a call ByteFill pop af ld [rSVBK], a ; $ff00+$70 ld a, $43 ld [hLCDStatCustom], a ; $ff00+$c6 ret ; known jump sources: e4a69 (39:4a69), e4bde (39:4bde) Functione552f: ; e552f (39:552f) ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld a, [$cf64] and $1 jr z, .asm_e5548 ld hl, CurMartEnd ; $d100 (aliases: LYOverrides) ld a, [hl] inc a ld bc, $5f call ByteFill .asm_e5548 ld hl, $d15f ld a, [hl] inc a inc a ld bc, $31 call ByteFill ld a, [CurMartEnd] ; $d100 (aliases: LYOverrides) ld [hSCX], a ; $ff00+$cf pop af ld [rSVBK], a ; $ff00+$70 ret IntroSuicuneRunGFX: ; e555d INCBIN "gfx/intro/suicune_run.lz" ; e592d IntroPichuWooperGFX: ; e592d INCBIN "gfx/intro/pichu_wooper.lz" ; e5c7d IntroBackgroundGFX: ; e5c7d INCBIN "gfx/intro/background.lz" ; e5e6d IntroTilemap004: ; e5e6d INCBIN "gfx/intro/004.lz" ; e5ecd IntroTilemap003: ; e5ecd INCBIN "gfx/intro/003.lz" ; e5edd INCBIN "baserom.gbc", $e5edd, $e5f5d - $e5edd IntroUnownsGFX: ; e5f5d INCBIN "gfx/intro/unowns.lz" ; e634d IntroPulseGFX: ; e634d INCBIN "gfx/intro/pulse.lz" ; e63dd IntroTilemap002: ; e63dd INCBIN "gfx/intro/002.lz" ; e641d IntroTilemap001: ; e641d INCBIN "gfx/intro/001.lz" ; e642d IntroTilemap006: ; e642d INCBIN "gfx/intro/006.lz" ; e647d IntroTilemap005: ; e647d INCBIN "gfx/intro/005.lz" ; e649d IntroTilemap008: ; e649d INCBIN "gfx/intro/008.lz" ; e655d IntroTilemap007: ; e655d INCBIN "gfx/intro/007.lz" ; e65ad INCBIN "baserom.gbc", $e65ad, $e662d - $e65ad IntroCrystalUnownsGFX: ; e662d INCBIN "gfx/intro/crystal_unowns.lz" ; e672d IntroTilemap017: ; e672d INCBIN "gfx/intro/017.lz" ; e676d IntroTilemap015: ; e676d INCBIN "gfx/intro/015.lz" ; e679d INCBIN "baserom.gbc", $e679d, $e681d - $e679d IntroSuicuneCloseGFX: ; e681d INCBIN "gfx/intro/suicune_close.lz" ; e6c3d IntroTilemap012: ; e6c3d INCBIN "gfx/intro/012.lz" ; e6d0d IntroTilemap011: ; e6d0d INCBIN "gfx/intro/011.lz" ; e6d6d INCBIN "baserom.gbc", $e6d6d, $e6ded - $e6d6d IntroSuicuneJumpGFX: ; e6ded INCBIN "gfx/intro/suicune_jump.lz" ; e72ad IntroSuicuneBackGFX: ; e72ad INCBIN "gfx/intro/suicune_back.lz" ; e764d IntroTilemap010: ; e764d INCBIN "gfx/intro/010.lz" ; e76ad IntroTilemap009: ; e76ad INCBIN "gfx/intro/009.lz" ; e76bd IntroTilemap014: ; e76bd INCBIN "gfx/intro/014.lz" ; e778d IntroTilemap013: ; e778d INCBIN "gfx/intro/013.lz" ; e77dd INCBIN "baserom.gbc", $e77dd, $e785d - $e77dd IntroUnownBackGFX: ; e785d INCBIN "gfx/intro/unown_back.lz" ; e799d INCBIN "baserom.gbc", $e799d, $e7a70 - $e799d SECTION "bank3E", ROMX, BANK[$3E] FontExtra: INCBIN "gfx/misc/font_extra.2bpp" Font: INCBIN "gfx/misc/font.1bpp" FontBattleExtra: INCBIN "gfx/misc/font_battle_extra.2bpp" Frames: ; f8800 INCBIN "gfx/frames/1.1bpp" INCBIN "gfx/frames/2.1bpp" INCBIN "gfx/frames/3.1bpp" INCBIN "gfx/frames/4.1bpp" INCBIN "gfx/frames/5.1bpp" INCBIN "gfx/frames/6.1bpp" INCBIN "gfx/frames/7.1bpp" INCBIN "gfx/frames/8.1bpp" INCBIN "gfx/frames/9.1bpp" ; f89b0 INCBIN "baserom.gbc", $f89b0, $f8a90 - $f89b0 ShinyIcon: ; f8a90 INCBIN "gfx/stats/shiny.2bpp" INCBIN "baserom.gbc", $f8aa0, $f8ba0 - $f8aa0 TownMapGFX: ; f8ba0 INCBIN "gfx/misc/town_map.lz" ; f8ea3 INCBIN "baserom.gbc", $f8ea3, $fb449 - $f8ea3 Functionfb449: ; fb449 ld de, $4200 ld hl, VTiles1 ld bc, Function3e80 ld a, [rLCDC] bit 7, a jp z, Copy1bpp ld de, $4200 ld hl, VTiles1 ld bc, $3e20 call Functionddc ld de, $4300 ld hl, $8a00 ld bc, $3e20 call Functionddc ld de, $4400 ld hl, $8c00 ld bc, $3e20 call Functionddc ld de, $4500 ld hl, $8e00 ld bc, $3e20 call Functionddc ret ; fb48a Functionfb48a: ; fb48a ld de, $5214 ld hl, $9600 ld bc, $3e01 call Functionddc ld de, $4f24 ld hl, $9620 ld bc, $3e01 call Functiondc9 ld de, $4030 ld hl, $9630 ld bc, $3e16 call Functiondc9 jr Functionfb4cc ; fb4b0 Functionfb4b0: ; fb4b0 ld de, $5424 ld hl, $9610 ld b, $3e ld c, $1 call Functiondc9 ret ; fb4be Functionfb4be: ; fb4be ld de, $4600 ld hl, $9600 ld bc, $3e19 call Functiondc9 jr Functionfb4cc ; fb4cc Functionfb4cc: ; fb4cc ld a, [TextBoxFrame] and 7 ld bc, $0030 ld hl, Frames call AddNTimes ld d, h ld e, l ld hl, $9790 ld bc, $3e06 call Functionddc ld hl, $97f0 ld de, $5204 ld bc, $3e01 call Functionddc ret ; fb4f2 Functionfb4f2: ; fb4f2 ld de, $4600 ld hl, $9600 ld bc, $3e0c call Functiondc9 ld hl, $9700 ld de, $4700 ld bc, $3e03 call Functiondc9 call Functionfb4cc Functionfb50d: ; fb50d ld de, $4ac0 ld hl, $96c0 ld bc, $3e04 call Functionddc ld de, $4ae0 ld hl, $9730 ld bc, $3e06 call Functionddc ld de, $4b10 ld hl, $9550 ld bc, $3e09 call Functiondc9 ld de, $52a4 ld hl, $95e0 ld bc, $3e02 call Functiondc9 ret ; fb53e Functionfb53e: ; fb53e call Functionfb4be ld de, $4ac0 ld hl, $96c0 ld bc, $3e04 call Functionddc ld de, $4ae0 ld hl, $9780 ld bc, $3e01 call Functionddc ld de, $4af8 ld hl, $9760 ld bc, $3e02 call Functionddc ld de, $4b10 ld hl, $9550 ld bc, $3e08 call Functiondc9 Functionfb571: ; fb571 ld de, $49b0 ld hl, $9310 ld bc, $3e11 call Functiondc9 ret ; fb57e Functionfb57e: ; fb57e ld a, [$d003] ld hl, OTPartyMon1Species call GetPartyLocation push hl ld a, [$d003] inc a ld c, a ld b, $0 ld hl, OTPartyCount add hl, bc ld a, [hl] pop hl cp $fd jr z, .asm_fb59c cp [hl] jr nz, .asm_fb5db .asm_fb59c ld b, h ld c, l ld hl, $001f add hl, bc ld a, [hl] cp $65 jr nc, .asm_fb5db ld a, [InLinkBattle] cp $1 jr nz, .asm_fb5d9 ld hl, OTPartySpecies ld a, [$d003] ld c, a ld b, $0 add hl, bc ld a, [hl] cp $51 jr z, .asm_fb5d9 cp $52 jr z, .asm_fb5d9 ld [CurSpecies], a call GetBaseData ld hl, $cbea add hl, bc add hl, bc ld a, [BaseType1] cp [hl] jr nz, .asm_fb5db inc hl ld a, [BaseType2] cp [hl] jr nz, .asm_fb5db .asm_fb5d9 and a ret .asm_fb5db scf ret ; fb5dd Functionfb5dd: ; fb5dd ld a, [DefaultFlypoint] ld d, a ld a, [PartyCount] ld b, a ld c, $0 .asm_fb5e7 ld a, c cp d jr z, .asm_fb5f8 push bc ld a, c ld hl, PartyMon1CurHP call GetPartyLocation pop bc ld a, [hli] or [hl] jr nz, .asm_fb60b .asm_fb5f8 inc c dec b jr nz, .asm_fb5e7 ld a, [$d003] ld hl, OTPartyMon1CurHP call GetPartyLocation ld a, [hli] or [hl] jr nz, .asm_fb60b scf ret .asm_fb60b and a ret ; fb60d Functionfb60d: ; fb60d ld hl, $c4a4 ld de, PlayerName call PlaceString ld a, $14 ld [bc], a ld hl, $c544 ld de, $d26b call PlaceString ld a, $14 ld [bc], a ld hl, $c4bb ld de, PartySpecies call Functionfb634 ld hl, $c55b ld de, OTPartySpecies Functionfb634: ; fb634 ld c, $0 .asm_fb636 ld a, [de] cp $ff ret z ld [$d265], a push bc push hl push de push hl ld a, c ld [hProduct], a call GetPokemonName pop hl call PlaceString pop de inc de pop hl ld bc, $0014 add hl, bc pop bc inc c jr .asm_fb636 ; fb656 INCBIN "baserom.gbc",$fb656,$fb6ed - $fb656 INCLUDE "event/name_rater.asm" Functionfb841: ; fb841 ld a, [ScriptVar] call Function37f3 jr c, .asm_fb876 ld hl, CryPitch ld a, [hli] ld h, [hl] ld l, a ld bc, $fec0 add hl, bc ld a, l ld [CryPitch], a ld a, h ld [CryEcho], a ld hl, CryLength ld a, [hli] ld h, [hl] ld l, a ld bc, $0060 add hl, bc ld a, l ld [CryLength], a ld a, h ld [$c2b3], a callba PlayCry call WaitSFX .asm_fb876 ret ; fb877 Functionfb877: ; fb877 ld a, [$ffde] push af xor a ld [$ffde], a call LowVolume call WhiteBGMap call ClearTileMap call Function1ad2 call ClearSprites ld a, [$cf65] push af ld a, [hSCX] add $5 ld [hSCX], a xor a ld [$cf65], a callba Function41a7f call Functiona80 ld a, $1 ld [$cf65], a callba Function4424d call Functiona80 pop af ld [$cf65], a call MaxVolume call Function4b6 ld a, [hSCX] add $fb ld [hSCX], a call Functionfb8c8 pop af ld [$ffde], a ret ; fb8c8 Functionfb8c8: ; fb8c8 call ClearTileMap call Functione5f call Functione51 callba Function40ab2 call Function3200 callba Function3da97 ld a, [hli] ld [TempMonDVs], a ld a, [hl] ld [$d124], a ld b, $1c call GetSGBLayout call Function32f9 ret ; fb8f1 Functionfb8f1: ; fb8f1 push bc push hl ld a, [$d265] ld b, a ld c, $0 ld hl, $791c .asm_fb8fc inc c ld a, [hli] cp b jr nz, .asm_fb8fc ld a, c ld [$d265], a pop hl pop bc ret ; fb908 Functionfb908: ; fb908 push bc push hl ld a, [$d265] dec a ld hl, $791c ld b, $0 ld c, a add hl, bc ld a, [hl] ld [$d265], a pop hl pop bc ret ; fb91c INCBIN "baserom.gbc",$fb91c,$fba18 - $fb91c Functionfba18: ; fba18 ld a, [UnownLetter] ld c, a ld b, $1a ld hl, UnownDex .asm_fba21 ld a, [hli] and a jr z, .asm_fba2b cp c ret z dec b jr nz, .asm_fba21 ret .asm_fba2b dec hl ld [hl], c ret ; fba2e ; no known jump sources Functionfba2e: ; fba2e (3e:7a2e) ld hl, $c5d0 ld bc, $c ld a, $7f call ByteFill ld a, [$c7dd] ld e, a ld d, $0 ld hl, EndPokedexSeen ; $ded9 (aliases: UnownDex) add hl, de ld a, [hl] ld e, a ld d, $0 ld hl, $7a5a add hl, de add hl, de ld a, [hli] ld e, a ld d, [hl] ld hl, $c5d0 .asm_fba52 ld a, [de] cp $ff ret z inc de ld [hli], a jr .asm_fba52 ; fba5a (3e:7a5a) INCBIN "baserom.gbc",$fba5a,$fbb32 - $fba5a Functionfbb32: ; fbb32 callba Function50000 jr c, .asm_fbb9e ld a, [CurPartySpecies] cp $81 jr nz, .asm_fbba4 ld a, [CurPartyMon] ld hl, PartyMon1Species ld bc, $0030 call AddNTimes push hl ld bc, $0015 add hl, bc ld d, h ld e, l pop hl ld bc, $0006 add hl, bc ld b, h ld c, l call CalcMagikarpLength call Functionfbbdb callba Function105f33 ld hl, $7ba9 call PrintText ld hl, Buffer1 ld de, $dfe8 ld c, $2 call StringCmp jr nc, .asm_fbb98 ld hl, Buffer1 ld de, $dfe8 ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a inc de ld a, [CurPartyMon] ld hl, PartyMon1OT call SkipNames call CopyBytes ld a, $3 ld [ScriptVar], a ret .asm_fbb98 ld a, $2 ld [ScriptVar], a ret .asm_fbb9e ld a, $1 ld [ScriptVar], a ret .asm_fbba4 xor a ld [ScriptVar], a ret ; fbba9 INCBIN "baserom.gbc",$fbba9,$fbbae - $fbba9 Functionfbbae: ; fbbae ld hl, $96e0 ld de, $7bbb ld bc, $3e02 call Request2bpp ret ; fbbbb INCBIN "baserom.gbc",$fbbbb,$fbbdb - $fbbbb Functionfbbdb: ; fbbdb call Functionfbbae ld hl, StringBuffer1 ld de, Buffer1 ld bc, $4102 call PrintNum ld [hl], $6e inc hl ld de, Buffer2 ld bc, $4102 call PrintNum ld [hl], $6f inc hl ld [hl], $50 ret ; fbbfc INCLUDE "battle/magikarp_length.asm" INCBIN "baserom.gbc",$fbccf,$fbcd2 - $fbccf Functionfbcd2: ; fbcd2 ld a, [$dfe8] ld [Buffer1], a ld a, [$dfe9] ld [Buffer2], a call Functionfbbdb ld hl, $7ce8 call PrintText ret ; fbce8 INCBIN "baserom.gbc",$fbce8,$fbced - $fbce8 INCLUDE "battle/hidden_power.asm" Functionfbd54: ; fbd54 xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, [hBattleTurn] ; $ff00+$e4 and a jr z, .asm_fbd61 call Functionfbd96 jr .asm_fbd64 .asm_fbd61 call Functionfbd9d .asm_fbd64 call ClearBox jr asm_fbd91 ; no known jump sources Functionfbd69: ; fbd69 (3e:7d69) callba BattleCommanda6 jr asm_fbd77 ; no known jump sources Functionfbd71: ; fbd71 (3e:7d71) callba BattleCommanda7 ; known jump sources: fbd6f (3e:7d6f) asm_fbd77: ; fbd77 (3e:7d77) xor a ld [hBGMapMode], a ; $ff00+$d4 ld a, [hBattleTurn] ; $ff00+$e4 and a jr z, .asm_fbd85 call Functionfbd96 xor a jr .asm_fbd8a .asm_fbd85 call Functionfbd9d ld a, $31 .asm_fbd8a ld [$FF00+$ad], a ld a, $13 call Predef asm_fbd91: ; fbd91 (3e:7d91) ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ret ; known jump sources: fbd5c (3e:7d5c), fbd7f (3e:7d7f) Functionfbd96: ; fbd96 (3e:7d96) ld hl, $c4ac ld bc, $707 ret ; known jump sources: fbd61 (3e:7d61), fbd85 (3e:7d85) Functionfbd9d: ; fbd9d (3e:7d9d) ld hl, $c51a ld bc, $606 ret DoWeatherModifiers: ; fbda4 ld de, .WeatherTypeModifiers ld a, [Weather] ld b, a ld a, [$d265] ; move type ld c, a .CheckWeatherType ld a, [de] inc de cp $ff jr z, .asm_fbdc0 cp b jr nz, .NextWeatherType ld a, [de] cp c jr z, .ApplyModifier .NextWeatherType inc de inc de jr .CheckWeatherType .asm_fbdc0 ld de, .WeatherMoveModifiers ld a, BATTLE_VARS_MOVE_EFFECT call GetBattleVar ld c, a .CheckWeatherMove ld a, [de] inc de cp $ff jr z, .done cp b jr nz, .NextWeatherMove ld a, [de] cp c jr z, .ApplyModifier .NextWeatherMove inc de inc de jr .CheckWeatherMove .ApplyModifier xor a ld [hMultiplicand], a ld hl, CurDamage ld a, [hli] ld [$ffb5], a ld a, [hl] ld [$ffb6], a inc de ld a, [de] ld [hMultiplier], a call Multiply ld a, 10 ld [hMultiplier], a ld b, $4 call Divide ld a, [hMultiplicand] and a ld bc, $ffff jr nz, .Update ld a, [$ffb5] ld b, a ld a, [$ffb6] ld c, a or b jr nz, .Update ld bc, 1 .Update ld a, b ld [CurDamage], a ld a, c ld [CurDamage + 1], a .done ret .WeatherTypeModifiers db WEATHER_RAIN, WATER, 15 db WEATHER_RAIN, FIRE, 05 db WEATHER_SUN, FIRE, 15 db WEATHER_SUN, WATER, 05 db $ff .WeatherMoveModifiers db WEATHER_RAIN, EFFECT_SOLARBEAM, 05 db $ff ; fbe24 DoBadgeTypeBoosts: ; fbe24 ld a, [InLinkBattle] and a ret nz ld a, [$cfc0] and a ret nz ld a, [hBattleTurn] and a ret nz push de push bc ld hl, .BadgeTypes ld a, [KantoBadges] ld b, a ld a, [JohtoBadges] ld c, a .CheckBadge ld a, [hl] cp $ff jr z, .done srl b rr c jr nc, .NextBadge ld a, [$d265] ; move type cp [hl] jr z, .ApplyBoost .NextBadge inc hl jr .CheckBadge .ApplyBoost ld a, [CurDamage] ld h, a ld d, a ld a, [CurDamage + 1] ld l, a ld e, a srl d rr e srl d rr e srl d rr e ld a, e or d jr nz, .asm_fbe6f ld e, 1 .asm_fbe6f add hl, de jr nc, .Update ld hl, $ffff .Update ld a, h ld [CurDamage], a ld a, l ld [$d257], a .done pop bc pop de ret .BadgeTypes db FLYING ; zephyrbadge db BUG ; hivebadge db NORMAL ; plainbadge db GHOST ; fogbadge db STEEL ; mineralbadge db FIGHTING ; stormbadge db ICE ; glacierbadge db DRAGON ; risingbadge db ROCK ; boulderbadge db WATER ; cascadebadge db ELECTRIC ; thunderbadge db GRASS ; rainbowbadge db POISON ; soulbadge db PSYCHIC ; marshbadge db FIRE ; volcanobadge db GROUND ; earthbadge db $ff ; fbe91 SECTION "bank3F", ROMX, BANK[$3F] INCLUDE "tilesets/animations.asm" Functionfcba8: ; fcba8 ld a, e ld [$cf63], a call Functionfcc59 ld b, $2 call Functionfcc4a ld a, $4 jr nz, .asm_fcc03 ld a, $0 call Functionfcf38 call YesNoBox ld a, $1 jr c, .asm_fcc03 ld b, $6 callba Function5001d ld a, $1 jr c, .asm_fcc03 ld e, $1 call LoadTradesPointer ld a, [CurPartySpecies] cp [hl] ld a, $2 jr nz, .asm_fcc03 call Functionfcc23 ld a, $2 jr c, .asm_fcc03 ld b, $1 call Functionfcc4a ld hl, $4f7b call PrintText call Functionfcc63 call Functionfcc07 call Functionfce1b ld hl, $4f80 call PrintText call Function3d47 ld a, $3 .asm_fcc03 call Functionfcf38 ret ; fcc07 Functionfcc07: ; fcc07 call Function2ed3 ld a, [$cf63] push af ld a, [$cf64] push af ld a, $1e call Predef pop af ld [$cf64], a pop af ld [$cf63], a call Function2b74 ret ; fcc23 Functionfcc23: ; fcc23 xor a ld [MonType], a ld e, $1e call LoadTradesPointer ld a, [hl] and a jr z, .asm_fcc46 cp $1 jr z, .asm_fcc3e callba GetGender jr nz, .asm_fcc48 jr .asm_fcc46 .asm_fcc3e callba GetGender jr z, .asm_fcc48 .asm_fcc46 and a ret .asm_fcc48 scf ret ; fcc4a Functionfcc4a: ; fcc4a ld hl, $d960 ld a, [$cf63] ld c, a ld a, $3 call Predef ld a, c and a ret ; fcc59 Functionfcc59: ; fcc59 ld e, $0 call LoadTradesPointer ld a, [hl] ld [$cf64], a ret ; fcc63 Functionfcc63: ; fcc63 ld e, $1 call LoadTradesPointer ld a, [hl] ld [PlayerSDefLevel], a ld e, $2 call LoadTradesPointer ld a, [hl] ld [PlayerLightScreenCount], a ld a, [PlayerSDefLevel] ld de, PlayerAccLevel call Functionfcde8 call Functionfcdf4 ld a, [PlayerLightScreenCount] ld de, PlayerReflectCount call Functionfcde8 call Functionfcdf4 ld hl, PartyMon1OT ld bc, $000b call Functionfcdd7 ld de, $c6f2 call Functionfcdf4 ld hl, PlayerName ld de, $c6e7 call Functionfcdf4 ld hl, PartyMon1ID ld bc, $0030 call Functionfcdd7 ld de, PlayerScreens call Functionfce0f ld hl, PartyMon1DVs ld bc, $0030 call Functionfcdd7 ld de, $c6fd call Functionfce0f ld hl, PartyMon1Species ld bc, $0030 call Functionfcdd7 ld b, h ld c, l callba GetCaughtGender ld a, c ld [$c701], a ld e, $0 call LoadTradesPointer ld a, [hl] cp $3 ld a, $1 jr c, .asm_fcce6 ld a, $2 .asm_fcce6 ld [$c733], a ld hl, PartyMon1Level ld bc, $0030 call Functionfcdd7 ld a, [hl] ld [CurPartyLevel], a ld a, [PlayerLightScreenCount] ld [CurPartySpecies], a xor a ld [MonType], a ld [$d10b], a callab Functione039 ld a, $6 call Predef ld e, $0 call LoadTradesPointer ld a, [hl] cp $3 ld b, $0 jr c, .asm_fcd1c ld b, $1 .asm_fcd1c callba Function4dba3 ld e, $3 call LoadTradesPointer ld de, FailedMessage call Functionfcdf4 ld hl, PartyMon1Nickname ld bc, $000b call Functionfcdde ld hl, FailedMessage call Functionfcdf4 ld e, $13 call LoadTradesPointer push hl ld de, $c724 call Functionfcdf4 pop hl ld de, $c719 call Functionfcdf4 ld hl, PartyMon1OT ld bc, $000b call Functionfcdde ld hl, $c724 call Functionfcdf4 ld e, $e call LoadTradesPointer ld de, $c72f call Functionfce0f ld hl, PartyMon1DVs ld bc, $0030 call Functionfcdde ld hl, $c72f call Functionfce0f ld e, $11 call LoadTradesPointer ld de, $c732 call Functionfce15 ld hl, PartyMon1ID ld bc, $0030 call Functionfcdde ld hl, $c731 call Functionfce0f ld e, $10 call LoadTradesPointer push hl ld hl, PartyMon1Item ld bc, $0030 call Functionfcdde pop hl ld a, [hl] ld [de], a push af push bc push de push hl ld a, [CurPartyMon] push af ld a, [PartyCount] dec a ld [CurPartyMon], a callba Functione134 pop af ld [CurPartyMon], a pop hl pop de pop bc pop af ret ; fcdc2 LoadTradesPointer: ; 0xfcdc2 ld d, 0 push de ld a, [$cf63] and $f swap a ld e, a ld d, $0 ld hl, Trades add hl, de add hl, de pop de add hl, de ret ; 0xfcdd7 Functionfcdd7: ; fcdd7 ld a, [CurPartyMon] call AddNTimes ret ; fcdde Functionfcdde: ; fcdde ld a, [PartyCount] dec a call AddNTimes ld e, l ld d, h ret ; fcde8 Functionfcde8: ; fcde8 push de ld [$d265], a call GetBasePokemonName ld hl, StringBuffer1 pop de ret ; fcdf4 Functionfcdf4: ; fcdf4 ld bc, $000b call CopyBytes ret ; fcdfb INCBIN "baserom.gbc",$fcdfb,$fce0f - $fcdfb Functionfce0f: ; fce0f ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a ret ; fce15 Functionfce15: ; fce15 ld a, [hli] ld [de], a dec de ld a, [hl] ld [de], a ret ; fce1b Functionfce1b: ; fce1b ld e, $2 call LoadTradesPointer ld a, [hl] call Functionfcde8 ld de, StringBuffer2 call Functionfcdf4 ld e, $1 call LoadTradesPointer ld a, [hl] call Functionfcde8 ld de, $d050 call Functionfcdf4 ld hl, StringBuffer1 .asm_fce3c ld a, [hli] cp $50 jr nz, .asm_fce3c dec hl push hl ld e, $1e call LoadTradesPointer ld a, [hl] pop hl and a ret z cp $1 ld a, $ef jr z, .asm_fce54 ld a, $f5 .asm_fce54 ld [hli], a ld [hl], $50 ret ; fce58 Trades: ; 0xfce58 ; byte 1: dialog ; byte 2: givemon ; byte 3: getmon ; bytes 4-14 nickname ; bytes 15-16 DVs ; byte 17 held item ; bytes 18-19 ID ; bytes 20-30 OT name ; byte 31 gender ; byte 32 XXX always zero? db 0,ABRA,MACHOP,"MUSCLE@@@@@", $37, $66,GOLD_BERRY, $54, $92,"MIKE@@@@@@@",0,0 db 0,BELLSPROUT,ONIX,"ROCKY@@@@@@", $96, $66,BITTER_BERRY, $1e, $bf,"KYLE@@@@@@@",0,0 db 1,KRABBY,VOLTORB,"VOLTY@@@@@@", $98, $88,PRZCUREBERRY, $05, $72,"TIM@@@@@@@@",0,0 db 3,DRAGONAIR,DODRIO,"DORIS@@@@@@", $77, $66,SMOKE_BALL, $1b, $01,"EMY@@@@@@@@",2,0 db 2,HAUNTER,XATU,"PAUL@@@@@@@", $96, $86,MYSTERYBERRY, $00, $3d,"CHRIS@@@@@@",0,0 db 3,CHANSEY,AERODACTYL,"AEROY@@@@@@", $96, $66,GOLD_BERRY, $7b, $67,"KIM@@@@@@@@",0,0 db 0,DUGTRIO,MAGNETON,"MAGGIE@@@@@", $96, $66,METAL_COAT, $a2, $c3,"FOREST@@@@@",0,0 Functionfcf38: ; fcf38 push af call Functionfce1b pop af ld bc, $0008 ld hl, $4f53 call AddNTimes ld a, [$cf64] ld c, a add hl, bc add hl, bc ld a, [hli] ld h, [hl] ld l, a call PrintText ret ; fcf53 INCBIN "baserom.gbc",$fcf53,$fcfec - $fcf53 Functionfcfec: ; fcfec ld a, [$d45c] and a ret nz call Function2d05 and a ret nz xor a ld [$dc18], a call Functionfd044 ret nc call Functionfd0c3 ret nc ld b, $3f ld de, $500f callba Function97c4f scf ret ; fd00f INCBIN "baserom.gbc",$fd00f,$fd017 - $fd00f call Functionfd0a6 call Functionfd0eb ld a, [$dc18] and a jr nz, .asm_fd027 ld hl, $dc17 inc [hl] .asm_fd027 ld a, $1 ld [$dbf9], a ld bc, CurFruit ; $d03f ld hl, $0 add hl, bc ld [hl], $0 inc hl ld [hl], $1 ld hl, $9 add hl, bc ld a, $3f ld [hli], a ld a, e ld [hli], a ld a, d ld [hl], a ret Functionfd044: ; fd044 ld a, [$dc17] cp $a jr nc, .asm_fd065 call Functionfd117 ld a, [hli] ld [$ffc3], a ld a, [hli] ld [$ffc4], a ld a, [hli] ld [$ffc5], a ld de, $d851 ld bc, $ffc3 callba Function1600b jr nc, .asm_fd067 .asm_fd065 jr .asm_fd069 .asm_fd067 scf ret .asm_fd069 ld hl, $ffc3 ld [hl], $0 inc hl ld [hl], $8 inc hl ld [hl], $fc .asm_fd074 ld de, $dc19 ld bc, $d851 callba Function1600b jr z, .asm_fd08b jr nc, .asm_fd089 call Functionfd099 jr .asm_fd074 .asm_fd089 xor a ret .asm_fd08b call Functionfd099 ld a, $5 call Function2fb1 inc a ld [$dc18], a scf ret ; fd099 Functionfd099: ; fd099 ld de, $dc19 ld bc, $ffc3 callba Function16053 ret ; fd0a6 ; known jump sources: fd017 (3f:5017) Functionfd0a6: ; fd0a6 (3f:50a6) call Functionfd117 ld de, $3 add hl, de ld a, [hli] ld [$FF00+$c3], a ld a, [hli] ld [$FF00+$c4], a ld a, [hli] ld [$FF00+$c5], a ld de, $d851 ld bc, $ffc3 callba Function15ffa ret Functionfd0c3: ; fd0c3 call Functionfd117 ld de, $0006 add hl, de ld a, [hli] cp $1 jr z, .asm_fd0db ld a, [hl] ld c, a ld b, $1 callba Function26ef1 scf ret .asm_fd0db ld a, [hl] ld [CurItem], a ld a, $1 ld [$d10c], a ld hl, PCItems call ReceiveItem ret ; fd0eb ; known jump sources: fd01a (3f:501a) Functionfd0eb: ; fd0eb (3f:50eb) call Functionfd117 ld de, $6 add hl, de ld a, [hli] ld de, $50fd cp $1 ret z ld de, $510a ret ; fd0fd (3f:50fd) INCBIN "baserom.gbc",$fd0fd,$fd117 - $fd0fd Functionfd117: ; fd117 ld a, [$dc18] and a jr z, .asm_fd123 dec a ld de, $5136 jr .asm_fd12e .asm_fd123 ld a, [$dc17] cp $a jr c, .asm_fd12b xor a .asm_fd12b ld de, $515e .asm_fd12e ld l, a ld h, $0 add hl, hl add hl, hl add hl, hl add hl, de ret ; fd136 INCBIN "baserom.gbc",$fd136,$fd1d0 - $fd136 Functionfd1d0: ; fd1d0 ret ; fd1d1 INCBIN "baserom.gbc",$fd1d1,$fd1d2 - $fd1d1 SECTION "bank40", ROMX, BANK[$40] Function100000: ; 100000 ld a, [rSVBK] push af ld a, $1 ld [rSVBK], a call Function100022 call Function1000ba call Function100675 call Function100057 call Function10016f call Function100276 push bc call Function100301 pop bc pop af ld [rSVBK], a ret ; 100022 Function100022: ; 100022 push de push bc call Function100063 pop bc pop de ld a, d ld [$cd21], a ld a, e ld [CreditsTimer], a ld a, c ld [$cd23], a ld a, b ld [$cd24], a callba Function10127e callba Function106462 callba Function106464 callba Function11615a ld hl, VramState set 1, [hl] ret ; 100057 Function100057: ; 100057 call Function1000a4 call Function222a ld hl, VramState res 1, [hl] ret ; 100063 Function100063: ; 100063 xor a ld hl, BGMapBuffer ld bc, $0065 call ByteFill xor a ld hl, $c300 ld bc, Start call ByteFill ld a, [rIE] ld [BGMapBuffer], a xor a ld [$ffde], a ld [hLCDStatCustom], a ret ; 100082 INCBIN "baserom.gbc",$100082,$1000a4 - $100082 Function1000a4: ; 1000a4 di xor a ld [$ffc9], a ld [$ffe9], a xor a ld [$ff9e], a call NormalSpeed xor a ld [rIF], a ld a, [BGMapBuffer] ld [rIE], a ei ret ; 1000ba Function1000ba: ; 1000ba .asm_1000ba ld hl, $cd23 ld a, [hli] ld h, [hl] ld l, a ld a, [$cd25] ld e, a ld d, $0 add hl, de add hl, de ld a, [CreditsTimer] call GetFarHalfword ld a, [CreditsTimer] rst FarCall call Function1000e8 call Function1000fa call Function100144 call Function100163 ld a, [$cd2b] and a jr z, .asm_1000ba call DelayFrame ret ; 1000e8 Function1000e8: ; 1000e8 ld hl, $cd29 bit 7, [hl] ret z callba Function115dd3 ld hl, $cd29 set 6, [hl] ret ; 1000fa Function1000fa: ; 1000fa ld a, [$c30d] and a ret z ld hl, $cd29 bit 4, [hl] ret z ld a, [$cd2b] and a jr nz, .asm_100117 callba Function11619d ld hl, $cd29 set 6, [hl] ret .asm_100117 di xor a ld [rIF], a ld a, [rIE] and $13 ld [rIE], a xor a ld [$ffc9], a ld [$ffe9], a ei ld a, [InLinkBattle] push af xor a ld [InLinkBattle], a ld a, $4 ld [$c319], a callba Function11619d ld hl, $cd29 set 6, [hl] pop af ld [InLinkBattle], a ret ; 100144 Function100144: ; 100144 ld hl, $cd29 bit 5, [hl] jr z, .asm_100155 res 5, [hl] res 2, [hl] res 6, [hl] call Function100320 ret .asm_100155 bit 2, [hl] ret z res 2, [hl] res 6, [hl] callba Function10402d ret ; 100163 Function100163: ; 100163 ld hl, $cd29 bit 6, [hl] ret z res 6, [hl] call DelayFrame ret ; 10016f Function10016f: ; 10016f ld a, [$cd2b] cp $1 ret z cp $2 ret z cp $ff jp z, .asm_1001f5 cp $fe jr z, .asm_1001c4 cp $f5 jr z, .asm_1001e7 cp $f6 jr z, .asm_1001b6 cp $fa jp z, .asm_1001bd cp $f7 jp z, .asm_1001ee cp $f4 jr z, .asm_1001d2 cp $f3 jr z, .asm_1001cb cp $f1 jr z, .asm_1001c4 cp $f2 jr z, .asm_1001c4 cp $fc jr z, .asm_1001e6 cp $fb jr z, .asm_1001af cp $f8 ret z ret .asm_1001af ld a, $d7 ld de, $0000 jr .asm_1001d7 .asm_1001b6 ld a, $d5 ld de, $0000 jr .asm_1001d7 .asm_1001bd ld a, $d6 ld de, $0000 jr .asm_1001d7 .asm_1001c4 ld a, $d2 ld de, $0002 jr .asm_1001d7 .asm_1001cb ld a, $d1 ld de, $0001 jr .asm_1001d7 .asm_1001d2 ld a, $d0 ld de, $0000 .asm_1001d7 ld [$c300], a ld a, d ld [$c302], a ld a, e ld [$c301], a call Function10020b ret .asm_1001e6 ret .asm_1001e7 ld de, String10025e call Function100232 ret .asm_1001ee ld de, String10024d call Function100232 ret .asm_1001f5 ld a, [$cd2c] ld [$c300], a ld a, [$cd2d] ld [$c302], a ld a, [$cd2d] ld [$c301], a call Function10020b ret ; 10020b Function10020b: ; 10020b xor a ld [$c303], a callba Function8c084 callba Function106464 call HideSprites call DelayFrame ld a, [rSVBK] push af ld a, $1 ld [rSVBK], a callba Function17f555 pop af ld [rSVBK], a ret ; 100232 Function100232: ; 100232 push de callba Function106464 call Function3f20 call Function1ad2 hlcoord 1, 2 pop de call PlaceString call Function100320 call Functiona36 ret ; 10024d String10024d: ; 10024d db "つうしんを キャンセル しました@" ; 10025e String10025e: ; 10025e db "おともだちと えらんだ へやが", $4e db "ちがうようです@" ; 100276 Function100276: ; 100276 ld a, [$cd2b] cp $1 jr z, .asm_10029f cp $2 jr z, .asm_100296 cp $f5 jr z, .asm_1002a5 cp $f6 jr z, .asm_1002a5 cp $f7 jr z, .asm_100293 cp $f8 jr z, .asm_1002b1 jr .asm_1002c0 .asm_100293 ld c, $2 ret .asm_100296 callba Script_reloadmappart ld c, $4 ret .asm_10029f call Function1002dc ld c, $0 ret .asm_1002a5 callba Script_reloadmappart call Function1002ed ld c, $3 ret .asm_1002b1 call Function1002c9 call Function1002dc ld de, String10024d call Function100232 ld c, $2 ret .asm_1002c0 call Function1002c9 call Function1002dc ld c, $1 ret ; 1002c9 Function1002c9: ; 1002c9 ld hl, $cd2a bit 0, [hl] ret z callba Function3f6d0 callba Function1500c ret ; 1002dc Function1002dc: ; 1002dc ld a, $f8 ld [$ff9f], a callba Function15363 xor a ld [$ff9f], a call Functione51 ret ; 1002ed Function1002ed: ; 1002ed callba Function49409 callba Function96a4 ld a, $1 ld [hCGBPalUpdate], a call DelayFrame ret ; 100301 Function100301: ; 100301 ld hl, $cd2a bit 1, [hl] ret z callba Function106464 callba Function10202c callba Function115dd3 call Function100320 call Functiona36 ret ; 100320 Function100320: ; 100320 callba Function104099 ret ; 100327 INCBIN "baserom.gbc",$100327,$10032e - $100327 Function10032e: ; 10032e call Function10034d ld e, a ret nc ld [$cd2b], a ret ; 100337 Function100337: ; 100337 call Function10032e ret c ld a, [$c821] bit 4, a jr z, .asm_100345 ld a, e and a ret .asm_100345 ld a, $f9 ld e, a ld [$cd2b], a scf ret ; 10034d Function10034d: ; 10034d ld a, [$c821] bit 1, a jr nz, .asm_10036a bit 2, a jr nz, .asm_10037e bit 3, a jr nz, .asm_100366 bit 0, a jr nz, .asm_100364 ld a, $1 and a ret .asm_100364 xor a ret .asm_100366 ld a, $2 and a ret .asm_10036a ld a, $0 call Function3e32 ld [$cd2c], a ld a, h ld [$cd2d], a ld a, l ld [$cd2e], a ld a, $ff scf ret .asm_10037e ld a, $fe scf ret ; 100382 Function100382: ; 100382 ld a, [$cd27] ld hl, $444e rst JumpTable ret ; 10038a Function10038a: ; 10038a ld hl, $ccb4 ld a, $2e call Function3e32 ret ; 100393 Function100393: ; 100393 ld hl, $cc60 ld a, $3a call Function3e32 ret ; 10039c Function10039c: ; 10039c ld hl, $cc60 ld de, $d000 ld bc, $0054 ld a, $3 call FarCopyWRAM ret ; 1003ab INCBIN "baserom.gbc",$1003ab,$1003ba - $1003ab Function1003ba: ; 1003ba ld hl, $ccb4 ld de, $d080 ld bc, $0054 ld a, $3 call FarCopyWRAM ret ; 1003c9 Function1003c9: ; 1003c9 ld hl, $d080 ld de, $ccb4 ld bc, $0054 ld a, $3 call FarCopyWRAM ret ; 1003d8 Function1003d8: ; 1003d8 ld hl, $ccb4 ld a, [hli] ld c, a ld b, $0 push hl add hl, bc ld a, [BGMapPalBuffer] ld [hl], a pop hl inc bc call Function10043a add hl, bc ld [hl], e inc hl ld [hl], d ld a, c add $2 ld [$ccb4], a ret ; 1003f5 Function1003f5: ; 1003f5 ld a, [$cc60] sub $3 ld [$cc60], a ld a, [$ccb4] sub $3 ld [$ccb4], a ret ; 100406 Function100406: ; 100406 ld a, [$cc60] sub $2 ld c, a ld b, $0 ld hl, $cc61 call Function10043a add hl, bc ld a, [hli] cp e jr nz, .asm_100426 ld a, [hld] cp d jr nz, .asm_100426 dec hl ld a, [BGMapPalBuffer] cp [hl] jr nz, .asm_10042d xor a ret .asm_100426 ld a, $f4 ld [$cd2b], a jr .asm_100432 .asm_10042d ld a, $f3 ld [$cd2b], a .asm_100432 push hl ld hl, $cd7c inc [hl] pop hl scf ret ; 10043a Function10043a: ; 10043a push hl push bc ld de, $0000 .asm_10043f ld a, [hli] add e ld e, a ld a, d adc $0 ld d, a dec bc ld a, b or c jr nz, .asm_10043f pop bc pop hl ret ; 10044e ; no known jump sources Jumptable_10044e: ; 10044e (40:444e) dw Function10046a dw Function10047c dw Function100493 dw Function1004ba dw Function1004f4 dw Function1004ce dw Function1004de dw Function1004a4 dw Function100495 dw Function1004ce dw Function1004de dw Function1004e9 dw Function1004f4 dw Function1004a4 Function10046a: ; 10046a ld hl, BGMapPalBuffer inc [hl] call Function1003d8 call Function1003ba ld a, [$cd27] inc a ld [$cd27], a ret ; 10047c Function10047c: ; 10047c call Function100337 ret c ret z cp $2 jr z, .asm_100487 jr .asm_10048d .asm_100487 ld a, $8 ld [$cd27], a ret .asm_10048d ld a, $2 ld [$cd27], a ret ; 100493 Function100493: ; 100493 jr asm_100497 Function100495: ; 100495 jr asm_100497 asm_100497 call Function100337 ret c ret z ld a, [$cd27] inc a ld [$cd27], a ret ; 1004a4 Function1004a4: ; 1004a4 call Function100406 jr c, .asm_1004b8 call Function1003c9 call Function1003f5 ld a, [$cd27] set 7, a ld [$cd27], a ret .asm_1004b8 scf ret ; 1004ba Function1004ba: ; 1004ba call Function10038a and a jr nz, .asm_1004c8 ld a, [$cd27] inc a ld [$cd27], a ret .asm_1004c8 ld a, $8 ld [$cd27], a ret ; 1004ce Function1004ce: ; 1004ce call Function100337 ret c ret z cp $2 ret nz ld a, [$cd27] inc a ld [$cd27], a ret ; 1004de Function1004de: ; 1004de call Function100393 ld a, [$cd27] inc a ld [$cd27], a ret ; 1004e9 Function1004e9: ; 1004e9 call Function10038a ld a, [$cd27] inc a ld [$cd27], a ret ; 1004f4 Function1004f4: ; 1004f4 call Function100337 ret c ret z ld a, [$cd27] inc a ld [$cd27], a call Function10039c ret ; 100504 Function100504: ; 100504 push de call Function3f20 call Function1ad2 pop de ld hl, $c4cc call PlaceString ret ; 100513 INCBIN "baserom.gbc",$100513,$10062d - $100513 Function10062d: ; 10062d push bc call Function10064e pop bc ld a, [$cd44] cp b jr nc, .asm_10063a and a ret .asm_10063a ld a, $fa ld [$cd2b], a scf ret ; 100641 Function100641: ; 100641 xor a ld [$cd44], a ld [$cd45], a ld [$cd46], a ret ; 10064c INCBIN "baserom.gbc",$10064c,$10064e - $10064c Function10064e: ; 10064e ld hl, $cd46 ld a, [hl] add c cp $3c jr c, .asm_100658 xor a .asm_100658 ld [hld], a ret c ld a, [hl] inc a cp $3c jr c, .asm_100661 xor a .asm_100661 ld [hld], a ret c inc [hl] ret ; 100665 INCBIN "baserom.gbc",$100665,$100675 - $100665 Function100675: ; 100675 ld hl, $cd2a bit 2, [hl] set 2, [hl] ret nz call Function1006d3 ret ; 100681 Function100681: ; 100681 push hl ld hl, $cd2a bit 2, [hl] ld hl, $cd2a set 2, [hl] pop hl jr nz, .asm_100694 push hl call Function1006d3 pop hl .asm_100694 ld de, $cd32 ld a, [de] and a jr nz, .asm_1006bb inc de push de call .asm_1006b4 ld de, String1006c2 call PlaceString ld h, b ld l, c pop de inc de call .asm_1006b4 ld de, String1006c6 call PlaceString ret .asm_1006b4 ld bc, $8102 call PrintNum ret .asm_1006bb ld de, String1006ca call PlaceString ret ; 1006c2 String1006c2: ; 1006c2 db "ふん @" String1006c6: ; 1006c6 db "びょう@" String1006ca: ; 1006ca db "1じかんいじょう@" ; 1006d3 Function1006d3: ; 1006d3 call UpdateTime ld de, $cd34 ld hl, $cd38 Function1006dc: ; 1006dc ld a, [hld] ld c, a ld a, [hSeconds] sub c jr nc, .asm_1006e5 add $3c .asm_1006e5 ld [de], a dec de ld a, [hld] ld c, a ld a, [hMinutes] sbc c jr nc, .asm_1006f0 add $3c .asm_1006f0 ld [de], a dec de ld a, [hl] ld c, a ld a, [hHours] sbc c jr nc, .asm_1006fb add $18 .asm_1006fb ld [de], a ret ; 1006fd Function1006fd: ; 1006fd ld a, $4 ld hl, $a800 call GetSRAMBank xor a ld [hli], a ld [hli], a ld [hli], a call CloseSRAM ret ; 10070d Function10070d: ; 10070d ld a, $4 ld hl, $a800 call GetSRAMBank xor a ld [hli], a ld a, $a ld [hli], a xor a ld [hli], a call CloseSRAM ret ; 100720 INCBIN "baserom.gbc",$100720,$10079c - $100720 Function10079c: ; 10079c ld a, [$cd21] cp $1 jr nz, .asm_1007f4 ld hl, $cd2a bit 5, [hl] jr nz, .asm_1007f4 ld hl, $cd2a bit 6, [hl] jr nz, .asm_1007f4 ld a, [$cd6a] add c cp $3c jr nc, .asm_1007be ld [$cd6a], a and a ret .asm_1007be sub $3c ld [$cd6a], a ld d, b push de call Function1007f6 pop de jr c, .asm_1007e5 ld a, c and a jr nz, .asm_1007e5 ld a, b cp $a jr nc, .asm_1007e5 ld a, d and a ret z ld a, [$cd6b] cp b ret z ld a, b ld [$cd6b], a call Function1008e0 and a ret .asm_1007e5 call Function1008e0 ld hl, $cd2a set 4, [hl] ld a, $fc ld [$cd2b], a scf ret .asm_1007f4 and a ret ; 1007f6 Function1007f6: ; 1007f6 call UpdateTime ld hl, $cd74 ld de, $cd71 call Function1006dc ld a, $4 call GetSRAMBank ld hl, $a802 call Function100826 call CloseSRAM ld hl, $cd6e call Function100826 ld a, [hHours] ld [$cd72], a ld a, [hMinutes] ld [$cd73], a ld a, [hSeconds] ld [$cd74], a ret ; 100826 Function100826: ; 100826 ld a, [$cd71] add [hl] sub $3c jr nc, .asm_100830 add $3c .asm_100830 ld [hld], a ccf ld a, [BGMapBufferPtrs] adc [hl] sub $3c jr nc, .asm_10083c add $3c .asm_10083c ld [hld], a ld b, a ccf ld a, [$cd6f] adc [hl] ld [hl], a ld c, a ret ; 100846 INCBIN "baserom.gbc",$100846,$1008a6 - $100846 Function1008a6: ; 1008a6 ld a, $4 ld hl, $a800 call GetSRAMBank ld a, [hli] ld [StringBuffer2], a ld a, [hli] ld [$d087], a ld a, [hli] ld [$d088], a call CloseSRAM ld a, [$d088] ld b, a ld a, $0 sub b jr nc, .asm_1008c8 add $3c .asm_1008c8 ld b, a ld a, [$d087] ld c, a ld a, $a sbc c ld c, a jr c, .asm_1008da ld a, [StringBuffer2] and a jr nz, .asm_1008da ret .asm_1008da call Function10070d ld c, $0 ret ; 1008e0 Function1008e0: ; 1008e0 ld a, [hBGMapMode] ld b, a ld a, [$ff9e] ld c, a push bc xor a ld [hBGMapMode], a ld a, $3 ld [$ff9e], a call Function100970 call Function100902 call Function100989 call DelayFrame pop bc ld a, c ld [$ff9e], a ld a, b ld [hBGMapMode], a ret ; 100902 Function100902: ; 100902 ld hl, $c56b ld b, $1 ld c, $b call TextBox ld a, [$cd6d] ld c, a ld a, $a sub c ld [StringBuffer2], a jr z, .asm_10093f ld de, .string_100966 ld hl, $c580 call PlaceString ld hl, $c584 ld bc, $0102 ld de, StringBuffer2 call PrintNum ld de, SFX_TWO_PC_BEEPS call PlaySFX callba Function104061 ld c, $3c call DelayFrames ret .asm_10093f ld de, .string_10095a ld hl, $c580 call PlaceString ld de, SFX_4_NOTE_DITTY call PlaySFX callba Function104061 ld c, $78 call DelayFrames ret ; 10095a .string_10095a ; 10095a db "たいせん しゅうりょう@" .string_100966 ; 100966 db "のこり ふん", $e7, "@" ; 100970 Function100970: ; 100970 ld hl, TileMap ld de, $dc00 call Function1009a5 ld hl, AttrMap ld de, $dd68 call Function1009a5 call Function1009d2 call Function1009ae ret ; 100989 Function100989: ; 100989 ld hl, $dc00 ld de, TileMap call Function1009a5 call Function1009ae callba Function104061 ld hl, $dd68 ld de, AttrMap call Function1009a5 ret ; 1009a5 Function1009a5: ; 1009a5 ld bc, $0168 ld a, $3 call FarCopyWRAM ret ; 1009ae Function1009ae: ; 1009ae ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a ld hl, $d800 ld de, AttrMap ld c, $14 ld b, $12 .asm_1009bf push bc .asm_1009c0 ld a, [hli] ld [de], a inc de dec c jr nz, .asm_1009c0 ld bc, $000c add hl, bc pop bc dec b jr nz, .asm_1009bf pop af ld [rSVBK], a ret ; 1009d2 Function1009d2: ; 1009d2 ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a ld a, [rVBK] push af ld a, $1 ld [rVBK], a ld hl, $d800 ld de, VBGMap0 ld bc, $0324 call Get2bpp pop af ld [rVBK], a pop af ld [rSVBK], a ret ; 1009f3 Function1009f3: ; 1009f3 ld a, [hJoyDown] and $5 cp $5 jr nz, .asm_100a07 ld hl, $cd2a set 4, [hl] ld a, $f8 ld [$cd2b], a scf ret .asm_100a07 xor a ret ; 100a09 Function100a09: ; 100a09 call Function100a2e ld [$d431], a callba Function4000 ld a, [InLinkBattle] cp $4 jr nz, .asm_100a2a call Function100a87 call Function100da5 callba Function3ee27 jr .asm_100a2d .asm_100a2a call Function100a53 .asm_100a2d ret ; 100a2e Function100a2e: ; 100a2e ld a, [$d0ec] and a jr nz, .asm_100a48 ld a, [CurPlayerMove] ld b, $e cp $a5 jr z, .asm_100a4f ld b, $d cp $ff jr z, .asm_100a4f ld a, [CurMoveNum] jr .asm_100a50 .asm_100a48 ld a, [CurPartyMon] add $4 jr .asm_100a50 .asm_100a4f ld a, b .asm_100a50 and $f ret ; 100a53 Function100a53: ; 100a53 ld a, [$d431] ld [$cf56], a ld a, $ff ld [$cf52], a .asm_100a5e call Function8c1 call DelayFrame ld a, [$cf52] inc a jr z, .asm_100a5e ld b, $a .asm_100a6c call DelayFrame call Function8c1 dec b jr nz, .asm_100a6c ld b, $a .asm_100a77 call DelayFrame call Function908 dec b jr nz, .asm_100a77 ld a, [$cf52] ld [$d430], a ret ; 100a87 Function100a87: ; 100a87 call Function100acf call Function100641 ld a, $0 ld [$cd27], a .asm_100a92 call DelayFrame call GetJoypad callba Function100382 ld c, $1 ld b, $3 push bc call Function10062d pop bc jr c, .asm_100ac7 ld b, $1 call Function10079c jr c, .asm_100ac7 call Function1009f3 jr c, .asm_100ac7 ld a, [$cd2b] and a jr nz, .asm_100ac7 ld a, [$cd27] bit 7, a jr z, .asm_100a92 call Function100ae7 jr .asm_100ace .asm_100ac7 ld a, $f ld [$d430], a jr .asm_100ace .asm_100ace ret ; 100acf Function100acf: ; 100acf ld de, $4b0a ld hl, $ccb5 ld a, [$d431] ld [hli], a ld c, $1 .asm_100adb ld a, [de] inc de ld [hli], a inc c and a jr nz, .asm_100adb ld a, c ld [$ccb4], a ret ; 100ae7 Function100ae7: ; 100ae7 ld de, $4b0a ld hl, $cc62 .asm_100aed ld a, [de] inc de and a jr z, .asm_100af8 cp [hl] jr nz, .asm_100aff inc hl jr .asm_100aed .asm_100af8 ld a, [$cc61] ld [$d430], a ret .asm_100aff ld a, $f ld [$d430], a ld a, $f1 ld [$cd2b], a ret ; 100b0a INCBIN "baserom.gbc",$100b0a,$100b12 - $100b0a Function100b12: ; 100b12 call Function100dd8 ret c ld hl, $4f2c ld a, $9 ld de, LoadMenuDataHeader call FarCall_de ld a, $9 ld [$cf94], a ld a, [$d0d2] ld [$cf88], a call Function100e72 call Function100b45 callba Function8e85 call Function100ed4 ld a, [$cf88] ld [$d0d2], a call Function1c07 ret ; 100b45 Function100b45: ; 100b45 call Function100b7a .asm_100b48 call Function100dd2 callba Function241ba push bc callba Function10402d call Function100e2d pop bc jr c, .asm_100b6b ld a, [$cfa8] and c jr z, .asm_100b48 callba Function24098 ret .asm_100b6b ld a, [$cfa4] ld c, a ld a, [$cfa3] call SimpleMultiply ld [$cf88], a and a ret ; 100b7a Function100b7a: ; 100b7a ld hl, Function1c66 ld a, [$cf94] rst FarCall callba Function24085 callba MobileTextBorder call Function1ad2 call Function321c callba Function2411a ld hl, $cfa5 set 7, [hl] ret ; 100b9f Function100b9f: ; 100b9f xor a ld [$d0e3], a callba Function3e786 ret z call Function100dd8 jp c, Function2ec8 call Function100e72 call Function100bc2 push af callba Function8e85 call Function100ed4 pop af ret ; 100bc2 Function100bc2: ; 100bc2 xor a ld [hBGMapMode], a call Function100c74 call Function100c98 .asm_100bcb callba MoveInfoBox .asm_100bd1 call Function100dd2 callba Function241ba push bc callba Function10402d call Function100e2d pop bc jr c, .asm_100c25 ld a, [$cfa8] and c bit 6, a jp nz, .asm_100bff bit 7, a jp nz, .asm_100c10 bit 0, a jr nz, .asm_100c30 bit 1, a jr nz, .asm_100c25 jr .asm_100bd1 .asm_100bff ld a, [$cfa9] and a jp nz, .asm_100bcb ld a, [$d0eb] inc a ld [$cfa9], a jp .asm_100bcb .asm_100c10 ld a, [$cfa9] ld b, a ld a, [$d0eb] inc a inc a cp b jp nz, .asm_100bcb ld a, $1 ld [$cfa9], a jp .asm_100bcb .asm_100c25 ld a, [$cfa9] dec a ld [CurMoveNum], a ld a, $1 and a ret .asm_100c30 ld a, [$cfa9] dec a ld [CurMoveNum], a ld a, [$cfa9] dec a ld c, a ld b, $0 ld hl, BattleMonPPMove1 add hl, bc ld a, [hl] and $3f jr z, .asm_100c68 ld a, [PlayerDisableCount] swap a and $f dec a cp c jr z, .asm_100c63 ld a, [$cfa9] dec a ld c, a ld b, $0 ld hl, BattleMonMove1 add hl, bc ld a, [hl] ld [CurPlayerMove], a xor a ret .asm_100c63 ld hl, $4c5b jr .asm_100c6b .asm_100c68 ld hl, $4c39 .asm_100c6b call StdBattleTextBox call Function30b4 jp Function100bc2 ; 100c74 Function100c74: ; 100c74 ld hl, $c540 ld b, $8 ld c, $8 call TextBox ld hl, BattleMonMove1 ld de, $d25e ld bc, $0004 call CopyBytes ld a, $28 ld [MagikarpLength], a ld hl, $c56a ld a, $20 call Predef ret ; 100c98 Function100c98: ; 100c98 ld de, $4cad call Function1bb1 ld a, [$d0eb] inc a ld [$cfa3], a ld a, [CurMoveNum] inc a ld [$cfa9], a ret ; 100cad INCBIN "baserom.gbc",$100cad,$100cb5 - $100cad Function100cb5: ; 100cb5 call Function100dd8 ret c ld hl, $cfa5 set 7, [hl] res 6, [hl] .asm_100cc0 call Function100dd2 callba Function241ba push bc callba Function8cf69 callba Function10402d call Function100dfd pop bc jr c, .asm_100d17 ld a, [$cfa8] and c jr z, .asm_100cc0 call Function1bee ld a, [PartyCount] inc a ld b, a ld a, [$cfa9] cp b jr z, .asm_100d17 ld [$d0d8], a ld a, [$ffa9] ld b, a bit 1, b jr nz, .asm_100d17 ld a, [$cfa9] dec a ld [CurPartyMon], a ld c, a ld b, $0 ld hl, PartySpecies add hl, bc ld a, [hl] ld [CurPartySpecies], a ld de, SFX_READ_TEXT_2 call PlaySFX call WaitSFX and a ret .asm_100d17 ld de, SFX_READ_TEXT_2 call PlaySFX call WaitSFX scf ret ; 100d22 Function100d22: ; 100d22 call Function100dd8 ret c call Function100d67 ld hl, $cfa5 set 7, [hl] res 6, [hl] .asm_100d30 call Function100dd2 callba Function241ba push bc callba Function8cf69 callba Function10402d call Function100dfd pop bc jr c, .asm_100d54 ld a, [$cfa8] and c jr nz, .asm_100d56 jr .asm_100d30 .asm_100d54 scf ret .asm_100d56 push af ld de, SFX_READ_TEXT_2 call PlaySFX pop af bit 1, a jr z, .asm_100d65 ret z scf ret .asm_100d65 and a ret ; 100d67 Function100d67: ; 100d67 ld hl, $4d88 call Function1d3c xor a ld [hBGMapMode], a call Function1cbb call Function1ad2 call Function1c89 call WaitBGMap call Function1c66 call Function1c10 ld hl, $cfa5 set 6, [hl] ret ; 100d88 INCBIN "baserom.gbc",$100d88,$100da5 - $100d88 Function100da5: ; 100da5 ld hl, $cd2a res 3, [hl] ld hl, $cd29 res 0, [hl] ret ; 100db0 Function100db0: ; 100db0 ld hl, $cd2a bit 3, [hl] jr nz, .asm_100dbe ld hl, $cd2a set 3, [hl] scf ret .asm_100dbe xor a ret ; 100dc0 Function100dc0: ; 100dc0 ld a, [InLinkBattle] cp $4 jr nz, .asm_100dd0 ld hl, $cd2a bit 3, [hl] jr z, .asm_100dd0 scf ret .asm_100dd0 xor a ret ; 100dd2 Function100dd2: ; 100dd2 ld a, $1e ld [OverworldDelay], a ret ; 100dd8 Function100dd8: ; 100dd8 ld c, $1 ld b, $3 callba Function10062d jr c, .asm_100dfb ld c, $3c ld b, $1 call Function10079c jr c, .asm_100dfb callba Function10032e ld a, [$cd2b] and a jr nz, .asm_100dfb xor a ret .asm_100dfb scf ret ; 100dfd Function100dfd: ; 100dfd ld a, [OverworldDelay] ld c, a ld a, $1e sub c ld c, a ld b, $3 push bc callba Function10062d pop bc jr c, .asm_100e2b ld b, $1 call Function10079c jr c, .asm_100e2b call Function1009f3 jr c, .asm_100e2b callba Function10032e ld a, [$cd2b] and a jr nz, .asm_100e2b xor a ret .asm_100e2b scf ret ; 100e2d Function100e2d: ; 100e2d ld a, [OverworldDelay] ld c, a ld a, $1e sub c ld c, a ld b, $3 push bc callba Function10062d pop bc jr c, .asm_100e61 ld b, $1 call Function10079c jr c, .asm_100e61 call Function1009f3 jr c, .asm_100e61 callba Function10032e ld a, [$cd2b] and a jr nz, .asm_100e61 call Function100e63 call Function100e84 xor a ret .asm_100e61 scf ret ; 100e63 Function100e63: ; 100e63 ld a, e cp $2 ret nz call Function100db0 ret nc ld de, SFX_ELEVATOR_END call PlaySFX ret ; 100e72 Function100e72: ; 100e72 xor a ld hl, $cd29 bit 0, [hl] jr z, .asm_100e7c ld a, $a .asm_100e7c ld [$cd67], a xor a ld [$cd68], a ret ; 100e84 Function100e84: ; 100e84 ld a, [$cd67] ld hl, $4e8c rst JumpTable ret ; 100e8c ; no known jump sources Jumptable_100e8c: ; 100e8c (40:4e8c) dw Function100ea2 dw Function100eae dw Function100eb4 dw Function100eae dw Function100eb4 dw Function100eae dw Function100eb4 dw Function100eae dw Function100eb4 dw Function100eae dw Function100ec4 ; no known jump sources Function100ea2: ; 100ea2 (40:4ea2) call Function100dc0 ret nc ld hl, $cd29 set 0, [hl] call Function100ec5 Function100eae: ; 100eae scf call Function100eca jr asm_100eb8 Function100eb4: ; 100eb4 and a call Function100eca asm_100eb8 ld hl, $cd68 inc [hl] ld a, [hl] cp $2 ret c ld [hl], $0 jr Function100ec5 Function100ec4: ; 100ec4 ret Function100ec5 ld hl, $cd67 inc [hl] ret ; 100eca Function100eca: ; 100eca callba Function8e8b call Function100ed4 ret ; 100ed4 Function100ed4: ; 100ed4 callba Function96a4 ld a, $1 ld [hCGBPalUpdate], a ret ; 100edf INCBIN "baserom.gbc",$100edf,$1011f1 - $100edf Function1011f1: ; 1011f1 ld a, $4 call GetSRAMBank ld a, [$a60c] ld [$dc41], a call CloseSRAM ld hl, $dc41 res 4, [hl] ld hl, GameTimerPause bit 7, [hl] jr z, .asm_101210 ld hl, $dc41 set 4, [hl] .asm_101210 call Function10209c xor a ld [$dc5f], a ld [$dc60], a ld a, $4 ld [InLinkBattle], a ret ; 101220 Function101220: ; 101220 xor a ld [InLinkBattle], a ret ; 101225 Function101225: ; 101225 ld d, $1 ld e, $40 ld bc, $5297 call Function100000 jr Function10123d Function101231: ; 101231 ld d, $2 ld e, $40 ld bc, $5297 call Function100000 jr Function10123d Function10123d: ; 10123d xor a ld [ScriptVar], a ld a, c ld hl, Table101247 rst JumpTable ret ; 101247 Table101247: ; 101247 dw Function101251 dw Function10127d dw Function10127c dw Function10126c dw Function101265 ; 101251 Function101251: ; 101251 call Function1ad2 call ResetWindow ld hl, $61f4 call Function1021e0 call Function1020ea ret c call Function102142 ret ; 101265 Function101265: ; 101265 ld hl, $61ef call Function1021e0 ret ; 10126c Function10126c: ; 10126c call Function1ad2 callba Script_reloadmappart ld hl, $61f4 call Function1021e0 ret ; 10127c Function10127c: ; 10127c ret ; 10127d Function10127d: ; 10127d ret ; 10127e Function10127e: ; 10127e ld a, [$dc5f] and a jr z, .asm_101290 cp $1 ld c, $27 jr z, .asm_101292 cp $2 ld c, $37 jr z, .asm_101292 .asm_101290 ld c, $0 .asm_101292 ld a, c ld [$cd25], a ret ; 101297 INCBIN "baserom.gbc",$101297,$1013aa - $101297 Function1013aa: ; 1013aa call WhiteBGMap call Function1d7d call Function2bae callba Function106464 call Function1ad2 call Function2b5c ret ; 1013c0 INCBIN "baserom.gbc",$1013c0,$1013d6 - $1013c0 Function1013d6: ; 1013d6 callba Function104000 ret ; 1013dd INCBIN "baserom.gbc",$1013dd,$10142c - $1013dd Function10142c: ; 10142c ld a, $1 ld [$c305], a callba Function115e18 ret ; 101438 INCBIN "baserom.gbc",$101438,$101ee4 - $101438 Function101ee4: ; 101ee4 ld d, $0 ld hl, $5ef5 add hl, de add hl, de ld a, [hli] ld d, [hl] ld e, a callba Function100504 ret ; 101ef5 INCBIN "baserom.gbc",$101ef5,$10202c - $101ef5 Function10202c: ; 10202c callba Function115d99 ld hl, $cd29 set 7, [hl] ld c, $2 call Function10142c ld e, $d call Function101ee4 ld hl, $c4f4 call Function100681 ret ; 102048 INCBIN "baserom.gbc",$102048,$10209c - $102048 Function10209c: ; 10209c ld a, $ff ld hl, $dc42 ld bc, $0008 call ByteFill ret ; 1020a8 INCBIN "baserom.gbc",$1020a8,$1020ea - $1020a8 Function1020ea: ; 1020ea ld hl, $dc41 bit 4, [hl] jr z, .asm_102110 ld hl, $dc41 bit 2, [hl] jr nz, .asm_102110 call Function10218d ld hl, EnemyMoveAnimation bit 4, [hl] jr z, .asm_102110 ld hl, EnemyMoveAnimation bit 2, [hl] jr nz, .asm_102110 call Function102112 jr z, .asm_102110 and a ret .asm_102110 scf ret ; 102112 Function102112: ; 102112 ld a, $4 call GetSRAMBank ld hl, $a041 ld c, $28 .asm_10211c push hl ld de, PlayerMoveAnimation ld b, $1f .asm_102122 ld a, [de] cp [hl] jr nz, .asm_10212f inc de inc hl dec b jr nz, .asm_102122 pop hl xor a jr .asm_10213c .asm_10212f pop hl ld de, $0025 add hl, de dec c jr nz, .asm_10211c ld a, $1 and a jr .asm_10213c .asm_10213c push af call CloseSRAM pop af ret ; 102142 Function102142: ; 102142 call Function10218d call Function102180 ld hl, $61d1 call Function1d4f ld de, $0090 call PlaySFX call Functiona36 call Function1c07 call Function10219f ld hl, $61d6 call Function1d4f call YesNoBox call Function1c07 jr c, .asm_10217c call Function1021b8 jr c, .asm_10217c call Function10218d call Function102180 ld hl, $61db call PrintText .asm_10217c call Function1013d6 ret ; 102180 Function102180: ; 102180 ld hl, EnemyMoveEffect ld de, StringBuffer2 ld bc, $000b call CopyBytes ret ; 10218d Function10218d: ; 10218d ld hl, $dc00 ld de, EnemyMoveAnimation ld bc, $0026 ld a, $5 call FarCopyWRAM ld de, EnemyMoveEffect ret ; 10219f Function10219f: ; 10219f call FadeToMenu call Function10218d ld de, EnemyMoveEffect callba Function8ac4e call Functiona36 call PlayClickSFX call Function1013aa ret ; 1021b8 Function1021b8: ; 1021b8 call FadeToMenu call Function10218d ld de, PlayerMoveAnimation callba Function8ac70 ld a, c ld [StringBuffer1], a push af call Function1013aa pop af ret ; 1021d1 INCBIN "baserom.gbc",$1021d1,$1021e0 - $1021d1 Function1021e0: ; 1021e0 call Function1d4f call Functiona36 call Function1c07 ret ; 1021ea INCBIN "baserom.gbc",$1021ea,$103612 - $1021ea Function103612: ; 103612 ld hl, $7640 call LoadMenuDataHeader ld a, [$dc40] and $f jr z, .asm_103622 ld [$cf88], a .asm_103622 call Function1d81 call Function1c17 jr c, .asm_10363b ld a, [$cfa9] ld [ScriptVar], a ld c, a ld a, [$dc40] and $f0 or c ld [$dc40], a ret .asm_10363b xor a ld [ScriptVar], a ret ; 103640 INCBIN "baserom.gbc",$103640,$10366e - $103640 Function10366e: ; 10366e callba Function10632f bit 7, c jr z, .asm_10369b ld hl, $775d call PrintText call YesNoBox jr c, .asm_103696 callba Function8b1e1 jr nc, .asm_103690 call Functiona36 jr .asm_103696 .asm_103690 ld a, $1 ld [ScriptVar], a ret .asm_103696 xor a ld [ScriptVar], a ret .asm_10369b ld hl, $dc40 bit 7, [hl] set 7, [hl] jr nz, .asm_1036b5 ld hl, $7762 call PrintText call YesNoBox jr c, .asm_1036b5 call Function1036f9 call Functiona36 .asm_1036b5 call Function103700 jr c, .asm_1036f4 ld hl, $7747 call LoadMenuDataHeader call Function1d81 call Function1c07 jr c, .asm_1036f4 ld a, [$cfa9] cp $1 jr z, .asm_1036d9 cp $2 jr z, .asm_1036f4 cp $3 jr z, .asm_1036ec jr .asm_1036b5 .asm_1036d9 callba Function8b1e1 jr nc, .asm_1036e6 call Functiona36 jr .asm_1036f4 .asm_1036e6 ld a, $1 ld [ScriptVar], a ret .asm_1036ec call Function1036f9 call Functiona36 jr .asm_1036b5 .asm_1036f4 xor a ld [ScriptVar], a ret ; 1036f9 Function1036f9: ; 1036f9 ld hl, $7767 call PrintText ret ; 103700 Function103700: ; 103700 ld c, $a ld hl, $dc20 bit 4, [hl] jr z, .asm_10370f callba Function1008a6 .asm_10370f ld a, c ld [StringBuffer2], a ld a, [StringBuffer2] cp $5 jr nc, .asm_103724 cp $2 jr nc, .asm_10372c cp $1 jr nc, .asm_103734 jr .asm_10373c .asm_103724 ld hl, $776c call PrintText and a ret .asm_10372c ld hl, $7771 call PrintText and a ret .asm_103734 ld hl, $7776 call PrintText and a ret .asm_10373c ld hl, $777b call PrintText call Functiona36 scf ret ; 103747 INCBIN "baserom.gbc",$103747,$103780 - $103747 Function103780: ; 103780 ld a, [$d265] push af call Function10378c pop af ld [$d265], a ret ; 10378c Function10378c: ; 10378c ld c, $0 ld hl, $dc20 bit 4, [hl] jr nz, .asm_10379c ld c, $1 ld hl, $dc20 set 4, [hl] .asm_10379c push bc callba Function14ab2 pop bc jr c, .asm_1037b5 ld a, $1 ld [ScriptVar], a ld a, c and a ret z callba Function1006fd ret .asm_1037b5 xor a ld [ScriptVar], a ld a, c and a ret z ld hl, $dc20 res 4, [hl] ret ; 1037c2 Function1037c2: ; 1037c2 call Function103823 jr c, .asm_1037de ld a, [$dc5f] and a jr z, .asm_1037de ld hl, $77e6 call PrintText call YesNoBox jr c, .asm_1037de ld a, $1 ld [ScriptVar], a ret .asm_1037de xor a ld [$dc5f], a ld [ScriptVar], a ret ; 1037e6 INCBIN "baserom.gbc",$1037e6,$1037eb - $1037e6 Function1037eb: ; 1037eb call Function103823 jr nc, .asm_103807 ld hl, $7819 call PrintText call Functiona36 ld hl, $781e call PrintText call Functiona36 xor a ld [ScriptVar], a ret .asm_103807 ld a, [$dc60] and a jr nz, .asm_103813 ld a, $1 ld [ScriptVar], a ret .asm_103813 ld a, $2 ld [ScriptVar], a ret ; 103819 INCBIN "baserom.gbc",$103819,$103823 - $103819 Function103823: ; 103823 callba Function10632f bit 7, c jr nz, .asm_103838 callba Function1008a6 ld a, c cp $1 jr c, .asm_10383a .asm_103838 xor a ret .asm_10383a scf ret ; 10383c Function10383c: ; 10383c ld a, $1 ld [$dc60], a xor a ld hl, $dc5c ld [hli], a ld [hli], a ld [hl], a ld hl, $7876 call PrintText call Functiona36 callba Script_reloadmappart callba Function4a94e jr c, .asm_103870 ld hl, DefaultFlypoint ld de, $dc5c ld bc, $0003 call CopyBytes xor a ld [ScriptVar], a ret .asm_103870 ld a, $1 ld [ScriptVar], a ret ; 103876 INCBIN "baserom.gbc",$103876,$10387b - $103876 Function10387b: ; 10387b callba Function10632f bit 7, c ret nz callba Function1008a6 ld a, c ld [StringBuffer2], a ld hl, $7898 call PrintText call Functiona36 ret ; 103898 INCBIN "baserom.gbc",$103898,$10389d - $103898 SECTION "bank41", ROMX, BANK[$41] Function104000: ; 104000 ld hl, $4006 jp Function104177 ; 104006 INCBIN "baserom.gbc",$104006,$10402d - $104006 Function10402d: ; 10402d ld hl, $4033 jp Function104177 ; 104033 ld de, TileMap ; $c4a0 (aliases: SpritesEnd) ld hl, Unkn1Pals ; $d000 call Function10425f ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, Unkn1Pals ; $d000 call Function10419d ret Function104047: ; 104047 ld hl, $404d jp Function104177 ; 10404d ld de, AttrMap ; $cdd9 ld hl, $d400 call Function104263 ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $d400 call Function10419d ret Function104061: ; 104061 ld hl, $4067 jp Function104177 ; 104067 ld de, AttrMap ; $cdd9 ld hl, $d400 call Function104263 ld de, TileMap ; $c4a0 (aliases: SpritesEnd) ld hl, Unkn1Pals ; $d000 call Function10425f call DelayFrame di ld a, [rVBK] ; $ff00+$4f push af ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $d400 call Function1041ad ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, Unkn1Pals ; $d000 call Function1041ad pop af ld [rVBK], a ; $ff00+$4f ei ret Function104099: ; 104099 ld hl, Function104061 ld hl, $40a2 jp Function104177 ; 1040a2 INCBIN "baserom.gbc",$1040a2,$104110 - $1040a2 Function104110: ; 104110 ld hl, $4116 jp Function104177 ; 104116 ld de, AttrMap ; $cdd9 ld hl, $d400 call Function104263 ld de, TileMap ; $c4a0 (aliases: SpritesEnd) ld hl, Unkn1Pals ; $d000 call Function10425f call DelayFrame di ld a, [rVBK] ; $ff00+$4f push af ld a, $1 ld [rVBK], a ; $ff00+$4f ld hl, $d400 call Function1041b7 ld a, $0 ld [rVBK], a ; $ff00+$4f ld hl, Unkn1Pals ; $d000 call Function1041b7 pop af ld [rVBK], a ; $ff00+$4f ei ret ; no known jump sources Function104148: ; 104148 (41:4148) ld hl, $414e jp Function104177 ; 10414e (41:414e) INCBIN "baserom.gbc",$10414e,$104177 - $10414e Function104177: ; 104177 ld a, [hBGMapMode] push af ld a, [$ffde] push af xor a ld [hBGMapMode], a ld [$ffde], a ld a, [rSVBK] push af ld a, $6 ld [rSVBK], a ld a, [rVBK] push af call Function10419c pop af ld [rVBK], a pop af ld [rSVBK], a pop af ld [$ffde], a pop af ld [hBGMapMode], a ret ; 10419c Function10419c: ; 10419c jp [hl] ; 10419d ; known jump sources: 104043 (41:4043), 10405d (41:405d) Function10419d: ; 10419d (41:419d) call Function10424e ld a, $23 ld [hDMATransfer], a ; $ff00+$e8 .asm_1041a4 call DelayFrame ld a, [hDMATransfer] ; $ff00+$e8 and a jr nz, .asm_1041a4 ret ; known jump sources: 104087 (41:4087), 104091 (41:4091) Function1041ad: ; 1041ad (41:41ad) ld a, [$FF00+$d7] ld d, a ld a, [hBGMapAddress] ; $ff00+$d6 ld e, a ld c, $24 jr Function104209 ; known jump sources: 104136 (41:4136), 104140 (41:4140) Function1041b7: ; 1041b7 (41:41b7) ld a, [$FF00+$d7] ld d, a ld a, [hBGMapAddress] ; $ff00+$d6 ld e, a ld c, $24 jr .asm_104205 ; 1041c1 (41:41c1) INCBIN "baserom.gbc",$1041c1,$104205 - $1041c1 .asm_104205 ld b, $7b jr asm_10420b Function104209: ; 104209 ld b, $7f asm_10420b: ld a, h ld [rHDMA1], a ld a, l and $f0 ld [rHDMA2], a ld a, d and $1f ld [rHDMA3], a ld a, e and $f0 ld [rHDMA4], a ld a, c dec c or $80 ld e, a ld a, b sub c ld d, a .asm_104225 ld a, [rLY] cp d jr nc, .asm_104225 di .asm_10422b ld a, [rSTAT] and $3 jr nz, .asm_10422b .asm_104231 ld a, [rSTAT] and $3 jr z, .asm_104231 ld a, e ld [rHDMA5], a ld a, [rLY] inc c ld hl, rLY .asm_104240 cp [hl] jr z, .asm_104240 ld a, [hl] dec c jr nz, .asm_104240 ld hl, rHDMA5 res 7, [hl] ei ret ; 10424e ; known jump sources: 10419d (41:419d) Function10424e: ; 10424e (41:424e) ld a, h ld [rHDMA1], a ; $ff00+$51 ld a, l ld [rHDMA2], a ; $ff00+$52 ld a, [$FF00+$d7] and $1f ld [rHDMA3], a ; $ff00+$53 ld a, [hBGMapAddress] ; $ff00+$d6 ld [rHDMA4], a ; $ff00+$54 ret ; known jump sources: 104039 (41:4039), 104076 (41:4076), 104125 (41:4125) Function10425f: ; 10425f (41:425f) ld c, $7f jr asm_104265 ; known jump sources: 104053 (41:4053), 10406d (41:406d), 10411c (41:411c) Function104263: ; 104263 (41:4263) ld c, $0 ; known jump sources: 104261 (41:4261) asm_104265: ; 104265 (41:4265) ld a, [hConnectionStripLength] ; $ff00+$af push af ld a, c ld [hConnectionStripLength], a ; $ff00+$af ld c, $12 .asm_10426d ld b, $14 .asm_10426f ld a, [de] inc de ld [hli], a dec b jr nz, .asm_10426f ld a, [hConnectionStripLength] ; $ff00+$af ld b, $c .asm_104279 ld [hli], a dec b jr nz, .asm_104279 dec c jr nz, .asm_10426d pop af ld [hConnectionStripLength], a ; $ff00+$af ret Function104284: ; 104284 ld a, [rSVBK] push af ld a, $6 ld [rSVBK], a push bc push hl ld a, b ld l, c ld h, $0 add hl, hl add hl, hl add hl, hl add hl, hl ld b, h ld c, l ld h, d ld l, e ld de, $d000 call FarCopyBytes pop hl pop bc push bc call DelayFrame pop bc ld d, h ld e, l ld hl, $d000 call Function104209 pop af ld [rSVBK], a ret ; 1042b2 Function1042b2: ; 1042b2 .asm_1042b2 ld a, c cp $10 jp c, Function1042d6 jp z, Function1042d6 push bc push hl push de ld c, $10 call Function1042d6 pop de ld hl, $0080 add hl, de ld d, h ld e, l pop hl ld bc, Start add hl, bc pop bc ld a, c sub $10 ld c, a jr .asm_1042b2 ; 1042d6 Function1042d6: ; 1042d6 ld a, [rSVBK] push af ld a, $6 ld [rSVBK], a push bc push hl ld a, b ld l, c ld h, $0 add hl, hl add hl, hl add hl, hl ld c, l ld b, h ld h, d ld l, e ld de, $d000 call Functiondef pop hl pop bc push bc call DelayFrame pop bc ld d, h ld e, l ld hl, $d000 call Function104209 pop af ld [rSVBK], a ret ; 104303 Function104303: ; 104303 ld hl, $4309 jp Function104177 ; 104309 ld hl, Unkn1Pals ; $d000 ld de, TileMap ; $c4a0 (aliases: SpritesEnd) call Function10433a ld hl, BGPals ; $d080 ld de, AttrMap ; $cdd9 call Function10433a ld a, $1 ld [rVBK], a ; $ff00+$4f ld c, $8 ld hl, BGPals ; $d080 ld de, $9c00 call Function104209 ld a, $0 ld [rVBK], a ; $ff00+$4f ld c, $8 ld hl, Unkn1Pals ; $d000 ld de, $9c00 call Function104209 ret ; known jump sources: 10430f (41:430f), 104318 (41:4318) Function10433a: ; 10433a (41:433a) ld b, $4 .asm_10433c ld c, $14 .asm_10433e ld a, [de] ld [hli], a inc de dec c jr nz, .asm_10433e ld a, l add $c ld l, a ld a, h adc $0 ld h, a dec b jr nz, .asm_10433c ret INCBIN "gfx/ow/misc.2bpp" call Function210f call Function2e50 call Function2e5d call Function212a call Function2e56 ld a, $5 call Function263b callba Function97df9 ld a, $3 call Function263b call Function2cff ld [$c2d0], a ret EnterMapConnection: ; 1045d6 ; Return carry if a connection has been entered. ld a, [$d151] and a jp z, EnterSouthConnection cp 1 jp z, EnterNorthConnection cp 2 jp z, EnterWestConnection cp 3 jp z, EnterEastConnection ret ; 1045ed EnterWestConnection: ; 1045ed ld a, [WestConnectedMapGroup] ld [MapGroup], a ld a, [WestConnectedMapNumber] ld [MapNumber], a ld a, [WestConnectionStripXOffset] ld [XCoord], a ld a, [WestConnectionStripYOffset] ld hl, YCoord add [hl] ld [hl], a ld c, a ld hl, WestConnectionWindow ld a, [hli] ld h, [hl] ld l, a srl c jr z, .asm_10461e ld a, [WestConnectedMapWidth] add 6 ld e, a ld d, 0 .asm_10461a add hl, de dec c jr nz, .asm_10461a .asm_10461e ld a, l ld [$d194], a ld a, h ld [$d195], a jp EnteredConnection ; 104629 EnterEastConnection: ; 104629 ld a, [EastConnectedMapGroup] ld [MapGroup], a ld a, [EastConnectedMapNumber] ld [MapNumber], a ld a, [EastConnectionStripXOffset] ld [XCoord], a ld a, [EastConnectionStripYOffset] ld hl, YCoord add [hl] ld [hl], a ld c, a ld hl, EastConnectionWindow ld a, [hli] ld h, [hl] ld l, a srl c jr z, .asm_10465a ld a, [EastConnectedMapWidth] add 6 ld e, a ld d, 0 .asm_104656 add hl, de dec c jr nz, .asm_104656 .asm_10465a ld a, l ld [$d194], a ld a, h ld [$d195], a jp EnteredConnection ; 104665 EnterNorthConnection: ; 104665 ld a, [NorthConnectedMapGroup] ld [MapGroup], a ld a, [NorthConnectedMapNumber] ld [MapNumber], a ld a, [NorthConnectionStripYOffset] ld [YCoord], a ld a, [NorthConnectionStripXOffset] ld hl, XCoord add [hl] ld [hl], a ld c, a ld hl, NorthConnectionWindow ld a, [hli] ld h, [hl] ld l, a ld b, 0 srl c add hl, bc ld a, l ld [$d194], a ld a, h ld [$d195], a jp EnteredConnection ; 104696 EnterSouthConnection: ; 104696 ld a, [SouthConnectedMapGroup] ld [MapGroup], a ld a, [SouthConnectedMapNumber] ld [MapNumber], a ld a, [SouthConnectionStripYOffset] ld [YCoord], a ld a, [SouthConnectionStripXOffset] ld hl, XCoord add [hl] ld [hl], a ld c, a ld hl, SouthConnectionWindow ld a, [hli] ld h, [hl] ld l, a ld b, 0 srl c add hl, bc ld a, l ld [$d194], a ld a, h ld [$d195], a ; fallthrough ; 1046c4 EnteredConnection: ; 1046c4 scf ret ; 1046c6 call Function1046df call Function104718 ld a, [$d146] ld [WarpNumber], a ; $dcb4 ld a, [$d147] ld [MapGroup], a ; $dcb5 ld a, [$d148] ld [MapNumber], a ; $dcb6 ret ; known jump sources: 1046c6 (41:46c6) Function1046df: ; 1046df (41:46df) call GetMapPermission call CheckOutdoorMap ret nz ld a, [$d147] ld b, a ld a, [$d148] ld c, a call GetAnyMapPermission call CheckIndoorMap ret nz ld a, [$d14a] cp $f jr nz, .asm_104705 ld a, [$d14b] cp $a ret z cp $c ret z .asm_104705 ld a, [$d149] ld [$dca9], a ld a, [$d14a] ld [$dcaa], a ld a, [$d14b] ld [$dcab], a ret ; known jump sources: 1046c9 (41:46c9) Function104718: ; 104718 (41:4718) call GetMapPermission call CheckOutdoorMap ret nz ld a, [$d147] ld b, a ld a, [$d148] ld c, a call GetAnyMapPermission call CheckIndoorMap ret nz ld a, [$d147] ld b, a ld a, [$d148] ld c, a call GetAnyMapTileset ld a, c cp $7 jr z, .asm_104743 cp $15 jr z, .asm_104743 ret .asm_104743 ld a, [$d14a] ld [$dcb2], a ld a, [$d14b] ld [$dcb3], a ret ld hl, VramState ; $d0ed res 6, [hl] ld a, $1 ld [$c2ce], a callba Function8c0e5 callba Function8c001 call Function2173 call Function104770 call Function1047a3 ret ; known jump sources: 104769 (41:4769) Function104770: ; 104770 (41:4770) ld a, $98 ld [$d153], a xor a ld [$d152], a ld [hSCY], a ; $ff00+$d0 ld [hSCX], a ; $ff00+$cf callba Function5958 ld a, [rVBK] ; $ff00+$4f push af ld a, $1 ld [rVBK], a ; $ff00+$4f xor a ld bc, $400 ld hl, $9800 call ByteFill pop af ld [rVBK], a ; $ff00+$4f ld a, $60 ld bc, $400 ld hl, $9800 call ByteFill ret ; known jump sources: 10476c (41:476c) Function1047a3: ; 1047a3 (41:47a3) ld de, TileMap ; $c4a0 (aliases: SpritesEnd) call Function1047b4 ld a, [hCGB] ; $ff00+$e6 and a ret z ld de, AttrMap ; $cdd9 ld a, $1 ld [rVBK], a ; $ff00+$4f ; known jump sources: 1047a6 (41:47a6) Function1047b4: ; 1047b4 (41:47b4) ld hl, $9800 ld c, $14 ld b, $12 .asm_1047bb push bc .asm_1047bc ld a, [de] inc de ld [hli], a dec c jr nz, .asm_1047bc ld bc, $c add hl, bc pop bc dec b jr nz, .asm_1047bb ld a, $0 ld [rVBK], a ; $ff00+$4f ret call LoadTilesetHeader call Function2821 xor a ld [$FF00+$de], a xor a ld [hTileAnimFrame], a ; $ff00+$df callba Function14168 call Functione5f callba Function106594 ret Function1047eb: ; 1047eb ld b, $9 jp GetSGBLayout ; 1047f0 call ClearSprites callba Functionb8000 call Function2914 callba Function579d callba Function154f7 ld hl, $d45b bit 6, [hl] jr nz, .asm_104817 ld hl, VramState ; $d0ed set 0, [hl] call Function2e31 .asm_104817 ld a, [$d45b] and $1c ld [$d45b], a ret ; no known jump sources Function104820: ; 104820 (41:4820) ld a, [$d151] cp $ff ret z and a jr z, .asm_104837 cp $1 jr z, .asm_104846 cp $2 jr z, .asm_104851 cp $3 jr z, .asm_10485c and a ret .asm_104837 ld a, [MapY] ; $d4e7 sub $4 ld b, a ld a, [MapHeight] add a cp b jr z, .asm_10486b and a ret .asm_104846 ld a, [MapY] ; $d4e7 sub $4 cp $ff jr z, .asm_10486b and a ret .asm_104851 ld a, [MapX] ; $d4e6 sub $4 cp $ff jr z, .asm_10486b and a ret .asm_10485c ld a, [MapX] ; $d4e6 sub $4 ld b, a ld a, [MapWidth] add a cp b jr z, .asm_10486b and a ret .asm_10486b scf ret Function10486d: ; 10486d ld hl, OverworldMap ld a, [XCoord] bit 0, a jr nz, .asm_10487d srl a add $1 jr .asm_104881 .asm_10487d add $1 srl a .asm_104881 ld c, a ld b, $0 add hl, bc ld a, [MapWidth] add $6 ld c, a ld b, $0 ld a, [YCoord] bit 0, a jr nz, .asm_10489a srl a add $1 jr .asm_10489e .asm_10489a add $1 srl a .asm_10489e call AddNTimes ld a, l ld [$d194], a ld a, h ld [$d195], a ld a, [YCoord] and $1 ld [$d196], a ld a, [XCoord] and $1 ld [$d197], a ret ; 1048ba ; known jump sources: 1049ba (41:49ba) Function1048ba: ; 1048ba (41:48ba) call ClearTileMap call ClearSprites call WaitBGMap call Function105153 ld hl, $c543 ld de, $49cd call PlaceString call WaitBGMap callba Function2c642 call Function1050fb ld a, $2 ld [$ca01], a ld a, $14 ld [$ca02], a ld a, [rIE] ; $ff00+$ff push af call Function104a95 ld d, a xor a ld [rIF], a ; $ff00+$f pop af ld [rIE], a ; $ff00+$ff push de call ClearTileMap call EnableLCD call WaitBGMap ld b, $8 call GetSGBLayout call Function32f9 pop de ld hl, $c542 ld a, d ld de, $49fd cp $10 jp z, Function1049af cp $6c jp nz, Function1049b4 ld a, [$c900] cp $3 jr z, .asm_10492f call Function104a25 ld hl, $4a11 jp nc, Function1049c5 call Function104a30 ld hl, $4a16 jp c, Function1049c5 .asm_10492f ld a, [$c962] and a jp nz, Function1049bd ld a, [$c912] and a jp nz, Function1049c2 ld a, [$c900] cp $3 jr z, .asm_104963 call Function104a56 ld a, [$c900] cp $4 jr z, .asm_104963 call Function104a71 callba Function10619d callba Function1060a9 callba Function106187 .asm_104963 ld a, [$c90f] and a jr z, .asm_104990 ld a, [$c911] ld c, a callba Function2c715 push bc call Function105069 pop bc jr nz, .asm_104990 callab Function26ef5 ld h, d ld l, e ld de, StringBuffer1 ; $d073 ld bc, $d call CopyBytes ld hl, $4a20 jr Function1049c5 .asm_104990 call Function105106 ld a, [$c910] ld c, a callba Function2c708 ld a, c ld [$abe4], a ld [$d265], a call CloseSRAM call GetItemName ld hl, $4a1b jr Function1049c5 ; known jump sources: 10490e (41:490e) Function1049af: ; 1049af (41:49af) ld hl, $49fd jr Function1049c5 ; known jump sources: 104913 (41:4913) Function1049b4: ; 1049b4 (41:49b4) ld hl, $4a02 call PrintText jp Function1048ba ; known jump sources: 104933 (41:4933) Function1049bd: ; 1049bd (41:49bd) ld hl, $4a07 jr Function1049c5 ; known jump sources: 10493a (41:493a) Function1049c2: ; 1049c2 (41:49c2) ld hl, $4a0c ; known jump sources: 104923 (41:4923), 10492c (41:492c), 10498e (41:498e), 1049ad (41:49ad), 1049b2 (41:49b2), 1049c0 (41:49c0) Function1049c5: ; 1049c5 (41:49c5) call PrintText ld a, $e3 ld [rLCDC], a ; $ff00+$40 ret ; 1049cd (41:49cd) INCBIN "baserom.gbc",$1049cd,$104a25 - $1049cd ; known jump sources: 10491d (41:491d) Function104a25: ; 104a25 (41:4a25) call Function105106 ld a, [$abe5] cp $5 jp CloseSRAM ; known jump sources: 104926 (41:4926) Function104a30: ; 104a30 (41:4a30) call Function105106 ld a, [$c901] ld b, a ld a, [$c902] ld c, a ld a, [$abe5] ld d, a ld hl, $abe6 .asm_104a42 ld a, d and a jr z, .asm_104a53 ld a, [hli] cp b jr nz, .asm_104a4e ld a, [hl] cp c jr z, .asm_104a52 .asm_104a4e inc hl dec d jr .asm_104a42 .asm_104a52 scf .asm_104a53 jp CloseSRAM ; known jump sources: 104944 (41:4944) Function104a56: ; 104a56 (41:4a56) call Function105106 ld hl, $abe5 ld a, [hl] inc [hl] ld hl, $abe6 ld e, a ld d, $0 add hl, de add hl, de ld a, [$c901] ld [hli], a ld a, [$c902] ld [hl], a jp CloseSRAM ; known jump sources: 10494e (41:494e) Function104a71: ; 104a71 (41:4a71) call Function105106 ld a, $1 ld [$abfd], a ld hl, $c903 ld de, $abfe ld bc, $b call CopyBytes ld a, $1 ld [de], a inc de ld hl, $c850 ld bc, $26 call CopyBytes jp CloseSRAM ; known jump sources: 1048e8 (41:48e8) Function104a95: ; 104a95 (41:4a95) di callba ClearChannels call Function104d5e .asm_104a9f call Function104d96 call Function104ddd ld a, [$FF00+$bc] cp $10 jp z, Function104bd0 cp $6c jr nz, .asm_104a9f ld a, [$FF00+$bb] cp $2 jr z, Function104b22 ld hl, hPastLeadingZeroes ; $ffb3 (aliases: hDividend, hProduct) ld b, $1 call Function104d56 jr nz, .asm_104ac8 call Function104b49 jp nz, Function104bd0 jr asm_104b0a .asm_104ac8 ld a, [rLY] ; $ff00+$44 cp $90 jr c, .asm_104ac8 ld c, $56 ld a, $c0 ld [$ff00+c], a ld b, $f0 .asm_104ad5 push bc call Function105038 ld b, $2 ld c, $56 .asm_104add ld a, [$ff00+c] and b ld b, a ld a, [rLY] ; $ff00+$44 cp $90 jr nc, .asm_104add .asm_104ae6 ld a, [$ff00+c] and b ld b, a ld a, [rLY] ; $ff00+$44 cp $90 jr c, .asm_104ae6 ld a, b pop bc dec b jr z, .asm_104a9f or a jr nz, .asm_104a9f ld a, [$FF00+$c4] bit 1, a jr z, .asm_104ad5 ld a, $10 ld [$FF00+$bc], a jp Function104bd0 ; known jump sources: 104c0d (41:4c0d) Function104b04: ; 104b04 (41:4b04) call Function104b40 jp nz, Function104bd0 ; known jump sources: 104ac6 (41:4ac6) asm_104b0a: ; 104b0a (41:4b0a) call Function104d38 jp nz, Function104bd0 call Function104b88 jp nz, Function104bd0 call Function104d43 jp nz, Function104bd0 call Function105033 jp Function104bd0 ; known jump sources: 104ab4 (41:4ab4), 104c15 (41:4c15) Function104b22: ; 104b22 (41:4b22) call Function104b88 jp nz, Function104bd0 call Function104d43 jp nz, Function104bd0 call Function104b40 jp nz, Function104bd0 call Function104d38 jp nz, Function104bd0 call Function10502e jp Function104bd0 ; known jump sources: 104b04 (41:4b04), 104b2e (41:4b2e) Function104b40: ; 104b40 (41:4b40) ld hl, hPastLeadingZeroes ; $ffb3 (aliases: hDividend, hProduct) ld b, $1 call Function104d56 ret nz ; known jump sources: 104ac0 (41:4ac0) Function104b49: ; 104b49 (41:4b49) call Function105033 ld a, [$FF00+$bc] cp $6c ret nz ld a, [hPastLeadingZeroes] ; $ff00+$b3 (aliases: hDividend, hProduct) cp $96 jp nz, Function104d32 ld a, $90 ld [hPastLeadingZeroes], a ; $ff00+$b3 (aliases: hDividend, hProduct) call Function104d38 ret nz ld hl, hPastLeadingZeroes ; $ffb3 (aliases: hDividend, hProduct) ld b, $1 call Function104d4e ret nz call Function10502e ld a, [$FF00+$bc] cp $6c ret nz call Function104d43 ret nz ld hl, $c850 ld a, [$ca02] ld b, a call Function104d56 ret nz call Function105033 ld a, [$FF00+$bc] cp $6c ret ; known jump sources: 104b10 (41:4b10), 104b22 (41:4b22) Function104b88: ; 104b88 (41:4b88) ld a, $96 ld [hPastLeadingZeroes], a ; $ff00+$b3 (aliases: hDividend, hProduct) ld hl, hPastLeadingZeroes ; $ffb3 (aliases: hDividend, hProduct) ld b, $1 call Function104d4e ret nz call Function10502e ld a, [$FF00+$bc] cp $6c ret nz call Function104d43 ret nz ld hl, hPastLeadingZeroes ; $ffb3 (aliases: hDividend, hProduct) ld b, $1 call Function104d56 ret nz call Function105033 ld a, [$FF00+$bc] cp $6c ret nz ld a, [hPastLeadingZeroes] ; $ff00+$b3 (aliases: hDividend, hProduct) cp $90 jp nz, Function104d32 call Function104d38 ret nz ld hl, OverworldMap ; $c800 ld a, [$ca02] ld b, a call Function104d4e ret nz call Function10502e ld a, [$FF00+$bc] cp $6c ret ; known jump sources: 104aa9 (41:4aa9), 104ac3 (41:4ac3), 104b01 (41:4b01), 104b07 (41:4b07), 104b0d (41:4b0d), 104b13 (41:4b13), 104b19 (41:4b19), 104b1f (41:4b1f), 104b25 (41:4b25), 104b2b (41:4b2b), 104b31 (41:4b31), 104b37 (41:4b37), 104b3d (41:4b3d), 104c0b (41:4c0b), 104c13 (41:4c13) Function104bd0: ; 104bd0 (41:4bd0) nop ld a, [$FF00+$bc] cp $10 jr z, .asm_104c18 cp $6c jr nz, .asm_104c18 ld hl, $ca01 dec [hl] jr z, .asm_104c18 ld hl, $c850 ld de, $c900 ld bc, $14 call CopyBytes ld a, [$c850] cp $3 jr nc, .asm_104c18 callba Function10510b call Function1050fb ld a, $26 ld [$ca02], a ld a, [$FF00+$bb] cp $2 jr z, .asm_104c10 call Function104d43 jr nz, Function104bd0 jp Function104b04 .asm_104c10 call Function104d38 jr nz, Function104bd0 jp Function104b22 .asm_104c18 ld a, [$FF00+$bc] push af call Function104da0 xor a ld [rIF], a ; $ff00+$f ld a, [rIE] ; $ff00+$ff or $1 ld [rIE], a ; $ff00+$ff ei call DelayFrame pop af ret ; known jump sources: 1056ae (41:56ae) Function104c2d: ; 104c2d (41:4c2d) di callba ClearChannels call Function104d5e .asm_104c37 call Function104d96 call Function104ddd ld a, [$FF00+$bc] cp $10 jp z, Function104d1c cp $6c jr nz, .asm_104c37 ld a, [$FF00+$bb] cp $2 jr z, .asm_104c6c call Function104c8a jp nz, Function104d1c call Function104d38 jp nz, Function104d1c call Function104cd2 jp nz, Function104d1c call Function104d43 jp nz, Function104d1c call Function105033 jp Function104d1c .asm_104c6c call Function104cd2 jp nz, Function104d1c call Function104d43 jp nz, Function104d1c call Function104c8a jp nz, Function104d1c call Function104d38 jp nz, Function104d1c call Function10502e jp Function104d1c ; known jump sources: 104c4e (41:4c4e), 104c78 (41:4c78) Function104c8a: ; 104c8a (41:4c8a) ld hl, hPastLeadingZeroes ; $ffb3 (aliases: hDividend, hProduct) ld b, $1 call Function104d56 ret nz call Function105033 ld a, [$FF00+$bc] cp $6c ret nz ld a, [hPastLeadingZeroes] ; $ff00+$b3 (aliases: hDividend, hProduct) cp $3c jp nz, Function104d32 swap a ld [hPastLeadingZeroes], a ; $ff00+$b3 (aliases: hDividend, hProduct) call Function104d38 ret nz ld hl, hPastLeadingZeroes ; $ffb3 (aliases: hDividend, hProduct) ld b, $1 call Function104d4e ret nz call Function10502e ld a, [$FF00+$bc] cp $6c ret nz call Function104d43 ret nz ld hl, $c850 ld a, [$ca02] ld b, a call Function104d56 ret nz call Function105033 ld a, [$FF00+$bc] cp $6c ret ; known jump sources: 104c5a (41:4c5a), 104c6c (41:4c6c) Function104cd2: ; 104cd2 (41:4cd2) ld a, $3c ld [hPastLeadingZeroes], a ; $ff00+$b3 (aliases: hDividend, hProduct) ld hl, hPastLeadingZeroes ; $ffb3 (aliases: hDividend, hProduct) ld b, $1 call Function104d4e ret nz call Function10502e ld a, [$FF00+$bc] cp $6c ret nz call Function104d43 ret nz ld hl, hPastLeadingZeroes ; $ffb3 (aliases: hDividend, hProduct) ld b, $1 call Function104d56 ret nz call Function105033 ld a, [$FF00+$bc] cp $6c ret nz ld a, [hPastLeadingZeroes] ; $ff00+$b3 (aliases: hDividend, hProduct) swap a cp $3c jp nz, Function104d32 call Function104d38 ret nz ld hl, OverworldMap ; $c800 ld a, [$ca02] ld b, a call Function104d4e ret nz call Function10502e ld a, [$FF00+$bc] cp $6c ret ; known jump sources: 104c41 (41:4c41), 104c51 (41:4c51), 104c57 (41:4c57), 104c5d (41:4c5d), 104c63 (41:4c63), 104c69 (41:4c69), 104c6f (41:4c6f), 104c75 (41:4c75), 104c7b (41:4c7b), 104c81 (41:4c81), 104c87 (41:4c87) Function104d1c: ; 104d1c (41:4d1c) nop ld a, [$FF00+$bc] push af call Function104da0 xor a ld [rIF], a ; $ff00+$f ld a, [rIE] ; $ff00+$ff or $1 ld [rIE], a ; $ff00+$ff ei call DelayFrame pop af ret ; known jump sources: 104b55 (41:4b55), 104bb6 (41:4bb6), 104c9f (41:4c9f), 104d02 (41:4d02) Function104d32: ; 104d32 (41:4d32) ld a, $80 ld [$FF00+$bc], a and a ret ; known jump sources: 104b0a (41:4b0a), 104b34 (41:4b34), 104b5c (41:4b5c), 104bb9 (41:4bb9), 104c10 (41:4c10), 104c54 (41:4c54), 104c7e (41:4c7e), 104ca6 (41:4ca6), 104d05 (41:4d05) Function104d38: ; 104d38 (41:4d38) call Function104d96 call Function104e46 ld a, [$FF00+$bc] cp $6c ret ; known jump sources: 104b16 (41:4b16), 104b28 (41:4b28), 104b71 (41:4b71), 104b9d (41:4b9d), 104c08 (41:4c08), 104c60 (41:4c60), 104c72 (41:4c72), 104cbb (41:4cbb), 104ce7 (41:4ce7) Function104d43: ; 104d43 (41:4d43) call Function104d96 call Function104dfe ld a, [$FF00+$bc] cp $6c ret ; known jump sources: 104b65 (41:4b65), 104b91 (41:4b91), 104bc4 (41:4bc4), 104caf (41:4caf), 104cdb (41:4cdb), 104d10 (41:4d10) Function104d4e: ; 104d4e (41:4d4e) call Function104e93 ld a, [$FF00+$bc] cp $6c ret ; known jump sources: 104abb (41:4abb), 104b45 (41:4b45), 104b7c (41:4b7c), 104ba6 (41:4ba6), 104c8f (41:4c8f), 104cc6 (41:4cc6), 104cf0 (41:4cf0) Function104d56: ; 104d56 (41:4d56) call Function104f57 ld a, [$FF00+$bc] cp $6c ret ; known jump sources: 104a9c (41:4a9c), 104c34 (41:4c34) Function104d5e: ; 104d5e (41:4d5e) call Function104d74 ld a, $4 ld [rIE], a ; $ff00+$ff xor a ld [rIF], a ; $ff00+$f call Function104d96 xor a ld b, a .asm_104d6d inc a jr nz, .asm_104d6d inc b jr nz, .asm_104d6d ret ; known jump sources: 104d5e (41:4d5e), 10501a (41:501a) Function104d74: ; 104d74 (41:4d74) xor a ld [rTAC], a ; $ff00+$7 ld a, $fe ld [rTMA], a ; $ff00+$6 ld [rTIMA], a ; $ff00+$5 ld a, $2 ld [rTAC], a ; $ff00+$7 or $4 ld [rTAC], a ; $ff00+$7 ret ; known jump sources: 104fcf (41:4fcf) Function104d86: ; 104d86 (41:4d86) xor a ld [rTAC], a ; $ff00+$7 ld [rTMA], a ; $ff00+$6 ld [rTIMA], a ; $ff00+$5 ld a, $2 ld [rTAC], a ; $ff00+$7 or $4 ld [rTAC], a ; $ff00+$7 ret ; known jump sources: 104a9f (41:4a9f), 104c37 (41:4c37), 104d38 (41:4d38), 104d43 (41:4d43), 104d68 (41:4d68) Function104d96: ; 104d96 (41:4d96) ld a, $c0 call Function104e8c ld a, $1 ld [$FF00+$bb], a ret ; known jump sources: 104c1b (41:4c1b), 104d20 (41:4d20) Function104da0: ; 104da0 (41:4da0) xor a call Function104e8c ld a, $2 ld [rTAC], a ; $ff00+$7 ret ; known jump sources: 104db3 (41:4db3), 104e0a (41:4e0a), 104e16 (41:4e16), 104e70 (41:4e70), 104e7c (41:4e7c), 104fbb (41:4fbb), 105022 (41:5022) Function104da9: ; 104da9 (41:4da9) inc d ret z xor a ld [rIF], a ; $ff00+$f db $76 ;halt (prevents rgbasm from putting in an extra nop) nop ld a, [$ff00+c] bit 1, a jr z, Function104da9 or a ret ; known jump sources: 104dc1 (41:4dc1), 104e03 (41:4e03), 104e10 (41:4e10), 104e69 (41:4e69), 104e76 (41:4e76), 104fb3 (41:4fb3), 104fc3 (41:4fc3) Function104db7: ; 104db7 (41:4db7) inc d ret z xor a ld [rIF], a ; $ff00+$f db $76 ;halt (prevents rgbasm from putting in an extra nop) nop ld a, [$ff00+c] bit 1, a jr nz, Function104db7 or a ret ; known jump sources: 104e27 (41:4e27), 104e31 (41:4e31), 104e56 (41:4e56), 104e60 (41:4e60), 104edf (41:4edf), 104f39 (41:4f39) Function104dc5: ; 104dc5 (41:4dc5) ld a, $c1 ld [$ff00+c], a .asm_104dc8 dec d ret z xor a ld [rIF], a ; $ff00+$f db $76 ;halt (prevents rgbasm from putting in an extra nop) nop jr .asm_104dc8 ; known jump sources: 104e22 (41:4e22), 104e2c (41:4e2c), 104e36 (41:4e36), 104e51 (41:4e51), 104e5b (41:4e5b), 104e65 (41:4e65), 104e84 (41:4e84), 104e9e (41:4e9e), 104eda (41:4eda), 104ee4 (41:4ee4), 104f3e (41:4f3e), 104f9b (41:4f9b), 10502a (41:502a) Function104dd1: ; 104dd1 (41:4dd1) ld a, $c0 ld [$ff00+c], a .asm_104dd4 dec d ret z xor a ld [rIF], a ; $ff00+$f db $76 ;halt (prevents rgbasm from putting in an extra nop) nop jr .asm_104dd4 ; known jump sources: 104aa2 (41:4aa2), 104c3a (41:4c3a) Function104ddd: ; 104ddd (41:4ddd) ld d, $0 ld e, d ld a, $1 ld [$FF00+$bb], a .asm_104de4 call Function105038 ld b, $2 ld c, $56 ld a, [$FF00+$c4] bit 1, a jr z, .asm_104df6 ld a, $10 ld [$FF00+$bc], a ret .asm_104df6 bit 0, a jr nz, asm_104e3a ld a, [$ff00+c] and b jr nz, .asm_104de4 ; known jump sources: 104d46 (41:4d46) Function104dfe: ; 104dfe (41:4dfe) ld c, $56 ld d, $0 ld e, d call Function104db7 jp z, Function104f42 ld d, e call Function104da9 jp z, Function104f42 call Function104db7 jp z, Function104f42 call Function104da9 jp z, Function104f42 ld a, $6c ld [$FF00+$bc], a ld d, $3d call Function104dd1 ld d, $5 call Function104dc5 ld d, $15 call Function104dd1 ld d, $5 call Function104dc5 ld d, $5 call Function104dd1 ret ; known jump sources: 104df8 (41:4df8) asm_104e3a: ; 104e3a (41:4e3a) call Random ld e, a and $f ld d, a .asm_104e41 dec de ld a, d or e jr nz, .asm_104e41 ; known jump sources: 104d3b (41:4d3b) Function104e46: ; 104e46 (41:4e46) ld a, $2 ld [$FF00+$bb], a ld c, $56 ld d, $0 ld e, d ld d, $3d call Function104dd1 ld d, $5 call Function104dc5 ld d, $15 call Function104dd1 ld d, $5 call Function104dc5 ld d, $5 call Function104dd1 ld d, e call Function104db7 jp z, Function104f42 ld d, e call Function104da9 jp z, Function104f42 call Function104db7 jp z, Function104f42 call Function104da9 jp z, Function104f42 ld d, $3d call Function104dd1 ld a, $6c ld [$FF00+$bc], a ret ; known jump sources: 104d98 (41:4d98), 104da1 (41:4da1) Function104e8c: ; 104e8c (41:4e8c) ld [rRP], a ; $ff00+$56 ld a, $ff ld [$FF00+$bc], a ret ; known jump sources: 104d4e (41:4d4e), 105030 (41:5030) Function104e93: ; 104e93 (41:4e93) xor a ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier) ld [hMathBuffer], a ; $ff00+$b8 push hl push bc ld c, $56 ld d, $3d call Function104dd1 ld hl, hQuotient ; $ffb4 (aliases: hMultiplicand) ld a, $5a ld [hli], a ld [hl], b dec hl ld b, $2 call Function104ed6 pop bc pop hl call Function104ed6 ld a, [hDivisor] ; $ff00+$b7 (aliases: hMultiplier) ld [hQuotient], a ; $ff00+$b4 (aliases: hMultiplicand) ld a, [hMathBuffer] ; $ff00+$b8 ld [$FF00+$b5], a push hl ld hl, hQuotient ; $ffb4 (aliases: hMultiplicand) ld b, $2 call Function104ed6 ld hl, $ffbc ld b, $1 call Function104faf ld a, [hQuotient] ; $ff00+$b4 (aliases: hMultiplicand) ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier) ld a, [$FF00+$b5] ld [hMathBuffer], a ; $ff00+$b8 pop hl ret ; known jump sources: 104eab (41:4eab), 104eb0 (41:4eb0), 104ec1 (41:4ec1), 104fa3 (41:4fa3) Function104ed6: ; 104ed6 (41:4ed6) ld c, $56 ld d, $5 call Function104dd1 ld d, $5 call Function104dc5 ld d, $15 call Function104dd1 ld a, b cpl ld b, a ld a, $f4 ld [rTMA], a ; $ff00+$6 .asm_104eee inc b jr z, .asm_104f2e ld a, $8 ld [$FF00+$b6], a ld a, [hli] ld e, a ld a, [hDivisor] ; $ff00+$b7 (aliases: hMultiplier) add e ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier) ld a, [hMathBuffer] ; $ff00+$b8 adc $0 ld [hMathBuffer], a ; $ff00+$b8 .asm_104f02 xor a ld [rIF], a ; $ff00+$f db $76 ;halt (prevents rgbasm from putting in an extra nop) nop ld a, $c1 ld [rRP], a ; $ff00+$56 ld d, $1 ld a, e rlca ld e, a jr nc, .asm_104f13 inc d .asm_104f13 ld a, [rTIMA] ; $ff00+$5 cp $f8 jr c, .asm_104f13 ld a, $c0 ld [rRP], a ; $ff00+$56 dec d jr z, .asm_104f25 xor a ld [rIF], a ; $ff00+$f db $76 ;halt (prevents rgbasm from putting in an extra nop) nop .asm_104f25 ld a, [$FF00+$b6] dec a jr z, .asm_104eee ld [$FF00+$b6], a jr .asm_104f02 .asm_104f2e ld a, $fe ld [rTMA], a ; $ff00+$6 xor a ld [rIF], a ; $ff00+$f db $76 ;halt (prevents rgbasm from putting in an extra nop) nop ld d, $5 call Function104dc5 ld d, $11 call Function104dd1 ret ; known jump sources: 104e06 (41:4e06), 104e0d (41:4e0d), 104e13 (41:4e13), 104e19 (41:4e19), 104e6c (41:4e6c), 104e73 (41:4e73), 104e79 (41:4e79), 104e7f (41:4e7f), 104fb6 (41:4fb6), 104fbe (41:4fbe), 104fc6 (41:4fc6), 105025 (41:5025) Function104f42: ; 104f42 (41:4f42) ld a, [$FF00+$bc] or $2 ld [$FF00+$bc], a ret ; known jump sources: 104f95 (41:4f95) Function104f49: ; 104f49 (41:4f49) ld a, [$FF00+$bc] or $1 ld [$FF00+$bc], a ret ; known jump sources: 104f6e (41:4f6e), 104f75 (41:4f75) Function104f50: ; 104f50 (41:4f50) ld a, [$FF00+$bc] or $80 ld [$FF00+$bc], a ret ; known jump sources: 104d56 (41:4d56), 105035 (41:5035) Function104f57: ; 104f57 (41:4f57) xor a ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier) ld [hMathBuffer], a ; $ff00+$b8 push bc push hl ld hl, hQuotient ; $ffb4 (aliases: hMultiplicand) ld b, $2 call Function104faf ld a, [$FF00+$b5] ld [$FF00+$ba], a ld b, a pop hl pop af cp b jp c, Function104f50 ld a, [hQuotient] ; $ff00+$b4 (aliases: hMultiplicand) cp $5a jp nz, Function104f50 call Function104faf ld a, [hDivisor] ; $ff00+$b7 (aliases: hMultiplier) ld d, a ld a, [hMathBuffer] ; $ff00+$b8 ld e, a push hl push de ld hl, hQuotient ; $ffb4 (aliases: hMultiplicand) ld b, $2 call Function104faf pop de ld hl, hQuotient ; $ffb4 (aliases: hMultiplicand) ld a, [hli] xor d ld b, a ld a, [hl] xor e or b call nz, Function104f49 push de ld d, $3d call Function104dd1 ld hl, $ffbc ld b, $1 call Function104ed6 pop de pop hl ld a, d ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier) ld a, e ld [hMathBuffer], a ; $ff00+$b8 ret ; known jump sources: 104ec9 (41:4ec9), 104f63 (41:4f63), 104f78 (41:4f78), 104f88 (41:4f88) Function104faf: ; 104faf (41:4faf) ld c, $56 ld d, $0 call Function104db7 jp z, Function104f42 ld d, $0 call Function104da9 jp z, Function104f42 ld d, $0 call Function104db7 jp z, Function104f42 ld a, b cpl ld b, a xor a ld [$FF00+$c5], a call Function104d86 .asm_104fd2 inc b jr z, .asm_10501a ld a, $8 ld [$FF00+$b6], a .asm_104fd9 ld d, $0 .asm_104fdb inc d jr z, .asm_104fe5 ld a, [$ff00+c] bit 1, a jr z, .asm_104fdb ld d, $0 .asm_104fe5 inc d jr z, .asm_104fed ld a, [$ff00+c] bit 1, a jr nz, .asm_104fe5 .asm_104fed ld a, [$FF00+$c5] ld d, a ld a, [rTIMA] ; $ff00+$5 ld [$FF00+$c5], a sub d cp $12 jr c, .asm_104ffd set 0, e jr .asm_104fff .asm_104ffd res 0, e .asm_104fff ld a, [$FF00+$b6] dec a ld [$FF00+$b6], a jr z, .asm_10500b ld a, e rlca ld e, a jr .asm_104fd9 .asm_10500b ld a, e ld [hli], a ld a, [hDivisor] ; $ff00+$b7 (aliases: hMultiplier) add e ld [hDivisor], a ; $ff00+$b7 (aliases: hMultiplier) ld a, [hMathBuffer] ; $ff00+$b8 adc $0 ld [hMathBuffer], a ; $ff00+$b8 jr .asm_104fd2 .asm_10501a call Function104d74 xor a ld [rIF], a ; $ff00+$f ld d, $0 call Function104da9 jp z, Function104f42 ld d, $10 call Function104dd1 ret ; known jump sources: 104b3a (41:4b3a), 104b69 (41:4b69), 104b95 (41:4b95), 104bc8 (41:4bc8), 104c84 (41:4c84), 104cb3 (41:4cb3), 104cdf (41:4cdf), 104d14 (41:4d14) Function10502e: ; 10502e (41:502e) ld b, $0 jp Function104e93 ; known jump sources: 104b1c (41:4b1c), 104b49 (41:4b49), 104b80 (41:4b80), 104baa (41:4baa), 104c66 (41:4c66), 104c93 (41:4c93), 104cca (41:4cca), 104cf4 (41:4cf4) Function105033: ; 105033 (41:5033) ld b, $0 jp Function104f57 ; known jump sources: 104ad6 (41:4ad6), 104de4 (41:4de4) Function105038: ; 105038 (41:5038) ld a, $20 ld [rJOYP], a ; $ff00+$0 ld a, [rJOYP] ; $ff00+$0 ld a, [rJOYP] ; $ff00+$0 cpl and $f swap a ld b, a ld a, $10 ld [rJOYP], a ; $ff00+$0 ld a, [rJOYP] ; $ff00+$0 ld a, [rJOYP] ; $ff00+$0 ld a, [rJOYP] ; $ff00+$0 ld a, [rJOYP] ; $ff00+$0 ld a, [rJOYP] ; $ff00+$0 ld a, [rJOYP] ; $ff00+$0 cpl and $f or b ld c, a ld a, [$FF00+$c3] xor c and c ld [$FF00+$c4], a ld a, c ld [$FF00+$c3], a ld a, $30 ld [rJOYP], a ; $ff00+$0 ret ; known jump sources: 104974 (41:4974) Function105069: ; 105069 (41:5069) call Function105106 ld d, $0 ld b, $2 ld hl, $abf0 ld a, $3 push hl push bc call Predef call CloseSRAM ld a, c and a pop bc pop hl ret nz call Function105106 ld b, $1 ld a, $3 call Predef call CloseSRAM xor a ret ; no known jump sources Function105091: ; 105091 (41:5091) call Function105106 ld c, $0 .asm_105096 push bc ld d, $0 ld b, $2 ld hl, $abf0 ld a, $3 call Predef ld a, c and a pop bc jr z, .asm_1050b0 push bc callab Function26f02 pop bc .asm_1050b0 inc c ld a, c cp $2b jr c, .asm_105096 jp CloseSRAM Function1050b9: ; 1050b9 call Function105106 ld hl, $abe3 ld a, [hl] inc a jr nz, .asm_1050c5 ld [hld], a ld [hl], a .asm_1050c5 jp CloseSRAM ; 1050c8 Function1050c8: ; 1050c8 call Function105106 ld a, [$abe5] cp $ff jr z, .asm_1050d6 xor a ld [$abe5], a .asm_1050d6 jp CloseSRAM ; 1050d9 Function1050d9: ; 1050d9 call Function105106 ld hl, $abe2 ld de, $abe4 ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a jp CloseSRAM ; 1050ea ; no known jump sources Function1050ea: ; 1050ea (41:50ea) call Function105106 ld hl, $abe4 ld de, $abe2 ld a, [hli] ld [de], a inc de ld a, [hl] ld [de], a jp CloseSRAM ; known jump sources: 1048d8 (41:48d8), 104bfa (41:4bfa), 1056a3 (41:56a3) Function1050fb: ; 1050fb (41:50fb) ld hl, $c850 xor a ld b, $26 .asm_105101 ld [hli], a dec b jr nz, .asm_105101 ret Function105106: ; 105106 ld a, $0 jp GetSRAMBank ; 10510b ; no known jump sources Function10510b: ; 10510b (41:510b) ld a, $1 call GetSRAMBank ld de, OverworldMap ; $c800 ld bc, $a86d ld hl, $a866 .asm_105119 ld a, [hli] cp $ff jr z, .asm_105148 cp $fd jr z, .asm_10513e push hl ld hl, $1f add hl, bc ld a, [hl] ld [de], a inc de ld hl, $0 add hl, bc ld a, [hl] ld [de], a inc de ld hl, $2 add hl, bc push bc ld bc, $4 call CopyBytes pop bc pop hl .asm_10513e push hl ld hl, $30 add hl, bc ld b, h ld c, l pop hl jr .asm_105119 .asm_105148 ld a, $ff ld [de], a ld a, $26 ld [$ca00], a jp CloseSRAM ; known jump sources: 1048c3 (41:48c3) Function105153: ; 105153 (41:5153) call WhiteBGMap call DisableLCD ld hl, $5258 ld de, $9000 ld a, $41 ld bc, $430 call FarCopyBytes ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld a, $42 ld bc, $168 call ByteFill ld hl, $c52f ld bc, $90f call ClearBox ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld a, $0 ld [hli], a inc a ld [hl], a ld hl, $c4b4 inc a ld [hli], a inc a ld [hl], a ld hl, $c4bb ld a, $12 call Function10522e ld hl, $c4ca ld a, $17 call Function105236 ld hl, $c4de ld a, $27 call Function105236 ld hl, $c4f9 ld a, $37 ld [hli], a inc a ld [hl], a ld hl, $c4c9 ld [hl], $4 ld hl, $c4dd ld a, $5 call Function105246 ld a, $9 ld hl, $c516 call Function105242 ld hl, $c506 ld a, $b call Function105251 ld hl, $c5e2 ld a, $7 call Function105251 ld hl, $c506 ld a, $d call Function10522e ld hl, $c50b ld [hl], $c ld hl, $c516 ld [hl], $a ld hl, $c5f2 ld [hl], $8 ld hl, $c5e1 ld [hl], $6 ld hl, $c51a ld a, $3a call Function105251 ld hl, $c5ce ld a, $40 call Function105251 ld hl, $c51a ld a, $3c call Function10523e ld hl, $c529 ld a, $3e call Function10523e ld hl, $c51a ld [hl], $39 ld hl, $c529 ld [hl], $3b ld hl, $c5ce ld [hl], $3f ld hl, $c5dd ld [hl], $41 call EnableLCD call WaitBGMap ld b, $1d call GetSGBLayout call Function32f9 ret ; known jump sources: 10518f (41:518f), 1051d4 (41:51d4) Function10522e: ; 10522e (41:522e) ld b, $5 jr asm_105238 ; 105232 (41:5232) INCBIN "baserom.gbc",$105232,$105236 - $105232 ; known jump sources: 105197 (41:5197), 10519f (41:519f) Function105236: ; 105236 (41:5236) ld b, $10 ; known jump sources: 105230 (41:5230), 10523b (41:523b) asm_105238: ; 105238 (41:5238) ld [hli], a inc a dec b jr nz, asm_105238 ret ; known jump sources: 105200 (41:5200), 105208 (41:5208) Function10523e: ; 10523e (41:523e) ld b, $9 jr asm_105248 ; known jump sources: 1051bc (41:51bc) Function105242: ; 105242 (41:5242) ld b, $b jr asm_105248 ; known jump sources: 1051b4 (41:51b4) Function105246: ; 105246 (41:5246) ld b, $e ; known jump sources: 105240 (41:5240), 105244 (41:5244), 10524e (41:524e) asm_105248: ; 105248 (41:5248) ld [hl], a ld de, $14 add hl, de dec b jr nz, asm_105248 ret ; known jump sources: 1051c4 (41:51c4), 1051cc (41:51cc), 1051f0 (41:51f0), 1051f8 (41:51f8) Function105251: ; 105251 (41:5251) ld b, $10 .asm_105253 ld [hli], a dec b jr nz, .asm_105253 ret MysteryGiftGFX: INCBIN "gfx/misc/mystery_gift.2bpp" ; known jump sources: 105723 (41:5723) Function105688: ; 105688 (41:5688) call ClearTileMap call ClearSprites call WaitBGMap call Function1057d7 ld hl, $c543 ld de, $572e call PlaceString call WaitBGMap call Function10578c call Function1050fb ld a, $24 ld [$ca02], a ld a, [rIE] ; $ff00+$ff push af call Function104c2d ld d, a xor a ld [rIF], a ; $ff00+$f pop af ld [rIE], a ; $ff00+$ff ld a, d cp $10 jp z, Function105712 cp $6c jp nz, Function10571a call Function1056eb ld c, $3c call DelayFrames call Function105777 ld hl, $575e call PrintText ld de, $c850 callba Function8ac70 ld a, c ld [$d265], a ld hl, $5768 jr c, asm_105726 ld hl, $5763 jr asm_105726 ; known jump sources: 1056c3 (41:56c3) Function1056eb: ; 1056eb (41:56eb) ld c, $10 .asm_1056ed ld hl, Sprites ; $c400 ld b, $8 .asm_1056f2 dec [hl] inc hl inc hl inc hl inc hl dec b jr nz, .asm_1056f2 ld hl, $c420 ld b, $8 .asm_1056ff inc [hl] inc hl inc hl inc hl inc hl dec b jr nz, .asm_1056ff dec c ret z push bc ld c, $4 call DelayFrames pop bc jr .asm_1056ed ; known jump sources: 1056bb (41:56bb) Function105712: ; 105712 (41:5712) call Function105777 ld hl, $576d jr asm_105726 ; known jump sources: 1056c0 (41:56c0) Function10571a: ; 10571a (41:571a) call Function105777 ld hl, $5772 call PrintText jp Function105688 ; known jump sources: 1056e4 (41:56e4), 1056e9 (41:56e9), 105718 (41:5718) asm_105726: ; 105726 (41:5726) call PrintText ld a, $e3 ld [rLCDC], a ; $ff00+$40 ret ; 10572e (41:572e) INCBIN "baserom.gbc",$10572e,$105777 - $10572e ; known jump sources: 1056cb (41:56cb), 105712 (41:5712), 10571a (41:571a) Function105777: ; 105777 (41:5777) call ClearSprites call ClearTileMap call EnableLCD call WaitBGMap ld b, $8 call GetSGBLayout call Function32f9 ret ; known jump sources: 1056a0 (41:56a0) Function10578c: ; 10578c (41:578c) ld de, OverworldMap ; $c800 ld a, $1 call GetSRAMBank ld hl, $a00b ld bc, $b call CopyBytes ld hl, $a009 ld bc, $2 call CopyBytes ld hl, $a3d8 ld bc, $2 call CopyBytes call CloseSRAM ld a, $1 call GetSRAMBank ld a, [$be3d] ld [de], a inc de ld a, $4 call GetSRAMBank ld hl, $a603 ld bc, $8 call CopyBytes ld hl, $a007 ld bc, $c call CopyBytes call CloseSRAM ret ; known jump sources: 105691 (41:5691) Function1057d7: ; 1057d7 (41:57d7) call WhiteBGMap call DisableLCD ld hl, $5930 ld de, $9000 ld a, $41 ld bc, $400 call FarCopyBytes ld hl, $5d30 ld de, $8000 ld a, $41 ld bc, $80 call FarCopyBytes ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld a, $3f ld bc, $168 call ByteFill ld hl, $c52f ld bc, $90f call ClearBox ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld a, $0 ld [hli], a inc a ld [hl], a ld hl, $c4b4 inc a ld [hli], a inc a ld [hl], a ld hl, $c4cc ld a, $13 call Function1058ca ld hl, $c4e0 ld a, $1e call Function1058ce ld hl, $c4f4 ld a, $2a call Function1058ce ld hl, $c4c9 ld [hl], $4 ld hl, $c4dd ld a, $5 call Function1058de ld a, $9 ld hl, $c516 call Function1058da ld hl, $c506 ld a, $b call Function1058e9 ld hl, $c5e2 ld a, $7 call Function1058e9 ld hl, $c506 ld a, $d call Function1058c6 ld hl, $c50c ld [hl], $c ld hl, $c516 ld [hl], $a ld hl, $c5f2 ld [hl], $8 ld hl, $c5e1 ld [hl], $6 ld hl, $c51a ld a, $37 call Function1058e9 ld hl, $c5ce ld a, $3d call Function1058e9 ld hl, $c51a ld a, $39 call Function1058d6 ld hl, $c529 ld a, $3b call Function1058d6 ld hl, $c51a ld [hl], $36 ld hl, $c529 ld [hl], $38 ld hl, $c5ce ld [hl], $3c ld hl, $c5dd ld [hl], $3e ld de, Sprites ; $c400 ld hl, $58f0 ld bc, $40 call CopyBytes call EnableLCD call WaitBGMap ld b, $2 callba Function4930f jp Function32f9 ; known jump sources: 10585e (41:585e) Function1058c6: ; 1058c6 (41:58c6) ld b, $6 jr asm_1058d0 ; known jump sources: 105821 (41:5821) Function1058ca: ; 1058ca (41:58ca) ld b, $b jr asm_1058d0 ; known jump sources: 105829 (41:5829), 105831 (41:5831) Function1058ce: ; 1058ce (41:58ce) ld b, $c ; known jump sources: 1058c8 (41:58c8), 1058cc (41:58cc), 1058d3 (41:58d3) asm_1058d0: ; 1058d0 (41:58d0) ld [hli], a inc a dec b jr nz, asm_1058d0 ret ; known jump sources: 10588a (41:588a), 105892 (41:5892) Function1058d6: ; 1058d6 (41:58d6) ld b, $9 jr asm_1058e0 ; known jump sources: 105846 (41:5846) Function1058da: ; 1058da (41:58da) ld b, $b jr asm_1058e0 ; known jump sources: 10583e (41:583e) Function1058de: ; 1058de (41:58de) ld b, $e ; known jump sources: 1058d8 (41:58d8), 1058dc (41:58dc), 1058e6 (41:58e6) asm_1058e0: ; 1058e0 (41:58e0) ld [hl], a ld de, $14 add hl, de dec b jr nz, asm_1058e0 ret ; known jump sources: 10584e (41:584e), 105856 (41:5856), 10587a (41:587a), 105882 (41:5882) Function1058e9: ; 1058e9 (41:58e9) ld b, $10 .asm_1058eb ld [hli], a dec b jr nz, .asm_1058eb ret ; 1058f0 (41:58f0) INCBIN "baserom.gbc",$1058f0,$105930 - $1058f0 ; japanese mystery gift gfx INCBIN "gfx/misc/mystery_gift_jp.2bpp" DisplayUsedMoveText: ; 105db0 ; battle command 03 ld hl, UsedMoveText call BattleTextBox jp WaitBGMap ; 105db9 UsedMoveText: ; 105db9 ; this is a stream of text and asm from 105db9 to 105ef6 ; print actor name text_jump _ActorNameText start_asm ; ???? ld a, [hBattleTurn] and a jr nz, .start ; append used move list ld a, [PlayerMoveAnimation] call UpdateUsedMoves .start ; get address for last move ld a, $13 ; last move call _GetBattleVar ld d, h ld e, l ; get address for last counter move ld a, $11 call _GetBattleVar ; get move animation (id) ld a, $c ; move animation call GetBattleVar ld [$d265], a ; check actor ???? push hl callba Function0x34548 pop hl jr nz, .grammar ; update last move ld a, [$d265] ld [hl], a ld [de], a .grammar call GetMoveGrammar ; $d265 now contains MoveGrammar ; everything except 'instead' made redundant in localization ; check obedience ld a, [AlreadyDisobeyed] and a ld hl, UsedMove2Text ret nz ; check move grammar ld a, [$d265] cp $3 ld hl, UsedMove2Text ret c ld hl, UsedMove1Text ret ; 105e04 UsedMove1Text: ; 105e04 text_jump _UsedMove1Text start_asm jr Function105e10 ; 105e0b UsedMove2Text: ; 105e0b text_jump _UsedMove2Text start_asm ; 105e10 Function105e10: ; 105e10 ; check obedience ld a, [AlreadyDisobeyed] and a jr z, GetMoveNameText ; print "instead," ld hl, UsedInsteadText ret ; 105e1a UsedInsteadText: ; 105e1a text_jump _UsedInsteadText start_asm ; 105e1f GetMoveNameText: ; 105e1f ld hl, MoveNameText ret ; 105e23 MoveNameText: ; 105e23 text_jump _MoveNameText start_asm ; 105e28 GetUsedMoveTextEnder: ; 105e28 ; get start address ld hl, .endusedmovetexts ; get move id ld a, [$d265] ; 2-byte pointer add a ; seek push bc ld b, $0 ld c, a add hl, bc pop bc ; get pointer to usedmovetext ender ld a, [hli] ld h, [hl] ld l, a ret ; 105e39 .endusedmovetexts ; 105e39 dw EndUsedMove1Text dw EndUsedMove2Text dw EndUsedMove3Text dw EndUsedMove4Text dw EndUsedMove5Text ; 105e43 EndUsedMove1Text: ; 105e43 text_jump _EndUsedMove1Text db "@" ; 105e48 EndUsedMove2Text: ; 105e48 text_jump _EndUsedMove2Text db "@" ; 105e4d EndUsedMove3Text: ; 105e4d text_jump _EndUsedMove3Text db "@" ; 105e52 EndUsedMove4Text: ; 105e52 text_jump _EndUsedMove4Text db "@" ; 105e57 EndUsedMove5Text: ; 105e57 text_jump _EndUsedMove5Text db "@" ; 105e5c GetMoveGrammar: ; 105e5c ; store move grammar type in $d265 push bc ; c = move id ld a, [$d265] ld c, a ld b, $0 ; read grammar table ld hl, MoveGrammar .loop ld a, [hli] ; end of table? cp $ff jr z, .end ; match? cp c jr z, .end ; advance grammar type at $00 and a jr nz, .loop ; next grammar type inc b jr .loop .end ; $d265 now contains move grammar ld a, b ld [$d265], a ; we're done pop bc ret ; 105e7a MoveGrammar: ; 105e7a ; made redundant in localization ; each move is given an identifier for what usedmovetext to use (0-4): ; 0 db SWORDS_DANCE db GROWTH db STRENGTH db HARDEN db MINIMIZE db SMOKESCREEN db WITHDRAW db DEFENSE_CURL db EGG_BOMB db SMOG db BONE_CLUB db FLASH db SPLASH db ACID_ARMOR db BONEMERANG db REST db SHARPEN db SUBSTITUTE db MIND_READER db SNORE db PROTECT db SPIKES db ENDURE db ROLLOUT db SWAGGER db SLEEP_TALK db HIDDEN_POWER db PSYCH_UP db EXTREMESPEED db 0 ; end set ; 1 db RECOVER db TELEPORT db BIDE db SELFDESTRUCT db AMNESIA db FLAIL db 0 ; end set ; 2 db MEDITATE db AGILITY db MIMIC db DOUBLE_TEAM db BARRAGE db TRANSFORM db STRUGGLE db SCARY_FACE db 0 ; end set ; 3 db POUND db SCRATCH db VICEGRIP db WING_ATTACK db FLY db BIND db SLAM db HORN_ATTACK db WRAP db THRASH db TAIL_WHIP db LEER db BITE db GROWL db ROAR db SING db PECK db ABSORB db STRING_SHOT db EARTHQUAKE db FISSURE db DIG db TOXIC db SCREECH db METRONOME db LICK db CLAMP db CONSTRICT db POISON_GAS db BUBBLE db SLASH db SPIDER_WEB db NIGHTMARE db CURSE db FORESIGHT db CHARM db ATTRACT db ROCK_SMASH db 0 ; end set ; all other moves = 4 db $ff ; end ; 105ed0 UpdateUsedMoves: ; 105ed0 ; append move a to PlayerUsedMoves unless it has already been used push bc ; start of list ld hl, PlayerUsedMoves ; get move id ld b, a ; loop count ld c, NUM_MOVES .loop ; get move from the list ld a, [hli] ; not used yet? and a jr z, .add ; already used? cp b jr z, .quit ; next byte dec c jr nz, .loop ; if the list is full and the move hasn't already been used ; shift the list back one byte, deleting the first move used ; this can occur with struggle or a new learned move ld hl, PlayerUsedMoves + 1 ; 1 = 2 ld a, [hld] ld [hli], a ; 2 = 3 inc hl ld a, [hld] ld [hli], a ; 3 = 4 inc hl ld a, [hld] ld [hl], a ; 4 = new move ld a, b ld [PlayerUsedMoves + 3], a jr .quit .add ; go back to the byte we just inced from dec hl ; add the new move ld [hl], b .quit ; list updated pop bc ret ; 105ef6 Mobile_HallOfFame2: ; 0x105ef6 ret ; 105ef7 Function105ef7: ; 105ef7 ld a, $5 call GetSRAMBank ld hl, GameTimeHours ld de, $a001 ld bc, $0004 call CopyBytes ld hl, $a010 ld de, $a005 ld bc, $0004 call CopyBytes ld hl, $a039 ld de, $a009 ld bc, $0004 call CopyBytes ld hl, $a01b ld de, $a00d ld bc, $0003 call CopyBytes call Function106162 call CloseSRAM ret ; 105f33 Function105f33: ; 105f33 ret ; 105f34 Function105f34: ; 105f34 ld a, $5 call GetSRAMBank ld de, Buffer1 ld hl, $a07b ld a, [de] cp [hl] jr z, .asm_105f47 jr nc, .asm_105f4f jr .asm_105f55 .asm_105f47 inc hl inc de ld a, [de] cp [hl] dec hl dec de jr c, .asm_105f55 .asm_105f4f ld a, [de] inc de ld [hli], a ld a, [de] dec de ld [hl], a .asm_105f55 ld hl, $a07d ld a, [hli] or [hl] dec hl jr z, .asm_105f6d ld a, [de] cp [hl] jr z, .asm_105f65 jr c, .asm_105f6d jr .asm_105f72 .asm_105f65 inc hl inc de ld a, [de] cp [hl] jr nc, .asm_105f72 dec hl dec de .asm_105f6d ld a, [de] inc de ld [hli], a ld a, [de] ld [hl], a .asm_105f72 call Function106162 call CloseSRAM ret ; 105f79 Function105f79: ; 105f79 ret ; 105f7a Function105f7a: ; 105f7a ld a, $5 call GetSRAMBank ld a, [hProduct] ld hl, $a07f cp [hl] jr z, .asm_105f8b jr nc, .asm_105f92 jr .asm_105f98 .asm_105f8b inc hl ld a, [hMultiplicand] cp [hl] jr c, .asm_105f98 dec hl .asm_105f92 ld a, [hProduct] ld [hli], a ld a, [hMultiplicand] ld [hl], a .asm_105f98 call Function106162 call CloseSRAM ret ; 105f9f Function105f9f: ; 105f9f ret ; 105fa0 Function105fa0: ; 105fa0 ld a, $5 call GetSRAMBank ld hl, $a070 inc [hl] jr nz, .asm_105fae dec hl inc [hl] inc hl .asm_105fae dec hl ld a, [$a071] cp [hl] jr z, .asm_105fb9 jr c, .asm_105fc1 jr .asm_105fc9 .asm_105fb9 inc hl ld a, [$a072] cp [hl] jr nc, .asm_105fc9 dec hl .asm_105fc1 ld a, [hli] ld [$a071], a ld a, [hl] ld [$a072], a .asm_105fc9 call Function106162 call CloseSRAM ret ; 105fd0 Function105fd0: ; 105fd0 ret ; 105fd1 Function105fd1: ; 105fd1 ld a, $5 call GetSRAMBank ld hl, $a06f xor a ld [hli], a ld [hl], a call Function106162 call CloseSRAM ret ; 105fe3 Function105fe3: ; 105fe3 ret ; 105fe4 Function105fe4: ; 105fe4 ld a, $5 call GetSRAMBank ld hl, $a076 ld a, e add [hl] ld [hld], a ld a, d adc [hl] ld [hld], a jr nc, .asm_106001 inc [hl] jr nz, .asm_106001 dec hl inc [hl] jr nz, .asm_106001 ld a, $ff ld [hli], a ld [hli], a ld [hli], a ld [hl], a .asm_106001 call Function106162 call CloseSRAM ret ; 106008 Function106008: ; 106008 ret ; 106009 Function106009: ; 106009 ld a, $5 call GetSRAMBank ld hl, $a07a ld a, [bc] dec bc add [hl] ld [hld], a ld a, [bc] dec bc adc [hl] ld [hld], a ld a, [bc] adc [hl] ld [hld], a jr nc, .asm_106027 inc [hl] jr nz, .asm_106027 ld a, $ff ld [hli], a ld [hli], a ld [hli], a ld [hl], a .asm_106027 call Function106162 call CloseSRAM ret ; 10602e ; no known jump sources Function10602e: ; 10602e (41:602e) ret ; 10602f (41:602f) INCBIN "baserom.gbc",$10602f,$106049 - $10602f Function106049: ; 106049 ret ; 10604a (41:604a) INCBIN "baserom.gbc",$10604a,$106050 - $10604a Function106050: ; 106050 ret ; 106051 Function106051: ; 106051 ld a, [BattleType] cp $3 ret z ld hl, $a01b jp Function10611d ; 10605d Function10605d: ; 10605d ret ; 10605e Function10605e: ; 10605e ld a, [BattleType] cp $3 ret z ld hl, $a01e jp Function10611d ; 10606a Function10606a: ; 10606a ret ; 10606b Function10606b: ; 10606b ld hl, $a021 jp Function10611d ; 106071 INCBIN "baserom.gbc",$106071,$106078 - $106071 Mobile_HallOfFame: ; 0x106078 ret Function106079: ; 106079 ld hl, $a027 jp Function10611d ; 10607f ; no known jump sources Function10607f: ; 10607f (41:607f) ret ; 106080 (41:6080) INCBIN "baserom.gbc",$106080,$106086 - $106080 Function106086: ; 106086 ret ; 106087 Function106087: ; 106087 ld hl, $a02d jp Function10611d ; 10608d ; no known jump sources Function10608d: ; 10608d (41:608d) ret ; 10608e (41:608e) INCBIN "baserom.gbc",$10608e,$106094 - $10608e Function106094: ; 106094 ret ; 106095 Function106095: ; 106095 ld hl, $a033 jp Function10611d ; 10609b Function10609b: ; 10609b ret ; 10609c (41:609c) INCBIN "baserom.gbc",$10609c,$1060a2 - $10609c Function1060a2: ; 1060a2 ret ; 1060a3 Function1060a3: ; 1060a3 ld hl, $a039 jp Function10611d ; 1060a9 ; no known jump sources Function1060a9: ; 1060a9 (41:60a9) ret ; 1060aa (41:60aa) INCBIN "baserom.gbc",$1060aa,$1060af - $1060aa Function1060af: ; 1060af ret ; 1060b0 INCBIN "baserom.gbc",$1060b0,$1060b5 - $1060b0 Function1060b5: ; 1060b5 ret ; 1060b6 INCBIN "baserom.gbc",$1060b6,$1060bb - $1060b6 Function1060bb: ; 1060bb ret ; 1060bc INCBIN "baserom.gbc",$1060bc,$1060c1 - $1060bc Function1060c1: ; 1060c1 ret ; 1060c2 INCBIN "baserom.gbc",$1060c2,$1060c7 - $1060c2 Function1060c7: ; 1060c7 ret ; 1060c8 (41:60c8) INCBIN "baserom.gbc",$1060c8,$1060cd - $1060c8 Function1060cd: ; 1060cd ret ; 1060ce INCBIN "baserom.gbc",$1060ce,$1060d3 - $1060ce Function1060d3: ; 1060d3 ret ; 1060d4 INCBIN "baserom.gbc",$1060d4,$1060df - $1060d4 Function1060df: ; 1060df ret ; 1060e0 INCBIN "baserom.gbc",$1060e0,$1060e5 - $1060e0 Function1060e5: ; 1060e5 ret ; 1060e6 (41:60e6) INCBIN "baserom.gbc", $1060e6, $1060ef - $1060e6 Function1060ef: ; 1060ef ret ; 1060f0 INCBIN "baserom.gbc", $1060f0, $1060fb - $1060f0 Function1060fb: ; 1060fb ret ; 1060fc INCBIN "baserom.gbc",$1060fc,$106101 - $1060fc Function106101: ; 106101 ret ; 106102 Function106102: ; 106102 ld hl, $a066 jr Function10611d ; 106107 Function106107: ; 106107 ret ; 106108 Function106108: ; 106108 ld hl, $a069 jr Function10611d ; 10610d Function10610d: ; 10610d ret ; 10610e Function10610e: ; 10610e ld a, [hBattleTurn] and a ret nz ld hl, $a06c jr Function10611d ; 106117 Function106117: ; 106117 push bc ld bc, 3 jr Function10612d ; 10611d Function10611d: ; 10611d push bc ld bc, 2 jr Function10612d ; 106123 Function106123: ; 106123 push bc ld bc, 1 jr Function10612d ; 106129 Function106129: ; 106129 push bc ld bc, 0 Function10612d: ; 10612d ld a, $5 call GetSRAMBank push hl push de ld e, c inc e .asm_106136 ld a, [hli] inc a jr nz, .asm_10613d dec e jr nz, .asm_106136 .asm_10613d pop de pop hl jr z, .asm_10614d add hl, bc .asm_106142 inc [hl] jr nz, .asm_10614d ld a, c and a jr z, .asm_10614d dec hl dec c jr .asm_106142 .asm_10614d call Function106162 call CloseSRAM pop bc ret ; 106155 INCBIN "baserom.gbc",$106155,$106162 - $106155 Function106162: ; 106162 push de call Function10616e ld hl, $a081 ld [hl], d inc hl ld [hl], e pop de ret ; 10616e Function10616e: ; 10616e push bc ld hl, $a001 ld bc, $0080 xor a ld de, $0000 .asm_106179 ld a, e add [hl] ld e, a jr nc, .asm_10617f inc d .asm_10617f inc hl dec bc ld a, b or c jr nz, .asm_106179 pop bc ret ; 106187 Function106187: ; 106187 ld a, $1 call GetSRAMBank ld a, [$be3c] push af ld a, $1 call GetSRAMBank pop af ld [$be44], a call CloseSRAM ret ; 10619d ; no known jump sources Function10619d: ; 10619d (41:619d) ld a, $1 call GetSRAMBank ld a, [$be44] push af ld a, $1 call GetSRAMBank pop af ld [$be3c], a call CloseSRAM ret ; 1061b3 (41:61b3) INCBIN "baserom.gbc",$1061b3,$1061c0 - $1061b3 ; no known jump sources Function1061c0: ; 1061c0 (41:61c0) ld a, $1 call GetSRAMBank xor a ld [$be3c], a call CloseSRAM ret ; 1061cd (41:61cd) INCBIN "baserom.gbc",$1061cd,$1061ef - $1061cd Function1061ef: ; 1061ef push bc xor a ld [hProduct], a ld [hMultiplicand], a ld [$ffb5], a ld a, b and $f cp $1 jr z, .asm_106212 cp $2 jr z, .asm_10620e cp $3 jr z, .asm_10620a ld a, [de] ld [hProduct], a inc de .asm_10620a ld a, [de] ld [hMultiplicand], a inc de .asm_10620e ld a, [de] ld [$ffb5], a inc de .asm_106212 ld a, [de] ld [$ffb6], a inc de push de xor a ld [$ffbb], a ld a, b ld [$ffbc], a ld a, c cp $2 jr z, .asm_10626a ld de, $62ae cp $3 jr z, .asm_106256 ld de, $62aa cp $4 jr z, .asm_106256 ld de, $62a6 cp $5 jr z, .asm_106256 ld de, $62a2 cp $6 jr z, .asm_106256 ld de, $629e cp $7 jr z, .asm_106256 ld de, $629a cp $8 jr z, .asm_106256 ld de, $6296 cp $9 jr z, .asm_106256 ld de, $6292 .asm_106256 inc de inc de inc de dec a dec a .asm_10625b push af call Function1062b2 call Function1062ff inc de inc de inc de inc de pop af dec a jr nz, .asm_10625b .asm_10626a ld c, $0 ld a, [$ffb6] .asm_10626e cp $a jr c, .asm_106277 sub $a inc c jr .asm_10626e .asm_106277 ld b, a ld a, [$ffbb] or c ld [$ffbb], a jr nz, .asm_106284 call Function1062f7 jr .asm_106288 .asm_106284 ld a, $f6 add c ld [hl], a .asm_106288 call Function1062ff ld a, $f6 add b ld [hli], a pop de pop bc ret ; 106292 INCBIN "baserom.gbc",$106292,$1062b2 - $106292 Function1062b2: ; 1062b2 ld c, $0 .asm_1062b4 ld a, [de] dec de ld b, a ld a, [$ffb6] sub b ld [$ffba], a ld a, [de] dec de ld b, a ld a, [$ffb5] sbc b ld [$ffb9], a ld a, [de] dec de ld b, a ld a, [hMultiplicand] sbc b ld [hMathBuffer], a ld a, [de] inc de inc de inc de ld b, a ld a, [hProduct] sbc b ld [hMultiplier], a jr c, .asm_1062eb ld a, [hMultiplier] ld [hProduct], a ld a, [hMathBuffer] ld [hMultiplicand], a ld a, [$ffb9] ld [$ffb5], a ld a, [$ffba] ld [$ffb6], a inc c jr .asm_1062b4 .asm_1062eb ld a, [$ffbb] or c jr z, Function1062f7 ld a, $f6 add c ld [hl], a ld [$ffbb], a ret Function1062f7 ld a, [$ffbc] bit 7, a ret z ld [hl], $f6 ret ; 1062ff Function1062ff: ; 1062ff ld a, [$ffbc] bit 7, a jr nz, .asm_10630d bit 6, a jr z, .asm_10630d ld a, [$ffbb] and a ret z .asm_10630d inc hl ret ; 10630f Function10630f: ; 10630f xor a ld [ScriptVar], a ret ; 106314 INCBIN "baserom.gbc",$106314,$10632f - $106314 Function10632f: ; 10632f or a ret ; 106331 INCBIN "baserom.gbc",$106331,$106462 - $106331 Function106462: ; 106462 ret ; 106463 INCBIN "baserom.gbc",$106463,$106464 - $106463 Function106464: ; 106464 ld de, $5214 ld hl, $9600 ld bc, $3e01 call Get2bpp ld de, $5424 ld hl, $9610 ld bc, $3e01 call Get2bpp ld de, $6514 ld hl, $9620 ld c, $9 ld b, $41 call Get2bpp ld de, $40b0 ld hl, $96b0 ld b, $f call Get2bpp callba Functionfb4cc ret ; 10649b INCBIN "baserom.gbc",$10649b,$106594 - $10649b Function106594: ; 106594 ld de, $65ad ld hl, VTiles1 ld bc, $4180 call Get2bpp ld de, $6dad ld hl, $97f0 ld bc, $4101 call Get2bpp ret ; 1065ad INCBIN "baserom.gbc",$1065ad,$106dbc - $1065ad SECTION "bank42", ROMX, BANK[$42] INCBIN "baserom.gbc",$108000,$108016 - $108000 Function108016: ; 108016 ld a, $0 ld [$cf65], a ld de, $4021 jp Function108089 ; 108021 INCBIN "baserom.gbc",$108021,$108089 - $108021 Function108089: ; 108089 ld hl, BattleEnded ld [hl], e inc hl ld [hl], d ld a, [$ffde] push af xor a ld [$ffde], a ld hl, VramState ld a, [hl] push af res 0, [hl] ld hl, Options ld a, [hl] push af set 4, [hl] call Function108157 .asm_1080a6 call Function10824b jr nc, .asm_1080a6 pop af ld [Options], a pop af ld [VramState], a pop af ld [$ffde], a ret ; 1080b7 INCBIN "baserom.gbc",$1080b7,$108157 - $1080b7 Function108157: ; 108157 xor a ld [$cf63], a call WhiteBGMap call ClearSprites call ClearTileMap call DisableLCD call Function1081ad call Function1081ca call Functione51 call Functione58 call EnableLCD xor a ld [hSCX], a ld [hSCY], a ld a, $7 ld [hWX], a ld a, $90 ld [hWY], a callba Function8cf53 xor a ld hl, $c300 ld [hli], a ld [hl], $0 call DelayFrame ld a, [PlayerSDefLevel] ld de, PlayerAccLevel call Function108239 ld a, [PlayerLightScreenCount] ld de, PlayerReflectCount call Function108239 xor a call Function108b98 call Function108af4 ret ; 1081ad Function1081ad: ; 1081ad ld a, $1 ld [rVBK], a ld hl, VTiles0 ld bc, $1800 xor a call ByteFill ld a, $0 ld [rVBK], a ld hl, VTiles0 ld bc, $1800 xor a call ByteFill ret ; 1081ca Function1081ca: ; 1081ca ld a, $1 ld [rVBK], a ld hl, VBGMap0 ld bc, $0800 ld a, $0 call ByteFill ld a, $0 ld [rVBK], a ld hl, VBGMap0 ld bc, $0800 ld a, $7f call ByteFill ret ; 1081e9 INCBIN "baserom.gbc",$1081e9,$108239 - $1081e9 Function108239: ; 108239 push de ld [$d265], a call GetPokemonName ld hl, StringBuffer1 pop de ld bc, $000b call CopyBytes ret ; 10824b Function10824b: ; 10824b ld a, [$cf63] bit 7, a jr nz, .asm_10825a call Function10827b call DelayFrame and a ret .asm_10825a xor a ld [hSCX], a ld [hSCY], a ld a, $7 ld [hWX], a ld a, $90 ld [hWY], a call Functione51 call Functione58 callba Function106462 callba Function106464 scf ret ; 10827b Function10827b: ; 10827b ld a, [$cf63] ld e, a ld d, $0 ld hl, $428a add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 10828a INCBIN "baserom.gbc",$10828a,$108af4 - $10828a Function108af4: ; 108af4 ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld a, [$cf65] and $1 jr z, .asm_108b1c ld hl, $5187 ld de, Unkn2Pals ld bc, $0040 call CopyBytes ld hl, $5187 ld de, OBPals ld bc, $0040 call CopyBytes jr .asm_108b34 .asm_108b1c ld hl, $5147 ld de, Unkn2Pals ld bc, $0040 call CopyBytes ld hl, $5147 ld de, OBPals ld bc, $0040 call CopyBytes .asm_108b34 pop af ld [rSVBK], a ld a, $e4 call Functioncf8 ld a, $e4 call DmgToCgbBGPals call DelayFrame ret ; 108b45 INCBIN "baserom.gbc",$108b45,$108b98 - $108b45 Function108b98: ; 108b98 ld d, a ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld a, [$cf65] and $1 xor d jr z, .asm_108bad ld hl, $4ba0 jr .asm_108bb0 .asm_108bad ld hl, $4b98 .asm_108bb0 ld de, $d038 ld bc, $0040 call CopyBytes pop af ld [rSVBK], a ret ; 108bbd INCBIN "baserom.gbc",$108bbd,$108bc7 - $108bbd ; no known jump sources Function108bc7: ; 108bc7 (42:4bc7) ld a, [$cf64] and a ret z ld hl, $5 add hl, bc ld a, [hl] cp $f2 jr z, .asm_108bd9 sub $8 ld [hl], a ret .asm_108bd9 callba Function8d036 ret ; no known jump sources Function108be0: ; 108be0 (42:4be0) ld hl, $5 add hl, bc ld a, [hl] cp $4a ret z add $8 ld [hl], a ret ; 108bec (42:4bec) INCBIN "baserom.gbc",$108bec,$109407 - $108bec IntroLogoGFX: ; 109407 INCBIN "gfx/intro/logo.lz" ; 109847 SECTION "bank43", ROMX, BANK[$43] INCBIN "baserom.gbc",$10c000,$10ed67 - $10c000 INCLUDE "engine/title.asm" SECTION "bank44", ROMX, BANK[$44] INCLUDE "lib/mobile/main.asm" SECTION "bank45", ROMX, BANK[$45] INCBIN "baserom.gbc",$114000,$114243 - $114000 Function114243: ; 114243 ld a, $a ld [$0000], a ld a, [$ff8c] push af push de ld a, [$dc02] add a ld e, a ld d, $0 ld hl, $4165 add hl, de ld a, [hli] ld h, [hl] ld l, a pop de jp [hl] ; 11425c INCBIN "baserom.gbc",$11425c,$115d99 - $11425c Function115d99: ; 115d99 ld de, $601a ld hl, $8600 ld bc, $4514 call Get2bpp xor a ld [$c305], a ld [$c306], a ld [$c309], a ld [$c30a], a ld [$c30b], a ld [$c30c], a ld a, $10 ld [$c307], a ld a, $18 ld [$c308], a ret ; 115dc3 INCBIN "baserom.gbc",$115dc3,$115dd3 - $115dc3 Function115dd3: ; 115dd3 ld a, [$c305] and a ret z ld a, $a0 ld hl, $c47c ld bc, $0020 call ByteFill call Function115e22 ld a, [$c309] sla a ld c, a ld b, $0 ld hl, $5e86 add hl, bc ld a, [hli] ld e, a ld a, [hl] ld d, a push de pop hl ld de, $c47c ld a, [$c307] ld c, a ld a, [$c308] ld b, a ld a, [hli] .asm_115e04 push af ld a, [hli] add b ld [de], a inc de ld a, [hli] add c ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [hli] ld [de], a inc de pop af dec a jr nz, .asm_115e04 ret ; 115e18 Function115e18: ; 115e18 ld a, c ld [$c30a], a xor a ld [$c30b], a jr Function115e2b ; 115e22 Function115e22: ; 115e22 ld hl, $c30c dec [hl] ret nz ld hl, $c30b inc [hl] Function115e2b: ; 115e2b ld a, [$c30a] sla a ld c, a ld b, $0 ld hl, $5e59 add hl, bc ld a, [hli] ld e, a ld a, [hli] ld d, a push de pop hl ld a, [$c30b] sla a ld c, a ld b, $0 add hl, bc ld a, [hli] cp $ff jr nz, .asm_115e51 xor a ld [$c30b], a jr Function115e2b .asm_115e51 ld [$c309], a ld a, [hl] ld [$c30c], a ret ; 115e59 INCBIN "baserom.gbc",$115e59,$11615a - $115e59 Function11615a: ; 11615a xor a ld [$c30d], a ld [$c319], a ld [$c310], a ld [$c311], a ld [$c312], a ld [$c313], a ld [$c314], a ld [$c315], a ld [$c318], a ld [$c3f6], a ld [$c3f8], a ld [$c3f2], a ld [$c3f4], a ld a, $24 ld [$c3f5], a ld a, $7 ld [$c3f7], a ld a, $b0 ld [$c30e], a ld [$c3f1], a ld a, $48 ld [$c30f], a ld [$c3f3], a ret ; 11619d Function11619d: ; 11619d ld a, [$c30d] and a ret z ld a, [$c319] cp $2 jr c, .asm_1161b4 ld a, $a0 ld hl, Sprites ld bc, $0064 call ByteFill .asm_1161b4 call Function1161b8 ret ; 1161b8 Function1161b8: ; 1161b8 ld a, [$c319] ld e, a ld d, $0 ld hl, $61c7 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 1161c7 INCBIN "baserom.gbc",$1161c7,$117656 - $1161c7 Function117656: ; 117656 callba GiveOddEgg ret ; 11765d ; no known jump sources Function11765d: ; 11765d (45:765d) ld a, [$FF00+$aa] push af ld a, $1 ld [$FF00+$aa], a call Function11766b pop af ld [$FF00+$aa], a ret ; known jump sources: 117664 (45:7664) Function11766b: ; 11766b (45:766b) call Function117699 ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 call Function1176ee ld a, $5 call GetSRAMBank ld hl, $b1f3 ld de, $cd49 ld bc, $8 call CopyBytes ld de, $c708 ld bc, $11 call CopyBytes call CloseSRAM pop af ld [rSVBK], a ; $ff00+$70 ret ; known jump sources: 11766b (45:766b) Function117699: ; 117699 (45:7699) ld a, $5 call GetSRAMBank ld hl, $cd49 ld de, $b1f3 ld bc, $8 call CopyBytes ld hl, $c708 ld bc, $11 call CopyBytes call CloseSRAM xor a ld [$cd49], a ld [$cd4a], a ld [$cd4b], a ld [$cd4c], a ld [$cd4d], a ld [$cd4e], a ld [$cd4f], a ld hl, $c708 ld bc, $11 call ByteFill call WhiteBGMap call ClearSprites callba Function171c87 callba Function104061 callba Function8cf53 ret ; known jump sources: 117675 (45:7675), 117707 (45:7707) Function1176ee: ; 1176ee (45:76ee) call Functiona57 ld a, [$cd49] bit 7, a jr nz, .asm_117709 call Function117719 callba Function8cf69 callba Function104061 jr Function1176ee .asm_117709 callba Function8cf53 call WhiteBGMap call Functionfdb call ClearSprites ret ; known jump sources: 1176f8 (45:76f8) Function117719: ; 117719 (45:7719) ld a, [$cd49] ld e, a ld d, $0 ld hl, $7728 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_117728: ; 117728 (45:7728) dw Function117738 dw Function117764 dw Function1178aa dw Function1178e8 dw Function117942 dw Function117976 dw Function117984 dw Function1179a7 ; no known jump sources Function117738: ; 117738 (45:7738) callba Function171ccd ld de, $3018 ld a, $1d call Function3b2a ld hl, $c add hl, bc ld a, $6 ld [hl], a ld de, $4820 ld a, $1d call Function3b2a ld hl, $c add hl, bc ld a, $7 ld [hl], a ld a, $3 ld [$cd23], a jp Function117a0a ; no known jump sources Function117764: ; 117764 (45:7764) ld a, [$cd4a] cp $10 jr nz, .asm_11776f ld a, $1 jr .asm_117770 .asm_11776f xor a .asm_117770 ld [$cd24], a ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $4 jr nz, Function1177a5 ld a, [hl] and $8 jr nz, Function1177ac ld a, [hl] and $1 jp nz, Function11784c ld a, [hl] and $2 jr nz, asm_1177d6 ld hl, $ffa9 ld a, [hl] and $40 jr nz, asm_1177f1 ld a, [hl] and $80 jr nz, asm_11780a ld a, [hl] and $20 jp nz, Function11782d ld a, [hl] and $10 jp nz, Function117837 ret ; known jump sources: 117779 (45:7779), 117863 (45:7863) Function1177a5: ; 1177a5 (45:77a5) callba Function171cf0 ret ; known jump sources: 11777e (45:777e), 11786c (45:786c), 1178a7 (45:78a7) Function1177ac: ; 1177ac (45:77ac) ld a, $2 ld [$cd4c], a ld a, $4 ld [$cd4d], a ret ; known jump sources: 11785b (45:785b) Function1177b7: ; 1177b7 (45:77b7) ld a, $3 ld [$cd24], a ld a, [$cd4a] and a jr z, .asm_1177c5 jp Function117a0a .asm_1177c5 ld a, $6 ld [$cd49], a ret ; known jump sources: 117860 (45:7860) Function1177cb: ; 1177cb (45:77cb) ld a, $80 ld [$cd49], a ld [ScriptVar], a ; $c2dd jp Function117a0a asm_1177d6: ; 1177d6 (45:77d6) call PlayClickSFX ld a, [$cd4a] and a ret z dec a ld [$cd4a], a ld e, a ld d, $0 ld hl, $c708 add hl, de xor a ld [hl], a ld hl, $c4f2 add hl, de ld [hl], a ret asm_1177f1: ; 1177f1 (45:77f1) ld a, [$cd4d] and a ret z dec a ld [$cd4d], a cp $3 ret nz ld a, [$cd4c] ld e, a sla a sla a add e asm_117806: ; 117806 (45:7806) ld [$cd4c], a ret asm_11780a: ; 11780a (45:780a) ld a, [$cd4d] cp $4 ret z inc a ld [$cd4d], a cp $4 ret nz ld a, [$cd4c] cp $a jr nc, .asm_117825 cp $5 jr nc, .asm_117829 xor a jr asm_117806 .asm_117825 ld a, $2 jr asm_117806 .asm_117829 ld a, $1 jr asm_117806 ; known jump sources: 11779b (45:779b) Function11782d: ; 11782d (45:782d) ld a, [$cd4c] and a ret z dec a ld [$cd4c], a ret ; known jump sources: 1177a1 (45:77a1) Function117837: ; 117837 (45:7837) ld e, $d ld a, [$cd4d] cp $4 jr nz, .asm_117842 ld e, $2 .asm_117842 ld a, [$cd4c] cp e ret z inc a ld [$cd4c], a ret ; known jump sources: 117783 (45:7783) Function11784c: ; 11784c (45:784c) call PlayClickSFX ld a, [$cd4d] cp $4 jr nz, .asm_117866 ld a, [$cd4c] cp $2 jp z, Function1177b7 cp $1 jp z, Function1177cb jp Function1177a5 .asm_117866 ld a, [$cd4a] ld e, a cp $10 jp z, Function1177ac inc a ld [$cd4a], a ld d, $0 ld a, [$cd4b] and a jr nz, .asm_117880 ld hl, $7a0f jr .asm_117883 .asm_117880 ld hl, $7a47 .asm_117883 push de ld a, [$cd4c] ld b, a ld a, [$cd4d] ld c, $e call SimpleMultiply add b ld c, a ld b, $0 add hl, bc ld a, [hl] ld hl, $c708 add hl, de ld [hl], a pop de ld hl, $c4f2 add hl, de sub $20 ld [hl], a ld a, e cp $f ret nz jp Function1177ac ; no known jump sources Function1178aa: ; 1178aa (45:78aa) ld hl, $79b5 call LoadMenuDataHeader call Function1cbb call Function1cfd ld hl, $79bd call LoadMenuDataHeader call Function1cbb call Function1cfd callba Function104061 ld hl, $c550 ld de, $79c5 call PlaceString ld hl, $c577 ld a, $ed ld [hl], a ld hl, $c5b9 ld de, $79cc call PlaceString ld a, $1 ld [$cd4e], a jp Function117a0a ; no known jump sources Function1178e8: ; 1178e8 (45:78e8) ld a, [hJoyPressed] ; $ff00+$a7 cp $2 jr z, .asm_117939 cp $1 jr z, .asm_117925 cp $80 jr z, .asm_11790f cp $40 ret nz ld a, [$cd4e] and a ret z dec a ld [$cd4e], a ld hl, $c54f ld a, $ed ld [hl], a ld hl, $c577 ld a, $7f ld [hl], a ret .asm_11790f ld a, [$cd4e] and a ret nz inc a ld [$cd4e], a ld hl, $c54f ld a, $7f ld [hl], a ld hl, $c577 ld a, $ed ld [hl], a ret .asm_117925 call PlayClickSFX ld a, [$cd4e] and a jr nz, .asm_117939 call Function1c07 ld a, $1 ld [$cd4f], a jp Function117a0a .asm_117939 call Function1c07 call Function1c07 jp Function117a0a ; no known jump sources Function117942: ; 117942 (45:7942) call SpeechTextBox ld hl, $c5b9 ld de, $79f7 call PlaceString ld a, $1e ld [$cd4e], a ld a, $5 call GetSRAMBank ld a, [$cd4f] ld [$aa4b], a ld hl, $c708 ld de, $aa4c ld bc, $11 call CopyBytes call CloseSRAM ld a, [$cd4f] and a jr z, asm_11797e call Function117a0a ; no known jump sources Function117976: ; 117976 (45:7976) ld hl, $cd4e dec [hl] ret nz call Function1c07 asm_11797e: ; 11797e (45:797e) ld a, $80 ld [$cd49], a ret ; no known jump sources Function117984: ; 117984 (45:7984) ld hl, $79b5 call LoadMenuDataHeader call Function1cbb call Function1cfd callba Function104061 ld hl, $c5b9 ld de, $79e1 call PlaceString ld a, $1e ld [$cd4e], a call Function117a0a ; no known jump sources Function1179a7: ; 1179a7 (45:79a7) ld hl, $cd4e dec [hl] ret nz call Function1c07 ld a, $1 ld [$cd49], a ret ; 1179b5 (45:79b5) INCBIN "baserom.gbc",$1179b5,$117a0a - $1179b5 ; known jump sources: 117761 (45:7761), 1177c2 (45:77c2), 1177d3 (45:77d3), 1178e5 (45:78e5), 117936 (45:7936), 11793f (45:793f), 117973 (45:7973), 1179a4 (45:79a4) Function117a0a: ; 117a0a (45:7a0a) ld hl, $cd49 inc [hl] ret ; 117a0f (45:7a0f) INCBIN "baserom.gbc",$117a0f,$117a7f - $117a0f ; everything from here to the end of the bank is related to the ; Mobile Stadium option from the continue/newgame menu. ; XXX better function names MobileStudium: ; 0x117a7f ld a, [$ffaa] push af ld a, $1 ld [$ffaa], a call Function117a8d pop af ld [$ffaa], a ret ; 0x117a8d Function117a8d: ; 0x117a8d call Function117a94 call Function117acd ret ; 0x117a94 Function117a94: ; 0x117a94 xor a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [$cf66], a call WhiteBGMap call ClearSprites callba Function172e78 callba Function104000 ret ; 0x117ab4 Function117ab4: ; 0x117ab4 call WhiteBGMap call ClearSprites callba Function172e78 callba Function172eb9 callba Function104061 ret ; 0x117acd Function117acd: ; 0x117acd call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_117ae2 ; 0x117ad5 $b call Function117ae9 callba Function104000 jr Function117acd .asm_117ae2 call WhiteBGMap call ClearSprites ret Function117ae9: ; 0x117ae9 ld a, [$cf63] ld e, a ld d, $0 ld hl, Pointers117af8 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] Pointers117af8: ; 0x117af8 dw Function117b06 dw Function117b14 dw Function117b28 dw Function117b31 dw Function117b4f dw Function117bb6 dw Function117c4a Function117b06: callba Function172eb9 ld a, $10 ld [$cf64], a jp Function117cdd Function117b14: ld hl, $cf64 dec [hl] ret nz ld hl, Data117cbc call LoadMenuDataHeader call Function1cbb call Function1cfd jp Function117cdd Function117b28: ld hl, MobileStadiumEntryText call PrintText jp Function117cdd Function117b31: ld hl, Data117cc4 call LoadMenuDataHeader call Function1cbb call Function1cfd ld hl, $c550 ld de, YesNo117ccc call PlaceString ld hl, $c54f ld a, "▶" ld [hl], a jp Function117cdd Function117b4f: ld a, [hJoyPressed] cp $2 jr z, .asm_117ba4 ; 0x117b53 $4f cp $1 jr z, .asm_117b8c ; 0x117b57 $33 cp $80 jr z, .asm_117b76 ; 0x117b5b $19 cp $40 ret nz ld a, [$cf64] and a ret z dec a ld [$cf64], a ld hl, $c54f ld a, "▶" ld [hl], a ld hl, $c577 ld a, " " ld [hl], a ret .asm_117b76 ld a, [$cf64] and a ret nz inc a ld [$cf64], a ld hl, $c54f ld a, " " ld [hl], a ld hl, $c577 ld a, "▶" ld [hl], a ret .asm_117b8c call PlayClickSFX ld a, [$cf64] and a jr nz, .asm_117ba4 ; 0x117b93 $f call Function1c07 call Function1c07 callba Function104061 jp Function117cdd .asm_117ba4 call Function1c07 call Function1c07 callba Function104061 ld a, $80 ld [$cf63], a ret Function117bb6: call Function117c89 ld a, $1 ld [hBGMapMode], a callba Function118284 call ClearSprites ld a, [$c300] and a jr z, .asm_117be7 ; 0x117bca $1b cp $a jr z, .asm_117be1 ; 0x117bce $11 .asm_117bd0 ld a, $2 ld [$c303], a callba Function17f555 ld a, $80 ld [$cf63], a ret .asm_117be1 ld a, $80 ld [$cf63], a ret .asm_117be7 ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a ld a, [$cd89] and $1 jr nz, .asm_117c16 ; 0x117bf3 $21 ld a, [$d000] cp $fe jr nz, .asm_117c16 ; 0x117bfa $1a ld a, [$d001] cp $f jr nz, .asm_117c16 ; 0x117c01 $13 ld hl, $dfec ld de, $cd69 ld c, $10 .asm_117c0b ld a, [de] inc de cp [hl] jr nz, .asm_117c16 ; 0x117c0e $6 inc hl dec c jr nz, .asm_117c0b ; 0x117c12 $f7 jr .asm_117c20 ; 0x117c14 $a .asm_117c16 pop af ld [rSVBK], a ld a, $d3 ld [$c300], a jr .asm_117bd0 ; 0x117c1e $b0 .asm_117c20 pop af ld [rSVBK], a callba Function172eb9 ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a ld a, $7 call GetSRAMBank ld hl, DefaultFlypoint ld de, $b000 ld bc, $1000 call CopyBytes call CloseSRAM pop af ld [rSVBK], a jp Function117cdd Function117c4a: ld hl, Data117cbc call LoadMenuDataHeader call Function1cbb call Function1cfd callba Function104061 ld hl, MobileStadiumSuccessText call PrintText ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, $d000 ld de, $0008 ld c, $8 .asm_117c71 push hl ld a, $ff ld [hli], a ld a, " " ld [hl], a pop hl add hl, de dec c jr nz, .asm_117c71 ; 0x117c7b $f4 call Function4b6 pop af ld [rSVBK], a ld a, $80 ld [$cf63], a ret Function117c89: ld a, $7 call GetSRAMBank ld l, $0 ld h, l ld de, $b000 ld bc, $0ffc .asm_117c97 push bc ld a, [de] inc de ld c, a ld b, $0 add hl, bc pop bc dec bc ld a, b or c jr nz, .asm_117c97 ; 0x117ca2 $f3 ld a, l ld [$cd83], a ld a, h ld [$cd84], a ld hl, $bfea ld de, $cd69 ld bc, $0010 call CopyBytes call CloseSRAM ret Data117cbc: ; 0x117cbc db $40, $0c, $00, $11, $13, $00, $00, $00 Data117cc4: ; 0x117cc4 db $40, $07, $0e, $0b, $13, $00, $00, $00 ; XXX what is this YesNo117ccc: ; 0x117ccc db "はい", $4e ; Yes db "いいえ@" ; No MobileStadiumEntryText: ; 0x117cd3 TX_FAR _MobileStadiumEntryText db "@" MobileStadiumSuccessText: ; 0x117cd8 TX_FAR _MobileStadiumSuccessText db "@" Function117cdd: ; 0x117cdd ld hl, $cf63 inc [hl] ret SECTION "bank46", ROMX, BANK[$46] Function118000: ; 118000 ld a, $1 ld [$cd38], a jr .asm_11800b xor a ld [$cd38], a .asm_11800b call Function1183cb ld a, $18 ld [$cd33], a ld a, $19 ld [$cd34], a ld a, $4 ld [$c3f0], a ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a .asm_118024 call Functiona57 call Function118473 ld a, [$cf66] cp $1b jr c, .asm_118037 ld a, [$cd34] ld [$cf66], a .asm_118037 call Function1184a5 call Function11a8fa callba Function115dd3 callba Function11619d call DelayFrame ld a, [$cf66] ld hl, $cd33 cp [hl] jr nz, .asm_118024 pop af ld [rSVBK], a call Function118452 call Function222a Function11805e: ; 11805e (46:405e) ret ; 11805f Function11805f: ; 11805f ld a, $1 ld [$cd38], a call Function1183cb ld a, $18 ld [$cd33], a ld a, $19 ld [$cd34], a ld a, $4 ld [$c3f0], a ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a .asm_11807d call Functiona57 call Function118473 ld a, [$cf66] cp $1b jr c, .asm_118090 ld a, [$cd34] ld [$cf66], a .asm_118090 call Function11857c call Function11a8fa callba Function115dd3 callba Function11619d call DelayFrame ld a, [$cf66] ld hl, $cd33 cp [hl] jr nz, .asm_11807d pop af ld [rSVBK], a call Function118452 call Function222a ret ; 1180b8 INCBIN "baserom.gbc",$1180b8,$11811a - $1180b8 Function11811a: ; 11811a ld a, 1 ld [$cd38], a jr Function118125 Function118121: ; 118121 xor a ld [$cd38], a Function118125: ; 118125 call Function1183cb ld a, $3 ld [$cd33], a ld a, $d ld [$cd34], a ld a, $4 ld [$c3f0], a ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a .asm_11813e call Functiona57 call Function118473 ld a, [$cf66] cp $f jr c, .asm_118151 ld a, [$cd34] ld [$cf66], a .asm_118151 call Function11854d call Function11a8fa callba Function115dd3 callba Function11619d call DelayFrame ld a, [$cf66] ld hl, $cd33 cp [hl] jr nz, .asm_11813e xor a ld [Unkn1Pals], a pop af ld [rSVBK], a call Function118452 call Function118180 call Function222a ret ; 118180 Function118180: ; 118180 ld a, [ScriptVar] and a ret nz ld a, [$cd38] and a ret z ld a, $5 call GetSRAMBank ld hl, $cd69 ld de, $a89c ld bc, $0016 call CopyBytes ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a ld de, $d202 ld c, $96 callba Function17d0b3 jr c, .asm_1181d0 ld de, $d202 ld bc, $0196 callba Function17d1e1 jr c, .asm_1181d0 ld hl, $d202 ld de, $a8b2 ld bc, $0096 call CopyBytes .asm_1181c9 pop af ld [rSVBK], a call CloseSRAM ret .asm_1181d0 ld a, $d3 ld [$c300], a ld [ScriptVar], a jr .asm_1181c9 ; 1181da Function1181da: ; 1181da call Function1183cb ld a, $2 ld [$cd38], a ld a, $21 ld [$cd33], a ld a, $22 ld [$cd34], a ld a, $4 ld [$c3f0], a ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a .asm_1181f8 call Functiona57 call Function118473 ld a, [$cf66] cp $28 jr c, .asm_11820b ld a, [$cd34] ld [$cf66], a .asm_11820b call Function1185c3 call Function11a8fa callba Function115dd3 callba Function11619d call DelayFrame ld a, [$cf66] ld hl, $cd33 cp [hl] jr nz, .asm_1181f8 pop af ld [rSVBK], a call Function118452 call Function222a ret ; 118233 INCBIN "baserom.gbc",$118233,$118284 - $118233 Function118284: ; 118284 call Function1183cb ld a, $19 ld [$cd33], a ld a, $1e ld [$cd34], a ld a, $5 ld [$c3f0], a ld a, [rSVBK] ; $ff00+$70 push af ld a, $3 ld [rSVBK], a ; $ff00+$70 .asm_11829d call Functiona57 call Function118473 ld a, [$cf66] cp $20 jr c, .asm_1182b0 ld a, [$cd34] ld [$cf66], a .asm_1182b0 call Function1186f5 call Function11a8fa callba Function115dd3 callba Function11619d call DelayFrame ld a, [$cf66] ld hl, $cd33 cp [hl] jr nz, .asm_11829d pop af ld [rSVBK], a ; $ff00+$70 call Function118452 ret ; 1182d5 (46:42d5) INCBIN "baserom.gbc",$1182d5,$1183cb - $1182d5 Function1183cb: ; 1183cb di ld a, [rIE] ld [$cd32], a call DoubleSpeed xor a ld [rIF], a ld [$c300], a ld [$c301], a ld [$c302], a ld [$cd80], a ld [$cd65], a ld [$cd66], a ld [$cd67], a ld [$cd68], a ld [$c31a], a ld [$cd89], a ld [$cd8a], a ld [$cd8b], a ld [$c3ec], a ld [$c3ed], a ld [$c3ee], a ld [$c3ef], a ld hl, VramState ld a, [hl] ld [$cd7f], a set 1, [hl] ld a, $f ld [rIE], a ld a, $1 ld [$ffc9], a ld [$ffe9], a ei callba Function106462 callba Function106464 callba Function115d99 callba Function11615a ld a, $5 call GetSRAMBank xor a ld [$bfff], a call CloseSRAM ret ; 118440 INCBIN "baserom.gbc",$118440,$118452 - $118440 Function118452: ; 118452 di xor a ld [$ffc9], a ld [$ffe9], a ld [$ff9e], a call NormalSpeed xor a ld [rIF], a ld a, [$cd32] ld [rIE], a ei ld a, [$cd7f] ld [VramState], a ld a, [$c300] ld [ScriptVar], a ret ; 118473 Function118473: ; 118473 ld a, [$cd65] and a ret z ld a, [$cd66] inc a ld [$cd66], a cp $3c ret nz xor a ld [$cd66], a ld a, [$cd67] inc a ld [$cd67], a cp $3c ret nz ld a, [$cd68] inc a ld [$cd68], a cp $63 jr z, .asm_1184a0 xor a ld [$cd67], a ret .asm_1184a0 xor a ld [$cd65], a ret ; 1184a5 Function1184a5: ; 1184a5 ld a, [$cf66] ld e, a ld d, $0 ld hl, $44b4 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 1184b4 INCBIN "baserom.gbc",$1184b4,$11854d - $1184b4 Function11854d: ; 11854d ld a, [$cf66] ld e, a ld d, $0 ld hl, $455c add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 11855c INCBIN "baserom.gbc",$11855c,$11857c - $11855c Function11857c: ; 11857c ld a, [$cf66] ld e, a ld d, $0 ld hl, $458b add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 11858b INCBIN "baserom.gbc",$11858b,$1185c3 - $11858b Function1185c3: ; 1185c3 ld a, [$cf66] ld e, a ld d, $0 ld hl, $45d2 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 1185d2 INCBIN "baserom.gbc",$1185d2,$1186f5 - $1185d2 ; known jump sources: 1182b0 (46:42b0) Function1186f5: ; 1186f5 (46:46f5) ld a, [$cf66] ld e, a ld d, $0 ld hl, $4704 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 118704 (46:4704) ; no known jump sources Jumptable_118704: ; 118704 (46:4704) dw Function11886a dw Function118880 dw Function11878d dw Function1188b0 dw Function11878d dw Function1188b8 dw Function11878d dw Function1188c0 dw Function11878d dw Function1188c8 dw Function11878d dw Function118903 dw Function118abc dw Function11878d dw Function119451 dw Function1195f8 dw Function119612 dw Function119629 dw Function119648 dw Function11878d dw Function118e6d dw Function11878d dw Function118e76 dw Function118e7e dw Function11878d dw Function11805e dw Function11967d dw Function119685 dw Function119665 dw Function11966d dw Function118e76 dw Function118e87 ; 118744 (46:4744) INCBIN "baserom.gbc",$118744,$11878d - $118744 ; no known jump sources Function11878d: ; 11878d (46:478d) ld a, [$c821] bit 1, a jr nz, .asm_1187af bit 2, a jr nz, .asm_1187d1 bit 0, a jr nz, .asm_1187aa ld a, [$cd89] and $1 jr z, .asm_1187a7 ld a, $3 ld [rSVBK], a ; $ff00+$70 .asm_1187a7 jp Function119e2e .asm_1187aa call Function118821 ret c ret .asm_1187af ld a, $0 call Function3e32 ld [$c300], a ld a, l ld [$c301], a ld a, h ld [$c302], a ld a, $a call Function3e32 ld a, [$c3f0] ld [$c319], a ld a, [$cd34] ld [$cf66], a ret .asm_1187d1 ld hl, $cd89 bit 0, [hl] jr nz, .asm_118803 set 0, [hl] ld a, $6 ld [rSVBK], a ; $ff00+$70 ld de, Unkn1Pals ; $d000 ld bc, $1000 ld a, [hl] sla a jr c, .asm_1187f9 sla a jr c, .asm_1187fd sla a jr c, .asm_1187f5 ld a, $24 jr .asm_1187ff .asm_1187f5 ld a, $28 jr .asm_1187ff .asm_1187f9 ld a, $2a jr .asm_1187ff .asm_1187fd ld a, $2c .asm_1187ff call Function3e32 ret .asm_118803 ld a, $d3 ; known jump sources: 11945a (46:545a), 119573 (46:5573), 1195f5 (46:55f5) Function118805: ; 118805 (46:4805) ld [$c300], a xor a ld [$c301], a ld [$c302], a ld a, $a call Function3e32 ld a, [$c3f0] ld [$c319], a ld a, [$cd34] ld [$cf66], a ret ; known jump sources: 1187aa (46:47aa) Function118821: ; 118821 (46:4821) ld a, [$c319] cp $3 jr c, .asm_11884a cp $4 jr z, .asm_11884a ld a, [hJoyDown] ; $ff00+$a8 cp $5 jr nz, .asm_11884a ld a, $a call Function3e32 ld a, $a ld [$c300], a ld a, [$c3f0] ld [$c319], a ld a, [$cd34] ld [$cf66], a scf ret .asm_11884a and a ret ; 11884c (46:484c) INCBIN "baserom.gbc",$11884c,$11886a - $11884c ; no known jump sources Function11886a: ; 11886a (46:486a) ld a, $1 jr .asm_11886f ; 11886e (46:486e) INCBIN "baserom.gbc",$11886e,$11886f - $11886e .asm_11886f ld [BGMapPalBuffer], a ; $cd48 ld a, $0 ld [$cd3c], a call Function119e2e ld a, [$cd33] ld [$cd45], a ; no known jump sources Function118880: ; 118880 (46:4880) call Function119ed8 ret c xor a ld [$cf64], a ld [$c807], a ld de, $cd81 ld hl, $46 ld a, $2 jp Function119e2b ; 118896 (46:4896) INCBIN "baserom.gbc",$118896,$1188b0 - $118896 ; no known jump sources Function1188b0: ; 1188b0 (46:48b0) ld de, $c346 ld a, $c jp Function119e2b ; no known jump sources Function1188b8: ; 1188b8 (46:48b8) ld de, $c3ac ld a, $e jp Function119e2b ; no known jump sources Function1188c0: ; 1188c0 (46:48c0) ld de, $c3cd ld a, $10 jp Function119e2b ; no known jump sources Function1188c8: ; 1188c8 (46:48c8) ld a, $1 ld [$cd65], a call Function1188e7 ld hl, $c708 .asm_1188d3 ld a, [de] inc de ld [hli], a and a jr nz, .asm_1188d3 call Function119eb4 call Function119ec2 ld hl, $c708 ld a, $6 jp Function119e2b ; known jump sources: 1188cd (46:48cd) Function1188e7: ; 1188e7 (46:48e7) ld de, $c346 ld a, $5 call GetSRAMBank ld a, [$aa4a] call CloseSRAM and a ret z sla a ld c, a .asm_1188fa ld a, [de] inc de and a jr nz, .asm_1188fa dec c jr nz, .asm_1188fa ret ; no known jump sources Function118903: ; 118903 (46:4903) ld a, [$c3f0] ld [$c319], a ld c, $1 callba Function115e18 ld a, $8 ld [$cd3c], a call Function119ed8 jp Function119e2e ; 11891c (46:491c) INCBIN "baserom.gbc",$11891c,$118abc - $11891c ; no known jump sources Function118abc: ; 118abc (46:4abc) ld hl, $4c95 ld de, $cc60 ld bc, $80 call CopyBytes ld de, Unkn1Pals ; $d000 ld bc, $1000 jr .asm_118b10 ; 118ad0 (46:4ad0) INCBIN "baserom.gbc",$118ad0,$118b10 - $118ad0 .asm_118b10 push de push bc ld a, $8 ld [$cd3c], a call Function119ed8 call Function118b24 pop bc pop de ld a, $2a jp Function119e2b ; known jump sources: 118b1a (46:4b1a), 119657 (46:5657) Function118b24: ; 118b24 (46:4b24) ld hl, $c346 ld a, $8 ld [hli], a ld a, $c7 ld [hli], a ld a, $60 ld [hli], a ld a, $cc ld [hli], a call Function119eb4 call Function119ec2 ld a, $80 ld [$cd89], a ld hl, $c346 ret ; 118b42 (46:4b42) INCBIN "baserom.gbc",$118b42,$118ba5 - $118b42 ExchangeDownloadURL: ; 0x118ba5 ascii "http://gameboy.datacenter.ne.jp/cgb/download?name=/01/CGB-BXTJ/exchange/index.txt" db $0 BattleDownloadURL: ; 0x118bf7 ascii "http://gameboy.datacenter.ne.jp/cgb/download?name=/01/CGB-BXTJ/battle/index.txt" db $0 NewsDownloadURL: ; 0x118c47 ascii "http://gameboy.datacenter.ne.jp/cgb/download?name=/01/CGB-BXTJ/news/index.txt" db $0 MenuDownloadURL: ; 0x118c95 ascii "http://gameboy.datacenter.ne.jp/cgb/download?name=/01/CGB-BXTJ/POKESTA/menu.cgb" db $0 IndexDownloadURL: ; 0x118ce4 ascii "http://gameboy.datacenter.ne.jp/cgb/download?name=/01/CGB-BXTJ/tamago/index.txt" db $0 INCBIN "baserom.gbc",$118d35,$118e39 - $118d35 ; known jump sources: 118e3b (46:4e3b), 119633 (46:5633) Function118e39: ; 118e39 (46:4e39) ld a, [hli] and a jr nz, Function118e39 dec hl .asm_118e3e ld a, [hld] cp $2f jr nz, .asm_118e3e inc hl inc hl ld de, $cd85 ld c, $4 .asm_118e4a ld a, [hli] cp $2e jr z, .asm_118e63 cp $30 jr c, .asm_118e67 cp $3a jr nc, .asm_118e67 sub $30 add $f6 ld [de], a inc de dec c jr nz, .asm_118e4a ld de, $cd85 .asm_118e63 ld a, $50 ld [de], a ret .asm_118e67 ld a, $f3 ld [de], a inc de jr .asm_118e63 ; no known jump sources Function118e6d: ; 118e6d (46:4e6d) xor a ld [$cd65], a ld a, $a jp Function119e2b ; no known jump sources Function118e76: ; 118e76 (46:4e76) ld a, $c ld [$cd3c], a jp Function119e2e ; no known jump sources Function118e7e: ; 118e7e (46:4e7e) call Function119ed8 ret c ld a, $36 jp Function119e2b ; no known jump sources Function118e87: ; 118e87 (46:4e87) call Function119ed8 ret c ld a, [$cd33] ld [$cf66], a ret ; 118e92 (46:4e92) INCBIN "baserom.gbc",$118e92,$119451 - $118e92 ; no known jump sources Function119451: ; 119451 (46:5451) ld a, [$cd89] and $1 jr z, .asm_11945d ld a, $d3 jp Function118805 .asm_11945d xor a ld [$cd50], a call Function119694 ld a, b ld [$cd49], a call Function1196cd ld a, [DefaultFlypoint] ; $d002 ld hl, $d003 ; known jump sources: 119562 (46:5562) Function119471: ; 119471 (46:5471) push af ld a, [hli] ld [EnemyMoveAnimation], a ; $c608 (aliases: EnemyMoveStruct) ld a, [hli] ld [EnemyMoveType], a ; $c60b ld a, [hli] ld [EnemyMoveEffect], a ; $c609 ld a, [hli] ld [EnemyMovePower], a ; $c60a ld a, [hli] ld [EnemyMoveAccuracy], a ; $c60c ld a, [hli] ld [EnemyMovePP], a ; $c60d push hl ld a, [EnemyMoveAnimation] ; $c608 (aliases: EnemyMoveStruct) cp $ff jr z, .asm_1194a7 ld a, [EnemyMovePower] ; $c60a cp $ff jr z, .asm_1194a7 ld a, [EnemyMoveEffect] ; $c609 cp $ff jr nz, .asm_1194a7 call Function119584 jr c, .asm_11950c jr .asm_1194f0 .asm_1194a7 ld hl, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) ld de, EnemyMoveType ; $c60b ld c, $3 .asm_1194af ld a, [de] inc de cp [hl] inc hl jr c, .asm_1194f3 jr z, .asm_1194b9 jr nc, .asm_1194bc .asm_1194b9 dec c jr nz, .asm_1194af .asm_1194bc ld c, $3 ld hl, $cd49 ld de, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) .asm_1194c4 ld a, [de] inc de cp $ff jr z, .asm_1194d1 cp [hl] jr z, .asm_1194d1 jr c, .asm_1194d5 jr nc, .asm_1194f0 .asm_1194d1 inc hl dec c jr nz, .asm_1194c4 .asm_1194d5 ld c, $3 ld hl, $cd49 ld de, EnemyMoveType ; $c60b .asm_1194dd ld a, [de] inc de cp $ff jr z, .asm_1194ea cp [hl] jr c, .asm_1194f0 jr z, .asm_1194ea jr nc, .asm_11950c .asm_1194ea inc hl dec c jr nz, .asm_1194dd jr .asm_11950c .asm_1194f0 pop hl jr .asm_119557 .asm_1194f3 ld c, $3 ld hl, $cd49 ld de, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) .asm_1194fb ld a, [de] inc de cp $ff jr z, .asm_119508 cp [hl] jr c, .asm_11950c jr z, .asm_119508 jr nc, .asm_1194d5 .asm_119508 inc hl dec c jr nz, .asm_1194fb .asm_11950c pop hl ld a, $1 ld [$cd50], a ld a, l ld [EnemyMoveAnimation], a ; $c608 (aliases: EnemyMoveStruct) ld a, h ld [EnemyMoveEffect], a ; $c609 ld de, $cd69 ld c, $10 ld b, $0 .asm_119521 ld a, [de] inc de cp [hl] inc hl jr nz, .asm_119528 inc b .asm_119528 dec c jr nz, .asm_119521 ld a, $10 cp b jr z, .asm_119536 inc hl inc hl inc hl inc hl jr .asm_11957a .asm_119536 ld a, [hli] cp $50 jr nz, .asm_119552 ld a, [hli] cp $33 jr nz, .asm_119553 ld a, [hli] ld c, a ld a, [hli] ld b, a ld a, [$cd83] cp c jr nz, .asm_119576 ld a, [$cd84] cp b jr nz, .asm_119576 jr .asm_11955b .asm_119552 inc hl .asm_119553 inc hl inc hl jr .asm_11955b .asm_119557 ld de, $14 add hl, de .asm_11955b ld a, [hli] ld e, a ld a, [hli] ld d, a add hl, de pop af dec a jp nz, Function119471 ld a, [$cd50] and a jr z, .asm_119571 ld a, $1a ld [$cf66], a ret .asm_119571 ld a, $d8 jp Function118805 .asm_119576 ld a, $10 jr .asm_11957c .asm_11957a ld a, $f .asm_11957c ld [$cf66], a pop af call Function1195c4 ret ; known jump sources: 1194a0 (46:54a0) Function119584: ; 119584 (46:5584) ld a, [EnemyMoveAnimation] ; $c608 (aliases: EnemyMoveStruct) ld b, a ld a, [EnemyMoveType] ; $c60b ld c, a cp b jr c, .asm_11959c ld a, [$cd49] cp b jr c, .asm_1195c2 .asm_119595 cp c jr c, .asm_1195a2 jr z, .asm_1195a2 jr .asm_1195c2 .asm_11959c ld a, [$cd49] cp b jr c, .asm_119595 .asm_1195a2 ld a, [EnemyMovePower] ; $c60a ld b, a ld a, [EnemyMovePP] ; $c60d ld c, a cp b jr c, .asm_1195ba ld a, [$cd4b] cp b jr c, .asm_1195c2 .asm_1195b3 cp c jr c, .asm_1195c0 jr z, .asm_1195c0 jr .asm_1195c2 .asm_1195ba ld a, [$cd4b] cp b jr c, .asm_1195b3 .asm_1195c0 scf ret .asm_1195c2 and a ret ; known jump sources: 119580 (46:5580) Function1195c4: ; 1195c4 (46:55c4) ld a, [hli] ld c, a ld a, [hli] ld b, a ld de, $a5 ld a, b cp d jr c, .asm_1195d9 jr z, .asm_1195d3 jr nc, .asm_1195f3 .asm_1195d3 ld a, c cp e jr z, .asm_1195d9 jr nc, .asm_1195f3 .asm_1195d9 ld de, $cc60 call CopyBytes xor a ld [de], a ld a, [EnemyMoveAnimation] ; $c608 (aliases: EnemyMoveStruct) ld l, a ld a, [EnemyMoveEffect] ; $c609 ld h, a ld de, $cd69 ld bc, $10 call CopyBytes ret .asm_1195f3 ld a, $d8 jp Function118805 ; no known jump sources Function1195f8: ; 1195f8 (46:55f8) ld a, $11 ld [$cd3c], a ld a, $1c ld [$cd45], a ld a, $f ld [$cd46], a ld a, $14 ld [$cd47], a call Function119e2e jp Function119e2e ; no known jump sources Function119612: ; 119612 (46:5612) ld a, $14 ld [$cd3c], a ld a, $1c ld [$cd45], a ld a, $10 ld [$cd46], a ld a, $14 ld [$cd47], a jp Function119e2e ; no known jump sources Function119629: ; 119629 (46:5629) call Function119ed8 ret c ld a, $60 ld l, a ld a, $cc ld h, a call Function118e39 ld a, $9 ld [$cd3c], a ld a, $1c ld [$cd45], a ld a, $14 ld [$cd47], a call Function119e2e ; no known jump sources Function119648: ; 119648 (46:5648) call Function119ed8 ret c call DelayFrame ld a, $8 ld [$cd3c], a call Function119ed8 call Function118b24 ld de, Unkn1Pals ; $d000 ld bc, $1000 ld a, $2a jp Function119e2b ; no known jump sources Function119665: ; 119665 (46:5665) ld a, $1a ld [$cd3c], a call Function119e2e ; no known jump sources Function11966d: ; 11966d (46:566d) call Function119ed8 ret c ld a, [$cd47] ld [$cf66], a ld a, $a ld [$c300], a ret ; no known jump sources Function11967d: ; 11967d (46:567d) ld a, $18 ld [$cd3c], a call Function119e2e ; no known jump sources Function119685: ; 119685 (46:5685) call Function119ed8 ret c ld a, $14 ld [$cf66], a ld a, $a ld [$c300], a ret ; known jump sources: 119461 (46:5461) Function119694: ; 119694 (46:5694) ld b, $0 ld hl, $56b8 .asm_119699 ld de, $c708 ld a, [de] inc de cp [hl] inc hl jr nz, .asm_1196af ld a, [de] inc de cp [hl] inc hl jr nz, .asm_1196b0 ld a, [de] inc de cp [hl] inc hl jr nz, .asm_1196b1 ret .asm_1196af inc hl .asm_1196b0 inc hl .asm_1196b1 inc b ld a, b cp $7 jr nz, .asm_119699 ret ; 1196b8 (46:56b8) INCBIN "baserom.gbc",$1196b8,$1196cd - $1196b8 ; known jump sources: 119468 (46:5468) Function1196cd: ; 1196cd (46:56cd) ld de, $c719 call Function1196de ld [$cd4a], a inc de call Function1196de ld [$cd4b], a ret ; known jump sources: 1196d0 (46:56d0), 1196d7 (46:56d7) Function1196de: ; 1196de (46:56de) ld a, [de] inc de sub $30 sla a ld b, a sla a sla a add b ld c, a add hl, bc ld a, [de] inc de sub $30 add c ret ; 1196f2 (46:56f2) INCBIN "baserom.gbc",$1196f2,$119d93 - $1196f2 ; no known jump sources Function119d93: ; 119d93 (46:5d93) ld a, [rSVBK] ; $ff00+$70 push af ld a, $1 ld [rSVBK], a ; $ff00+$70 ld a, [$cd4f] ld c, $a call SimpleMultiply ld hl, $cd50 ld [hl], a ld bc, $30 ld de, PartyMon1Level ; $dcfe ld a, [PartyCount] ; $dcd7 .asm_119daf push af ld a, [de] push hl push de pop hl add hl, bc push hl pop de pop hl cp [hl] jr z, .asm_119dbd jr nc, .asm_119dc6 .asm_119dbd pop af dec a jr nz, .asm_119daf pop af ld [rSVBK], a ; $ff00+$70 and a ret .asm_119dc6 pop af ld a, $4 ld [$cf66], a pop af ld [rSVBK], a ; $ff00+$70 scf ret ; no known jump sources Function119dd1: ; 119dd1 (46:5dd1) ld a, [rSVBK] ; $ff00+$70 push af ld a, [$cd4f] cp $7 jr nc, .asm_119e08 ld a, $1 ld [rSVBK], a ; $ff00+$70 ld hl, PartyMon1Level ; $dcfe ld bc, $30 ld de, PartySpecies ; $dcd8 ld a, [PartyCount] ; $dcd7 .asm_119deb push af ld a, [de] cp $96 jr z, .asm_119dfd cp $97 jr z, .asm_119dfd cp $f9 jr c, .asm_119e02 cp $fc jr nc, .asm_119e02 .asm_119dfd ld a, [hl] cp $46 jr c, .asm_119e0d .asm_119e02 add hl, bc inc de pop af dec a jr nz, .asm_119deb .asm_119e08 pop af ld [rSVBK], a ; $ff00+$70 and a ret .asm_119e0d pop af ld a, [de] ld [$d265], a call GetPokemonName ld hl, StringBuffer1 ; $d073 ld de, $cd49 ld bc, $b call CopyBytes ld a, $a ld [$cf66], a pop af ld [rSVBK], a ; $ff00+$70 scf ret ; 119e2b (46:5e2b) ; known jump sources: 118893 (46:4893), 1188b5 (46:48b5), 1188bd (46:48bd), 1188c5 (46:48c5), 1188e4 (46:48e4), 118b21 (46:4b21), 118e73 (46:4e73), 118e84 (46:4e84), 119662 (46:5662) Function119e2b: ; 119e2b (46:5e2b) call Function3e32 ; known jump sources: 1187a7 (46:47a7), 118877 (46:4877), 118919 (46:4919), 118e7b (46:4e7b), 11960c (46:560c), 11960f (46:560f), 119626 (46:5626), 119645 (46:5645), 11966a (46:566a), 119682 (46:5682) Function119e2e: ; 119e2e (46:5e2e) ld hl, $cf66 inc [hl] ret ; 119e33 (46:5e33) INCBIN "baserom.gbc",$119e33,$119eb4 - $119e33 ; known jump sources: 1188d9 (46:48d9), 118b33 (46:4b33) Function119eb4: ; 119eb4 (46:5eb4) xor a ld [$c3cc], a ld de, $c3ac .asm_119ebb ld a, [de] inc de ld [hli], a and a jr nz, .asm_119ebb ret ; known jump sources: 1188dc (46:48dc), 118b36 (46:4b36) Function119ec2: ; 119ec2 (46:5ec2) ld a, $5 call GetSRAMBank xor a ld [$aa5c], a ld de, $aa4c .asm_119ece ld a, [de] inc de ld [hli], a and a jr nz, .asm_119ece call CloseSRAM ret ; known jump sources: 118880 (46:4880), 118916 (46:4916), 118b17 (46:4b17), 118e7e (46:4e7e), 118e87 (46:4e87), 119629 (46:5629), 119648 (46:5648), 119654 (46:5654), 11966d (46:566d), 119685 (46:5685) Function119ed8: ; 119ed8 (46:5ed8) ld a, [rSVBK] ; $ff00+$70 ld [$cd8c], a ld a, $1 ld [rSVBK], a ; $ff00+$70 call Function119eee ld a, [$cd8c] ld [rSVBK], a ; $ff00+$70 ld a, $1 ld [hBGMapMode], a ; $ff00+$d4 ret ; known jump sources: 119ee1 (46:5ee1) Function119eee: ; 119eee (46:5eee) ld a, [$cd3c] ld e, a ld d, $0 ld hl, $5efd add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 119efd (46:5efd) INCBIN "baserom.gbc",$119efd,$11a8fa - $119efd Function11a8fa: ; 11a8fa ld a, [$c31a] ld e, a ld d, $0 ld hl, $6909 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 11a909 INCBIN "baserom.gbc",$11a909,$11aa13 - $11a909 UnknownText_0x11aa13: ; 0x11aa13 db $0, "SAVE FILE will be", $4f db "sent.", $57 ; 0x11aa2c UnknownText_0x11aa2c: ; 0x11aa2c db $0, "Sent SAVE FILE.", $4f db "Reading NEWS…", $57 ; 0x11aa4b UnknownText_0x11aa4b: ; 0x11aa4b db $0, "Reading NEWS…", $57 ; 0x11aa5a UnknownText_0x11aa5a: ; 0x11aa5a db $0, "Received NEWS!", $57 ; 0x11aa6a UnknownText_0x11aa6a: ; 0x11aa6a db $0, "Quit reading NEWS?", $57 ; 0x11aa7e UnknownText_0x11aa7e: ; 0x11aa7e db $0, "Canceled sending", $4f db "SAVE FILE.", $57 ; 0x11aa9b UnknownText_0x11aa9b: ; 0x11aa9b db $0, "ODD EGG", $4f db "was received!", $57 ; 0x11aab2 UnknownText_0x11aab2: ; 0x11aab2 db $0, "Registering your", $4f db "record…", $57 ; 0x11aacc UnknownText_0x11aacc: ; 0x11aacc db $0, "One visit per day", $4f db "per BATTLE ROOM!", $57 ; 0x11aaf0 UnknownText_0x11aaf0: ; 0x11aaf0 db $0, "A party #MON", $4f db "tops this level.", $57 ; 0x11ab0f UnknownText_0x11ab0f: ; 0x11ab0f text_from_ram $cd49 db $0, " may go", $4f db "only to BATTLE", $51 db "ROOMS that are", $4f db "Lv.70 or higher.", $57 ; 0x11ab4a UnknownText_0x11ab4a: ; 0x11ab4a db $0, "Cancel your BATTLE", $4f db "ROOM challenge?", $57 ; 0x11ab6e UnknownText_0x11ab6e: ; 0x11ab6e db $0, "Exit GYM LEADER", $4f db "HONOR ROLL?", $57 ; 0x11ab8b UnknownText_0x11ab8b: ; 0x11ab8b db $0, "Linking with the", $4f db "CENTER…", $57 ; 0x11aba5 UnknownText_0x11aba5: ; 0x11aba5 db $0, "What level do you", $4f db "want to challenge?", $57 ; 0x11abcb UnknownText_0x11abcb: ; 0x11abcb db $0, "Check BATTLE ROOM", $4f db "list by max level?", $57 ; 0x11abf1 UnknownText_0x11abf1: ; 0x11abf1 db $0, "Enter which", $4f db "BATTLE ROOM?", $57 ; 0x11ac0b UnknownText_0x11ac0b: ; 0x11ac0b db $0, "Which BATTLE ROOM?", $57 ; 0x11ac1f UnknownText_0x11ac1f: ; 0x11ac1f text_from_ram StringBuffer3 db $0, "'s ROOM", $4f db "@" text_from_ram StringBuffer4 db $0, "?", $55 db "Please wait…", $57 ; 0x11ac3e Function11ac3e: ; 11ac3e call SpeechTextBox call FadeToMenu callab Function8e814 call Function11ac51 call Function2b3c ret ; 11ac51 Function11ac51: ; 11ac51 xor a ld [hBGMapMode], a ld hl, Options ld a, [hl] push af set 4, [hl] ld a, [VramState] push af xor a ld [VramState], a ld a, [$ffaa] push af ld a, $1 ld [$ffaa], a xor a ld [$ffde], a ld [$cd49], a ld [$cd4a], a ld [$cd4c], a ld [$cd4d], a ld [$cd4e], a call Function11ad1b call DelayFrame .asm_11ac82 call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_11aca8 call Function11b314 call Function11acb7 call Function11ad6e ld a, $78 ld [$c3b5], a callba Function8cf7a callba Function104061 jr .asm_11ac82 .asm_11aca8 call ClearSprites pop af ld [$ffaa], a pop af ld [VramState], a pop af ld [Options], a ret ; 11acb7 Function11acb7: ; 11acb7 ld hl, $7a44 ld a, [$cd49] ld c, a ld b, $0 sla c rl b sla c rl b sla c rl b add hl, bc ld de, $c51e ld a, [hli] ld [de], a ld de, $c52c ld bc, $0007 call CopyBytes ld a, [$cd49] inc a ld [$cd49], a ld a, [hl] cp $ff jr nz, .asm_11aceb xor a ld [$cd49], a .asm_11aceb ld hl, $7b7d ld a, [$cd4a] ld c, a ld b, $0 sla c rl b sla c rl b sla c rl b add hl, bc ld de, $c557 ld bc, $0007 call CopyBytes ld a, [$cd4a] inc a ld [$cd4a], a inc hl ld a, [hl] cp $ff ret nz xor a ld [$cd4a], a ret ; 11ad1b Function11ad1b: ; 11ad1b call WhiteBGMap call ClearSprites call ClearTileMap callba Function17c000 ld a, [$cfa9] ld [$cd82], a dec a ld [hConnectedMapWidth], a ld a, $10 ld [$c3b7], a ld hl, Function8e83f ld a, BANK(Function8e83f) ld e, $4 rst FarCall ld hl, Function8e83f ld a, BANK(Function8e83f) ld e, $5 rst FarCall ld hl, PlayerSDefLevel ld bc, $0115 xor a call ByteFill xor a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [$cf66], a ld [$cd30], a ld a, $2 ld [$c7d4], a callba Function40bdc ret ; 11ad6e Function11ad6e: ; 11ad6e ld a, [$cf63] ld hl, $6d78 call Function11b239 jp [hl] ; 11ad78 INCBIN "baserom.gbc",$11ad78,$11b239 - $11ad78 Function11b239: ; 11b239 ld e, a ld d, $0 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a ret ; 11b242 INCBIN "baserom.gbc",$11b242,$11b314 - $11b242 Function11b314: ; 11b314 call Function11b31b call Function11b3d9 ret ; 11b31b Function11b31b: ; 11b31b ld hl, $7350 ld a, [$cf63] cp $2 jr c, .asm_11b349 ld a, [$c7d1] cp $4 jr nc, .asm_11b344 cp $3 jr c, .asm_11b349 ld a, [$cf63] cp $2 jr z, .asm_11b349 cp $3 jr z, .asm_11b349 cp $6 jr z, .asm_11b349 ld bc, $737b jr .asm_11b34c .asm_11b344 ld bc, $7389 jr .asm_11b34c .asm_11b349 ld bc, $736d .asm_11b34c call Function11b397 ret ; 11b350 INCBIN "baserom.gbc",$11b350,$11b397 - $11b350 Function11b397: ; 11b397 ld de, Sprites .asm_11b39a ld a, [hl] cp $ff ret z ld a, [$c7d1] and $7 swap a add [hl] inc hl ld [de], a inc de ld a, [hli] ld [de], a inc de ld a, [bc] inc bc ld [de], a inc de ld a, $5 ld [de], a inc de jr .asm_11b39a ; 11b3b6 INCBIN "baserom.gbc",$11b3b6,$11b3d9 - $11b3b6 Function11b3d9: ; 11b3d9 ld de, $c470 push de ld a, [$c7d2] dec a ld e, a ld a, [$c7d1] ld hl, $c7d0 add [hl] cp e jr z, .asm_11b40d ld hl, $0000 ld bc, $0070 call AddNTimes ld e, l ld d, h ld b, $0 ld a, d or e jr z, .asm_11b40f ld a, [$c7d2] ld c, a .asm_11b401 ld a, e sub c ld e, a ld a, d sbc $0 ld d, a jr c, .asm_11b40f inc b jr .asm_11b401 .asm_11b40d ld b, $70 .asm_11b40f ld a, $15 add b pop hl ld [hli], a cp $41 jr c, .asm_11b42b ld a, [$cf63] cp $4 jr z, .asm_11b43b cp $5 jr z, .asm_11b43b cp $7 jr z, .asm_11b43b cp $8 jr z, .asm_11b43b .asm_11b42b ld a, $9b ld [hli], a ld a, [$cd4c] add $3c ld [hli], a ld a, [$cd4c] add $1 ld [hl], a ret .asm_11b43b ld a, $9b ld [hli], a ld a, $39 ld [hli], a xor a ld [hl], a ret ; 11b444 Function11b444: ; 11b444 call Function11b44b call Function11b45c ret ; 11b44b Function11b44b: ; 11b44b xor a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [$cf66], a call UpdateTime ret ; 11b45c Function11b45c: ; 11b45c .asm_11b45c call Function11b46a call DelayFrame ld a, [$cf63] cp $4 jr nz, .asm_11b45c ret ; 11b46a Function11b46a: ; 11b46a ld a, [$cf63] ld e, a ld d, $0 ld hl, $7479 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 11b479 INCBIN "baserom.gbc",$11b479,$11b5e8 - $11b479 Function11b5e8: ; 11b5e8 ld a, $0 call GetSRAMBank ld hl, $d4ba ld de, EnemyMoveAnimation ld bc, $0004 call CopyBytes call CloseSRAM ld a, $5 call GetSRAMBank ld hl, EnemyMoveAnimation ld de, $b08c ld bc, $0004 call CopyBytes ld a, $2 ld [$a800], a ld a, [$a81f] ld [$cd2a], a ld a, [$a820] ld [$cd2b], a ld a, [$a821] ld [$cd2c], a ld a, [$a822] ld [$cd2d], a ld a, [$a823] ld [$cd2e], a ld a, [$a824] ld [$cd2f], a ld a, [$a825] ld [$cd30], a ld a, [$a826] ld [$cd31], a call CloseSRAM call Function11b44b call Function11b64c ret ; 11b64c Function11b64c: ; 11b64c .asm_11b64c call Function11b65a call DelayFrame ld a, [$cf63] cp $1 jr nz, .asm_11b64c ret ; 11b65a Function11b65a: ; 11b65a ld a, [$cf63] ld e, a ld d, $0 ld hl, $7669 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 11b669 INCBIN "baserom.gbc",$11b669,$11b7e5 - $11b669 Function11b7e5: ; 11b7e5 ld a, [EnemyMovePP] ld [PlayerLightScreenCount], a ld [CurPartySpecies], a ld a, [$cd81] ld [$c74e], a ld hl, $c63d ld de, $c724 ld bc, $0005 call CopyBytes ld a, $50 ld [de], a ld a, [PlayerMoveAccuracy] ld [$c731], a ld a, [PlayerMovePP] ld [$c732], a ld hl, $c622 ld a, [hli] ld [$c72f], a ld a, [hl] ld [$c730], a ld bc, EnemyMovePP callba GetCaughtGender ld a, c ld [$c733], a call SpeechTextBox call FadeToMenu callba Function108016 callba Function17d1f1 ld a, $1 ld [$d1e9], a ld a, $2 ld [InLinkBattle], a callba Function421d8 xor a ld [InLinkBattle], a callba Function14a58 ld a, $5 call GetSRAMBank ld a, $5 ld [$a800], a call CloseSRAM ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a call Function2147 ld a, d or e jr z, .asm_11b872 ld a, $1 ld [de], a .asm_11b872 call Function2b3c call Function3d47 ret ; 11b879 Function11b879: ; 11b879 callba Function17089a ld a, [ScriptVar] and a ret z ld a, $5 call GetSRAMBank ld a, [$a800] ld [ScriptVar], a ld a, [$a890] ld [$cd49], a ld a, [$a891] ld [$cd4a], a ld a, [$a892] ld [$cd4b], a ld a, [$a893] ld [$cd4c], a call CloseSRAM ld a, [ScriptVar] and a ret z ld hl, $cd4c ld a, [hRTCDayHi] cp [hl] ret nz dec hl ld a, [hRTCDayLo] cp [hl] ret nz ld hl, $cd4a ld a, [hRTCHours] cp [hl] jr nc, .asm_11b8d8 ld a, $18 sub [hl] ld hl, hRTCHours add [hl] ld [$cd4c], a ld a, [hRTCMinutes] ld [$cd4b], a xor a ld [$cd4a], a jr .asm_11b8e2 .asm_11b8d8 ld a, [hRTCMinutes] ld [$cd4b], a ld a, [hRTCHours] ld [$cd4c], a .asm_11b8e2 xor a ld l, a ld h, a ld b, a ld d, a ld a, [$cd4b] ld e, a ld a, [$cd4c] ld c, $3c call AddNTimes add hl, de push hl xor a ld l, a ld h, a ld b, a ld d, a ld a, [$cd49] ld e, a ld a, [$cd4a] ld c, $3c call AddNTimes add hl, de ld a, l cpl add $1 ld e, a ld a, h cpl adc $0 ld d, a pop hl add hl, de ld de, $ff88 add hl, de bit 7, h ret z ld a, $2 ld [ScriptVar], a ret ; 11b920 Function11b920: ; 11b920 call Function11b44b ld a, $5 call GetSRAMBank ld hl, $a81f ld de, $c626 ld bc, $0008 call CopyBytes call CloseSRAM call Function118000 ret ; 11b93b Function11b93b: ; 11b93b ld a, $5 call GetSRAMBank xor a ld [$a800], a ld hl, $a823 ld de, EnemyMoveAnimation ld bc, $008f call CopyBytes call CloseSRAM ld a, $8 ld [BGMapBuffer], a ld a, $c6 ld [$cd21], a ld a, $11 ld [CreditsTimer], a ld a, $c6 ld [$cd23], a ld a, $41 ld [$cd24], a ld a, $c6 ld [$cd25], a ld a, $46 ld [$cd26], a ld a, $c6 ld [$cd27], a ld a, $4b ld [$cd28], a ld a, $c6 ld [$cd29], a call Function11b98f callba Function14a58 ret ; 11b98f Function11b98f: ; 11b98f ld hl, PartyCount ld a, [hl] ld e, a inc [hl] ld a, [BGMapBuffer] ld l, a ld a, [$cd21] ld h, a inc hl ld bc, PartySpecies ld d, e .asm_11b9a2 inc bc dec d jr nz, .asm_11b9a2 ld a, e ld [CurPartyMon], a ld a, [hl] ld [bc], a inc bc ld a, $ff ld [bc], a ld hl, PartyMon1Species ld bc, $0030 ld a, e ld [$cd2a], a .asm_11b9ba add hl, bc dec a and a jr nz, .asm_11b9ba ld e, l ld d, h ld a, [CreditsTimer] ld l, a ld a, [$cd23] ld h, a ld bc, $0030 call CopyBytes ld hl, PartyMon1OT ld bc, $000b ld a, [$cd2a] .asm_11b9d8 add hl, bc dec a and a jr nz, .asm_11b9d8 ld e, l ld d, h ld a, [$cd24] ld l, a ld a, [$cd25] ld h, a ld bc, $000a call CopyBytes ld a, $50 ld [de], a ld hl, PartyMon1Nickname ld bc, $000b ld a, [$cd2a] .asm_11b9f9 add hl, bc dec a and a jr nz, .asm_11b9f9 ld e, l ld d, h ld a, [$cd26] ld l, a ld a, [$cd27] ld h, a ld bc, $000a call CopyBytes ld a, $50 ld [de], a ld hl, $a600 ld bc, $002f ld a, [$cd2a] .asm_11ba1a add hl, bc dec a and a jr nz, .asm_11ba1a ld a, $0 call GetSRAMBank ld e, l ld d, h ld a, [$cd28] ld l, a ld a, [$cd29] ld h, a ld bc, $002f call CopyBytes call CloseSRAM ret ; 11ba38 Function11ba38: ; 11ba38 callba Functione538 ret c xor a ld [ScriptVar], a ret ; 11ba44 INCBIN "baserom.gbc",$11ba44,$11bc9e - $11ba44 SECTION "bank47", ROMX, BANK[$47] Function11c000: ; 11c000 ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a ld hl, $d105 ld a, [hl] dec a ld e, a ld d, $0 ld hl, $72f0 add hl, de ld a, [hl] and a jr nz, .asm_11c026 ld a, [hRandomAdd] and $1f cp $19 jr c, .asm_11c021 sub $19 .asm_11c021 ld hl, $7332 jr .asm_11c033 .asm_11c026 ld a, [hRandomAdd] and $f cp $f jr c, .asm_11c030 sub $f .asm_11c030 ld hl, $73ce .asm_11c033 ld b, $0 dec c jr nz, .asm_11c03d ld [$d200], a jr .asm_11c040 .asm_11c03d ld a, [$d200] .asm_11c040 push af add hl, bc add hl, bc ld a, [hli] ld c, a ld a, [hl] ld h, a ld l, c pop af ld c, a ld b, $0 add hl, bc add hl, bc ld a, [hli] ld c, a ld a, [hl] ld l, c ld h, a ld bc, $c5b9 pop af ld [rSVBK], a call Function13e5 ret ; 11c05d Function11c05d: ; 11c05d ld a, e or d jr z, .asm_11c071 ld a, e and d cp $ff jr z, .asm_11c071 push hl call Function11c156 pop hl call PlaceString and a ret .asm_11c071 ld c, l ld b, h scf ret ; 11c075 Function11c075: ; 11c075 push de ld a, c call Function11c254 pop de ld bc, $cd36 call Function11c08f ret ; 11c082 INCBIN "baserom.gbc",$11c082,$11c08f - $11c082 Function11c08f: ; 11c08f ld l, e ld h, d push hl ld a, $3 .asm_11c094 push af ld a, [bc] ld e, a inc bc ld a, [bc] ld d, a inc bc push bc call Function11c05d jr c, .asm_11c0a2 inc bc .asm_11c0a2 ld l, c ld h, b pop bc pop af dec a jr nz, .asm_11c094 pop hl ld de, $0028 add hl, de ld a, $3 .asm_11c0b0 push af ld a, [bc] ld e, a inc bc ld a, [bc] ld d, a inc bc push bc call Function11c05d jr c, .asm_11c0be inc bc .asm_11c0be ld l, c ld h, b pop bc pop af dec a jr nz, .asm_11c0b0 ret ; 11c0c6 Function11c0c6: ; 11c0c6 ld a, [$cf63] ld l, a ld a, [$cf64] ld h, a push hl ld hl, $c618 ld a, $0 ld [hli], a push de xor a ld [$cf63], a ld a, $12 ld [$cf64], a ld a, $6 .asm_11c0e1 push af ld a, [bc] ld e, a inc bc ld a, [bc] ld d, a inc bc or e jr z, .asm_11c133 push hl push bc call Function11c156 call Function11c14a ld e, c pop bc pop hl ld a, e or a jr z, .asm_11c133 .asm_11c0fa ld a, [$cf64] cp $12 jr z, .asm_11c102 inc e .asm_11c102 cp e jr nc, .asm_11c11c ld a, [$cf63] inc a ld [$cf63], a ld [hl], $4e rra jr c, .asm_11c113 ld [hl], $55 .asm_11c113 inc hl ld a, $12 ld [$cf64], a dec e jr .asm_11c0fa .asm_11c11c cp $12 jr z, .asm_11c123 ld [hl], $7f inc hl .asm_11c123 sub e ld [$cf64], a ld de, EnemyMoveAnimation .asm_11c12a ld a, [de] cp $50 jr z, .asm_11c133 inc de ld [hli], a jr .asm_11c12a .asm_11c133 pop af dec a jr nz, .asm_11c0e1 ld [hl], $57 pop bc ld hl, $c618 call Function13e5 pop hl ld a, l ld [$cf63], a ld a, h ld [$cf64], a ret ; 11c14a Function11c14a: ; 11c14a ld c, $0 ld hl, EnemyMoveAnimation .asm_11c14f ld a, [hli] cp $50 ret z inc c jr .asm_11c14f ; 11c156 Function11c156: ; 11c156 ld a, [rSVBK] push af ld a, $1 ld [rSVBK], a ld a, $50 ld hl, EnemyMoveAnimation ld bc, $000b call ByteFill ld a, d and a jr z, .asm_11c19c ld hl, $5aac dec d sla d ld c, d ld b, $0 add hl, bc ld a, [hli] ld c, a ld a, [hl] ld b, a push bc pop hl ld c, e ld b, $0 sla c rl b sla c rl b sla c rl b add hl, bc ld bc, $0005 .asm_11c18f ld de, EnemyMoveAnimation call CopyBytes ld de, EnemyMoveAnimation pop af ld [rSVBK], a ret .asm_11c19c ld a, e ld [$d265], a call GetPokemonName ld hl, StringBuffer1 ld bc, $000a jr .asm_11c18f ; 11c1ab Function11c1ab: ; 11c1ab ld a, [$ffaa] push af ld a, $1 ld [$ffaa], a call Function11c1b9 pop af ld [$ffaa], a ret ; 11c1b9 Function11c1b9: ; 11c1b9 call Function11c1ca ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a call Function11c283 pop af ld [rSVBK], a ret ; 11c1ca Function11c1ca: ; 11c1ca xor a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [$cf66], a ld [$cd23], a ld [BGMapBuffer], a ld [$cd21], a ld [CreditsTimer], a ld [$cd35], a ld [$cd2b], a ld a, $ff ld [$cd24], a ld a, [$cfa9] dec a call Function11c254 call WhiteBGMap call ClearSprites call Functionfdb call Function11d323 call Function32f9 call DisableLCD ld hl, $567e ld de, VTiles2 ld bc, $0060 call CopyBytes ld hl, $56de ld de, VTiles0 call Decompress call EnableLCD callba Function104061 callba Function8cf53 callba Function1500c callba Function40c30 ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, PlayerSDefLevel ld de, LYOverrides ld bc, Start call CopyBytes pop af ld [rSVBK], a call Function11d4aa call Function11d3ba ret ; 11c254 Function11c254: ; 11c254 push af ld a, $4 call GetSRAMBank ld hl, $a007 pop af sla a sla a ld c, a sla a add c ld c, a ld b, $0 add hl, bc ld de, $cd36 ld bc, $000c call CopyBytes call CloseSRAM ret ; 11c277 ; known jump sources: 11c3c2 (47:43c2), 11c52c (47:452c), 11c658 (47:4658), 11cd20 (47:4d20), 11ce0b (47:4e0b) Function11c277: ; 11c277 (47:4277) ld a, $7f ld hl, $c518 ld bc, $f0 call ByteFill ret Function11c283: ; 11c283 .asm_11c283 call Functiona57 ld a, [hJoyPressed] ld [hJoypadPressed], a ld a, [$cf63] bit 7, a jr nz, .asm_11c2a2 call Function11c2ac callba Function8cf69 callba Function104061 jr .asm_11c283 .asm_11c2a2 callba Function8cf53 call ClearSprites ret ; 11c2ac Function11c2ac: ; 11c2ac ld a, [$cf63] ld e, a ld d, $0 ld hl, $42bb add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 11c2bb ; no known jump sources Jumptable_11c2bb: ; 11c2bb (47:42bb) dw Function11c2e9 dw Function11c346 dw Function11c35f dw Function11c373 dw Function11c3c2 dw Function11c3ed dw Function11c52c dw Function11c53d dw Function11c658 dw Function11c675 dw Function11c9bd dw Function11c9c3 dw Function11caad dw Function11cab3 dw Function11cb52 dw Function11cb66 dw Function11cbf5 dw Function11ccef dw Function11cd04 dw Function11cd20 dw Function11cd54 dw Function11ce0b dw Function11ce2b ; no known jump sources Function11c2e9: ; 11c2e9 (47:42e9) ld de, $1a0d ld a, $1d call Function3b2a ld de, $420d ld a, $1d call Function3b2a ld hl, $c add hl, bc ld a, $1 ld [hl], a ld de, $4a10 ld a, $1d call Function3b2a ld hl, $c add hl, bc ld a, $3 ld [hl], a ld de, $5080 ld a, $1d call Function3b2a ld hl, $c add hl, bc ld a, $4 ld [hl], a ld de, $5020 ld a, $1d call Function3b2a ld hl, $c add hl, bc ld a, $5 ld [hl], a ld de, $5010 ld a, $1d call Function3b2a ld hl, $c add hl, bc ld a, $2 ld [hl], a ld hl, $cd23 set 1, [hl] set 2, [hl] jp Function11cfb5 ; no known jump sources Function11c346: ; 11c346 (47:4346) ld a, $9 ld [$cd2d], a ld a, $2 ld [$cd2e], a ld [$cd2f], a ld [$cd30], a ld de, $cd2d call Function11cfce jp Function11cfb5 ; no known jump sources Function11c35f: ; 11c35f (47:435f) ld hl, $cd2f inc [hl] inc [hl] dec hl dec hl dec [hl] push af ld de, $cd2d call Function11cfce pop af ret nz jp Function11cfb5 ; no known jump sources Function11c373: ; 11c373 (47:4373) ld hl, $cd30 inc [hl] inc [hl] dec hl dec hl dec [hl] push af ld de, $cd2d call Function11cfce pop af ret nz call Function11c38a jp Function11cfb5 ; known jump sources: 11c384 (47:4384), 11cbdd (47:4bdd) Function11c38a: ; 11c38a (47:438a) ld hl, $4986 ld bc, $cd36 ld a, $6 .asm_11c392 push af ld a, [hli] ld e, a ld a, [hli] ld d, a push hl push de pop hl ld a, [bc] inc bc ld e, a ld a, [bc] inc bc ld d, a push bc or e jr z, .asm_11c3af ld a, e and d cp $ff jr z, .asm_11c3af call Function11c05d jr .asm_11c3b5 .asm_11c3af ld de, $43bc call PlaceString .asm_11c3b5 pop bc pop hl pop af dec a jr nz, .asm_11c392 ret ; 11c3bc (47:43bc) INCBIN "baserom.gbc",$11c3bc,$11c3c2 - $11c3bc ; no known jump sources Function11c3c2: ; 11c3c2 (47:43c2) call Function11c277 ld de, $4fbe call Function11d035 ld hl, $c52d ld de, $44db call PlaceString ld hl, $c5e1 ld de, $451b call PlaceString call Function11c4be ld hl, $cd23 set 0, [hl] ld hl, $cd24 res 0, [hl] call Function11cfb5 ; no known jump sources Function11c3ed: ; 11c3ed (47:43ed) ld hl, BGMapBuffer ; $cd20 (aliases: CreditsPos) ld de, hJoypadPressed ; $ffa3 ld a, [de] and $8 jr nz, .asm_11c426 ld a, [de] and $2 jr nz, .asm_11c41a ld a, [de] and $1 jr nz, .asm_11c42c ld de, $ffa9 ld a, [de] and $40 jr nz, .asm_11c47c ld a, [de] and $80 jr nz, .asm_11c484 ld a, [de] and $20 jr nz, .asm_11c48c ld a, [de] and $10 jr nz, .asm_11c498 ret .asm_11c41a call PlayClickSFX .asm_11c41d ld hl, $cd24 set 0, [hl] ld a, $c jr .asm_11c475 .asm_11c426 ld a, $8 ld [BGMapBuffer], a ; $cd20 (aliases: CreditsPos) ret .asm_11c42c ld a, [BGMapBuffer] ; $cd20 (aliases: CreditsPos) cp $6 jr c, .asm_11c472 sub $6 jr z, .asm_11c469 dec a jr z, .asm_11c41d ld hl, $cd36 ld c, $c xor a .asm_11c440 or [hl] inc hl dec c jr nz, .asm_11c440 and a jr z, .asm_11c460 ld de, $4fba call Function11cfce ld de, $c4c9 ld bc, $cd36 call Function11c08f ld hl, $cd24 set 0, [hl] ld a, $e jr .asm_11c475 .asm_11c460 ld hl, $cd24 set 0, [hl] ld a, $11 jr .asm_11c475 .asm_11c469 ld hl, $cd24 set 0, [hl] ld a, $a jr .asm_11c475 .asm_11c472 call Function11c4a5 .asm_11c475 ld [$cf63], a call PlayClickSFX ret .asm_11c47c ld a, [hl] cp $3 ret c sub $3 jr .asm_11c4a3 .asm_11c484 ld a, [hl] cp $6 ret nc add $3 jr .asm_11c4a3 .asm_11c48c ld a, [hl] and a ret z cp $3 ret z cp $6 ret z dec a jr .asm_11c4a3 .asm_11c498 ld a, [hl] cp $2 ret z cp $5 ret z cp $8 ret z inc a .asm_11c4a3 ld [hl], a ret ; known jump sources: 11c472 (47:4472) Function11c4a5: ; 11c4a5 (47:44a5) ld hl, $cd23 res 0, [hl] ld a, [$cd2b] and a jr nz, .asm_11c4b7 xor a ld [$cd21], a ld a, $6 ret .asm_11c4b7 xor a ld [CreditsTimer], a ; $cd22 ld a, $15 ret ; known jump sources: 11c3dd (47:43dd) Function11c4be: ; 11c4be (47:44be) ld a, $1 ld hl, $ce51 ld bc, $a0 call ByteFill ld a, $7 ld hl, $cef1 ld bc, $28 call ByteFill callba Function104061 ret ; 11c4db (47:44db) INCBIN "baserom.gbc",$11c4db,$11c52c - $11c4db ; no known jump sources Function11c52c: ; 11c52c (47:452c) call Function11c277 call Function11c5f0 call Function11c618 ld hl, $cd24 res 1, [hl] call Function11cfb5 ; no known jump sources Function11c53d: ; 11c53d (47:453d) ld hl, $cd21 ld de, hJoypadPressed ; $ffa3 ld a, [de] and START jr nz, .start ld a, [de] and SELECT jr nz, .select ld a, [de] and B_BUTTON jr nz, .b ld a, [de] and A_BUTTON jr nz, .a ld de, $ffa9 ld a, [de] and D_UP jr nz, .up ld a, [de] and D_DOWN jr nz, .down ld a, [de] and D_LEFT jr nz, .left ld a, [de] and D_RIGHT jr nz, .right ret .a ld a, [$cd21] cp $f jr c, .asm_11c59d sub $f jr z, .asm_11c5ab dec a jr z, .asm_11c599 jr .b .start ld hl, $cd24 set 0, [hl] ld a, $8 ld [BGMapBuffer], a ; $cd20 (aliases: CreditsPos) .b ld a, $4 jr .asm_11c59f .select ld a, [$cd2b] xor $1 ld [$cd2b], a ld a, $15 jr .asm_11c59f .asm_11c599 ld a, $13 jr .asm_11c59f .asm_11c59d ld a, $8 .asm_11c59f ld hl, $cd24 set 1, [hl] ld [$cf63], a call PlayClickSFX ret .asm_11c5ab ld a, [BGMapBuffer] ; $cd20 (aliases: CreditsPos) call Function11ca6a call PlayClickSFX ret .up ld a, [hl] cp $3 ret c sub $3 jr .asm_11c5ee .down ld a, [hl] cp $f ret nc add $3 jr .asm_11c5ee .left ld a, [hl] and a ret z cp $3 ret z cp $6 ret z cp $9 ret z cp $c ret z cp $f ret z dec a jr .asm_11c5ee .right ld a, [hl] cp $2 ret z cp $5 ret z cp $8 ret z cp $b ret z cp $e ret z cp $11 ret z inc a .asm_11c5ee ld [hl], a ret ; known jump sources: 11c52f (47:452f) Function11c5f0: ; 11c5f0 (47:45f0) ld de, $5a52 ld bc, $463a ld a, $f .asm_11c5f8 push af ld a, [bc] inc bc ld l, a ld a, [bc] inc bc ld h, a push bc call PlaceString .asm_11c603 inc de ld a, [de] cp $50 jr z, .asm_11c603 pop bc pop af dec a jr nz, .asm_11c5f8 ld hl, $c5f5 ld de, $462a call PlaceString ret ; known jump sources: 11c532 (47:4532), 11ce20 (47:4e20) Function11c618: ; 11c618 (47:4618) ld a, $2 ld hl, $ce51 ld bc, $c8 call ByteFill callba Function104061 ret ; 11c62a (47:462a) INCBIN "baserom.gbc",$11c62a,$11c658 - $11c62a ; no known jump sources Function11c658: ; 11c658 (47:4658) call Function11c277 call Function11c770 ld de, $4fc2 call Function11d035 call Function11c9ab call Function11c7bc call Function11c86e ld hl, $cd24 res 3, [hl] call Function11cfb5 ; no known jump sources Function11c675: ; 11c675 (47:4675) ld hl, $cd25 ld de, hJoypadPressed ; $ffa3 ld a, [de] and $1 jr nz, .asm_11c6e6 ld a, [de] and $2 jr nz, .asm_11c6f0 ld a, [de] and $8 jr nz, .asm_11c69e ld a, [de] and $4 jr z, .asm_11c6ce ld a, [$cd26] and a ret z sub $c jr nc, .asm_11c699 xor a .asm_11c699 ld [$cd26], a jr .asm_11c6c4 .asm_11c69e ld hl, $cd28 ld a, [$cd26] add $c cp [hl] ret nc ld [$cd26], a ld a, [hl] ld b, a ld hl, $cd25 ld a, [$cd26] add [hl] jr c, .asm_11c6b9 cp b jr c, .asm_11c6c4 .asm_11c6b9 ld a, [$cd28] ld hl, $cd26 sub [hl] dec a ld [$cd25], a .asm_11c6c4 call Function11c992 call Function11c7bc call Function11c86e ret .asm_11c6ce ld de, $ffa9 ld a, [de] and $40 jr nz, .asm_11c708 ld a, [de] and $80 jr nz, .asm_11c731 ld a, [de] and $20 jr nz, .asm_11c746 ld a, [de] and $10 jr nz, .asm_11c755 ret .asm_11c6e6 call Function11c8f6 ld a, $4 ld [$cd35], a jr .asm_11c6fc .asm_11c6f0 ld a, [$cd2b] and a jr nz, .asm_11c6fa ld a, $6 jr .asm_11c6fc .asm_11c6fa ld a, $15 .asm_11c6fc ld [$cf63], a ld hl, $cd24 set 3, [hl] call PlayClickSFX ret .asm_11c708 ld a, [hl] cp $3 jr c, .asm_11c711 sub $3 jr .asm_11c76e .asm_11c711 ld a, [$cd26] sub $3 ret c ld [$cd26], a jr .asm_11c6c4 .asm_11c71c ld hl, $cd28 ld a, [$cd26] add $c ret c cp [hl] ret nc ld a, [$cd26] add $3 ld [$cd26], a jr .asm_11c6c4 .asm_11c731 ld a, [$cd28] ld b, a ld a, [$cd26] add [hl] add $3 cp b ret nc ld a, [hl] cp $9 jr nc, .asm_11c71c add $3 jr .asm_11c76e .asm_11c746 ld a, [hl] and a ret z cp $3 ret z cp $6 ret z cp $9 ret z dec a jr .asm_11c76e .asm_11c755 ld a, [$cd28] ld b, a ld a, [$cd26] add [hl] inc a cp b ret nc ld a, [hl] cp $2 ret z cp $5 ret z cp $8 ret z cp $b ret z inc a .asm_11c76e ld [hl], a ret ; known jump sources: 11c65b (47:465b) Function11c770: ; 11c770 (47:4770) xor a ld [$cd25], a ld [$cd26], a ld [$cd27], a ld a, [$cd2b] and a jr nz, .asm_11c7ab ld a, [$cd21] and a jr z, .asm_11c799 dec a sla a ld hl, $7220 ld c, a ld b, $0 add hl, bc ld a, [hli] ld [$cd28], a ld a, [hl] .asm_11c795 ld [$cd29], a ret .asm_11c799 ld a, [$c7d2] ld [$cd28], a .asm_11c79f ld c, $c call SimpleDivide and a jr nz, .asm_11c7a8 dec b .asm_11c7a8 ld a, b jr .asm_11c795 .asm_11c7ab ld hl, $c6a8 ld a, [CreditsTimer] ; $cd22 ld c, a ld b, $0 add hl, bc add hl, bc ld a, [hl] ld [$cd28], a jr .asm_11c79f ; known jump sources: 11c667 (47:4667), 11c6c7 (47:46c7) Function11c7bc: ; 11c7bc (47:47bc) ld bc, $4854 ld a, [$cd2b] and a jr nz, .asm_11c814 ld a, [$cd21] ld d, a and a jr z, .asm_11c7e9 ld a, [$cd26] ld e, a .asm_11c7d0 ld a, [bc] ld l, a inc bc ld a, [bc] ld h, a inc bc and l cp $ff ret z push bc push de call Function11c05d pop de pop bc inc e ld a, [$cd28] cp e jr nz, .asm_11c7d0 ret .asm_11c7e9 ld hl, CurMartEnd ; $d100 (aliases: LYOverrides) ld a, [$cd26] ld e, a add hl, de .asm_11c7f1 push de ld a, [hli] ld e, a ld d, $0 push hl ld a, [bc] ld l, a inc bc ld a, [bc] ld h, a inc bc and l cp $ff jr z, .asm_11c811 push bc call Function11c05d pop bc pop hl pop de inc e ld a, [$cd28] cp e jr nz, .asm_11c7f1 ret .asm_11c811 pop hl pop de ret .asm_11c814 ld hl, BattleMonSpclDef ; $c648 ld a, [CreditsTimer] ; $cd22 ld e, a ld d, $0 add hl, de add hl, de ld a, [hli] ld e, a ld a, [hl] ld d, a push de pop hl ld a, [$cd26] ld e, a ld d, $0 add hl, de add hl, de ld a, [$cd26] ld e, a .asm_11c831 push de ld a, [hli] ld e, a ld a, [hli] ld d, a push hl ld a, [bc] ld l, a inc bc ld a, [bc] ld h, a inc bc and l cp $ff jr z, .asm_11c851 push bc call Function11c05d pop bc pop hl pop de inc e ld a, [$cd28] cp e jr nz, .asm_11c831 ret .asm_11c851 pop hl pop de ret ; 11c854 (47:4854) INCBIN "baserom.gbc",$11c854,$11c86e - $11c854 ; known jump sources: 11c66a (47:466a), 11c6ca (47:46ca) Function11c86e: ; 11c86e (47:486e) ld a, [$cd26] and a jr z, .asm_11c88a ld hl, $c5f6 ld de, $48f0 call PlaceString ld hl, $c5fa ld c, $3 xor a .asm_11c883 ld [hli], a inc a dec c jr nz, .asm_11c883 jr .asm_11c895 .asm_11c88a ld hl, $c5f6 ld c, $7 ld a, $7f .asm_11c891 ld [hli], a dec c jr nz, .asm_11c891 .asm_11c895 ld hl, $cd28 ld a, [$cd26] add $c jr c, .asm_11c8b7 cp [hl] jr nc, .asm_11c8b7 ld hl, $c604 ld de, $48f3 call PlaceString ld hl, $c5ff ld a, $3 ld c, a .asm_11c8b1 ld [hli], a inc a dec c jr nz, .asm_11c8b1 ret .asm_11c8b7 ld hl, $c5f1 ld a, $7f ld [hl], a ld hl, $c5ff ld c, $7 .asm_11c8c2 ld [hli], a dec c jr nz, .asm_11c8c2 ret ; 11c8c7 (47:48c7) INCBIN "baserom.gbc",$11c8c7,$11c8f6 - $11c8c7 ; known jump sources: 11c6e6 (47:46e6) Function11c8f6: ; 11c8f6 (47:48f6) ld a, [BGMapBuffer] ; $cd20 (aliases: CreditsPos) call Function11c95d push hl ld a, [$cd2b] and a jr nz, .asm_11c938 ld a, [$cd21] ld d, a and a jr z, .asm_11c927 ld hl, $cd26 ld a, [$cd25] add [hl] .asm_11c911 ld e, a .asm_11c912 pop hl push de call Function11c05d pop de ld a, [BGMapBuffer] ; $cd20 (aliases: CreditsPos) ld c, a ld b, $0 ld hl, $cd36 add hl, bc add hl, bc ld [hl], e inc hl ld [hl], d ret .asm_11c927 ld hl, $cd26 ld a, [$cd25] add [hl] ld c, a ld b, $0 ld hl, CurMartEnd ; $d100 (aliases: LYOverrides) add hl, bc ld a, [hl] jr .asm_11c911 .asm_11c938 ld hl, BattleMonSpclDef ; $c648 ld a, [CreditsTimer] ; $cd22 ld e, a ld d, $0 add hl, de add hl, de ld a, [hli] ld e, a ld a, [hl] ld d, a push de pop hl ld a, [$cd26] ld e, a ld d, $0 add hl, de add hl, de ld a, [$cd25] ld e, a add hl, de add hl, de ld a, [hli] ld e, a ld a, [hl] ld d, a jr .asm_11c912 ; known jump sources: 11c8f9 (47:48f9), 11ca75 (47:4a75) Function11c95d: ; 11c95d (47:495d) sla a ld c, a ld b, $0 ld hl, $4986 add hl, bc ld a, [hli] ld c, a ld a, [hl] ld b, a push bc push bc pop hl ld a, $5 ld c, a ld a, $7f .asm_11c972 ld [hli], a dec c jr nz, .asm_11c972 dec hl ld bc, $ffec add hl, bc ld a, $5 ld c, a ld a, $7f .asm_11c980 ld [hld], a dec c jr nz, .asm_11c980 pop hl ret ; 11c986 (47:4986) INCBIN "baserom.gbc",$11c986,$11c992 - $11c986 ; known jump sources: 11c6c4 (47:46c4) Function11c992: ; 11c992 (47:4992) ld a, $8 ld hl, $c52e .asm_11c997 push af ld a, $7f push hl ld bc, $11 call ByteFill pop hl ld bc, $14 add hl, bc pop af dec a jr nz, .asm_11c997 ret ; known jump sources: 11c664 (47:4664) Function11c9ab: ; 11c9ab (47:49ab) ld a, $7 ld hl, $ce51 ld bc, $c8 call ByteFill callba Function104061 ret ; no known jump sources Function11c9bd: ; 11c9bd (47:49bd) ld de, $4a38 call Function11ca7f ; no known jump sources Function11c9c3: ; 11c9c3 (47:49c3) ld hl, $cd2a ld de, hJoypadPressed ; $ffa3 ld a, [de] and $1 jr nz, .asm_11c9de ld a, [de] and $2 jr nz, .asm_11c9e9 ld a, [de] and $40 jr nz, .asm_11c9f7 ld a, [de] and $80 jr nz, .asm_11c9fc ret .asm_11c9de ld a, [hl] and a jr nz, .asm_11c9e9 call Function11ca5e xor a ld [BGMapBuffer], a ; $cd20 (aliases: CreditsPos) .asm_11c9e9 ld hl, $cd24 set 4, [hl] ld a, $4 ld [$cf63], a call PlayClickSFX ret .asm_11c9f7 ld a, [hl] and a ret z dec [hl] ret .asm_11c9fc ld a, [hl] and a ret nz inc [hl] ret ; known jump sources: 11ca9c (47:4a9c) Function11ca01: ; 11ca01 (47:4a01) ld hl, $ce73 ld de, $14 ld a, $5 ld c, a .asm_11ca0a push hl ld a, $6 ld b, a ld a, $7 .asm_11ca10 ld [hli], a dec b jr nz, .asm_11ca10 pop hl add hl, de dec c jr nz, .asm_11ca0a ; known jump sources: 11ccfe (47:4cfe) Function11ca19: ; 11ca19 (47:4a19) ld hl, $cec9 ld de, $14 ld a, $6 ld c, a .asm_11ca22 push hl ld a, $14 ld b, a ld a, $7 .asm_11ca28 ld [hli], a dec b jr nz, .asm_11ca28 pop hl add hl, de dec c jr nz, .asm_11ca22 callba Function104061 ret ; 11ca38 (47:4a38) INCBIN "baserom.gbc",$11ca38,$11ca5e - $11ca38 ; known jump sources: 11c9e2 (47:49e2) Function11ca5e: ; 11ca5e (47:4a5e) xor a .asm_11ca5f push af call Function11ca6a pop af inc a cp $6 jr nz, .asm_11ca5f ret ; known jump sources: 11c5ae (47:45ae), 11ca60 (47:4a60), 11cea7 (47:4ea7) Function11ca6a: ; 11ca6a (47:4a6a) ld hl, $cd36 ld c, a ld b, $0 add hl, bc add hl, bc ld [hl], b inc hl ld [hl], b call Function11c95d ld de, $43bc call PlaceString ret ; known jump sources: 11c9c0 (47:49c0), 11cab0 (47:4ab0), 11cb63 (47:4b63) Function11ca7f: ; 11ca7f (47:4a7f) push de ld de, $4fc6 call Function11cfce ld de, $4fca call Function11cfce ld hl, $c5b9 pop de call PlaceString ld hl, $c550 ld de, $4a57 call PlaceString call Function11ca01 ld a, $1 ld [$cd2a], a ld hl, $cd24 res 4, [hl] call Function11cfb5 ret ; no known jump sources Function11caad: ; 11caad (47:4aad) ld de, $4b1c call Function11ca7f ; no known jump sources Function11cab3: ; 11cab3 (47:4ab3) ld hl, $cd2a ld de, hJoypadPressed ; $ffa3 ld a, [de] and $1 jr nz, .asm_11cace ld a, [de] and $2 jr nz, .asm_11caf9 ld a, [de] and $40 jr nz, .asm_11cb12 ld a, [de] and $80 jr nz, .asm_11cb17 ret .asm_11cace call PlayClickSFX ld a, [hl] and a jr nz, .asm_11cafc ld a, [$cd35] and a jr z, .asm_11caf3 cp $ff jr z, .asm_11caf3 ld a, $ff ld [$cd35], a ld hl, $c5b9 ld de, $4b31 call PlaceString ld a, $1 ld [$cd2a], a ret .asm_11caf3 ld hl, $cf63 set 7, [hl] ret .asm_11caf9 call PlayClickSFX .asm_11cafc ld hl, $cd24 set 4, [hl] ld a, $4 ld [$cf63], a ld a, [$cd35] cp $ff ret nz ld a, $1 ld [$cd35], a ret .asm_11cb12 ld a, [hl] and a ret z dec [hl] ret .asm_11cb17 ld a, [hl] and a ret nz inc [hl] ret ; 11cb1c (47:4b1c) INCBIN "baserom.gbc",$11cb1c,$11cb52 - $11cb1c ; no known jump sources Function11cb52: ; 11cb52 (47:4b52) ld hl, $4c01 ld a, [$cfa9] .asm_11cb58 dec a jr z, .asm_11cb5f inc hl inc hl jr .asm_11cb58 .asm_11cb5f ld a, [hli] ld e, a ld a, [hl] ld d, a call Function11ca7f ; no known jump sources Function11cb66: ; 11cb66 (47:4b66) ld hl, $cd2a ld de, hJoypadPressed ; $ffa3 ld a, [de] and $1 jr nz, .asm_11cb81 ld a, [de] and $2 jr nz, .asm_11cbd7 ld a, [de] and $40 jr nz, .asm_11cbeb ld a, [de] and $80 jr nz, .asm_11cbf0 ret .asm_11cb81 ld a, [hl] and a jr nz, .asm_11cbd4 ld a, $4 call GetSRAMBank ld hl, $a007 ld a, [$cfa9] dec a sla a sla a ld c, a sla a add c ld c, a ld b, $0 add hl, bc ld de, $cd36 ld c, $c .asm_11cba2 ld a, [de] ld [hli], a inc de dec c jr nz, .asm_11cba2 call CloseSRAM call PlayClickSFX ld de, $4fc6 call Function11cfce ld hl, $4c7e ld a, [$cfa9] .asm_11cbba dec a jr z, .asm_11cbc1 inc hl inc hl jr .asm_11cbba .asm_11cbc1 ld a, [hli] ld e, a ld a, [hl] ld d, a ld hl, $c5b9 call PlaceString ld hl, $cf63 inc [hl] inc hl ld a, $10 ld [hl], a ret .asm_11cbd4 call PlayClickSFX .asm_11cbd7 ld de, $4fba call Function11cfce call Function11c38a ld hl, $cd24 set 4, [hl] ld a, $4 ld [$cf63], a ret .asm_11cbeb ld a, [hl] and a ret z dec [hl] ret .asm_11cbf0 ld a, [hl] and a ret nz inc [hl] ret ; no known jump sources Function11cbf5: ; 11cbf5 (47:4bf5) call WaitSFX ld hl, $cf64 dec [hl] ret nz dec hl set 7, [hl] ret ; 11cc01 (47:4c01) INCBIN "baserom.gbc",$11cc01,$11ccef - $11cc01 ; no known jump sources Function11ccef: ; 11ccef (47:4cef) ld de, $4fc6 call Function11cfce ld hl, $c5b9 ld de, $4d10 call PlaceString call Function11ca19 call Function11cfb5 ; no known jump sources Function11cd04: ; 11cd04 (47:4d04) ld de, hJoypadPressed ; $ffa3 ld a, [de] and a ret z ld a, $4 ld [$cf63], a ret ; 11cd10 (47:4d10) INCBIN "baserom.gbc",$11cd10,$11cd20 - $11cd10 ; no known jump sources Function11cd20: ; 11cd20 (47:4d20) call Function11c277 ld de, $4fc6 call Function11cfce ld hl, $c5b9 ld a, [$cd2b] ld [$cd2c], a and a jr nz, .asm_11cd3a ld de, $4dc7 jr .asm_11cd3d .asm_11cd3a ld de, $4dd9 .asm_11cd3d call PlaceString ld hl, $c544 ld de, $4df5 call PlaceString call Function11cdaa ld hl, $cd24 res 5, [hl] call Function11cfb5 ; no known jump sources Function11cd54: ; 11cd54 (47:4d54) ld hl, $cd2c ld de, hJoypadPressed ; $ffa3 ld a, [de] and $1 jr nz, .asm_11cd6f ld a, [de] and $2 jr nz, .asm_11cd73 ld a, [de] and $40 jr nz, .asm_11cd8b ld a, [de] and $80 jr nz, .asm_11cd94 ret .asm_11cd6f ld a, [hl] ld [$cd2b], a .asm_11cd73 ld a, [$cd2b] and a jr nz, .asm_11cd7d ld a, $6 jr .asm_11cd7f .asm_11cd7d ld a, $15 .asm_11cd7f ld [$cf63], a ld hl, $cd24 set 5, [hl] call PlayClickSFX ret .asm_11cd8b ld a, [hl] and a ret z dec [hl] ld de, $4dc7 jr .asm_11cd9b .asm_11cd94 ld a, [hl] and a ret nz inc [hl] ld de, $4dd9 .asm_11cd9b push de ld de, $4fc6 call Function11cfce pop de ld hl, $c5b9 call PlaceString ret ; known jump sources: 11cd49 (47:4d49) Function11cdaa: ; 11cdaa (47:4daa) ld a, $2 ld hl, $ce51 ld bc, $78 call ByteFill ld a, $7 ld hl, $cec9 ld bc, $50 call ByteFill callba Function104061 ret ; 11cdc7 (47:4dc7) INCBIN "baserom.gbc",$11cdc7,$11ce0b - $11cdc7 ; no known jump sources Function11ce0b: ; 11ce0b (47:4e0b) call Function11c277 ld hl, $c52d ld de, $4f79 call PlaceString ld hl, $c5f5 ld de, $462a call PlaceString call Function11c618 ld hl, $cd24 res 2, [hl] call Function11cfb5 ; no known jump sources Function11ce2b: ; 11ce2b (47:4e2b) ld a, [CreditsTimer] ; $cd22 sla a sla a ld c, a ld b, $0 ld hl, $4eb9 add hl, bc ld de, hJoypadPressed ; $ffa3 ld a, [de] and $8 jr nz, .asm_11ce78 ld a, [de] and $4 jr nz, .asm_11ce86 ld a, [de] and $1 jr nz, .asm_11ce68 ld a, [de] and $2 jr nz, .asm_11ce82 ld de, $ffa9 ld a, [de] and $40 jr nz, .asm_11ceb1 ld a, [de] and $80 jr nz, .asm_11ceaf ld a, [de] and $20 jr nz, .asm_11ceae ld a, [de] and $10 jr nz, .asm_11ceb0 ret .asm_11ce68 ld a, [CreditsTimer] ; $cd22 cp $2d jr c, .asm_11ce92 sub $2d jr z, .asm_11cea4 dec a jr z, .asm_11ce96 jr .asm_11ce82 .asm_11ce78 ld hl, $cd24 set 0, [hl] ld a, $8 ld [BGMapBuffer], a ; $cd20 (aliases: CreditsPos) .asm_11ce82 ld a, $4 jr .asm_11ce98 .asm_11ce86 ld a, [$cd2b] xor $1 ld [$cd2b], a ld a, $6 jr .asm_11ce98 .asm_11ce92 ld a, $8 jr .asm_11ce98 .asm_11ce96 ld a, $13 .asm_11ce98 ld [$cf63], a ld hl, $cd24 set 2, [hl] call PlayClickSFX ret .asm_11cea4 ld a, [BGMapBuffer] ; $cd20 (aliases: CreditsPos) call Function11ca6a call PlayClickSFX ret .asm_11ceae inc hl .asm_11ceaf inc hl .asm_11ceb0 inc hl .asm_11ceb1 ld a, [hl] cp $ff ret z ld [CreditsTimer], a ; $cd22 ret ; 11ceb9 (47:4eb9) INCBIN "baserom.gbc",$11ceb9,$11cfb5 - $11ceb9 ; known jump sources: 11c343 (47:4343), 11c35c (47:435c), 11c370 (47:4370), 11c387 (47:4387), 11c3ea (47:43ea), 11c53a (47:453a), 11c672 (47:4672), 11caa9 (47:4aa9), 11cd01 (47:4d01), 11cd51 (47:4d51), 11ce28 (47:4e28) Function11cfb5: ; 11cfb5 (47:4fb5) ld hl, $cf63 inc [hl] ret ; 11cfba (47:4fba) INCBIN "baserom.gbc",$11cfba,$11cfce - $11cfba ; known jump sources: 11c359 (47:4359), 11c36b (47:436b), 11c37f (47:437f), 11c44b (47:444b), 11ca83 (47:4a83), 11ca89 (47:4a89), 11cbb1 (47:4bb1), 11cbda (47:4bda), 11ccf2 (47:4cf2), 11cd26 (47:4d26), 11cd9f (47:4d9f) Function11cfce: ; 11cfce (47:4fce) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $14 ld a, [de] inc de push af ld a, [de] inc de and a .asm_11cfda jr z, .asm_11cfe0 add hl, bc dec a jr .asm_11cfda .asm_11cfe0 pop af ld c, a ld b, $0 add hl, bc push hl ld a, $79 ld [hli], a ld a, [de] inc de dec a dec a jr z, .asm_11cff6 ld c, a ld a, $7a .asm_11cff2 ld [hli], a dec c jr nz, .asm_11cff2 .asm_11cff6 ld a, $7b ld [hl], a pop hl ld bc, $14 add hl, bc ld a, [de] dec de dec a dec a jr z, .asm_11d022 ld b, a .asm_11d005 push hl ld a, $7c ld [hli], a ld a, [de] dec a dec a jr z, .asm_11d015 ld c, a ld a, $7f .asm_11d011 ld [hli], a dec c jr nz, .asm_11d011 .asm_11d015 ld a, $7c ld [hl], a pop hl push bc ld bc, $14 add hl, bc pop bc dec b jr nz, .asm_11d005 .asm_11d022 ld a, $7d ld [hli], a ld a, [de] dec a dec a jr z, .asm_11d031 ld c, a ld a, $7a .asm_11d02d ld [hli], a dec c jr nz, .asm_11d02d .asm_11d031 ld a, $7e ld [hl], a ret ; known jump sources: 11c3c8 (47:43c8), 11c661 (47:4661) Function11d035: ; 11d035 (47:5035) ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $14 ld a, [de] inc de push af ld a, [de] inc de and a .asm_11d041 jr z, .asm_11d047 add hl, bc dec a jr .asm_11d041 .asm_11d047 pop af ld c, a ld b, $0 add hl, bc push hl ld a, $79 ld [hl], a pop hl push hl ld a, [de] dec a inc de ld c, a add hl, bc ld a, $7b ld [hl], a call Function11d0ac ld a, $7e ld [hl], a pop hl push hl call Function11d0ac ld a, $7d ld [hl], a pop hl push hl inc hl push hl call Function11d0ac pop bc dec de ld a, [de] cp $2 jr z, .asm_11d082 dec a dec a .asm_11d078 push af ld a, $7a ld [hli], a ld [bc], a inc bc pop af dec a jr nz, .asm_11d078 .asm_11d082 pop hl ld bc, $14 add hl, bc push hl ld a, [de] dec a ld c, a ld b, $0 add hl, bc pop bc inc de ld a, [de] cp $2 ret z push bc dec a dec a ld c, a ld b, a ld de, $14 .asm_11d09c ld a, $7c ld [hl], a add hl, de dec c jr nz, .asm_11d09c pop hl .asm_11d0a4 ld a, $7c ld [hl], a add hl, de dec b jr nz, .asm_11d0a4 ret ; known jump sources: 11d05a (47:505a), 11d062 (47:5062), 11d06c (47:506c) Function11d0ac: ; 11d0ac (47:50ac) ld a, [de] dec a ld bc, $14 .asm_11d0b1 add hl, bc dec a jr nz, .asm_11d0b1 ret ; no known jump sources Function11d0b6: ; 11d0b6 (47:50b6) ld hl, $c add hl, bc ld a, [hl] ld e, a ld d, $0 ld hl, $50c7 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_11d0c7: ; 11d0c7 (47:50c7) dw Function11d0dd dw Function11d0e9 dw Function11d0f5 dw Function11d10f dw Function11d134 dw Function11d145 dw Function11d156 dw Function11d175 dw Function11d1d7 dw Function11d1d1 dw Function11d1fc ; no known jump sources Function11d0dd: ; 11d0dd (47:50dd) ld a, [BGMapBuffer] ; $cd20 (aliases: CreditsPos) sla a ld hl, $5208 ld e, $1 jr asm_11d11e ; no known jump sources Function11d0e9: ; 11d0e9 (47:50e9) ld a, [$cd21] sla a ld hl, $521a ld e, $2 jr asm_11d11e ; no known jump sources Function11d0f5: ; 11d0f5 (47:50f5) ld hl, $52be ld a, [CreditsTimer] ; $cd22 ld e, a ld d, $0 add hl, de ld a, [hl] call Function3b3c ld a, [CreditsTimer] ; $cd22 sla a ld hl, $523e ld e, $4 jr asm_11d11e ; no known jump sources Function11d10f: ; 11d10f (47:510f) ld a, $27 call Function3b3c ld a, [$cd25] sla a ld hl, $529e ld e, $8 ; known jump sources: 11d0e7 (47:50e7), 11d0f3 (47:50f3), 11d10d (47:510d), 11d143 (47:5143), 11d154 (47:5154) asm_11d11e: ; 11d11e (47:511e) push de ld e, a ld d, $0 add hl, de push hl pop de ld hl, $4 add hl, bc ld a, [de] inc de ld [hli], a ld a, [de] ld [hl], a pop de ld a, e call Function11d2ee ret ; no known jump sources Function11d134: ; 11d134 (47:5134) ld a, $27 call Function3b3c ld a, [$cd2a] sla a ld hl, $52b6 ld e, $10 jr asm_11d11e ; no known jump sources Function11d145: ; 11d145 (47:5145) ld a, $27 call Function3b3c ld a, [$cd2c] sla a ld hl, $52ba ld e, $20 jr asm_11d11e ; no known jump sources Function11d156: ; 11d156 (47:5156) ld a, $2a call Function3b3c ld a, [$cd4a] sla a sla a sla a add $18 ld hl, $4 add hl, bc ld [hli], a ld a, $30 ld [hl], a ld a, $1 ld e, a call Function11d2ee ret ; no known jump sources Function11d175: ; 11d175 (47:5175) ld a, [$cd4d] cp $4 jr z, .asm_11d180 ld a, $28 jr .asm_11d182 .asm_11d180 ld a, $26 .asm_11d182 call Function3b3c ld a, [$cd4d] cp $4 jr z, .asm_11d1b1 ld a, [$cd4c] sla a sla a sla a add $20 ld hl, $4 add hl, bc ld [hli], a ld a, [$cd4d] sla a sla a sla a sla a add $48 ld [hl], a ld a, $2 ld e, a call Function11d2ee ret .asm_11d1b1 ld a, [$cd4c] sla a sla a sla a ld e, a sla a sla a add e add $18 ld hl, $4 add hl, bc ld [hli], a ld a, $8a ld [hl], a ld a, $2 ld e, a call Function11d2ee ret ; no known jump sources Function11d1d1: ; 11d1d1 (47:51d1) ld d, $98 ld a, $2c jr asm_11d1db ; no known jump sources Function11d1d7: ; 11d1d7 (47:51d7) ld d, $10 ld a, $2b ; known jump sources: 11d1d5 (47:51d5) asm_11d1db: ; 11d1db (47:51db) push de call Function3b3c ld a, [$cd4a] sla a sla a sla a ld e, a sla a add e add $40 ld hl, $5 add hl, bc ld [hld], a pop af ld [hl], a ld a, $4 ld e, a call Function11d2ee ret ; no known jump sources Function11d1fc: ; 11d1fc (47:51fc) ld a, $26 call Function3b3c ld a, $8 ld e, a call Function11d2ee ret ; 11d208 (47:5208) INCBIN "baserom.gbc",$11d208,$11d2ee - $11d208 ; known jump sources: 11d130 (47:5130), 11d171 (47:5171), 11d1ad (47:51ad), 11d1cd (47:51cd), 11d1f8 (47:51f8), 11d204 (47:5204) Function11d2ee: ; 11d2ee (47:52ee) ld hl, $cd24 and [hl] jr nz, .asm_11d316 ld a, e ld hl, $cd23 and [hl] jr z, .asm_11d30f ld hl, $e add hl, bc ld a, [hl] and a jr z, .asm_11d305 dec [hl] ret .asm_11d305 ld a, $0 ld [hld], a ld a, $1 xor [hl] ld [hl], a and a jr nz, .asm_11d316 .asm_11d30f ld hl, $7 add hl, bc xor a ld [hl], a ret .asm_11d316 ld hl, $5 add hl, bc ld a, $b0 sub [hl] ld hl, $7 add hl, bc ld [hl], a ret Function11d323: ; 11d323 ld a, [rSVBK] push af ld a, $5 ld [rSVBK], a ld hl, $533a ld de, Unkn1Pals ld bc, $0080 call CopyBytes pop af ld [rSVBK], a ret ; 11d33a INCBIN "baserom.gbc",$11d33a,$11d3ba - $11d33a Function11d3ba: ; 11d3ba ld a, [rSVBK] push af ld hl, BattleMonSpclDef ld a, $0 ld [$cd2d], a ld [hli], a ld a, $d8 ld [$cd2e], a ld [hl], a ld a, $fe ld [$cd2f], a ld a, $54 ld [$cd30], a ld a, $a8 ld [$cd31], a ld a, $c6 ld [$cd32], a ld a, $4a ld [$cd33], a ld a, $c6 ld [$cd34], a ld hl, $723c ld a, $2d Function11d3ef: ; 11d3ef push af ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] ld c, a ld a, [hli] ld b, a push hl ld hl, Unkn1Pals add hl, de ld a, [$cd2d] ld e, a ld a, [$cd2e] ld d, a push bc .asm_11d406 ld a, $3 ld [rSVBK], a ld a, [hli] push af ld a, $5 ld [rSVBK], a pop af ld [de], a inc de ld a, $3 ld [rSVBK], a ld a, [hli] push af ld a, $5 ld [rSVBK], a pop af ld [de], a inc de dec bc ld a, c or b jr nz, .asm_11d406 ld a, [$cd2f] ld l, a ld a, [$cd30] ld h, a ld a, [hli] ld c, a ld a, [hli] ld b, a ld a, l ld [$cd2f], a ld a, h ld [$cd30], a push bc pop hl ld c, $0 .asm_11d43d ld a, [hl] cp $ff jr z, .asm_11d453 call Function11d493 jr nz, .asm_11d44a inc hl jr .asm_11d43d .asm_11d44a ld a, [hli] ld [de], a inc de xor a ld [de], a inc de inc c jr .asm_11d43d .asm_11d453 pop hl ld b, $0 add hl, bc push hl pop bc ld a, [$cd31] ld l, a ld a, [$cd32] ld h, a ld a, c ld [hli], a ld a, b ld [hli], a ld a, l ld [$cd31], a ld a, h ld [$cd32], a ld a, [$cd33] ld l, a ld a, [$cd34] ld h, a ld a, e ld [$cd2d], a ld [hli], a ld a, d ld [$cd2e], a ld [hli], a ld a, l ld [$cd33], a ld a, h ld [$cd34], a pop hl pop af dec a jr z, .asm_11d48f jp Function11d3ef .asm_11d48f pop af ld [rSVBK], a ret ; 11d493 Function11d493: ; 11d493 push hl push bc push de dec a ld hl, rSVBK ld e, $1 ld [hl], e call CheckSeenMon ld hl, rSVBK ld e, $5 ld [hl], e pop de pop bc pop hl ret ; 11d4aa Function11d4aa: ; 11d4aa ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a ld hl, $5aac ld bc, $7220 xor a ld [$cd2d], a inc a ld [$cd2e], a ld a, $e .asm_11d4c1 push af ld a, [hli] ld e, a ld a, [hli] ld d, a push hl ld hl, $0005 add hl, de ld a, [bc] inc bc inc bc push bc .asm_11d4cf push af push hl ld a, [hli] ld e, a ld a, [hl] ld d, a ld hl, Unkn1Pals add hl, de ld a, [$cd2d] ld [hli], a inc a ld [$cd2d], a ld a, [$cd2e] ld [hl], a pop hl ld de, $0008 add hl, de pop af dec a jr nz, .asm_11d4cf ld hl, $cd2d xor a ld [hli], a inc [hl] pop bc pop hl pop af dec a jr nz, .asm_11d4c1 pop af ld [rSVBK], a ret ; 11d4fe INCBIN "baserom.gbc",$11d4fe,$11f686 - $11d4fe SECTION "bank5B", ROMX, BANK[$5B] INCBIN "baserom.gbc",$16c000,$16d421 - $16c000 Function16d421: ; 16d421 ld de, $4fc1 ld hl, VTiles2 ld bc, $5b46 call Get2bpp ret ; 16d42e Function16d42e: ; 16d42e ld hl, $5465 ld de, TileMap ld bc, $0168 call CopyBytes ret ; 16d43b INCBIN "baserom.gbc",$16d43b,$16d61d - $16d43b Function16d61d: ; 16d61d ld h, d ld l, e push bc push hl call Function16d640 pop hl pop bc ld de, $0939 add hl, de inc b inc b inc c inc c ld a, $7 .asm_16d630 push bc push hl .asm_16d632 ld [hli], a dec c jr nz, .asm_16d632 pop hl ld de, $0014 add hl, de pop bc dec b jr nz, .asm_16d630 ret ; 16d640 Function16d640: ; 16d640 push hl ld a, $30 ld [hli], a inc a call Function16d66d inc a ld [hl], a pop hl ld de, $0014 add hl, de .asm_16d64f push hl ld a, $33 ld [hli], a ld a, $7f call Function16d66d ld [hl], $34 pop hl ld de, $0014 add hl, de dec b jr nz, .asm_16d64f ld a, $35 ld [hli], a ld a, $36 call Function16d66d ld [hl], $37 ret ; 16d66d Function16d66d: ; 16d66d ld d, c .asm_16d66e ld [hli], a dec d jr nz, .asm_16d66e ret ; 16d673 Function16d673: ; 16d673 call Function16d696 call Function16d6ae callba Function49856 callba Functionfb60d ld hl, $c5fe ld de, $568f call PlaceString ret ; 16d68f INCBIN "baserom.gbc",$16d68f,$16d696 - $16d68f Function16d696: ; 16d696 call Function16d421 ret ; 16d69a Function16d69a: ; 16d69a ld de, $52c1 ld hl, $9760 ld bc, $5b08 call Get2bpp ret ; 16d6a7 Function16d6a7: ; 16d6a7 callba Function49811 ret ; 16d6ae Function16d6ae: ; 16d6ae call Function16d42e ld hl, $55cd ld de, TileMap ld bc, $0028 call CopyBytes ld hl, $55f5 ld de, $c5e0 ld bc, $0028 call CopyBytes ret ; 16d6ca Function16d6ca: ; 16d6ca call Function16d61d ret ; 16d6ce Function16d6ce: ; 16d6ce call Function1d6e call Function16d6e1 callba Function87d call Function1d7d call Function3200 ret ; 16d6e1 Function16d6e1: ; 16d6e1 ld hl, $c56c ld b, $1 ld c, $a ld a, $10 call Predef ld hl, $c581 ld de, $5701 call PlaceString call WaitBGMap call Function3200 ld c, $32 jp DelayFrames ; 16d701 INCBIN "baserom.gbc",$16d701,$16d70c - $16d701 Function16d70c: ; 16d70c call Function16d725 call Function16d713 ret ; 16d713 Function16d713: ; 16d713 push bc push af ld a, [$ffa9] and $f0 ld b, a ld a, [hJoyPressed] and $f or b ld b, a pop af ld a, b pop bc ld d, a ret ; 16d725 Function16d725: ; 16d725 ld hl, $cfa6 res 7, [hl] ld a, [hBGMapMode] push af call Function16d734 pop af ld [hBGMapMode], a ret ; 16d734 Function16d734: ; 16d734 .asm_16d734 call Function16d77a call Function16d759 call Function16d76a jr nc, .asm_16d758 callba Function24270 jr c, .asm_16d758 ld a, [$cfa5] bit 7, a jr nz, .asm_16d758 call Function16d713 ld b, a ld a, [$cfa8] and b jr z, .asm_16d734 .asm_16d758 ret ; 16d759 Function16d759: ; 16d759 ld a, [hOAMUpdate] push af ld a, $1 ld [hOAMUpdate], a call WaitBGMap pop af ld [hOAMUpdate], a xor a ld [hBGMapMode], a ret ; 16d76a Function16d76a: ; 16d76a .asm_16d76a call RTC call Function16d7e7 ret c ld a, [$cfa5] bit 7, a jr z, .asm_16d76a and a ret ; 16d77a Function16d77a: ; 16d77a ld hl, $cfac ld a, [hli] ld h, [hl] ld l, a ld a, [hl] cp $1f jr nz, .asm_16d792 ld a, [$cfab] ld [hl], a push hl push bc ld bc, $000b add hl, bc ld [hl], a pop bc pop hl .asm_16d792 ld a, [$cfa1] ld b, a ld a, [$cfa2] ld c, a call GetTileCoord ld a, [$cfa7] swap a and $f ld c, a ld a, [$cfa9] ld b, a xor a dec b jr z, .asm_16d7b1 .asm_16d7ad add c dec b jr nz, .asm_16d7ad .asm_16d7b1 ld c, $14 call AddNTimes ld a, [$cfa7] and $f ld c, a ld a, [$cfaa] ld b, a xor a dec b jr z, .asm_16d7c8 .asm_16d7c4 add c dec b jr nz, .asm_16d7c4 .asm_16d7c8 ld c, a add hl, bc ld a, [hl] cp $1f jr z, .asm_16d7de ld [$cfab], a ld [hl], $1f push hl push bc ld bc, $000b add hl, bc ld [hl], $1f pop bc pop hl .asm_16d7de ld a, l ld [$cfac], a ld a, h ld [$cfad], a ret ; 16d7e7 Function16d7e7: ; 16d7e7 ld a, [$cfa5] bit 6, a jr z, .asm_16d7f4 callba Function8cf62 .asm_16d7f4 call Functiona57 call Function16d713 and a ret z scf ret ; 16d7fe SECTION "bank5C", ROMX, BANK[$5C] INCBIN "baserom.gbc",$170000,$1700b0 - $170000 Function1700b0: ; 1700b0 call Function17021e callba Function118121 ret ; 1700ba Function1700ba: ; 1700ba call Function17021e callba Function11811a ret ; 1700c4 INCBIN "baserom.gbc",$1700c4,$170114 - $1700c4 Function170114: ; 170114 call Function17021e call Function170121 callba Function11805f ret ; 170121 Function170121: ; 170121 ld a, $5 call GetSRAMBank ld hl, $a948 ld de, EnemyMoveAnimation ld bc, $00f6 call CopyBytes call CloseSRAM call Function170c8b ret ; 170139 INCBIN "baserom.gbc",$170139,$170215 - $170139 Function170215: ; 170215 xor a ld [$cf63], a call Function17022c ret ; 17021d Function17021d: ; 17021d ret ; 17021e Function17021e: ; 17021e xor a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [$cf66], a ret ; 17022c Function17022c: ; 17022c .asm_17022c call Function17023a call DelayFrame ld a, [$cf63] cp $1 jr nz, .asm_17022c ret ; 17023a Function17023a: ; 17023a ld a, [$cf63] ld e, a ld d, $0 ld hl, $4249 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 170249 INCBIN "baserom.gbc",$170249,$1704e1 - $170249 Function1704e1: ; 1704e1 call SpeechTextBox call FadeToMenu call Function17021e call Function1704f1 call Function2b3c ret ; 1704f1 Function1704f1: ; 1704f1 call WhiteBGMap call ClearSprites call Functionfdb .asm_1704fa call Functiona57 ld a, [$cf63] bit 7, a jr nz, .asm_17050f call Function170510 callba Function104061 jr .asm_1704fa .asm_17050f ret ; 170510 Function170510: ; 170510 ld a, [$cf63] ld e, a ld d, $0 ld hl, $451f add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 17051f INCBIN "baserom.gbc",$17051f,$170687 - $17051f Function170687: ; 170687 ld a, [ScriptVar] ld e, a ld d, $0 ld hl, $4696 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 170696 ; no known jump sources Jumptable_170696: ; 170696 (5c:4696) dw Function17075f dw Function170788 dw Function170778 dw Function170799 dw Function17079d dw Function1707ac dw Function1707f4 dw Function170868 dw Function170881 dw Function17089a dw Function1708b1 dw Function1708b9 dw Function1708c8 dw Function1708f0 dw Function17093c dw Function1709aa dw Function1709bb dw Function170a9c dw Function170aa0 dw Function170aaf dw Function170abe dw Function170ad7 dw Function170807 dw Function17081d dw Function170ae8 dw Function170b16 dw Function1706d6 dw Function1706ee dw Function17071b dw Function170729 dw Function17073e dw Function170737 ; no known jump sources Function1706d6: ; 1706d6 (5c:46d6) ld a, $1 call GetSRAMBank ld a, $ff ld hl, $be48 ld bc, $7 call ByteFill xor a ld [$be46], a call CloseSRAM ret ; no known jump sources Function1706ee: ; 1706ee (5c:46ee) ld a, $1 call GetSRAMBank ld a, [$be50] call CloseSRAM ld [ScriptVar], a ; $c2dd ld hl, NumItems ; $d892 (aliases: TMsHMsEnd) ld a, [hli] cp $14 ret c ld b, $14 ld a, [ScriptVar] ; $c2dd ld c, a .asm_170709 ld a, [hli] cp c jr nz, .asm_170711 ld a, [hl] cp $5f ret c .asm_170711 inc hl dec b jr nz, .asm_170709 ld a, $12 ld [ScriptVar], a ; $c2dd ret ; no known jump sources Function17071b: ; 17071b (5c:471b) ld a, $1 call GetSRAMBank ld a, $3 ld [$be45], a call CloseSRAM ret ; no known jump sources Function170729: ; 170729 (5c:4729) ld a, $1 call GetSRAMBank ld a, $4 ld [$be45], a call CloseSRAM ret ; no known jump sources Function170737: ; 170737 (5c:4737) callba Function14dbb ret ; known jump sources: 17074f (5c:474f) Function17073e: ; 17073e (5c:473e) call Random ld a, [hRandomAdd] ; $ff00+$e1 and $7 cp $6 jr c, .asm_17074b sub $6 .asm_17074b add $1a cp $1e jr z, Function17073e push af ld a, $1 call GetSRAMBank pop af ld [$be50], a call CloseSRAM ret ; no known jump sources Function17075f: ; 17075f (5c:475f) call Function17089a ld a, [ScriptVar] ; $c2dd and a ret z ld a, $1 call GetSRAMBank ld a, [$be4f] and $2 ld [ScriptVar], a ; $c2dd call CloseSRAM ret ; no known jump sources Function170778: ; 170778 (5c:4778) ld hl, $be45 ld a, $1 call GetSRAMBank ld a, [hl] ld [ScriptVar], a ; $c2dd call CloseSRAM ret ; no known jump sources Function170788: ; 170788 (5c:4788) ld a, $1 call GetSRAMBank ld a, [$be4f] or $2 ld [$be4f], a call CloseSRAM ret ; no known jump sources Function170799: ; 170799 (5c:4799) ld c, $1 jr asm_17079f ; no known jump sources Function17079d: ; 17079d (5c:479d) ld c, $0 asm_17079f: ; 17079f (5c:479f) ld a, $1 call GetSRAMBank ld a, c ld [$be45], a call CloseSRAM ret ; no known jump sources Function1707ac: ; 1707ac (5c:47ac) ld a, $5 call GetSRAMBank ld a, [$aa8c] ld b, a ld a, [$be46] ld [ScriptVar], a ; $c2dd call CloseSRAM and a ret z ld a, b cp $2 jr nc, .asm_1707ef push bc call UpdateTime pop bc ld a, $5 call GetSRAMBank ld a, [$aa8b] call CloseSRAM ld c, a ld a, [CurDay] ; $d4cb sub c jr c, .asm_1707e5 cp $8 jr nc, .asm_1707ef ld a, b and a jr nz, .asm_1707ef ret .asm_1707e5 ld hl, CurDay ; $d4cb ld a, $8c sub c add [hl] cp $8 ret c .asm_1707ef ld a, $8 ld [ScriptVar], a ; $c2dd ; no known jump sources Function1707f4: ; 1707f4 (5c:47f4) ld a, $5 call GetSRAMBank xor a ld [$be46], a ld [$aa8b], a ld [$aa8c], a call CloseSRAM ret ; no known jump sources Function170807: ; 170807 (5c:4807) call UpdateTime ld a, $5 call GetSRAMBank ld a, [CurDay] ; $d4cb ld [$b2f9], a xor a ld [$b2fa], a call CloseSRAM ret ; no known jump sources Function17081d: ; 17081d (5c:481d) xor a ld [ScriptVar], a ; $c2dd ld a, $5 call GetSRAMBank ld a, [$b2f9] ld c, a ld a, [$b2fa] ld b, a call CloseSRAM cp $2 jr nc, .asm_170853 push bc call UpdateTime pop bc ld a, [CurDay] ; $d4cb sub c jr c, .asm_170849 cp $b jr nc, .asm_170853 ld a, b and a jr nz, .asm_170853 ret .asm_170849 ld hl, CurDay ; $d4cb ld a, $8c sub c add [hl] cp $b ret c .asm_170853 ld a, $1 ld [ScriptVar], a ; $c2dd ld a, $5 call GetSRAMBank xor a ld [$b2f9], a ld [$b2fa], a call CloseSRAM ret ; no known jump sources Function170868: ; 170868 (5c:4868) ld a, $1 call GetSRAMBank ld a, [rSVBK] ; $ff00+$70 push af ld a, $3 ld [rSVBK], a ; $ff00+$70 ld a, [$d800] ld [$be47], a pop af ld [rSVBK], a ; $ff00+$70 call CloseSRAM ret ; no known jump sources Function170881: ; 170881 (5c:4881) ld a, $1 call GetSRAMBank ld a, [rSVBK] ; $ff00+$70 push af ld a, $3 ld [rSVBK], a ; $ff00+$70 ld a, [$be47] ld [$d800], a pop af ld [rSVBK], a ; $ff00+$70 call CloseSRAM ret Function17089a: ; 17089a ld a, [$cfcd] and a jr z, .asm_1708ad callba Function14bcb jr z, .asm_1708ab xor a jr .asm_1708ad .asm_1708ab ld a, $1 .asm_1708ad ld [ScriptVar], a ret ; 1708b1 ; no known jump sources Function1708b1: ; 1708b1 (5c:48b1) xor a ld [MusicFade], a ; $c2a7 call MaxVolume ret ; no known jump sources Function1708b9: ; 1708b9 (5c:48b9) ld a, $1 call GetSRAMBank ld a, [$be3c] ld [ScriptVar], a ; $c2dd call CloseSRAM ret ; no known jump sources Function1708c8: ; 1708c8 (5c:48c8) call UpdateTime ld a, $5 call GetSRAMBank ld a, [CurDay] ; $d4cb ld [$aa8b], a xor a ld [$aa8c], a ld a, [$aa5d] cp $2 jr nc, .asm_1708ec ld a, [CurDay] ; $d4cb ld [$aa48], a ld a, $1 ld [$aa47], a .asm_1708ec call CloseSRAM ret ; no known jump sources Function1708f0: ; 1708f0 (5c:48f0) xor a ld [ScriptVar], a ; $c2dd call UpdateTime ld a, $5 call GetSRAMBank ld a, [$aa48] ld c, a ld a, [$aa47] call CloseSRAM and a ret z ld hl, CurDay ; $d4cb ld a, c cp [hl] jr nz, Function170923 ld a, $5 call GetSRAMBank ld a, [$aa5d] call CloseSRAM cp $5 ret c ld a, $1 ld [ScriptVar], a ; $c2dd ret Function170923: ; 170923 ld a, $5 call GetSRAMBank xor a ld [$aa48], a ld [$aa47], a ld hl, $aa5d ld bc, $0011 call ByteFill call CloseSRAM ret ; 17093c ; no known jump sources Function17093c: ; 17093c (5c:493c) xor a ld [ScriptVar], a ; $c2dd ld a, $81 ld [CurItem], a ; $d106 ld hl, NumItems ; $d892 (aliases: TMsHMsEnd) call CheckItem ret nc ld a, [PartyCount] ; $dcd7 ld b, $0 ld c, a ld hl, PartySpecies ; $dcd8 .asm_170955 ld a, [hli] cp $fd jr nz, .asm_17099f push hl ld hl, PartyMonOT ; $ddff (aliases: PartyMon1OT) ld de, $6 ld a, b and a jr z, .asm_170969 .asm_170965 add hl, de dec a jr nz, .asm_170965 .asm_170969 ld de, $49a4 ld a, $6 .asm_17096e push af ld a, [de] inc de cp [hl] inc hl jr nz, .asm_17099d pop af dec a jr nz, .asm_17096e dec hl dec hl dec hl dec hl ld a, $50 ld [hli], a ld [hli], a pop hl ld a, $81 ld [CurItem], a ; $d106 ld a, $1 ld [$d10c], a ld a, $ff ld [$d107], a ld hl, NumItems ; $d892 (aliases: TMsHMsEnd) call TossItem ld a, $1 ld [ScriptVar], a ; $c2dd ret .asm_17099d pop af pop hl .asm_17099f inc b dec c jr nz, .asm_170955 ret ; 1709a4 (5c:49a4) INCBIN "baserom.gbc",$1709a4,$1709aa - $1709a4 ; no known jump sources Function1709aa: ; 1709aa (5c:49aa) ld a, [rSVBK] ; $ff00+$70 push af ld a, $3 ld [rSVBK], a ; $ff00+$70 ld a, [$d090] ld [ScriptVar], a ; $c2dd pop af ld [rSVBK], a ; $ff00+$70 ret ; no known jump sources Function1709bb: ; 1709bb (5c:49bb) xor a ld [ScriptVar], a ; $c2dd ld a, $5 call GetSRAMBank ld a, [$a800] call CloseSRAM cp $6 jr nc, .asm_1709da ld e, a ld d, $0 ld hl, $49e7 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] .asm_1709da ld a, $5 call GetSRAMBank xor a ld [$a800], a call CloseSRAM ret ; 1709e7 (5c:49e7) INCBIN "baserom.gbc",$1709e7,$170a9c - $1709e7 ; no known jump sources Function170a9c: ; 170a9c (5c:4a9c) ld c, $0 jr asm_170aa2 ; no known jump sources Function170aa0: ; 170aa0 (5c:4aa0) ld c, $1 asm_170aa2: ; 170aa2 (5c:4aa2) ld a, $5 call GetSRAMBank ld a, c ld [$aa8d], a call CloseSRAM ret ; no known jump sources Function170aaf: ; 170aaf (5c:4aaf) ld a, $5 call GetSRAMBank ld a, [$aa8d] ld [ScriptVar], a ; $c2dd call CloseSRAM ret ; no known jump sources Function170abe: ; 170abe (5c:4abe) call Function17089a ld a, [ScriptVar] ; $c2dd and a ret z ld a, $1 call GetSRAMBank ld a, [$be4f] and $1 ld [ScriptVar], a ; $c2dd call CloseSRAM ret ; no known jump sources Function170ad7: ; 170ad7 (5c:4ad7) ld a, $1 call GetSRAMBank ld a, [$be4f] or $1 ld [$be4f], a call CloseSRAM ret ; no known jump sources Function170ae8: ; 170ae8 (5c:4ae8) ld a, $5 call GetSRAMBank ld a, [$b2fb] call CloseSRAM ld c, $a call SimpleDivide ld a, b ld [$cd4f], a xor a ld [ScriptVar], a ; $c2dd callba Function119d93 ret nc ld a, $5 call GetSRAMBank ld a, [$b2fb] call CloseSRAM ld [ScriptVar], a ; $c2dd ret ; no known jump sources Function170b16: ; 170b16 (5c:4b16) ld a, $5 call GetSRAMBank ld a, [$b2fb] call CloseSRAM ld c, $a call SimpleDivide ld a, b ld [$cd4f], a xor a ld [ScriptVar], a ; $c2dd callba Function119dd1 ret nc ld a, $5 call GetSRAMBank ld a, [$b2fb] call CloseSRAM ld [ScriptVar], a ; $c2dd ret Function170b44: ; 170b44 callba Function1f8000 ld a, [rSVBK] push af ld a, $3 ld [rSVBK], a ld hl, $d10a ld a, [hl] dec a ld c, a ld b, $0 pop af ld [rSVBK], a ld hl, $4b90 add hl, bc ld a, [hl] ld [$cd49], a ld a, [ScriptVar] dec a sla a ld e, a sla a sla a sla a ld c, a ld b, $0 ld d, $0 ld hl, MapObjects add hl, bc inc hl ld a, [$cd49] ld [hl], a ld hl, UsedSprites add hl, de ld [hli], a ld [$ffbd], a ld a, [hl] ld [$ffbe], a callba Function143c8 ret ; 170b90 INCBIN "baserom.gbc",$170b90,$170bd2 - $170b90 Function170bd2: ; 170bd2 ret ; 170bd3 Function170bd3: ; 170bd3 callba Function8b201 jr c, .asm_170bde xor a jr .asm_170be0 .asm_170bde ld a, $1 .asm_170be0 ld [ScriptVar], a ret ; 170be4 INCBIN "baserom.gbc",$170be4,$170c8b - $170be4 Function170c8b: ; 170c8b ld hl, LastPlayerCounterMove ld b, $5 .asm_170c90 ld a, [hl] xor $ff ld [hli], a dec b jr nz, .asm_170c90 ret ; 170c98 INCBIN "baserom.gbc",$170c98,$1719c8 - $170c98 ; no known jump sources Function1719c8: ; 1719c8 (5c:59c8) ld a, [$FF00+$aa] push af ld a, $1 ld [$FF00+$aa], a call Function1719d6 pop af ld [$FF00+$aa], a ret ; known jump sources: 1719cf (5c:59cf) Function1719d6: ; 1719d6 (5c:59d6) callba Function1183cb call Function1719ed ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 call Function171a11 pop af ld [rSVBK], a ; $ff00+$70 ret ; known jump sources: 1719dc (5c:59dc) Function1719ed: ; 1719ed (5c:59ed) xor a ld [$cd49], a ld [$cd4a], a dec a ld [$cd4b], a call WhiteBGMap call ClearSprites callba Function171d2b callba Function104061 callba Function8cf53 ret ; known jump sources: 1719e6 (5c:59e6), 171a2a (5c:5a2a) Function171a11: ; 171a11 (5c:5a11) call Functiona57 ld a, [$cd49] bit 7, a jr nz, .asm_171a2c call Function171a36 callba Function8cf69 callba Function104061 jr Function171a11 .asm_171a2c callba Function8cf53 call ClearSprites ret ; known jump sources: 171a1b (5c:5a1b) Function171a36: ; 171a36 (5c:5a36) ld a, [$cd49] ld e, a ld d, $0 ld hl, $5a45 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; no known jump sources Jumptable_171a45: ; 171a45 (5c:5a45) dw Function171a95 dw Function171ac9 dw Function171a5d dw Function171ad7 dw Function171a5d dw Function171aec dw Function171b4b dw Function171b85 dw Function171bcc dw Function171c2c dw Function171c39 dw Function171c41 ; no known jump sources Function171a5d: ; 171a5d (5c:5a5d) ld a, [$c821] bit 1, a jr nz, .asm_171a6a bit 0, a ret nz jp Function171c66 .asm_171a6a ld a, $0 call Function3e32 ld [$c300], a ld a, l ld [$c301], a ld a, h ld [$c302], a ld a, $a call Function3e32 ld a, [rSVBK] ; $ff00+$70 push af ld a, $1 ld [rSVBK], a ; $ff00+$70 callba Function118452 pop af ld [rSVBK], a ; $ff00+$70 ld a, $a ld [$cd49], a ret ; no known jump sources Function171a95: ; 171a95 (5c:5a95) callba Function171ccd ld hl, $c542 ld de, $5aa7 call PlaceString jp Function171c66 ; 171aa7 (5c:5aa7) INCBIN "baserom.gbc",$171aa7,$171ac9 - $171aa7 ; no known jump sources Function171ac9: ; 171ac9 (5c:5ac9) ld de, $cd81 ld hl, $5c ld a, $2 call Function3e32 jp Function171c66 ; no known jump sources Function171ad7: ; 171ad7 (5c:5ad7) xor a ld hl, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) ld bc, $66 call ByteFill ld de, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) ld a, $c call Function3e32 jp Function171c66 ; no known jump sources Function171aec: ; 171aec (5c:5aec) ld a, [rSVBK] ; $ff00+$70 push af ld a, $1 ld [rSVBK], a ; $ff00+$70 callba Function118452 pop af ld [rSVBK], a ; $ff00+$70 ld hl, $c51a ld a, $8 .asm_171b01 push af push hl xor a ld bc, $10 call ByteFill pop hl ld de, $14 add hl, de pop af dec a jr nz, .asm_171b01 ld hl, $c52e ld a, $3 ld de, EnemyMoveAnimation ; $c608 (aliases: EnemyMoveStruct) .asm_171b1b push af push hl ld a, [de] and a jr z, .asm_171b34 ld a, [$cd4b] inc a ld [$cd4b], a push hl call Function171b42 pop hl ld bc, $ffec add hl, bc call Function171b42 .asm_171b34 pop hl ld bc, $14 add hl, bc add hl, bc add hl, bc pop af dec a jr nz, .asm_171b1b jp Function171c66 ; known jump sources: 171b29 (5c:5b29), 171b31 (5c:5b31), 171b49 (5c:5b49) Function171b42: ; 171b42 (5c:5b42) ld a, [de] inc de and a ret z sub $20 ld [hli], a jr Function171b42 ; no known jump sources Function171b4b: ; 171b4b (5c:5b4b) ld de, $4010 ld a, $1d call Function3b2a ld hl, $c add hl, bc ld a, $8 ld [hl], a ld de, $4098 ld a, $1d call Function3b2a ld hl, $c add hl, bc ld a, $9 ld [hl], a ld de, $8a70 ld a, $1d call Function3b2a ld hl, $c add hl, bc ld a, $a ld [hl], a ld a, $4 ld [$cd23], a ld a, $8 ld [$cd24], a jp Function171c66 ; no known jump sources Function171b85: ; 171b85 (5c:5b85) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $2 jp nz, Function171b9f ld a, [hl] and $1 jp nz, Function171bbd ld a, [hl] and $40 jr nz, asm_171ba5 ld a, [hl] and $80 jr nz, asm_171baf ret ; known jump sources: 171b8b (5c:5b8b) Function171b9f: ; 171b9f (5c:5b9f) ld a, $80 ld [$cd49], a ret asm_171ba5: ; 171ba5 (5c:5ba5) ld a, [$cd4a] and a ret z dec a ld [$cd4a], a ret asm_171baf: ; 171baf (5c:5baf) ld a, [$cd4b] ld c, a ld a, [$cd4a] cp c ret z inc a ld [$cd4a], a ret ; known jump sources: 171b91 (5c:5b91) Function171bbd: ; 171bbd (5c:5bbd) call PlayClickSFX ld a, $8 ld [$cd23], a xor a ld [$cd24], a jp Function171c66 ; no known jump sources Function171bcc: ; 171bcc (5c:5bcc) ld hl, hJoyPressed ; $ffa7 ld a, [hl] and $2 jp nz, Function171bdc ld a, [hl] and $1 jp nz, Function171beb ret ; known jump sources: 171bd2 (5c:5bd2) Function171bdc: ; 171bdc (5c:5bdc) ld a, $4 ld [$cd23], a ld a, $8 ld [$cd24], a ld hl, $cd49 dec [hl] ret ; known jump sources: 171bd8 (5c:5bd8) Function171beb: ; 171beb (5c:5beb) ld a, $5 call GetSRAMBank ld a, [$cd4a] ld [$aa4a], a call CloseSRAM ld hl, $5c6b call LoadMenuDataHeader call Function1cbb call Function1cfd callba Function104061 ld hl, $c5b9 ld de, $5c73 call PlaceString ld a, [$cd4a] cp $2 jr z, .asm_171c1f ld a, $8 jr .asm_171c21 .asm_171c1f ld a, $c .asm_171c21 ld [$cd24], a ld a, $1e ld [$cd4c], a call Function171c66 ; no known jump sources Function171c2c: ; 171c2c (5c:5c2c) ld hl, $cd4c dec [hl] ret nz call Function1c07 call WhiteBGMap jr asm_171c60 ; no known jump sources Function171c39: ; 171c39 (5c:5c39) ld a, $28 ld [$cd4c], a call Function171c66 ; no known jump sources Function171c41: ; 171c41 (5c:5c41) ld hl, $cd4c dec [hl] ret nz call WhiteBGMap callba Function106462 callba Function106464 ld a, $2 ld [$c303], a callba Function17f555 asm_171c60: ; 171c60 (5c:5c60) ld a, $80 ld [$cd49], a ret ; known jump sources: 171a67 (5c:5a67), 171aa4 (5c:5aa4), 171ad4 (5c:5ad4), 171ae9 (5c:5ae9), 171b3f (5c:5b3f), 171b82 (5c:5b82), 171bc9 (5c:5bc9), 171c29 (5c:5c29), 171c3e (5c:5c3e) Function171c66: ; 171c66 (5c:5c66) ld hl, $cd49 inc [hl] ret ; 171c6b (5c:5c6b) INCBIN "baserom.gbc",$171c6b,$171c87 - $171c6b ; no known jump sources Function171c87: ; 171c87 (5c:5c87) call DisableLCD ld hl, $5db1 ld de, $9000 ld bc, $6e0 call CopyBytes ld hl, $6abd ld de, $8000 call Decompress call EnableLCD ld hl, $6491 ld de, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 call CopyBytes ld hl, $67ed ld de, AttrMap ; $cdd9 ld bc, $168 call CopyBytes ld hl, $c4cb ld de, $6e31 call PlaceString ld hl, $c5e3 ld de, $6e3f call PlaceString ret ; no known jump sources Function171ccd: ; 171ccd (5c:5ccd) ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $5d71 ld de, Unkn1Pals ; $d000 ld bc, $40 call CopyBytes ld hl, MovementAnimation ; $d042 ld a, $ff ld [hli], a ld a, $7f ld [hl], a call Function32f9 pop af ld [rSVBK], a ; $ff00+$70 ret ; no known jump sources Function171cf0: ; 171cf0 (5c:5cf0) xor a ld hl, $c5d0 ld [hli], a ld [hli], a ld a, [$cd4b] xor $1 ld [$cd4b], a and a jr nz, .asm_171d16 ld hl, $651d ld de, $c52c ld bc, $8c call CopyBytes ld hl, $c5e3 ld de, $6e3f jp PlaceString .asm_171d16 ld hl, $65f9 ld de, $c52c ld bc, $8c call CopyBytes ld hl, $c5e3 ld de, $6e4e jp PlaceString ; no known jump sources Function171d2b: ; 171d2b (5c:5d2b) call DisableLCD ld hl, $5db1 ld de, $9000 ld bc, $6e0 call CopyBytes ld hl, $6abd ld de, $8000 call Decompress call EnableLCD ld hl, $6685 ld de, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 call CopyBytes ld hl, $6955 ld de, AttrMap ; $cdd9 ld bc, $168 call CopyBytes ld hl, $c4ca ld de, $6e5d call PlaceString ld hl, $c5ee ld de, $6e58 call PlaceString ret ; 171d71 (5c:5d71) INCBIN "baserom.gbc",$171d71,$172e78 - $171d71 ; no known jump sources Function172e78: ; 172e78 (5c:6e78) ld a, $7f ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 call ByteFill ld a, $7 ld hl, AttrMap ; $cdd9 ld bc, $168 call ByteFill call DisableLCD ld hl, $6f1f ld de, $9000 ld bc, $610 call CopyBytes call EnableLCD ld hl, $73af ld de, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $168 call CopyBytes ld hl, $7517 ld de, AttrMap ; $cdd9 ld bc, $168 call CopyBytes ret ; 172eb9 (5c:6eb9) Function172eb9: ld a, [rSVBK] ; $ff00+$70 push af ld a, $5 ld [rSVBK], a ; $ff00+$70 ld hl, $6edf ld de, Unkn1Pals ; $d000 ld bc, $40 call CopyBytes ld hl, $6edf ld de, BGPals ; $d080 ld bc, $40 call CopyBytes call Function32f9 pop af ld [rSVBK], a ; $ff00+$70 ret ; 172edf (5c:6edf) INCBIN "baserom.gbc",$172edf,$17367f - $172edf SECTION "bank5D", ROMX, BANK[$5D] INCLUDE "text/phone/extra3.asm" SECTION "bank5E", ROMX, BANK[$5E] Function178000: callba DrawPlayerHUD ld hl, PlayerHPPal ; $cd99 call SetHPPal callba Function3e043 ld hl, EnemyHPPal ; $cd9a call SetHPPal callba Function3ee27 ret ; 17801f (5e:401f) SECTION "bank5F", ROMX, BANK[$5F] Function17c000: ; 17c000 call DisableLCD ld hl, VTiles2 ld bc, $310 xor a call ByteFill call Functione51 call Functione5f ld hl, HaveWantMap ld de, TileMap ld bc, AttrMap ld a, SCREEN_HEIGHT .y push af ld a, SCREEN_WIDTH push hl .x push af ld a, [hli] ld [de], a inc de ld a, [hli] ld [bc], a inc bc pop af dec a jr nz, .x pop hl push bc ld bc, BG_MAP_WIDTH * 2 add hl, bc pop bc pop af dec a jr nz, .y ld a, [rSVBK] push af ld a, 5 ; BANK(Unkn1Pals) ld [rSVBK], a ld hl, HaveWantPals ld de, Unkn1Pals ld bc, $80 call CopyBytes pop af ld [rSVBK], a ld hl, MobileSelectGFX ld de, $8300 ld bc, $200 call CopyBytes ld a, 1 ld [rVBK], a ld hl, HaveWantGFX ld de, VTiles2 ld bc, $800 call CopyBytes ld hl, HaveWantGFX + $800 ld de, VTiles1 ld bc, $100 call CopyBytes xor a ld [rVBK], a call EnableLCD callba Function104061 ret ; 17c083 HaveWantGFX: ; 17c083 INCBIN "gfx/mobile/havewant.2bpp" MobileSelectGFX: ; 17c983 INCBIN "gfx/mobile/select.2bpp" HaveWantMap: ; 17cb83 ; Interleaved tile/palette map. INCBIN "baserom.gbc", $17cb83, $17cff3 - $17cb83 HaveWantPals: ; 17cff3 ; BG and OBJ palettes. INCBIN "baserom.gbc", $17cff3, $17d073 - $17cff3 Function17d073: ; 17d073 .asm_17d073 ld a, [de] inc de and a jr z, .asm_17d0ae cp $60 jr nc, .asm_17d0ae cp $4e jr z, .asm_17d0ae cp $50 jr z, .asm_17d0b1 cp $5 jr c, .asm_17d0ac cp $14 jr c, .asm_17d0ae cp $19 jr c, .asm_17d0ac cp $1d jr c, .asm_17d0ae cp $26 jr c, .asm_17d0ac cp $35 jr c, .asm_17d0ae cp $3a jr c, .asm_17d0ac cp $3f jr c, .asm_17d0ae cp $40 jr c, .asm_17d0ac cp $49 jr c, .asm_17d0ae .asm_17d0ac scf ret .asm_17d0ae dec c jr nz, .asm_17d073 .asm_17d0b1 and a ret ; 17d0b3 Function17d0b3: ; 17d0b3 .asm_17d0b3 ld a, [de] inc de and a jr z, .asm_17d0ee cp $60 jr nc, .asm_17d0ee cp $4e jr z, .asm_17d0ee cp $50 jr z, .asm_17d0ee cp $5 jr c, .asm_17d0ec cp $14 jr c, .asm_17d0ee cp $19 jr c, .asm_17d0ec cp $1d jr c, .asm_17d0ee cp $26 jr c, .asm_17d0ec cp $35 jr c, .asm_17d0ee cp $3a jr c, .asm_17d0ec cp $3f jr c, .asm_17d0ee cp $40 jr c, .asm_17d0ec cp $49 jr c, .asm_17d0ee .asm_17d0ec scf ret .asm_17d0ee dec c jr nz, .asm_17d0b3 and a ret ; 17d0f3 INCBIN "baserom.gbc",$17d0f3,$17d1e1 - $17d0f3 Function17d1e1: ; 17d1e1 .asm_17d1e1 ld a, [de] inc de cp $4e jr nz, .asm_17d1ea dec b jr z, .asm_17d1ef .asm_17d1ea dec c jr nz, .asm_17d1e1 and a ret .asm_17d1ef scf ret ; 17d1f1 Function17d1f1: ; 17d1f1 ld a, [CurPartySpecies] dec a call SetSeenAndCaughtMon ld a, [CurPartySpecies] cp UNOWN jr nz, .asm_17d223 ld hl, PartyMon1DVs ld a, [PartyCount] dec a ld bc, PartyMon2 - PartyMon1 call AddNTimes ld a, $2d call Predef callab Functionfba18 ld a, [$def4] and a jr nz, .asm_17d223 ld a, [UnownLetter] ld [$def4], a .asm_17d223 ret ; 17d224 Function17d224: ; 17d224 ld a, [ScriptVar] and a jr nz, .asm_17d234 ld a, $4 ld [ScriptVar], a ld hl, $526a jr .asm_17d23c .asm_17d234 ld a, $4 ld [ScriptVar], a ld hl, $528f .asm_17d23c call LoadMenuDataHeader call Function17d246 call Function1c17 ret ; 17d246 Function17d246: ; 17d246 call Function1d81 jr c, .asm_17d264 ld a, [ScriptVar] cp $5 jr nz, .asm_17d25d ld a, [$cfa9] cp $3 ret z jr c, .asm_17d25d dec a jr .asm_17d260 .asm_17d25d ld a, [$cfa9] .asm_17d260 ld [ScriptVar], a ret .asm_17d264 ld a, $4 ld [ScriptVar], a ret ; 17d26a INCBIN "baserom.gbc",$17d26a,$17d2b6 - $17d26a Function17d2b6: ; 17d2b6 call Function17d2c0 callba Function1181da ret ; 17d2c0 Function17d2c0: ; 17d2c0 xor a ld [$cf63], a ld [$cf64], a ld [$cf65], a ld [$cf66], a ret ; 17d2ce Function17d2ce: ; 17d2ce ld a, $5 call GetSRAMBank ld a, [$aa72] call CloseSRAM and a jr nz, .asm_17d2e2 ld a, $1 ld [ScriptVar], a ret .asm_17d2e2 call Function17d314 ret c call SpeechTextBox call FadeToMenu ld a, [rSVBK] push af ld a, $4 ld [rSVBK], a call Function17d370 call Function17d45a pop af ld [rSVBK], a ld de, MUSIC_MOBILE_CENTER ld a, e ld [CurMusic], a ld [MusicFadeIDLo], a ld a, d ld [MusicFadeIDHi], a call PlayMusic call Function222a call Function2b3c ret ; 17d314 Function17d314: ; 17d314 ld a, $5 call GetSRAMBank ld a, [$b1b1] call CloseSRAM cp $21 jr nc, .asm_17d354 ld a, $6 call GetSRAMBank ld l, $0 ld h, l ld de, $a006 ld a, [$a004] ld c, a ld a, [$a005] ld b, a .asm_17d336 push bc ld a, [de] inc de ld c, a ld b, $0 add hl, bc pop bc dec bc ld a, b or c jr nz, .asm_17d336 ld a, [$a002] cp l jr nz, .asm_17d354 ld a, [$a003] cp h jr nz, .asm_17d354 call CloseSRAM and a ret .asm_17d354 call CloseSRAM ld a, $5 call GetSRAMBank xor a ld hl, $aa73 ld bc, $000c call ByteFill call CloseSRAM ld a, $2 ld [ScriptVar], a scf ret ; 17d370 Function17d370: ; 17d370 xor a ld [$cd77], a ld [$cd78], a ld [$cd79], a dec a ld [$cd6c], a call WhiteBGMap call ClearSprites call Functionfdb callba Function104061 call DisableLCD ld hl, $8ee0 ld de, EnemyMoveAnimation ld bc, $0010 call CopyBytes ld a, $1 ld [rVBK], a ld hl, PokemonNewsGFX ld de, VTiles1 ld bc, $0480 call CopyBytes xor a ld hl, $97f0 ld bc, $0010 call ByteFill ld hl, EnemyMoveAnimation ld de, $8ee0 ld bc, $0010 call CopyBytes xor a ld [rVBK], a ld hl, $6b7e ld de, $9600 ld bc, $0010 call CopyBytes call EnableLCD call Function17d60b ld a, $0 ld [BGMapBuffer], a ld a, $d0 ld [$cd21], a ld a, $6 call GetSRAMBank ld hl, $a006 ld de, Unkn1Pals ld bc, $1000 call CopyBytes call CloseSRAM ret ; 17d3f6 INCBIN "baserom.gbc",$17d3f6,$17d45a - $17d3f6 Function17d45a: ; 17d45a .asm_17d45a call Functiona57 ld a, [$cd77] bit 7, a jr nz, .asm_17d46f call Function17d474 callba Function104061 jr .asm_17d45a .asm_17d46f xor a ld [ScriptVar], a ret ; 17d474 Function17d474: ; 17d474 ld a, [$cd77] ld e, a ld d, $0 ld hl, $5483 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 17d483 INCBIN "baserom.gbc",$17d483,$17d60b - $17d483 Function17d60b: ; 17d60b ld a, $5 call GetSRAMBank ld hl, $b1d3 ld de, EnemyMoveAnimation ld bc, $0020 call CopyBytes ld a, [$b1b1] ld c, a ld a, [$b1b2] ld b, a ld a, [$b1b3] ld l, a ld a, [$b1b4] ld h, a call CloseSRAM ld a, $6 call GetSRAMBank ld de, $c708 ld a, c and a jr z, .asm_17d684 .asm_17d63b push bc ld a, l ld [de], a inc de ld a, h ld [de], a inc de ld bc, $000a add hl, bc pop bc ld a, [hli] ld [$cd4a], a ld a, [hli] ld [$cd49], a push hl push de ld hl, EnemyMoveAnimation ld e, b ld d, $0 add hl, de ld a, [hli] ld [$cd4b], a ld a, [hl] ld [$cd4c], a pop de pop hl inc b inc b dec c dec c jr z, .asm_17d684 push bc push de ld a, [$cd49] ld c, a ld a, [$cd4a] ld b, a ld a, [$cd4b] ld e, a ld a, [$cd4c] ld d, a .asm_17d67a add hl, de dec bc ld a, c or b jr nz, .asm_17d67a pop de pop bc jr .asm_17d63b .asm_17d684 call CloseSRAM ld a, $5 call GetSRAMBank ld hl, $c708 ld de, $b1b3 ld a, [$b1b1] ld c, a ld a, [$b1b2] ld b, a call CopyBytes call CloseSRAM ret ; 17d6a1 INCBIN "baserom.gbc", $17d6a1, $17e6fe - $17d6a1 PokemonNewsGFX: ; 17e6fe INCBIN "gfx/mobile/pokemon_news.2bpp" INCBIN "baserom.gbc", $17eb7e, $17f036 - $17eb7e Function17f036: ; 17f036 ld a, $6 call GetSRAMBank inc de .asm_17f03c call Function17f047 jr c, .asm_17f043 jr .asm_17f03c .asm_17f043 call CloseSRAM ret ; 17f047 Function17f047: ; 17f047 ld a, [de] inc de cp $50 jr z, .asm_17f05f cp $10 jr nc, .asm_17f05f dec a push de ld e, a ld d, 0 ld hl, Table17f061 add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] .asm_17f05f scf ret ; 17f061 Table17f061: ; 17f061 dw Function17f081 dw Function17f0f8 dw Function17f154 dw Function17f181 dw Function17f1d0 dw Function17f220 dw Function17f27b dw Function17f2cb dw Function17f2ff dw Function17f334 dw Function17f382 dw Function17f3c9 dw Function17f3f0 dw Function17f41d dw Function17f44f dw Function17f44f ; 17f081 Function17f081: ; 17f081 pop hl call Function17f524 jr c, .asm_17f09f ld de, $0004 add hl, de ld a, [hli] inc hl inc hl ld e, l ld d, h ld l, c ld h, b ld c, a ld b, $0 add hl, bc ld a, [de] cp $50 jr z, .asm_17f09d and a ret .asm_17f09d scf ret .asm_17f09f push bc ld de, $cd54 ld bc, $0007 call CopyBytes pop bc push hl push bc call Function17f4f6 pop bc ld a, [$cd54] ld e, a ld a, [$cd55] ld d, a add hl, de ld e, l ld d, h ld l, c ld h, b push hl ld a, [$cd56] ld b, a ld a, [$cd57] ld c, a call Function31a4 ld a, l ld [$cd52], a ld a, h ld [$cd53], a ld a, [$cd59] and a jr z, .asm_17f0ee ld c, a ld a, [$cd57] inc a ld b, a ld e, l ld d, h dec de .asm_17f0e0 ld a, c cp b jr z, .asm_17f0ea ld a, [de] dec de ld [hld], a dec b jr .asm_17f0e0 .asm_17f0ea ld a, [$cd5a] ld [hl], a .asm_17f0ee pop hl ld a, [$cd58] call Function17f50f pop de and a ret ; 17f0f8 Function17f0f8: ; 17f0f8 pop hl call Function17f524 jr c, .asm_17f114 ld de, $0003 add hl, de ld a, [hli] ld e, l ld d, h ld l, c ld h, b ld c, a ld b, $0 add hl, bc ld a, [de] cp $50 jr z, .asm_17f112 and a ret .asm_17f112 scf ret .asm_17f114 push bc ld de, $cd54 ld bc, $0004 call CopyBytes pop bc push hl push bc call Function17f4f6 ld a, [$cd54] ld e, a ld a, [$cd55] ld d, a add hl, de ld de, EnemyMoveAnimation ld a, [$cd56] ld c, a ld b, $0 call CopyBytes ld a, $50 ld [de], a pop hl ld de, EnemyMoveAnimation call PlaceString ld a, c ld [$cd52], a ld a, b ld [$cd53], a ld a, [$cd57] call Function17f50f pop de and a ret ; 17f154 Function17f154: ; 17f154 pop hl call Function17f524 jr c, .asm_17f167 inc hl inc hl ld e, l ld d, h ld a, [de] cp $50 jr z, .asm_17f165 and a ret .asm_17f165 scf ret .asm_17f167 push bc ld a, [hli] ld e, a ld a, [hli] ld d, a pop bc push hl push bc call Function17f4f6 add hl, de ld c, l ld b, h pop de callba Function11c08f ld c, l ld b, h pop de and a ret ; 17f181 Function17f181: ; 17f181 pop hl call Function17f524 jr c, .asm_17f19d ld de, $0002 add hl, de ld a, [hli] ld e, l ld d, h ld l, c ld h, b ld c, a ld b, $0 add hl, bc ld a, [de] cp $50 jr z, .asm_17f19b and a ret .asm_17f19b scf ret .asm_17f19d push bc ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] ld [$cd54], a pop bc push hl push bc call Function17f4f6 add hl, de ld a, [hl] ld c, a ld de, EnemyMoveAnimation callba Function48c63 pop hl ld de, EnemyMoveAnimation call PlaceString ld a, c ld [$cd52], a ld a, b ld [$cd53], a ld a, [$cd54] call Function17f50f pop de and a ret ; 17f1d0 Function17f1d0: ; 17f1d0 pop hl call Function17f524 jr c, .asm_17f1ec ld de, $0002 add hl, de ld a, [hli] ld e, l ld d, h ld l, c ld h, b ld c, a ld b, $0 add hl, bc ld a, [de] cp $50 jr z, .asm_17f1ea and a ret .asm_17f1ea scf ret .asm_17f1ec push bc ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] ld [$cd54], a pop bc push hl push bc call Function17f4f6 add hl, de ld a, [hl] ld a, $1 ld [rSVBK], a ld [$d265], a call GetPokemonName pop hl call PlaceString ld a, c ld [$cd52], a ld a, b ld [$cd53], a ld a, $4 ld [rSVBK], a ld a, [$cd54] call Function17f50f pop de and a ret ; 17f220 Function17f220: ; 17f220 pop hl call Function17f524 jr c, .asm_17f23c ld de, $0002 add hl, de ld a, [hli] ld e, l ld d, h ld l, c ld h, b ld c, a ld b, $0 add hl, bc ld a, [de] cp $50 jr z, .asm_17f23a and a ret .asm_17f23a scf ret .asm_17f23c push bc ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] ld [$cd54], a pop bc push hl push bc call Function17f4f6 add hl, de ld a, [hl] ld e, a ld d, $0 ld hl, $726e add hl, de add hl, de ld a, [hli] ld e, a ld a, [hl] ld d, a pop hl call PlaceString ld a, c ld [$cd52], a ld a, b ld [$cd53], a ld a, [$cd54] call Function17f50f pop de and a ret ; 17f26e INCBIN "baserom.gbc",$17f26e,$17f27b - $17f26e Function17f27b: ; 17f27b pop hl call Function17f524 jr c, .asm_17f297 ld de, $0002 add hl, de ld a, [hli] ld e, l ld d, h ld l, c ld h, b ld c, a ld b, $0 add hl, bc ld a, [de] cp $50 jr z, .asm_17f295 and a ret .asm_17f295 scf ret .asm_17f297 push bc ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [hli] ld [$cd54], a pop bc push hl push bc call Function17f4f6 add hl, de ld a, [hl] ld a, $1 ld [rSVBK], a ld [$d265], a call GetItemName pop hl call PlaceString ld a, c ld [$cd52], a ld a, b ld [$cd53], a ld a, $4 ld [rSVBK], a ld a, [$cd54] call Function17f50f pop de and a ret ; 17f2cb Function17f2cb: ; 17f2cb pop hl push bc ld a, [hli] ld [$cd54], a ld a, [hli] ld [$cd55], a ld a, [$cd2e] inc a ld [$cd56], a pop bc push hl ld l, c ld h, b push hl ld de, $cd56 ld b, $1 ld a, [$cd54] ld c, a call Function31a4 ld a, l ld [$cd52], a ld a, h ld [$cd53], a pop hl ld a, [$cd55] call Function17f50f pop de and a ret ; 17f2ff Function17f2ff: ; 17f2ff pop hl push bc ld a, [hli] ld [$cd54], a pop bc push hl push bc ld a, $1 ld [rSVBK], a ld hl, PlayerName ld de, EnemyMoveAnimation ld bc, $0006 call CopyBytes ld a, $4 ld [rSVBK], a pop hl ld de, EnemyMoveAnimation call PlaceString ld a, c ld [$cd52], a ld a, b ld [$cd53], a ld a, [$cd54] call Function17f50f pop de and a ret ; 17f334 Function17f334: ; 17f334 pop hl push bc ld a, [hli] ld [$cd55], a and $f ld [$cd54], a pop bc push hl ld l, c ld h, b push hl ld a, [$cd55] bit 7, a jr nz, .asm_17f355 ld a, $1 call GetSRAMBank ld a, [$be3f] jr .asm_17f35d .asm_17f355 ld a, $5 call GetSRAMBank ld a, [$b2f3] .asm_17f35d ld c, a call CloseSRAM ld de, EnemyMoveAnimation callba Function48c63 pop hl ld de, EnemyMoveAnimation call PlaceString ld a, c ld [$cd52], a ld a, b ld [$cd53], a ld a, [$cd54] call Function17f50f pop de and a ret ; 17f382 Function17f382: ; 17f382 pop hl push bc ld a, [hli] ld [$cd55], a and $f ld [$cd54], a pop bc push hl push bc ld l, c ld h, b ld a, [$cd55] bit 7, a jr nz, .asm_17f3a3 ld a, $1 call GetSRAMBank ld de, $be40 jr .asm_17f3ab .asm_17f3a3 ld a, $5 call GetSRAMBank ld de, $b2f4 .asm_17f3ab ld a, $82 ld b, a ld a, $3 ld c, a call PrintNum call CloseSRAM ld a, l ld [$cd52], a ld a, h ld [$cd53], a pop hl ld a, [$cd54] call Function17f50f pop de and a ret ; 17f3c9 Function17f3c9: ; 17f3c9 push bc ld hl, $cd36 ld de, $c708 ld bc, $000c call CopyBytes pop de ld c, $0 callba Function11c075 push hl ld hl, $c708 ld de, $cd36 ld bc, $000c call CopyBytes pop bc pop de and a ret ; 17f3f0 Function17f3f0: ; 17f3f0 pop hl push hl ld a, [hli] push af push bc ld a, [hli] ld e, a ld a, [hli] ld d, a ld a, [de] ld c, a ld b, $0 add hl, bc add hl, bc ld a, [hli] ld e, a ld a, [hli] ld d, a ld hl, Unkn1Pals add hl, de ld e, l ld d, h pop hl call PlaceString pop af ld e, a ld d, $0 pop hl add hl, de add hl, de inc hl inc hl inc hl ld e, l ld d, h ld l, c ld h, b scf ret ; 17f41d Function17f41d: ; 17f41d pop hl ld a, [hli] push hl push af ld l, c ld h, b ld bc, $3b60 add hl, bc ld de, $ffec ld c, $1 .asm_17f42c ld a, h and a jr nz, .asm_17f435 ld a, l cp $14 jr c, .asm_17f439 .asm_17f435 add hl, de inc c jr .asm_17f42c .asm_17f439 ld hl, TileMap ld de, $0014 ld a, c .asm_17f440 and a jr z, .asm_17f447 add hl, de dec a jr .asm_17f440 .asm_17f447 pop af ld e, a ld d, $0 add hl, de pop de and a ret ; 17f44f Function17f44f: ; 17f44f pop hl call Function17f524 jr c, .asm_17f46d ld de, $0005 add hl, de ld a, [hli] inc hl inc hl ld e, l ld d, h ld l, c ld h, b ld c, a ld b, $0 add hl, bc ld a, [de] cp $50 jr z, .asm_17f46b and a ret .asm_17f46b scf ret .asm_17f46d push bc ld de, $cd54 ld bc, $0008 call CopyBytes pop bc push hl push bc ld a, [$cd56] cp $c0 jr c, .asm_17f488 ld a, [$cd54] ld [rSVBK], a jr .asm_17f48e .asm_17f488 ld a, [$cd54] call GetSRAMBank .asm_17f48e ld a, [$cd55] ld l, a ld a, [$cd56] ld h, a ld de, EnemyMoveAnimation ld a, [$cd57] ld c, a ld b, $0 call CopyBytes ld a, [$cd56] cp $c0 jr c, .asm_17f4af ld a, $4 ld [rSVBK], a jr .asm_17f4b7 .asm_17f4af call CloseSRAM ld a, $6 call GetSRAMBank .asm_17f4b7 ld de, EnemyMoveAnimation pop hl push hl ld a, [$cd57] ld b, a ld a, [$cd58] ld c, a call Function31a4 ld a, l ld [$cd52], a ld a, h ld [$cd53], a ld a, [$cd5a] and a jr z, .asm_17f4ec ld c, a ld a, [$cd58] inc a ld b, a ld e, l ld d, h dec de .asm_17f4de ld a, c cp b jr z, .asm_17f4e8 ld a, [de] dec de ld [hld], a dec b jr .asm_17f4de .asm_17f4e8 ld a, [$cd5b] ld [hl], a .asm_17f4ec pop hl ld a, [$cd59] call Function17f50f pop de and a ret ; 17f4f6 Function17f4f6: ; 17f4f6 ld a, [$cd6a] ld l, a ld a, [$cd6b] ld h, a ld a, [$cd47] ld c, a ld a, [BGMapPalBuffer] ld b, a ld a, [$cd2e] .asm_17f509 and a ret z dec a add hl, bc jr .asm_17f509 ; 17f50f Function17f50f: ; 17f50f and a jr z, .asm_17f519 ld c, a ld b, $0 add hl, bc ld c, l ld b, h ret .asm_17f519 ld a, [$cd52] ld c, a ld l, a ld a, [$cd53] ld b, a ld h, a ret ; 17f524 Function17f524: ; 17f524 push hl push bc push de ld a, [$cd42] dec a ld b, a ld a, [$cd2e] cp b jr z, .asm_17f53a ld hl, $cd68 cp [hl] .asm_17f536 pop de pop bc pop hl ret .asm_17f53a scf jr .asm_17f536 ; 17f53d Function17f53d: ; 17f53d call FadeToMenu xor a ld [$c303], a ld a, [rSVBK] push af ld a, $1 ld [rSVBK], a call Function17f555 pop af ld [rSVBK], a call Function2b4d ret ; 17f555 Function17f555: ; 17f555 .asm_17f555 call Functiona57 call Function17f5ae ld a, [$c303] bit 7, a jr nz, .asm_17f56a callba Function104000 jr .asm_17f555 .asm_17f56a call Function17f56e ret ; 17f56e Function17f56e: ; 17f56e ld a, [$c300] cp $22 jr z, .asm_17f597 cp $31 jr z, .asm_17f58a cp $33 ret nz ld a, [$c301] cp $1 ret nz ld a, [$c302] cp $2 ret nz jr .asm_17f5a1 .asm_17f58a ld a, [$c301] cp $3 ret nz ld a, [$c302] and a ret nz jr .asm_17f5a1 .asm_17f597 ld a, [$c301] and a ret nz ld a, [$c302] and a ret nz .asm_17f5a1 ld a, $5 call GetSRAMBank xor a ld [$aa4b], a call CloseSRAM ret ; 17f5ae Function17f5ae: ; 17f5ae ld a, [$c303] ld e, a ld d, 0 ld hl, Table17f5bd add hl, de add hl, de ld a, [hli] ld h, [hl] ld l, a jp [hl] ; 17f5bd Table17f5bd: ; 17f5bd dw Function17f5c3 dw Function17ff23 dw Function17f5d2 ; 17f5c3 Function17f5c3: ; 17f5c3 call Function17f5e4 callba Function2b5c ld a, $1 ld [$c303], a ret ; 17f5d2 Function17f5d2: ; 17f5d2 call Function17f5e4 callba Function104000 call Function32f9 ld a, $1 ld [$c303], a ret ; 17f5e4 Function17f5e4: ; 17f5e4 ld a, $8 ld [MusicFade], a ld de, MUSIC_NONE ld a, e ld [MusicFadeIDLo], a ld a, d ld [MusicFadeIDHi], a ld a, " " ld hl, TileMap ld bc, $0168 call ByteFill ld a, $6 ld hl, AttrMap ld bc, $0168 call ByteFill ld hl, $c4b6 ld b, $1 ld c, $e call Function3eea ld hl, $c4f1 ld b, $c ld c, $10 call Function3eea ld hl, $c4cb ld de, $76dc call PlaceString call Function17ff3c jr nc, .asm_17f632 ld hl, $c4d3 call Function17f6b7 .asm_17f632 ld a, [$c300] cp $d0 jr nc, .asm_17f684 cp $10 jr c, .asm_17f679 sub $10 cp $24 jr nc, .asm_17f679 ld e, a ld d, $0 ld hl, $7706 add hl, de add hl, de ld a, [$c301] ld e, a ld a, [$c302] ld d, a ld a, [hli] ld c, a ld a, [hl] ld h, a ld l, c ld a, [hli] and a jr z, .asm_17f679 ld c, a .asm_17f65d ld a, [hli] ld b, a ld a, [hli] cp $ff jr nz, .asm_17f667 cp b jr z, .asm_17f66e .asm_17f667 xor d jr nz, .asm_17f674 ld a, b xor e jr nz, .asm_17f674 .asm_17f66e ld a, [hli] ld e, a ld a, [hl] ld d, a jr .asm_17f67d .asm_17f674 inc hl inc hl dec c jr nz, .asm_17f65d .asm_17f679 ld a, $d9 jr .asm_17f684 .asm_17f67d ld hl, $c51a call PlaceString ret .asm_17f684 sub $d0 ld e, a ld d, $0 ld hl, $7699 add hl, de add hl, de ld a, [hli] ld e, a ld a, [hl] ld d, a ld hl, $c51a call PlaceString ret ; 17f699 INCBIN "baserom.gbc",$17f699,$17f6b7 - $17f699 Function17f6b7: ; 17f6b7 ld a, [$c300] call Function17f6cd inc hl ld a, [$c302] and $f call Function17f6d8 ld a, [$c301] call Function17f6cd ret ; 17f6cd Function17f6cd: ; 17f6cd ld c, a and $f0 swap a call Function17f6d8 ld a, c and $f Function17f6d8: ; 17f6d8 add $f6 ld [hli], a ret ; 17f6dc INCBIN "baserom.gbc",$17f6dc,$17ff23 - $17f6dc Function17ff23: ; 17ff23 ld a, [hJoyPressed] and a ret z ld a, $8 ld [MusicFade], a ld a, [CurMusic] ld [MusicFadeIDLo], a xor a ld [MusicFadeIDHi], a ld hl, $c303 set 7, [hl] ret ; 17ff3c Function17ff3c: ; 17ff3c nop ld a, [$c300] cp $d0 ret c ld hl, $c4d2 ld de, $7f68 call PlaceString ld a, [$c300] push af sub $d0 inc a ld [$c300], a ld hl, $c4d6 ld de, $c300 ld bc, $8103 call PrintNum pop af ld [$c300], a and a ret ; 17ff68 INCBIN "baserom.gbc",$17ff68,$17ff6c - $17ff68 SECTION "Common Text 1", ROMX, BANK[$6C] INCLUDE "text/common.asm" SECTION "bank6D", ROMX, BANK[$6D] INCLUDE "text/phone/mom.asm" INCLUDE "text/phone/bill.asm" INCLUDE "text/phone/elm.asm" INCLUDE "text/phone/trainers1.asm" SECTION "Common Text 2", ROMX, BANK[$6F] INCLUDE "text/common_2.asm" SECTION "Common Text 3", ROMX, BANK[$70] INCLUDE "text/common_3.asm" SECTION "Common Text 4", ROMX, BANK[$71] INCLUDE "text/common_4.asm" SECTION "bank72", ROMX, BANK[$72] ; Item names & descriptions ItemNames: INCLUDE "items/item_names.asm" INCLUDE "items/item_descriptions.asm" MoveNames: INCLUDE "battle/move_names.asm" INCLUDE "engine/landmarks.asm" RegionCheck: ; 0x1caea1 ; Checks if the player is in Kanto or Johto. ; If in Johto, returns 0 in e. ; If in Kanto, returns 1 in e. ld a, [MapGroup] ld b, a ld a, [MapNumber] ld c, a call GetWorldMapLocation cp $5f ; on S.S. Aqua jr z, .johto cp $0 ; special jr nz, .checkagain ; If in map $00, load map group / map id from backup locations ld a, [BackupMapGroup] ld b, a ld a, [BackupMapNumber] ld c, a call GetWorldMapLocation .checkagain cp $2f ; Pallet Town jr c, .johto cp $58 ; Victory Road jr c, .kanto .johto ld e, 0 ret .kanto ld e, 1 ret SECTION "bank75", ROMX, BANK[$75] SECTION "bank76", ROMX, BANK[$76] SECTION "bank77", ROMX, BANK[$77] UnownFont: ; 1dc000 INCBIN "gfx/misc/unown_font.2bpp" ; 1dc1b0 INCBIN "baserom.gbc",$1dc1b0,$1dc381 - $1dc1b0 Function1dc381: ; 1dc381 call WhiteBGMap call ClearTileMap call ClearSprites xor a ld [hBGMapMode], a call Functione58 ld de, MobileHPIcon ld hl, $9710 lb bc, BANK(MobileHPIcon), 1 call Request1bpp ld de, MobileLvIcon ld hl, $96e0 lb bc, BANK(MobileLvIcon), 1 call Request1bpp ld de, ShinyIcon ld hl, $93f0 lb bc, BANK(ShinyIcon), 1 call Get2bpp xor a ld [MonType], a callba Function5084a ld hl, $c52c ld b, $9 ld c, $12 call TextBox ld hl, $c4d0 ld a, [TempMonLevel] call Function383d ld hl, $c4d4 ld [hl], $71 inc hl ld de, TempMonMaxHP ld bc, $0203 call PrintNum ld a, [CurPartySpecies] ld [$d265], a ld [CurSpecies], a ld hl, PartyMon1Nickname call Function1dc50e ld hl, $c4f8 call PlaceString ld hl, $c521 ld [hl], $f3 call GetPokemonName ld hl, $c522 call PlaceString ld hl, $c4a8 ld [hl], $74 inc hl ld [hl], $e8 inc hl ld de, $d265 ld bc, $8103 call PrintNum ld hl, $c555 ld de, String1dc550 call PlaceString ld hl, PartyMon1OT call Function1dc50e ld hl, $c558 call PlaceString ld hl, $c57d ld de, String1dc559 call PlaceString ld hl, $c580 ld de, TempMonID ld bc, $8205 call PrintNum ld hl, $c5b9 ld de, String1dc554 call PlaceString ld hl, $c5bf ld a, [TempMonMove1] call Function1dc51a call Function1dc52c ld hl, TempMonDVs ld a, $2d call Predef ld hl, $c2c6 xor a ld [hl], a ld a, [CurPartySpecies] cp $c9 jr z, .asm_1dc469 inc [hl] .asm_1dc469 ld hl, TileMap call Function378b call WaitBGMap ld b, $3 call GetSGBLayout call Function32f9 ret ; 1dc47b Function1dc47b: ; 1dc47b call WhiteBGMap call ClearTileMap call ClearSprites xor a ld [hBGMapMode], a call Functione58 xor a ld [MonType], a callba Function5084a ld hl, TileMap ld b, 15 ld c, 18 call TextBox ld bc, SCREEN_WIDTH ld de, TileMap ld hl, $c4b4 call CopyBytes ld hl, $c4a7 ld a, [TempMonMove2] call Function1dc51a ld hl, $c4cf ld a, [TempMonMove3] call Function1dc51a ld hl, $c4f7 ld a, [TempMonMove4] call Function1dc51a ld hl, $c533 ld de, String1dc55d call PlaceString ld hl, $c53c ld de, TempMonAtk call Function1dc507 ld hl, $c564 ld de, TempMonDef call Function1dc507 ld hl, $c58c ld de, TempMonSpclAtk call Function1dc507 ld hl, $c5b4 ld de, TempMonSpclDef call Function1dc507 ld hl, $c5dc ld de, TempMonSpd call Function1dc507 call WaitBGMap ld b, $3 call GetSGBLayout call Function32f9 ret ; 1dc507 Function1dc507: ; 1dc507 ld bc, $0203 call PrintNum ret ; 1dc50e Function1dc50e: ; 1dc50e ld bc, $000b ld a, [CurPartyMon] call AddNTimes ld e, l ld d, h ret ; 1dc51a Function1dc51a: ; 1dc51a and a jr z, .asm_1dc525 ld [$d265], a call GetMoveName jr .asm_1dc528 .asm_1dc525 ld de, String1dc584 .asm_1dc528 call PlaceString ret ; 1dc52c Function1dc52c: ; 1dc52c callba GetGender ld a, $7f jr c, .asm_1dc53c ld a, $ef jr nz, .asm_1dc53c ld a, $f5 .asm_1dc53c ld hl, $c4d9 ld [hl], a ld bc, TempMonDVs callba CheckShininess ret nc ld hl, $c4da ld [hl], $3f ret ; 1dc550 String1dc550: ; 1dc550 db "OT/@" String1dc554: ; 1dc554 db "MOVE@" String1dc559: ; 1dc559 db $73, "№.@" String1dc55d: ; 1dc55d db "ATTACK", $4e db "DEFENSE", $4e db "SPCL.ATK", $4e db "SPCL.DEF", $4e db "SPEED@" String1dc584: ; 1dc584 db "------------@" ; 1dc591 MobileHPIcon: ; 1dc591 INCBIN "gfx/mobile/hp.1bpp" MobileLvIcon: ; 1dc599 INCBIN "gfx/mobile/lv.1bpp" INCLUDE "tilesets/data_7.asm" INCBIN "baserom.gbc",$1dd6a9,$1dd6bb - $1dd6a9 ; no known jump sources Function1dd6bb: ; 1dd6bb (77:56bb) ld a, b cp $c push af jr c, .asm_1dd6c7 jr z, .asm_1dd6cc sub $c jr .asm_1dd6cc .asm_1dd6c7 or a jr nz, .asm_1dd6cc ld a, $c .asm_1dd6cc ld b, a push bc ld hl, [sp+$1] push de push hl pop de pop hl ld [hl], $7f ld bc, $102 call PrintNum ld [hl], $9c inc hl ld d, h ld e, l ld hl, [sp+$0] push de push hl pop de pop hl ld bc, $8102 call PrintNum pop bc ld de, $56fc pop af jr c, .asm_1dd6f7 ld de, $56ff .asm_1dd6f7 inc hl call PlaceString ret ; 1dd6fc (77:56fc) INCBIN "baserom.gbc",$1dd6fc,$1dd702 - $1dd6fc Function1dd702: ; 1dd702 call Function1dd709 call Functiona80 ret ; 1dd709 Function1dd709: ; 1dd709 call WhiteBGMap call ClearTileMap call ClearSprites call DisableLCD ld hl, $5805 ld de, VTiles2 call Decompress ld hl, $5c4b ld de, TileMap ld bc, $0168 call CopyBytes ld de, $5760 ld hl, $c506 call PlaceString ld de, $5767 ld hl, $c513 call PlaceString ld de, PlayerName ld hl, $c50d call PlaceString ld de, $5768 ld hl, $c542 call PlaceString call EnableLCD call WaitBGMap ld b, $8 call GetSGBLayout call Function32f9 call DelayFrame ret ; 1dd760 INCBIN "baserom.gbc",$1dd760,$1dd7ae - $1dd760 Function1dd7ae: ; 1dd7ae ld hl, TileMap ld bc, $0168 ld a, $7f call ByteFill ld hl, $5db3 ld de, TileMap ld bc, $0168 call CopyBytes ld de, $57fa ld hl, $c4a8 call PlaceString ld de, $57f0 ld hl, $c5cf call PlaceString ld hl, $c5d8 ld de, GameTimeHours ld bc, $0204 call PrintNum ld [hl], $67 inc hl ld de, GameTimeMinutes ld bc, $8102 call PrintNum ret ; 1dd7f0 INCBIN "baserom.gbc",$1dd7f0,$1ddf1c - $1dd7f0 Function1ddf1c: ; 1ddf1c ld hl, $5f33 ld de, $9310 call Decompress ret ; 1ddf26 ; no known jump sources Function1ddf26: ; 1ddf26 (77:5f26) ld hl, $5f33 ld de, $9310 ld bc, $773a call Functione73 ret ; 1ddf33 (77:5f33) INCBIN "baserom.gbc",$1ddf33,$1de0d7 - $1ddf33 Function1de0d7: ; 1de0d7 ld hl, $60e1 ld de, $a000 call Decompress ret ; 1de0e1 INCBIN "baserom.gbc",$1de0e1,$1de171 - $1de0e1 ; no known jump sources Function1de171: ; 1de171 (77:6171) ld a, $32 ld hl, $c5f4 ld bc, $c call ByteFill ld hl, $c4b4 ld bc, $f0b call ClearBox ld a, $34 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $b call ByteFill ld a, $39 ld hl, $c5e0 ld bc, $b call ByteFill ld hl, $c4a5 ld [hl], $3f ld hl, $c5e5 ld [hl], $40 ld a, [$c7d4] cp $1 jr z, .asm_1de1bf ld hl, $c4ab ld [hl], $50 ld a, $51 ld hl, $c4bf ld b, $f call Function1de27f ld [hl], $52 jr .asm_1de1d0 .asm_1de1bf ld hl, $c4ab ld [hl], $66 ld a, $67 ld hl, $c4bf ld b, $f call Function1de27f ld [hl], $68 .asm_1de1d0 ret ; no known jump sources Function1de1d1: ; 1de1d1 (77:61d1) ld a, $34 ld hl, TileMap ; $c4a0 (aliases: SpritesEnd) ld bc, $b call ByteFill ld a, $39 ld hl, $c568 ld bc, $b call ByteFill ld hl, $c4a5 ld [hl], $3f ld hl, $c56d ld [hl], $40 ld hl, $c4ab ld [hl], $66 ld a, $67 ld hl, $c4bf ld b, $9 call Function1de27f ld [hl], $68 ld a, $34 ld hl, $c57c ld bc, $b call ByteFill ld a, $39 ld hl, $c5f4 ld bc, $b call ByteFill ld hl, $c587 ld [hl], $66 ld a, $67 ld hl, $c59b ld b, $5 call Function1de27f ld [hl], $68 ld hl, $c590 ld bc, $50b call ClearBox ld de, $623c ld hl, $c590 call PlaceString ret ; 1de23c (77:623c) INCBIN "baserom.gbc",$1de23c,$1de247 - $1de23c Function1de247: ; 1de247 ld a, [hBGMapAddress] ld l, a ld a, [$ffd7] ld h, a push hl inc hl ld a, l ld [hBGMapAddress], a ld a, h ld [$ffd7], a ld hl, $c4b3 ld [hl], $66 ld hl, $c4c7 ld a, $67 ld b, $f call Function1de27f ld [hl], $68 ld hl, $c607 ld [hl], $3c xor a ld b, $12 ld hl, $cdec call Function1de27f call Function3200 pop hl ld a, l ld [hBGMapAddress], a ld a, h ld [$ffd7], a ret ; 1de27f Function1de27f: ; 1de27f push de ld de, $0014 .asm_1de283 ld [hl], a add hl, de dec b jr nz, .asm_1de283 pop de ret ; 1de28a Function1de28a: ; 1de28a ld hl, DudeAutoInput_A jr Function1de299 ; 1de28f Function1de28f: ; 1de28f ld hl, DudeAutoInput_RightA jr Function1de299 ; 1de294 Function1de294: ; 1de294 ld hl, DudeAutoInput_DownA jr Function1de299 ; 1de299 Function1de299: ; 1de299 ld a, BANK(DudeAutoInputs) call StartAutoInput ret ; 1de29f DudeAutoInputs: DudeAutoInput_A: ; 1de29f db NO_INPUT, $50 db A_BUTTON, $00 db NO_INPUT, $ff ; end ; 1de2a5 DudeAutoInput_RightA: ; 1de2a5 db NO_INPUT, $08 db D_RIGHT, $00 db NO_INPUT, $08 db A_BUTTON, $00 db NO_INPUT, $ff ; end ; 1de2af DudeAutoInput_DownA: ; 1de2af db NO_INPUT, $fe db NO_INPUT, $fe db NO_INPUT, $fe db NO_INPUT, $fe db D_DOWN, $00 db NO_INPUT, $fe db NO_INPUT, $fe db NO_INPUT, $fe db NO_INPUT, $fe db A_BUTTON, $00 db NO_INPUT, $ff ; end ; 1de2c5 Function1de2c5: ; 1de2c5 ld hl, StringBuffer1 .asm_1de2c8 ld a, [hl] cp $50 jr z, .asm_1de2da cp $25 jr z, .asm_1de2d8 cp $1f jr z, .asm_1de2d8 inc hl jr .asm_1de2c8 .asm_1de2d8 ld [hl], $22 .asm_1de2da ld de, StringBuffer1 ld hl, $c4a9 call PlaceString ret ; 1de2e4 PokegearGFX: ; 1de2e4 INCBIN "gfx/misc/pokegear.lz" ; 1de5c7 INCBIN "baserom.gbc",$1de5c7,$1de5c8 - $1de5c7 Function1de5c8: ; 1de5c8 ld c, $0 ld hl, $0029 add hl, de ld a, [hli] cp $84 ret nz ld a, [hli] inc c cp $85 ret z inc c cp $86 ret z inc c cp $88 ret z inc c cp $92 ret z ld c, $0 ret ; 1de5e6 INCBIN "baserom.gbc",$1de5e6,$1df1e6 - $1de5e6 Function1df1e6: ; 1df1e6 ld b, $21 ld h, d ld l, e .asm_1df1ea ld a, [hl] cp $dc jr nz, .asm_1df1f3 ld a, $d4 jr .asm_1df1fd .asm_1df1f3 sub $d4 jr c, .asm_1df1fe cp $3 jr nc, .asm_1df1fe add $cd .asm_1df1fd ld [hl], a .asm_1df1fe inc hl dec b jr nz, .asm_1df1ea ret ; 1df203 Function1df203: ; 1df203 ld b, $21 ld h, d ld l, e .asm_1df207 ld a, [hl] cp $d4 jr nz, .asm_1df210 ld a, $dc jr .asm_1df21a .asm_1df210 sub $cd jr c, .asm_1df21b cp $3 jr nc, .asm_1df21b add $d4 .asm_1df21a ld [hl], a .asm_1df21b inc hl dec b jr nz, .asm_1df207 ret ; 1df220 Function1df220: ; 1df220 ld b, $21 ld h, d ld l, e .asm_1df224 ld a, [hl] and $f0 cp $d0 jr nz, .asm_1df233 ld a, [hl] add $8 and $f or $d0 ld [hl], a .asm_1df233 inc hl dec b jr nz, .asm_1df224 ret ; 1df238 SECTION "Tileset Data 8", ROMX, BANK[TILESETS_8] INCLUDE "tilesets/data_8.asm" SECTION "bank79", ROMX, BANK[$79] SECTION "bank7A", ROMX, BANK[$7A] SECTION "bank7B", ROMX, BANK[$7B] INCLUDE "text/battle_tower.asm" SECTION "bank7C", ROMX, BANK[$7C] INCBIN "baserom.gbc",$1f0000,$1f09d8 - $1f0000 SECTION "bank7D", ROMX, BANK[$7D] INCBIN "baserom.gbc",$1f4000,$1f4003 - $1f4000 Function1f4003: ; 1f4003 ld a, $6 call GetSRAMBank ld hl, $4018 ld de, $a000 ld bc, $1000 call CopyBytes call CloseSRAM ret ; 1f4018 INCBIN "baserom.gbc",$1f4018,$1f636a - $1f4018 SECTION "bank7E", ROMX, BANK[$7E] INCLUDE "stats/battle_tower.asm" INCLUDE "stats/odd_eggs.asm" SECTION "bank7F", ROMX, BANK[$7F] SECTION "stadium2",ROMX[$8000-$220],BANK[$7F] INCBIN "baserom.gbc",$1ffde0,$200000 - $1ffde0