1 files changed, 130 insertions, 0 deletions
diff --git a/home/items.asm b/home/items.asm
new file mode 100755
index 0000000..36abfb7
--- /dev/null
+++ b/home/items.asm
@@ -0,0 +1,130 @@
+INCLUDE "constants.asm"
+
+SECTION "AddItemToInventory", ROM0[$3259]
+
+; function to add an item (in varying quantities) to the player's bag or PC box
+; INPUT:
+; HL = address of inventory (either wNumBagItems or wNumBoxItems)
+; [wcd76] = item ID
+; [wItemQuantity] = item quantity
+; sets carry flag if successful, unsets carry flag if unsuccessful
+AddItemToInventory:: ; 3259
+    push bc
+    ldh a, [hROMBank]
+    push af
+    ld a, BANK(AddItemToInventory_)
+    call Bankswitch
+    push hl
+    push de
+    call AddItemToInventory_
+    pop de
+    pop hl
+    pop bc
+    ld a, b
+    call Bankswitch
+    pop bc
+    ret
+
+SECTION "GiveItem", ROM0[$366C]
+
+GiveItem::
+; Give player quantity c of item b,
+; and copy the item's name to wcf4b.
+; Return carry on success.
+    ld a, b
+    ld [wce37], a
+    ld [wcd76], a
+    ld a, c
+    ld [wItemQuantity], a
+    ld hl, wNumBagItems
+    call AddItemToInventory
+    ret nc
+    call GetItemName
+    call CopyStringToCD31
+    scf
+    ret
+    
+SECTION "GetItemName", ROM0[$376F]
+
+GetItemName:: ; 376F
+; given an item ID at [wce37], store the name of the item into a string
+;     starting at wcd26
+    push hl
+    push bc
+    ld a, [wce37]
+    cp ITEM_HM01
+    jr nc, .Machine
+
+    ld [wcb5b], a
+    ld a, ITEM_NAME
+    ld [wNameCategory], a
+    call GetName
+    jr .Finish
+
+.Machine
+    call GetMachineName
+.Finish
+    ld de, wcd26 ; pointer to where item name is stored in RAM
+    pop bc
+    pop hl
+    ret
+    
+SECTION "GetMachineName", ROM0[$378E]
+
+GetMachineName::
+; copies the name of the TM/HM in [wce37] to wcd26
+    push hl
+    push de
+    push bc
+    ld a, [wce37]
+    push af
+    cp ITEM_TM01
+    jr nc, .WriteTM
+; if HM, then write "HM" and add 5 to the item ID, so we can reuse the
+; TM printing code
+    add 5
+    ld [wce37], a
+    ld hl, HiddenPrefix
+    ld bc, 6
+    jr .WriteMachinePrefix
+.WriteTM
+    ld hl, TechnicalPrefix
+    ld bc, 5
+.WriteMachinePrefix
+    ld de, wcd26
+    call CopyBytes
+    
+; now get the machine number and convert it to text
+    ld a, [wce37]
+    sub ITEM_TM01 - 1
+    ld b, "0"
+.FirstDigit
+    sub 10
+    jr c, .SecondDigit
+    inc b
+    jr .FirstDigit
+.SecondDigit
+    add 10
+    push af
+    ld a, b
+    ld [de], a
+    inc de
+    pop af
+    ld b, "0"
+    add b
+    ld [de], a
+    inc de
+    ld a, "@"
+    ld [de], a
+    pop af
+    ld [wce37], a
+    pop bc
+    pop de
+    pop hl
+    ret
+    
+TechnicalPrefix:
+    db "わざマシン@"
+    
+HiddenPrefix:
+    db "ひでんマシン@"
+\ No newline at end of file