Делимся скриптами для МС

Dargor, Я же говорю, как раз вот так и писал "(str_store_string, s50, ":prosperity")", но в игре просто пусто там, где должно было быть написано это.
Ну не знаю какими извращениями  Я просто прописал все без лишней мороки. Зато это работает!
Leon473, Не вышло. Вместо уровня вообще название деревни пишет и сразу ошибка красная в логе вылезает.

Leon473, тогда уж так:

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

(party_get_slot,reg1, ":center_no", slot_town_prosperity),
(str_store_string, s50, "@ {reg1}%)"),
должно писать число и знак процента, но мне больше нравится, когда со словами, поэтому предлагаю совместить в универсальном варианте:

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

("get_prosperity_text_to_s50",
    [(store_script_param, ":center_no", 1),
     (party_get_slot,":prosperity", ":center_no", slot_town_prosperity),
     (val_div, ":prosperity", 20),
     (try_begin),
       (eq, ":prosperity", 0), #0..19
     (party_get_slot,reg1, ":center_no", slot_town_prosperity),(str_store_string, s50, "@Very Poor ({reg1}%)"),
     (else_try),
       (eq, ":prosperity", 1), #20..39
     (party_get_slot,reg1, ":center_no", slot_town_prosperity),(str_store_string, s50, "@Poor ({reg1}%)"),
     (else_try),
       (eq, ":prosperity", 2), #40..59
     (party_get_slot,reg1, ":center_no", slot_town_prosperity),(str_store_string, s50, "@Average ({reg1}%)"),
     (else_try),
       (eq, ":prosperity", 3), #60..79
     (party_get_slot,reg1, ":center_no", slot_town_prosperity),(str_store_string, s50, "@Rich ({reg1}%)"),
     (else_try),
     (party_get_slot,reg1, ":center_no", slot_town_prosperity),(str_store_string, s50, "@Very Rich ({reg1}%)"), #80..99
     (try_end),
     ]),
PS  если бы это была не основная презентация, где многие переменные "колхозные", то reg1 можно было бы извлекать только один раз

Dargor, а еще лучше так:

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

("get_prosperity_text_to_s50",
    [(store_script_param, ":center_no", 1),
     (party_get_slot,":prosperity", ":center_no", slot_town_prosperity),
     (val_div, ":prosperity", 20),
     (assign, reg1, ":prosperity"),
     (try_begin),
       (eq, ":prosperity", 0), #0..19
       (str_store_string, s50, "@Very Poor ({reg1}%)"),
     (else_try),
       (eq, ":prosperity", 1), #20..39
       (str_store_string, s50, "@Poor ({reg1}%)"),
     (else_try),
       (eq, ":prosperity", 2), #40..59
       (str_store_string, s50, "@Average ({reg1}%)"),
     (else_try),
       (eq, ":prosperity", 3), #60..79
       (str_store_string, s50, "@Rich ({reg1}%)"),
     (else_try),
       (str_store_string, s50, "@Very Rich ({reg1}%)"), #80..99
     (try_end),
     ]),
Что ты имеешь ввиду под извлеканием? Да и reg1 обычный регистр, с ним можно творить все что хочешь и сколько хочешь (в пределах возможного), независимо от того где его используешь.

Так было бы лучше, но что-то мне подсказывает (ковыряние с другой презентацией), что презентация запомнит этот регистр и будет применять для всех деревень, в итоге процент и у богатых и у нищих будет один и тот же. Ты пробовал в игре свой вариант?

Dargor, Ошибку выдает. Жалуется на скрипт get_prosperity_text_to_s50.
Как и раньше, сейчас вместо благополучия написано имя надела.
Leon473, точно такая же проблема и с твоим вариантом.

Не может быть. Ты, надеюсь, написал reg1, а не regl  ?
Я проверил, работает. Компилировал дважды (второй раз скобки добавлял).

Не может быть. Ты, надеюсь, написал reg1, а не regl  ?
Я проверил, работает. Компилировал дважды (второй раз скобки добавлял).

Я не писал, я вообще скопировал... Ну сейчас попробую еще раз...

Что значит, "жалуется на скрипт" ?  Может, у тебя синтакс еррор была, уточняй в следующий раз. Добавил скрины с результатами, так сказать.

