Startsida Utforska Hjälp
Logga in
MineRobber9000
/
pokered-rematch
Bevaka 1
Stjärnmärk 0
Fork 0
Filer Ärenden 0 Pull-förfrågningar 0 Wiki
Träd: db1981dd9b
Grenar Taggar
pokered-rema...
/
engine
/
battle
/
ghost_marowak_anim.asm

ghost_marowak_anim.asm 1.8 KB
Historik Rå

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990 
  1. MarowakAnim:
    2. 

  2. ; animate the ghost being unveiled as a Marowak
    3. 

  3. 	ld a, $e4
    4. 

  4. 	ld [rOBP1], a
    5. 

  5. 	call CopyMonPicFromBGToSpriteVRAM ; cover the BG ghost pic with a sprite ghost pic that looks the same
    6. 

  6. ; now that the ghost pic is being displayed using sprites, clear the ghost pic from the BG tilemap
    7. 

  7. 	coord hl, 12, 0
    8. 

  8. 	lb bc, 7, 7
    9. 

  9. 	call ClearScreenArea
    10. 

  10. 	call Delay3
    11. 

  11. 	xor a
    12. 

  12. 	ld [H_AUTOBGTRANSFERENABLED], a ; disable BG transfer so we don't see the Marowak too soon
    13. 

  13. ; replace ghost pic with Marowak in BG
    14. 

  14. 	ld a, MAROWAK
    15. 

  15. 	ld [wChangeMonPicEnemyTurnSpecies], a
    16. 

  16. 	ld a, $1
    17. 

  17. 	ld [H_WHOSETURN], a
    18. 

  18. 	callab ChangeMonPic
    19. 

  19.  ; alternate between black and light grey 8 times.
    20. 

  20.  ; this makes the ghost's body appear to flash
    21. 

  21. 	ld d, $80
    22. 

  22. 	call FlashSprite8Times
    23. 

  23. .fadeOutGhostLoop
    24. 

  24. 	ld c, 10
    25. 

  25. 	call DelayFrames
    26. 

  26. 	ld a, [rOBP1]
    27. 

  27. 	sla a
    28. 

  28. 	sla a
    29. 

  29. 	ld [rOBP1], a
    30. 

  30. 	jr nz, .fadeOutGhostLoop
    31. 

  31. 	call ClearSprites
    32. 

  32. 	call CopyMonPicFromBGToSpriteVRAM ; copy Marowak pic from BG to sprite VRAM
    33. 

  33. 	ld b, $e4
    34. 

  34. .fadeInMarowakLoop
    35. 

  35. 	ld c, 10
    36. 

  36. 	call DelayFrames
    37. 

  37. 	ld a, [rOBP1]
    38. 

  38. 	srl b
    39. 

  39. 	rra
    40. 

  40. 	srl b
    41. 

  41. 	rra
    42. 

  42. 	ld [rOBP1], a
    43. 

  43. 	ld a, b
    44. 

  44. 	and a
    45. 

  45. 	jr nz, .fadeInMarowakLoop
    46. 

  46. 	ld a, $1
    47. 

  47. 	ld [H_AUTOBGTRANSFERENABLED], a ; enable BG transfer so the BG Marowak pic will be visible after the sprite one is cleared
    48. 

  48. 	call Delay3
    49. 

  49. 	jp ClearSprites
    50. 

  50. 

  51. ; copies a mon pic's  from background VRAM to sprite VRAM and sets up OAM
    52. 

  52. CopyMonPicFromBGToSpriteVRAM:
    53. 

  53. 	ld de, vFrontPic
    54. 

  54. 	ld hl, vSprites
    55. 

  55. 	ld bc, 7 * 7
    56. 

  56. 	call CopyVideoData
    57. 

  57. 	ld a, $10
    58. 

  58. 	ld [wBaseCoordY], a
    59. 

  59. 	ld a, $70
    60. 

  60. 	ld [wBaseCoordX], a
    61. 

  61. 	ld hl, wOAMBuffer
    62. 

  62. 	lb bc, 6, 6
    63. 

  63. 	ld d, $8
    64. 

  64. .oamLoop
    65. 

  65. 	push bc
    66. 

  66. 	ld a, [wBaseCoordY]
    67. 

  67. 	ld e, a
    68. 

  68. .oamInnerLoop
    69. 

  69. 	ld a, e
    70. 

  70. 	add $8
    71. 

  71. 	ld e, a
    72. 

  72. 	ld [hli], a
    73. 

  73. 	ld a, [wBaseCoordX]
    74. 

  74. 	ld [hli], a
    75. 

  75. 	ld a, d
    76. 

  76. 	ld [hli], a
    77. 

  77. 	ld a, $10 ; use OBP1
    78. 

  78. 	ld [hli], a
    79. 

  79. 	inc d
    80. 

  80. 	dec c
    81. 

  81. 	jr nz, .oamInnerLoop
    82. 

  82. 	inc d
    83. 

  83. 	ld a, [wBaseCoordX]
    84. 

  84. 	add $8
    85. 

  85. 	ld [wBaseCoordX], a
    86. 

  86. 	pop bc
    87. 

  87. 	dec b
    88. 

  88. 	jr nz, .oamLoop
    89. 

  89. 	ret
    90. 

  90.