Home Explore Help
Sign In
MineRobber9000
/
pokered-rematch
Watch 1
Star 0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Tree: db1981dd9b
Branches Tags
pokered-rema...
/
scripts
/
namerater.asm

namerater.asm 1.8 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 
  1. NameRaterScript:
    2. 

  2. 	jp EnableAutoTextBoxDrawing
    3. 

  3. 

  4. NameRaterScript_1da15:
    5. 

  5. 	call PrintText
    6. 

  6. 	call YesNoChoice
    7. 

  7. 	ld a, [wCurrentMenuItem]
    8. 

  8. 	and a
    9. 

  9. 	ret
    10. 

  10. 

  11. NameRaterScript_1da20:
    12. 

  12. 	ld hl, wPartyMonOT
    13. 

  13. 	ld bc, NAME_LENGTH
    14. 

  14. 	ld a, [wWhichPokemon]
    15. 

  15. 	call AddNTimes
    16. 

  16. 	ld de, wPlayerName
    17. 

  17. 	ld c, NAME_LENGTH
    18. 

  18. 	call .asm_1da47
    19. 

  19. 	jr c, .asm_1da52
    20. 

  20. 	ld hl, wPartyMon1OTID
    21. 

  21. 	ld bc, wPartyMon2 - wPartyMon1
    22. 

  22. 	ld a, [wWhichPokemon]
    23. 

  23. 	call AddNTimes
    24. 

  24. 	ld de, wPlayerID
    25. 

  25. 	ld c, $2
    26. 

  26. .asm_1da47
    27. 

  27. 	ld a, [de]
    28. 

  28. 	cp [hl]
    29. 

  29. 	jr nz, .asm_1da52
    30. 

  30. 	inc hl
    31. 

  31. 	inc de
    32. 

  32. 	dec c
    33. 

  33. 	jr nz, .asm_1da47
    34. 

  34. 	and a
    35. 

  35. 	ret
    36. 

  36. .asm_1da52
    37. 

  37. 	scf
    38. 

  38. 	ret
    39. 

  39. 

  40. NameRaterTextPointers:
    41. 

  41. 	dw NameRaterText1
    42. 

  42. 

  43. NameRaterText1:
    44. 

  44. 	TX_ASM
    45. 

  45. 	call SaveScreenTilesToBuffer2
    46. 

  46. 	ld hl, NameRaterText_1dab3
    47. 

  47. 	call NameRaterScript_1da15
    48. 

  48. 	jr nz, .asm_1daae
    49. 

  49. 	ld hl, NameRaterText_1dab8
    50. 

  50. 	call PrintText
    51. 

  51. 	xor a
    52. 

  52. 	ld [wPartyMenuTypeOrMessageID], a
    53. 

  53. 	ld [wUpdateSpritesEnabled], a
    54. 

  54. 	ld [wMenuItemToSwap], a
    55. 

  55. 	call DisplayPartyMenu
    56. 

  56. 	push af
    57. 

  57. 	call GBPalWhiteOutWithDelay3
    58. 

  58. 	call RestoreScreenTilesAndReloadTilePatterns
    59. 

  59. 	call LoadGBPal
    60. 

  60. 	pop af
    61. 

  61. 	jr c, .asm_1daae
    62. 

  62. 	call GetPartyMonName2
    63. 

  63. 	call NameRaterScript_1da20
    64. 

  64. 	ld hl, NameRaterText_1dad1
    65. 

  65. 	jr c, .asm_1daa8
    66. 

  66. 	ld hl, NameRaterText_1dabd
    67. 

  67. 	call NameRaterScript_1da15
    68. 

  68. 	jr nz, .asm_1daae
    69. 

  69. 	ld hl, NameRaterText_1dac2
    70. 

  70. 	call PrintText
    71. 

  71. 	callba DisplayNameRaterScreen
    72. 

  72. 	jr c, .asm_1daae
    73. 

  73. 	ld hl, NameRaterText_1dac7
    74. 

  74. .asm_1daa8
    75. 

  75. 	call PrintText
    76. 

  76. 	jp TextScriptEnd
    77. 

  77. .asm_1daae
    78. 

  78. 	ld hl, NameRaterText_1dacc
    79. 

  79. 	jr .asm_1daa8
    80. 

  80. 

  81. NameRaterText_1dab3:
    82. 

  82. 	TX_FAR _NameRaterText_1dab3
    83. 

  83. 	db "@"
    84. 

  84. 

  85. NameRaterText_1dab8:
    86. 

  86. 	TX_FAR _NameRaterText_1dab8
    87. 

  87. 	db "@"
    88. 

  88. 

  89. NameRaterText_1dabd:
    90. 

  90. 	TX_FAR _NameRaterText_1dabd
    91. 

  91. 	db "@"
    92. 

  92. 

  93. NameRaterText_1dac2:
    94. 

  94. 	TX_FAR _NameRaterText_1dac2
    95. 

  95. 	db "@"
    96. 

  96. 

  97. NameRaterText_1dac7:
    98. 

  98. 	TX_FAR _NameRaterText_1dac7
    99. 

  99. 	db "@"
    100. 

  100. 

  101. NameRaterText_1dacc:
    102. 

  102. 	TX_FAR _NameRaterText_1dacc
    103. 

  103. 	db "@"
    104. 

  104. 

  105. NameRaterText_1dad1:
    106. 

  106. 	TX_FAR _NameRaterText_1dad1
    107. 

  107. 	db "@"
    108. 

  108.