Хм... Вот в тестовом модуле работает. Что-то я коряво перенес это в натив. Хотя со своим вариантом такого ни разу не было.
Перенес циферки скрипта из scripts.txt. Добавил пару строк в quick_strings.txt. Число строк поменял.
Что я упустил? До этого получалось 

Все. Сделал. Надо было еще используемые переменные в другом модуле обновить... Все работает теперь.

Так было бы лучше, но что-то мне подсказывает (ковыряние с другой презентацией), что презентация запомнит этот регистр и будет применять для всех деревень, в итоге процент и у богатых и у нищих будет один и тот же. Ты пробовал в игре свой вариант?

В игре не пробовал, но этой проблемы быть не должно, ибо скрипт обрабатывает только одну партию, и записывает ее благосостояние в reg1. Для другой партии, этот скрипт опять выполнится сначала, и опять запишет в reg1 уровень благосостояния партии.

Быть не должно, но она была, reg1 заполненный для первой партии, использовался и для всех последующих. Я же не зря написал, что можно было бы сделать проще, если бы скрипт вызывался не из презентации.

Только что проверил, как я и говорил, то этой проблемы нет, скрины:

Проблема была в том, что оно отображалось разделенное на 20, из-за невнимательности, не досмотрел саму цель того деления. Вот нормально работающий код:

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

("get_prosperity_text_to_s50",
    [(store_script_param, ":center_no", 1),
     (party_get_slot,":prosperity", ":center_no", slot_town_prosperity),
     (assign, reg1, ":prosperity"),
     (val_div, ":prosperity", 20),
     (try_begin),
       (eq, ":prosperity", 0), #0..19
       (str_store_string, s50, "@Very Poor ({reg1}%)"),
     (else_try),
       (eq, ":prosperity", 1), #20..39
       (str_store_string, s50, "@Poor ({reg1}%)"),
     (else_try),
       (eq, ":prosperity", 2), #40..59
       (str_store_string, s50, "@Average ({reg1}%)"),
     (else_try),
       (eq, ":prosperity", 3), #60..79
       (str_store_string, s50, "@Rich ({reg1}%)"),
     (else_try),
       (str_store_string, s50, "@Very Rich ({reg1}%)"), #80..99
     (try_end),
     ]),  Проверено на деле:

Да, пожалуй так или для максимального сжатия

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

(party_get_slot,reg1, ":center_no", slot_town_prosperity),
(store_div, ":prosperity", reg1, 20),
PS низзя скриптами в три ночи заниматься, низзя.

А не подскажите какой-то словарь или справочник по питону? Не обязательно для чайников. С программированием знаком, но в питоне ноль. Мои познания позволяют создавать разве что всякие извращения (несколько постов раньше XD)...

И еще важный вопрос:
Питон переводит файлы со скриптами в файлы с циферками... А как сделать обратный процесс?? Это вообще возможно?

По Питону учебников куча. По модульной системе - фактически ни одного. Мне почему-то кажется, что ты спрашивал именно о МС. Учебник по Питону же легко можно найти в Гугле.

Нет.Обратный процесс, в принципе, невозможен. То есть, имея готовый мод, полностью извлечь его исходники невозможно. Однако, вроде, где-то в Обмене опытом SithLord, кажется, писал о рубиновских скриптах, с помощью которых можно извлечь troops и items. Поищи, если хочешь.

Romitas, нет, я спрашивал именно по питону. Просто ничего хорошего не нашел. Я просто подумал, что если сначала понять питон, то с модульной системой будет куда проще. Исходник не закодирован ведь, а в открытом виде. Значит понять что там чего делает очень просто.

Жаль конечно, что нельзя обратно конвертировать... Рубиновские скрипты нашел. Но всего-то на 3 файла...
Игра ведь как-то понимает эти файлы  Она же тоже какими-то скриптами должна воспроизводится. Или циферки напрямую в процессор отправляются 

Кажется нашел альтернативу. Фича, позволяющая ставить моды без внедрения в родные файлы. Мне просто хотелось сохранить все изменения в моих файлах, а модулька все поверх старого пишет. Вот и спросил, как открыть в ней свои файлы. Но похоже нашлось другое решение.

Нет.Обратный процесс, в принципе, невозможен. То есть, имея готовый мод, полностью извлечь его исходники невозможно.

