First Commit

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

engine/events/battle_tower/get_trainer_class.asm

@@ -0,0 +1,46 @@
+GetMobileOTTrainerClass: ; mobile function
+	ld h, b
+	ld l, c
+	call .GetMobileOTTrainerClass
+	ld c, a
+	ret
+
+.GetMobileOTTrainerClass:
+	ld a, [hli]
+	xor [hl]
+	ld c, a
+	jr z, .skip_male_trainers
+	srl c
+	srl c
+.male_trainer_loop
+	srl c
+	ld a, c
+	cp MaleTrainers.End - MaleTrainers - 1
+	jr nc, .male_trainer_loop
+	inc c
+
+.skip_male_trainers
+	ld a, [de]
+	cp FEMALE
+	ld hl, MaleTrainers
+	jr nz, .finished
+
+	ld hl, FemaleTrainers
+	ld a, c
+	and a
+	jr z, .finished
+
+.female_trainer_loop
+	srl c
+	ld a, c
+	cp FemaleTrainers.End - FemaleTrainers - 1
+	jr nc, .female_trainer_loop
+	inc c
+
+.finished
+	ld b, $0
+	add hl, bc
+	ld a, [hl]
+	ret
+
+INCLUDE "data/trainers/gendered_trainers.asm"

engine/events/battle_tower/load_trainer.asm

