diff options
Diffstat (limited to 'engine/oak_speech2.asm')
| -rwxr-xr-x | engine/oak_speech2.asm | 255 |
1 files changed, 255 insertions, 0 deletions
diff --git a/engine/oak_speech2.asm b/engine/oak_speech2.asm new file mode 100755 index 00000000..697a268d --- /dev/null +++ b/engine/oak_speech2.asm @@ -0,0 +1,255 @@ +LoadDefaultNamesPlayer: ; 695d (1:695d) + call Func_6a12 + ld de, DefaultNamesPlayer ; $6aa8 + call DisplayIntroNameTextBox + ld a, [wCurrentMenuItem] ; $cc26 + and a + jr z, .asm_697a + ld hl, DefaultNamesPlayerList ; $6af2 + call Func_6ad6 + ld de, W_PLAYERNAME ; $d158 + call Func_69ec + jr .asm_6999 +.asm_697a + ld hl, W_PLAYERNAME ; $d158 + xor a + ld [$d07d], a + call DisplayNamingScreen + ld a, [$cf4b] + cp $50 + jr z, .asm_697a + call ClearScreen + call Delay3 + ld de, RedPicFront ; $6ede + ld b, BANK(RedPicFront) + call IntroPredef3B +.asm_6999 + ld hl, YourNameIsText + jp PrintText + +YourNameIsText: ; 699f (1:699f) + TX_FAR _YourNameIsText + db "@" + +LoadDefaultNamesRival: ; 69a4 (1:69a4) + call Func_6a12 ; 0x69a4 call 0x6a12 + ld de, DefaultNamesRival + call DisplayIntroNameTextBox + ld a, [wCurrentMenuItem] ; $cc26 + and a + jr z, .asm_69c1 + ld hl, DefaultNamesRivalList + call Func_6ad6 + ld de, W_RIVALNAME ; $d34a + call Func_69ec + jr .asm_69e1 +.asm_69c1 + ld hl, W_RIVALNAME ; $d34a + ld a, $1 + ld [$d07d], a + call DisplayNamingScreen + ld a, [$cf4b] + cp $50 + jr z, .asm_69c1 + call ClearScreen + call Delay3 + ld de, Rival1Pic ; $6049 + ld b, $13 + call IntroPredef3B +.asm_69e1 + ld hl, HisNameIsText + jp PrintText + +HisNameIsText: ; 69e7 (1:69e7) + TX_FAR _HisNameIsText + db "@" + +Func_69ec: ; 69ec (1:69ec) + push de + ld hl, wTileMap + ld bc, $c0b + call ClearScreenArea + ld c, $a + call DelayFrames + pop de + ld hl, $cd6d + ld bc, $b + call CopyData + call Delay3 + FuncCoord 12, 4 ; $c3fc + ld hl, Coord + ld de, $67d + ld a, $ff + jr asm_6a19 + +Func_6a12: ; 6a12 (1:6a12) + FuncCoord 5, 4 ; $c3f5 + ld hl, Coord + ld de, $67d + xor a +asm_6a19: ; 6a19 (1:6a19) + push hl + push de + push bc + ld [$ff8d], a + ld a, d + ld [H_DOWNARROWBLINKCNT1], a ; $ff8b + ld a, e + ld [H_DOWNARROWBLINKCNT2], a ; $ff8c + ld c, a + ld a, [$ff8d] + and a + jr nz, .asm_6a2d + ld d, $0 + add hl, de +.asm_6a2d + ld d, h + ld e, l +.asm_6a2f + xor a + ld [H_AUTOBGTRANSFERENABLED], a ; $ffba + ld a, [$ff8d] + and a + jr nz, .asm_6a3c + ld a, [hli] + ld [hld], a + dec hl + jr .asm_6a3f +.asm_6a3c + ld a, [hld] + ld [hli], a + inc hl +.asm_6a3f + dec c + jr nz, .asm_6a2f + ld a, [$ff8d] + and a + jr z, .asm_6a4a + xor a + dec hl + ld [hl], a +.asm_6a4a + ld a, $1 + ld [H_AUTOBGTRANSFERENABLED], a ; $ffba + call Delay3 + ld a, [H_DOWNARROWBLINKCNT2] ; $ff8c + ld c, a + ld h, d + ld l, e + ld a, [$ff8d] + and a + jr nz, .asm_6a5e + inc hl + jr .asm_6a5f +.asm_6a5e + dec hl +.asm_6a5f + ld d, h + ld e, l + ld a, [H_DOWNARROWBLINKCNT1] ; $ff8b + dec a + ld [H_DOWNARROWBLINKCNT1], a ; $ff8b + jr nz, .asm_6a2f + pop bc + pop de + pop hl + ret + +DisplayIntroNameTextBox: ; 6a6c (1:6a6c) + push de + ld hl, wTileMap + ld b, $a + ld c, $9 + call TextBoxBorder + FuncCoord 3, 0 ; $c3a3 + ld hl, Coord + ld de, .namestring ; $6aa3 + call PlaceString + pop de + FuncCoord 2, 2 ; $c3ca + ld hl, Coord + call PlaceString + call UpdateSprites + xor a + ld [wCurrentMenuItem], a ; $cc26 + ld [wLastMenuItem], a ; $cc2a + inc a + ld [wTopMenuItemX], a ; $cc25 + ld [wMenuWatchedKeys], a ; $cc29 + inc a + ld [wTopMenuItemY], a ; $cc24 + inc a + ld [wMaxMenuItem], a ; $cc28 + jp HandleMenuInput + +.namestring ; 6aa3 (1:6aa3) + db "NAME@" + +IF _RED +DefaultNamesPlayer: ; 6aa8 (1:6aa8) + db "NEW NAME" + next "RED" + next "ASH" + next "JACK" + db "@" + +DefaultNamesRival: ; 6abe (1:6abe) + db "NEW NAME" + next "BLUE" + next "GARY" + next "JOHN" + db "@" +ENDC + +IF _BLUE +DefaultNamesPlayer: ; 6aa8 (1:6aa8) + db "NEW NAME" + next "BLUE" + next "GARY" + next "JOHN" + db "@" + +DefaultNamesRival: ; 6abe (1:6abe) + db "NEW NAME" + next "RED" + next "ASH" + next "JACK" + db "@" +ENDC + +Func_6ad6: ; 6ad6 (1:6ad6) + ld b, a + ld c, $0 +.asm_6ad9 + ld d, h + ld e, l +.asm_6adb + ld a, [hli] + cp $50 + jr nz, .asm_6adb + ld a, b + cp c + jr z, .asm_6ae7 + inc c + jr .asm_6ad9 +.asm_6ae7 + ld h, d + ld l, e + ld de, $cd6d + ld bc, $14 + jp CopyData +IF _RED +DefaultNamesPlayerList: ; 6af2 (1:6af2) + db "NEW NAME@RED@ASH@JACK@" +DefaultNamesRivalList: ; 6b08 (1:6b08) + db "NEW NAME@BLUE@GARY@JOHN@" +ENDC +IF _BLUE +DefaultNamesPlayerList: ; 6af2 (1:6af2) + db "NEW NAME@BLUE@GARY@JOHN@" +DefaultNamesRivalList: ; 6b08 (1:6b08) + db "NEW NAME@RED@ASH@JACK@" +ENDC + +TextTerminator_6b20: ; 6b20 (1:6b20) + db "@" |