Процесс возможен. Это несложно при должном уровне понимания питона. Когда-то даже для .903 Инвиктус извратился и сделал бэктранслятор для scripts. Проблема в том, что это всё крайне муторно, и для некоторых файлов неэффективно (для mission_templates например).

Я просто подумал, что если сначала понять питон, то с модульной системой будет куда проще. Исходник не закодирован ведь, а в открытом виде. Значит понять что там чего делает очень просто.

Это заблуждение. Питон используется для трансляции МС. МС — написана на самостоятельном предметно-ориентированный язык программирования. Хорошее знание питон лишь позволит делать некоторые дополнительные трюки, несколько сокращающие объём кода. 

МС — написана на самостоятельном предметно-ориентированный язык программирования.

Ну теперь все стало понятно...

Кстати. Подскажите, как добавить к значению reg1 единицу. Ну в смысле "{reg1}+1" как написать грамотно, что бы работало?
Просто в скриптах reg1 = [0;99], а в игре удобнее, когда [1;100].
Покопавшись в скриптах, мне кажется что это делается с помощью "val_add", да?

Добавил позже:
Да, "val_add" работает.
Для себя сделал еще проще:

    [(store_script_param, ":center_no", 1),
     (party_get_slot,":prosperity", ":center_no", slot_town_prosperity),
     (try_begin),
     (party_get_slot, reg1, ":center_no", slot_town_prosperity),
     (val_add, reg1, 1),
     (str_store_string, s50, "@{reg1}%"),
     (try_end),
     ]),

Мне как раз это и нужно было.
Спасибо Leon473 и Dargor за помощь со скриптами.

И еще вопрос:
Где находятся скрипты, которые командуют выводом строк из strings.txt?
Просто в scripts.txt нашел только для quick_strings.txt.

И еще вопрос:
Где находятся скрипты, которые командуют выводом строк из strings.txt?
Просто в scripts.txt нашел только для quick_strings.txt.

Повсюду. Ищи "str_". Может быть по-разному. Но обычно схема следующая, вызвать скрипт, взять str_, запихнуть в s0, вернуться из скрипта, использовать s0.

Сделал мини скриптик.  Суть его работы, это рандомное время на мультеплеерских картах.

Ищем Строку в скриптах

(scene_set_day_time, 15),

И заменяем её на вот это

(store_random_in_range, "$day_time", 7,22),
(scene_set_day_time, "$day_time"),

То что в красном это часы, между которыми будут браться рамдомные числа. Собственно всё просто.

Не знаю, как кого, а меня всегда (и в нативе, и в модах) смущал состав армий лордов. Лорды воевали с теми же войсками, с которыми гоняли разбойников и собирали дань. И потому предлагается вниманию мододелов группа скриптов и триггеров,  обеспечивающих появление и присоединение к армиям лордов на время похода отрядов ополчения из их владений.

Скрипты. module_scripts.py

