自用扩展银行系统(py代码) - 骑马与砍杀中文站论坛

#银行
("bank",[],"bank",
[
(jump_to_menu, "mnu_bank"),
]),

复制代码

#银行菜单
("bank",mnf_disable_all_keys,
"Welcome to {s10} Bank. Here, you can carry out operations such as depositing, withdrawing, and taking out loans^^Your deposit：{reg1}^The amount of your quota：{reg2}^you debt：{reg3}^you gold：{reg4}",
"none",
[
(str_store_party_name, s10, "$current_town"), #获取中心名字
(party_get_slot, ":deposit", "$current_town", slot_center_deposit), #获取存款
(assign, reg1, ":deposit"), #储存存款
(assign, "$temp", ":deposit"), #储存存款
(party_get_slot, ":quota", "$current_town", slot_center_quota), #获取贷款额度
(assign, reg2, ":quota"), #储存贷款额度
(assign, "$temp_2", ":quota"), #储存贷款额度
(party_get_slot, ":debt", "$current_town", slot_center_debt), #获取债务
(assign, reg3, ":debt"), #储存债务
(assign, "$temp_3", ":debt"), #储存债务
(store_troop_gold, "$temp_4", "trp_player"),
(assign, reg4, "$temp_4"),
],
[
("deposit_1000",
[
(try_begin),
(ge, "$temp_4", 1000),
(else_try),
(disable_menu_option),
(try_end),
],"deposit 1000",
[
(troop_remove_gold, "trp_player", 1000),
(val_add, "$temp", 1000),
(party_set_slot, "$current_town", slot_center_deposit, "$temp"),
]),
("deposit_5000",
[
(try_begin),
(ge, "$temp_4", 5000),
(else_try),
(disable_menu_option),
(try_end),
],"deposit 5000",
[
(troop_remove_gold, "trp_player", 5000),
(val_add, "$temp", 5000),
(party_set_slot, "$current_town", slot_center_deposit, "$temp"),
]),
("deposit_10000",
[
(try_begin),
(ge, "$temp_4", 10000),
(else_try),
(disable_menu_option),
(try_end),
],"deposit 10000",
[
(troop_remove_gold, "trp_player", 10000),
(val_add, "$temp", 10000),
(party_set_slot, "$current_town", slot_center_deposit, "$temp"),
]),
("deposit_all",
[
(try_begin),
(ge, "$temp_4", 1),
(else_try),
(disable_menu_option),
(try_end),
],"deposit all",
[
(troop_remove_gold, "trp_player", "$temp_4"),
(val_add, "$temp", "$temp_4"),
(party_set_slot, "$current_town", slot_center_deposit, "$temp"),
]),
("draw_1000",
[
(try_begin),
(ge, "$temp", 1000),
(else_try),
(disable_menu_option),
(try_end),
],"draw 1000",
[
(troop_add_gold, "trp_player", 1000),
(val_sub, "$temp", 1000),
(party_set_slot, "$current_town", slot_center_deposit, "$temp"),
]),
("draw_5000",
[
(try_begin),
(ge, "$temp", 5000),
(else_try),
(disable_menu_option),
(try_end),
],"draw 5000",
[
(troop_add_gold, "trp_player", 5000),
(val_sub, "$temp", 5000),
(party_set_slot, "$current_town", slot_center_deposit, "$temp"),
]),
("draw_10000",
[
(try_begin),
(ge, "$temp", 10000),
(else_try),
(disable_menu_option),
(try_end),
],"draw 10000",
[
(troop_add_gold, "trp_player", 10000),
(val_sub, "$temp", 10000),
(party_set_slot, "$current_town", slot_center_deposit, "$temp"),
]),
("draw_all",
[
(try_begin),
(ge, "$temp", 1),
(else_try),
(disable_menu_option),
(try_end),
],"draw all",
[
(troop_add_gold, "trp_player", "$temp"),
(val_sub, "$temp", "$temp"),
(party_set_slot, "$current_town", slot_center_deposit, "$temp"),
]),
("loans", #贷款
[
(eq, "$temp_2", 3000), #有额度
(eq, "$temp_3", 0), #没有债务
],"loans",
[
(troop_add_gold, "trp_player", "$temp_2"),
(party_set_slot, "$current_town", slot_center_quota, 0), #额度用完
(store_div, ":lixi", "$temp_2", 5),
(val_add, "$temp_2", ":lixi"),
(party_set_slot, "$current_town", slot_center_debt, "$temp_2"), #债务3000+(3000/5)
(party_set_slot, "$current_town", slot_center_bank_debt_days, 1), #开始计算欠款周期
]),
("repay", #还款
[
(eq, "$temp_2", 0), #没有额度
(gt, "$temp_3", 0), #有债务
(ge, "$temp_4", "$temp_3"), #钱足够
],"repay",
[
(troop_remove_gold, "trp_player", "$temp_3"),
(party_set_slot, "$current_town", slot_center_quota, 3000), #恢复额度
(party_set_slot, "$current_town", slot_center_debt, 0), #债务清零
(party_set_slot, "$current_town", slot_center_bank_debt_days, 0), #欠款期限清0
]),
("back_to_town_menu",[],"leave",
[
(jump_to_menu, "mnu_city_centre"),
]),
]
),
#入城被催债菜单
("bank_collect",mnf_disable_all_keys,
"You have been ambushed {s10}",
"none",
[
(str_store_party_name, s10, "$current_town"), #获取中心名字
],
[
("continue",[],"continue",
[
(call_script, "script_cf_bank_debt_collection"),
]),
]
),
#银行催债战斗胜利
("combat_ok",mnf_disable_all_keys,
"You've won.",
"none",
[],
[
("continue",[],"continue",
[
(party_set_slot, "$current_town", slot_center_bank_collect, 0), #中心停止收债
(party_set_slot, "$current_town", slot_center_bank_grace_period_end, 7), #给玩家7天宽限期
(change_screen_map),
]),
]
),
#银行催债战斗失败
("combat_no",mnf_disable_all_keys,
"You failed {s12}",
"none",
[
(party_get_slot, ":debt", "$current_town", slot_center_debt),
(store_troop_gold, ":gold", "trp_player"),
(try_begin),
(ge, ":gold", ":debt"), #玩家钱足够还全部贷款
(troop_remove_gold, "trp_player", ":debt"), #减钱
(party_set_slot, "$current_town", slot_center_debt, 0), #清空债务
(party_set_slot, "$current_town", slot_center_quota, 3000), #恢复额度
(party_set_slot, "$current_town", slot_center_bank_grace_period_end, 0), #设置无宽限期
(party_set_slot, "$current_town", slot_center_bank_collect, 0), #中心收债停止
(party_set_slot, "$current_town", slot_center_bank_debt_days, 0), #重置贷款周期天数
(str_store_string, s12, "@beiqiangjiele"),
(else_try),
(lt, ":gold", ":debt"), #如果钱不够还贷款
(troop_remove_gold, "trp_player", ":gold"), #移除所有钱
(val_sub, ":debt" , ":gold"), #抵债
(party_set_slot, "$current_town", slot_center_debt, ":debt"), #剩余债务
(party_set_slot, "$current_town", slot_center_bank_grace_period_end, 7), #银行给你7天的宽限期
(party_set_slot, "$current_town", slot_center_bank_collect, 0), #中心收债停止
(str_store_string, s12, "@beiqiangjiele 1"),
(try_end),
],
[
("continue",[],"continue",
[
(party_set_slot, "$current_town", slot_center_bank_collect, 0),
(change_screen_map),
]),
]
),

