Minor fixes for previous commit

Data/Scripts/013_Items/004_Item_Phone.rb

@@ -0,0 +1,304 @@
+#===============================================================================
+# Register contacts
+#===============================================================================
+def pbPhoneRegisterNPC(ident,name,mapid,showmessage=true)
+  $PokemonGlobal.phoneNumbers = [] if !$PokemonGlobal.phoneNumbers
+  exists = pbFindPhoneTrainer(ident,name)
+  if exists
+    return if exists[0]   # Already visible
+    exists[0] = true   # Make visible
+  else
+    phonenum = [true,ident,name,mapid]
+    $PokemonGlobal.phoneNumbers.push(phonenum)
+  end
+  pbMessage(_INTL("\\me[Register phone]Registered {1} in the Pokégear.",name)) if showmessage
+end
+
+def pbPhoneRegister(event,trainertype,trainername)
+  $PokemonGlobal.phoneNumbers = [] if !$PokemonGlobal.phoneNumbers
+  return if pbFindPhoneTrainer(trainertype,trainername)
+  phonenum = []
+  phonenum.push(true)
+  phonenum.push(trainertype)
+  phonenum.push(trainername)
+  phonenum.push(0)   # time to next battle
+  phonenum.push(0)   # can battle
+  phonenum.push(0)   # battle count
+  if event
+    phonenum.push(event.map.map_id)
+    phonenum.push(event.id)
+  end
+  $PokemonGlobal.phoneNumbers.push(phonenum)
+end
+
+def pbPhoneDeleteContact(index)
+  $PokemonGlobal.phoneNumbers[index][0] = false       # Remove from contact list
+  if $PokemonGlobal.phoneNumbers[index].length==8
+    $PokemonGlobal.phoneNumbers[index][3] = 0                  # Reset countdown
+    $PokemonGlobal.phoneNumbers[index][4] = 0                  # Reset countdown
+  end
+end
+
+def pbPhoneRegisterBattle(message,event,trainertype,trainername,maxbattles)
+  return if !$Trainer.has_pokegear           # Can't register without a Pokégear
+  return false if !GameData::TrainerType.exists?(trainertype)
+  trainertype = GameData::TrainerType.get(trainertype)
+  contact = pbFindPhoneTrainer(trainertype,trainername)
+  return if contact && contact[0]              # Existing contact and is visible
+  message = _INTL("Let me register you.") if !message
+  return if !pbConfirmMessage(message)
+  displayname = _INTL("{1} {2}", GameData::TrainerType.get(trainertype).name,
+     pbGetMessageFromHash(MessageTypes::TrainerNames,trainername))
+  if contact                          # Previously registered, just make visible
+    contact[0] = true
+  else                                                         # Add new contact
+    pbPhoneRegister(event,trainertype,trainername)
+    pbPhoneIncrement(trainertype,trainername,maxbattles)
+  end
+  pbMessage(_INTL("\\me[Register phone]Registered {1} in the Pokégear.",displayname))
+end
+
+#===============================================================================
+# Contact information
+#===============================================================================
+def pbRandomPhoneTrainer
+  $PokemonGlobal.phoneNumbers = [] if !$PokemonGlobal.phoneNumbers
+  temparray = []
+  this_map_metadata = GameData::MapMetadata.try_get($game_map.map_id)
+  return nil if !this_map_metadata || !this_map_metadata.town_map_position
+  currentRegion = this_map_metadata.town_map_position[0]
+  for num in $PokemonGlobal.phoneNumbers
+    next if !num[0] || num.length != 8   # if not visible or not a trainer
+    next if $game_map.map_id == num[6]   # Can't call if on same map
+    caller_map_metadata = GameData::MapMetadata.try_get(num[6])
+    next if !caller_map_metadata || !caller_map_metadata.town_map_position
+    # Can't call if in different region
+    next if caller_map_metadata.town_map_position[0] != currentRegion
+    temparray.push(num)
+  end
+  return nil if temparray.length==0
+  return temparray[rand(temparray.length)]
+end
+
+def pbFindPhoneTrainer(tr_type, tr_name)        # Ignores whether visible or not
+  return nil if !$PokemonGlobal.phoneNumbers
+  tr_type = GameData::TrainerType.get(tr_type).id
+  for num in $PokemonGlobal.phoneNumbers
+    return num if num[1] == tr_type && num[2] == tr_name   # If a match
+  end
+  return nil
+end
+
+def pbHasPhoneTrainer?(tr_type, tr_name)
+  return pbFindPhoneTrainer(tr_type, tr_name) != nil
+end
+
+def pbPhoneBattleCount(tr_type, tr_name)
+  trainer = pbFindPhoneTrainer(tr_type, tr_name)
+  return (trainer) ? trainer[5] : 0
+end
+
+def pbPhoneReadyToBattle?(tr_type, tr_name)
+  trainer = pbFindPhoneTrainer(tr_type, tr_name)
+  return (trainer && trainer[4]>=2)
+end
+
+#===============================================================================
+# Contact rematch data modifications
+#===============================================================================
+def pbPhoneIncrement(tr_type, tr_name, maxbattles)
+  trainer = pbFindPhoneTrainer(tr_type, tr_name)
+  return if !trainer
+  trainer[5] += 1 if trainer[5]<maxbattles   # Increment battle count
+  trainer[3] = 0   # reset time to can-battle
+  trainer[4] = 0   # reset can-battle flag
+end
+
+def pbPhoneReset(tr_type, tr_name)
+  trainer = pbFindPhoneTrainer(tr_type, tr_name)
+  return false if !trainer
+  trainer[3] = 0   # reset time to can-battle
+  trainer[4] = 0   # reset can-battle flag
+  return true
+end
+
+def pbSetReadyToBattle(num)
+  return if !num[6] || !num[7]
+  $game_self_switches[[num[6],num[7],"A"]] = false
+  $game_self_switches[[num[6],num[7],"B"]] = true
+  $game_map.need_refresh = true
+end
+
+#===============================================================================
+# Phone-related counters
+#===============================================================================
+Events.onMapUpdate += proc { |_sender,_e|
+  next if !$Trainer || !$Trainer.has_pokegear
+  # Reset time to next phone call if necessary
+  if !$PokemonGlobal.phoneTime || $PokemonGlobal.phoneTime<=0
+    $PokemonGlobal.phoneTime = 20*60*Graphics.frame_rate
+    $PokemonGlobal.phoneTime += rand(20*60*Graphics.frame_rate)
+  end
+  # Don't count down various phone times if other things are happening
+  $PokemonGlobal.phoneNumbers = [] if !$PokemonGlobal.phoneNumbers
+  next if $game_temp.in_menu || $game_temp.in_battle || $game_temp.message_window_showing
+  next if $game_player.move_route_forcing || pbMapInterpreterRunning?
+  # Count down time to next phone call
+  $PokemonGlobal.phoneTime -= 1
+  # Count down time to next can-battle for each trainer contact
+  if $PokemonGlobal.phoneTime%Graphics.frame_rate==0   # Every second
+    for num in $PokemonGlobal.phoneNumbers
+      next if !num[0] || num.length!=8   # if not visible or not a trainer
+      # Reset time to next can-battle if necessary
+      if num[4]==0
+        num[3] = 20*60+rand(20*60)   # 20-40 minutes
+        num[4] = 1
+      end
+      # Count down time to next can-battle
+      num[3] -= 1
+      # Ready to battle
+      if num[3]<=0 && num[4]==1
+        num[4] = 2   # set ready-to-battle flag
+        pbSetReadyToBattle(num)
+      end
+    end
+  end
+  # Time for a random phone call; generate one
+  if $PokemonGlobal.phoneTime<=0
+    # find all trainer phone numbers
+    phonenum = pbRandomPhoneTrainer
+    if phonenum
+      call = pbPhoneGenerateCall(phonenum)
+      pbPhoneCall(call,phonenum)
+    end
+  end
+}
+
+#===============================================================================
+# Player calls a contact
+#===============================================================================
+def pbCallTrainer(trtype,trname)
+  trainer = pbFindPhoneTrainer(trtype,trname)
+  return if !trainer
+  # Special NPC contacts
+  if trainer.length!=8
+    if !pbCommonEvent(trtype)
+      pbMessage(_INTL("{1}'s messages not defined.\nCouldn't call common event {2}.",trainer[2],trtype))
+    end
+    return
+  end
+  # Trainer contacts
+  if $game_map.map_id==trainer[6]
+    pbMessage(_INTL("The Trainer is close by.\nTalk to the Trainer in person!"))
+    return
+  end
+  caller_map_metadata = GameData::MapMetadata.try_get(trainer[6])
+  this_map_metadata = GameData::MapMetadata.try_get($game_map.map_id)
+  if !caller_map_metadata || !caller_map_metadata.town_map_position ||
+     !this_map_metadata || !this_map_metadata.town_map_position ||
+     caller_map_metadata.town_map_position[0] != this_map_metadata.town_map_position[0]
+    pbMessage(_INTL("The Trainer is out of range."))
+    return   # Can't call if in different region
+  end
+  call = pbPhoneGenerateCall(trainer)
+  pbPhoneCall(call,trainer)
+end
+
+#===============================================================================
+# Generate phone message
+#===============================================================================
+def pbPhoneGenerateCall(phonenum)
+  phoneData = pbLoadPhoneData
+  # Choose random greeting depending on time of day
+  call = pbRandomPhoneItem(phoneData.greetings)
+  time = pbGetTimeNow
+  if PBDayNight.isMorning?(time)
+    modcall = pbRandomPhoneItem(phoneData.greetingsMorning)
+    call = modcall if modcall && modcall!=""
+  elsif PBDayNight.isEvening?(time)
+    modcall = pbRandomPhoneItem(phoneData.greetingsEvening)
+    call = modcall if modcall && modcall!=""
+  end
+  call += "\\m"
+  if phonenum[4]==2 || (rand(2)==0 && phonenum[4]==3)
+    # If "can battle" is set, make ready to battle
+    call += pbRandomPhoneItem(phoneData.battleRequests)
+    pbSetReadyToBattle(phonenum)
+    phonenum[4] = 3
+  elsif rand(4)<3
+    # Choose random body
+    call += pbRandomPhoneItem(phoneData.bodies1)
+    call += "\\m"
+    call += pbRandomPhoneItem(phoneData.bodies2)
+  else
+    # Choose random generic
+    call += pbRandomPhoneItem(phoneData.generics)
+  end
+  return call
+end
+
+def pbRandomPhoneItem(array)
+  ret = array[rand(array.length)]
+  ret = "" if !ret
+  return pbGetMessageFromHash(MessageTypes::PhoneMessages,ret)
+end
+
+def pbRandomEncounterSpecies(enc_table)
+  return nil if !enc_table || enc_table.length == 0
+  len = [enc_table.length, 4].min
+  return enc_table[rand(len)][1]
+end
+
+def pbEncounterSpecies(phonenum)
+  return "" if !phonenum[6] || phonenum[6] == 0
+  encounter_data = GameData::Encounter.get(phonenum[6], $PokemonGlobal.encounter_version)
+  return "" if !encounter_data
+  enc_tables = encounter_data.types
+  species = pbRandomEncounterSpecies(enc_tables[:Land])
+  if !species
+    species = pbRandomEncounterSpecies(enc_tables[:Cave])
+    if !species
+      species = pbRandomEncounterSpecies(enc_tables[:Water])
+    end
+  end
+  return "" if !species
+  return GameData::Species.get(species).name
+end
+
+def pbTrainerSpecies(phonenum)
+  return "" if !phonenum[0]
+  partyid = [0, phonenum[5] - 1].max
+  trainer_data = GameData::Trainer.try_get(phonenum[1], phonenum[2], partyid)
+  return "" if !trainer_data
+  if trainer_data.pokemon.length == 1
+    pkmn = trainer_data.pokemon[0][:species]
+  else
+    pkmn = trainer_data.pokemon[rand(trainer_data.pokemon.length)][:species]
+  end
+  return GameData::Species.get(pkmn).name
+end
+
+def pbTrainerMapName(phonenum)
+  return "" if !phonenum[6] || phonenum[6] == 0
+  return pbGetMessage(MessageTypes::MapNames, phonenum[6])
+end
+
+#===============================================================================
+# The phone call itself
+#===============================================================================
+def pbPhoneCall(call,phonenum)
+  pbMessage(_INTL("......\\wt[5] ......\\1"))
+  encspecies     = pbEncounterSpecies(phonenum)
+  trainerspecies = pbTrainerSpecies(phonenum)
+  trainermap     = pbTrainerMapName(phonenum)
+  messages = call.split("\\m")
+  for i in 0...messages.length
+    messages[i].gsub!(/\\TN/,phonenum[2])
+    messages[i].gsub!(/\\TP/,trainerspecies)
+    messages[i].gsub!(/\\TE/,encspecies)
+    messages[i].gsub!(/\\TM/,trainermap)
+    messages[i] += "\\1" if i<messages.length-1
+    pbMessage(messages[i])
+  end
+  pbMessage(_INTL("Click!\\wt[10]\n......\\wt[5] ......\\1"))
+end