("create_war_party",
[
      (store_script_param_1, ":village_no"),

   (store_faction_of_party, ":party_faction", ":village_no"),
   (str_store_party_name, s5, ":village_no"),   
          (party_get_slot, ":party_culture", ":village_no", slot_center_original_faction),

      (faction_get_slot, ":reinforcements_a", ":party_culture", slot_faction_reinforcements_a),
      (faction_get_slot, ":reinforcements_b", ":party_culture", slot_faction_reinforcements_b),
      (faction_get_slot, ":reinforcements_c", ":party_culture", slot_faction_reinforcements_c),
        ##diplomacy begin
      (faction_get_slot, ":serfdom", ":party_faction", dplmc_slot_faction_serfdom),
      (faction_get_slot, ":aristocraty", ":party_faction", dplmc_slot_faction_aristocracy),
        ##diplomacy end



   (set_spawn_radius, 0),
   (spawn_around_party, ":village_no", "pt_kingdom_war_party"),
   (assign, ":result", reg0),
   (party_set_faction, ":result", ":party_faction"),
        (party_get_slot, ":prosperity", ":village_no", slot_town_prosperity),


####### feudals
   (assign,":limith",50),
   (val_sub, ":limith",":serfdom"),
   (val_sub, ":limith",":serfdom"), ##46-56, diplomaty only
   (try_begin),
      (ge,":prosperity",":limith"),
       (party_add_template, ":result", ":reinforcements_c"),
      (party_add_template, ":result", ":reinforcements_b"),
        (try_end),
   (assign,":limith",33),
   (val_sub, ":limith", ":aristocraty"), ## 30-36, diplomaty only
   (try_begin),
      (party_slot_eq, ":village_no", slot_party_type, spt_town),
      (store_div,":feudal_tiers",":prosperity",":limith"),
      (try_for_range,":unused",0,":feudal_tiers"),
         (party_add_template, ":result", ":reinforcements_c"),
                (try_end),
        (try_end),
####### town militas
   (assign,":limith",33),
   (val_add, ":limith",":aristocraty"),      ##30-36, diplomaty only
   (try_begin),
      (party_slot_eq, ":village_no", slot_party_type, spt_town),
      (party_add_template, ":result", ":reinforcements_b"),
      (party_add_template, ":result", ":reinforcements_b"),
      (store_div,":town_tiers",":prosperity",":limith"),
      (try_for_range,":unused",0,":town_tiers"),
         (party_add_template, ":result", ":reinforcements_b"),
         (party_add_template, ":result", ":reinforcements_b"),
         (party_add_template, ":result", ":reinforcements_b"),
                (try_end),
        (try_end),
####### village militas
        (party_add_template, ":result", ":reinforcements_a"),
        (party_add_template, ":result", ":reinforcements_a"),
        (party_add_template, ":result", ":reinforcements_a"),
   (assign,":limith",20),
   (val_add, ":limith",":serfdom"), ##17-23, diplomaty only
   (store_div,":village_tiers",":prosperity",":limith"),
   (try_for_range,":unused",0,":village_tiers"),
      (party_add_template, ":result", ":reinforcements_a"),
        (try_end),

   (assign,":limith",10),
   (val_add, ":limith",":aristocraty"),      ##7-13, diplomaty only
   (try_begin),
      (party_slot_eq, ":village_no", slot_party_type, spt_town),
      (party_add_template, ":result", ":reinforcements_a"),
      (store_div,":village_tiers",":prosperity",":limith"),
      (try_for_range,":unused",0,":village_tiers"),
           (party_add_template, ":result", ":reinforcements_a"),
                (try_end),
   (try_end),
   (store_mul, ":xp_upgrade", ":prosperity", 25),
   (try_begin),
      (party_slot_eq, ":village_no", slot_party_type, spt_town),
      (val_mul, ":xp_upgrade", 3),
   (try_end),

   (party_upgrade_with_xp, ":result", ":xp_upgrade", 0),

    (party_set_slot, ":result", slot_party_home_center, ":village_no"),
   (party_set_slot, ":village_no", slot_center_heerban_party, ":result"),

   (party_set_name, ":result", "str_s5_s_militas"),
    (assign, reg0, ":result"),
]),

  ("cf_heerban_reinforce_party",
    [
   (store_script_param_1, ":troop_no"),
   (store_script_param_2, ":party_no"),
         (ge, ":party_no", 1),
   (store_faction_of_party, ":party_faction", ":party_no"),
   (party_get_slot, ":party_type",":party_no", slot_party_type),   ## not need in normal work,
          (eq, ":party_type", spt_kingdom_hero_party),         ## ...
   (party_stack_get_troop_id, ":leader", ":party_no"),      ## ...
   (eq, ":leader", ":troop_no"),                ## ...

   (try_for_range, ":cur_center", centers_begin, centers_end),      
      (party_slot_eq, ":cur_center", slot_town_lord, ":troop_no"),
      (party_slot_eq, ":cur_center", slot_village_state, svs_normal),
      (party_slot_eq, ":cur_center", slot_village_infested_by_bandits, 0),

      (party_get_slot, ":heerb_party", ":cur_center", slot_center_heerban_party),
         (assign, ":milita_is_on",0),
        (try_begin),
         (gt, ":heerb_party", 1),
         (party_is_active, ":heerb_party"),
         (party_get_template_id, ":party_template", ":heerb_party"),
         (eq,":party_template","pt_kingdom_war_party"),   ## not need in normal work
         (assign, ":milita_is_on",1),
         (try_end),
         (eq, ":milita_is_on",0),
      (call_script, "script_create_war_party",":cur_center"),
         (assign, ":result", reg0),
      (party_set_ai_behavior, ":result", ai_bhvr_travel_to_party),
      (party_set_ai_object, ":result", ":party_no"),
   (try_end),

 ]),


