[OSP][КОД] Система страхования в Warband

Проработав 5 лет в страховой индустрии, я решил создать нечто вроде страховой системы в Warband. Вы можете застраховать своё снаряжение через страхового брокера в крупных городах. Страховка обойдётся вам в 5% от общей стоимости вашего снаряжения. Вы можете получить выплату в случае потери снаряжения после боя. Если вы попытаетесь обмануть систему (извлечь предмет из инвентаря и продать его в других городах), ваш обман будет преследоваться по закону.…
Как это работает:

1. Вы приходите к брокеру через меню города и платите взнос.

2. Ваши вещи страхуются. Если вы проиграете битву и ваши вещи заберут (потеряются), система это обнаружит и начислит вам компенсацию, равную их стоимости. Забрать ее можно будет у того же брокера.

3. Анти-абуз (защита от мошенничества): Если вы застраховали вещи, а затем сняли их, положили в сундук или продали, система распознает это как страховое мошенничество! Ваша страховка будет аннулирована, а вас занесут в черный список брокера на 20 игровых дней.

Установка

Установка предельно простая, понадобится изменить всего два файла вашей модульной системы: `module_game_menus.py` и `module_simple_triggers.py`.

Шаг 1: module_game_menus.py

Найдите меню

Код: [Выделить]

"total_defeat"

. В блоке операций этого меню, прямо перед

Код: [Выделить]

(play_track, "track_captured", 1),

добавьте следующую строку:

Код: (python) [Выделить]

 (store_current_hours, "$g_insurance_last_defeat_time"),

Шаг 2: module_game_menus.py

Найдите меню

Код: [Выделить]

"town"

. В список опций города (например, перед опцией

Код: [Выделить]

"town_enterprise"

или любой другой) добавьте визит к брокеру:

Код: (python) [Выделить]

 ("town_insurance",

 [

 (party_slot_eq,"$current_town",slot_party_type, spt_town),

 (this_or_next|eq,"$entry_to_town_forbidden",0),

 (eq, "$sneaked_into_town",1),

 ],

 "Visit the Insurance Broker.",

 [

 (jump_to_menu, "mnu_insurance_broker"),

 ]),

Шаг 3: module_game_menus.py

Прокрутите файл в самый конец. Прямо перед самой последней закрывающей скобкой

Код: [Выделить]

]

вставьте код самого меню брокера:

Код: (python) [Выделить]

 ("insurance_broker", 0, 

 "You enter the dimly lit office of the local insurance broker. {s1}",

 "none",

 [

 (store_current_hours, ":cur_time"),

 (try_begin),

 (gt, "$g_insurance_blacklist_until", ":cur_time"),

 (store_sub, ":hours_left", "$g_insurance_blacklist_until", ":cur_time"),

 (store_div, ":days_left", ":hours_left", 24),

 (assign, reg1, ":days_left"),

 (str_store_string, s1, "@The broker glares at you. 'You are blacklisted for fraud! Come back in {reg1} days.'"),

 (else_try),

 (eq, "$g_insurance_active", 1),

 (str_store_string, s1, "@'Your equipment is currently insured. We will pay out if you lose it in battle.'"),

 (try_begin),

 (gt, "$g_insurance_payout_amount", 0),

 (assign, reg1, "$g_insurance_payout_amount"),

 (str_store_string, s1, "@'Ah, I see you suffered a loss recently. I have a payout of {reg1} denars ready for you.'"),

 (try_end),

 (else_try),

 (str_store_string, s1, "@'Welcome. I can insure your currently equipped items for 5 percent of their value.'"),

 (try_end),

 ],

 [

 ("insurance_payout", 

 [

 (gt, "$g_insurance_payout_amount", 0),

 ],

 "Claim payout.",

 [

 (troop_add_gold, "trp_player", "$g_insurance_payout_amount"),

 (display_message, "@You received your insurance payout.", 0x00FF00),

 (assign, "$g_insurance_payout_amount", 0),

 (jump_to_menu, "mnu_insurance_broker"),

 ]),

 ("insurance_buy",

 [

 (eq, "$g_insurance_active", 0),

 (store_current_hours, ":cur_time"),

 (le, "$g_insurance_blacklist_until", ":cur_time"),

 (assign, ":total_value", 0),

 (try_for_range, ":i", 0, 9),

 (troop_get_inventory_slot, ":item", "trp_player", ":i"),

 (try_begin),

 (gt, ":item", -1),

 (store_item_value, ":base_value", ":item"),

 (val_add, ":total_value", ":base_value"),

 (try_end),

 (try_end),

 (store_mul, " :p remium", ":total_value", 5),

 (val_div, " :p remium", 100),

 (assign, reg1, " :p remium"),

 (gt, " :p remium", 0),

 ],

 "Insure current equipment ({reg1} denars).",

 [

 (assign, ":total_value", 0),

 (try_for_range, ":i", 0, 9),

 (troop_get_inventory_slot, ":item", "trp_player", ":i"),

 (try_begin),

 (gt, ":item", -1),

 (store_item_value, ":base_value", ":item"),

 (val_add, ":total_value", ":base_value"),

 (try_end),

 (try_end),

 (store_mul, " :p remium", ":total_value", 5),

 (val_div, " :p remium", 100),

 (store_troop_gold, ":gold", "trp_player"),

 (try_begin),

 (ge, ":gold", " :p remium"),

 (troop_remove_gold, "trp_player", " :p remium"),

 (assign, "$g_insurance_active", 1),

 (assign, "$g_insurance_payout_amount", 0),

 (display_message, "@Equipment insured.", 0x00FF00),

 (try_for_range, ":i", 0, 9),

 (troop_get_inventory_slot, ":item", "trp_player", ":i"),

 (try_begin),

 (gt, ":item", -1),

 (troop_get_inventory_slot_modifier, ":mod", "trp_player", ":i"),

 (store_item_value, ":base_value", ":item"),

 (store_add, ":item_slot", 170, ":i"),

 (store_add, ":mod_slot", 179, ":i"),

 (store_add, ":val_slot", 188, ":i"),

 (troop_set_slot, "trp_player", ":item_slot", ":item"),

 (troop_set_slot, "trp_player", ":mod_slot", ":mod"),

 (troop_set_slot, "trp_player", ":val_slot", ":base_value"),

 (else_try),

 (store_add, ":item_slot", 170, ":i"),

 (troop_set_slot, "trp_player", ":item_slot", -1),

 (try_end),

 (try_end),

 (jump_to_menu, "mnu_insurance_broker"),

 (else_try),

 (display_message, "@Not enough money.", 0xFF0000),

 (try_end),

 ]),

 ("insurance_cancel",

 [

 (eq, "$g_insurance_active", 1),

 ],

 "Cancel insurance.",

 [

 (assign, "$g_insurance_active", 0),

 (display_message, "@Insurance cancelled.", 0xFFFF00),

 (jump_to_menu, "mnu_insurance_broker"),

 ]),

 ("insurance_leave", [], "Leave.",

 [

 (jump_to_menu, "mnu_town"),

 ]),

 ]

 ),

