Update 6.8

This commit is contained in:
chardub
2026-07-10 15:42:06 -04:00
parent 5b85e72cb2
commit 6a6f126a18
7871 changed files with 493194 additions and 224826 deletions
@@ -0,0 +1,56 @@
class PokemonGlobalMetadata
attr_accessor :tv_announcements
end
def getTVAnnouncementsHash #Keep in the function
return {
:hidden_ability => _INTL("This is a special bulletin for all Pokémon Trainers!\nPokémon boasting their hidden abilities have been spotted around \\C[1]{1}\\C[0]! Make sure to make your way over there for rare Pokémon before they're gone!\nThis concludes our special bulletin.", getCurrentHiddenAbilityMapName),
:petalburg_contest => _INTL("Attention all Berry enthusiasts! The Petalburg Berry Contest is now about to begin!\nWe'll be covering the event live in Petalburg Town, so make sure to tune in for this special broadcast!"),
:petalburg_interview => proc { berryContestTVNews },
}
end
def addTVAnnouncement(announcementId)
$PokemonGlobal.tv_announcements = [] unless $PokemonGlobal.tv_announcements
$PokemonGlobal.tv_announcements << announcementId
end
def removeTVAnnouncement(announcement_id)
$PokemonGlobal.tv_announcements = [] unless $PokemonGlobal.tv_announcements
if $PokemonGlobal.tv_announcements.include?(announcement_id)
$PokemonGlobal.tv_announcements.delete(announcement_id)
end
end
def isTVannouncement?
return $PokemonGlobal.tv_announcements && $PokemonGlobal.tv_announcements.length > 0
end
def showTVannouncement
if $PokemonGlobal.tv_announcements && $PokemonGlobal.tv_announcements.length >= 1
announcement_id = $PokemonGlobal.tv_announcements.first
raw_message = getTVAnnouncementsHash[announcement_id]
echoln raw_message
if raw_message
pbMEPlay("spotted_interviewer")
if raw_message.is_a?(Proc)
raw_message.call
else
messages = raw_message.split("\n")
messages.each do |line|
pbMessage(line)
end
Audio.me_stop
end
end
removeTVAnnouncement(announcement_id)
else
showTVText
end
end
def replaceAnnouncementKeywords()
end
@@ -0,0 +1,137 @@
# available channels
# :RANDOM
# :NEWS
# :WEATHER
TV_CHANNEL_CHANCES = {
NEWS: 3,
WEATHER: 3,
TREND: 1
}
def showTVText(channel = :RANDOM)
if channel == :RANDOM
channel = select_random_channel
end
case channel
when :NEWS
pbTVNews()
when :WEATHER
pbMessage(_INTL("It's the weather channel! Let's see how things are looking out today."))
pbWeatherMap()
when :TREND
getTVTrendMessages()
end
end
SWITCH_REPORTER_AT_PETALBURG = 2026
SWITCH_REPORTER_PETALBURG_INTERVIEWED = 2027
VAR_REPORTER_Q1 = 1006
VAR_REPORTER_Q2 = 1007
VAR_REPORTER_Q3 = 1008
VAR_REPORTER_Q4 = 1009
VAR_REPORTER_Q5 = 1010
def select_random_channel
available_channels = TV_CHANNEL_CHANCES.dup
available_channels.delete(:TREND) unless pbGet(VAR_TRENDY_PHRASE).is_a?(String)
channel_picks = []
for channel in available_channels.keys
channel = channel
chances = TV_CHANNEL_CHANCES[channel]
for i in 0..chances
channel_picks << channel
end
end
return channel_picks.sample
end
def getTVTrendMessages()
current_phrase = pbGet(VAR_TRENDY_PHRASE)
vowels =["A","E","I","O","U"]
if vowels.include?(current_phrase[0])
adverb = _INTL("an")
else
adverb = _INTL("a")
end
pbMessage(_INTL("It's the trend-watcher network channel!"))
pbMessage(_INTL("\"Everybody's talking about it, #{current_phrase} has been all the rage all around the region!\""))
pbMessage(_INTL("\"Nobody knows where it's started, but #{current_phrase} is all that the younger people are talking about these days.\""))
case rand(3)
when 0
pbMessage(_INTL("\"Where can someone get their hands on #{adverb} #{current_phrase}? We'll continue our investigation to find out!'\""))
when 1
pbMessage(_INTL("\"Experts say that #{current_phrase} may just be the next big thing! Stay tuned for updates!\""))
when 2
pbMessage(_INTL("\"Some say that #{current_phrase} just a fad, but others seem to think it's here to stay! Stay tuned for updates!\""))
end
end
# pbMessage(_INTL("\"\""))
def pbTVNews()
if $game_switches[SWITCH_REPORTER_AT_PETALBURG]
pbMessage(_INTL("It's showing the local news. There's a berry-growing contest going on in Petalburg Town!"))
else
return pbMessage(_INTL("It's a rerun of PokéChef Deluxe. Nothing important on the news right now."))
end
end
#pbMessage(_INTL("\"\""))
def berryContestTVNews
pbMessage(_INTL("\"...I'm currently standing in front of the Berry-growing contest in Petalburg Town. We've interviewed {1}, a local Trainer to get their thoughts on the contest!\"",$Trainer.name))
second_part = "."
case $game_variables[VAR_REPORTER_Q1]
when 0 #First time in contest? Yes
case $game_variables[VAR_REPORTER_Q2]
when 0 #Really fun
second_part = _INTL(" but they seemed very confident about it!")
when 1
second_part = _INTL(" and they seemed to be having fun already!")
when 2
second_part = _INTL(" and they understandably seemed a bit nervous!")
when 2
second_part = _INTL(" but they didn't really seem very interested in it. Perhaps, they only joined for the prize?")
end
pbMessage(_INTL("\"This was {1}'s first time participating {2}\"",$Trainer.name,second_part))
pbMessage(_INTL("\"Apparently, their strategy to win is to {1}. We'll see how that pays off for them!\"",$game_variables[VAR_REPORTER_Q3].downcase))
when 1 #First time in contest? No
case $game_variables[VAR_REPORTER_Q2]
when 0 #Really fun
second_part = _INTL("They seemed to be enjoying it a great amount!")
when 1
second_part = _INTL("It seemed they were still having a lot of fun!")
when 2
second_part = _INTL("The novelty wore down a bit for them, but they said they're still having a good time.")
when 2
second_part = _INTL("They didn't seem too interested in the contest when I asked them, but they still came back to participate again.")
end
pbMessage(_INTL("\"{1} is a returning participant to the contest{2}\"",$Trainer.name,second_part))
pbMessage(_INTL("\"According to them, the secret trick to growing Berries is to {1}... Who would've thought!'\"",$game_variables[VAR_REPORTER_Q3].downcase))
when 2 #First time in contest? Not participating
case $game_variables[VAR_REPORTER_Q2]
when 0 #Really fun
second_part = _INTL(", it almost seems like they were having even more fun than the contestants themselves.!")
when 1
second_part = _INTL(", but they said that it was still fun as a spectator.")
when 2
second_part = _INTL(", they just came to check it out of curiosity.")
when 2
second_part = _INTL(". They didn't seem too interested in the contest when I asked them, it seems they were just passing by.")
end
pbMessage(_INTL("\"{1} said they're not participating in the contest this year{2}\"",$Trainer.name,second_part))
pbMessage(_INTL("\"I asked them to sum up the contest in one word and they said \"{1}\", without any hesitation! That really says it all, doesn't it?''\"",$game_variables[VAR_REPORTER_Q3]))
end
pbWait(10)
pbMessage(_INTL("\"This was Gabby, reporting live from Petalburg Town. We'll see you again on our next broadcast!\""))
end