("cf_heerban_deforce_party",
 [
   (store_script_param_1, ":party_no"),      ## attached_parties
   (try_for_parties, ":cur_party_no"),
            (ge, ":cur_party_no", 0),
      (party_is_active, ":cur_party_no"),

      (party_get_template_id, ":party_template", ":cur_party_no"),
      (eq,":party_template","pt_kingdom_war_party"),
      (party_get_slot, ":home_center", ":cur_party_no", slot_party_home_center),

      (try_begin),      ## if attached
               (party_get_attached_to, ":attached_party_no", ":cur_party_no"),
         (eq,":attached_party_no",":party_no"),

         (party_detach, ":cur_party_no"),

          (party_set_ai_behavior, ":cur_party_no", ai_bhvr_travel_to_party),
          (party_set_ai_object, ":cur_party_no",":home_center"),
               (else_try),      ## if going to party
         (get_party_ai_behavior, ":ai_behavior",":cur_party_no"),
         (eq, ":ai_behavior", ai_bhvr_travel_to_party),
         (get_party_ai_object, ":ai_object_party",":cur_party_no"),
         (eq,":ai_object_party",":party_no"),

          (party_set_ai_behavior, ":cur_party_no", ai_bhvr_travel_to_party),
          (party_set_ai_object, ":cur_party_no",":home_center"),
               (try_end),
            (try_end),
 ]),