复制代码

slot_center_bank = 404 #中心银行
slot_center_deposit = 405 #银行存款
slot_center_debt = 406 #银行债务
slot_center_quota = 407 #银行贷款额度
slot_center_bank_debt_days = 408 #欠款天数
slot_center_bank_collect = 409 #执行收债
slot_center_bank_grace_period_end = 410 #宽限期

复制代码

#银行贷款期限/利息叠加
(24,
[
(try_for_range, ":town_no", towns_begin, towns_end),
(party_get_slot, ":deposit", ":town_no", slot_center_deposit), #获取存款
(party_get_slot, ":debt", ":town_no", slot_center_debt), #获取债务
(party_get_slot, ":debt_days", ":town_no", slot_center_bank_debt_days), #获取债务期限
(party_get_slot, ":kuanxianqi", ":town_no", slot_center_bank_grace_period_end), #获取是否有宽限期
(try_begin),
(gt, ":debt", 0), #如果银行有债务
(try_begin),
(gt, ":debt_days", 0), #有债务期限
(try_begin),
(eq, ":kuanxianqi", 0), # 无宽限期
(val_add, ":debt_days", 1), # 天数+1
(else_try),
(gt, ":kuanxianqi", 0), # 有宽限
(val_sub, ":kuanxianqi", 1), # 宽限期-1
(try_end),
(val_max, ":debt_days", 0),
(val_max, ":kuanxianqi", 0),
(party_set_slot, ":town_no", slot_center_bank_debt_days, ":debt_days"), #开始累计期限
(party_set_slot, ":town_no", slot_center_bank_grace_period_end, ":kuanxianqi"), #更新宽限期
(try_end),
(party_get_slot, ":debt_days", ":town_no", slot_center_bank_debt_days), #继续获取债务期限
(party_get_slot, ":kuanxianqi", ":town_no", slot_center_bank_grace_period_end), #继续获取宽限期
(try_begin),
(eq, ":kuanxianqi", 0), #宽限期已到
(gt, ":debt_days", 30), #第31天开始每天累计5%利息
(store_mul, ":lixi", ":debt", 5),
(val_div, ":lixi", 100),
(val_add, ":debt", ":lixi"),
(party_set_slot, ":town_no", slot_center_debt, ":debt"),
(try_begin),
(party_get_slot, ":debt", ":town_no", slot_center_debt), #获取债务
(ge, ":deposit", ":debt"),
(val_sub, ":deposit", ":debt"),
(party_set_slot, ":town_no", slot_center_deposit, ":deposit"),
(party_set_slot, ":town_no", slot_center_debt, 0),
(party_set_slot, ":town_no", slot_center_quota, 3000),
(party_set_slot, ":town_no", slot_center_bank_debt_days, 0), #重置天数
(party_set_slot, ":town_no", slot_center_bank_grace_period_end, 0), #更新宽限期
(str_store_party_name_link, s2, ":town_no"),
(display_message, "@你在 {s2}银行的贷款到期了，你没有及时还款，已经从你的个人账户中扣除。", 0xFFFF2222),
(else_try),
(party_set_slot, ":town_no", slot_center_bank_collect, 1), #中心开始收债
(try_end),
(try_end),
(try_end),
(try_end),
]),

