Some work on GMolt fight

Currently, the movement is buggy and the battle repeats. It works without the movement, though...

Alternatively, give Galarian Moltres trainer sight.
This commit is contained in:
Llinos Evans 2023-06-20 17:29:42 +01:00
parent 8c80ee22bd
commit beab109a16
6 changed files with 47 additions and 14 deletions

View file

@ -1,5 +1,5 @@
CelesteHillOutside_Object:
db $0 ; border block
db $3 ; border block
def_warp_events
warp_event 18, 35, CITRINE_CITY, 5

View file

@ -7,8 +7,8 @@ RedsHouse2F_Object:
;warp_event 5, 1, SILPH_CO_11F, 1 ; - Test Omega & Giovanni
;warp_event 5, 1, ROCKET_HIDEOUT_B4F, 2 ; - Test Giovanni 1
;warp_event 5, 1, MT_MOON_SQUARE, 1 ; - Test Shop, NPCs, and Crater
;warp_event 5, 1, CELESTE_HILL, 2 ; - Test Birds
warp_event 5, 1, INDIGO_PLATEAU_LOBBY, 1 ; easy league access
warp_event 5, 1, CELESTE_HILL, 2 ; - Test Birds
;warp_event 5, 1, INDIGO_PLATEAU_LOBBY, 1 ; easy league access
def_bg_events

View file

@ -1,15 +1,15 @@
CelesteHillWildMons:
def_grass_wildmons 10 ; encounter rate
db 55, FEAROW
db 55, FARFETCHD
db 55, PIDGEOT
db 56, MADAAMU
db 56, FARFETCHD
db 56, FEAROW
db 57, SCYTHER
db 57, FEAROW
db 57, MADAAMU
db 70, ARTICUNO_G ; currently placeholders before static encounters are added
db 70, ZAPDOS_G
db 70, MOLTRES_G
db 70, MOLTRES_G
db 57, SIRFETCHD
db 57, DODRIO
db 56, GYARADOS
db 59, DRAGONITE
end_grass_wildmons
def_water_wildmons 0 ; encounter rate

View file

@ -6,7 +6,7 @@ CelesteHillCaveWildMons:
db 52, MAROWAK
db 52, GRAVELER
db 51, MAROWAK
db 53, TOEDSCOOL
db 53, CROBAT
db 53, RHYDON
db 53, STEELIX
db 54, GOLEM

Binary file not shown.

View file

@ -8,13 +8,46 @@ CelesteHill_Script:
ret
CelesteHill_ScriptPointers:
dw GMoltFound
dw CheckFightingMapTrainers
dw DisplayEnemyTrainerTextAndStartBattle
dw EndTrainerBattle
; CelesteHillCoords1:
; dbmapcoord 11, 9
; db -1 ; end
; Galarian Moltres fight script.
; Unlike other legendary Pokemon, Moltres will engage the player first.
GMoltFound:
CheckEvent EVENT_BEAT_GALARIAN_MOLTRES
jr nz, .done
ld hl, CelesteHillCoords1
call ArePlayerCoordsInArray
jp nc, CheckFightingMapTrainers
ld a, [wCoordIndex]
ld [wcf0d], a
xor a
ldh [hJoyHeld], a
ld a, $f0
ld [wJoyIgnore], a
ld a, $1
ldh [hSpriteIndex], a
call SetSpriteMovementBytesToFF
ld de, GMoltMovement
call MoveSprite
ld a, $1
ldh [hSpriteIndexOrTextID], a
call DisplayTextID
.done
ret
CelesteHillCoords1:
dbmapcoord 11, 9
db -1 ; end
GMoltMovement:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db -1 ;end
CelesteHill_TextPointers:
dw GalarianMoltresText