Триггеры. module_simple_triggers.py


 

   (3,[
## sity in siege
        (try_for_range, ":center_no", walled_centers_begin, towns_end),
      (party_slot_eq, ":center_no", slot_village_state, svs_under_siege),
      (party_slot_eq, ":center_no", slot_party_type, spt_town),
       (party_get_slot, ":party_no", ":center_no", slot_center_heerban_party),
            (assign, ":milita_is_on",0),
                (try_begin),
                  (gt, ":party_no", 1),
            (party_is_active, ":party_no"),
            (party_get_template_id, ":party_template", ":party_no"),
            (eq,":party_template","pt_kingdom_war_party"),## not need in normal work
            (assign, ":milita_is_on",1),
                  (try_end),
            (eq, ":milita_is_on",0),
      (call_script, "script_create_war_party",":center_no"),
      (assign, ":result", reg0),
      (party_attach_to_party, ":result", ":center_no"),
      (party_set_ai_behavior, ":result", ai_bhvr_hold),
   (try_end),

            (try_for_range, ":center_no", centers_begin, centers_end),         ## remove milita from_unsieged_towns
      (neg|party_slot_eq, ":center_no", slot_village_state, svs_under_siege),
      (party_get_slot, ":party_no", ":center_no", slot_center_heerban_party),
            (ge, ":party_no", 0),
      (party_get_template_id, ":party_template", ":party_no"),
      (eq,":party_template","pt_kingdom_war_party"),
      (party_get_slot, ":home_center", ":party_no", slot_party_home_center),
      (eq,":home_center",":center_no"),
            (party_get_attached_to, ":attached_party_no", ":party_no"),
      (party_slot_eq, ":party_no", slot_party_ai_state, ai_bhvr_hold),
      (eq,":attached_party_no",":center_no"),
      (str_store_party_name, s11, ":party_no"),
#      (display_message, "@remove {s11}"),
       (remove_party, ":party_no"),
      (party_set_slot, ":center_no", slot_center_heerban_party, -1),
   (try_end),


####### HEERBAN
     (try_for_range, ":troop_no", active_npcs_begin, active_npcs_end),
        (troop_slot_eq, ":troop_no", slot_troop_occupation, slto_kingdom_hero),
        (troop_get_slot, ":party_no", ":troop_no", slot_troop_leaded_party),
        (gt, ":party_no", 1),
        (party_is_active, ":party_no"),
   (store_faction_of_party, ":party_faction", ":party_no"),
   (assign,":heerban",0),
#   (str_store_party_name, s11, ":party_no"),
   (try_begin),
#      (troop_get_slot, ":troop_ai_state", ":troop_no", slot_troop_ai_state),
#      (neq,":troop_ai_state", sfai_default),
#      (assign,":heerban",1),
   #   (display_message, "@heerban_senior pt in {s11}"),
#   (else_try),
      (faction_slot_eq, ":party_faction", slot_faction_marshall, ":troop_no"),
      (neg|faction_slot_eq, ":party_faction", slot_faction_ai_state, sfai_default),
      (neg|faction_slot_eq, ":party_faction", slot_faction_ai_state, sfai_feast),
      (assign,":heerban",1),
   #   (display_message, "@heerban_marshall pt in {s11}"),
   (else_try),
      (party_slot_eq, ":party_no", slot_party_ai_state, spai_accompanying_army),
      (party_get_slot, ":commander_party", ":party_no", slot_party_ai_object),
      (gt,":commander_party",1),
      (party_is_active, ":commander_party"),
      (party_stack_get_troop_id, ":leader", ":commander_party"),
      (try_begin),
         (faction_slot_eq, ":party_faction", slot_faction_marshall, ":leader"),
         (neg|faction_slot_eq, ":party_faction", slot_faction_ai_state, sfai_default),      
              (neg|faction_slot_eq, ":party_faction", slot_faction_ai_state, sfai_feast),

         (assign,":heerban",1),
#      (else_try),
#         (troop_get_slot, ":troop_ai_state", ":leader", slot_troop_ai_state),
#         (neq,":troop_ai_state", sfai_default),
#         (assign,":heerban",1),
      (try_end),
   (try_end),
   (try_begin),
      (eq,":heerban",1),   
      (call_script, "script_cf_heerban_reinforce_party", ":troop_no",":party_no"),
   (else_try),
      (call_script, "script_cf_heerban_deforce_party",":party_no"),
   (try_end),
     (try_end),
####### HEERBAN END

    ]),


  (0.2,         
   [
   (try_for_range,":center_no",centers_begin, centers_end),   
      (party_get_slot, ":party_no", ":center_no", slot_center_heerban_party),
            (ge, ":party_no", 0),
      (party_is_active, ":party_no"),
      (party_get_template_id, ":party_template", ":party_no"),
      (eq,":party_template","pt_kingdom_war_party"),
      (get_party_ai_behavior, ":ai_behavior",":party_no"),
      (eq, ":ai_behavior", ai_bhvr_travel_to_party),
      (get_party_ai_object, ":ai_object_party",":party_no"),
      (str_store_party_name, s11, ":party_no"),
      (try_begin),
         (gt, ":ai_object_party",0),
         (party_is_active, ":ai_object_party"),
         #(eq,":home_center",":ai_object_party"),

         (store_distance_to_party_from_party, ":min_dist", ":party_no", ":ai_object_party"),
         (try_begin),
            (le,":min_dist", 2),
            (party_set_ai_behavior, ":party_no", ai_bhvr_hold),
            (party_attach_to_party, ":party_no", ":ai_object_party"),      
         (else_try),
            (party_stack_get_troop_id, ":leader", ":ai_object_party"),
            (party_get_slot, ":home_center", ":party_no", slot_party_home_center),
            (neg|party_slot_eq, ":home_center", slot_town_lord, ":leader"),
             (party_set_ai_behavior, ":party_no", ai_bhvr_travel_to_party),
             (party_set_ai_object, ":party_no",":home_center"),
         (try_end),
      (else_try),      ## Go to home
         (party_get_slot, ":home_center", ":party_no", slot_party_home_center),
          (party_set_ai_behavior, ":party_no", ai_bhvr_travel_to_party),
          (party_set_ai_object, ":party_no",":home_center"),
      (try_end),
            (try_end),

    ]),

module_constants.py

slot_center_heerban_party   = 102

module_party_templates.py

  ("kingdom_war_party", "War Party",icon_gray_knight|pf_show_faction|carries_goods(0),0,fac_commoners,soldier_personality,[]),

module_strings.py

  ("s5_s_militas", "Milita of {s5}."),

Ну, и наконец, русификация. game_strings.csv

str_s5_s_militas|Ополчение @Pr[{s5}]

Необходимый PS: на исходной нативовской модульке не проверялось. В текстах начичествуют обращения к некоторым переменным из дипломатии (те, что заметил - отметил комментариями)

PPS: Scarecrow, спрятал.
 
