Advanced Map Encounters

じ☆ve冰风

This script allows you to assign something that always bothered me that was not in the RPG maker by default: Make on a map some enemy encounters more likely than others. There are other scripts that fix this, but I wanted to make one simple and as intuitive as possible, apart from putting some unique things on it.

The map encounters still work basically as always, I simplified the encounter formula (now it's a bit more random when you will encounter them, but just as likely after all), but the important thing is that you can assign encounters by hand using an event controlling the steps necessary for that meeting. Allowing encounters or not also works the same, as does pressing CTRL in Debug mode.

Author: Wecoc
First Release: October 2016
Last Version: November 2017

Terms of use
- Giving credits (Wecoc) is optional, but appreciated.
- You can repost this code.
- You can edit this code freely, and distribute the edits as well.
- This code can be used on commercial games.

Script

                Ruby:        

1. #==============================================================================
2. # ** Advanced Map Encounters v1.2
3. #------------------------------------------------------------------------------
4. #  Author: Wecoc - No credits required
5. #==============================================================================
7. #==============================================================================
8. # ** RPG encounter rates
9. #==============================================================================
11. module RPG
12.   for Klass in [Actor, Item, Weapon, Armor, State]
13.     class Klass
14.       attr_accessor :encounter_rate
15.       define_method(:encounter_rate) { @encounter_rate ||= 1.0}
16.     end
17.   end
18. end
20. #==============================================================================
21. # ** Game_Actor
22. #==============================================================================
24. class Game_Actor < Game_Battler
25.   def encounter_rate
26.     result = $data_actors[@actor_id].encounter_rate
27.     weapon = $data_weapons[@weapon_id]
28.     armor1 = $data_armors[@armor1_id]
29.     armor2 = $data_armors[@armor2_id]
30.     armor3 = $data_armors[@armor3_id]
31.     armor4 = $data_armors[@armor4_id]
32.     result *= weapon.encounter_rate if weapon != nil
33.     result *= armor1.encounter_rate if armor1 != nil
34.     result *= armor2.encounter_rate if armor2 != nil
35.     result *= armor3.encounter_rate if armor3 != nil
36.     result *= armor4.encounter_rate if armor4 != nil
37.     for state in @states
38.       state = $data_states[state]
39.       result *= state.encounter_rate if state != nil
40.     end
41.     return result
42.   end
43. end
45. #==============================================================================
46. # ** Game_Map
47. #==============================================================================
49. class Game_Map
50.   attr_reader :encounters
51.   #--------------------------------------------------------------------------
52.   # * Setup
53.   #--------------------------------------------------------------------------
54.   alias adv_encounter_setup setup unless $@
55.   def setup(map_id)
56.     adv_encounter_setup(map_id)
57.     @encounters = []
58.     # Define the default map encounters
59.     encounter_list = @map.encounter_list
60.     encounter_steps = @map.encounter_step * encounter_list.size
61.     for troop_id in encounter_list
62.       set_encounter(troop_id, encounter_steps, nil)
63.     end
64.   end
65.   #--------------------------------------------------------------------------
66.   # * Clear default encounter list
67.   #--------------------------------------------------------------------------
68.   def encounter_list
69.     return []
70.   end
71.   #--------------------------------------------------------------------------
72.   # * Clear steps for default encounter
73.   #--------------------------------------------------------------------------
74.   def encounter_step
75.     return 0
76.   end
77.   #--------------------------------------------------------------------------
78.   # * Set new encounter
79.   #--------------------------------------------------------------------------
80.   def set_encounter(troop_id, steps, area=nil)
81.     steps = [[1, steps].max, 999].min
82.     @encounters.push([troop_id, 1.0 / steps, area])
83.     @encounters.uniq!
84.     @encounters.sort!{|b,a| b[1] - a[1]}
85.   end
86.   #--------------------------------------------------------------------------
87.   # * Clear encounter
88.   #--------------------------------------------------------------------------
89.   def clear_encounter(troop_id, steps, area=nil)
90.     steps = [[1, steps].max, 999].min
91.     @encounters.delete!([troop_id, 1.0 / steps, area])
92.   end
93. end
95. #==============================================================================
96. # ** Game_Player
97. #==============================================================================
99. class Game_Player < Game_Character
100.   #--------------------------------------------------------------------------
101.   # * Increase steps
102.   #--------------------------------------------------------------------------
103.   alias adv_encounter_steps increase_steps unless $@
104.   def increase_steps
105.     adv_encounter_steps
106.     return if $DEBUG && Input.press?(Input::CTRL)
107.     return if $game_system.encounter_disabled == true
108.     rate = 1.0
109.     for actor in $game_party.actors
110.       rate *= actor.encounter_rate
111.     end
112.     for i in 1...$data_items.size
113.       if $game_party.item_number(i) > 0
114.         $game_party.item_number(i).times do
115.           rate *= $data_items[i].encounter_rate
116.         end
117.       end
118.     end
119.     return if rate == 0
120.     $game_map.encounters.each do |encounter|
121.       get_encounter_data(encounter, rate)
122.       return if $game_temp.battle_calling
123.     end
124.   end
125.   #--------------------------------------------------------------------------
126.   # * Evaluate the info on each encounter
127.   #--------------------------------------------------------------------------
128.   def get_encounter_data(encounter, rate)
129.     troop_id = encounter[0]
130.     return if $data_troops[troop_id] == nil
131.     ratio = encounter[1] * (1.0 / rate)
132.     encounter_area = encounter[2]
133.     if Game_Player.method_defined?(:area) && encounter_area != nil
134.       next if self.area != encounter_area
135.     end
136.     if rand < ratio
137.       # Empezar batalla
138.       $game_temp.battle_calling = true
139.       $game_temp.battle_troop_id = troop_id
140.       $game_temp.battle_can_escape = true
141.       $game_temp.battle_can_lose = false
142.       $game_temp.battle_proc = nil
143.     end
144.   end
145. end
147. #==============================================================================
148. # ** Game_Temp
149. #==============================================================================
151. class Game_Temp
152.   attr_accessor :force_battleback
153.   alias area_battleback_ini initialize unless $@
154.   def initialize
155.     area_battleback_ini
156.     @force_battleback = false
157.   end
158. end
160. #==============================================================================
161. # ** Game_Map (Battleback Areas)
162. #==============================================================================
164. class Game_Map
165.   
166.   BATTLEBACK_AREAS = {} # {AREA ID => 'BATTLEBACK NAME'}
167.   
168.   def battleback_name
169.     return @battleback_name if $game_temp.force_battleback == true
170.     area = $game_player.area rescue 0
171.     battleback_area = BATTLEBACK_AREAS[area]
172.     return battleback_area if !battleback_area.nil?
173.     return @battleback_name
174.   end
175. end

复制代码

Instructions
To set an encounter from an event use:
$game_map.set_encounter(Troop ID, Steps)(Steps must be between 1 and 999)

If that encounter is already defined and you want to remove it, use:
$game_map.clear_encounter(Troop ID, Steps)

Spoiler: Area

If you are using Area Support, you can assign encounters by area.
$game_map.set_encounter(Troop ID, Steps, Area ID)

You can also assign battlebacks by area.

To do that, search this line:

1. BATTLEBACK_AREAS = {}

复制代码

And set the battleback there by area ID, like this:

1. BATTLEBACK_AREAS = {1 => '001-Grassland01'}

复制代码

Finally, you can control in-game if that's being considered or if you want to use the default battleback. To do that use:
$game_temp.force_battleback = true / false

Spoiler: Encounter rate

You can set encounter rates on certain actors, items, weapons, protectors or states.

$data_actors[ID].encounter_rate = 1.0
$data_items[ID].encounter_rate = 1.0
$data_weapons[ID].encounter_rate = 1.0
$data_armors[ID].encounter_rate = 1.0
$data_states[ID].encounter_rate = 1.0

Spoiler: Encounter conditions

This little Addon allows defining some advanced encounter conditions.

                Ruby:        

1. #==============================================================================
2. # ** [XP] Encounter Conditions
3. #------------------------------------------------------------------------------
4. # Author: Wecoc (no credits required)
5. # This script requires the script Advanced Map Encounters
6. #==============================================================================
8. class Game_Map
9.   def set_encounter(troop_id, steps, area=nil, condition=nil)
10.     steps = [[1, steps].max, 999].min
11.     @encounters.push([troop_id, 1.0 / steps, area, condition])
12.     @encounters.uniq!
13.     @encounters.sort!{|b,a| b[1] - a[1]}
14.   end
15.   def clear_encounter(troop_id, steps, area=nil, condition=nil)
16.     steps = [[1, steps].max, 999].min
17.     @encounters.delete!([troop_id, 1.0 / steps, area, condition])
18.   end
19. end
21. class Game_Player
22.   alias condition_encounter_data get_encounter_data unless $@
23.   def get_encounter_data(encounter, rate)
24.     if encounter[3] != nil
25.       return if eval(encounter[3]) == false
26.     end
27.     condition_encounter_data(encounter, rate)
28.   end
29. end

复制代码

It works as before, but with a new optional argument on the callers:
$game_map.set_encounter(Troop ID, Steps, Area, Condition)

Example:

1. $game_map.set_encounter(1, 20, nil, "$game_switches[1] == true")

复制代码

本贴来自国际rpgmaker官方论坛作者:Wecoc处,因国际论坛即将永久关站,为了存档多年珍贵资料,署名转载到本论坛存档,由于官方帖子为英文原帖，需要中文翻译请点击论坛顶部切换语言为中文就可以将帖子翻译成中文浏览,方便大家随时查看,原文地址：https://forums.rpgmakerweb.com/threads/advanced-map-encounters.139675/