中心人口+每周人头税(py代码)

快乐风猫

重新优化了代码并解决了bug，人头税设置中心的领主每周获得中心人口同等的第纳尔，就是人头税，可以根据自己喜好更改，至于玩家的城堡如果交不上钱欠税的部分，这部分有很多种用处，所以我就不贴上来了，每周欠缴的税存在slot_town_fuzhai里，可以按照自己的想法来调用


2个新的slot

1. slot_town_renkou         = 700
   
2. slot_town_fuzhai         = 701

复制代码

3个主体脚本

1. #中心人口
   
2.   ("cf_center_renkou",
   
3.     [
   
4.       (store_script_param_1, ":center_no"),
   
5.       
   
6.       (party_get_slot, ":renkou", ":center_no", slot_town_renkou),
   
7.       (party_get_slot, ":prosperity", ":center_no", slot_town_prosperity),
   
8.       (store_div,":fanrong",":prosperity",20),
   
9.       
   
10.      (try_begin),
    
11.       (party_slot_eq, ":center_no", slot_party_type, spt_town),
    
12.       (store_random_in_range, ":shu1", 200, 500),
    
13.      (try_begin),
    
14.       (eq,":fanrong",0),
    
15.       (val_mul,":shu1",5),
    
16.       (val_sub,":renkou",":shu1"),
    
17.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
18.      (else_try),
    
19.       (eq,":fanrong",1),
    
20.       (val_mul,":shu1",3),
    
21.       (val_sub,":renkou",":shu1"),
    
22.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
23.      (else_try),
    
24.       (eq,":fanrong",2),
    
25.       (val_mul,":shu1",1),
    
26.       (val_add,":renkou",":shu1"),
    
27.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
28.      (else_try),
    
29.       (eq,":fanrong",3),
    
30.       (val_mul,":shu1",3),
    
31.       (val_add,":renkou",":shu1"),
    
32.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
33.      (else_try),
    
34.       (gt,":fanrong",3),
    
35.       (val_mul,":shu1",5),
    
36.       (val_add,":renkou",":shu1"),
    
37.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
38.      (try_end),
    
39.      (else_try),
    
40.       (party_slot_eq, ":center_no", slot_party_type, spt_castle),
    
41.       (store_random_in_range, ":shu2", 50, 100),
    
42.      (try_begin),
    
43.       (eq,":fanrong",0),
    
44.       (val_mul,":shu2",5),
    
45.       (val_sub,":renkou",":shu2"),
    
46.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
47.      (else_try),
    
48.       (eq,":fanrong",1),
    
49.       (val_mul,":shu2",3),
    
50.       (val_sub,":renkou",":shu2"),
    
51.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
52.      (else_try),
    
53.       (eq,":fanrong",2),
    
54.       (val_mul,":shu2",1),
    
55.       (val_add,":renkou",":shu2"),
    
56.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
57.      (else_try),
    
58.       (eq,":fanrong",3),
    
59.       (val_mul,":shu2",3),
    
60.       (val_add,":renkou",":shu2"),
    
61.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
62.      (else_try),
    
63.       (gt,":fanrong",3),
    
64.       (val_mul,":shu2",5),
    
65.       (val_add,":renkou",":shu2"),
    
66.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
67.      (try_end),
    
68.      (else_try),
    
69.       (party_slot_eq, ":center_no", slot_party_type, spt_village),
    
70.       (store_random_in_range, ":shu3", 10, 20),
    
71.      (try_begin),
    
72.       (eq,":fanrong",0),
    
73.       (val_mul,":shu3",5),
    
74.       (val_sub,":renkou",":shu3"),
    
75.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
76.      (else_try),
    
77.       (eq,":fanrong",1),
    
78.       (val_mul,":shu3",3),
    
79.       (val_sub,":renkou",":shu3"),
    
80.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
81.      (else_try),
    
82.       (eq,":fanrong",2),
    
83.       (val_mul,":shu3",1),
    
84.       (val_add,":renkou",":shu3"),
    
85.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
86.      (else_try),
    
87.       (eq,":fanrong",3),
    
88.       (val_mul,":shu3",3),
    
89.       (val_add,":renkou",":shu3"),
    
90.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
91.      (else_try),
    
92.       (gt,":fanrong",3),
    
93.       (val_mul,":shu3",5),
    
94.       (val_add,":renkou",":shu3"),
    
95.       (party_set_slot, ":center_no", slot_town_renkou, ":renkou"),
    
96.      (try_end),
    
97.      (try_end),
    
98.   ]),
    
