[狂人的知识]子阵营系统与其显示界面

奥杜因阿卡托什

       国家之下的“派系”很多mod都做过，但我因为要做野外势力的支线，需要给野怪阵营也来上一套派系。有一天突发奇想，既然国家有子势力，野怪也有子势力，为什么不给它们整合进一个系统呢？这就是我最近做这个新子阵营系统的初衷了，效果如图所示，现应@黑暗路西法 的请求，进行开源。
       首先先介绍一下这个新系统吧，由于faction数量上限很小，本来我是用faction做的，现在改成item。原有的faction与这些新势力的关系可以理解为“文化”和具体的国家，仅仅作为一些“身份”或“性质”存在。新的势力被分为五阶，第一阶是一些特殊部队、小商会、教支、学阀等，第二阶是骑士团、世族、大商行、冒险团、佣兵团等，第三阶是附属国、地区贵族组织、朋党、外神派系等，第四阶是主权国家以及与其体量相当的力量，第五阶是国际联合、跨国组织、世界性宗教等。在我这个系统里可以设置它们之间的所属，另外有一个比较特别的点是，npc和派系可以是平权的，就像下图“成员”所示的那样，领主和骑士团同样直属某个附属国。加入某个派系的领主可以设置其地位，分别有首领、支柱、普通成员三种，当然在目前这个框架下还没有什么区别。
       除此之外点“军事力量”那个按钮，是可以显示改派系的兵种树的。差不多就是这样。
       在放代码前先说一下注意事项，第一，这个帖子并不是“猴子都能学会的”手把手式教程，往自己的mod里加了以后多半水土不服，编译时很难不爆错，需要使用者有一定的解读代码及解决问题的能力。实在有完全搞不明白的问题可以问我，但如果对报错没有任何解决能力的，只能说还没到用这个代码的时候。
       第二是我整个五阶派系树，很大一部分原因是为了方便玩家在野外阵营的支线中查阅各角色、组织的关系，属于是剧情需要，如果本身并没有做一堆小势力的打算，大可不必用这个玩意儿。
       接下来放代码，首先自然是slot

1. 虽然写的都是faction，但这些其实是item的slot。就像之前说的，责任全在夫妻档。
   
2. #item clique
   
3. slot_item_faction_related =100
   
4. 
   
5. #faction structure
   
6. slot_faction_affiliation = 101#Member satisfacitionis between 0 and 99. If there is no superior faction, this slot will be -1.
   
7. slot_faction_member_satisfaction = 102
   
8. slot_faction_member_position = 103#2 is leader, 1 is pillar, 0 is normal member.
   
9. 
   
10. 这个是troop的
    
11. #faction structure
    
12. slot_troop_affiliation = 218#Member satisfacitionis between 0 and 99. If there is no superior faction, this slot will be -1.
    
13. slot_troop_member_satisfaction = 219
    
14. slot_troop_member_position = 220#2 is leader, 1 is pillar, 0 is normal member.
    
15. 
    
16. slot_troop_secret_allegiance = 221#faction or troop that secretly alleged to. 10000*type(0 is faction and 1 is troop)+ID
    
17. 
    
18. #slot_troop_belonged_spy = 222#The structure of these three value is 1000Xmember satisfacition+superior faction id. Member satisfacitionis between 0 and 99. If there is no superior faction, this slot will be -1.

复制代码

      然后把mesh和string里要定义的定义完

1.   ("faction_window", 0, "faction_window", 0, 0, 0, 0, 0, 0, 1, 1, 1),  
   
2.   ("background_1", 0, "background_1", 0, 0, 0, 0, 0, 0, 1, 1, 1),
   
3.   ("background_2", 0, "background_2", 0, 0, 0, 0, 0, 0, 1, 1, 1),
   
4.   ("background_3", 0, "background_3", 0, 0, 0, 0, 0, 0, 1, 1, 1),
   
5.   ("background_4", 0, "background_4", 0, 0, 0, 0, 0, 0, 1, 1, 1),
   
6.   ("background_5", 0, "background_5", 0, 0, 0, 0, 0, 0, 1, 1, 1),
   
7.   ("background_6", 0, "background_6", 0, 0, 0, 0, 0, 0, 1, 1, 1),
   
8.   ("faction_panel", 0, "faction_panel", 0, 0, 0, 0, 0, 0, 1, 1, 1),
   
9.   ("faction_note", 0, "facegen_board", 0, 0, 0, 0, 0, 0, 1, 1, 1),

复制代码

faction_note这个我用的就是战团的素材啊。

1.   ("total", "total"),
   
2.   ("faction_grade_1", "footstone team"),
   
3.   ("faction_grade_2", "colossus organization"),
   
4.   ("faction_grade_3", "macro power"),
   
5.   ("faction_grade_4", "leviathan"),
   
6.   ("faction_grade_5", "detached institution"),
   
7.   ("country_faction", "country_faction"),
   
8.   ("out_faction", "out_faction"),
   
9.   ("highest_faction", "highest_faction"),
   
10.   ("not_highest_faction", "not_highest_faction"),
    
11.   ("bottom_faction", "bottom_faction"),
    
12.   ("not_bottom_faction", "not_bottom_faction"),
    
13. 
    
14.   ("order", "order"),
    
15.   ("neutrality", "neutrality"),
    
16.   ("chaos", "chaos"),
    
17.   ("good", "good"),
    
18.   ("moderation", "moderation"),
    
19.   ("evil", "evil"),
    
20. 
    
21.   ("normal_member", "normal_member"),
    
22.   ("pillar", "pillar"),
    
23.   ("leader", "leader"),
    
24. 
    
25.   ("power_structure", "power_structure"),
    
26.   ("power_structure_default", "power_structure_default"),
    
27.   ("autocratic", "autocratic"),
    
28.   ("centralization", "centralization"),
    
29.   ("co-discussion", "co-discussion"),
    
30.   ("power_structure_default_description", "power_structure_default_description"),
    
31.   ("autocratic_description", "autocratic_description"),
    
32.   ("centralization_description", "centralization_description"),
    
33.   ("co-discussion_description", "co-discussion_description"),

复制代码

然后是presentaion