复制代码

#银行派人收债
("cf_bank_debt_collection",
[
(party_slot_ge, "$current_town", slot_center_bank_collect, 1), #中心启动了收债
(eq, "$g_defending_against_siege", 0), #中心没有被围攻
(eq, "$sneaked_into_town", 0), #未潜入
(party_get_slot, ":cur_scene", "$current_town", slot_town_center),
(modify_visitors_at_site, ":cur_scene"),
(reset_visitors),
(set_jump_mission, "mt_bank_combat"),
(set_jump_entry, 0),
(assign, ":have_hero", 0),
(try_begin),
(try_for_range, ":npc", companions_begin, companions_end),
(main_party_has_troop, ":npc"),
(val_add, ":have_hero", 1),
(set_visitor, 4, ":npc"), #队伍npc同伴从酒馆出来支援
(try_end),
(try_end),
(try_begin),
(set_visitors, 11, "trp_bank_guard", 2),
(set_visitors, 27, "trp_bank_guard", 2),
(set_visitors, 28, "trp_bank_guard", 2),
(assign, "$town_entered", 1),
(assign, "$all_doors_locked", 1),
(try_end),
(display_message, "@你遭遇了埋伏！银行派人来催收你的贷款了。", 0xFFFF2222),
(try_begin),
(gt, ":have_hero", 0),
(display_message, "@支援到了！你的同伴从酒馆里杀出来了。", 0xFFAAFFAA),
(try_end),
(jump_to_scene, ":cur_scene"),
(change_screen_mission),
]),

复制代码

