2019-11-29 04:46:39 +01:00
|
|
|
@ Initialize the Battle Tower challenge
|
|
|
|
|
.macro tower_init
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_INIT
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
2019-11-25 20:19:17 +01:00
|
|
|
|
2019-11-29 04:46:39 +01:00
|
|
|
@ Get the value of some TOWER_DATA_*. See GetTowerData for the data types that can be retrieved
|
|
|
|
|
.macro tower_get data:req
|
2019-11-29 03:09:35 +01:00
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_GET_DATA
|
2019-11-29 04:46:39 +01:00
|
|
|
setvar VAR_0x8005, \data
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
@ Set some TOWER_DATA_* to val. See SetTowerData for the data types that can be set
|
|
|
|
|
.macro tower_set data:req, val=0xFFFF
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_SET_DATA
|
|
|
|
|
setvar VAR_0x8005, \data
|
|
|
|
|
.if \val != 0xFFFF
|
|
|
|
|
setvar VAR_0x8006, \val
|
|
|
|
|
.endif
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
@ Choose and set the gfx for the next opponent. Also used by Battle Tents
|
|
|
|
|
.macro tower_setopponent
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_SET_OPPONENT
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
@ Increments the battle number and returns the new one. Also clears E-Reader trainer if defeated, and saves the current win streak
|
|
|
|
|
.macro tower_setbattlewon
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_SET_BATTLE_WON
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
@ Try to award ribbons for completing 56th straight Battle Tower win. VAR_RESULT is TRUE if ribbons were awarded.
|
|
|
|
|
.macro tower_giveribbons
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_GIVE_RIBBONS
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
@ Save the game and set the challenge status
|
|
|
|
|
.macro tower_save challengeStatus:req
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_SAVE
|
|
|
|
|
setvar VAR_0x8005, \challengeStatus
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
@ Buffer the opponent's easy chat intro speech to STR_VAR_4
|
|
|
|
|
.macro tower_getopponentintro opponent:req
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_GET_OPPONENT_INTRO
|
|
|
|
|
setvar VAR_0x8005, \opponent
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
|
|
|
|
|
2019-12-14 09:58:20 +01:00
|
|
|
@ Load the parties, gfx, and other data (like Apprentice id) for the multi partner candidates
|
|
|
|
|
.macro tower_loadpartners
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_LOAD_PARTNERS
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
@ Print message from potential multi partner. msgId is any PARTNER_MSGID_*
|
|
|
|
|
.macro tower_dopartnermsg msgId:req
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_PARTNER_MSG
|
|
|
|
|
setvar VAR_0x8005, \msgId
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
@ Receives/loads the opponent data for a link multi challenge. Returns 6 when finished, and finishes immediately if not doing a link multi battle.
|
|
|
|
|
.macro tower_loadlinkopponents
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_LOAD_LINK_OPPONENTS
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
|
|
|
|
|
2020-12-24 22:18:47 +01:00
|
|
|
@ Attempts to close link connection. Used when finishing a link multi challenge.
|
|
|
|
|
.macro tower_closelink
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_TRY_CLOSE_LINK
|
2019-12-14 09:58:20 +01:00
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
@ Set VAR_OBJ_GFX_ID_E to the gfx id of the selected multi partner
|
|
|
|
|
.macro tower_setpartnergfx
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_SET_PARTNER_GFX
|
|
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
2019-11-29 04:46:39 +01:00
|
|
|
|
|
|
|
|
@ Set the data used for the post-challenge Battle Tower interview
|
|
|
|
|
.macro tower_setinterviewdata
|
|
|
|
|
setvar VAR_0x8004, BATTLE_TOWER_FUNC_SET_INTERVIEW_DATA
|
2019-11-25 20:19:17 +01:00
|
|
|
special CallBattleTowerFunc
|
|
|
|
|
.endm
|
2020-02-16 15:45:54 +01:00
|
|
|
|
|
|
|
|
@Custom multi-battle commands
|
|
|
|
|
|
|
|
|
|
.macro choose_mons
|
|
|
|
|
fadescreen 1
|
|
|
|
|
special ChooseHalfPartyForBattle @ choose 3 mons for battle
|
|
|
|
|
waitstate
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
.macro multi_do type:req, partnerId:req, partnerPicId:req
|
|
|
|
|
special ReducePlayerPartyToSelectedMons
|
|
|
|
|
setvar VAR_0x8004, FRONTIER_UTIL_FUNC_SET_DATA
|
|
|
|
|
setvar VAR_0x8005, FRONTIER_DATA_SELECTED_MON_ORDER
|
|
|
|
|
special CallFrontierUtilFunc @ saves the mon order, so the non-selected mons get restored afterwards
|
|
|
|
|
setvar VAR_0x8004, SPECIAL_BATTLE_MULTI
|
|
|
|
|
setvar VAR_0x8005, \type | MULTI_BATTLE_CHOOSE_MONS
|
|
|
|
|
setvar VAR_0x8006, \partnerId
|
|
|
|
|
setvar VAR_0x8007, \partnerPicId
|
|
|
|
|
special DoSpecialTrainerBattle
|
|
|
|
|
waitstate
|
|
|
|
|
setvar VAR_0x8004, FRONTIER_UTIL_FUNC_SAVE_PARTY
|
|
|
|
|
special CallFrontierUtilFunc
|
|
|
|
|
special LoadPlayerParty
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
.macro multi_2_vs_2 trainer1Id:req, trainer1LoseText:req, trainer2Id:req, trainer2LoseText:req, partnerId:req, partnerPicId:req
|
|
|
|
|
special SavePlayerParty
|
|
|
|
|
trainerbattle TRAINER_BATTLE_SET_TRAINER_A, \trainer1Id, 0, NULL, \trainer1LoseText @ set first trainer mons
|
|
|
|
|
trainerbattle TRAINER_BATTLE_SET_TRAINER_B, \trainer2Id, 0, NULL, \trainer2LoseText @ set second trainer mons
|
|
|
|
|
multi_do MULTI_BATTLE_2_VS_2, \partnerId, \partnerPicId
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
.macro multi_2_vs_1 trainer1Id:req, trainer1LoseText:req, partnerId:req, partnerPicId:req
|
|
|
|
|
special SavePlayerParty
|
|
|
|
|
trainerbattle TRAINER_BATTLE_SET_TRAINER_A, \trainer1Id, 0, NULL, \trainer1LoseText @ set first trainer mons
|
|
|
|
|
multi_do MULTI_BATTLE_2_VS_1, \partnerId, \partnerPicId
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
@ Wild mons need to be assigned to gEnemyParty 0 and 3 slots, other slots need to be cleared out.
|
|
|
|
|
.macro multi_wild partnerId:req, partnerPicId:req
|
|
|
|
|
special SavePlayerParty
|
|
|
|
|
multi_do MULTI_BATTLE_2_VS_WILD, \partnerId, \partnerPicId
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
.macro multi_do_fixed type:req, partnerId:req, partnerPicId:req
|
|
|
|
|
setvar VAR_0x8004, SPECIAL_BATTLE_MULTI
|
|
|
|
|
setvar VAR_0x8005, \type
|
|
|
|
|
setvar VAR_0x8006, \partnerId
|
|
|
|
|
setvar VAR_0x8007, \partnerPicId
|
|
|
|
|
special DoSpecialTrainerBattle
|
|
|
|
|
waitstate
|
|
|
|
|
setvar VAR_0x8004, FRONTIER_UTIL_FUNC_SAVE_PARTY
|
|
|
|
|
special CallFrontierUtilFunc
|
|
|
|
|
special LoadPlayerParty
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
.macro multi_fixed_2_vs_2 trainer1Id:req, trainer1LoseText:req, trainer2Id:req, trainer2LoseText:req, partnerId:req, partnerPicId:req
|
|
|
|
|
special SavePlayerParty
|
|
|
|
|
trainerbattle TRAINER_BATTLE_SET_TRAINER_A, \trainer1Id, 0, NULL, \trainer1LoseText @ set first trainer mons
|
|
|
|
|
trainerbattle TRAINER_BATTLE_SET_TRAINER_B, \trainer2Id, 0, NULL, \trainer2LoseText @ set second trainer mons
|
|
|
|
|
multi_do_fixed MULTI_BATTLE_2_VS_2, \partnerId, \partnerPicId
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
.macro multi_fixed_2_vs_1 trainer1Id:req, trainer1LoseText:req, partnerId:req, partnerPicId:req
|
|
|
|
|
special SavePlayerParty
|
|
|
|
|
trainerbattle TRAINER_BATTLE_SET_TRAINER_A, \trainer1Id, 0, NULL, \trainer1LoseText @ set first trainer mons
|
|
|
|
|
multi_do_fixed MULTI_BATTLE_2_VS_1, \partnerId, \partnerPicId
|
|
|
|
|
.endm
|
|
|
|
|
|
|
|
|
|
@ Wild mons need to be assigned to gEnemyParty 0 and 3 slots, other slots need to be cleared out.
|
|
|
|
|
.macro multi_fixed_wild partnerId:req, partnerPicId:req
|
|
|
|
|
special SavePlayerParty
|
|
|
|
|
multi_do_fixed MULTI_BATTLE_2_VS_WILD, \partnerId, \partnerPicId
|
|
|
|
|
.endm
|