Шаг 4: module_simple_triggers.py

Откройте файл

Код: [Выделить]

module_simple_triggers.py

и прокрутите в самый низ. Перед последней закрывающей скобкой

Код: [Выделить]

]

вставьте триггер, который отслеживает инвентарь на наличие "страхового мошенничества" и начисляет выплату при потере:

Код: (python) [Выделить]

 (1,

 [

 (eq, "$g_insurance_active", 1),

 (assign, ":fraud_detected", 0),

 (store_current_hours, ":cur_time"),

 (try_for_range, ":i", 0, 9),

 (store_add, ":item_slot", 170, ":i"),

 (store_add, ":mod_slot", 179, ":i"),

 (store_add, ":val_slot", 188, ":i"),

 (troop_get_slot, ":insured_item", "trp_player", ":item_slot"),

 (try_begin),

 (gt, ":insured_item", -1),

 (troop_get_slot, ":insured_mod", "trp_player", ":mod_slot"),

 (troop_get_slot, ":insured_val", "trp_player", ":val_slot"),

 (assign, ":has_item", 0),

 (try_for_range, ":inv_slot", 0, 96),

 (troop_get_inventory_slot, ":inv_item", "trp_player", ":inv_slot"),

 (troop_get_inventory_slot_modifier, ":inv_mod", "trp_player", ":inv_slot"),

 (eq, ":inv_item", ":insured_item"),

 (eq, ":inv_mod", ":insured_mod"),

 (assign, ":has_item", 1),

 (try_end),

 (eq, ":has_item", 0),

 (try_begin),

 (store_sub, ":time_since_defeat", ":cur_time", "$g_insurance_last_defeat_time"),

 (lt, ":time_since_defeat", 48),

 (gt, "$g_insurance_last_defeat_time", 0),

 (val_add, "$g_insurance_payout_amount", ":insured_val"),

 (display_message, "@An insured item was lost in battle. Payout added.", 0xFFFF00),

 (troop_set_slot, "trp_player", ":item_slot", -1),

 (else_try),

 (assign, ":fraud_detected", 1),

 (try_end),

 (try_end),

 (try_end),

 (eq, ":fraud_detected", 1),

 (display_message, "@Insurance Fraud Detected! You disposed of an insured item.", 0xFF0000),

 (display_message, "@Your insurance is cancelled and you are blacklisted for 20 days.", 0xFF0000),

 (assign, "$g_insurance_active", 0),

 (assign, "$g_insurance_blacklist_until", ":cur_time"),

 (val_add, "$g_insurance_blacklist_until", 480),

 ]),

Все готово! Скомпилируйте модуль и наслаждайтесь системой.

Если у вас есть идеи по улучшению — пишите!