pokecrystal-board/engine/battle/move_effects/thief.asm

113 lines
1.3 KiB
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
BattleCommand_Thief:
2013-12-01 11:19:57 -08:00
; thief
ldh a, [hBattleTurn]
2013-12-01 11:19:57 -08:00
and a
jr nz, .enemy
; The player needs to be able to steal an item.
call .playeritem
ld a, [hl]
and a
ret nz
; The enemy needs to have an item to steal.
call .enemyitem
ld a, [hl]
and a
ret z
; Can't steal mail.
ld [wNamedObjectIndexBuffer], a
2013-12-01 11:19:57 -08:00
ld d, a
2017-12-24 09:47:30 -08:00
farcall ItemIsMail
2013-12-01 11:19:57 -08:00
ret c
2018-01-23 14:39:09 -08:00
ld a, [wEffectFailed]
2013-12-01 11:19:57 -08:00
and a
ret nz
ld a, [wLinkMode]
2013-12-01 11:19:57 -08:00
and a
jr z, .stealenemyitem
ld a, [wBattleMode]
2013-12-01 11:19:57 -08:00
dec a
ret z
.stealenemyitem
call .enemyitem
xor a
ld [hl], a
ld [de], a
call .playeritem
ld a, [wNamedObjectIndexBuffer]
2013-12-01 11:19:57 -08:00
ld [hl], a
ld [de], a
jr .stole
.enemy
; The enemy can't already have an item.
call .enemyitem
ld a, [hl]
and a
ret nz
; The player must have an item to steal.
call .playeritem
ld a, [hl]
and a
ret z
; Can't steal mail!
ld [wNamedObjectIndexBuffer], a
2013-12-01 11:19:57 -08:00
ld d, a
2017-12-24 09:47:30 -08:00
farcall ItemIsMail
2013-12-01 11:19:57 -08:00
ret c
2018-01-23 14:39:09 -08:00
ld a, [wEffectFailed]
2013-12-01 11:19:57 -08:00
and a
ret nz
; If the enemy steals your item,
; it's gone for good if you don't get it back.
call .playeritem
xor a
ld [hl], a
ld [de], a
call .enemyitem
ld a, [wNamedObjectIndexBuffer]
2013-12-01 11:19:57 -08:00
ld [hl], a
ld [de], a
.stole
call GetItemName
ld hl, StoleText
jp StdBattleTextBox
.playeritem
ld a, 1
call BattlePartyAttr
ld d, h
ld e, l
2018-01-23 14:39:09 -08:00
ld hl, wBattleMonItem
2013-12-01 11:19:57 -08:00
ret
.enemyitem
ld a, 1
call OTPartyAttr
ld d, h
ld e, l
2018-01-23 14:39:09 -08:00
ld hl, wEnemyMonItem
2013-12-01 11:19:57 -08:00
ret