Initial commit

Data/Scripts/014_Items/004_PItem_Phone.rb

@@ -0,0 +1,302 @@
+#===============================================================================
+# 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.pokegear               # Can't register without a Pokégear
+  if trainertype.is_a?(String) || trainertype.is_a?(Symbol)
+    return false if !hasConst?(PBTrainers,trainertype)
+    trainertype = PBTrainers.const_get(trainertype)
+  end
+  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}",PBTrainers.getName(trainertype),
+     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 = []
+  currentRegion = pbGetMetadata($game_map.map_id,MetadataMapPosition)
+  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
+    callerRegion  = pbGetMetadata(num[6],MetadataMapPosition)
+    # Can't call if in different region
+    next if callerRegion && currentRegion && callerRegion[0]!=currentRegion[0]
+    temparray.push(num)
+  end
+  return nil if temparray.length==0
+  return temparray[rand(temparray.length)]
+end
+
+def pbFindPhoneTrainer(trtype,trname)           # Ignores whether visible or not
+  return nil if !$PokemonGlobal.phoneNumbers
+  trtype = getID(PBTrainers,trtype)
+  return nil if !trtype || trtype<=0
+  for num in $PokemonGlobal.phoneNumbers
+    return num if num[1]==trtype && num[2]==trname   # If a match
+  end
+  return nil
+end
+
+def pbHasPhoneTrainer?(trtype,trname)
+  return pbFindPhoneTrainer!=nil
+end
+
+def pbPhoneBattleCount(trtype,trname)
+  trainer = pbFindPhoneTrainer(trtype,trname)
+  return trainer[5] if trainer
+  return 0
+end
+
+def pbPhoneReadyToBattle?(trtype,trname)
+  trainer = pbFindPhoneTrainer(trtype,trname)
+  return (trainer && trainer[4]>=2)
+end
+
+#===============================================================================
+# Contact rematch data modifications
+#===============================================================================
+def pbPhoneIncrement(trtype,trname,maxbattles)
+  trainer = pbFindPhoneTrainer(trtype,trname)
+  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(trtype,trname)
+  trainer = pbFindPhoneTrainer(trtype,trname)
+  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.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
+  callerregion  = pbGetMetadata(trainer[6],MetadataMapPosition)
+  currentregion = pbGetMetadata($game_map.map_id,MetadataMapPosition)
+  if callerregion && currentregion && callerregion[0]!=currentregion[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)
+  call = ""
+  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(enctype)
+  return 0 if !enctype
+  len = [enctype.length,4].min
+  return enctype[rand(len)][0]
+end
+
+def pbEncounterSpecies(phonenum)
+  return "" if !phonenum[6] || phonenum[6]==0
+  begin
+    enctypes = $PokemonEncounters.pbGetEncounterTables(phonenum[6])
+    return "" if !enctypes
+  rescue
+    return ""
+  end
+  species = pbRandomEncounterSpecies(enctypes[EncounterTypes::Land])
+  species = pbRandomEncounterSpecies(enctypes[EncounterTypes::Cave]) if species==0
+  species = pbRandomEncounterSpecies(enctypes[EncounterTypes::LandDay]) if species==0
+  species = pbRandomEncounterSpecies(enctypes[EncounterTypes::LandMorning]) if species==0
+  species = pbRandomEncounterSpecies(enctypes[EncounterTypes::LandNight]) if species==0
+  species = pbRandomEncounterSpecies(enctypes[EncounterTypes::Water]) if species==0
+  return "" if species==0
+  return PBSpecies.getName(species)
+end
+
+def pbTrainerSpecies(phonenum)
+  return "" if !phonenum[0]
+  partyid = [0,(phonenum[5]-1)].max
+  trainer = pbGetTrainerData(phonenum[1],phonenum[2],partyid)
+  return "" if !trainer || trainer[3].length==0
+  rndpoke = trainer[3][rand(trainer[3].length)]
+  return PBSpecies.getName(rndpoke[0])
+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