1 files changed, 182 insertions, 0 deletions
diff --git a/src/engine/starter_deck.asm b/src/engine/starter_deck.asm
new file mode 100644
index 0000000..0500b4a
--- /dev/null
+++ b/src/engine/starter_deck.asm
@@ -0,0 +1,182 @@
+; adds the chosen starter deck to the player's first deck configuration
+; and also adds to the collection its corresponding extra cards
+; input:
+; - a = starter deck chosen
+;   $0 = Charmander
+;   $1 = Squirtle
+;   $2 = Bulbasaur
+_AddStarterDeck:
+	add a
+	ld e, a
+	ld d, 0
+	ld hl, .StarterCardIDs
+	add hl, de
+	ld a, PLAYER_TURN
+	ldh [hWhoseTurn], a
+	ld a, [hli] ; main deck
+	add 2
+	push hl
+	ld hl, sDeck1
+	call CopyDeckNameAndCards
+	pop hl
+	call SwapTurn
+	ld a, [hli] ; extra deck
+	add 2
+	call LoadDeck
+	call SwapTurn
+
+; wPlayerDeck = main starter deck
+; wOpponentDeck = extra cards
+	call EnableSRAM
+	ld h, HIGH(sCardCollection)
+	ld de, wPlayerDeck
+	ld c, DECK_SIZE
+.loop_main_cards
+	ld a, [de]
+	inc de
+	ld l, a
+	res CARD_NOT_OWNED_F, [hl]
+	dec c
+	jr nz, .loop_main_cards
+
+	ld h, HIGH(sCardCollection)
+	ld de, wOpponentDeck
+	ld c, 30 ; number of extra cards
+.loop_extra_cards
+	ld a, [de]
+	inc de
+	ld l, a
+	res CARD_NOT_OWNED_F, [hl]
+	inc [hl]
+	dec c
+	jr nz, .loop_extra_cards
+	call DisableSRAM
+	ret
+
+.StarterCardIDs
+	; main deck, extra cards
+	db CHARMANDER_AND_FRIENDS_DECK_ID, CHARMANDER_EXTRA_DECK_ID
+	db SQUIRTLE_AND_FRIENDS_DECK_ID,   SQUIRTLE_EXTRA_DECK_ID
+	db BULBASAUR_AND_FRIENDS_DECK_ID,  BULBASAUR_EXTRA_DECK_ID
+
+; clears saved data (card Collection/saved decks/Card Pop! data/etc)
+; then adds the starter decks as saved decks
+; marks all cards in Collection as not owned
+InitSaveData:
+; clear card and deck save data
+	call EnableSRAM
+	ld a, PLAYER_TURN
+	ldh [hWhoseTurn], a
+	ld hl, sCardAndDeckSaveData
+	ld bc, sCardAndDeckSaveDataEnd - sCardAndDeckSaveData
+.loop_clear
+	xor a
+	ld [hli], a
+	dec bc
+	ld a, c
+	or b
+	jr nz, .loop_clear
+
+; add the starter decks
+	ld a, CHARMANDER_AND_FRIENDS_DECK
+	ld hl, sSavedDeck1
+	call CopyDeckNameAndCards
+	ld a, SQUIRTLE_AND_FRIENDS_DECK
+	ld hl, sSavedDeck2
+	call CopyDeckNameAndCards
+	ld a, BULBASAUR_AND_FRIENDS_DECK
+	ld hl, sSavedDeck3
+	call CopyDeckNameAndCards
+
+; marks all cards in Collection to not owned
+	call EnableSRAM
+	ld hl, sCardCollection
+	ld a, CARD_NOT_OWNED
+.loop_collection
+	ld [hl], a
+	inc l
+	jr nz, .loop_collection
+
+	ld hl, sCurrentDuel
+	xor a
+	ld [hli], a
+	ld [hli], a ; sCurrentDuelChecksum
+	ld [hl], a
+
+; clears Card Pop! names
+	ld hl, sCardPopNameList
+	ld c, CARDPOP_NAME_LIST_MAX_ELEMS
+.loop_card_pop_names
+	ld [hl], $0
+	ld de, NAME_BUFFER_LENGTH
+	add hl, de
+	dec c
+	jr nz, .loop_card_pop_names
+
+; saved configuration options
+	ld a, 2
+	ld [sPrinterContrastLevel], a
+	ld a, $2
+	ld [sTextSpeed], a
+	ld [wTextSpeed], a
+
+; miscellaneous data
+	xor a
+	ld [sAnimationsDisabled], a
+	ld [sSkipDelayAllowed], a
+	ld [s0a004], a
+	ld [sTotalCardPopsDone], a
+	ld [sReceivedLegendaryCards], a
+	farcall InitPromotionalCardAndDeckCounterSaveData
+	call DisableSRAM
+	ret
+
+; input:
+;    a = Deck ID
+;    hl = destination to copy
+CopyDeckNameAndCards:
+	push de
+	push bc
+	push hl
+	call LoadDeck
+	jr c, .done
+	call .CopyDeckName
+	pop hl
+	call EnableSRAM
+	push hl
+	ld de, wDefaultText
+.loop_write_name
+	ld a, [de]
+	inc de
+	ld [hli], a
+	or a
+	jr nz, .loop_write_name
+	pop hl
+
+	push hl
+	ld de, DECK_NAME_SIZE
+	add hl, de
+	ld de, wPlayerDeck
+	ld c, DECK_SIZE
+.loop_write_cards
+	ld a, [de]
+	inc de
+	ld [hli], a
+	dec c
+	jr nz, .loop_write_cards
+	call DisableSRAM
+	or a
+.done
+	pop hl
+	pop bc
+	pop de
+	ret
+
+.CopyDeckName
+	ld hl, wDeckName
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ld de, wDefaultText
+	call CopyText
+	ret