mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2025-01-23 09:16:20 -08:00
More splitting of main.asm; remove unneeded rept 2
This commit is contained in:
pikalaxalt
parent
82f1534925
commit
3713b71d9e
@ -1348,9 +1348,8 @@ GetNoiseSample: ; e86c5
|
||||
ld d, 0
|
||||
; load ptr to noise sample set in hl
|
||||
ld hl, Drumkits
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
@ -1363,9 +1362,8 @@ endr
|
||||
; use 'pitch' to seek noise sample set
|
||||
ld e, a
|
||||
ld d, 0
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
; load sample pointer into NoiseSampleAddress
|
||||
ld a, [hli]
|
||||
ld [NoiseSampleAddressLo], a
|
||||
@ -1387,9 +1385,8 @@ ParseMusicCommand: ; e870f
|
||||
ld d, 0
|
||||
; seek command pointer
|
||||
ld hl, MusicCommands
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
; jump to the new pointer
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
@ -1639,9 +1636,8 @@ Music_JumpIf: ; e8817
|
||||
inc hl
|
||||
ld d, [hl]
|
||||
; skip pointer
|
||||
rept 2
|
||||
inc de
|
||||
endr
|
||||
inc de
|
||||
; update address
|
||||
ld [hl], d
|
||||
dec hl
|
||||
@ -1693,9 +1689,8 @@ MusicEE; e883e
|
||||
inc hl
|
||||
ld d, [hl]
|
||||
; skip pointer
|
||||
rept 2
|
||||
inc de
|
||||
endr
|
||||
inc de
|
||||
; update address
|
||||
ld [hl], d
|
||||
dec hl
|
||||
@ -2811,9 +2806,8 @@ LoadChannel: ; e8d1b
|
||||
ld c, a
|
||||
ld b, 0
|
||||
ld hl, ChannelPointers
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld c, [hl]
|
||||
inc hl
|
||||
ld b, [hl] ; bc = channel pointer
|
||||
@ -3282,9 +3276,8 @@ ClearChannels:: ; e8fe9
|
||||
; doesn't seem to be used, but functionally identical to MapSetup_Sound_Off
|
||||
ld hl, rNR50
|
||||
xor a
|
||||
rept 2
|
||||
ld [hli], a
|
||||
endr
|
||||
ld [hli], a
|
||||
ld a, $80
|
||||
ld [hli], a
|
||||
ld hl, rNR10
|
||||
|
||||
@ -275,9 +275,8 @@ Music_GoldenrodCity_Ch3: ; eb584
|
||||
vibrato $8, $23
|
||||
notetype $c, $25
|
||||
Music_GoldenrodCity_branch_eb58c: ; eb58c
|
||||
rept 2
|
||||
callchannel Music_GoldenrodCity_branch_eb5aa
|
||||
endr
|
||||
callchannel Music_GoldenrodCity_branch_eb5aa
|
||||
callchannel Music_GoldenrodCity_branch_eb5d2
|
||||
note __, 3
|
||||
octave 3
|
||||
|
||||
@ -492,9 +492,8 @@ Music_JohtoWildBattle_branch_f5fdb: ; f5fdb
|
||||
note G_, 2
|
||||
loopchannel 7, Music_JohtoWildBattle_branch_f5fdb
|
||||
note F#, 4
|
||||
rept 2
|
||||
callchannel Music_JohtoWildBattle_branch_f6055
|
||||
endr
|
||||
callchannel Music_JohtoWildBattle_branch_f6055
|
||||
Music_JohtoWildBattle_branch_f5fe8: ; f5fe8
|
||||
note D_, 2
|
||||
note G_, 2
|
||||
|
||||
@ -325,25 +325,21 @@ Music_KantoWildBattle_branch_ed1c8: ; ed1c8
|
||||
note F_, 1
|
||||
note F#, 1
|
||||
notetype $6, $b7
|
||||
rept 2
|
||||
callchannel Music_KantoWildBattle_branch_ed307
|
||||
endr
|
||||
callchannel Music_KantoWildBattle_branch_ed307
|
||||
forceoctave $1
|
||||
rept 2
|
||||
callchannel Music_KantoWildBattle_branch_ed307
|
||||
endr
|
||||
callchannel Music_KantoWildBattle_branch_ed307
|
||||
forceoctave $0
|
||||
rept 4
|
||||
callchannel Music_KantoWildBattle_branch_ed307
|
||||
endr
|
||||
forceoctave $1
|
||||
rept 2
|
||||
callchannel Music_KantoWildBattle_branch_ed307
|
||||
endr
|
||||
callchannel Music_KantoWildBattle_branch_ed307
|
||||
forceoctave $0
|
||||
rept 2
|
||||
callchannel Music_KantoWildBattle_branch_ed307
|
||||
endr
|
||||
callchannel Music_KantoWildBattle_branch_ed307
|
||||
note __, 16
|
||||
octave 3
|
||||
note A#, 16
|
||||
|
||||
@ -216,9 +216,8 @@ endr
|
||||
pop de
|
||||
pop hl
|
||||
|
||||
rept 2
|
||||
inc hl
|
||||
endr
|
||||
inc hl
|
||||
jr c, .loop
|
||||
|
||||
.used_item
|
||||
|
||||
@ -107,9 +107,8 @@ endr
|
||||
ld hl, AIScoringPointers
|
||||
dec c
|
||||
ld b, 0
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
|
||||
@ -133,18 +133,16 @@ AI_Setup: ; 385e0
|
||||
call AI_50_50
|
||||
jr c, .checkmove
|
||||
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
jr .checkmove
|
||||
|
||||
.discourage
|
||||
call Random
|
||||
cp 30
|
||||
jr c, .checkmove
|
||||
rept 2
|
||||
inc [hl]
|
||||
endr
|
||||
inc [hl]
|
||||
jr .checkmove
|
||||
; 38635
|
||||
|
||||
@ -264,9 +262,8 @@ AI_Offensive: ; 386a2
|
||||
and a
|
||||
jr nz, .checkmove
|
||||
|
||||
rept 2
|
||||
inc [hl]
|
||||
endr
|
||||
inc [hl]
|
||||
jr .checkmove
|
||||
; 386be
|
||||
|
||||
@ -420,9 +417,8 @@ AI_Smart_Sleep: ; 387e3
|
||||
.asm_387f0
|
||||
call AI_50_50
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 387f7
|
||||
|
||||
@ -533,9 +529,8 @@ AI_Smart_LockOn: ; 3881d
|
||||
call AI_50_50
|
||||
ret c
|
||||
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.asm_38882
|
||||
@ -560,9 +555,8 @@ endr
|
||||
cp 180
|
||||
jr nc, .asm_3888b
|
||||
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
jr .asm_3888b
|
||||
|
||||
.asm_388a2
|
||||
@ -645,9 +639,8 @@ AI_Smart_EvasionUp: ; 388d4
|
||||
jr nc, .asm_38911
|
||||
|
||||
.asm_388ef
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.asm_388f2
|
||||
@ -676,9 +669,8 @@ endr
|
||||
jr c, .asm_38911
|
||||
|
||||
.asm_3890f
|
||||
rept 2
|
||||
inc [hl]
|
||||
endr
|
||||
inc [hl]
|
||||
|
||||
; 30% chance to end up here if enemy's HP is full and player is not badly poisoned.
|
||||
; 77% chance to end up here if enemy's HP is above 50% but not full.
|
||||
@ -722,9 +714,8 @@ endr
|
||||
call Random
|
||||
cp $50
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
; Player is seeded.
|
||||
@ -756,9 +747,8 @@ AI_Smart_AlwaysHit: ; 38947
|
||||
call AI_80_20
|
||||
ret c
|
||||
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 3895b
|
||||
|
||||
@ -828,9 +818,8 @@ AI_Smart_AccuracyDown: ; 38985
|
||||
jr nc, .asm_389bf
|
||||
|
||||
.asm_3899d
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.asm_389a0
|
||||
@ -859,9 +848,8 @@ endr
|
||||
jr c, .asm_389bf
|
||||
|
||||
.asm_389bd
|
||||
rept 2
|
||||
inc [hl]
|
||||
endr
|
||||
inc [hl]
|
||||
|
||||
; We only end up here if the move has not been already encouraged.
|
||||
.asm_389bf
|
||||
@ -900,9 +888,8 @@ endr
|
||||
call Random
|
||||
cp $50
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
; Player is seeded.
|
||||
@ -1010,9 +997,8 @@ AI_Smart_Moonlight: ; 38a3a
|
||||
call Random
|
||||
cp $19
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 38a4e
|
||||
|
||||
@ -1093,9 +1079,8 @@ AI_Smart_Bind: ; 38a71
|
||||
ret nc
|
||||
call AI_50_50
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 38a9c
|
||||
|
||||
@ -1200,9 +1185,8 @@ AI_Smart_SpDefenseUp2: ; 38aed
|
||||
.asm_38b09
|
||||
call AI_80_20
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.asm_38b10
|
||||
@ -1255,9 +1239,8 @@ AI_Smart_Paralyze: ; 38b26
|
||||
ret nc
|
||||
call AI_80_20
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.asm_38b3a
|
||||
@ -1289,9 +1272,8 @@ AI_Smart_SpeedDownHit: ; 38b40
|
||||
call Random
|
||||
cp 30
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 38b5c
|
||||
|
||||
@ -1528,9 +1510,8 @@ AI_Smart_Encore: ; 38c3b
|
||||
call Random
|
||||
cp $46
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.asm_38c81
|
||||
@ -1685,9 +1666,8 @@ AI_Smart_Spite: ; 38cd5
|
||||
call Random
|
||||
cp $64
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 38d16
|
||||
|
||||
@ -1755,9 +1735,8 @@ endr
|
||||
ret z
|
||||
call AI_50_50
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.no_status
|
||||
@ -2007,15 +1986,13 @@ AI_Smart_Curse: ; 38e5c
|
||||
ret nc
|
||||
call AI_80_20
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.asm_38e90
|
||||
rept 2
|
||||
inc [hl]
|
||||
endr
|
||||
inc [hl]
|
||||
.asm_38e92
|
||||
inc [hl]
|
||||
.asm_38e93
|
||||
@ -2065,9 +2042,8 @@ endr
|
||||
call AI_50_50
|
||||
ret c
|
||||
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 38ed2
|
||||
|
||||
@ -2119,9 +2095,8 @@ AI_Smart_Protect: ; 38ed2
|
||||
call Random
|
||||
cp 20
|
||||
ret c
|
||||
rept 2
|
||||
inc [hl]
|
||||
endr
|
||||
inc [hl]
|
||||
ret
|
||||
; 38f1d
|
||||
|
||||
@ -2151,9 +2126,8 @@ AI_Smart_Foresight: ; 38f1d
|
||||
call Random
|
||||
cp 100
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 38f4a
|
||||
|
||||
@ -2272,9 +2246,8 @@ endr
|
||||
call AI_50_50
|
||||
ret c
|
||||
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.asm_38fd8
|
||||
@ -2296,9 +2269,8 @@ AI_Smart_FuryCutter: ; 38fdb
|
||||
|
||||
cp 2
|
||||
jr c, .end
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
|
||||
cp 3
|
||||
jr c, .end
|
||||
@ -2344,9 +2316,8 @@ AI_Smart_Rollout: ; 38fef
|
||||
call Random
|
||||
cp 200
|
||||
ret nc
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.asm_39020
|
||||
@ -2406,9 +2377,8 @@ AI_Smart_Earthquake: ; 39044
|
||||
|
||||
call AICompareSpeed
|
||||
ret nc
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
.could_dig
|
||||
@ -2455,9 +2425,8 @@ AI_Smart_Pursuit: ; 39072
|
||||
.asm_3907d
|
||||
call AI_50_50
|
||||
ret c
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 39084
|
||||
|
||||
@ -2482,9 +2451,8 @@ AI_Smart_RapidSpin: ; 39084
|
||||
call AI_80_20
|
||||
ret c
|
||||
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 3909e
|
||||
|
||||
@ -2636,9 +2604,8 @@ AIGoodWeatherType: ; 39122
|
||||
ret nz
|
||||
|
||||
.good
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 39134
|
||||
|
||||
@ -2733,9 +2700,8 @@ AI_Smart_PsychUp: ; 39152
|
||||
ret
|
||||
|
||||
.asm_39188
|
||||
rept 2
|
||||
inc [hl]
|
||||
endr
|
||||
inc [hl]
|
||||
ret
|
||||
; 3918b
|
||||
|
||||
@ -2820,9 +2786,8 @@ AI_Smart_Gust: ; 391d5
|
||||
call AICompareSpeed
|
||||
ret nc
|
||||
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
|
||||
; Try to predict if the player will use Fly this turn.
|
||||
@ -2849,9 +2814,8 @@ AI_Smart_FutureSight: ; 391f3
|
||||
and 1 << SUBSTATUS_FLYING | 1 << SUBSTATUS_UNDERGROUND
|
||||
ret z
|
||||
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 39200
|
||||
|
||||
@ -2886,18 +2850,16 @@ AI_Smart_Solarbeam: ; 3920b
|
||||
cp 25 ; 1/10
|
||||
ret c
|
||||
|
||||
rept 2
|
||||
inc [hl]
|
||||
endr
|
||||
inc [hl]
|
||||
ret
|
||||
|
||||
.asm_3921e
|
||||
call AI_80_20
|
||||
ret c
|
||||
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
ret
|
||||
; 39225
|
||||
|
||||
@ -2991,9 +2953,8 @@ AICheckPlayerHalfHP: ; 3926e
|
||||
ld c, [hl]
|
||||
sla c
|
||||
rl b
|
||||
rept 2
|
||||
inc hl
|
||||
endr
|
||||
inc hl
|
||||
ld a, [hld]
|
||||
cp c
|
||||
ld a, [hl]
|
||||
@ -3013,9 +2974,8 @@ AICheckEnemyHalfHP: ; 39281
|
||||
ld c, [hl]
|
||||
sla c
|
||||
rl b
|
||||
rept 2
|
||||
inc hl
|
||||
endr
|
||||
inc hl
|
||||
ld a, [hld]
|
||||
cp c
|
||||
ld a, [hl]
|
||||
@ -3039,9 +2999,8 @@ AICheckEnemyQuarterHP: ; 39298
|
||||
rl b
|
||||
sla c
|
||||
rl b
|
||||
rept 2
|
||||
inc hl
|
||||
endr
|
||||
inc hl
|
||||
ld a, [hld]
|
||||
cp c
|
||||
ld a, [hl]
|
||||
@ -3063,9 +3022,8 @@ AICheckPlayerQuarterHP: ; 392b3
|
||||
rl b
|
||||
sla c
|
||||
rl b
|
||||
rept 2
|
||||
inc hl
|
||||
endr
|
||||
inc hl
|
||||
ld a, [hld]
|
||||
cp c
|
||||
ld a, [hl]
|
||||
|
||||
@ -626,9 +626,8 @@ FindEnemyMonsWithEnoughHP: ; 34b77
|
||||
ld b, [hl]
|
||||
inc hl
|
||||
ld c, [hl]
|
||||
rept 2
|
||||
inc hl
|
||||
endr
|
||||
inc hl
|
||||
; hl = MaxHP + 1
|
||||
; b = (4 * b) % $100 + (c & 3)
|
||||
; c = c / 4
|
||||
|
||||
@ -45,9 +45,8 @@ HiddenPowerDamage: ; fbced
|
||||
|
||||
; Multiply by 5
|
||||
ld b, a
|
||||
rept 2
|
||||
add a
|
||||
endr
|
||||
add a
|
||||
add b
|
||||
|
||||
; Add Special & 3
|
||||
@ -75,9 +74,8 @@ endr
|
||||
ld a, [hl]
|
||||
and 3 << 4
|
||||
swap a
|
||||
rept 2
|
||||
add a
|
||||
endr
|
||||
add a
|
||||
or b
|
||||
|
||||
; Skip Normal
|
||||
|
||||
162
battle/link_result.asm
Executable file
162
battle/link_result.asm
Executable file
@ -0,0 +1,162 @@
|
||||
DetermineLinkBattleResult: ; 2b930
|
||||
callba UpdateEnemyMonInParty
|
||||
ld hl, PartyMon1HP
|
||||
call .CountMonsRemaining
|
||||
push bc
|
||||
ld hl, OTPartyMon1HP
|
||||
call .CountMonsRemaining
|
||||
ld a, c
|
||||
pop bc
|
||||
cp c
|
||||
jr z, .even_number_of_mons_remaining
|
||||
jr c, .defeat
|
||||
jr .victory
|
||||
|
||||
.even_number_of_mons_remaining
|
||||
call .BothSides_CheckNumberMonsAtFullHealth
|
||||
jr z, .drawn
|
||||
ld a, e
|
||||
cp $1
|
||||
jr z, .victory
|
||||
cp $2
|
||||
jr z, .defeat
|
||||
ld hl, PartyMon1HP
|
||||
call .CalcPercentHPRemaining
|
||||
push de
|
||||
ld hl, OTPartyMon1HP
|
||||
call .CalcPercentHPRemaining
|
||||
pop hl
|
||||
ld a, d
|
||||
cp h
|
||||
jr c, .victory
|
||||
jr z, .compare_lo
|
||||
jr .defeat
|
||||
|
||||
.compare_lo
|
||||
ld a, e
|
||||
cp l
|
||||
jr z, .drawn
|
||||
jr nc, .defeat
|
||||
|
||||
.victory
|
||||
ld a, [wBattleResult]
|
||||
and $f0
|
||||
ld [wBattleResult], a
|
||||
ret
|
||||
|
||||
.defeat
|
||||
ld a, [wBattleResult]
|
||||
and $f0
|
||||
add $1
|
||||
ld [wBattleResult], a
|
||||
ret
|
||||
|
||||
.drawn
|
||||
ld a, [wBattleResult]
|
||||
and $f0
|
||||
add $2
|
||||
ld [wBattleResult], a
|
||||
ret
|
||||
|
||||
.CountMonsRemaining: ; 2b995
|
||||
ld c, 0
|
||||
ld b, 3
|
||||
ld de, PARTYMON_STRUCT_LENGTH - 1
|
||||
.loop
|
||||
ld a, [hli]
|
||||
or [hl]
|
||||
jr nz, .not_fainted
|
||||
inc c
|
||||
|
||||
.not_fainted
|
||||
add hl, de
|
||||
dec b
|
||||
jr nz, .loop
|
||||
ret
|
||||
|
||||
.CalcPercentHPRemaining: ; 2b9a6
|
||||
ld de, 0
|
||||
ld c, $3
|
||||
.loop2
|
||||
ld a, [hli]
|
||||
or [hl]
|
||||
jr z, .next
|
||||
dec hl
|
||||
xor a
|
||||
ld [hDividend + 0], a
|
||||
ld a, [hli]
|
||||
ld [hDividend + 1], a
|
||||
ld a, [hli]
|
||||
ld [hDividend + 2], a
|
||||
xor a
|
||||
ld [hDividend + 3], a
|
||||
ld a, [hli]
|
||||
ld b, a
|
||||
ld a, [hld]
|
||||
srl b
|
||||
rr a
|
||||
srl b
|
||||
rr a
|
||||
ld [hDivisor], a
|
||||
ld b, $4
|
||||
call Divide
|
||||
ld a, [hQuotient + 2]
|
||||
add e
|
||||
ld e, a
|
||||
ld a, [hQuotient + 1]
|
||||
adc d
|
||||
ld d, a
|
||||
dec hl
|
||||
|
||||
.next
|
||||
push de
|
||||
ld de, $2f
|
||||
add hl, de
|
||||
pop de
|
||||
dec c
|
||||
jr nz, .loop2
|
||||
ret
|
||||
|
||||
.BothSides_CheckNumberMonsAtFullHealth: ; 2b9e1
|
||||
ld hl, PartyMon1HP
|
||||
call .CheckFaintedOrFullHealth
|
||||
jr nz, .finish ; we have a pokemon that's neither fainted nor at full health
|
||||
ld hl, OTPartyMon1HP
|
||||
call .CheckFaintedOrFullHealth
|
||||
ld e, $1
|
||||
ret
|
||||
|
||||
.finish
|
||||
ld hl, OTPartyMon1HP
|
||||
call .CheckFaintedOrFullHealth
|
||||
ld e, $0
|
||||
ret nz ; we both have pokemon that are neither fainted nor at full health
|
||||
ld e, $2
|
||||
ld a, $1
|
||||
and a
|
||||
ret
|
||||
|
||||
.CheckFaintedOrFullHealth: ; 2ba01
|
||||
ld d, 3
|
||||
.loop3
|
||||
ld a, [hli]
|
||||
ld b, a
|
||||
ld a, [hli]
|
||||
ld c, a
|
||||
or b
|
||||
jr z, .fainted_or_full_health
|
||||
ld a, [hli]
|
||||
cp b
|
||||
ret nz
|
||||
ld a, [hld]
|
||||
cp c
|
||||
ret nz
|
||||
|
||||
.fainted_or_full_health
|
||||
push de
|
||||
ld de, PARTYMON_STRUCT_LENGTH - 2
|
||||
add hl, de
|
||||
pop de
|
||||
dec d
|
||||
jr nz, .loop3
|
||||
ret
|
||||
@ -141,9 +141,8 @@ CalcMagikarpLength: ; fbbfc
|
||||
; hl = de * 10
|
||||
ld h, d
|
||||
ld l, e
|
||||
rept 2
|
||||
add hl, hl
|
||||
endr
|
||||
add hl, hl
|
||||
add hl, de
|
||||
add hl, hl
|
||||
|
||||
|
||||
@ -72,9 +72,8 @@ DoWeatherModifiers: ; fbda4
|
||||
jr z, .ApplyModifier
|
||||
|
||||
.NextWeatherType:
|
||||
rept 2
|
||||
inc de
|
||||
endr
|
||||
inc de
|
||||
jr .CheckWeatherType
|
||||
|
||||
|
||||
@ -99,9 +98,8 @@ endr
|
||||
jr z, .ApplyModifier
|
||||
|
||||
.NextWeatherMove:
|
||||
rept 2
|
||||
inc de
|
||||
endr
|
||||
inc de
|
||||
jr .CheckWeatherMove
|
||||
|
||||
.ApplyModifier:
|
||||
|
||||
@ -39,12 +39,10 @@ BattleIntroSlidingPics: ; 4e980
|
||||
ld a, d
|
||||
ld [hSCX], a
|
||||
call .subfunction5
|
||||
rept 2
|
||||
inc e
|
||||
endr
|
||||
rept 2
|
||||
inc e
|
||||
dec d
|
||||
dec d
|
||||
endr
|
||||
pop af
|
||||
push af
|
||||
cp $1
|
||||
@ -66,9 +64,8 @@ endr
|
||||
ld c, $12 ; 18
|
||||
ld de, $4
|
||||
.loop3
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
add hl, de
|
||||
dec c
|
||||
jr nz, .loop3
|
||||
|
||||
@ -24,7 +24,7 @@
|
||||
const SCGB_POKEDEX_UNOWN_MODE
|
||||
const SCGB_17
|
||||
const SCGB_18
|
||||
const SCGB_19
|
||||
const SCGB_GAMEFREAK_LOGO
|
||||
const SCGB_1A
|
||||
const SCGB_1B
|
||||
const SCGB_FRONTPICPALS
|
||||
|
||||
@ -1,3 +1,75 @@
|
||||
GetDexEntryPointer: ; 44333
|
||||
; return dex entry pointer b:de
|
||||
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, .PokedexEntryBanks
|
||||
ld d, 0
|
||||
ld e, a
|
||||
add hl, de
|
||||
ld b, [hl]
|
||||
pop de
|
||||
pop hl
|
||||
ret
|
||||
|
||||
.PokedexEntryBanks: ; 44351
|
||||
|
||||
GLOBAL PokedexEntries1
|
||||
GLOBAL PokedexEntries2
|
||||
GLOBAL PokedexEntries3
|
||||
GLOBAL PokedexEntries4
|
||||
|
||||
db BANK(PokedexEntries1)
|
||||
db BANK(PokedexEntries2)
|
||||
db BANK(PokedexEntries3)
|
||||
db BANK(PokedexEntries4)
|
||||
|
||||
GetDexEntryPagePointer: ; 44355
|
||||
call GetDexEntryPointer ; b:de
|
||||
push hl
|
||||
ld h, d
|
||||
ld l, e
|
||||
; skip species name
|
||||
.loop1
|
||||
ld a, b
|
||||
call GetFarByte
|
||||
inc hl
|
||||
cp "@"
|
||||
jr nz, .loop1
|
||||
; skip height and weight
|
||||
rept 4
|
||||
inc hl
|
||||
endr
|
||||
; if c != 1: skip entry
|
||||
dec c
|
||||
jr z, .done
|
||||
; skip entry
|
||||
.loop2
|
||||
ld a, b
|
||||
call GetFarByte
|
||||
inc hl
|
||||
cp "@"
|
||||
jr nz, .loop2
|
||||
|
||||
.done
|
||||
ld d, h
|
||||
ld e, l
|
||||
pop hl
|
||||
ret
|
||||
|
||||
PokedexDataPointerTable: ; 0x44378
|
||||
; Pointers to all the Pokedex entries.
|
||||
|
||||
dw BulbasaurPokedexEntry
|
||||
|
||||
@ -273,9 +273,8 @@ HPBarAnim_UpdateHPRemaining: ; d784
|
||||
push hl
|
||||
add hl, de
|
||||
ld a, " "
|
||||
rept 2
|
||||
ld [hli], a
|
||||
endr
|
||||
ld [hli], a
|
||||
ld [hld], a
|
||||
dec hl
|
||||
ld a, [Buffer3]
|
||||
|
||||
@ -142,9 +142,8 @@ _DepositPKMN: ; e2391 (38:6391)
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, BillsPCDepositJumptable
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
@ -411,9 +410,8 @@ BillsPC_Withdraw: ; e2675 (38:6675)
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, .dw
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
@ -675,9 +673,8 @@ _MovePKMNWithoutMail: ; e2759
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, .Jumptable2
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
@ -2010,9 +2007,8 @@ MovePKMNWitoutMail_InsertMon: ; e31e7
|
||||
|
||||
.moving_to_box
|
||||
ld hl, .Jumptable
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
@ -2143,7 +2139,7 @@ endr
|
||||
ld hl, wBillsPC_ScrollPosition
|
||||
add [hl]
|
||||
ld [CurPartyMon], a
|
||||
callba Function51322
|
||||
callba InsertPokemonIntoBox
|
||||
ret
|
||||
; e3316
|
||||
|
||||
@ -2172,7 +2168,7 @@ endr
|
||||
ld hl, wBillsPC_ScrollPosition
|
||||
add [hl]
|
||||
ld [CurPartyMon], a
|
||||
callba Function5138b
|
||||
callba InsertPokemonIntoParty
|
||||
ret
|
||||
; e3357
|
||||
|
||||
@ -2256,9 +2252,8 @@ BillsPC_ApplyPalettes: ; e33d0 (38:73d0)
|
||||
BillsPC_Jumptable: ; e33df (38:73df)
|
||||
ld e, a
|
||||
ld d, $0
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
|
||||
@ -442,9 +442,8 @@ GLOBAL EggMoves
|
||||
ld c, a
|
||||
ld b, 0
|
||||
ld hl, EggMovePointers
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld a, BANK(EggMovePointers)
|
||||
call GetFarHalfword
|
||||
.loop
|
||||
@ -477,9 +476,8 @@ endr
|
||||
ld c, a
|
||||
ld b, 0
|
||||
ld hl, EvosAttacksPointers
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld a, BANK(EvosAttacksPointers)
|
||||
call GetFarHalfword
|
||||
.loop3
|
||||
|
||||
@ -71,9 +71,8 @@ _CardFlip: ; e00ee (38:40ee)
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, .Jumptable
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
@ -276,9 +275,8 @@ endr
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, wDeck
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
ld a, [wCardFlipWhichCard]
|
||||
ld e, a
|
||||
add hl, de
|
||||
@ -442,9 +440,8 @@ CardFlip_DisplayCardFaceUp: ; e03ec
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, .Deck
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
ld a, [hli]
|
||||
ld e, a
|
||||
ld d, [hl]
|
||||
@ -675,9 +672,8 @@ CardFlip_BlankDiscardedCardSlot: ; e0534
|
||||
and a
|
||||
jr nz, .discarded2
|
||||
hlcoord 13, 3
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $36
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -686,9 +682,8 @@ endr
|
||||
|
||||
.discarded2
|
||||
hlcoord 13, 3
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $36
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -703,9 +698,8 @@ endr
|
||||
and a
|
||||
jr nz, .discarded1
|
||||
hlcoord 13, 4
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $3b
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -714,9 +708,8 @@ endr
|
||||
|
||||
.discarded1
|
||||
hlcoord 13, 4
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $3d
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -731,9 +724,8 @@ endr
|
||||
and a
|
||||
jr nz, .discarded4
|
||||
hlcoord 13, 6
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $36
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -742,9 +734,8 @@ endr
|
||||
|
||||
.discarded4
|
||||
hlcoord 13, 6
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $36
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -759,9 +750,8 @@ endr
|
||||
and a
|
||||
jr nz, .discarded3
|
||||
hlcoord 13, 7
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $3c
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -770,9 +760,8 @@ endr
|
||||
|
||||
.discarded3
|
||||
hlcoord 13, 7
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $3d
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -787,9 +776,8 @@ endr
|
||||
and a
|
||||
jr nz, .discarded6
|
||||
hlcoord 13, 9
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $36
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -798,9 +786,8 @@ endr
|
||||
|
||||
.discarded6
|
||||
hlcoord 13, 9
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $36
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -815,9 +802,8 @@ endr
|
||||
and a
|
||||
jr nz, .discarded5
|
||||
hlcoord 13, 10
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $3c
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -826,9 +812,8 @@ endr
|
||||
|
||||
.discarded5
|
||||
hlcoord 13, 10
|
||||
rept 2
|
||||
add hl, bc
|
||||
endr
|
||||
add hl, bc
|
||||
ld [hl], $3d
|
||||
ld bc, SCREEN_WIDTH
|
||||
add hl, bc
|
||||
@ -1296,9 +1281,8 @@ ChooseCard_HandleJoypad: ; e089c
|
||||
ld [hl], a
|
||||
cp $3
|
||||
jr c, .left_to_number_gp
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
jp .play_sound
|
||||
|
||||
.left_to_number_gp
|
||||
@ -1326,9 +1310,8 @@ endr
|
||||
ld [hl], a
|
||||
cp $4
|
||||
ret nc
|
||||
rept 2
|
||||
inc [hl]
|
||||
endr
|
||||
inc [hl]
|
||||
jr .play_sound
|
||||
|
||||
.d_up ; e090a
|
||||
@ -1357,9 +1340,8 @@ endr
|
||||
ld [hl], a
|
||||
cp $3
|
||||
jr c, .up_to_mon_group
|
||||
rept 2
|
||||
dec [hl]
|
||||
endr
|
||||
dec [hl]
|
||||
jr .play_sound
|
||||
|
||||
.up_to_mon_group
|
||||
@ -1387,9 +1369,8 @@ endr
|
||||
ld [hl], a
|
||||
cp $6
|
||||
ret nc
|
||||
rept 2
|
||||
inc [hl]
|
||||
endr
|
||||
inc [hl]
|
||||
|
||||
.play_sound ; e0959
|
||||
ld de, SFX_POKEBALLS_PLACED_ON_TABLE
|
||||
@ -1408,9 +1389,8 @@ CardFlip_UpdateCursorOAM: ; e0960
|
||||
|
||||
.skip
|
||||
call CollapseCursorPosition
|
||||
rept 2
|
||||
add hl, hl
|
||||
endr
|
||||
add hl, hl
|
||||
ld de, .OAMData
|
||||
add hl, de
|
||||
ld a, [hli]
|
||||
|
||||
@ -258,9 +258,8 @@ Credits_Jumptable: ; 109926
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, .Jumptable
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
ld a, [hli]
|
||||
ld h, [hl]
|
||||
ld l, a
|
||||
@ -326,9 +325,8 @@ Credits_LYOverride: ; 109986 (42:5986)
|
||||
cp $30
|
||||
jr c, Credits_LYOverride
|
||||
ld a, [wCreditsLYOverride]
|
||||
rept 2
|
||||
dec a
|
||||
endr
|
||||
dec a
|
||||
ld [wCreditsLYOverride], a
|
||||
ld hl, LYOverrides + $1f
|
||||
call .Fill
|
||||
@ -398,9 +396,8 @@ ParseCredits: ; 1099aa
|
||||
ld e, a
|
||||
ld d, 0
|
||||
ld hl, CreditsStrings
|
||||
rept 2
|
||||
add hl, de
|
||||
endr
|
||||
add hl, de
|
||||
ld a, [hli]
|
||||
ld d, [hl]
|
||||
ld e, a
|
||||
@ -741,9 +738,8 @@ Credits_LoadBorderGFX: ; 109bca (42:5bca)
|
||||
ld [hl], a
|
||||
ld a, [wCreditsBorderMon]
|
||||
and 3
|
||||
rept 2
|
||||
add a
|
||||
endr
|
||||
add a
|
||||
add e
|
||||
add a
|
||||
ld e, a
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
x
Reference in New Issue
Block a user