1. ("faction_window",0,mesh_faction_window,[
   
2.       (ti_on_presentation_load,
   
3.        [(set_fixed_point_multiplier, 1000),
   
4. 
   
5. #faction_choosen>> the object of whole prsnt about. When it is 0, showed the retrival.
   
6. #faction_showed>> what is showed in main area, including retrival, introduction, member and army.
   
7. #faction_biref_show/troop_biref_show/lord_biref_show>> Brief information showed in the right side of prsnt, the note part.
   
8. #faction_grade/faction_character/faction_affiliation is three retrival conditions.
   
9. 
   
10. #_________________________________________________________________________________initialization___________________________________________________________________________
    
11.         (try_for_range, ":count_no", 0, 500),
    
12.            (troop_set_slot, "trp_temp_array_a", ":count_no", -1),
    
13.            (troop_set_slot, "trp_temp_array_b", ":count_no", -1),
    
14.            (troop_set_slot, "trp_temp_array_c", ":count_no", -1),
    
15.         (try_end),
    
16. 
    
17.         (assign, "$g_presentation_obj_1", -1),
    
18.         (assign, "$g_presentation_obj_2", -1),
    
19.         (assign, "$g_presentation_obj_3", -1),
    
20.         (assign, "$g_presentation_obj_4", -1),
    
21. 
    
22.         (assign, "$g_presentation_retrival_1", -1),
    
23.         (assign, "$g_presentation_retrival_2", -1),
    
24.         (assign, "$g_presentation_retrival_3", -1),
    
25. 
    
26. #______________________________________________________________________________unchangeable prsnt______________________________________________________________________
    
27.         (try_begin),
    
28.            (gt, "$faction_chossen", 0),
    
29.            (call_script, "script_faction_superior_country_check", "$faction_chossen", 0),
    
30.            (gt, reg1, 0),
    
31.            (store_sub, ":mesh_no", reg1, "itm_player_supporters_faction"),
    
32.            (val_add, ":mesh_no", "mesh_faction_window"),
    
33.         (else_try),
    
34.            (assign, ":mesh_no", "mesh_faction_window"),
    
35.         (try_end),
    
36.         (create_mesh_overlay, reg1, ":mesh_no"),
    
37.         (overlay_set_additional_render_height, reg1, -1),
    
38. 
    
39.         (create_mesh_overlay, reg1, "mesh_faction_panel"),
    
40.         (position_set_x, pos1, 0),
    
41.         (position_set_y, pos1, 660),
    
42.         (overlay_set_position, reg1, pos1),
    
43.         (position_set_x, pos1, 1000),
    
44.         (position_set_y, pos1, 700),
    
45.         (overlay_set_size, reg1, pos1),
    
46.         (overlay_set_additional_render_height, reg1, -1),
    
47. 
    
48.         (create_mesh_overlay, reg1, "mesh_faction_note"),
    
49.         (position_set_x, pos1, 700),
    
50.         (position_set_y, pos1, 50),
    
51.         (overlay_set_position, reg1, pos1),
    
52.         (position_set_x, pos1, 500),
    
53.         (position_set_y, pos1, 800),
    
54.         (overlay_set_size, reg1, pos1),
    
55. 
    
56.         (create_button_overlay, "$g_presentation_obj_1", "@Back", tf_center_justify),
    
57.         (position_set_x, pos1, 885),
    
58.         (position_set_y, pos1, 25),
    
59.         (overlay_set_position, "$g_presentation_obj_1", pos1),
    
60.         (overlay_set_color, "$g_presentation_obj_1", 0xFFFFFF),
    
61. 
    
62. #___________________________________________________________________________________top and button part______________________________________________________________________
    
63.         (try_begin),
    
64.            (gt, "$faction_chossen", 0),
    
65.            (str_store_item_name, s1, "$faction_chossen"),
    
66.         (else_try),
    
67.            (str_store_string, s1, "@Retrieval"),
    
68.         (try_end),
    
69.         (create_text_overlay, reg1, s1, tf_center_justify),
    
70.         (position_set_x, pos1, 500),
    
71.         (position_set_y, pos1, 720),
    
72.         (overlay_set_position, reg1, pos1),
    
73.         (position_set_x, pos1, 1000),
    
74.         (position_set_y, pos1, 1000),
    
75.         (overlay_set_size, reg1, pos1),
    
76.         (overlay_set_color, reg1, 0xFFFFFF),
    
77. 
    
78.         (try_begin),
    
79.            (gt, "$faction_chossen", 0),
    
80.            (item_get_slot, ":culture_faction_no", "$faction_chossen", slot_item_faction_related),
    
81.            (faction_get_color, ":color_no", ":culture_faction_no"),
    
82.            (create_mesh_overlay, reg1, "mesh_white_plane"),
    
83.            (overlay_set_color, reg1, ":color_no"),
    
84.            (position_set_x, pos1, 485),
    
85.            (position_set_y, pos1, 675),
    
86.            (overlay_set_position, reg1, pos1),
    
87.            (position_set_x, pos1, 1500),
    
88.            (position_set_y, pos1, 1500),
    
89.            (overlay_set_size, reg1, pos1),
    
90.         (try_end),
    
91. 
    
92.         (str_store_string, s1, "@Faction_introduction"),
    
93.         (call_script, "script_create_special_button_overlay", 88, 690),
    
94.         (assign, "$g_presentation_button_1", reg1),
    
95. 
    
96.         (str_store_string, s1, "@Member"),
    
97.         (call_script, "script_create_special_button_overlay", 228, 690),
    
98.         (assign, "$g_presentation_button_2", reg1),
    
99. 
    
100.         (str_store_string, s1, "@Power_possessed"),
     
101.         (call_script, "script_create_special_button_overlay", 368, 690),
     
102.         (assign, "$g_presentation_button_3", reg1),
     
103. 
     
104.         (str_store_string, s1, "@_"),
     
105.         (call_script, "script_create_special_button_overlay", 633, 690),
     
106.         (assign, "$g_presentation_button_4", reg1),
     
107. 
     
108.         (str_store_string, s1, "@_"),
     
109.         (call_script, "script_create_special_button_overlay", 773, 690),
     
110.         (assign, "$g_presentation_button_5", reg1),
     
111. 
     
112.         (str_store_string, s1, "@_"),
     
113.         (call_script, "script_create_special_button_overlay", 913, 690),
     
114.         (assign, "$g_presentation_button_6", reg1),
     
115. 
     
116. 
     
117.         (create_button_overlay, "$g_presentation_obj_2", "@Retrieval", tf_center_justify),
     
118.         (position_set_x, pos1, 775),
     
119.         (position_set_y, pos1, 25),
     
120.         (overlay_set_position, "$g_presentation_obj_2", pos1),
     
121.         (overlay_set_color, "$g_presentation_obj_2", 0xFFFFFF),
     
122. 
     
123. #_________________________________________________________________________________member part__________________________________________________________________________
     
124. #leader and other information show in the left part, unscrollable
     
125.         (try_begin),
     
126.            (eq, "$faction_showed", 2),
     
127.            (gt, "$faction_chossen", 0),
     
128. 
     
129.            (create_text_overlay, reg1, "str_leader", tf_center_justify),
     
130.            (position_set_x, pos1, 100),
     
131.            (position_set_y, pos1, 630),
     
132.            (overlay_set_position, reg1, pos1),
     
133.            (overlay_set_color, reg1, 0xFFFFFF),
     
134. 
     
135.            (create_text_overlay, reg1, "str_pillar", tf_center_justify),
     
136.            (position_set_x, pos1, 300),
     
137.            (position_set_y, pos1, 630),
     
138.            (overlay_set_position, reg1, pos1),
     
139.            (overlay_set_color, reg1, 0xFFFFFF),
     
140. 
     
141.            (create_text_overlay, reg1, "str_normal_member", tf_center_justify),
     
142.            (position_set_x, pos1, 500),
     
143.            (position_set_y, pos1, 630),
     
144.            (overlay_set_position, reg1, pos1),
     
145.            (overlay_set_color, reg1, 0xFFFFFF),
     
146. 
     
147.            (call_script, "script_faction_leader_check", "$faction_chossen"),
     
148.            (try_begin),
     
149.               (ge, reg1, 0),
     
150.               (assign, ":faction_affiliation_no", reg1),
     
151.               (val_mul, reg1, 10),
     
152.               (assign, ":leader_faction_no", reg2),
     
153.               (val_add, ":leader_faction_no", reg1),                                                          #10*id+type(0>>faction and 1>>troop)
     
154.               (call_script, "script_draw_faction_image", ":faction_affiliation_no", reg2, 100, 540),
     
155.               (troop_set_slot, "trp_temp_array_a", reg1, ":leader_faction_no"),
     
156.            (try_end),
     
157. 
     
158.            (item_get_abundance, ":count_no", "$faction_chossen"),                        #faction_power_structure
     
159.            (store_add, ":string_no", ":count_no", "str_power_structure_default"),
     
160.            (str_store_string, s1, ":string_no"),
     
161.            (str_store_string, s2, "str_power_structure"),
     
162.            (create_text_overlay, reg1, "@{s2}:_{s1}", tf_center_justify),
     
163.            (position_set_x, pos1, 100),
     
164.            (position_set_y, pos1, 430),
     
165.            (overlay_set_position, reg1, pos1),
     
166.            (position_set_x, pos1, 900),
     
167.            (position_set_y, pos1, 900),
     
168.            (overlay_set_size, reg1, pos1),
     
169.            (try_begin),
     
170.               (eq, ":count_no", 0),#default
     
171.               (overlay_set_color, reg1, 0xCCCCCC),
     
172.            (else_try),
     
173.               (eq, ":count_no", 1),#autocrat
     
174.               (overlay_set_color, reg1, 0x336688),
     
175.            (else_try),
     
176.               (eq, ":count_no", 2),#centralization
     
177.               (overlay_set_color, reg1, 0x6699CC),
     
178.            (else_try),
     
179.               (eq, ":count_no", 3),#co-discussion
     
180.               (overlay_set_color, reg1, 0x99CCFF),
     
181.            (try_end),
     
182. 
     
183.            (store_add, ":string_no", ":count_no", "str_power_structure_default_description"),
     
184.            (str_store_string, s1, ":string_no"),
     
185.            (create_text_overlay, reg1, s1, tf_scrollable),
     
186.            (position_set_x, pos1, 10),
     
187.            (position_set_y, pos1, 300),
     
188.            (overlay_set_position, reg1, pos1),
     
189.            (position_set_x, pos1, 800),
     
190.            (position_set_y, pos1, 800),
     
191.            (overlay_set_size, reg1, pos1),
     
192.            (position_set_x, pos1, 180),
     
193.            (position_set_y, pos1, 100),
     
194.            (overlay_set_area_size, reg1, pos1),
     
195.            (overlay_set_color, reg1, 0xFFFFFF),
     
196. 
     
197.            (call_script, "script_faction_pillar_number_check", "$faction_chossen"),
     
198.            (str_store_string, s1, "str_pillar"),
     
199.            (assign, ":member_count_1", reg1),
     
200.            (create_text_overlay, reg1, "@{s1}number:_{reg1}", tf_center_justify),
     
201.            (position_set_x, pos1, 100),
     
202.            (position_set_y, pos1, 270),
     
203.            (overlay_set_position, reg1, pos1),
     
204.            (position_set_x, pos1, 900),
     
205.            (position_set_y, pos1, 900),
     
206.            (overlay_set_size, reg1, pos1),
     
207.            (overlay_set_color, reg1, 0xFFFFFF),
     
208. 
     
209.            (call_script, "script_faction_normal_number_check", "$faction_chossen"),
     
210.            (str_store_string, s1, "str_normal_member"),
     
211.            (assign, ":member_count_2", reg1),
     
212.            (create_text_overlay, reg1, "@{s1}number:_{reg1}", tf_center_justify),
     
213.            (position_set_x, pos1, 100),
     
214.            (position_set_y, pos1, 240),
     
215.            (overlay_set_position, reg1, pos1),
     
216.            (position_set_x, pos1, 900),
     
217.            (position_set_y, pos1, 900),
     
218.            (overlay_set_size, reg1, pos1),
     
219.            (overlay_set_color, reg1, 0xFFFFFF),
     
220. 
     
221.            (val_max, ":member_count_1", ":member_count_2"),
     
222. 
     
223.            (create_mesh_overlay, reg1, "mesh_white_plane"),
     
224.            (position_set_x, pos1, 200),
     
225.            (position_set_y, pos1, 55),
     
226.            (overlay_set_position, reg1, pos1),
     
227.            (position_set_x, pos1, 50),
     
228.            (position_set_y, pos1, 28500),
     
229.            (overlay_set_size, reg1, pos1),
     
230. 
     
231.            (create_mesh_overlay, reg1, "mesh_white_plane"),
     
232.            (position_set_x, pos1, 400),
     
233.            (position_set_y, pos1, 55),
     
234.            (overlay_set_position, reg1, pos1),
     
235.            (position_set_x, pos1, 50),
     
236.            (position_set_y, pos1, 28500),
     
237.            (overlay_set_size, reg1, pos1),
     
238.         (try_end),
     
239. 
     
240. #_______________________________________________________________________________________right part____________________________________________________________________________
     
241.         (try_begin),
     
242.            (gt, "$faction_biref_show", 0),
     
243.            (call_script, "script_faction_brief_show", "$faction_biref_show"),
     
244.         (else_try),
     
245.            (gt, "$lord_biref_show", 0),
     
246.            (call_script, "script_lord_brief_show", "$lord_biref_show"),
     
247.         (else_try),
     
248.            (gt, "$troop_biref_show", 0),
     
249.            (call_script, "script_troop_brief_show", "$troop_biref_show"),
     
250.         (try_end),
     
251. 
     
252. #_______________________________________________________________________________________main part____________________________________________________________________________
     
253.         (create_text_overlay, "$g_presentation_container_1", "@ ", tf_scrollable),
     
254.         (position_set_x, pos1, 50),
     
255.         (position_set_y, pos1, 70),
     
256.         (overlay_set_position, "$g_presentation_container_1", pos1),
     
257.         (position_set_x, pos1, 600),
     
258.         (position_set_y, pos1, 550),
     
259.         (overlay_set_area_size, "$g_presentation_container_1", pos1),
     
260.         (set_container_overlay, "$g_presentation_container_1"),
     
261. #________________________________________________________________________________________retrival___________________________________________________________________________
     
262.         (try_begin),
     
263.            (le, "$faction_showed", 0),
     
264.            (le, "$faction_chossen", 0),
     
265. 
     
266.            (assign, ":cur_y", 30),
     
267.            (store_add, ":faction_begin", "itm_faction_begin", 1),
     
268.            (try_for_range, ":count_no", ":faction_begin", "itm_faction_end"),
     
269.               (item_get_difficulty, ":grade_no", ":count_no"),#faction grade
     
270.               (ge, ":grade_no", 1),
     
271.               (call_script, "script_cf_faction_retrival_check", ":count_no"),
     
272. 
     
273.               (str_store_item_name, s1, ":count_no"),
     
274.               (create_button_overlay, reg1, s1),
     
275.               (position_set_x, pos1, 20),
     
276.               (position_set_y, pos1, ":cur_y"),
     
277.               (overlay_set_position, reg1, pos1),
     
278.               (position_set_x, pos1, 1000),
     
279.               (position_set_y, pos1, 1000),
     
280.               (overlay_set_size, reg1, pos1),
     
281.               (overlay_set_color, reg1, 0xFFFFFF),
     
282.               (val_add, ":cur_y", 30),
     
283.               (troop_set_slot, "trp_temp_array_a", reg1, ":count_no"),
     
284.            (try_end),
     
285. #_____________________________________________________________________________________introduction___________________________________________________________________________
     
286.         (else_try),
     
287.            (eq, "$faction_showed", 1),
     
288.            (gt, "$faction_chossen", 0),
     
289. 
     
290.            (create_mesh_overlay_with_item_id, reg1, "$faction_chossen"),
     
291.            (position_set_x, pos1, 300),
     
292.            (position_set_y, pos1, 540),
     
293.            (overlay_set_position, reg1, pos1),
     
294.            (position_set_x, pos1, 2500),
     
295.            (position_set_y, pos1, 2500),
     
296.            (overlay_set_size, reg1, pos1),
     
297. 
     
298.            (str_store_item_name_plural, s1, "$faction_chossen"),
     
299.            (create_text_overlay, reg1, s1, tf_scrollable),
     
300.            (position_set_x, pos1, 20),
     
301.            (position_set_y, pos1, 320),
     
302.            (overlay_set_position, reg1, pos1),
     
303.            (position_set_x, pos1, 900),
     
304.            (position_set_y, pos1, 900),
     
305.            (overlay_set_size, reg1, pos1),
     
306.            (position_set_x, pos1, 560),
     
307.            (position_set_y, pos1, 70),
     
308.            (overlay_set_area_size, reg1, pos1),
     
309.            (overlay_set_color, reg1, 0xFFFFFF),
     
310. 
     
311.            (item_get_difficulty, ":grade_no", "$faction_chossen"),#faction grade
     
312.            (val_sub, ":grade_no", 1),
     
313.            (val_add, ":grade_no", "str_faction_grade_1"),
     
314.            (str_store_string, s1, ":grade_no"),
     
315.            (create_text_overlay, reg1, s1),
     
316.            (position_set_x, pos1, 40),
     
317.            (position_set_y, pos1, 250),
     
318.            (overlay_set_position, reg1, pos1),
     
319.            (position_set_x, pos1, 1000),
     
320.            (position_set_y, pos1, 1000),
     
321.            (overlay_set_size, reg1, pos1),
     
322.            (try_begin),
     
323.               (eq, ":grade_no", "str_faction_grade_1"),
     
324.               (overlay_set_color, reg1, 0xCCCCCC),
     
325.            (else_try),
     
326.               (eq, ":grade_no", "str_faction_grade_2"),
     
327.               (overlay_set_color, reg1, 0xFFCCCC),
     
328.            (else_try),
     
329.               (eq, ":grade_no", "str_faction_grade_3"),
     
330.               (overlay_set_color, reg1, 0xFF9999),
     
331.            (else_try),
     
332.               (eq, ":grade_no", "str_faction_grade_4"),
     
333.               (overlay_set_color, reg1, 0xFF6666),
     
334.            (else_try),
     
335.               (eq, ":grade_no", "str_faction_grade_5"),
     
336.               (overlay_set_color, reg1, 0xFF3333),
     
337.            (try_end),
     
338. 
     
339.            (item_get_thrust_damage, reg1, "$faction_chossen"),#order and chaos
     
340.            (item_get_swing_damage, reg2, "$faction_chossen"),#good_and_evil
     
341.            (try_begin),
     
342.               (le, reg1, 30),
     
343.               (str_store_string, s1, "str_neutrality"),
     
344.            (else_try),
     
345.               (item_get_thrust_damage_type, ":return_value", "$faction_chossen"),#0 is order and 1 is chaos
     
346.               (try_begin),
     
347.                  (eq, ":return_value", 0),
     
348.                  (str_store_string, s1, "str_order"),
     
349.               (else_try),
     
350.                  (str_store_string, s1, "str_chaos"),
     
351.               (try_end),
     
352.            (try_end),
     
353.            (try_begin),
     
354.               (le, reg2, 30),
     
355.               (str_store_string, s2, "str_moderation"),
     
356.            (else_try),
     
357.               (item_get_swing_damage_type, ":return_value", "$faction_chossen"),#0 is good and 1 is evil
     
358.               (try_begin),
     
359.                  (eq, ":return_value", 0),
     
360.                  (str_store_string, s2, "str_good"),
     
361.               (else_try),
     
362.                  (str_store_string, s2, "str_evil"),
     
363.               (try_end),
     
364.            (try_end),
     
365.            (create_text_overlay, reg1, "@{s1}{s2}_({reg1}|{reg2})_"),
     
366.            (position_set_x, pos1, 40),
     
367.            (position_set_y, pos1, 220),
     
368.            (overlay_set_position, reg1, pos1),
     
369.            (position_set_x, pos1, 1000),
     
370.            (position_set_y, pos1, 1000),
     
371.            (overlay_set_size, reg1, pos1),
     
372.            (store_add, ":count_no", reg1, reg2),
     
373.            (try_begin),
     
374.               (gt, ":count_no", 60),
     
375.               (overlay_set_color, reg1, 0x66CC00),
     
376.            (else_try),
     
377.               (gt, ":count_no", 0),
     
378.               (overlay_set_color, reg1, 0xCCFFFF),
     
379.            (else_try),
     
380.               (eq, ":count_no", 0),
     
381.               (overlay_set_color, reg1, 0xCCCCCC),
     
382.            (else_try),
     
383.               (ge, ":count_no", -60),
     
384.               (overlay_set_color, reg1, 0xCC99FF),
     
385.            (else_try),
     
386.               (overlay_set_color, reg1, 0x9933FF),
     
387.            (try_end),
     
388. 
     
389.            (store_relation, reg1, ":culture_faction_no", "fac_player_supporters_faction"),
     
390.            (create_text_overlay, reg1, "@Player_relation"),
     
391.            (position_set_x, pos1, 400),
     
392.            (position_set_y, pos1, 220),
     
393.            (overlay_set_position, reg1, pos1),
     
394.            (position_set_x, pos1, 1000),
     
395.            (position_set_y, pos1, 1000),
     
396.            (overlay_set_size, reg1, pos1),
     
397.            (overlay_set_color, reg1, 0xFFFFFF),
     
398. 
     
399.            (create_mesh_overlay, reg1, "mesh_white_plane"),
     
400.            (position_set_x, pos1, 25),
     
401.            (position_set_y, pos1, 200),
     
402.            (overlay_set_position, reg1, pos1),
     
403.            (position_set_x, pos1, 27500),
     
404.            (position_set_y, pos1, 50),
     
405.            (overlay_set_size, reg1, pos1),
     
406. 
     
407.            (create_text_overlay, reg1, "@Superior_faction", tf_center_justify),
     
408.            (position_set_x, pos1, 300),
     
409.            (position_set_y, pos1, 160),
     
410.            (overlay_set_position, reg1, pos1),
     
411.            (position_set_x, pos1, 1000),
     
412.            (position_set_y, pos1, 1000),
     
413.            (overlay_set_size, reg1, pos1),
     
414.            (overlay_set_color, reg1, 0xFFFFFF),
     
415. 
     
416.            (try_begin),
     
417.               (call_script, "script_get_faction_affiliation", "$faction_chossen", 0),
     
418.               (gt, reg1, 0),
     
419.               (assign, ":faction_affiliation_no", reg1),
     
420.               (call_script, "script_draw_faction_image", ":faction_affiliation_no", 0, 100, 100),
     
421.               (assign, "$g_presentation_obj_4", reg1),
     
422. 
     
423.               (call_script, "script_get_faction_position", "$faction_chossen", 0),
     
424.               (val_add, reg1, "str_normal_member"),
     
425.               (str_store_string, s1, reg1),
     
426.               (create_text_overlay, reg1, "@Faction_position", tf_center_justify),
     
427.               (position_set_x, pos1, 400),
     
428.               (position_set_y, pos1, 90),
     
429.               (overlay_set_position, reg1, pos1),
     
430.               (position_set_x, pos1, 1000),
     
431.               (position_set_y, pos1, 1000),
     
432.               (overlay_set_size, reg1, pos1),
     
433.               (overlay_set_color, reg1, 0xFFFFFF),
     
434.            (try_end),
     
435. #_____________________________________________________________________________________member___________________________________________________________________________
     
436.         (else_try),
     
437.            (eq, "$faction_showed", 2),
     
438.            (gt, "$faction_chossen", 0),
     
439. 
     
440.            (store_mul, ":cur_y", ":member_count_1", 150),
     
441.            (try_for_range, ":count_no", "itm_faction_begin", "itm_faction_end"),
     
442.               (call_script, "script_get_faction_affiliation", ":count_no", 0),
     
443.               (eq, reg1, "$faction_chossen"),
     
444.               (call_script, "script_get_faction_position", ":count_no", 0),
     
445.               (eq, reg1, 1),#pillar
     
446.               (call_script, "script_draw_faction_image", ":count_no", 0, 250, ":cur_y"),
     
447.               (store_mul, ":member_faction_no", ":count_no", 10),
     
448.               (troop_set_slot, "trp_temp_array_a", reg1, ":member_faction_no"),
     
449.               (val_sub, ":cur_y", 150),
     
450.            (try_end),
     
451. 
     
452.            (try_for_range, ":count_no", "trp_player", "trp_relative_of_merchants_end"),
     
453.               (call_script, "script_get_faction_affiliation", ":count_no", 1),
     
454.               (eq, reg1, "$faction_chossen"),
     
455.               (call_script, "script_get_faction_position", ":count_no", 1),
     
456.               (eq, reg1, 1),#pillar
     
457.               (call_script, "script_draw_faction_image", ":count_no", 1, 250, ":cur_y"),
     
458.               (store_mul, ":member_troop_no", ":count_no", 10),
     
459.               (val_add, ":member_troop_no", 1),
     
460.               (troop_set_slot, "trp_temp_array_a", reg1, ":member_troop_no"),
     
461.               (val_sub, ":cur_y", 150),
     
462.            (try_end),
     
463. 
     
464.            (store_mul, ":cur_y", ":member_count_1", 150),
     
465.            (try_for_range, ":count_no", "itm_faction_begin", "itm_faction_end"),
     
466.               (call_script, "script_get_faction_affiliation", ":count_no", 0),
     
467.               (eq, reg1, "$faction_chossen"),
     
468.               (call_script, "script_get_faction_position", ":count_no", 0),
     
469.               (eq, reg1, 0),#normal member
     
470.               (call_script, "script_draw_faction_image", ":count_no", 0, 450, ":cur_y"),
     
471.               (store_mul, ":member_faction_no", ":count_no", 10),
     
472.               (troop_set_slot, "trp_temp_array_a", reg1, ":member_faction_no"),
     
473.               (val_sub, ":cur_y", 150),
     
474.            (try_end),
     
475. 
     
476.            (try_for_range, ":count_no", "trp_player", "trp_relative_of_merchants_end"),
     
477.               (call_script, "script_get_faction_affiliation", ":count_no", 1),
     
478.               (eq, reg1, "$faction_chossen"),
     
479.               (call_script, "script_get_faction_position", ":count_no", 1),
     
480.               (eq, reg1, 0),#normal member
     
481.               (call_script, "script_draw_faction_image", ":count_no", 1, 450, ":cur_y"),
     
482.               (store_mul, ":member_troop_no", ":count_no", 10),
     
483.               (val_add, ":member_troop_no", 1),
     
484.               (troop_set_slot, "trp_temp_array_a", reg1, ":member_troop_no"),
     
485.               (val_sub, ":cur_y", 150),
     
486.            (try_end),
     
487. 
     
488. #_________________________________________________________________________________________troop__________________________________________________________________________
     
489.         (else_try),
     
490.            (eq, "$faction_showed", 3),
     
491.            (gt, "$faction_chossen", 0),
     
492. 
     
493.            (assign, reg2, 100),
     
494.            (try_for_range, ":cur_troop_no", soldiers_begin, soldiers_end),           # find all root troops of selected faction
     
495.               (neg|troop_is_hero, ":cur_troop_no"),
     
496.               (troop_get_upgrade_troop, ":upgrade_troop", ":cur_troop_no", 0),
     
497.               (gt, ":upgrade_troop", 0),          # can upgrade
     
498.               (store_troop_faction, ":cur_troop_faction", ":cur_troop_no"),
     
499.               (eq, ":cur_troop_faction", ":culture_faction_no"),          # cur troop faction
     
500. 
     
501.               (assign, ":is_root_troop", 1),
     
502.               (assign, ":end_cond", soldiers_end),
     
503.               (try_for_range, ":loop_troop_no", soldiers_begin, ":end_cond"),
     
504.                  (neg|troop_is_hero, ":loop_troop_no"),
     
505.                  (store_troop_faction, ":loop_troop_faction", ":loop_troop_no"),
     
506.                  (eq,  ":loop_troop_faction", ":culture_faction_no"),          # loop troop faction
     
507. 
     
508.                  (troop_get_upgrade_troop, ":upgrade_troop_1", ":loop_troop_no", 0),
     
509.                  (troop_get_upgrade_troop, ":upgrade_troop_2", ":loop_troop_no", 1),
     
510.                  (this_or_next|eq, ":upgrade_troop_1", ":cur_troop_no"),
     
511.                  (eq, ":upgrade_troop_2", ":cur_troop_no"),
     
512.                  (assign, ":is_root_troop", 0),          #not a root faction
     
513.                  (assign, ":end_cond", 0), #break
     
514.               (try_end),
     
515.               (eq, ":is_root_troop", 1),
     
516.               (call_script, "script_faction_troop_tree_recursive_backtracking", ":cur_troop_no", 50, reg2, 125),
     
517.               (val_add, reg2, 200),
     
518.            (try_end),
     
519. 
     
520.         (try_end),
     
521. 
     
522.         (set_container_overlay, -1),
     
523. 
     
524. #_______________________________________________________________________________retrival condition__________________________________________________________________________
     
525. 
     
526.         (try_begin),
     
527.            (le, "$faction_showed", 0),
     
528.            (le, "$faction_chossen", 0),
     
529. 
     
530.            (create_text_overlay, reg1, "@Retrival_condition", tf_center_justify),
     
531.            (position_set_x, pos1, 535),
     
532.            (position_set_y, pos1, 220),
     
533.            (overlay_set_position, reg1, pos1),
     
534.            (overlay_set_color, reg1, 0xFFFFFF),
     
535. 
     
536.            (create_text_overlay, reg1, "@Faction_grade"),
     
537.            (position_set_x, pos1, 435),
     
538.            (position_set_y, pos1, 180),
     
539.            (overlay_set_position, reg1, pos1),
     
540.            (position_set_x, pos1, 1000),
     
541.            (position_set_y, pos1, 1000),
     
542.            (overlay_set_size, reg1, pos1),
     
543.            (overlay_set_color, reg1, 0xFFFFFF),
     
544. 
     
545.            (create_text_overlay, reg1, "@Faction_character"),
     
546.            (position_set_x, pos1, 435),
     
547.            (position_set_y, pos1, 120),
     
548.            (overlay_set_position, reg1, pos1),
     
549.            (position_set_x, pos1, 1000),
     
550.            (position_set_y, pos1, 1000),
     
551.            (overlay_set_size, reg1, pos1),
     
552.            (overlay_set_color, reg1, 0xFFFFFF),
     
553. 
     
554.            (create_text_overlay, reg1, "@Faction_affiliation"),
     
555.            (position_set_x, pos1, 435),
     
556.            (position_set_y, pos1, 60),
     
557.            (overlay_set_position, reg1, pos1),
     
558.            (position_set_x, pos1, 1000),
     
559.            (position_set_y, pos1, 1000),
     
560.            (overlay_set_size, reg1, pos1),
     
561.            (overlay_set_color, reg1, 0xFFFFFF),
     
562. 
     
563.            (try_begin),
     
564.               (le, "$faction_grade", 0),
     
565.               (str_store_string, s1, "str_total"),
     
566.            (else_try),
     
567.               (store_add, ":string_no", "$faction_grade", "str_faction_grade_1"),
     
568.               (val_sub, ":string_no", 1),
     
569.               (str_store_string, s1, ":string_no"),
     
570.            (try_end),
     
571.            (call_script, "script_create_special_button_overlay", 580, 180),
     
572.            (assign, "$g_presentation_retrival_1", reg1),
     
573. 
     
574.            (try_begin),
     
575.               (le, "$faction_character", 0),
     
576.               (str_store_string, s1, "str_total"),
     
577.            (else_try),
     
578.               (le, "$faction_character", 1),
     
579.               (str_store_string, s1, "str_country_faction"),
     
580.            (else_try),
     
581.               (le, "$faction_character", 2),
     
582.               (str_store_string, s1, "str_out_faction"),
     
583.            (try_end),
     
584.            (call_script, "script_create_special_button_overlay", 580, 120),
     
585.            (assign, "$g_presentation_retrival_2", reg1),
     
586. 
     
587.            (try_begin),
     
588.               (le, "$faction_affiliation", 0),
     
589.               (str_store_string, s1, "str_total"),
     
590.            (else_try),
     
591.               (le, "$faction_affiliation", 1),
     
592.               (str_store_string, s1, "str_highest_faction"),
     
593.            (else_try),
     
594.               (le, "$faction_affiliation", 2),
     
595.               (str_store_string, s1, "str_not_highest_faction"),
     
596.            (else_try),
     
597.               (le, "$faction_affiliation", 3),
     
598.               (str_store_string, s1, "str_bottom_faction"),
     
599.            (else_try),
     
600.               (le, "$faction_affiliation", 4),
     
601.               (str_store_string, s1, "str_not_bottom_faction"),
     
602.            (try_end),
     
603.            (call_script, "script_create_special_button_overlay", 580, 60),
     
604.            (assign, "$g_presentation_retrival_3", reg1),
     
605.         (try_end),
     
606. 
     
607.             ####### mouse fix pos system #######
     
608. #        (call_script, "script_mouse_fix_pos_load"),
     
609.             ####### mouse fix pos system #######
     
610. 
     
611.         (presentation_set_duration, 999999),
     
612.        ]),
     
613. 
     
614.       (ti_on_presentation_run,
     
615.        [
     
616.             ####### mouse fix pos system #######
     
617. #        (call_script, "script_mouse_fix_pos_run"),
     
618.             ####### mouse fix pos system #######
     
619.         ]),
     
620. 
     
621.       (ti_on_presentation_mouse_enter_leave, [
     
622.          (store_trigger_param_1, ":object"),
     
623.          (store_trigger_param_2, ":enter_leave"),
     
624.          (try_begin),
     
625.             (gt, "$troop_biref_show", 0),
     
626.             (is_between, ":object", "$g_presentation_obj_3", "$g_presentation_container_1"),
     
627.             (troop_get_inventory_capacity, ":inventroy_limit", "$troop_biref_show"),
     
628.             (try_begin),
     
629.                (eq, ":enter_leave", 0),#enter
     
630.                (try_for_range, ":inventory_slot_no", 0, ":inventroy_limit"),
     
631.                   (troop_slot_eq, "trp_temp_array_b", ":inventory_slot_no", ":object"),
     
632.                   (troop_get_inventory_slot, ":item_no", "$troop_biref_show", ":inventory_slot_no"),
     
633.                   (gt, ":item_no", -1),
     
634.                   (troop_get_inventory_slot_modifier, ":modifier_no", "$troop_biref_show", ":inventory_slot_no"),
     
635. 
     
636.                   (troop_get_slot, ":inventroy_position", "trp_temp_array_c", ":inventory_slot_no"),
     
637.                   (overlay_get_position, pos0, ":inventroy_position"),
     
638.                   (show_item_details_with_modifier, ":item_no", ":modifier_no", pos0, 100),
     
639.                   (assign, "$g_current_opened_item_details", ":inventory_slot_no"),
     
640.                (try_end),
     
641.             (else_try),
     
642.                (eq, ":enter_leave", 1),#leave
     
643.                (try_for_range, ":inventory_slot_no", 0, ":inventroy_limit"),
     
644.                   (troop_slot_eq, "trp_temp_array_b", ":inventory_slot_no", ":object"),
     
645.                   (eq, "$g_current_opened_item_details", ":inventory_slot_no"),
     
646.                   (close_item_details),
     
647.                (try_end),
     
648.            (try_end),
     
649.         (try_end),
     
650.         ]),
     
651. 
     
652.       (ti_on_presentation_event_state_change,
     
653.        [(store_trigger_param_1, ":object"),
     
654.         (try_begin),
     
655.            (eq, ":object", "$g_presentation_obj_1"),
     
656.            (presentation_set_duration, 0),
     
657.          (else_try),                                                                         #show retrival
     
658.            (eq, ":object", "$g_presentation_obj_2"),
     
659.            (assign, "$faction_showed", 0),
     
660.            (assign, "$faction_chossen", 0),
     
661.            (start_presentation, "prsnt_faction_window"),
     
662. #_______________________________________________________________________________main button__________________________________________________________________________
     
663.         (else_try),
     
664.            (gt, "$faction_chossen", 0),
     
665.            (lt, ":object", "$g_presentation_obj_2"),
     
666.            (try_begin),
     
667.               (eq, ":object", "$g_presentation_button_1"),
     
668.               (neq, "$faction_showed", 1),
     
669.               (assign, "$faction_showed", 1),
     
670.               (start_presentation, "prsnt_faction_window"),
     
671.            (else_try),
     
672.               (eq, ":object", "$g_presentation_button_2"),
     
673.               (neq, "$faction_showed", 2),
     
674.               (assign, "$faction_showed", 2),
     
675.               (start_presentation, "prsnt_faction_window"),
     
676.            (else_try),
     
677.               (eq, ":object", "$g_presentation_button_3"),
     
678.               (neq, "$faction_showed", 3),
     
679.               (assign, "$faction_showed", 3),
     
680.               (start_presentation, "prsnt_faction_window"),
     
681.            (else_try),
     
682.               (eq, ":object", "$g_presentation_button_4"),
     
683.               (neq, "$faction_showed", 4),
     
684.               (assign, "$faction_showed", 4),
     
685.               (start_presentation, "prsnt_faction_window"),
     
686.            (else_try),
     
687.               (eq, ":object", "$g_presentation_button_5"),
     
688.               (neq, "$faction_showed", 5),
     
689.               (assign, "$faction_showed", 5),
     
690.               (start_presentation, "prsnt_faction_window"),
     
691.            (else_try),
     
692.               (eq, ":object", "$g_presentation_button_6"),
     
693.               (neq, "$faction_showed", 6),
     
694.               (assign, "$faction_showed", 6),
     
695.               (start_presentation, "prsnt_faction_window"),
     
696.            (try_end),
     
697. 
     
698. #__________________________________________________________________________________retrival__________________________________________________________________________
     
699.         (else_try),                                                                            #retrival show brief
     
700.            (le, "$faction_showed", 0),
     
701.            (le, "$faction_chossen", 0),
     
702.            (troop_slot_ge, "trp_temp_array_a", ":object", 1),
     
703.            (troop_get_slot, "$faction_biref_show", "trp_temp_array_a", ":object"),
     
704.            (assign, "$lord_biref_show", -1),
     
705.            (assign, "$troop_biref_show", -1),
     
706.            (start_presentation, "prsnt_faction_window"),
     
707.         (else_try),
     
708.            (le, "$faction_showed", 0),
     
709.            (le, "$faction_chossen", 0),
     
710.            (eq, ":object", "$g_presentation_retrival_1"),
     
711.            (val_add, "$faction_grade", 1),
     
712.            (try_begin),
     
713.               (eq, "$faction_grade", 6),
     
714.               (assign, "$faction_grade", 0),
     
715.            (try_end),
     
716.            (start_presentation, "prsnt_faction_window"),
     
717.         (else_try),
     
718.            (le, "$faction_showed", 0),
     
719.            (le, "$faction_chossen", 0),
     
720.            (eq, ":object", "$g_presentation_retrival_2"),
     
721.            (val_add, "$faction_character", 1),
     
722.            (try_begin),
     
723.               (eq, "$faction_character", 3),
     
724.               (assign, "$faction_character", 0),
     
725.            (try_end),
     
726.            (start_presentation, "prsnt_faction_window"),
     
727.         (else_try),
     
728.            (le, "$faction_showed", 0),
     
729.            (le, "$faction_chossen", 0),
     
730.            (eq, ":object", "$g_presentation_retrival_3"),
     
731.            (val_add, "$faction_affiliation", 1),
     
732.            (try_begin),
     
733.               (eq, "$faction_affiliation", 5),
     
734.               (assign, "$faction_affiliation", 0),
     
735.            (try_end),
     
736.            (start_presentation, "prsnt_faction_window"),
     
737. 
     
738. #_______________________________________________________________________________right part brief__________________________________________________________________________
     
739.         (else_try),                                                                          #enter another faction's window
     
740.            (gt, "$faction_biref_show", 0),
     
741.            (eq, ":object", "$g_presentation_obj_3"),
     
742.            (assign, "$faction_chossen", "$faction_biref_show"),
     
743.            (assign, "$faction_biref_show", -1),
     
744.            (assign, "$lord_biref_show", -1),
     
745.            (assign, "$troop_biref_show", -1),
     
746.            (start_presentation, "prsnt_faction_window"),
     
747.         (else_try),                                                                          #show brief information in the right part, used in introduction part
     
748.            (eq, "$faction_showed", 1),
     
749.            (gt, "$faction_chossen", 0),
     
750.            (eq, ":object", "$g_presentation_obj_4"),
     
751.            (call_script, "script_get_faction_affiliation", "$faction_chossen", 0),
     
752.            (gt, reg1, 0),
     
753.            (assign, "$faction_biref_show", reg1),
     
754.            (assign, "$lord_biref_show", -1),
     
755.            (assign, "$troop_biref_show", -1),
     
756.            (start_presentation, "prsnt_faction_window"),
     
757.         (else_try),                                                                          #show brief information in the right part, used in member part
     
758.            (eq, "$faction_showed", 2),
     
759.            (gt, "$faction_chossen", 0),
     
760.            (troop_slot_ge, "trp_temp_array_a", ":object", 1),
     
761.            (troop_get_slot, ":target_no", "trp_temp_array_a", ":object"),
     
762.            (store_mod, ":type_no", ":target_no", 10),
     
763.            (val_div, ":target_no", 10),
     
764.            (try_begin),
     
765.               (eq, ":type_no", 1),#troop
     
766.               (assign, "$faction_biref_show", -1),
     
767.               (assign, "$lord_biref_show", ":target_no"),
     
768.            (else_try),
     
769.               (assign, "$faction_biref_show", ":target_no"),
     
770.               (assign, "$lord_biref_show", -1),
     
771.            (try_end),
     
772.            (assign, "$troop_biref_show", -1),
     
773.            (start_presentation, "prsnt_faction_window"),
     
774.         (else_try),                                                                          #show brief information in the right part, used in troop part
     
775.            (eq, "$faction_showed", 3),
     
776.            (gt, "$faction_chossen", 0),
     
777.            (troop_slot_ge, "trp_temp_array_a", ":object", 1),
     
778.            (troop_get_slot, ":troop_no", "trp_temp_array_a", ":object"),
     
779.            (assign, "$faction_biref_show", -1),
     
780.            (assign, "$lord_biref_show", -1),
     
781.            (assign, "$troop_biref_show", ":troop_no"),
     
782.            (start_presentation, "prsnt_faction_window"),
     
783.         (try_end),
     
784.        ]),
     
785.   ]),
     