99. 
    
100. 
     
101. 
     
102. #每周上交人头税
     
103.   ("cf_get_center_shui_npc",
     
104.     [
     
105.       (try_for_range, ":center_no", centers_begin, centers_end),
     
106.       (try_for_range, ":lord", active_npcs_begin, active_npcs_end),
     
107.       (party_slot_eq, ":center_no", slot_town_lord, ":lord"),
     
108.       (troop_get_slot, ":cur_wealth", ":lord", slot_troop_wealth),
     
109.       (troop_slot_eq, ":lord", slot_troop_occupation, slto_kingdom_hero),
     
110.       
     
111.       (party_get_slot, ":center_wealth", ":center_no", slot_town_wealth),#获取中心财产
     
112.       (party_get_slot, ":center_renkou", ":center_no", slot_town_renkou),#获取中心人口
     
113.       (gt,":center_wealth",0),#是有财产的
     
114.       (gt,":center_renkou",0),#是有人口的
     
115.      
     
116.      (try_begin),
     
117.       (ge,":center_wealth",":center_renkou"),#如果中心有足够的钱交税
     
118.       (val_add,":cur_wealth",":center_renkou"),
     
119.       (troop_set_slot, ":center_no", slot_troop_wealth, ":cur_wealth"),#领主获得税钱
     
120.       (val_sub,":center_wealth",":center_renkou"),
     
121.       (party_set_slot, ":center_no", slot_town_wealth, ":center_wealth"),#中心减去税钱
     
122.      (else_try),
     
123.       (lt,":center_wealth",":center_renkou"),#如果中心没有足够的钱交税
     
124.       (store_sub,":qiankuan",":center_renkou",":center_wealth"),#获取交不起的税款部分
     
125.       (val_add,":cur_wealth",":center_wealth"),
     
126.       (troop_set_slot, ":lord", slot_troop_wealth, ":cur_wealth"),#领主收走所有税
     
127.       (val_div,":qiankuan",2),
     
128.       (party_set_slot, ":center_no", slot_town_renkou, ":qiankuan"),#中心失去未交税的50％人口
     
129.       (party_set_slot, ":center_no", slot_town_wealth, 0),
     
130.      (try_end),
     
131.      (try_end),
     
132.      (try_end),
     
133.   ]),
     
134. 
     
135. 
     
136. 
     
137. #每周上交人头税
     
