mirror of
https://github.com/infinitefusion/infinitefusion-e18.git
synced 2025-12-06 06:01:46 +00:00
1498 lines
56 KiB
Ruby
1498 lines
56 KiB
Ruby
#===============================================================================
|
|
# Field options
|
|
#===============================================================================
|
|
MenuHandlers.add(:debug_menu, :field_menu, {
|
|
"name" => _INTL("Field options..."),
|
|
"parent" => :main,
|
|
"description" => _INTL("Warp to maps, edit switches/variables, use the PC, edit Day Care, etc."),
|
|
"always_show" => false
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :warp, {
|
|
"name" => _INTL("Warp to map"),
|
|
"parent" => :field_menu,
|
|
"description" => _INTL("Instantly warp to another map of your choice."),
|
|
"effect" => proc { |sprites, viewport|
|
|
map = pbWarpToMap
|
|
next false if !map
|
|
pbFadeOutAndHide(sprites)
|
|
pbDisposeMessageWindow(sprites["textbox"])
|
|
pbDisposeSpriteHash(sprites)
|
|
viewport.dispose
|
|
if $scene.is_a?(Scene_Map)
|
|
$game_temp.player_new_map_id = map[0]
|
|
$game_temp.player_new_x = map[1]
|
|
$game_temp.player_new_y = map[2]
|
|
$game_temp.player_new_direction = 2
|
|
$scene.transfer_player
|
|
else
|
|
pbCancelVehicles
|
|
$map_factory.setup(map[0])
|
|
$game_player.moveto(map[1], map[2])
|
|
$game_player.turn_down
|
|
$game_map.update
|
|
$game_map.autoplay
|
|
end
|
|
$game_map.refresh
|
|
next true # Closes the debug menu to allow the warp
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :use_pc, {
|
|
"name" => _INTL("Use PC"),
|
|
"parent" => :field_menu,
|
|
"description" => _INTL("Use a PC to access Pokémon storage and player's PC."),
|
|
"effect" => proc {
|
|
pbPokeCenterPC
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :switches, {
|
|
"name" => _INTL("Switches"),
|
|
"parent" => :field_menu,
|
|
"description" => _INTL("Edit all Game Switches (except Script Switches)."),
|
|
"effect" => proc {
|
|
pbDebugVariables(0)
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :variables, {
|
|
"name" => _INTL("Variables"),
|
|
"parent" => :field_menu,
|
|
"description" => _INTL("Edit all Game Variables. Can set them to numbers or text."),
|
|
"effect" => proc {
|
|
pbDebugVariables(1)
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :safari_zone_and_bug_contest, {
|
|
"name" => _INTL("Safari Zone and Bug-Catching Contest"),
|
|
"parent" => :field_menu,
|
|
"description" => _INTL("Edit steps/time remaining and number of usable Poké Balls."),
|
|
"effect" => proc {
|
|
if pbInSafari?
|
|
safari = pbSafariState
|
|
cmd = 0
|
|
loop do
|
|
cmds = [_INTL("Steps remaining: {1}", (Settings::SAFARI_STEPS > 0) ? safari.steps : _INTL("infinite")),
|
|
GameData::Item.get(:SAFARIBALL).name_plural + ": " + safari.ballcount.to_s]
|
|
cmd = pbShowCommands(nil, cmds, -1, cmd)
|
|
break if cmd < 0
|
|
case cmd
|
|
when 0 # Steps remaining
|
|
if Settings::SAFARI_STEPS > 0
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, 99999)
|
|
params.setDefaultValue(safari.steps)
|
|
safari.steps = pbMessageChooseNumber(_INTL("Set the steps remaining in this Safari game."), params)
|
|
end
|
|
when 1 # Safari Balls
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, 99999)
|
|
params.setDefaultValue(safari.ballcount)
|
|
safari.ballcount = pbMessageChooseNumber(
|
|
_INTL("Set the quantity of {1}.", GameData::Item.get(:SAFARIBALL).name_plural), params)
|
|
end
|
|
end
|
|
elsif pbInBugContest?
|
|
contest = pbBugContestState
|
|
cmd = 0
|
|
loop do
|
|
cmds = []
|
|
if Settings::BUG_CONTEST_TIME > 0
|
|
time_left = Settings::BUG_CONTEST_TIME - (System.uptime - contest.timer_start).to_i
|
|
time_left = 0 if time_left < 0
|
|
min = time_left / 60
|
|
sec = time_left % 60
|
|
time_string = _ISPRINTF("{1:02d}m {2:02d}s", min, sec)
|
|
else
|
|
time_string = _INTL("infinite")
|
|
end
|
|
cmds.push(_INTL("Time remaining: {1}", time_string))
|
|
cmds.push(GameData::Item.get(:SPORTBALL).name_plural + ": " + contest.ballcount.to_s)
|
|
cmd = pbShowCommands(nil, cmds, -1, cmd)
|
|
break if cmd < 0
|
|
case cmd
|
|
when 0 # Steps remaining
|
|
if Settings::BUG_CONTEST_TIME > 0
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, 99999)
|
|
params.setDefaultValue(min)
|
|
new_time = pbMessageChooseNumber(_INTL("Set the time remaining (in minutes) in this Bug-Catching Contest."), params)
|
|
contest.timer_start += (new_time - min) * 60
|
|
$scene.spriteset.usersprites.each do |sprite|
|
|
next if !sprite.is_a?(TimerDisplay)
|
|
sprite.start_time = contest.timer_start
|
|
break
|
|
end
|
|
end
|
|
when 1 # Safari Balls
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, 99999)
|
|
params.setDefaultValue(contest.ballcount)
|
|
contest.ballcount = pbMessageChooseNumber(
|
|
_INTL("Set the quantity of {1}.", GameData::Item.get(:SPORTBALL).name_plural), params)
|
|
end
|
|
end
|
|
else
|
|
pbMessage(_INTL("You aren't in the Safari Zone or a Bug-Catching Contest!"))
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :edit_field_effects, {
|
|
"name" => _INTL("Change field effects"),
|
|
"parent" => :field_menu,
|
|
"description" => _INTL("Edit Repel steps, Strength and Flash usage, and Black/White Flute effects."),
|
|
"effect" => proc {
|
|
cmd = 0
|
|
loop do
|
|
cmds = []
|
|
cmds.push(_INTL("Repel steps: {1}", $PokemonGlobal.repel))
|
|
cmds.push(($PokemonMap.strengthUsed ? "[Y]" : "[ ]") + " " + _INTL("Strength used"))
|
|
cmds.push(($PokemonGlobal.flashUsed ? "[Y]" : "[ ]") + " " + _INTL("Flash used"))
|
|
cmds.push(($PokemonMap.lower_encounter_rate ? "[Y]" : "[ ]") + " " + _INTL("Lower encounter rate"))
|
|
cmds.push(($PokemonMap.higher_encounter_rate ? "[Y]" : "[ ]") + " " + _INTL("Higher encounter rate"))
|
|
cmds.push(($PokemonMap.lower_level_wild_pokemon ? "[Y]" : "[ ]") + " " + _INTL("Lower level wild Pokémon"))
|
|
cmds.push(($PokemonMap.higher_level_wild_pokemon ? "[Y]" : "[ ]") + " " + _INTL("Higher level wild Pokémon"))
|
|
cmd = pbShowCommands(nil, cmds, -1, cmd)
|
|
break if cmd < 0
|
|
case cmd
|
|
when 0 # Repel steps
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, 99999)
|
|
params.setDefaultValue($PokemonGlobal.repel)
|
|
$PokemonGlobal.repel = pbMessageChooseNumber(_INTL("Set the Pokémon's level."), params)
|
|
when 1 # Strength used
|
|
$PokemonMap.strengthUsed = !$PokemonMap.strengthUsed
|
|
when 2 # Flash used
|
|
if $game_map.metadata&.dark_map && $scene.is_a?(Scene_Map)
|
|
$PokemonGlobal.flashUsed = !$PokemonGlobal.flashUsed
|
|
darkness = $game_temp.darkness_sprite
|
|
darkness.dispose if darkness && !darkness.disposed?
|
|
$game_temp.darkness_sprite = DarknessSprite.new
|
|
$scene.spriteset&.addUserSprite($game_temp.darkness_sprite)
|
|
if $PokemonGlobal.flashUsed
|
|
$game_temp.darkness_sprite.radius = $game_temp.darkness_sprite.radiusMax
|
|
end
|
|
else
|
|
pbMessage(_INTL("You're not in a dark map!"))
|
|
end
|
|
when 3 # Lower encounter rate
|
|
$PokemonMap.lower_encounter_rate ||= false
|
|
$PokemonMap.lower_encounter_rate = !$PokemonMap.lower_encounter_rate
|
|
when 4 # Higher encounter rate
|
|
$PokemonMap.higher_encounter_rate ||= false
|
|
$PokemonMap.higher_encounter_rate = !$PokemonMap.higher_encounter_rate
|
|
when 5 # Lower level wild Pokémon
|
|
$PokemonMap.lower_level_wild_pokemon ||= false
|
|
$PokemonMap.lower_level_wild_pokemon = !$PokemonMap.lower_level_wild_pokemon
|
|
when 6 # Higher level wild Pokémon
|
|
$PokemonMap.higher_level_wild_pokemon ||= false
|
|
$PokemonMap.higher_level_wild_pokemon = !$PokemonMap.higher_level_wild_pokemon
|
|
end
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :refresh_map, {
|
|
"name" => _INTL("Refresh map"),
|
|
"parent" => :field_menu,
|
|
"description" => _INTL("Make all events on this map, and common events, refresh themselves."),
|
|
"effect" => proc {
|
|
$game_map.need_refresh = true
|
|
pbMessage(_INTL("The map will refresh."))
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :day_care, {
|
|
"name" => _INTL("Day Care"),
|
|
"parent" => :field_menu,
|
|
"description" => _INTL("View Pokémon in the Day Care and edit them."),
|
|
"effect" => proc {
|
|
pbDebugDayCare
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :storage_wallpapers, {
|
|
"name" => _INTL("Toggle storage wallpapers"),
|
|
"parent" => :field_menu,
|
|
"description" => _INTL("Unlock and lock special wallpapers used in Pokémon storage."),
|
|
"effect" => proc {
|
|
w = $PokemonStorage.allWallpapers
|
|
if w.length <= PokemonStorage::BASICWALLPAPERQTY
|
|
pbMessage(_INTL("There are no special wallpapers defined."))
|
|
else
|
|
paperscmd = 0
|
|
unlockarray = $PokemonStorage.unlockedWallpapers
|
|
loop do
|
|
paperscmds = []
|
|
paperscmds.push(_INTL("Unlock all"))
|
|
paperscmds.push(_INTL("Lock all"))
|
|
(PokemonStorage::BASICWALLPAPERQTY...w.length).each do |i|
|
|
paperscmds.push((unlockarray[i] ? "[Y]" : "[ ]") + " " + w[i])
|
|
end
|
|
paperscmd = pbShowCommands(nil, paperscmds, -1, paperscmd)
|
|
break if paperscmd < 0
|
|
case paperscmd
|
|
when 0 # Unlock all
|
|
(PokemonStorage::BASICWALLPAPERQTY...w.length).each do |i|
|
|
unlockarray[i] = true
|
|
end
|
|
when 1 # Lock all
|
|
(PokemonStorage::BASICWALLPAPERQTY...w.length).each do |i|
|
|
unlockarray[i] = false
|
|
end
|
|
else
|
|
paperindex = paperscmd - 2 + PokemonStorage::BASICWALLPAPERQTY
|
|
unlockarray[paperindex] = !$PokemonStorage.unlockedWallpapers[paperindex]
|
|
end
|
|
end
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :skip_credits, {
|
|
"name" => _INTL("Skip credits"),
|
|
"parent" => :field_menu,
|
|
"description" => _INTL("Toggle whether credits can be ended early by pressing the Use input."),
|
|
"effect" => proc {
|
|
$PokemonGlobal.creditsPlayed = !$PokemonGlobal.creditsPlayed
|
|
pbMessage(_INTL("Credits can be skipped when played in future.")) if $PokemonGlobal.creditsPlayed
|
|
pbMessage(_INTL("Credits cannot be skipped when next played.")) if !$PokemonGlobal.creditsPlayed
|
|
}
|
|
})
|
|
|
|
#===============================================================================
|
|
# Battle options
|
|
#===============================================================================
|
|
MenuHandlers.add(:debug_menu, :battle_menu, {
|
|
"name" => _INTL("Battle options..."),
|
|
"parent" => :main,
|
|
"description" => _INTL("Start battles, reset this map's trainers, ready rematches, edit roamers, etc."),
|
|
"always_show" => false
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :test_wild_battle, {
|
|
"name" => _INTL("Test wild battle"),
|
|
"parent" => :battle_menu,
|
|
"description" => _INTL("Start a single battle against a wild Pokémon. You choose the species/level."),
|
|
"effect" => proc {
|
|
species = pbChooseSpeciesList
|
|
if species
|
|
params = ChooseNumberParams.new
|
|
params.setRange(1, GameData::GrowthRate.max_level)
|
|
params.setInitialValue(5)
|
|
params.setCancelValue(0)
|
|
level = pbMessageChooseNumber(_INTL("Set the wild {1}'s level.",
|
|
GameData::Species.get(species).name), params)
|
|
if level > 0
|
|
$game_temp.encounter_type = nil
|
|
setBattleRule("canLose")
|
|
WildBattle.start(species, level)
|
|
end
|
|
end
|
|
next false
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :test_wild_battle_advanced, {
|
|
"name" => _INTL("Test wild battle advanced"),
|
|
"parent" => :battle_menu,
|
|
"description" => _INTL("Start a battle against 1 or more wild Pokémon. Battle size is your choice."),
|
|
"effect" => proc {
|
|
pkmn = []
|
|
size0 = 1
|
|
pkmnCmd = 0
|
|
loop do
|
|
pkmnCmds = []
|
|
pkmn.each { |p| pkmnCmds.push(sprintf("%s Lv.%d", p.name, p.level)) }
|
|
pkmnCmds.push(_INTL("[Add Pokémon]"))
|
|
pkmnCmds.push(_INTL("[Set player side size]"))
|
|
pkmnCmds.push(_INTL("[Start {1}v{2} battle]", size0, pkmn.length))
|
|
pkmnCmd = pbShowCommands(nil, pkmnCmds, -1, pkmnCmd)
|
|
break if pkmnCmd < 0
|
|
if pkmnCmd == pkmnCmds.length - 1 # Start battle
|
|
if pkmn.length == 0
|
|
pbMessage(_INTL("No Pokémon were chosen, cannot start battle."))
|
|
next
|
|
end
|
|
setBattleRule(sprintf("%dv%d", size0, pkmn.length))
|
|
setBattleRule("canLose")
|
|
$game_temp.encounter_type = nil
|
|
WildBattle.start(*pkmn)
|
|
break
|
|
elsif pkmnCmd == pkmnCmds.length - 2 # Set player side size
|
|
if !pbCanDoubleBattle?
|
|
pbMessage(_INTL("You only have one Pokémon."))
|
|
next
|
|
end
|
|
maxVal = (pbCanTripleBattle?) ? 3 : 2
|
|
params = ChooseNumberParams.new
|
|
params.setRange(1, maxVal)
|
|
params.setInitialValue(size0)
|
|
params.setCancelValue(0)
|
|
newSize = pbMessageChooseNumber(
|
|
_INTL("Choose the number of battlers on the player's side (max. {1}).", maxVal), params
|
|
)
|
|
size0 = newSize if newSize > 0
|
|
elsif pkmnCmd == pkmnCmds.length - 3 # Add Pokémon
|
|
species = pbChooseSpeciesList
|
|
if species
|
|
params = ChooseNumberParams.new
|
|
params.setRange(1, GameData::GrowthRate.max_level)
|
|
params.setInitialValue(5)
|
|
params.setCancelValue(0)
|
|
level = pbMessageChooseNumber(_INTL("Set the wild {1}'s level.",
|
|
GameData::Species.get(species).name), params)
|
|
if level > 0
|
|
pkmn.push(pbGenerateWildPokemon(species, level))
|
|
size0 = pkmn.length
|
|
end
|
|
end
|
|
else # Edit a Pokémon
|
|
if pbConfirmMessage(_INTL("Change this Pokémon?"))
|
|
scr = PokemonDebugPartyScreen.new
|
|
scr.pbPokemonDebug(pkmn[pkmnCmd], -1, nil, true)
|
|
scr.pbEndScreen
|
|
elsif pbConfirmMessage(_INTL("Delete this Pokémon?"))
|
|
pkmn.delete_at(pkmnCmd)
|
|
size0 = [pkmn.length, 1].max
|
|
end
|
|
end
|
|
end
|
|
next false
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :test_trainer_battle, {
|
|
"name" => _INTL("Test trainer battle"),
|
|
"parent" => :battle_menu,
|
|
"description" => _INTL("Start a single battle against a trainer of your choice."),
|
|
"effect" => proc {
|
|
trainerdata = pbListScreen(_INTL("SINGLE TRAINER"), TrainerBattleLister.new(0, false))
|
|
if trainerdata
|
|
setBattleRule("canLose")
|
|
TrainerBattle.start(trainerdata[0], trainerdata[1], trainerdata[2])
|
|
end
|
|
next false
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :test_trainer_battle_advanced, {
|
|
"name" => _INTL("Test trainer battle advanced"),
|
|
"parent" => :battle_menu,
|
|
"description" => _INTL("Start a battle against 1 or more trainers with a battle size of your choice."),
|
|
"effect" => proc {
|
|
trainers = []
|
|
size0 = 1
|
|
size1 = 1
|
|
trainerCmd = 0
|
|
loop do
|
|
trainerCmds = []
|
|
trainers.each { |t| trainerCmds.push(sprintf("%s x%d", t[1].full_name, t[1].party_count)) }
|
|
trainerCmds.push(_INTL("[Add trainer]"))
|
|
trainerCmds.push(_INTL("[Set player side size]"))
|
|
trainerCmds.push(_INTL("[Set opponent side size]"))
|
|
trainerCmds.push(_INTL("[Start {1}v{2} battle]", size0, size1))
|
|
trainerCmd = pbShowCommands(nil, trainerCmds, -1, trainerCmd)
|
|
break if trainerCmd < 0
|
|
if trainerCmd == trainerCmds.length - 1 # Start battle
|
|
if trainers.length == 0
|
|
pbMessage(_INTL("No trainers were chosen, cannot start battle."))
|
|
next
|
|
elsif size1 < trainers.length
|
|
pbMessage(_INTL("Opposing side size is invalid. It should be at least {1}.", trainers.length))
|
|
next
|
|
elsif size1 > trainers.length && trainers[0][1].party_count == 1
|
|
pbMessage(
|
|
_INTL("Opposing side size cannot be {1}, as that requires the first trainer to have 2 or more Pokémon, which they don't.",
|
|
size1)
|
|
)
|
|
next
|
|
end
|
|
setBattleRule(sprintf("%dv%d", size0, size1))
|
|
setBattleRule("canLose")
|
|
battleArgs = []
|
|
trainers.each { |t| battleArgs.push(t[1]) }
|
|
TrainerBattle.start(*battleArgs)
|
|
break
|
|
elsif trainerCmd == trainerCmds.length - 2 # Set opponent side size
|
|
if trainers.length == 0 || (trainers.length == 1 && trainers[0][1].party_count == 1)
|
|
pbMessage(_INTL("No trainers were chosen or trainer only has one Pokémon."))
|
|
next
|
|
end
|
|
maxVal = 2
|
|
maxVal = 3 if trainers.length >= 3 ||
|
|
(trainers.length == 2 && trainers[0][1].party_count >= 2) ||
|
|
trainers[0][1].party_count >= 3
|
|
params = ChooseNumberParams.new
|
|
params.setRange(1, maxVal)
|
|
params.setInitialValue(size1)
|
|
params.setCancelValue(0)
|
|
newSize = pbMessageChooseNumber(
|
|
_INTL("Choose the number of battlers on the opponent's side (max. {1}).", maxVal), params
|
|
)
|
|
size1 = newSize if newSize > 0
|
|
elsif trainerCmd == trainerCmds.length - 3 # Set player side size
|
|
if !pbCanDoubleBattle?
|
|
pbMessage(_INTL("You only have one Pokémon."))
|
|
next
|
|
end
|
|
maxVal = (pbCanTripleBattle?) ? 3 : 2
|
|
params = ChooseNumberParams.new
|
|
params.setRange(1, maxVal)
|
|
params.setInitialValue(size0)
|
|
params.setCancelValue(0)
|
|
newSize = pbMessageChooseNumber(
|
|
_INTL("Choose the number of battlers on the player's side (max. {1}).", maxVal), params
|
|
)
|
|
size0 = newSize if newSize > 0
|
|
elsif trainerCmd == trainerCmds.length - 4 # Add trainer
|
|
trainerdata = pbListScreen(_INTL("CHOOSE A TRAINER"), TrainerBattleLister.new(0, false))
|
|
if trainerdata
|
|
tr = pbLoadTrainer(trainerdata[0], trainerdata[1], trainerdata[2])
|
|
EventHandlers.trigger(:on_trainer_load, tr)
|
|
trainers.push([0, tr])
|
|
size0 = trainers.length
|
|
size1 = trainers.length
|
|
end
|
|
else # Edit a trainer
|
|
if pbConfirmMessage(_INTL("Change this trainer?"))
|
|
trainerdata = pbListScreen(_INTL("CHOOSE A TRAINER"),
|
|
TrainerBattleLister.new(trainers[trainerCmd][0], false))
|
|
if trainerdata
|
|
tr = pbLoadTrainer(trainerdata[0], trainerdata[1], trainerdata[2])
|
|
EventHandlers.trigger(:on_trainer_load, tr)
|
|
trainers[trainerCmd] = [0, tr]
|
|
end
|
|
elsif pbConfirmMessage(_INTL("Delete this trainer?"))
|
|
trainers.delete_at(trainerCmd)
|
|
size0 = [trainers.length, 1].max
|
|
size1 = [trainers.length, 1].max
|
|
end
|
|
end
|
|
end
|
|
next false
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :encounter_version, {
|
|
"name" => _INTL("Set wild encounters version"),
|
|
"parent" => :battle_menu,
|
|
"description" => _INTL("Choose which version of wild encounters should be used."),
|
|
"effect" => proc {
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, 99)
|
|
params.setInitialValue($PokemonGlobal.encounter_version)
|
|
params.setCancelValue(-1)
|
|
value = pbMessageChooseNumber(_INTL("Set encounters version to which value?"), params)
|
|
$PokemonGlobal.encounter_version = value if value >= 0
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :roamers, {
|
|
"name" => _INTL("Roaming Pokémon"),
|
|
"parent" => :battle_menu,
|
|
"description" => _INTL("Toggle and edit all roaming Pokémon."),
|
|
"effect" => proc {
|
|
pbDebugRoamers
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :reset_trainers, {
|
|
"name" => _INTL("Reset map's trainers"),
|
|
"parent" => :battle_menu,
|
|
"description" => _INTL("Turn off Self Switches A and B for all events with \"Trainer\" in their name."),
|
|
"effect" => proc {
|
|
if $game_map
|
|
$game_map.events.each_value do |event|
|
|
if event.name[/trainer/i]
|
|
$game_self_switches[[$game_map.map_id, event.id, "A"]] = false
|
|
$game_self_switches[[$game_map.map_id, event.id, "B"]] = false
|
|
end
|
|
end
|
|
$game_map.need_refresh = true
|
|
pbMessage(_INTL("All Trainers on this map were reset."))
|
|
else
|
|
pbMessage(_INTL("This command can't be used here."))
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :toggle_exp_all, {
|
|
"name" => _INTL("Toggle Exp. All's effect"),
|
|
"parent" => :battle_menu,
|
|
"description" => _INTL("Toggle Exp. All's effect of giving Exp. to non-participants."),
|
|
"effect" => proc {
|
|
$player.has_exp_all = !$player.has_exp_all
|
|
pbMessage(_INTL("Enabled Exp. All's effect.")) if $player.has_exp_all
|
|
pbMessage(_INTL("Disabled Exp. All's effect.")) if !$player.has_exp_all
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :toggle_logging, {
|
|
"name" => _INTL("Toggle logging of battle messages"),
|
|
"parent" => :battle_menu,
|
|
"description" => _INTL("Record debug logs for battles in Data/debuglog.txt."),
|
|
"effect" => proc {
|
|
$INTERNAL = !$INTERNAL
|
|
pbMessage(_INTL("Debug logs for battles will be made in the Data folder.")) if $INTERNAL
|
|
pbMessage(_INTL("Debug logs for battles will not be made.")) if !$INTERNAL
|
|
}
|
|
})
|
|
|
|
#===============================================================================
|
|
# Pokémon options
|
|
#===============================================================================
|
|
MenuHandlers.add(:debug_menu, :pokemon_menu, {
|
|
"name" => _INTL("Pokémon options..."),
|
|
"parent" => :main,
|
|
"description" => _INTL("Heal the party, give Pokémon, fill/empty PC storage, etc."),
|
|
"always_show" => false
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :heal_party, {
|
|
"name" => _INTL("Heal party"),
|
|
"parent" => :pokemon_menu,
|
|
"description" => _INTL("Fully heal the HP/status/PP of all Pokémon in the party."),
|
|
"effect" => proc {
|
|
$player.party.each { |pkmn| pkmn.heal }
|
|
pbMessage(_INTL("Your Pokémon were fully healed."))
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :add_pokemon, {
|
|
"name" => _INTL("Add Pokémon"),
|
|
"parent" => :pokemon_menu,
|
|
"description" => _INTL("Give yourself a Pokémon of a chosen species/level. Goes to PC if party is full."),
|
|
"effect" => proc {
|
|
species = pbChooseSpeciesList
|
|
if species
|
|
params = ChooseNumberParams.new
|
|
params.setRange(1, GameData::GrowthRate.max_level)
|
|
params.setInitialValue(5)
|
|
params.setCancelValue(0)
|
|
level = pbMessageChooseNumber(_INTL("Set the Pokémon's level."), params)
|
|
if level > 0
|
|
goes_to_party = !$player.party_full?
|
|
if pbAddPokemonSilent(species, level)
|
|
if goes_to_party
|
|
pbMessage(_INTL("Added {1} to party.", GameData::Species.get(species).name))
|
|
else
|
|
pbMessage(_INTL("Added {1} to Pokémon storage.", GameData::Species.get(species).name))
|
|
end
|
|
else
|
|
pbMessage(_INTL("Couldn't add Pokémon because party and storage are full."))
|
|
end
|
|
end
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :fill_boxes, {
|
|
"name" => _INTL("Fill storage boxes"),
|
|
"parent" => :pokemon_menu,
|
|
"description" => _INTL("Puts one Pokémon of each species (at Level 50) in storage."),
|
|
"effect" => proc {
|
|
added = 0
|
|
box_qty = $PokemonStorage.maxPokemon(0)
|
|
completed = true
|
|
GameData::Species.each do |species_data|
|
|
sp = species_data.species
|
|
f = species_data.form
|
|
# Record each form of each species as seen and owned
|
|
if f == 0
|
|
if species_data.single_gendered?
|
|
g = (species_data.gender_ratio == :AlwaysFemale) ? 1 : 0
|
|
$player.pokedex.register(sp, g, f, 0, false)
|
|
$player.pokedex.register(sp, g, f, 1, false)
|
|
else # Both male and female
|
|
$player.pokedex.register(sp, 0, f, 0, false)
|
|
$player.pokedex.register(sp, 0, f, 1, false)
|
|
$player.pokedex.register(sp, 1, f, 0, false)
|
|
$player.pokedex.register(sp, 1, f, 1, false)
|
|
end
|
|
$player.pokedex.set_owned(sp, false)
|
|
elsif species_data.real_form_name && !species_data.real_form_name.empty?
|
|
g = (species_data.gender_ratio == :AlwaysFemale) ? 1 : 0
|
|
$player.pokedex.register(sp, g, f, 0, false)
|
|
$player.pokedex.register(sp, g, f, 1, false)
|
|
end
|
|
# Add Pokémon (if form 0, i.e. one of each species)
|
|
next if f != 0
|
|
if added >= Settings::NUM_STORAGE_BOXES * box_qty
|
|
completed = false
|
|
next
|
|
end
|
|
added += 1
|
|
$PokemonStorage[(added - 1) / box_qty, (added - 1) % box_qty] = Pokemon.new(sp, 50)
|
|
end
|
|
$player.pokedex.refresh_accessible_dexes
|
|
pbMessage(_INTL("Storage boxes were filled with one Pokémon of each species."))
|
|
if !completed
|
|
pbMessage(_INTL("Note: The number of storage spaces ({1} boxes of {2}) is less than the number of species.",
|
|
Settings::NUM_STORAGE_BOXES, box_qty))
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :clear_boxes, {
|
|
"name" => _INTL("Clear storage boxes"),
|
|
"parent" => :pokemon_menu,
|
|
"description" => _INTL("Remove all Pokémon in storage."),
|
|
"effect" => proc {
|
|
$PokemonStorage.maxBoxes.times do |i|
|
|
$PokemonStorage.maxPokemon(i).times do |j|
|
|
$PokemonStorage[i, j] = nil
|
|
end
|
|
end
|
|
pbMessage(_INTL("The storage boxes were cleared."))
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :give_demo_party, {
|
|
"name" => _INTL("Give demo party"),
|
|
"parent" => :pokemon_menu,
|
|
"description" => _INTL("Give yourself 6 preset Pokémon. They overwrite the current party."),
|
|
"effect" => proc {
|
|
party = []
|
|
species = [:PIKACHU, :PIDGEOTTO, :KADABRA, :GYARADOS, :DIGLETT, :CHANSEY]
|
|
species.each { |id| party.push(id) if GameData::Species.exists?(id) }
|
|
$player.party.clear
|
|
# Generate Pokémon of each species at level 20
|
|
party.each do |spec|
|
|
pkmn = Pokemon.new(spec, 20)
|
|
$player.party.push(pkmn)
|
|
$player.pokedex.register(pkmn)
|
|
$player.pokedex.set_owned(spec)
|
|
case spec
|
|
when :PIDGEOTTO
|
|
pkmn.learn_move(:FLY)
|
|
when :KADABRA
|
|
pkmn.learn_move(:FLASH)
|
|
pkmn.learn_move(:TELEPORT)
|
|
when :GYARADOS
|
|
pkmn.learn_move(:SURF)
|
|
pkmn.learn_move(:DIVE)
|
|
pkmn.learn_move(:WATERFALL)
|
|
when :DIGLETT
|
|
pkmn.learn_move(:DIG)
|
|
pkmn.learn_move(:CUT)
|
|
pkmn.learn_move(:HEADBUTT)
|
|
pkmn.learn_move(:ROCKSMASH)
|
|
when :CHANSEY
|
|
pkmn.learn_move(:SOFTBOILED)
|
|
pkmn.learn_move(:STRENGTH)
|
|
pkmn.learn_move(:SWEETSCENT)
|
|
end
|
|
pkmn.record_first_moves
|
|
end
|
|
pbMessage(_INTL("Filled party with demo Pokémon."))
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :quick_hatch_party_eggs, {
|
|
"name" => _INTL("Quick hatch all party eggs"),
|
|
"parent" => :pokemon_menu,
|
|
"description" => _INTL("Make all eggs in the party require just one more step to hatch."),
|
|
"effect" => proc {
|
|
$player.party.each { |pkmn| pkmn.steps_to_hatch = 1 if pkmn.egg? }
|
|
pbMessage(_INTL("All eggs in your party now require one step to hatch."))
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :open_storage, {
|
|
"name" => _INTL("Access Pokémon storage"),
|
|
"parent" => :pokemon_menu,
|
|
"description" => _INTL("Opens the Pokémon storage boxes in Organize Boxes mode."),
|
|
"effect" => proc {
|
|
pbFadeOutIn do
|
|
scene = PokemonStorageScene.new
|
|
screen = PokemonStorageScreen.new(scene, $PokemonStorage)
|
|
screen.pbStartScreen(0)
|
|
end
|
|
}
|
|
})
|
|
|
|
#===============================================================================
|
|
# Shadow Pokémon options
|
|
#===============================================================================
|
|
MenuHandlers.add(:debug_menu, :shadow_pokemon_menu, {
|
|
"name" => _INTL("Shadow Pokémon options..."),
|
|
"parent" => :pokemon_menu,
|
|
"description" => _INTL("Snag Machine and purification."),
|
|
"always_show" => false
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :toggle_snag_machine, {
|
|
"name" => _INTL("Toggle Snag Machine"),
|
|
"parent" => :shadow_pokemon_menu,
|
|
"description" => _INTL("Toggle all Poké Balls being able to catch Shadow Pokémon."),
|
|
"effect" => proc {
|
|
$player.has_snag_machine = !$player.has_snag_machine
|
|
pbMessage(_INTL("Gave the Snag Machine.")) if $player.has_snag_machine
|
|
pbMessage(_INTL("Lost the Snag Machine.")) if !$player.has_snag_machine
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :toggle_purify_chamber_access, {
|
|
"name" => _INTL("Toggle Purify Chamber access"),
|
|
"parent" => :shadow_pokemon_menu,
|
|
"description" => _INTL("Toggle access to the Purify Chamber via the PC."),
|
|
"effect" => proc {
|
|
$player.seen_purify_chamber = !$player.seen_purify_chamber
|
|
pbMessage(_INTL("The Purify Chamber is accessible.")) if $player.seen_purify_chamber
|
|
pbMessage(_INTL("The Purify Chamber is not accessible.")) if !$player.seen_purify_chamber
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :purify_chamber, {
|
|
"name" => _INTL("Use Purify Chamber"),
|
|
"parent" => :shadow_pokemon_menu,
|
|
"description" => _INTL("Open the Purify Chamber for Shadow Pokémon purification."),
|
|
"effect" => proc {
|
|
pbPurifyChamber
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :relic_stone, {
|
|
"name" => _INTL("Use Relic Stone"),
|
|
"parent" => :shadow_pokemon_menu,
|
|
"description" => _INTL("Choose a Shadow Pokémon to show to the Relic Stone for purification."),
|
|
"effect" => proc {
|
|
pbRelicStone
|
|
}
|
|
})
|
|
|
|
#===============================================================================
|
|
# Item options
|
|
#===============================================================================
|
|
MenuHandlers.add(:debug_menu, :items_menu, {
|
|
"name" => _INTL("Item options..."),
|
|
"parent" => :main,
|
|
"description" => _INTL("Give and take items."),
|
|
"always_show" => false
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :add_item, {
|
|
"name" => _INTL("Add item"),
|
|
"parent" => :items_menu,
|
|
"description" => _INTL("Choose an item and a quantity of it to add to the Bag."),
|
|
"effect" => proc {
|
|
pbListScreenBlock(_INTL("ADD ITEM"), ItemLister.new) do |button, item|
|
|
if button == Input::USE && item
|
|
params = ChooseNumberParams.new
|
|
params.setRange(1, Settings::BAG_MAX_PER_SLOT)
|
|
params.setInitialValue(1)
|
|
params.setCancelValue(0)
|
|
qty = pbMessageChooseNumber(_INTL("Add how many {1}?",
|
|
GameData::Item.get(item).name_plural), params)
|
|
if qty > 0
|
|
$bag.add(item, qty)
|
|
pbMessage(_INTL("Gave {1}x {2}.", qty, GameData::Item.get(item).name))
|
|
end
|
|
end
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :fill_bag, {
|
|
"name" => _INTL("Fill Bag"),
|
|
"parent" => :items_menu,
|
|
"description" => _INTL("Empties the Bag and then fills it with a certain number of every item."),
|
|
"effect" => proc {
|
|
params = ChooseNumberParams.new
|
|
params.setRange(1, Settings::BAG_MAX_PER_SLOT)
|
|
params.setInitialValue(1)
|
|
params.setCancelValue(0)
|
|
qty = pbMessageChooseNumber(_INTL("Choose the number of items."), params)
|
|
if qty > 0
|
|
$bag.clear
|
|
# NOTE: This doesn't simply use $bag.add for every item in turn, because
|
|
# that's really slow when done in bulk.
|
|
pocket_sizes = Settings::BAG_MAX_POCKET_SIZE
|
|
bag = $bag.pockets # Called here so that it only rearranges itself once
|
|
GameData::Item.each do |i|
|
|
next if !pocket_sizes[i.pocket - 1] || pocket_sizes[i.pocket - 1] == 0
|
|
next if pocket_sizes[i.pocket - 1] > 0 && bag[i.pocket].length >= pocket_sizes[i.pocket - 1]
|
|
item_qty = (i.is_important?) ? 1 : qty
|
|
bag[i.pocket].push([i.id, item_qty])
|
|
end
|
|
# NOTE: Auto-sorting pockets don't need to be sorted afterwards, because
|
|
# items are added in the same order they would be sorted into.
|
|
pbMessage(_INTL("The Bag was filled with {1} of each item.", qty))
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :empty_bag, {
|
|
"name" => _INTL("Empty Bag"),
|
|
"parent" => :items_menu,
|
|
"description" => _INTL("Remove all items from the Bag."),
|
|
"effect" => proc {
|
|
$bag.clear
|
|
pbMessage(_INTL("The Bag was cleared."))
|
|
}
|
|
})
|
|
|
|
#===============================================================================
|
|
# Player options
|
|
#===============================================================================
|
|
MenuHandlers.add(:debug_menu, :player_menu, {
|
|
"name" => _INTL("Player options..."),
|
|
"parent" => :main,
|
|
"description" => _INTL("Set money, badges, Pokédexes, player's appearance and name, etc."),
|
|
"always_show" => false
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_money, {
|
|
"name" => _INTL("Set money"),
|
|
"parent" => :player_menu,
|
|
"description" => _INTL("Edit how much money, Game Corner Coins and Battle Points you have."),
|
|
"effect" => proc {
|
|
cmd = 0
|
|
loop do
|
|
cmds = [_INTL("Money: ${1}", $player.money.to_s_formatted),
|
|
_INTL("Coins: {1}", $player.coins.to_s_formatted),
|
|
_INTL("Battle Points: {1}", $player.battle_points.to_s_formatted)]
|
|
cmd = pbShowCommands(nil, cmds, -1, cmd)
|
|
break if cmd < 0
|
|
case cmd
|
|
when 0 # Money
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, Settings::MAX_MONEY)
|
|
params.setDefaultValue($player.money)
|
|
$player.money = pbMessageChooseNumber("\\ts[]" + _INTL("Set the player's money."), params)
|
|
when 1 # Coins
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, Settings::MAX_COINS)
|
|
params.setDefaultValue($player.coins)
|
|
$player.coins = pbMessageChooseNumber("\\ts[]" + _INTL("Set the player's Coin amount."), params)
|
|
when 2 # Battle Points
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, Settings::MAX_BATTLE_POINTS)
|
|
params.setDefaultValue($player.battle_points)
|
|
$player.battle_points = pbMessageChooseNumber("\\ts[]" + _INTL("Set the player's BP amount."), params)
|
|
end
|
|
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_badges, {
|
|
"name" => _INTL("Set Gym Badges"),
|
|
"parent" => :player_menu,
|
|
"description" => _INTL("Toggle possession of each Gym Badge."),
|
|
"effect" => proc {
|
|
badgecmd = 0
|
|
loop do
|
|
badgecmds = []
|
|
badgecmds.push(_INTL("Give all"))
|
|
badgecmds.push(_INTL("Remove all"))
|
|
24.times do |i|
|
|
badgecmds.push(($player.badges[i] ? "[Y]" : "[ ]") + " " + _INTL("Badge {1}", i + 1))
|
|
end
|
|
badgecmd = pbShowCommands(nil, badgecmds, -1, badgecmd)
|
|
break if badgecmd < 0
|
|
case badgecmd
|
|
when 0 # Give all
|
|
24.times { |i| $player.badges[i] = true }
|
|
when 1 # Remove all
|
|
24.times { |i| $player.badges[i] = false }
|
|
else
|
|
$player.badges[badgecmd - 2] = !$player.badges[badgecmd - 2]
|
|
end
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :toggle_running_shoes, {
|
|
"name" => _INTL("Toggle running shoes"),
|
|
"parent" => :player_menu,
|
|
"description" => _INTL("Toggle possession of running shoes."),
|
|
"effect" => proc {
|
|
$player.has_running_shoes = !$player.has_running_shoes
|
|
pbMessage(_INTL("Gave Running Shoes.")) if $player.has_running_shoes
|
|
pbMessage(_INTL("Lost Running Shoes.")) if !$player.has_running_shoes
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :toggle_pokedex, {
|
|
"name" => _INTL("Toggle Pokédex and Regional Dexes"),
|
|
"parent" => :player_menu,
|
|
"description" => _INTL("Toggle possession of the Pokédex, and edit Regional Dex accessibility."),
|
|
"effect" => proc {
|
|
dexescmd = 0
|
|
loop do
|
|
dexescmds = []
|
|
dexescmds.push(_INTL("Have Pokédex: {1}", $player.has_pokedex ? "[YES]" : "[NO]"))
|
|
dex_names = Settings.pokedex_names
|
|
dex_names.length.times do |i|
|
|
name = (dex_names[i].is_a?(Array)) ? dex_names[i][0] : dex_names[i]
|
|
unlocked = $player.pokedex.unlocked?(i)
|
|
dexescmds.push((unlocked ? "[Y]" : "[ ]") + " " + name)
|
|
end
|
|
dexescmd = pbShowCommands(nil, dexescmds, -1, dexescmd)
|
|
break if dexescmd < 0
|
|
dexindex = dexescmd - 1
|
|
if dexindex < 0 # Toggle Pokédex ownership
|
|
$player.has_pokedex = !$player.has_pokedex
|
|
elsif $player.pokedex.unlocked?(dexindex) # Toggle Regional Dex accessibility
|
|
$player.pokedex.lock(dexindex)
|
|
else
|
|
$player.pokedex.unlock(dexindex)
|
|
end
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :toggle_pokegear, {
|
|
"name" => _INTL("Toggle Pokégear"),
|
|
"parent" => :player_menu,
|
|
"description" => _INTL("Toggle possession of the Pokégear."),
|
|
"effect" => proc {
|
|
$player.has_pokegear = !$player.has_pokegear
|
|
pbMessage(_INTL("Gave Pokégear.")) if $player.has_pokegear
|
|
pbMessage(_INTL("Lost Pokégear.")) if !$player.has_pokegear
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :edit_phone_contacts, {
|
|
"name" => _INTL("Edit phone and contacts"),
|
|
"parent" => :player_menu,
|
|
"description" => _INTL("Edit properties of the phone and of contacts registered in it."),
|
|
"effect" => proc {
|
|
if !$PokemonGlobal.phone
|
|
pbMessage(_INTL("The phone is not defined."))
|
|
next
|
|
end
|
|
cmd = 0
|
|
loop do
|
|
cmds = []
|
|
time = $PokemonGlobal.phone.time_to_next_call.to_i # time is in seconds
|
|
min = time / 60
|
|
sec = time % 60
|
|
cmds.push(_INTL("Time until next call: {1}m {2}s", min, sec))
|
|
cmds.push((Phone.rematches_enabled ? "[Y]" : "[ ]") + " " + _INTL("Rematches possible"))
|
|
cmds.push(_INTL("Maximum rematch version : {1}", Phone.rematch_variant))
|
|
if $PokemonGlobal.phone.contacts.length > 0
|
|
cmds.push(_INTL("Make all contacts ready for a rematch"))
|
|
cmds.push(_INTL("Edit individual contacts: {1}", $PokemonGlobal.phone.contacts.length))
|
|
end
|
|
cmd = pbShowCommands(nil, cmds, -1, cmd)
|
|
break if cmd < 0
|
|
case cmd
|
|
when 0 # Time until next call
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, 99999)
|
|
params.setDefaultValue(min)
|
|
params.setCancelValue(-1)
|
|
new_time = pbMessageChooseNumber(_INTL("Set the time (in minutes) until the next phone call."), params)
|
|
$PokemonGlobal.phone.time_to_next_call = new_time * 60 if new_time >= 0
|
|
when 1 # Rematches possible
|
|
Phone.rematches_enabled = !Phone.rematches_enabled
|
|
when 2 # Maximum rematch version
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, 99)
|
|
params.setDefaultValue(Phone.rematch_variant)
|
|
new_version = pbMessageChooseNumber(_INTL("Set the maximum version number a trainer contact can reach."), params)
|
|
Phone.rematch_variant = new_version
|
|
when 3 # Make all contacts ready for a rematch
|
|
$PokemonGlobal.phone.contacts.each do |contact|
|
|
next if !contact.trainer?
|
|
contact.rematch_flag = 1
|
|
contact.set_trainer_event_ready_for_rematch
|
|
end
|
|
pbMessage(_INTL("All trainers in the phone are now ready to rebattle."))
|
|
when 4 # Edit individual contacts
|
|
contact_cmd = 0
|
|
loop do
|
|
contact_cmds = []
|
|
$PokemonGlobal.phone.contacts.each do |contact|
|
|
visible_string = (contact.visible?) ? "[Y]" : "[ ]"
|
|
if contact.trainer?
|
|
battle_string = (contact.can_rematch?) ? "(can battle)" : ""
|
|
contact_cmds.push(sprintf("%s %s (%i) %s", visible_string, contact.display_name, contact.variant, battle_string))
|
|
else
|
|
contact_cmds.push(sprintf("%s %s", visible_string, contact.display_name))
|
|
end
|
|
end
|
|
contact_cmd = pbShowCommands(nil, contact_cmds, -1, contact_cmd)
|
|
break if contact_cmd < 0
|
|
contact = $PokemonGlobal.phone.contacts[contact_cmd]
|
|
edit_cmd = 0
|
|
loop do
|
|
edit_cmds = []
|
|
edit_cmds.push((contact.visible? ? "[Y]" : "[ ]") + " " + _INTL("Contact visible"))
|
|
if contact.trainer?
|
|
edit_cmds.push((contact.can_rematch? ? "[Y]" : "[ ]") + " " + _INTL("Can battle"))
|
|
ready_time = contact.time_to_ready # time is in seconds
|
|
ready_min = ready_time / 60
|
|
ready_sec = ready_time % 60
|
|
edit_cmds.push(_INTL("Time until ready to battle: {1}m {2}s", ready_min, ready_sec))
|
|
edit_cmds.push(_INTL("Last defeated version: {1}", contact.variant))
|
|
end
|
|
break if edit_cmds.length == 0
|
|
edit_cmd = pbShowCommands(nil, edit_cmds, -1, edit_cmd)
|
|
break if edit_cmd < 0
|
|
case edit_cmd
|
|
when 0 # Visibility
|
|
contact.visible = !contact.visible if contact.can_hide?
|
|
when 1 # Can battle
|
|
contact.rematch_flag = (contact.can_rematch?) ? 0 : 1
|
|
contact.time_to_ready = 0 if contact.can_rematch?
|
|
when 2 # Time until ready to battle
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, 99999)
|
|
params.setDefaultValue(ready_min)
|
|
params.setCancelValue(-1)
|
|
new_time = pbMessageChooseNumber(_INTL("Set the time (in minutes) until this trainer is ready to battle."), params)
|
|
contact.time_to_ready = new_time * 60 if new_time >= 0
|
|
when 3 # Last defeated version
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, 99)
|
|
params.setDefaultValue(contact.variant)
|
|
new_version = pbMessageChooseNumber(_INTL("Set the last defeated version number of this trainer."), params)
|
|
contact.version = contact.start_version + new_version
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :toggle_box_link, {
|
|
"name" => _INTL("Toggle access to storage from party screen"),
|
|
"parent" => :player_menu,
|
|
"description" => _INTL("Toggle Box Link's effect of accessing Pokémon storage via the party screen."),
|
|
"effect" => proc {
|
|
$player.has_box_link = !$player.has_box_link
|
|
pbMessage(_INTL("Enabled access to storage from the party screen.")) if $player.has_box_link
|
|
pbMessage(_INTL("Disabled access to storage from the party screen.")) if !$player.has_box_link
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_player_character, {
|
|
"name" => _INTL("Set player character"),
|
|
"parent" => :player_menu,
|
|
"description" => _INTL("Edit the player's character, as defined in \"metadata.txt\"."),
|
|
"effect" => proc {
|
|
index = 0
|
|
cmds = []
|
|
ids = []
|
|
GameData::PlayerMetadata.each do |player|
|
|
index = cmds.length if player.id == $player.character_ID
|
|
cmds.push(player.id.to_s)
|
|
ids.push(player.id)
|
|
end
|
|
if cmds.length == 1
|
|
pbMessage(_INTL("There is only one player character defined."))
|
|
break
|
|
end
|
|
cmd = pbShowCommands(nil, cmds, -1, index)
|
|
if cmd >= 0 && cmd != index
|
|
pbChangePlayer(ids[cmd])
|
|
pbMessage(_INTL("The player character was changed."))
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :change_outfit, {
|
|
"name" => _INTL("Set player outfit"),
|
|
"parent" => :player_menu,
|
|
"description" => _INTL("Edit the player's outfit number."),
|
|
"effect" => proc {
|
|
oldoutfit = $player.outfit
|
|
params = ChooseNumberParams.new
|
|
params.setRange(0, 99)
|
|
params.setDefaultValue(oldoutfit)
|
|
$player.outfit = pbMessageChooseNumber(_INTL("Set the player's outfit."), params)
|
|
pbMessage(_INTL("Player's outfit was changed.")) if $player.outfit != oldoutfit
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :rename_player, {
|
|
"name" => _INTL("Set player name"),
|
|
"parent" => :player_menu,
|
|
"description" => _INTL("Rename the player."),
|
|
"effect" => proc {
|
|
trname = pbEnterPlayerName("Your name?", 0, Settings::MAX_PLAYER_NAME_SIZE, $player.name)
|
|
if nil_or_empty?(trname) && pbConfirmMessage(_INTL("Give yourself a default name?"))
|
|
trainertype = $player.trainer_type
|
|
gender = pbGetTrainerTypeGender(trainertype)
|
|
trname = pbSuggestTrainerName(gender)
|
|
end
|
|
if nil_or_empty?(trname)
|
|
pbMessage(_INTL("The player's name remained {1}.", $player.name))
|
|
else
|
|
$player.name = trname
|
|
pbMessage(_INTL("The player's name was changed to {1}.", $player.name))
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :random_id, {
|
|
"name" => _INTL("Randomize player ID"),
|
|
"parent" => :player_menu,
|
|
"description" => _INTL("Generate a random new ID for the player."),
|
|
"effect" => proc {
|
|
$player.id = rand(2**16) | (rand(2**16) << 16)
|
|
pbMessage(_INTL("The player's ID was changed to {1} (full ID: {2}).", $player.public_ID, $player.id))
|
|
}
|
|
})
|
|
|
|
#===============================================================================
|
|
# PBS file editors
|
|
#===============================================================================
|
|
MenuHandlers.add(:debug_menu, :pbs_editors_menu, {
|
|
"name" => _INTL("PBS file editors..."),
|
|
"parent" => :main,
|
|
"description" => _INTL("Edit information in the PBS files.")
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_map_connections, {
|
|
"name" => _INTL("Edit map_connections.txt"),
|
|
"parent" => :pbs_editors_menu,
|
|
"description" => _INTL("Connect maps using a visual interface. Can also edit map encounters/metadata."),
|
|
"effect" => proc {
|
|
pbFadeOutIn { pbConnectionsEditor }
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_encounters, {
|
|
"name" => _INTL("Edit encounters.txt"),
|
|
"parent" => :pbs_editors_menu,
|
|
"description" => _INTL("Edit the wild Pokémon that can be found on maps, and how they are encountered."),
|
|
"effect" => proc {
|
|
pbFadeOutIn { pbEncountersEditor }
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_trainers, {
|
|
"name" => _INTL("Edit trainers.txt"),
|
|
"parent" => :pbs_editors_menu,
|
|
"description" => _INTL("Edit individual trainers, their Pokémon and items."),
|
|
"effect" => proc {
|
|
pbFadeOutIn { pbTrainerBattleEditor }
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_trainer_types, {
|
|
"name" => _INTL("Edit trainer_types.txt"),
|
|
"parent" => :pbs_editors_menu,
|
|
"description" => _INTL("Edit the properties of trainer types."),
|
|
"effect" => proc {
|
|
pbFadeOutIn { pbTrainerTypeEditor }
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_map_metadata, {
|
|
"name" => _INTL("Edit map_metadata.txt"),
|
|
"parent" => :pbs_editors_menu,
|
|
"description" => _INTL("Edit map metadata."),
|
|
"effect" => proc {
|
|
pbMapMetadataScreen(pbDefaultMap)
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_metadata, {
|
|
"name" => _INTL("Edit metadata.txt"),
|
|
"parent" => :pbs_editors_menu,
|
|
"description" => _INTL("Edit global metadata and player character metadata."),
|
|
"effect" => proc {
|
|
pbMetadataScreen
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_items, {
|
|
"name" => _INTL("Edit items.txt"),
|
|
"parent" => :pbs_editors_menu,
|
|
"description" => _INTL("Edit item data."),
|
|
"effect" => proc {
|
|
pbFadeOutIn { pbItemEditor }
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_species, {
|
|
"name" => _INTL("Edit pokemon.txt"),
|
|
"parent" => :pbs_editors_menu,
|
|
"description" => _INTL("Edit Pokémon species data."),
|
|
"effect" => proc {
|
|
pbFadeOutIn { pbPokemonEditor }
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :position_sprites, {
|
|
"name" => _INTL("Edit pokemon_metrics.txt"),
|
|
"parent" => :pbs_editors_menu,
|
|
"description" => _INTL("Reposition Pokémon sprites in battle."),
|
|
"effect" => proc {
|
|
pbFadeOutIn do
|
|
sp = SpritePositioner.new
|
|
sps = SpritePositionerScreen.new(sp)
|
|
sps.pbStart
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :auto_position_sprites, {
|
|
"name" => _INTL("Auto-set pokemon_metrics.txts"),
|
|
"parent" => :pbs_editors_menu,
|
|
"description" => _INTL("Automatically reposition all Pokémon sprites in battle. Don't use lightly."),
|
|
"effect" => proc {
|
|
if pbConfirmMessage(_INTL("Are you sure you want to reposition all sprites?"))
|
|
msgwindow = pbCreateMessageWindow
|
|
pbMessageDisplay(msgwindow, _INTL("Repositioning all sprites. Please wait."), false)
|
|
Graphics.update
|
|
pbAutoPositionAll
|
|
pbDisposeMessageWindow(msgwindow)
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_pokedex_lists, {
|
|
"name" => _INTL("Edit regional_dexes.txt"),
|
|
"parent" => :pbs_editors_menu,
|
|
"description" => _INTL("Create, rearrange and delete Regional Pokédex lists."),
|
|
"effect" => proc {
|
|
pbFadeOutIn { pbRegionalDexEditorMain }
|
|
}
|
|
})
|
|
|
|
#===============================================================================
|
|
# Other editors
|
|
#===============================================================================
|
|
MenuHandlers.add(:debug_menu, :editors_menu, {
|
|
"name" => _INTL("Other editors..."),
|
|
"parent" => :main,
|
|
"description" => _INTL("Edit battle animations, terrain tags, map data, etc.")
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :animation_editor, {
|
|
"name" => _INTL("Battle animation editor"),
|
|
"parent" => :editors_menu,
|
|
"description" => _INTL("Edit the battle animations."),
|
|
"effect" => proc {
|
|
pbFadeOutIn { pbAnimationEditor }
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :animation_organiser, {
|
|
"name" => _INTL("Battle animation organiser"),
|
|
"parent" => :editors_menu,
|
|
"description" => _INTL("Rearrange/add/delete battle animations."),
|
|
"effect" => proc {
|
|
pbFadeOutIn { pbAnimationsOrganiser }
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :import_animations, {
|
|
"name" => _INTL("Import all battle animations"),
|
|
"parent" => :editors_menu,
|
|
"description" => _INTL("Import all battle animations from the \"Animations\" folder."),
|
|
"effect" => proc {
|
|
pbImportAllAnimations
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :export_animations, {
|
|
"name" => _INTL("Export all battle animations"),
|
|
"parent" => :editors_menu,
|
|
"description" => _INTL("Export all battle animations individually to the \"Animations\" folder."),
|
|
"effect" => proc {
|
|
pbExportAllAnimations
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :set_terrain_tags, {
|
|
"name" => _INTL("Edit terrain tags"),
|
|
"parent" => :editors_menu,
|
|
"description" => _INTL("Edit the terrain tags of tiles in tilesets. Required for tags 8+."),
|
|
"effect" => proc {
|
|
pbFadeOutIn { pbTilesetScreen }
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :fix_invalid_tiles, {
|
|
"name" => _INTL("Fix invalid tiles"),
|
|
"parent" => :editors_menu,
|
|
"description" => _INTL("Scans all maps and erases non-existent tiles."),
|
|
"effect" => proc {
|
|
pbDebugFixInvalidTiles
|
|
}
|
|
})
|
|
|
|
#===============================================================================
|
|
# Other options
|
|
#===============================================================================
|
|
MenuHandlers.add(:debug_menu, :files_menu, {
|
|
"name" => _INTL("Files options..."),
|
|
"parent" => :main,
|
|
"description" => _INTL("Compile, generate PBS files, translations, Mystery Gifts, etc.")
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :compile_data, {
|
|
"name" => _INTL("Compile data"),
|
|
"parent" => :files_menu,
|
|
"description" => _INTL("Fully compile all data."),
|
|
"effect" => proc {
|
|
msgwindow = pbCreateMessageWindow
|
|
Compiler.compile_all(true)
|
|
pbMessageDisplay(msgwindow, _INTL("All game data was compiled."))
|
|
pbDisposeMessageWindow(msgwindow)
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :create_pbs_files, {
|
|
"name" => _INTL("Create PBS file(s)"),
|
|
"parent" => :files_menu,
|
|
"description" => _INTL("Choose one or all PBS files and create it."),
|
|
"effect" => proc {
|
|
cmd = 0
|
|
cmds = [
|
|
_INTL("[Create all]"),
|
|
"abilities.txt",
|
|
"battle_facility_lists.txt",
|
|
"berry_plants.txt",
|
|
"dungeon_parameters.txt",
|
|
"dungeon_tilesets.txt",
|
|
"encounters.txt",
|
|
"items.txt",
|
|
"map_connections.txt",
|
|
"map_metadata.txt",
|
|
"metadata.txt",
|
|
"moves.txt",
|
|
"phone.txt",
|
|
"pokemon.txt",
|
|
"pokemon_forms.txt",
|
|
"pokemon_metrics.txt",
|
|
"regional_dexes.txt",
|
|
"ribbons.txt",
|
|
"shadow_pokemon.txt",
|
|
"town_map.txt",
|
|
"trainer_types.txt",
|
|
"trainers.txt",
|
|
"types.txt"
|
|
]
|
|
loop do
|
|
cmd = pbShowCommands(nil, cmds, -1, cmd)
|
|
case cmd
|
|
when 0 then Compiler.write_all
|
|
when 1 then Compiler.write_abilities
|
|
when 2 then Compiler.write_trainer_lists
|
|
when 3 then Compiler.write_berry_plants
|
|
when 4 then Compiler.write_dungeon_parameters
|
|
when 5 then Compiler.write_dungeon_tilesets
|
|
when 6 then Compiler.write_encounters
|
|
when 7 then Compiler.write_items
|
|
when 8 then Compiler.write_connections
|
|
when 9 then Compiler.write_map_metadata
|
|
when 10 then Compiler.write_metadata
|
|
when 11 then Compiler.write_moves
|
|
when 12 then Compiler.write_phone
|
|
when 13 then Compiler.write_pokemon
|
|
when 14 then Compiler.write_pokemon_forms
|
|
when 15 then Compiler.write_pokemon_metrics
|
|
when 16 then Compiler.write_regional_dexes
|
|
when 17 then Compiler.write_ribbons
|
|
when 18 then Compiler.write_shadow_pokemon
|
|
when 19 then Compiler.write_town_map
|
|
when 20 then Compiler.write_trainer_types
|
|
when 21 then Compiler.write_trainers
|
|
when 22 then Compiler.write_types
|
|
else break
|
|
end
|
|
pbMessage(_INTL("File written."))
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :rename_files, {
|
|
"name" => _INTL("Rename outdated files"),
|
|
"parent" => :files_menu,
|
|
"description" => _INTL("Check for files with outdated names and rename/move them. Can alter map data."),
|
|
"effect" => proc {
|
|
if pbConfirmMessage(_INTL("Are you sure you want to automatically rename outdated files?"))
|
|
FilenameUpdater.rename_files
|
|
pbMessage(_INTL("Done."))
|
|
end
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :extract_text, {
|
|
"name" => _INTL("Extract text for translation"),
|
|
"parent" => :files_menu,
|
|
"description" => _INTL("Extract all text in the game to text files for translating."),
|
|
"effect" => proc {
|
|
if Settings::LANGUAGES.length == 0
|
|
pbMessage(_INTL("No languages are defined in the LANGUAGES array in Settings."))
|
|
pbMessage(_INTL("You need to add at least one language to LANGUAGES first, to choose which one to extract text for."))
|
|
next
|
|
end
|
|
# Choose a language from Settings to name the extraction folder after
|
|
cmds = []
|
|
Settings::LANGUAGES.each { |val| cmds.push(val[0]) }
|
|
cmds.push(_INTL("Cancel"))
|
|
language_index = pbMessage(_INTL("Choose a language to extract text for."), cmds, cmds.length)
|
|
next if language_index == cmds.length - 1
|
|
language_name = Settings::LANGUAGES[language_index][1]
|
|
# Choose whether to extract core text or game text
|
|
text_type = pbMessage(_INTL("Choose a language to extract text for."),
|
|
[_INTL("Game-specific text"), _INTL("Core text"), _INTL("Cancel")], 3)
|
|
next if text_type == 2
|
|
# If game text, choose whether to extract map texts to map-specific files or
|
|
# to one big file
|
|
map_files = 0
|
|
if text_type == 0
|
|
map_files = pbMessage(_INTL("How many text files should map event texts be extracted to?"),
|
|
[_INTL("One big file"), _INTL("One file per map"), _INTL("Cancel")], 3)
|
|
next if map_files == 2
|
|
end
|
|
# Extract the chosen set of text for the chosen language
|
|
Translator.extract_text(language_name, text_type == 1, map_files == 1)
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :compile_text, {
|
|
"name" => _INTL("Compile translated text"),
|
|
"parent" => :files_menu,
|
|
"description" => _INTL("Import text files and convert them into a language file."),
|
|
"effect" => proc {
|
|
# Find all folders with a particular naming convention
|
|
cmds = Dir.glob("Text_*_*")
|
|
if cmds.length == 0
|
|
pbMessage(_INTL("No language folders found to compile."))
|
|
pbMessage(_INTL("Language folders must be named \"Text_SOMETHING_core\" or \"Text_SOMETHING_game\" and be in the root folder."))
|
|
next
|
|
end
|
|
cmds.push(_INTL("Cancel"))
|
|
# Ask which folder to compile into a .dat file
|
|
folder_index = pbMessage(_INTL("Choose a language folder to compile."), cmds, cmds.length)
|
|
next if folder_index == cmds.length - 1
|
|
# Compile the text files in the chosen folder
|
|
dat_filename = cmds[folder_index].gsub!(/^Text_/, "")
|
|
Translator.compile_text(cmds[folder_index], dat_filename)
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :mystery_gift, {
|
|
"name" => _INTL("Manage Mystery Gifts"),
|
|
"parent" => :files_menu,
|
|
"description" => _INTL("Edit and enable/disable Mystery Gifts."),
|
|
"effect" => proc {
|
|
pbManageMysteryGifts
|
|
}
|
|
})
|
|
|
|
MenuHandlers.add(:debug_menu, :reload_system_cache, {
|
|
"name" => _INTL("Reload system cache"),
|
|
"parent" => :files_menu,
|
|
"description" => _INTL("Refreshes the system's file cache. Use if you change a file while playing."),
|
|
"effect" => proc {
|
|
System.reload_cache
|
|
pbMessage(_INTL("Done."))
|
|
}
|
|
})
|