复制代码

最后是要用到的script

1. ##__________________________________________________________________________________faction related___________________________________________________________________________
   
2. 
   
3. ##Be awared that since factions can only reach 128, new factions will be made by items. Normal factions will only used as IDENTITIES.
   
4. #set a substitude for player in film mode. Output two weapon no in game variables.
   
5.   ("set_faction_affiliation", [
   
6.       (store_script_param, ":joiner_no", 1),
   
7.       (store_script_param, ":joiner_type", 2),#0 is faction(item), 1 is troop.
   
8.       (store_script_param, ":superior_faction_no", 3),
   
9.       (store_script_param, ":joiner_status", 4),#0 is normal member, 1 is pillar member, 2 is leader.
   
10. 
    
11.       (try_begin),
    
12.          (eq, ":joiner_type", 0),#faction
    
13.          (item_set_slot, ":joiner_no", slot_faction_affiliation, ":superior_faction_no"),
    
14.          (item_set_slot, ":joiner_no", slot_faction_member_position, ":joiner_status"),
    
15.       (else_try),
    
16.          (eq, ":joiner_type", 1),#troop
    
17.          (troop_set_slot, ":joiner_no", slot_troop_affiliation, ":superior_faction_no"),
    
18.          (troop_set_slot, ":joiner_no", slot_troop_member_position, ":joiner_status"),
    
19.       (try_end),
    
20. 
    
21. #      (try_begin),
    
22. #         (eq, ":joiner_status", 2),
    
23. #         (faction_get_slot, ":leader_no", ":superior_faction_no", slot_faction_leader)
    
24. #         (try_begin),
    
25. #            (gt, ":leader_no", 0),#already have leader
    
26. #            (display_message, "@Already_have_leader", 0xFF0000),
    
27. #         (else_try),
    
28. #            (faction_set_slot, ":superior_faction_no", slot_faction_leader, ":joiner_no"),
    
29. #         (try_end),
    
30. #      (else_try),
    
31. #         (eq, ":joiner_status", 1),
    
32. #         (assign, ":end_cond", slot_faction_bottom_begin),
    
33. #         (try_for_range, ":slot_no", slot_faction_pillar_begin, ":end_cond"),
    
34. #            (faction_get_slot, ":pillar_no", ":superior_faction_no", ":slot_no")
    
35. #            (le, ":pillar_no", 0),
    
36. #            (faction_set_slot, ":superior_faction_no", ":slot_no", ":joiner_no"),
    
37. #            (assign, ":end_cond", slot_faction_pillar_begin),#break
    
38. #         (try_end),
    
39. #         (eq, ":end_cond", slot_faction_bottom_begin),
    
40. #         (display_message, "@Already_have_enough_pillar", 0xFF0000),
    
41. #      (else_try),
    
42. #         (eq, ":joiner_status", 0),
    
43. #         (assign, ":end_cond", 100),
    
44. #         (try_for_range, ":slot_no", slot_faction_bottom_begin, ":end_cond"),
    
45. #            (faction_get_slot, ":bottom_no", ":superior_faction_no", ":slot_no")
    
46. #            (le, ":bottom_no", 0),
    
47. #            (faction_set_slot, ":superior_faction_no", ":slot_no", ":joiner_no"),
    
48. #            (assign, ":end_cond", slot_faction_bottom_begin),#break
    
49. #         (try_end),
    
50. #      (try_end),
    
51.     ]),
    