138.   ("cf_get_center_shui",
     
139.     [
     
140.       (try_for_range, ":center_no", centers_begin, centers_end),
     
141.       (party_slot_eq, ":center_no", slot_town_lord, "trp_player"),
     
142.       
     
143.       (party_get_slot, ":center_wealth", ":center_no", slot_town_wealth),#获取中心财产
     
144.       (party_get_slot, ":center_renkou", ":center_no", slot_town_renkou),#获取中心人口
     
145.       (party_get_slot, ":center_fuzhai", ":center_no", slot_town_fuzhai),#获取中心负债
     
146.       (gt,":center_wealth",0),#是有财产的
     
147.       (gt,":center_renkou",0),#是有人口的
     
148.      
     
149.      (try_begin),
     
150.       (ge,":center_wealth",":center_renkou"),#如果中心有足够的钱交税
     
151.       (troop_add_gold,"trp_player",":center_renkou"),
     
152.       (val_sub,":center_wealth",":center_renkou"),
     
153.       (party_set_slot, ":center_no", slot_town_wealth, ":center_wealth"),
     
154.       (str_store_party_name_link,s10,":center_no"),
     
155.       (assign,reg1,":center_renkou"),
     
156.       (display_message,"@{s10}上 交 了 {reg1}的 税 款 。",0xFFAAFFAA),
     
157.      (else_try),
     
158.       (lt,":center_wealth",":center_renkou"),#如果中心的钱不够交税
     
159.       (store_sub,":qiankuan",":center_renkou",":center_wealth"),#获取交不起的税款部分
     
160.       (troop_add_gold,"trp_player",":center_wealth"),#玩家收走中心所有的钱
     
161.       (val_add,":center_fuzhai",":qiankuan"),#开始累计欠税
     
162.       (party_set_slot, ":center_no", slot_town_fuzhai, ":center_fuzhai"),
     
163.       (party_set_slot, ":center_no", slot_town_wealth, 0),
     
164.       (assign,reg1,":qiankuan"),
     
165.       (assign,reg2,":center_wealth"),
     
166.       (assign,reg3,":center_fuzhai"),
     
167.       (str_store_party_name_link,s10,":center_no"),
     
168.       (display_message,"@{s10}上 交 了 {reg2}的 税 款 ，还 剩 余 {reg1}的 税 款 未 交 ，{s10}现 在 已 经 累 计 拖 欠 了 {reg3}的 税 款 。",0xFFFF0000),
     
169.      (try_end),
     
170.      (try_end),
     
171.   ]),

复制代码

2个简单触发器，给中心额外收入是我自己测试用的

1. #中心每周额外收入
   
2.   (24*7,
   
3.    [
   
4.      (try_for_range, ":centers", centers_begin, centers_end),
   
5.      (party_get_slot, ":cur_wealth", ":centers", slot_town_wealth),
   
6.      (party_get_slot, ":prosperity", ":centers", slot_town_prosperity),
   
7.      (val_mul,":prosperity",10),
   
8.      (val_add,":cur_wealth",":prosperity"),
   
9.      (party_set_slot, ":centers", slot_town_wealth, ":cur_wealth"),
   
10.     (try_end),
    
11.     ]),
    
12. 
    
13. #中心每周更新人口+上人头税
    
14.   (24*7,
    
15.    [
    
16.      (try_for_range, ":centers", centers_begin, centers_end),
    
17.      (call_script, "script_cf_center_renkou", ":centers"),
    
18.     (try_end),
    
19.    
    
20.      (call_script, "script_cf_get_center_shui_npc"),
    
21.      (call_script, "script_cf_get_center_shui"),
    
22.     ]),

复制代码

1个查看状况的脚本，加在game_context_menu_get_buttons最下面

1. (try_begin),
   
2.        (is_between, ":party_no", centers_begin, centers_end),
   
3.        (party_get_slot, ":center_renkou", ":party_no", slot_town_renkou),
   
4.        (assign,reg1,":center_renkou"),
   
5.        (context_menu_add_item, "@常 住 人 口 : {reg1}"),
   
6.      (try_end),
   
7.      
   
8.      (try_begin),
   
9.        (is_between, ":party_no", centers_begin, centers_end),
   
10.        (party_get_slot, ":center_fuzhai", ":party_no", slot_town_fuzhai),
    
11.        (gt,":center_fuzhai",1),
    
12.        (assign,reg2,":center_fuzhai"),
    
13.        (context_menu_add_item, "@未 缴 税 款 : {reg2}"),
    
14.      (try_end),

复制代码

快乐风猫

修改了一下 原先的全局变量废除，改成一个新的slot，忘了全局变量不能分配，已经在顶楼更新了

狼骑舞者

请问，是战团吗？还是骑砍2？

快乐风猫

狼骑舞者 发表于 2024-3-20 14:33
请问，是战团吗？还是骑砍2？

是战团的代码

815208129

吃惊小爱莉

大佬我拿去用了，十分感谢

快乐风猫

吃惊小爱莉 发表于 2024-4-21 18:36
大佬我拿去用了，十分感谢

这个东西可能有些缺陷，新的代码没贴上来