#银行催收战斗
(
"bank_combat", mtf_battle_mode, -1,
"Default town visit",
[(0,mtef_scene_source|mtef_team_0, af_override_horse, aif_start_alarmed, 1, pilgrim_disguise),
(1,mtef_scene_source|mtef_team_0,0,0,1,[]),
(2,mtef_scene_source|mtef_team_0,af_override_horse,0,1,[]),
(3,mtef_scene_source|mtef_team_0,af_override_horse,0,1,[]),
(4,mtef_visitor_source|mtef_team_0, af_override_horse, aif_start_alarmed, 0, []),
(5,mtef_scene_source|mtef_team_0,af_override_horse,0,1,[]),
(6,mtef_scene_source|mtef_team_0,af_override_horse,0,1,[]),
(7,mtef_scene_source|mtef_team_0,af_override_horse,0,1,[]),
(8,mtef_scene_source,af_override_horse,0,1,[]),
(9,mtef_visitor_source,af_override_horse,0,1,[]),
(10,mtef_visitor_source,af_override_horse,0,1,[]),
(11,mtef_visitor_source,af_override_horse,aif_start_alarmed,1,[]),
(12,mtef_visitor_source,af_override_horse,0,1,[]),
(13,mtef_scene_source,0,0,1,[]),
(14,mtef_scene_source,0,0,1,[]),
(15,mtef_scene_source,0,0,1,[]),
(16,mtef_visitor_source,af_override_horse,0,1,[]),
(17,mtef_visitor_source,af_override_horse,0,1,[]),
(18,mtef_visitor_source,af_override_horse,0,1,[]),
(19,mtef_visitor_source,af_override_horse,0,1,[]),
(20,mtef_visitor_source,af_override_horse,0,1,[]),
(21,mtef_visitor_source,af_override_horse,0,1,[]),
(22,mtef_visitor_source,af_override_horse,0,1,[]),
(23,mtef_visitor_source,af_override_horse,0,1,[]),
(24,mtef_visitor_source,af_override_horse,0,1,[]),
(25,mtef_visitor_source,af_override_horse,0,1,[]),
(26,mtef_visitor_source,af_override_horse,0,1,[]),
(27,mtef_visitor_source,af_override_horse,aif_start_alarmed,1,[]),
(28,mtef_visitor_source,af_override_horse,aif_start_alarmed,1,[]),
(29,mtef_visitor_source,af_override_horse,0,1,[]),
(30,mtef_visitor_source,af_override_horse,0,1,[]),
(31,mtef_visitor_source,af_override_horse,0,1,[]),
(32,mtef_visitor_source,af_override_horse,0,1,[]),
(33,mtef_visitor_source,af_override_horse,0,1,[]),
(34,mtef_visitor_source,af_override_horse,0,1,[]),
(35,mtef_visitor_source,af_override_horse,0,1,[]),
(36,mtef_visitor_source,af_override_horse,0,1,[]),
(37,mtef_visitor_source,af_override_horse,0,1,[]),
(38,mtef_visitor_source,af_override_horse,0,1,[]),
(39,mtef_visitor_source,af_override_horse,0,1,[]),
(40,mtef_visitor_source|mtef_team_1,af_override_horse,aif_start_alarmed,1,[]),
(41,mtef_visitor_source|mtef_team_1,af_override_horse,aif_start_alarmed,1,[]),
(42,mtef_visitor_source|mtef_team_1,af_override_horse,aif_start_alarmed,1,[]),
(43,mtef_visitor_source|mtef_team_1,af_override_horse,aif_start_alarmed,1,[]),
(44,mtef_visitor_source|mtef_team_1,af_override_horse,aif_start_alarmed,1,[]),
(45,mtef_visitor_source|mtef_team_1,af_override_horse,aif_start_alarmed,1,[]),
(46,mtef_visitor_source|mtef_team_1,af_override_horse,aif_start_alarmed,1,[]),
(47,mtef_visitor_source|mtef_team_1,af_override_horse,aif_start_alarmed,1,[]),
],
[
(ti_on_agent_spawn, 0, 0, [],
[
(store_trigger_param_1, ":agent_no"),
(agent_get_troop_id, ":troop_no", ":agent_no"),
(neq, ":troop_no", "trp_player"),
(neg|is_between, ":troop_no", companions_begin, companions_end),
(agent_set_team, ":agent_no", 1),
(get_player_agent_no, ":player_agent"),
(agent_get_team, ":agent_team", ":player_agent"),
(try_begin),
(is_between, ":troop_no", companions_begin, companions_end),
(agent_set_team, ":agent_no", ":agent_team"),
(try_end),
]),
(ti_before_mission_start, 0, 0, [], [(call_script, "script_change_banners_and_chest")]),
common_inventory_not_available,
(ti_tab_pressed, 0, 0,
[
(display_message, "str_cannot_leave_now"),
], []),
(ti_on_leave_area, 0, 0,
[
(try_begin),
(eq, "$g_defending_against_siege", 0),
(assign,"$g_leave_town",1),
(try_end),
], []),
(0, 0, ti_once, [],
[
(call_script, "script_music_set_situation_with_culture", mtf_sit_ambushed),
(set_party_battle_mode),
(party_slot_eq, "$current_town", slot_party_type, spt_town),
(call_script, "script_town_init_doors", 0),
]),
(1, 4, ti_once,
[
(store_mission_timer_a,":cur_time"),
(ge, ":cur_time", 5),
(this_or_next|main_hero_fallen),
(num_active_teams_le,1)
],
[
(try_begin),
(main_hero_fallen),
(jump_to_menu, "mnu_combat_no"),
(else_try),
(jump_to_menu, "mnu_combat_ok"),
(try_end),
(finish_mission),
]),
],
),