52. 
    
53.   ("get_faction_affiliation", [#output reg1
    
54.       (store_script_param, ":joiner_no", 1),
    
55.       (store_script_param, ":joiner_type", 2),#0 is faction(item), 1 is troop.
    
56. 
    
57.       (try_begin),
    
58.          (eq, ":joiner_type", 0),#faction
    
59.          (item_get_slot, reg1, ":joiner_no", slot_faction_affiliation),
    
60.       (else_try),
    
61.          (eq, ":joiner_type", 1),#troop
    
62.          (troop_get_slot, reg1, ":joiner_no", slot_troop_affiliation),
    
63.       (try_end),
    
64.     ]),
    
65. 
    
66.   ("get_faction_position", [#output reg1
    
67.       (store_script_param, ":joiner_no", 1),
    
68.       (store_script_param, ":joiner_type", 2),#0 is faction(item), 1 is troop.
    
69. 
    
70.       (try_begin),
    
71.          (eq, ":joiner_type", 0),#faction
    
72.          (item_get_slot, reg1, ":joiner_no", slot_faction_member_position),
    
73.       (else_try),
    
74.          (eq, ":joiner_type", 1),#troop
    
75.          (troop_get_slot, reg1, ":joiner_no", slot_troop_member_position),
    
76.       (try_end),
    
77.     ]),
    