@@ -0,0 +1,251 @@
+LoadOpponentTrainerAndPokemon:
+	ldh a, [rSVBK]
+	push af
+	ld a, BANK(wBT_OTTrainer)
+	ldh [rSVBK], a
+
+	; Fill wBT_OTTrainer with zeros
+	xor a
+	ld hl, wBT_OTTrainer
+	ld bc, BATTLE_TOWER_STRUCT_LENGTH
+	call ByteFill
+
+	; Write $ff into the Item-Slots
+	ld a, $ff
+	ld [wBT_OTMon1Item], a
+	ld [wBT_OTMon2Item], a
+	ld [wBT_OTMon3Item], a
+
+	; Set wBT_OTTrainer as start address to write the following data to
+	ld de, wBT_OTTrainer
+
+	ldh a, [hRandomAdd]
+	ld b, a
+.resample ; loop to find a random trainer
+	call Random
+	ldh a, [hRandomAdd]
+	add b
+	ld b, a ; b contains the nr of the trainer
+	maskbits BATTLETOWER_NUM_UNIQUE_TRAINERS
+	cp BATTLETOWER_NUM_UNIQUE_TRAINERS
+	jr nc, .resample
+	ld b, a
+
+	ld a, BANK(sBTTrainers)
+	call OpenSRAM
+
+	ld c, BATTLETOWER_STREAK_LENGTH
+	ld hl, sBTTrainers
+.next_trainer
+	ld a, [hli]
+	cp b
+	jr z, .resample
+	dec c
+	jr nz, .next_trainer ; c <= 7  initialise all 7 trainers?
+
+	ld hl, sBTTrainers
+	ld a, [sNrOfBeatenBattleTowerTrainers]
+	ld c, a
+	ld a, b
+	ld b, 0
+	add hl, bc
+	ld [hl], a
+
+	call CloseSRAM
+
+	push af
+; Copy name (10 bytes) and class (1 byte) of trainer
+	ld hl, BattleTowerTrainers
+	ld bc, NAME_LENGTH
+	call AddNTimes
+	ld bc, NAME_LENGTH
+	call CopyBytes
+
+	call LoadRandomBattleTowerMon
+	pop af
+
+	ld hl, BattleTowerTrainerData
+	ld bc, BATTLETOWER_TRAINERDATALENGTH
+	call AddNTimes
+	ld bc, BATTLETOWER_TRAINERDATALENGTH
+.copy_bt_trainer_data_loop
+	ld a, BANK(BattleTowerTrainerData)
+	call GetFarByte
+	ld [de], a
+	inc hl
+	inc de
+	dec bc
+	ld a, b
+	or c
+	jr nz, .copy_bt_trainer_data_loop
+
+	pop af
+	ldh [rSVBK], a
+
+	ret
+
+LoadRandomBattleTowerMon:
+	ld c, BATTLETOWER_PARTY_LENGTH
+.loop
+	push bc
+	ld a, BANK(sBTMonOfTrainers)
+	call OpenSRAM
+
+.FindARandomBattleTowerMon:
+	; a = 1, 2, ..., 10 indicating level 10, 20, ..., 100 opponents
+	ld a, [wBTChoiceOfLvlGroup]
+	dec a
+	ld hl, BattleTowerMons
+	ld bc, BATTLETOWER_NUM_UNIQUE_MON * (NICKNAMED_MON_STRUCT_LENGTH + 5)
+	call AddNTimes
+
+	ldh a, [hRandomAdd]
+	ld b, a
+.resample
+	call Random
+	ldh a, [hRandomAdd]
+	add b
+	ld b, a
+	maskbits BATTLETOWER_NUM_UNIQUE_MON
+	cp BATTLETOWER_NUM_UNIQUE_MON
+	jr nc, .resample
+	ld bc, NICKNAMED_MON_STRUCT_LENGTH + 5
+	call AddNTimes
+
+	; hl = pointer to the mon that will be loaded (1 byte species, 1 byte item, 2 -> 1 byte each move, NICKNAMED_MON_STRUCT_LENGTH - 6 bytes data)
+	ld a, [hli]
+	ld c, a
+	ld a, [hli]
+	ld b, a
+	push hl
+	push de
+	; check if it matches any of the previous two trainers' chosen Pokémon (six Pokémon in total)
+	ld e, 6
+	ld hl, sBTMonPrevTrainer1
+.check_previous_mons_loop
+	ld a, [hli]
+	cp c
+	ld a, [hli]
+	jr nz, .check_previous_mons_next
+	cp b
+	jr z, .pop_and_retry
+.check_previous_mons_next
+	dec e
+	jr nz, .check_previous_mons_loop
+	ld h, b
+	ld l, c
+	call GetPokemonIDFromIndex
+	ld hl, wTempSpecies
+	ld [hl], a
+	; check if it matches any of the current trainer's first two Pokémon (no need to check for the last one)
+	ld a, [wBT_OTMon1]
+	cp [hl]
+	jr z, .pop_and_retry
+	ld a, [wBT_OTMon2]
+.pop_and_retry
+	pop de
+	pop hl
+	jr z, .FindARandomBattleTowerMon
+
+	; check if the held item matches any of the current trainer's first two Pokémon's held items
+	ld a, [wBT_OTMon1Item]
+	cp [hl]
+	jr z, .FindARandomBattleTowerMon
+	ld a, [wBT_OTMon2Item]
+	cp [hl]
+	jr z, .FindARandomBattleTowerMon
+
+	; reserve and load the converted species from wTempSpecies, manually load item and moves, and copy everything else
+	push hl
+	ld l, LOCKED_MON_ID_BATTLE_TOWER_1
+	; LOCKED_MOVE_ID_BATTLE_TOWER_MON1_MOVE1 rotated right 2
+	ld c, (LOCKED_MOVE_ID_BATTLE_TOWER_MON1_MOVE1 >> 2) | ((LOCKED_MOVE_ID_BATTLE_TOWER_MON1_MOVE1 & 3) << 6)
+	ld a, e
+	; assume that NICKNAMED_MON_STRUCT_LENGTH is not a multiple of $80 (it's actually far less than $80)
+	cp LOW(wBT_OTMon1)
+	jr z, .got_index
+	inc l
+	inc c
+	cp LOW(wBT_OTMon2)
+	jr z, .got_index
+	inc l
+	inc c
+.got_index
+	ld a, [wTempSpecies]
+	ld [de], a
+	inc de
+	call LockPokemonID
+	pop hl
+	; item
+	ld a, [hli]
+	ld [de], a
+	inc de
+	; moves
+	ld b, NUM_MOVES
+	rlc c
+	rlc c
+.move_loop
+	ld a, [hli]
+	push hl
+	ld h, [hl]
+	ld l, a
+	call GetMoveIDFromIndex
+	ld [de], a
+	inc de
+	ld l, c
+	call LockMoveID
+	inc c
+	pop hl
+	inc hl
+	dec b
+	jr nz, .move_loop
+	ld c, NICKNAMED_MON_STRUCT_LENGTH - 6
+	call CopyBytes
+
+	; rename the Pokémon to its default name (overriding the transliterated Japanese nicknames)
+	push de
+	ld hl, -MON_NAME_LENGTH
+	add hl, de
+	push hl
+	; wNamedObjectIndexBuffer = wTempSpecies
+	call GetPokemonName
+	ld h, d
+	ld l, e
+	pop de
+	ld bc, MON_NAME_LENGTH
+	call CopyBytes
+	pop de
+
+	pop bc
+	dec c
+	jp nz, .loop
+
+	push de
+	ld hl, sBTMonPrevTrainer1
+	ld de, sBTMonPrevPrevTrainer1
+	ld bc, 6
+	push hl
+	call CopyBytes
+	pop de
+	ld a, [wBT_OTMon1]
+	call .store_index
+	ld a, [wBT_OTMon2]
+	call .store_index
+	ld a, [wBT_OTMon3]
+	call .store_index
+	pop de
+	jp CloseSRAM
+
+.store_index
+	call GetPokemonIndexFromID
+	ld a, l
+	ld [de], a
+	inc de
+	ld a, h
+	ld [de], a
+	inc de
+	ret
+
+INCLUDE "data/battle_tower/classes.asm"
+
+INCLUDE "data/battle_tower/parties.asm"

engine/events/battle_tower/rules.asm

@@ -0,0 +1,299 @@
+CheckForMobileBattleRules:
+	ld de, .PointerTables
+	call BattleTower_ExecuteJumptable
+	ret z
+	call BattleTower_PleaseReturnWhenReady
+	scf
+	ret
+
+.PointerTables:
+	db 2
+	dw .Functions
+	dw .TextPointers
+
+.Functions:
+	dw BattleTower_CheckPartyLengthIs3
+	dw BattleTower_CheckPartyHasThreeMonsThatAreNotEggs
+
+.TextPointers:
+	dw .BTExcuseMeText
+	dw NeedAtLeastThreeMonText
+	dw EggDoesNotQualifyText
+
+.BTExcuseMeText:
+	text_far _BTExcuseMeText
+	text_end
+
+_CheckForBattleTowerRules:
+	ld hl, wStringBuffer2
+	ld [hl], "3"
+	inc hl
+	ld [hl], "@"
+	ld de, .PointerTables
+	call BattleTower_ExecuteJumptable
+	ret z
+	call BattleTower_PleaseReturnWhenReady
+	scf
+	ret
+
+.PointerTables:
+	db 4
+	dw .Functions
+	dw .TextPointers
+
+.Functions:
+	dw CheckBTRule_PartyCountEq3
+	dw CheckBTRule_PartySpeciesAreUnique
+	dw CheckBTRule_PartyItemsAreUnique
+	dw CheckBTRule_HasPartyAnEgg
+
+.TextPointers:
+	dw ExcuseMeYoureNotReadyText
+	dw OnlyThreeMonMayBeEnteredText
+	dw TheMonMustAllBeDifferentKindsText
+	dw TheMonMustNotHoldTheSameItemsText
+	dw YouCantTakeAnEggText
+
+ExcuseMeYoureNotReadyText:
+	text_far _ExcuseMeYoureNotReadyText
+	text_end
+
+BattleTower_PleaseReturnWhenReady:
+	ld hl, .BattleTowerReturnWhenReadyText
+	call PrintText
+	ret
+
+.BattleTowerReturnWhenReadyText:
+	text_far _BattleTowerReturnWhenReadyText
+	text_end
+
+NeedAtLeastThreeMonText:
+	text_far _NeedAtLeastThreeMonText
+	text_end
+
+EggDoesNotQualifyText:
+	text_far _EggDoesNotQualifyText
+	text_end
+
+OnlyThreeMonMayBeEnteredText:
+	text_far _OnlyThreeMonMayBeEnteredText
+	text_end
+
+TheMonMustAllBeDifferentKindsText:
+	text_far _TheMonMustAllBeDifferentKindsText
+	text_end
+
+TheMonMustNotHoldTheSameItemsText:
+	text_far _TheMonMustNotHoldTheSameItemsText
+	text_end
+
+YouCantTakeAnEggText:
+	text_far _YouCantTakeAnEggText
+	text_end
+
+BattleTower_ExecuteJumptable:
+	ld bc, 0
+.loop
+	call .DoJumptableFunction
+	call c, .PrintFailureText
+	call .Next_CheckReachedEnd
+	jr nz, .loop
+	ld a, b
+	and a
+	ret
+
+.DoJumptableFunction:
+	push de
+	push bc
+	call .GetFunctionPointer
+	ld a, c
+	rst JumpTable
+	pop bc
+	pop de
+	ret
+
+.Next_CheckReachedEnd:
+	inc c
+	ld a, [de]
+	cp c
+	ret
+
+.GetFunctionPointer:
+	inc de
+	ld a, [de]
+	ld l, a
+	inc de
+	ld a, [de]
+	ld h, a
+	ret
+
+.GetTextPointers:
+	inc de
+	inc de
+	inc de
+	ld a, [de]
+	ld l, a
+	inc de
+	ld a, [de]
+	ld h, a
+	ret
+
+.LoadTextPointer:
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	ret
+
+.PrintFailureText:
+	push de
+	push bc
+	ld a, b
+	and a
+	call z, .PrintFirstText
+	pop bc
+	call .PrintNthText
+	ld b, 1
+	pop de
+	ret
+
+.PrintFirstText:
+	push de
+	call .GetTextPointers
+	call .LoadTextPointer
+	call PrintText
+	pop de
+	ret
+
+.PrintNthText:
+	push bc
+	call .GetTextPointers
+	inc hl
+	inc hl
+	ld b, 0
+	add hl, bc
+	add hl, bc
+	call .LoadTextPointer
+	call PrintText
+	pop bc
+	ret
+
+BattleTower_CheckPartyLengthIs3:
+	ld a, [wPartyCount]
+	cp BATTLETOWER_PARTY_LENGTH
+	ret
+
+BattleTower_CheckPartyHasThreeMonsThatAreNotEggs:
+	ld hl, wPartyCount
+	ld a, [hli]
+	ld b, 0
+	ld c, a
+.loop
+	ld a, [hli]
+	cp EGG
+	jr z, .egg
+	inc b
+
+.egg
+	dec c
+	jr nz, .loop
+	ld a, [wPartyCount]
+	cp b
+	ret z
+	ld a, b
+	cp BATTLETOWER_PARTY_LENGTH
+	ret
+
+CheckBTRule_PartyCountEq3:
+	ld a, [wPartyCount]
+	cp BATTLETOWER_PARTY_LENGTH
+	ret z
+	scf
+	ret
+
+CheckBTRule_PartySpeciesAreUnique:
+	ld hl, wPartyMon1Species
+	call CheckPartyValueIsUnique
+	ret
+
+CheckPartyValueIsUnique:
+	ld de, wPartyCount
+	ld a, [de]
+	inc de
+	dec a
+	jr z, .done
+	ld b, a
+.loop
+	push hl
+	push de
+	ld c, b
+	call .isegg
+	jr z, .next
+	ld a, [hl]
+	and a
+	jr z, .next
+.loop2
+	call .nextmon
+	call .isegg
+	jr z, .next2
+	cp [hl]
+	jr z, .gotcha
+
+.next2
+	dec c
+	jr nz, .loop2
+
+.next
+	pop de
+	pop hl
+	call .nextmon
+	dec b
+	jr nz, .loop
+
+.done
+	and a
+	ret
+
+.gotcha
+	pop de
+	pop hl
+	scf
+	ret
+
+.nextmon
+	push bc
+	ld bc, PARTYMON_STRUCT_LENGTH
+	add hl, bc
+	inc de
+	pop bc
+	ret
+
+.isegg
+	push bc
+	ld b, a
+	ld a, [de]
+	cp EGG
+	ld a, b
+	pop bc
+	ret
+
+CheckBTRule_PartyItemsAreUnique:
+	ld hl, wPartyMon1Item
+	call CheckPartyValueIsUnique
+	ret
+
+CheckBTRule_HasPartyAnEgg:
+	ld hl, wPartyCount
+	ld a, [hli]
+	ld c, a
+.loop
+	ld a, [hli]
+	cp EGG
+	jr z, .found
+	dec c
+	jr nz, .loop
+	and a
+	ret
+
+.found
+	scf
+	ret

engine/events/battle_tower/trainer_text.asm

@@ -0,0 +1,701 @@
+BattleTowerText::
+; Print text c for trainer [wBT_OTTrainerClass]
+; 1: Intro text
+; 2: Player lost
+; 3: Player won
+	ldh a, [rSVBK]
+	push af
+	ld a, BANK(wBT_OTTrainerClass)
+	ldh [rSVBK], a
+	ld hl, wBT_OTTrainerClass
+	ld a, [hl]
+	dec a
+	ld e, a
+	ld d, 0
+	ld hl, BTTrainerClassGenders
+	add hl, de
+	ld a, [hl]
+	and a
+	jr nz, .female
+	; generate a random number between 0 and 24
+	ldh a, [hRandomAdd]
+	and $1f
+	cp 25
+	jr c, .okay0
+	sub 25
+
+.okay0
+	ld hl, BTMaleTrainerTexts
+	jr .proceed
+
+.female
+	; generate a random number between 0 and 14
+	ldh a, [hRandomAdd]
+	and $f
+	cp 15
+	jr c, .okay1
+	sub 15
+
+.okay1
+	ld hl, BTFemaleTrainerTexts
+
+.proceed
+	ld b, 0
+	dec c
+	jr nz, .restore
+	ld [wBT_TrainerTextIndex], a
+	jr .okay2
+
+.restore
+	ld a, [wBT_TrainerTextIndex]
+
+.okay2
+	push af
+	add hl, bc
+	add hl, bc
+	ld a, [hli]
+	ld c, a
+	ld a, [hl]
+	ld h, a
+	ld l, c
+	pop af
+	ld c, a
+	ld b, 0
+	add hl, bc
+	add hl, bc
+	ld a, [hli]
+	ld c, a
+	ld a, [hl]
+	ld l, c
+	ld h, a
+	bccoord 1, 14
+	pop af
+	ldh [rSVBK], a
+	call PlaceHLTextAtBC
+	ret
+
+INCLUDE "mobile/fixed_words.asm"
+
+INCLUDE "data/trainers/genders.asm"
+
+BTMaleTrainerTexts:
+	dw .Greetings
+	dw .PlayerLost
+	dw .PlayerWon
+
+.Greetings:
+	dw BTGreetingM1Text
+	dw BTGreetingM2Text
+	dw BTGreetingM3Text
+	dw BTGreetingM4Text
+	dw BTGreetingM5Text
+	dw BTGreetingM6Text
+	dw BTGreetingM7Text
+	dw BTGreetingM8Text
+	dw BTGreetingM9Text
+	dw BTGreetingM10Text
+	dw BTGreetingM11Text
+	dw BTGreetingM12Text
+	dw BTGreetingM13Text
+	dw BTGreetingM14Text
+	dw BTGreetingM15Text
+	dw BTGreetingM16Text
+	dw BTGreetingM17Text
+	dw BTGreetingM18Text
+	dw BTGreetingM19Text
+	dw BTGreetingM20Text
+	dw BTGreetingM21Text
+	dw BTGreetingM22Text
+	dw BTGreetingM23Text
+	dw BTGreetingM24Text
+	dw BTGreetingM25Text
+
+.PlayerLost:
+	dw BTLossM1Text
+	dw BTLossM2Text
+	dw BTLossM3Text
+	dw BTLossM4Text
+	dw BTLossM5Text
+	dw BTLossM6Text
+	dw BTLossM7Text
+	dw BTLossM8Text
+	dw BTLossM9Text
+	dw BTLossM10Text
+	dw BTLossM11Text
+	dw BTLossM12Text
+	dw BTLossM13Text
+	dw BTLossM14Text
+	dw BTLossM15Text
+	dw BTLossM16Text
+	dw BTLossM17Text
+	dw BTLossM18Text
+	dw BTLossM19Text
+	dw BTLossM20Text
+	dw BTLossM21Text
+	dw BTLossM22Text
+	dw BTLossM23Text
+	dw BTLossM24Text
+	dw BTLossM25Text
+
+.PlayerWon:
+	dw BTWinM1Text
+	dw BTWinM2Text
+	dw BTWinM3Text
+	dw BTWinM4Text
+	dw BTWinM5Text
+	dw BTWinM6Text
+	dw BTWinM7Text
+	dw BTWinM8Text
+	dw BTWinM9Text
+	dw BTWinM10Text
+	dw BTWinM11Text
+	dw BTWinM12Text
+	dw BTWinM13Text
+	dw BTWinM14Text
+	dw BTWinM15Text
+	dw BTWinM16Text
+	dw BTWinM17Text
+	dw BTWinM18Text
+	dw BTWinM19Text
+	dw BTWinM20Text
+	dw BTWinM21Text
+	dw BTWinM22Text
+	dw BTWinM23Text
+	dw BTWinM24Text
+	dw BTWinM25Text
+
+BTFemaleTrainerTexts:
+	dw .Greetings
+	dw .PlayerLost
+	dw .PlayerWon
+
+.Greetings:
+	dw BTGreetingF1Text
+	dw BTGreetingF2Text
+	dw BTGreetingF3Text
+	dw BTGreetingF4Text
+	dw BTGreetingF5Text
+	dw BTGreetingF6Text
+	dw BTGreetingF7Text
+	dw BTGreetingF8Text
+	dw BTGreetingF9Text
+	dw BTGreetingF10Text
+	dw BTGreetingF11Text
+	dw BTGreetingF12Text
+	dw BTGreetingF13Text
+	dw BTGreetingF14Text
+	dw BTGreetingF15Text
+
+.PlayerLost:
+	dw BTLossF1Text
+	dw BTLossF2Text
+	dw BTLossF3Text
+	dw BTLossF4Text
+	dw BTLossF5Text
+	dw BTLossF6Text
+	dw BTLossF7Text
+	dw BTLossF8Text
+	dw BTLossF9Text
+	dw BTLossF10Text
+	dw BTLossF11Text
+	dw BTLossF12Text
+	dw BTLossF13Text
+	dw BTLossF14Text
+	dw BTLossF15Text
+
+.PlayerWon:
+	dw BTWinF1Text
+	dw BTWinF2Text
+	dw BTWinF3Text
+	dw BTWinF4Text
+	dw BTWinF5Text
+	dw BTWinF6Text
+	dw BTWinF7Text
+	dw BTWinF8Text
+	dw BTWinF9Text
+	dw BTWinF10Text
+	dw BTWinF11Text
+	dw BTWinF12Text
+	dw BTWinF13Text
+	dw BTWinF14Text
+	dw BTWinF15Text
+
+BTGreetingM1Text:
+	text_far _BTGreetingM1Text
+	text_end
+
+BTLossM1Text:
+	text_far _BTLossM1Text
+	text_end
+
+BTWinM1Text:
+	text_far _BTWinM1Text
+	text_end
+
+BTGreetingM2Text:
+	text_far _BTGreetingM2Text
+	text_end
+
+BTLossM2Text:
+	text_far _BTLossM2Text
+	text_end
+
+BTWinM2Text:
+	text_far _BTWinM2Text
+	text_end
+
+BTGreetingM3Text:
+	text_far _BTGreetingM3Text
+	text_end
+
+BTLossM3Text:
+	text_far _BTLossM3Text
+	text_end
+
+BTWinM3Text:
+	text_far _BTWinM3Text
+	text_end
+
+BTGreetingM4Text:
+	text_far _BTGreetingM4Text
+	text_end
+
+BTLossM4Text:
+	text_far _BTLossM4Text
+	text_end
+
+BTWinM4Text:
+	text_far _BTWinM4Text
+	text_end
+
+BTGreetingM5Text:
+	text_far _BTGreetingM5Text
+	text_end
+
+BTLossM5Text:
+	text_far _BTLossM5Text
+	text_end
+
+BTWinM5Text:
+	text_far _BTWinM5Text
+	text_end
+
+BTGreetingM6Text:
+	text_far _BTGreetingM6Text
+	text_end
+
+BTLossM6Text:
+	text_far _BTLossM6Text
+	text_end
+
+BTWinM6Text:
+	text_far _BTWinM6Text
+	text_end
+
+BTGreetingM7Text:
+	text_far _BTGreetingM7Text
+	text_end
+
+BTLossM7Text:
+	text_far _BTLossM7Text
+	text_end
+
+BTWinM7Text:
+	text_far _BTWinM7Text
+	text_end
+
+BTGreetingM8Text:
+	text_far _BTGreetingM8Text
+	text_end
+
+BTLossM8Text:
+	text_far _BTLossM8Text
+	text_end
+
+BTWinM8Text:
+	text_far _BTWinM8Text
+	text_end
+
+BTGreetingM9Text:
+	text_far _BTGreetingM9Text
+	text_end
+
+BTLossM9Text:
+	text_far _BTLossM9Text
+	text_end
+
+BTWinM9Text:
+	text_far _BTWinM9Text
+	text_end
+
+BTGreetingM10Text:
+	text_far _BTGreetingM10Text
+	text_end
+
+BTLossM10Text:
+	text_far _BTLossM10Text
+	text_end
+
+BTWinM10Text:
+	text_far _BTWinM10Text
+	text_end
+
+BTGreetingM11Text:
+	text_far _BTGreetingM11Text
+	text_end
+
+BTLossM11Text:
+	text_far _BTLossM11Text
+	text_end
+
+BTWinM11Text:
+	text_far _BTWinM11Text
+	text_end
+
+BTGreetingM12Text:
+	text_far _BTGreetingM12Text
+	text_end
+
+BTLossM12Text:
+	text_far _BTLossM12Text
+	text_end
+
+BTWinM12Text:
+	text_far _BTWinM12Text
+	text_end
+
+BTGreetingM13Text:
+	text_far _BTGreetingM13Text
+	text_end
+
+BTLossM13Text:
+	text_far _BTLossM13Text
+	text_end
+
+BTWinM13Text:
+	text_far _BTWinM13Text
+	text_end
+
+BTGreetingM14Text:
+	text_far _BTGreetingM14Text
+	text_end
+
+BTLossM14Text:
+	text_far _BTLossM14Text
+	text_end
+
+BTWinM14Text:
+	text_far _BTWinM14Text
+	text_end
+
+BTGreetingM15Text:
+	text_far _BTGreetingM15Text
+	text_end
+
+BTLossM15Text:
+	text_far _BTLossM15Text
+	text_end
+
+BTWinM15Text:
+	text_far _BTWinM15Text
+	text_end
+
+BTGreetingM16Text:
+	text_far _BTGreetingM16Text
+	text_end
+
+BTLossM16Text:
+	text_far _BTLossM16Text
+	text_end
+
+BTWinM16Text:
+	text_far _BTWinM16Text
+	text_end
+
+BTGreetingM17Text:
+	text_far _BTGreetingM17Text
+	text_end
+
+BTLossM17Text:
+	text_far _BTLossM17Text
+	text_end
+
+BTWinM17Text:
+	text_far _BTWinM17Text
+	text_end
+
+BTGreetingM18Text:
+	text_far _BTGreetingM18Text
+	text_end
+
+BTLossM18Text:
+	text_far _BTLossM18Text
+	text_end
+
+BTWinM18Text:
+	text_far _BTWinM18Text
+	text_end
+
+BTGreetingM19Text:
+	text_far _BTGreetingM19Text
+	text_end
+
+BTLossM19Text:
+	text_far _BTLossM19Text
+	text_end
+
+BTWinM19Text:
+	text_far _BTWinM19Text
+	text_end
+
+BTGreetingM20Text:
+	text_far _BTGreetingM20Text
+	text_end
+
+BTLossM20Text:
+	text_far _BTLossM20Text
+	text_end
+
+BTWinM20Text:
+	text_far _BTWinM20Text
+	text_end
+
+BTGreetingM21Text:
+	text_far _BTGreetingM21Text
+	text_end
+
+BTLossM21Text:
+	text_far _BTLossM21Text
+	text_end
+
+BTWinM21Text:
+	text_far _BTWinM21Text
+	text_end
+
+BTGreetingM22Text:
+	text_far _BTGreetingM22Text
+	text_end
+
+BTLossM22Text:
+	text_far _BTLossM22Text
+	text_end
+
+BTWinM22Text:
+	text_far _BTWinM22Text
+	text_end
+
+BTGreetingM23Text:
+	text_far _BTGreetingM23Text
+	text_end
+
+BTLossM23Text:
+	text_far _BTLossM23Text
+	text_end
+
+BTWinM23Text:
+	text_far _BTWinM23Text
+	text_end
+
+BTGreetingM24Text:
+	text_far _BTGreetingM24Text
+	text_end
+
+BTLossM24Text:
+	text_far _BTLossM24Text
+	text_end
+
+BTWinM24Text:
+	text_far _BTWinM24Text
+	text_end
+
+BTGreetingM25Text:
+	text_far _BTGreetingM25Text
+	text_end
+
+BTLossM25Text:
+	text_far _BTLossM25Text
+	text_end
+
+BTWinM25Text:
+	text_far _BTWinM25Text
+	text_end
+
+BTGreetingF1Text:
+	text_far _BTGreetingF1Text
+	text_end
+
+BTLossF1Text:
+	text_far _BTLossF1Text
+	text_end
+
+BTWinF1Text:
+	text_far _BTWinF1Text
+	text_end
+
+BTGreetingF2Text:
+	text_far _BTGreetingF2Text
+	text_end
+
+BTLossF2Text:
+	text_far _BTLossF2Text
+	text_end
+
+BTWinF2Text:
+	text_far _BTWinF2Text
+	text_end
+
+BTGreetingF3Text:
+	text_far _BTGreetingF3Text
+	text_end
+
+BTLossF3Text:
+	text_far _BTLossF3Text
+	text_end
+
+BTWinF3Text:
+	text_far _BTWinF3Text
+	text_end
+
+BTGreetingF4Text:
+	text_far _BTGreetingF4Text
+	text_end
+
+BTLossF4Text:
+	text_far _BTLossF4Text
+	text_end
+
+BTWinF4Text:
+	text_far _BTWinF4Text
+	text_end
+
+BTGreetingF5Text:
+	text_far _BTGreetingF5Text
+	text_end
+
+BTLossF5Text:
+	text_far _BTLossF5Text
+	text_end
+
+BTWinF5Text:
+	text_far _BTWinF5Text
+	text_end
+
+BTGreetingF6Text:
+	text_far _BTGreetingF6Text
+	text_end
+
+BTLossF6Text:
+	text_far _BTLossF6Text
+	text_end
+
+BTWinF6Text:
+	text_far _BTWinF6Text
+	text_end
+
+BTGreetingF7Text:
+	text_far _BTGreetingF7Text
+	text_end
+
+BTLossF7Text:
+	text_far _BTLossF7Text
+	text_end
+
+BTWinF7Text:
+	text_far _BTWinF7Text
+	text_end
+
+BTGreetingF8Text:
+	text_far _BTGreetingF8Text
+	text_end
+
+BTLossF8Text:
+	text_far _BTLossF8Text
+	text_end
+
+BTWinF8Text:
+	text_far _BTWinF8Text
+	text_end
+
+BTGreetingF9Text:
+	text_far _BTGreetingF9Text
+	text_end
+
+BTLossF9Text:
+	text_far _BTLossF9Text
+	text_end
+
+BTWinF9Text:
+	text_far _BTWinF9Text
+	text_end
+
+BTGreetingF10Text:
+	text_far _BTGreetingF10Text
+	text_end
+
+BTLossF10Text:
+	text_far _BTLossF10Text
+	text_end
+
+BTWinF10Text:
+	text_far _BTWinF10Text
+	text_end
+
+BTGreetingF11Text:
+	text_far _BTGreetingF11Text
+	text_end
+
+BTLossF11Text:
+	text_far _BTLossF11Text
+	text_end
+
+BTWinF11Text:
+	text_far _BTWinF11Text
+	text_end
+
+BTGreetingF12Text:
+	text_far _BTGreetingF12Text
+	text_end
+
+BTLossF12Text:
+	text_far _BTLossF12Text
+	text_end
+
+BTWinF12Text:
+	text_far _BTWinF12Text
+	text_end
+
+BTGreetingF13Text:
+	text_far _BTGreetingF13Text
+	text_end
+
+BTLossF13Text:
+	text_far _BTLossF13Text
+	text_end
+
+BTWinF13Text:
+	text_far _BTWinF13Text
+	text_end
+
+BTGreetingF14Text:
+	text_far _BTGreetingF14Text
+	text_end
+
+BTLossF14Text:
+	text_far _BTLossF14Text
+	text_end
+
+BTWinF14Text:
+	text_far _BTWinF14Text
+	text_end
+
+BTGreetingF15Text:
+	text_far _BTGreetingF15Text
+	text_end
+
+BTLossF15Text:
+	text_far _BTLossF15Text
+	text_end
+
+BTWinF15Text:
+	text_far _BTWinF15Text
+	text_end