Отлично. Пугало.
Добавлено: 19 Ноября, 2011, 18:42

Из мелких доработок. Лут после боя с бандитами в деревне. Ищем в module_game_menus.py меню "village_infest_bandits_result"
и добавляем выделенное:

 

(
    "village_infest_bandits_result",mnf_scale_picture,
    "{s9}",
    "none",
    [(try_begin),
       (eq, "$g_battle_result", 1),
       (jump_to_menu, "mnu_village_infestation_removed"),

     (assign, "$g_strength_contribution_of_player", 50),   
          (troop_clear_inventory, "trp_temp_troop"),
          (call_script, "script_party_calculate_loot", "p_enemy_casualties"),
          (gt, reg0, 0),         
          (troop_sort_inventory, "trp_temp_troop"),
          (change_screen_loot, "trp_temp_troop"),

     (else_try),
...

В каком смысле - пугало? Есть решение принципиально короче?
 
Добавлено: 20 Ноября, 2011, 22:41

Рад, что кому-то пригодилось.
В глубокой задумчивости.
То, что достигнуто в борьбе с "бескончными патронами" в сундуке. Одна стрела или болт всё равно болтается (иначе сам колчан норовит сгинуть).

Файл scripts.py.
ДО СКРИПТОВ.

def set_item_max_ammo():
  item_max_ammo = []
  for i_item in xrange(len(items)):
    item_max_ammo.append((item_set_slot, i_item, slot_item_max_ammo, get_max_ammo(items[i_item][6])))
  return item_max_ammo[:]

Ну, и сами скрипты

  ## script_consume_ammo
("cf_consume_ammo",
 [
   (agent_get_ammo, ":cur_ammo","$fplayer_agent_no",1),
   (agent_get_wielded_item,":wielded_item","$fplayer_agent_no"),
   (gt, ":wielded_item", itm_no_item),
       (item_get_type, ":type", ":wielded_item"),

   (try_begin),
      (eq, ":type", itp_type_bow),
      (assign,":arrows",0),
      (try_for_range, ":troop_item_slot",  ek_item_0, ek_head),    # heroes have only 4 possible weapons (equipped)
         (troop_get_inventory_slot, ":item", "trp_player", ":troop_item_slot"),
         (gt, ":item", itm_no_item),
         (item_get_type, ":weapon_type", ":item"),
              (eq, ":weapon_type", itp_type_arrows),
          (troop_inventory_slot_get_item_amount, ":cur_arrows","trp_player",":troop_item_slot"),
         (val_add,":arrows",":cur_arrows"),
      (try_end),
      (gt,":arrows",":cur_ammo"),
      (store_sub,":used_ammo", ":arrows",":cur_ammo"),
      
      (try_for_range, ":troop_item_slot",  ek_item_0, ek_head),    # heroes have only 4 possible weapons (equipped)
         (troop_get_inventory_slot, ":item", "trp_player", ":troop_item_slot"),
         (gt, ":item", itm_no_item),
         (item_get_type, ":weapon_type", ":item"),
              (eq, ":weapon_type", itp_type_arrows),
          (troop_inventory_slot_get_item_amount, ":cur_arrows","trp_player",":troop_item_slot"),
         (try_begin),
            (gt,":cur_arrows",":used_ammo"),
            (store_sub,":new_arrows",":cur_arrows",":used_ammo"),
            (assign,":used_ammo",0),
            (troop_inventory_slot_set_item_amount, "trp_player", ":troop_item_slot", ":new_arrows"),
         (else_try),
            (val_sub,":used_ammo",":cur_arrows"),
            (troop_inventory_slot_set_item_amount, "trp_player", ":troop_item_slot", 1),
         (try_end),
      (try_end),
   (try_end),

   (try_begin),
      (eq, ":type", itp_type_crossbow),
      (assign,":arrows",0),
      (try_for_range, ":troop_item_slot",  ek_item_0, ek_head),    # heroes have only 4 possible weapons (equipped)
         (troop_get_inventory_slot, ":item", "trp_player", ":troop_item_slot"),
         (gt, ":item", itm_no_item),
         (item_get_type, ":weapon_type", ":item"),
              (eq, ":weapon_type", itp_type_bolts),
          (troop_inventory_slot_get_item_amount, ":cur_arrows","trp_player",":troop_item_slot"),
         (val_add,":arrows",":cur_arrows"),
      (try_end),
      (gt,":arrows",":cur_ammo"),
      (store_sub,":used_ammo", ":arrows",":cur_ammo"),
      
      (try_for_range, ":troop_item_slot",  ek_item_0, ek_head),    # heroes have only 4 possible weapons (equipped)
         (troop_get_inventory_slot, ":item", "trp_player", ":troop_item_slot"),
         (gt, ":item", itm_no_item),
         (item_get_type, ":weapon_type", ":item"),
              (eq, ":weapon_type", itp_type_bolts),
          (troop_inventory_slot_get_item_amount, ":cur_arrows","trp_player",":troop_item_slot"),
         (try_begin),
            (gt,":cur_arrows",":used_ammo"),
            (store_sub,":new_arrows",":cur_arrows",":used_ammo"),
            (assign,":used_ammo",0),
            (troop_inventory_slot_set_item_amount, "trp_player", ":troop_item_slot", ":new_arrows"),
         (else_try),
            (val_sub,":used_ammo",":cur_arrows"),
            (troop_inventory_slot_set_item_amount, "trp_player", ":troop_item_slot", 1),
         (try_end),
      (try_end),
   (try_end),
 ]
),

  ("restore_ammo",
 [

   (troop_get_inventory_capacity, ":end_cond", "trp_player"),
   (try_for_range, ":troop_item_slot", 0, ":end_cond"),
      (troop_get_inventory_slot, ":item", "trp_player", ":troop_item_slot"),
      (gt, ":item", itm_no_item),
      (item_get_type, ":weapon_type", ":item"),
           (this_or_next|eq, ":weapon_type", itp_type_arrows),
               (eq, ":weapon_type", itp_type_bolts),
                (item_get_slot, ":max_amount", ":item", slot_item_max_ammo),
      (troop_inventory_slot_set_item_amount, "trp_player", ":troop_item_slot", ":max_amount"),
   (try_end),   
]),

  ("init_item_max_ammo", set_item_max_ammo()),

В любой из скриптов\меню, отображающих окончание битвы, вызов скрипта
   (call_script, "script_restore_ammo"),

У меня данная строка включена в скрипт "count_mission_casualties_from_agents", но это непринципиально.

mission_temlates.py,
внутрь "lead_charge" - триггер.

   (1,0,0,[],
    [
      (call_script, "script_cf_consume_ammo"),      
   ]
   ),

Триггер. module_simple_triggers.py

  (1,
   [
        (call_script, "script_init_item_max_ammo"),
    ]),

Константы. module_constants.py

slot_item_max_ammo   = 9

PS: испытывалось, опять-же, не на нативской модульке, а на основе "Дипломатии", включавшей в себя "автолут". Если её нет - то правок больше.

Ребят может кто то напишет скрипт на казнь пленника?Буду ОЧЕНЬ благодарен...

Попытаюсь вникнуть.

Кое что от Фингала:
От себя могу предложить увеличение ренты с городов и замков при наличии в них пленных. (Типо, припахать бедолаг).
Нужно всего-то добавить в module_presentations:

Сперва найти строчку:
#Enterprise ends, taxes begin

И чуть ниже вставить выделенное зелёным:
#Enterprise ends, taxes begin
(party_slot_eq, ":center_no", slot_town_lord, "trp_player"),
(party_get_slot, ":accumulated_rents", ":center_no", slot_center_accumulated_rents),
(party_get_slot, ":accumulated_tariffs", ":center_no", slot_center_accumulated_tariffs),


# +worke prisoners begin
(party_get_num_prisoners, ":accumulated_prisoners", ":center_no"),     
(store_mul, ":accumulated_prisoners_max", ":accumulated_prisoners", 50),
(store_random_in_range, ":dohod", ":accumulated_prisoners", ":accumulated_prisoners_max"),
(val_add, ":accumulated_rents", ":dohod"),
# +worke prisoners end


(store_add, ":accumulated_total", ":accumulated_rents", ":accumulated_tariffs"),

Как видно, с каждого пленного рандомно получаем от 1 до 50 дин. в неделю.
Всё таки, труд подневольный.

В дальнейшем хорошо бы добавить смертность среди пленных, чтобы постоянно требовалось их пополнение.