78. 
    
79. 
    
80.   ("draw_faction_image", [#output reg1 (overlay id of button)
    
81.       (store_script_param, ":faction_no", 1),
    
82.       (store_script_param, ":type_no", 2),#0 is faction(item), 1 is troop.
    
83.       (store_script_param, ":cur_x", 3),
    
84.       (store_script_param, ":cur_y", 4),
    
85. 
    
86.       (try_begin),
    
87.          (neq, ":type_no", 1),
    
88.          (create_mesh_overlay_with_item_id, reg1, ":faction_no"),
    
89.          (position_set_x, pos1, ":cur_x"),
    
90.          (position_set_y, pos1, ":cur_y"),
    
91.          (overlay_set_position, reg1, pos1),
    
92. 
    
93.          (val_sub, ":cur_y", 65),
    
94.          (str_store_item_name, s1, ":faction_no"),
    
95.          (create_text_overlay, reg1, s1, tf_center_justify),
    
96.          (position_set_x, pos1, ":cur_x"),
    
97.          (position_set_y, pos1, ":cur_y"),
    
98.          (overlay_set_position, reg1, pos1),
    
99.          (position_set_x, pos1, 800),
    
100.          (position_set_y, pos1, 800),
     
101.          (overlay_set_size, reg1, pos1),
     
102.          (overlay_set_color, reg1, 0xFFFFFF),
     
103. 
     
104.          (val_sub, ":cur_x", 40),
     
105.          (val_add, ":cur_y", 25),
     
106.          (create_image_button_overlay, reg1, "mesh_white_plane", "mesh_white_plane"),
     
107.          (position_set_x, pos1, ":cur_x"),
     
108.          (position_set_y, pos1, ":cur_y"),
     
109.          (overlay_set_position, reg1, pos1),
     
110.          (position_set_x, pos1, 4000),
     
111.          (position_set_y, pos1, 4000),
     
112.          (overlay_set_size, reg1, pos1),
     
113.          (overlay_set_color, reg1, 0x000000),
     
114. 
     
115.       (else_try),
     
116.          (val_sub, ":cur_y", 65),
     
117.          (str_store_troop_name, s1, ":faction_no"),
     
118.          (create_text_overlay, reg1, s1, tf_center_justify),
     
119.          (position_set_x, pos1, ":cur_x"),
     
120.          (position_set_y, pos1, ":cur_y"),
     
121.          (overlay_set_position, reg1, pos1),
     
122.          (position_set_x, pos1, 800),
     
123.          (position_set_y, pos1, 800),
     
124.          (overlay_set_size, reg1, pos1),
     
125.          (overlay_set_color, reg1, 0xFFFFFF),
     
126. 
     
127.          (val_sub, ":cur_x", 60),
     
128.          (val_add, ":cur_y", 20),
     
129.          (create_image_button_overlay_with_tableau_material, reg1, -1, "tableau_troop_note_mesh", ":faction_no"),
     
130.          (set_fixed_point_multiplier, 1000),
     
131.          (position_set_x, pos1, ":cur_x"),
     
132.          (position_set_y, pos1, ":cur_y"),
     
133.          (overlay_set_position, reg1, pos1),
     
134.          (position_set_x, pos1, 300),
     
135.          (position_set_y, pos1, 300),
     
136.          (overlay_set_size, reg1, pos1),
     
137.       (try_end),
     
138.     ]),
     
139. 
     
140. 
     
141. #show in the right of faction  window
     
