Update 6.8

2026-07-22 07:37:00 +00:00 · 2026-07-10 15:42:06 -04:00
parent 5b85e72cb2
commit 6a6f126a18
7871 changed files with 493194 additions and 224826 deletions
@@ -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