First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

engine/items/items.asm

@@ -0,0 +1,560 @@
+_ReceiveItem::
+	call DoesHLEqualNumItems
+	jp nz, PutItemInPocket
+	push hl
+	call CheckItemPocket
+	pop de
+	ld a, [wItemAttributeValue]
+	dec a
+	ld hl, .Pockets
+	rst JumpTable
+	ret
+
+.Pockets:
+; entries correspond to item types
+	dw .Item
+	dw .KeyItem
+	dw .Ball
+	dw .TMHM
+
+.Item:
+	ld h, d
+	ld l, e
+	jp PutItemInPocket
+
+.KeyItem:
+	ld h, d
+	ld l, e
+	jp ReceiveKeyItem
+
+.Ball:
+	ld hl, wNumBalls
+	jp PutItemInPocket
+
+.TMHM:
+	ld h, d
+	ld l, e
+	ld a, [wCurItem]
+	ld c, a
+	call GetTMHMNumber
+	jp ReceiveTMHM
+
+_TossItem::
+	call DoesHLEqualNumItems
+	jr nz, .remove
+	push hl
+	call CheckItemPocket
+	pop de
+	ld a, [wItemAttributeValue]
+	dec a
+	ld hl, .Pockets
+	rst JumpTable
+	ret
+
+.Pockets:
+; entries correspond to item types
+	dw .Item
+	dw .KeyItem
+	dw .Ball
+	dw .TMHM
+
+.Ball:
+	ld hl, wNumBalls
+	jp RemoveItemFromPocket
+
+.TMHM:
+	ld h, d
+	ld l, e
+	ld a, [wCurItem]
+	ld c, a
+	call GetTMHMNumber
+	jp TossTMHM
+
+.KeyItem:
+	ld h, d
+	ld l, e
+	jp TossKeyItem
+
+.Item:
+	ld h, d
+	ld l, e
+
+.remove
+	jp RemoveItemFromPocket
+
+_CheckItem::
+	call DoesHLEqualNumItems
+	jr nz, .nope
+	push hl
+	call CheckItemPocket
+	pop de
+	ld a, [wItemAttributeValue]
+	dec a
+	ld hl, .Pockets
+	rst JumpTable
+	ret
+
+.Pockets:
+; entries correspond to item types
+	dw .Item
+	dw .KeyItem
+	dw .Ball
+	dw .TMHM
+
+.Ball:
+	ld hl, wNumBalls
+	jp CheckTheItem
+
+.TMHM:
+	ld h, d
+	ld l, e
+	ld a, [wCurItem]
+	ld c, a
+	call GetTMHMNumber
+	jp CheckTMHM
+
+.KeyItem:
+	ld h, d
+	ld l, e
+	jp CheckKeyItems
+
+.Item:
+	ld h, d
+	ld l, e
+
+.nope
+	jp CheckTheItem
+
+DoesHLEqualNumItems:
+	ld a, l
+	cp LOW(wNumItems)
+	ret nz
+	ld a, h
+	cp HIGH(wNumItems)
+	ret
+
+GetPocketCapacity:
+	ld c, MAX_ITEMS
+	ld a, e
+	cp LOW(wNumItems)
+	jr nz, .not_bag
+	ld a, d
+	cp HIGH(wNumItems)
+	ret z
+
+.not_bag
+	ld c, MAX_PC_ITEMS
+	ld a, e
+	cp LOW(wNumPCItems)
+	jr nz, .not_pc
+	ld a, d
+	cp HIGH(wNumPCItems)
+	ret z
+
+.not_pc
+	ld c, MAX_BALLS
+	ret
+
+PutItemInPocket:
+	ld d, h
+	ld e, l
+	inc hl
+	ld a, [wCurItem]
+	ld c, a
+	ld b, 0
+.loop
+	ld a, [hli]
+	cp -1
+	jr z, .terminator
+	cp c
+	jr nz, .next
+	ld a, MAX_ITEM_STACK
+	sub [hl]
+	add b
+	ld b, a
+	ld a, [wItemQuantityChange]
+	cp b
+	jr z, .ok
+	jr c, .ok
+
+.next
+	inc hl
+	jr .loop
+
+.terminator
+	call GetPocketCapacity
+	ld a, [de]
+	cp c
+	jr c, .ok
+	and a
+	ret
+
+.ok
+	ld h, d
+	ld l, e
+	ld a, [wCurItem]
+	ld c, a
+	ld a, [wItemQuantityChange]
+	ld [wItemQuantity], a
+.loop2
+	inc hl
+	ld a, [hli]
+	cp -1
+	jr z, .terminator2
+	cp c
+	jr nz, .loop2
+	ld a, [wItemQuantity]
+	add [hl]
+	cp MAX_ITEM_STACK + 1
+	jr nc, .newstack
+	ld [hl], a
+	jr .done
+
+.newstack
+	ld [hl], MAX_ITEM_STACK
+	sub MAX_ITEM_STACK
+	ld [wItemQuantity], a
+	jr .loop2
+
+.terminator2
+	dec hl
+	ld a, [wCurItem]
+	ld [hli], a
+	ld a, [wItemQuantity]
+	ld [hli], a
+	ld [hl], -1
+	ld h, d
+	ld l, e
+	inc [hl]
+
+.done
+	scf
+	ret
+
+RemoveItemFromPocket:
+	ld d, h
+	ld e, l
+	ld a, [hli]
+	ld c, a
+	ld a, [wCurItemQuantity]
+	cp c
+	jr nc, .ok ; memory
+	ld c, a
+	ld b, 0
+	add hl, bc
+	add hl, bc
+	ld a, [wCurItem]
+	cp [hl]
+	inc hl
+	jr z, .skip
+	ld h, d
+	ld l, e
+	inc hl
+
+.ok
+	ld a, [wCurItem]
+	ld b, a
+.loop
+	ld a, [hli]
+	cp b
+	jr z, .skip
+	cp -1
+	jr z, .nope
+	inc hl
+	jr .loop
+
+.skip
+	ld a, [wItemQuantityChange]
+	ld b, a
+	ld a, [hl]
+	sub b
+	jr c, .nope
+	ld [hl], a
+	ld [wItemQuantity], a
+	and a
+	jr nz, .yup
+	dec hl
+	ld b, h
+	ld c, l
+	inc hl
+	inc hl
+.loop2
+	ld a, [hli]
+	ld [bc], a
+	inc bc
+	cp -1
+	jr nz, .loop2
+	ld h, d
+	ld l, e
+	dec [hl]
+
+.yup
+	scf
+	ret
+
+.nope
+	and a
+	ret
+
+CheckTheItem:
+	ld a, [wCurItem]
+	ld c, a
+.loop
+	inc hl
+	ld a, [hli]
+	cp -1
+	jr z, .done
+	cp c
+	jr nz, .loop
+	scf
+	ret
+
+.done
+	and a
+	ret
+
+ReceiveKeyItem:
+	ld hl, wNumKeyItems
+	ld a, [hli]
+	cp MAX_KEY_ITEMS
+	jr nc, .nope
+	ld c, a
+	ld b, 0
+	add hl, bc
+	ld a, [wCurItem]
+	ld [hli], a
+	ld [hl], -1
+	ld hl, wNumKeyItems
+	inc [hl]
+	scf
+	ret
+
+.nope
+	and a
+	ret
+
+TossKeyItem:
+	ld a, [wCurItemQuantity]
+	ld e, a
+	ld d, 0
+	ld hl, wNumKeyItems
+	ld a, [hl]
+	cp e
+	jr nc, .ok
+	call .Toss
+	ret nc
+	jr .ok2
+
+.ok
+	dec [hl]
+	inc hl
+	add hl, de
+
+.ok2
+	ld d, h
+	ld e, l
+	inc hl
+.loop
+	ld a, [hli]
+	ld [de], a
+	inc de
+	cp -1
+	jr nz, .loop
+	scf
+	ret
+
+.Toss:
+	ld hl, wNumKeyItems
+	ld a, [wCurItem]
+	ld c, a
+.loop3
+	inc hl
+	ld a, [hl]
+	cp c
+	jr z, .ok3
+	cp -1
+	jr nz, .loop3
+	xor a
+	ret
+
+.ok3
+	ld a, [wNumKeyItems]
+	dec a
+	ld [wNumKeyItems], a
+	scf
+	ret
+
+CheckKeyItems:
+	ld a, [wCurItem]
+	ld c, a
+	ld hl, wKeyItems
+.loop
+	ld a, [hli]
+	cp c
+	jr z, .done
+	cp -1
+	jr nz, .loop
+	and a
+	ret
+
+.done
+	scf
+	ret
+
+ReceiveTMHM:
+	dec c
+	ld b, 0
+	ld hl, wTMsHMs
+	add hl, bc
+	ld a, [wItemQuantityChange]
+	add [hl]
+	cp MAX_ITEM_STACK + 1
+	jr nc, .toomany
+	ld [hl], a
+	scf
+	ret
+
+.toomany
+	and a
+	ret
+
+TossTMHM:
+	dec c
+	ld b, 0
+	ld hl, wTMsHMs
+	add hl, bc
+	ld a, [wItemQuantityChange]
+	ld b, a
+	ld a, [hl]
+	sub b
+	jr c, .nope
+	ld [hl], a
+	ld [wItemQuantity], a
+	jr nz, .yup
+	ld a, [wTMHMPocketScrollPosition]
+	and a
+	jr z, .yup
+	dec a
+	ld [wTMHMPocketScrollPosition], a
+
+.yup
+	scf
+	ret
+
+.nope
+	and a
+	ret
+
+CheckTMHM:
+	dec c
+	ld b, $0
+	ld hl, wTMsHMs
+	add hl, bc
+	ld a, [hl]
+	and a
+	ret z
+	scf
+	ret
+
+GetTMHMNumber::
+; Return the number of a TM/HM by item id c.
+	ld a, c
+	sub TM01 - 1
+	ld c, a
+	ret
+
+GetNumberedTMHM:
+; Return the item id of a TM/HM by number c.
+	ld a, c
+	add a, TM01 - 1
+	ld c, a
+	ret
+
+_CheckTossableItem::
+; Return 1 in wItemAttributeValue and carry if wCurItem can't be removed from the bag.
+	ld a, ITEMATTR_PERMISSIONS
+	call GetItemAttr
+	bit CANT_TOSS_F, a
+	jr nz, ItemAttr_ReturnCarry
+	and a
+	ret
+
+CheckSelectableItem:
+; Return 1 in wItemAttributeValue and carry if wCurItem can't be selected.
+	ld a, ITEMATTR_PERMISSIONS
+	call GetItemAttr
+	bit CANT_SELECT_F, a
+	jr nz, ItemAttr_ReturnCarry
+	and a
+	ret
+
+CheckItemPocket::
+; Return the pocket for wCurItem in wItemAttributeValue.
+	ld a, ITEMATTR_POCKET
+	call GetItemAttr
+	and $f
+	ld [wItemAttributeValue], a
+	ret
+
+CheckItemContext:
+; Return the context for wCurItem in wItemAttributeValue.
+	ld a, ITEMATTR_HELP
+	call GetItemAttr
+	and $f
+	ld [wItemAttributeValue], a
+	ret
+
+CheckItemMenu:
+; Return the menu for wCurItem in wItemAttributeValue.
+	ld a, ITEMATTR_HELP
+	call GetItemAttr
+	swap a
+	and $f
+	ld [wItemAttributeValue], a
+	ret
+
+GetItemAttr:
+; Get attribute a of wCurItem.
+
+	push hl
+	push bc
+
+	ld hl, ItemAttributes
+	ld c, a
+	ld b, 0
+	add hl, bc
+
+	xor a
+	ld [wItemAttributeValue], a
+
+	ld a, [wCurItem]
+	dec a
+	ld c, a
+	ld a, ITEMATTR_STRUCT_LENGTH
+	call AddNTimes
+	ld a, BANK(ItemAttributes)
+	call GetFarByte
+
+	pop bc
+	pop hl
+	ret
+
+ItemAttr_ReturnCarry:
+	ld a, 1
+	ld [wItemAttributeValue], a
+	scf
+	ret
+
+GetItemPrice:
+; Return the price of wCurItem in de.
+	push hl
+	push bc
+	ld a, ITEMATTR_PRICE_LO
+	call GetItemAttr
+	ld e, a
+	ld a, ITEMATTR_PRICE_HI
+	call GetItemAttr
+	ld d, a
+	pop bc
+	pop hl
+	ret