142.   ("faction_brief_show", [
     
143.       (store_script_param, ":faction_no", 1),#item no
     
144.       (create_mesh_overlay_with_item_id, reg1, ":faction_no"),
     
145.       (position_set_x, pos1, 825),
     
146.       (position_set_y, pos1, 550),
     
147.       (overlay_set_position, reg1, pos1),
     
148.       (position_set_x, pos1, 1300),
     
149.       (position_set_y, pos1, 1300),
     
150.       (overlay_set_size, reg1, pos1),
     
151. 
     
152.       (str_store_item_name, s1, ":faction_no"),
     
153.       (create_text_overlay, reg1, s1, tf_center_justify),
     
154.       (position_set_x, pos1, 825),
     
155.       (position_set_y, pos1, 450),
     
156.       (overlay_set_position, reg1, pos1),
     
157.       (position_set_x, pos1, 1000),
     
158.       (position_set_y, pos1, 1000),
     
159.       (overlay_set_size, reg1, pos1),
     
160. 
     
161.       (item_get_difficulty, ":grade_no", ":faction_no"),#faction grade
     
162.       (val_sub, ":grade_no", 1),
     
163.       (val_add, ":grade_no", "str_faction_grade_1"),
     
164.       (str_store_string, s1, ":grade_no"),
     
165.       (create_text_overlay, reg1, s1, tf_center_justify),
     
166.       (position_set_x, pos1, 825),
     
167.       (position_set_y, pos1, 410),
     
168.       (overlay_set_position, reg1, pos1),
     
169.       (position_set_x, pos1, 1000),
     
170.       (position_set_y, pos1, 1000),
     
171.       (overlay_set_size, reg1, pos1),
     
172.       (try_begin),
     
173.          (eq, ":grade_no", "str_faction_grade_1"),
     
174.          (overlay_set_color, reg1, 0xCCCCCC),
     
175.       (else_try),
     
176.          (eq, ":grade_no", "str_faction_grade_2"),
     
177.          (overlay_set_color, reg1, 0xFFCCCC),
     
178.       (else_try),
     
179.          (eq, ":grade_no", "str_faction_grade_3"),
     
180.          (overlay_set_color, reg1, 0xFF9999),
     
181.       (else_try),
     
182.          (eq, ":grade_no", "str_faction_grade_4"),
     
183.          (overlay_set_color, reg1, 0xFF6666),
     
184.       (else_try),
     
185.          (eq, ":grade_no", "str_faction_grade_5"),
     
186.          (overlay_set_color, reg1, 0xFF3333),
     
187.       (try_end),
     
188. 
     
189.       (create_game_button_overlay, "$g_presentation_obj_3", "@Check_this_faction"),
     
190.       (position_set_x, pos1, 825),
     
191.       (position_set_y, pos1, 350),
     
192.       (overlay_set_position, "$g_presentation_obj_3", pos1),
     
193.     ]),
     
194. 
     
195.   ("lord_brief_show", [
     
196.       (store_script_param, ":troop_no", 1),
     
197.       (store_mul, ":cur_troop", ":troop_no", 2), #with weapons
     
198.       (create_mesh_overlay_with_tableau_material, reg1, -1, "tableau_game_party_window", ":cur_troop"),
     
199.       (set_fixed_point_multiplier, 1000),
     
200.       (position_set_x, pos1, 720),
     
201.       (position_set_y, pos1, 420),
     
202.       (overlay_set_position, reg1, pos1),
     
203.       (position_set_x, pos1, 700),
     
204.       (position_set_y, pos1, 700),
     
205.       (overlay_set_size, reg1, pos1),
     
206. 
     
207.       (str_store_troop_name, s1, ":troop_no"),
     
208.       (create_text_overlay, reg1, s1, tf_center_justify),
     
209.       (position_set_x, pos1, 825),
     
210.       (position_set_y, pos1, 390),
     
211.       (overlay_set_position, reg1, pos1),
     
212.       (position_set_x, pos1, 1000),
     
213.       (position_set_y, pos1, 1000),
     
214.       (overlay_set_size, reg1, pos1),
     
215. 
     
216.       (create_game_button_overlay, "$g_presentation_obj_3", "@Check_this_lord"),
     
217.       (position_set_x, pos1, 825),
     
218.       (position_set_y, pos1, 350),
     
219.       (overlay_set_position, "$g_presentation_obj_3", pos1),
     
220.       (overlay_set_display, "$g_presentation_obj_3", 0),
     
221.     ]),
     
222. 
     
223.   ("troop_brief_show", [
     
224.       (store_script_param, ":troop_no", 1),
     
225.       (store_mul, ":cur_troop", ":troop_no", 2), #with weapons
     
226.       (create_mesh_overlay_with_tableau_material, reg1, -1, "tableau_game_party_window", ":cur_troop"),
     
227.       (set_fixed_point_multiplier, 1000),
     
228.       (position_set_x, pos1, 650),
     
229.       (position_set_y, pos1, 420),
     
230.       (overlay_set_position, reg1, pos1),
     
231.       (position_set_x, pos1, 700),
     
232.       (position_set_y, pos1, 700),
     
233.       (overlay_set_size, reg1, pos1),
     
234. 
     
235.       (str_store_troop_name, s1, ":troop_no"),
     
236.       (create_text_overlay, reg1, s1, tf_center_justify),
     
237.       (position_set_x, pos1, 825),
     
238.       (position_set_y, pos1, 420),
     
239.       (overlay_set_position, reg1, pos1),
     
240.       (position_set_x, pos1, 1000),
     
241.       (position_set_y, pos1, 1000),
     
242.       (overlay_set_size, reg1, pos1),
     
243. 
     
244. #attributes
     
245.       (try_for_range, ":count", 0, 4),
     
246.          (store_add, ":string_no", ":count", "str_strength"),
     
247.          (str_store_string, s1, ":string_no"),
     
248.          (store_mul, ":high", ":count", -15),
     
249.          (val_add, ":high", 615),
     
250. 
     
251.          (create_text_overlay, reg1, s1),
     
252.          (position_set_x, pos1, 800),
     
253.          (position_set_y, pos1, ":high"),
     
254.          (overlay_set_position, reg1, pos1),
     
255.          (position_set_x, pos1, 700),
     
256.          (position_set_y, pos1, 700),
     
257.          (overlay_set_size, reg1, pos1),
     
258. 
     
259.          (store_add, ":attribute_no", ":count", ca_strength),
     
260.          (store_attribute_level, ":attribute_level", ":troop_no", ":attribute_no"),
     
261.          (assign, reg2, ":attribute_level"),
     
262.          (create_text_overlay, reg1, "@_{reg2}_"),
     
263.          (position_set_x, pos1, 890),
     
264.          (position_set_y, pos1, ":high"),
     
265.          (overlay_set_position, reg1, pos1),
     
266.          (position_set_x, pos1, 700),
     
267.          (position_set_y, pos1, 700),
     
268.          (overlay_set_size, reg1, pos1),
     
269.       (try_end),
     
270. 
     
271. #weapon talent
     
272.       (try_for_range, ":count", 0, 7),
     
273.          (store_add, ":string_no", ":count", "str_wpt_one_handed"),
     
274.          (str_store_string, s1, ":string_no"),
     
275.          (store_mul, ":high", ":count", -15),
     
276.          (val_add, ":high", 535),
     
277. 
     
278.          (create_button_overlay, reg1, s1),
     
279.          (position_set_x, pos1, 800),
     
280.          (position_set_y, pos1, ":high"),
     
281.          (overlay_set_position, reg1, pos1),
     
282.          (position_set_x, pos1, 700),
     
283.          (position_set_y, pos1, 700),
     
284.          (overlay_set_size, reg1, pos1),
     
285. 
     
286.          (store_add, ":weapon_no", wpt_one_handed_weapon, ":count"),
     
287.          (store_proficiency_level, ":weapon_level", ":troop_no", ":weapon_no"),
     
288.          (assign, reg2, ":weapon_level"),
     
289.          (create_button_overlay, reg1, "@_{reg2}_"),
     
290.          (position_set_x, pos1, 890),
     
291.          (position_set_y, pos1, ":high"),
     
292.          (overlay_set_position, reg1, pos1),
     
293.          (position_set_x, pos1, 700),
     
294.          (position_set_y, pos1, 700),
     
295.          (overlay_set_size, reg1, pos1),
     
296.       (try_end),
     
297. 
     
298. #skills
     
299. #      (create_text_overlay, reg1, "@ ", tf_scrollable),
     
300. #      (position_set_x, pos1, 710),
     
301. #      (position_set_y, pos1, 315),
     
302. #      (overlay_set_position, reg1, pos1),
     
303. #      (position_set_x, pos1, 230),
     
304. #      (position_set_y, pos1, 100),
     
305. #      (overlay_set_area_size, reg1, pos1),
     
306. #      (set_container_overlay, reg1),
     
307. 
     
308.       (assign, ":count_3", -1),
     
309.       (try_for_range, ":count", 0, 42),
     
310.          (store_sub, ":skill_no", skl_reserved_18, ":count"),
     
311.          (store_skill_level, ":skill_level", ":skill_no", ":troop_no"),
     
312.          (gt, ":skill_level", 0),
     
313.          (val_add, ":count_3", 1),
     
314. 
     
315.          (store_add, ":string_no", ":count", "str_reserved_18"),
     
316.          (str_store_string, s1, ":string_no"),
     
317. 
     
318.          (store_div, ":count_1", ":count_3", 3),
     
319.          (store_mod, ":count_2", ":count_3", 3),
     
320.          (store_mul, ":high", ":count_1", -15),
     
321.          (val_add, ":high", 400),
     
322. 
     
323.          (create_button_overlay, reg1, s1),
     
324.          (try_begin),
     
325.             (eq, ":count_2", 0),
     
326.             (position_set_x, pos1, 728),
     
327.          (else_try),
     
328.             (eq, ":count_2", 1),
     
329.             (position_set_x, pos1, 798),
     
330.          (else_try),
     
331.             (position_set_x, pos1, 868),
     
332.          (try_end),
     
333.          (position_set_y, pos1, ":high"),
     
334.          (overlay_set_position, reg1, pos1),
     
335.          (position_set_x, pos1, 700),
     
336.          (position_set_y, pos1, 700),
     
337.          (overlay_set_size, reg1, pos1),
     
338. 
     
339.          (assign, reg2, ":skill_level"),
     
340.          (create_button_overlay, reg1, "@_{reg2}_"),
     
341.          (try_begin),
     
342.             (eq, ":count_2", 0),
     
343.             (position_set_x, pos1, 763),
     
344.          (else_try),
     
345.             (eq, ":count_2", 1),
     
346.             (position_set_x, pos1, 833),
     
347.          (else_try),
     
348.             (position_set_x, pos1, 903),
     
349.          (try_end),
     
350.          (position_set_y, pos1, ":high"),
     
351.          (overlay_set_position, reg1, pos1),
     
352.          (position_set_x, pos1, 700),
     
353.          (position_set_y, pos1, 700),
     
354.          (overlay_set_size, reg1, pos1),
     
355.       (try_end),
     
356. #      (set_container_overlay, -1),
     
357. 
     
358. #description
     
359.       (str_store_troop_name_plural, s1, ":troop_no"),
     
360.       (create_text_overlay, reg1, s1, tf_scrollable),
     
361.       (position_set_x, pos1, 710),
     
362.       (position_set_y, pos1, 225),
     
363.       (overlay_set_position, reg1, pos1),
     
364.       (position_set_x, pos1, 900),
     
365.       (position_set_y, pos1, 900),
     
366.       (overlay_set_size, reg1, pos1),
     
367.       (position_set_x, pos1, 230),
     
368.       (position_set_y, pos1, 100),
     
369.       (overlay_set_area_size, reg1, pos1),
     
370. 
     
371.       (create_game_button_overlay, "$g_presentation_obj_3", "@Check_this_troop"),
     
372.       (position_set_x, pos1, 825),
     
373.       (position_set_y, pos1, 350),
     
374.       (overlay_set_position, "$g_presentation_obj_3", pos1),
     
375.       (overlay_set_display, "$g_presentation_obj_3", 0),
     
376. 
     
377. #inventory
     
378.       (create_text_overlay, reg1, "@ ", tf_scrollable),
     
379.       (position_set_x, pos1, 700),
     
380.       (position_set_y, pos1, 58),
     
381.       (overlay_set_position, reg1, pos1),
     
382.       (position_set_x, pos1, 250),
     
383.       (position_set_y, pos1, 160),
     
384.       (overlay_set_area_size, reg1, pos1),
     
385.       (set_container_overlay, reg1),
     
386.       
     
387.       (troop_get_inventory_capacity, ":inventroy_limit", ":troop_no"),
     
388.       (store_div, ":cur_y", ":inventroy_limit", 6),
     
389.       (val_mul, ":cur_y", 40),
     
390.       (assign, ":cur_x", 5),
     
391.       (try_for_range, ":count_no", 0, ":inventroy_limit"),
     
392.          (create_mesh_overlay, reg1, "mesh_mp_inventory_choose"),
     
393.          (position_set_x, pos1, 320),
     
394.          (position_set_y, pos1, 320),
     
395.          (overlay_set_size, reg1, pos1),
     
396.          (position_set_x, pos1, ":cur_x"),
     
397.          (position_set_y, pos1, ":cur_y"),
     
398.          (overlay_set_position, reg1, pos1),
     
399.          (troop_set_slot, "trp_temp_array_b", ":count_no", reg1),
     
400. 
     
401.          (create_mesh_overlay, reg1, "mesh_inv_slot"),
     
402.          (position_set_x, pos1, 400),
     
403.          (position_set_y, pos1, 400),
     
404.          (overlay_set_size, reg1, pos1),
     
405.          (position_set_x, pos1, ":cur_x"),
     
406.          (position_set_y, pos1, ":cur_y"),
     
407.          (overlay_set_position, reg1, pos1),
     
408. 
     
409.          (troop_get_inventory_slot, ":item_no", ":troop_no", ":count_no"),
     
410.          (val_max, ":item_no", 0),
     
411.          (create_mesh_overlay_with_item_id, reg1, ":item_no"),
     
412.          (position_set_x, pos1, 400),
     
413.          (position_set_y, pos1, 400),
     
414.          (overlay_set_size, reg1, pos1),
     
415.          (store_add, ":cur_x_1", ":cur_x", 20),
     
416.          (store_add, ":cur_y_1", ":cur_y", 20),
     
417.          (position_set_x, pos1, ":cur_x_1"),
     
418.          (position_set_y, pos1, ":cur_y_1"),
     
419.          (overlay_set_position, reg1, pos1),
     
420.          (troop_set_slot, "trp_temp_array_c", ":count_no", reg1),
     
421. 
     
422.          (try_begin),
     
423.             (store_mod, ":position_change", ":count_no", 6),
     
424.             (neq, ":position_change", 5),
     
425.             (val_add, ":cur_x", 40),
     
426.          (else_try),
     
427.             (assign, ":cur_x", 5),
     
428.             (val_sub, ":cur_y", 40),
     
429.          (try_end),
     
430.       (try_end),
     
431.       (set_container_overlay, -1),
     
432.     ]),
     