复制代码

(try_begin),
(party_slot_ge, "$current_town", slot_center_bank_collect, 1),
(jump_to_menu, "mnu_bank_collect"),
(try_end),

复制代码

menu_bank|欢迎来到 {s10}银行，你可以在这里进行存款、取款、贷款、还款等操作，您可以每周从存款中获得 2%的利息。^本行的贷款周期为 30天，初期利率为 20%，超过期限未还款将会优先从您的存款账户扣，逾期每天累计 5%利息^^当前存款：{reg1}金币^您在本行拥有：{reg2}金币的贷款额度^您在本行的债务：{reg3}金币^您身上的现金：{reg4}金币
mno_deposit_1000|存入 1000金币。
mno_deposit_5000|存入 5000金币。
mno_deposit_10000|存入 10000金币。
mno_deposit_all|存入所有金币。
mno_draw_1000|取出 1000金币。
mno_draw_5000|取出 5000金币。
mno_draw_10000|取出 10000金币。
mno_draw_all|取出所有金币。
mno_loans|贷款。
mno_repay|还款。
menu_bank_collect|你进入了 {s10}城，在街上慢慢走着。^不知不觉间，周围的人越来越少，街道安静的出奇。^你开始觉得不对劲，总感觉有东西在暗处盯着自己。^你警觉地四处张望，手慢慢摸向武器。^下一秒，你猛地拔出武器站在原地，屏住呼吸等着周围的动静。^可街道依旧空荡没有声音，也没有人出现。^但你知道，有人在看着你 — — 也许不止一个。^你握紧武器，小心翼翼地继续往前走，每一步都踩得格外轻。
menu_combat_ok|你干掉了来收债的士兵，只留下一个活口带回消息，想用这种方式争取一点喘息的时间。果然，银行很快有了回应 — — 同意你的债务延期一周，但会给你增加额外的利息。
menu_combat_no|你被来收债的士兵狠狠揍了一顿，意识模糊中被人拖走扔在路边。^等你醒来时，发现自己躺在某个农民的猪圈里，浑身湿冷，满身泥泞和猪粪的味道。^^你的脑袋一阵阵发晕，嘴里还有血味，手脚酸软，显然已经被打得不轻，{s12}

复制代码

qstr_beiqiangjiele|你发现你的钱包被丢在一边，旁边放着一张债务已结清的证明。你打开钱包检查了一下，还好，他们只拿走了足够偿还贷款的金币。你松了口气，把钱包收好，虽然损失了不少钱，但至少还留了一些。你站起身来，整理了一下衣服，开始思考接下来该去哪里，或者该做些什么。
qstr_beiqiangjiele_1|你摇摇晃晃地站起来，发现钱包被扔在地上，打开一看里面空空如也，所有的金币都被拿走用来偿还你的贷款。身旁扔着一张宽限你债务一周的纸条。你心里一沉，感觉压力更大了。检查了一下身上的东西，确认除了钱之外没少别的，你便慢慢朝城外走去。

复制代码