433. 
     
434. #retrival condition
     
435.   ("cf_faction_retrival_check", [
     
436.       (store_script_param, ":faction_no", 1),#item no
     
437.       (assign, ":continue_no", 0),
     
438. 
     
439.       (try_begin),                                          #faction grade
     
440.          (eq, "$faction_grade", 0),#total
     
441.          (val_add, ":continue_no", 1),
     
442.       (else_try),
     
443.          (item_get_difficulty, ":grade_no", ":faction_no"),#faction grade
     
444.          (eq, ":grade_no", "$faction_grade"),
     
445.          (val_add, ":continue_no", 1),
     
446.       (try_end),
     
447. 
     
448.       (try_begin),                                          #faction character
     
449.          (eq, "$faction_character", 0),#total
     
450.          (val_add, ":continue_no", 1),
     
451.       (else_try),
     
452.          (eq, "$faction_character", 1),#country_faction
     
453.          (call_script, "script_faction_superior_country_check", ":faction_no", 0),
     
454.          (gt, reg1, 0),
     
455.          (val_add, ":continue_no", 1),
     
456.       (else_try),
     
457.          (eq, "$faction_character", 2),#non-country_faction
     
458.          (call_script, "script_faction_superior_country_check", ":faction_no", 0),
     
459.          (le, reg1, 0),
     
460.          (val_add, ":continue_no", 1),
     
461.       (try_end),
     
462. 
     
463.       (try_begin),                                          #faction affiliation
     
464.          (eq, "$faction_affiliation", 0),#total
     
465.          (val_add, ":continue_no", 1),
     
466.       (else_try),
     
467.          (eq, "$faction_affiliation", 1),#highest faction
     
468.          (call_script, "script_get_faction_affiliation", ":faction_no", 0),
     
469.          (le, reg1, 0),
     
470.          (val_add, ":continue_no", 1),
     
471.       (else_try),
     
472.          (eq, "$faction_affiliation", 2),#not highest faction
     
473.          (call_script, "script_get_faction_affiliation", ":faction_no", 0),
     
474.          (gt, reg1, 0),
     
475.          (val_add, ":continue_no", 1),
     
476.       (else_try),
     
477.          (eq, "$faction_affiliation", 3),#bottom faction
     
478.          (assign, ":count_no_2", 0),
     
479.          (try_for_range, ":count_no", "itm_faction_begin", "itm_faction_end"),
     
480.             (call_script, "script_get_faction_affiliation", ":count_no", 0),
     
481.             (eq, reg1, ":faction_no"),
     
482.             (assign, ":count_no_2", 1),
     
483.          (try_end),
     
484. #         (try_for_range, ":count_no", "trp_player", "trp_relative_of_merchants_end"),
     
485. #            (call_script, "script_get_faction_affiliation", ":count_no", 1),
     
486. #            (eq, reg1, ":faction_no"),
     
487. #            (assign, ":count_no_2", 1),
     
488. #         (try_end),
     
489.          (eq, ":count_no_2", 0),
     
490.          (val_add, ":continue_no", 1),
     
491.       (else_try),
     
492.          (eq, "$faction_affiliation", 4),#not bottom faction
     
493.          (assign, ":count_no_2", 0),
     
494.          (try_for_range, ":count_no", "itm_faction_begin", "itm_faction_end"),
     
495.             (call_script, "script_get_faction_affiliation", ":count_no", 0),
     
496.             (eq, reg1, ":faction_no"),
     
497.             (assign, ":count_no_2", 1),
     
498.          (try_end),
     
499.          (eq, ":count_no_2", 1),
     
500.          (val_add, ":continue_no", 1),
     
501.       (try_end),
     
502.       (eq, ":continue_no", 3),
     
503.     ]),
     
504. 
     
505. #Check if certain faction is the object faction's superior, including itself
     
506.   ("cf_faction_superior_check", [
     
507.       (store_script_param, ":object_faction_no", 1),
     
508.       (store_script_param, ":superior_faction_no", 2),
     
509.       (store_script_param, ":joiner_type", 3),#0 is faction(item), 1 is troop.
     
510. 
     
511.       (assign, ":continue_no", 0),
     
512.       (try_begin),
     
513.          (eq, ":object_faction_no", ":superior_faction_no"),
     
514.          (assign, ":continue_no", 1),
     
515.       (else_try),
     
516.          (call_script, "script_get_faction_affiliation", ":object_faction_no", ":joiner_type"),
     
517.          (try_begin),
     
518.             (eq, ":superior_faction_no", reg1),
     
519.             (assign, ":continue_no", 1),
     
520.          (else_try),
     
521.             (item_get_difficulty, ":return_value", reg1),#faction grade
     
522.             (le, ":return_value", 5),
     
523.             (call_script, "script_cf_faction_superior_check", reg1, ":superior_faction_no", 0),#check superior faction's superior.
     
524.             (assign, ":continue_no", 1),
     
525.          (try_end),
     
526.       (try_end),
     
527.       (eq, ":continue_no", 1),
     
528.     ]),
     
529. 
     
530. 
     
531. #Check if certain faction is affiliated to ceratin country, return country faction id. Otherwise return 0.
     
532.   ("faction_superior_country_check", [
     
533.       (store_script_param, ":object_faction_no", 1),
     
534.       (store_script_param, ":joiner_type", 2),#0 is faction(item), 1 is troop.
     
535. 
     
536.       (assign, ":continue_no", 0),
     
537.       (try_begin),
     
538.          (is_between, ":object_faction_no", "itm_player_supporters_faction", "itm_kingdoms_end"),
     
539.          (assign, ":continue_no",":object_faction_no"),
     
540.       (else_try),
     
541.          (call_script, "script_get_faction_affiliation", ":object_faction_no", ":joiner_type"),
     
542.          (try_begin),
     
543.             (is_between, reg1, "itm_player_supporters_faction", "itm_kingdoms_end"),
     
544.             (assign, ":continue_no", reg1),
     
545.          (else_try),
     
546.             (item_get_difficulty, ":return_value", reg1),#faction grade
     
547.             (le, ":return_value", 4),
     
548.             (call_script, "script_faction_superior_country_check", reg1, 0),#check superior faction's superior.
     
549.             (assign, ":continue_no", reg1),
     
550.          (try_end),
     
551.       (try_end),
     
552.       (assign, reg1, ":continue_no"),
     
553.     ]),
     
554. 
     
555. #faction get leader
     
556.   ("faction_leader_check", [#ouput reg1 and reg2, if there is no leader, output -1
     
557.       (store_script_param, ":object_faction_no", 1),
     
558. 
     
559.       (assign, ":target_faction_no", -1),
     
560.       (assign, ":target_faction_type", -1),
     
561.       (try_for_range, ":count_no", "itm_faction_begin", "itm_faction_end"),
     
562.          (call_script, "script_get_faction_affiliation", ":count_no", 0),
     
563.          (eq, reg1, ":object_faction_no"),
     
564.          (call_script, "script_get_faction_position", ":count_no", 0),
     
565.          (eq, reg1, 2),#leader
     
566.          (assign, ":target_faction_no", ":count_no"),
     
567.          (assign, ":target_faction_type", 0),
     
568.       (try_end),
     
569. 
     
570.       (try_for_range, ":count_no", "trp_player", "trp_relative_of_merchants_end"),
     
571.          (call_script, "script_get_faction_affiliation", ":count_no", 1),
     
572.          (eq, reg1, ":object_faction_no"),
     
573.          (call_script, "script_get_faction_position", ":count_no", 1),
     
574.          (eq, reg1, 2),#leader
     
575.          (assign, ":target_faction_no", ":count_no"),
     
576.          (assign, ":target_faction_type", 1),
     
577.       (try_end),
     
578.       (assign, reg1, ":target_faction_no"),
     
579.       (assign, reg2, ":target_faction_type"),#0 is faction(item), 1 is troop.
     
580.     ]),
     
581. 
     
582. #faction get pillar number
     
583.   ("faction_pillar_number_check", [#ouput reg1
     
584.       (store_script_param, ":object_faction_no", 1),
     
585. 
     
586.       (assign, ":target_faction_num", 0),
     
587.       (try_for_range, ":count_no", "itm_faction_begin", "itm_faction_end"),
     
588.          (call_script, "script_get_faction_affiliation", ":count_no", 0),
     
589.          (eq, reg1, ":object_faction_no"),
     
590.          (call_script, "script_get_faction_position", ":count_no", 0),
     
591.          (eq, reg1, 1),#pillar
     
592.          (val_add, ":target_faction_num", 1),
     
593.       (try_end),
     
594. 
     
595.       (try_for_range, ":count_no", "trp_player", "trp_relative_of_merchants_end"),
     
596.          (call_script, "script_get_faction_affiliation", ":count_no", 1),
     
597.          (eq, reg1, ":object_faction_no"),
     
598.          (call_script, "script_get_faction_position", ":count_no", 1),
     
599.          (eq, reg1, 1),#pillar
     
600.          (val_add, ":target_faction_num", 1),
     
601.       (try_end),
     
602.       (assign, reg1, ":target_faction_num"),
     
603.     ]),
     
604. 
     
605. #faction get pillar number
     
606.   ("faction_normal_number_check", [#ouput reg1
     
607.       (store_script_param, ":object_faction_no", 1),
     
608. 
     
609.       (assign, ":target_faction_num", 0),
     
610.       (try_for_range, ":count_no", "itm_faction_begin", "itm_faction_end"),
     
611.          (call_script, "script_get_faction_affiliation", ":count_no", 0),
     
612.          (eq, reg1, ":object_faction_no"),
     
613.          (call_script, "script_get_faction_position", ":count_no", 0),
     
614.          (eq, reg1, 0),#normal member
     
615.          (val_add, ":target_faction_num", 1),
     
616.       (try_end),
     
617. 
     
618.       (try_for_range, ":count_no", "trp_player", "trp_relative_of_merchants_end"),
     
619.          (call_script, "script_get_faction_affiliation", ":count_no", 1),
     
620.          (eq, reg1, ":object_faction_no"),
     
621.          (call_script, "script_get_faction_position", ":count_no", 1),
     
622.          (eq, reg1, 0),#normal member
     
623.          (val_add, ":target_faction_num", 1),
     
624.       (try_end),
     
625.       (assign, reg1, ":target_faction_num"),
     
626.     ]),
     
627. 
     
628. #draw troop tree
     
629.   ("faction_troop_tree_recursive_backtracking", [
     
630.       (store_script_param, ":troop_no", 1),
     
631.       (store_script_param, ":cur_x", 2),
     
632.       (store_script_param, ":cur_y", 3),
     
633.       (store_script_param, ":offset_x", 4),   #troops in one upgarde tree have a distance of 125
     
634.       
     
635.       (store_add, ":next_x", ":cur_x", ":offset_x"),
     
636.       (troop_get_upgrade_troop, ":upgrade_troop_1", ":troop_no", 0),      # upgrade_troop
     
637.       (troop_get_upgrade_troop, ":upgrade_troop_2", ":troop_no", 1),
     
638.       (try_begin),
     
639.          (gt,  ":upgrade_troop_2", 0),
     
640.          (call_script, "script_faction_troop_tree_recursive_backtracking", ":upgrade_troop_2", ":next_x", reg2, ":offset_x"),
     
641.          (assign, ":upgrade_troop_2_y", reg0),
     
642.          (val_add, reg2, 200), # current global y
     
643.          (call_script, "script_faction_troop_tree_recursive_backtracking", ":upgrade_troop_1", ":next_x", reg2, ":offset_x"),
     
644.          (assign, ":upgrade_troop_1_y", reg0),
     
645.       (else_try),
     
646.          (gt,  ":upgrade_troop_1", 0),
     
647.          (call_script, "script_faction_troop_tree_recursive_backtracking", ":upgrade_troop_1", ":next_x", reg2, ":offset_x"),
     
648.          (assign, ":upgrade_troop_1_y", reg0),
     
649.       (try_end),
     
650.       
     
651.       # troop_tree_line
     
652.       (try_begin),
     
653.          (gt,  ":upgrade_troop_2", 0),
     
654.          (store_add, reg0, ":upgrade_troop_1_y", ":upgrade_troop_2_y"),
     
655.          (val_div, reg0, 2),
     
656.          #                       3---- upgrade_troop_1
     
657.          #                       |2
     
658.          # troop_no ----1
     
659.          #                       |2
     
660.          #                       3---- upgrade_troop_2
     
661.          (store_div, ":half_offset_x", ":offset_x", 2),
     
662.          (store_add, ":middle_x", ":cur_x", ":half_offset_x"),
     
663.          (call_script, "script_prsnt_line", ":half_offset_x", 1, ":cur_x", reg0, 0xFFFFFF),#1
     
664.          (call_script, "script_prsnt_line", ":half_offset_x", 1, ":middle_x", ":upgrade_troop_1_y", 0xFFFFFF),#3
     
665.          (call_script, "script_prsnt_line", ":half_offset_x", 1, ":middle_x", ":upgrade_troop_2_y", 0xFFFFFF),#3
     
666.          (store_sub, ":size_y", ":upgrade_troop_1_y", ":upgrade_troop_2_y"),
     
667.          (val_add, ":size_y", 1),
     
668.          (call_script, "script_prsnt_line", 1, ":size_y", ":middle_x", ":upgrade_troop_2_y", 0xFFFFFF),#2
     
669.       (else_try),
     
670.          (gt,  ":upgrade_troop_1", 0),
     
671.          (assign, reg0, ":upgrade_troop_1_y"),
     
672.          #
     
673.          # troop_no -------- upgrade_troop_1
     
674.          #
     
675.          (call_script, "script_prsnt_line", ":offset_x", 2, ":cur_x", ":upgrade_troop_1_y", 0xFFFFFF),
     
676.       (else_try),
     
677.          (assign, reg0, ":cur_y"),
     
678.       (try_end),
     
679.       
     
680.       # troop name
     
681.       (str_store_troop_name, s1, ":troop_no"),
     
682.       (create_text_overlay, reg1, "@{s1}", tf_center_justify|tf_vertical_align_center|tf_double_space|tf_scrollable),
     
683.       (store_sub, ":name_x", ":cur_x", 50),
     
684.       (store_sub, ":name_y", reg0, 130),
     
685.       (position_set_x, pos1, ":name_x"),
     
686.       (position_set_y, pos1, ":name_y"),
     
687.       (overlay_set_position, reg1, pos1),
     
688.       (position_set_x, pos1, 100),
     
689.       (position_set_y, pos1, 60),
     
690.       (overlay_set_area_size, reg1, pos1),
     
691.       (position_set_x, pos1, 800),
     
692.       (position_set_y, pos1, 800),
     
693.       (overlay_set_size, reg1, pos1),
     
694.       (overlay_set_color, reg1, 0xFFFFFF),
     
695.       
     
696.       # troop avatar
     
697.       (store_sub, ":avatar_x", ":cur_x", 75),
     
698.       (store_sub, ":avatar_y", reg0, 75),
     
699.       (store_mul, ":cur_troop", ":troop_no", 2), #with weapons
     
700.       (create_image_button_overlay_with_tableau_material, reg1, -1, "tableau_game_party_window", ":cur_troop"),
     
701.       (set_fixed_point_multiplier, 1000),
     
702.       (position_set_x, pos1, 450),
     
703.       (position_set_y, pos1, 600),
     
704.       (overlay_set_size, reg1, pos1),
     
705.       (position_set_x, pos1, ":avatar_x"),
     
706.       (position_set_y, pos1, ":avatar_y"),
     
707.       (overlay_set_position, reg1, pos1),
     
708.       (troop_set_slot, "trp_temp_array_a", reg1, ":troop_no"),
     
709.     ]),

复制代码

      注意一下每个国家都要有一幅背景图，由于我把文本都设置成白色了，所以得用比较深的背景。我个人是很喜欢黑底白字的。
       应该不难看出来，兵种树的迭代用的是Rubik的圣遗物，仅仅换了个颜色，变细了而已。白色显粗。这几天重温Rubik的代码，受益匪浅，感觉他的迭代思路写得是真不错啊，简直巧夺天工，可惜天妒英才。

       最后介绍一下装填数据的办法，前面说过，因为faction太少了所以改用了item。item可是好东西，里面的数据有两个string、一个模型、两处可检测的可新增的flag、20＋2个空填数据、可以写faction，甚至能用触发器写一点代码，非常不错。我看有些人数据储存东一块西一块的，一个骑士团，介绍在string里，图标存在mesh里，总部位置等信息写在script里，有些数据甚至存的全局变量，这种存法要用时真的找得到吗？建议改成拿item来储存。
       使用的item1是这么写的。

1. #Never use horse_charge, as horse_charge is just the same value of thrust_damage.
   
2. #thrust_damage>>order and chaos, 0 is order, 1, is chaos.
   
3. #swing_damage>>good_and_evil, 0, is good, 1 is evil.
   
4. #difficulty>>grade, 1 is footstone team, 2 is colossus organization, 3 is macro power ,4 is leviathan, 5 is detached institution
   
5. #abundance>>power structure, 0 is blank, 1 is autocrat, 2 is centralization, 3 is co-discussion
   
6. 
   
7. ["national_knights_order", "national_knights_order", [("sorcery_11_1", 0)], 0, 0, 1000,
   
8. weight(0)|difficulty(1)|head_armor(0)|body_armor(0)|leg_armor(0)|hit_points(0)|weapon_length(0)|spd_rtng(0)|shoot_speed(0)|max_ammo(0)|accuracy(0)|shield_width(0)|shield_height(0)|horse_scale(0)|horse_speed(0)|horse_maneuver(0)|food_quality(0)|abundance(1)|thrust_damage(80, 0)|swing_damage(50, 0), imodbits_none, [], [fac_kingdom_1]],

复制代码

单数填名字，复数填介绍，模型里填旗帜或者徽章等东西，难度是等级，其他还有一些秩与乱、善与恶的倾向以及权力架构，这些的填法看注释。最后那个阵营写的就是这个派系的“文化”或者“背景”或者“性质”，比如我这个“国家骑士团”是“普威尔联合王国”治下“普威尔ZY”这个贵族派系下的“王冠骑士团”下的一个执行部队，其所属就是联合王国kingdom_1，在界面中显示的阵营颜色与兵种会由它决定。
       然后要设置所属的话，就用script_set_faction_affiliation。注意这个脚本后面要接四个数据，第一个是成员，第二个是这个成员的性质，0是阵营（item），1是npc。第三个是它要加入的，第四个是加入后的地位，0是普通成员，1是支柱，2是首领。
       最后招募一下人员，我这里预计会给各种小势力都来一个兵种树，但是领主我甚至都还没出完装，要做的事还有很多虽然出装和写兵种树也很有意思，两三年前我还能一杯茶一根棒棒糖，对着电脑坐一下午玩骑砍暖暖，但自打能搓新功能和新剧情后，骑砍暖暖是越来越没有吸引力了。中文站有很多擅长魔球的汽油，也有很多喜爱捏新兵种画兵种树的，不知道有没有人能有闲心来帮哥们我这个忙。
       有意向者加QQ群号344394142。

阳光肥宅

代码量过去庞大来自: Android客户端

huagao

都学不会还敢叫开源！来自: Android客户端

黑暗路西法

欧内的手，好汉

战争傀儡阿格兰

这代码量。。。6666666666666