Спасибо но у меня на это ругается:
(store_script_param, ":myd", 1), # принимаем в скрипт аргументы: ":с_чем_сравниваем"
(store_script_param, ":val", 2), #":число"
(store_script_param, ":oper", 3), #":как_сравниваем"
Добавлено: 23 Сентября, 2014, 20:44
Все исправил но:
Есть ошибка(ругается на уже закрытую скобку в скрипте) Не могу его решить
("game_get_date_text",
[
(store_script_param_2, ":num_hours"),
(store_div, ":num_days", ":num_hours", 24),
(store_add, ":cur_day", ":num_days", 23),
(assign, ":cur_month", 3),
(assign, ":cur_year", 1257),
(assign, ":try_range", 99999),
(try_for_range, ":unused", 0, ":try_range"),
(try_begin),
(this_or_next|eq, ":cur_month", 1),
(this_or_next|eq, ":cur_month", 3),
(this_or_next|eq, ":cur_month", 5),
(this_or_next|eq, ":cur_month", 7),
(this_or_next|eq, ":cur_month", 8),
(this_or_next|eq, ":cur_month", 10),
(eq, ":cur_month", 12),
(assign, ":month_day_limit", 31),
(else_try),
(this_or_next|eq, ":cur_month", 4),
(this_or_next|eq, ":cur_month", 6),
(this_or_next|eq, ":cur_month", 9),
(eq, ":cur_month", 11),
(assign, ":month_day_limit", 30),
(else_try),
(try_begin),
(store_div, ":cur_year_div_4", ":cur_year", 4),
(val_mul, ":cur_year_div_4", 4),
(eq, ":cur_year_div_4", ":cur_year"),
(assign, ":month_day_limit", 29),
(else_try),
(assign, ":month_day_limit", 28),
(try_end),
(try_end),
(try_begin),
(gt, ":cur_day", ":month_day_limit"),
(val_sub, ":cur_day", ":month_day_limit"),
(val_add, ":cur_month", 1),
(try_begin),
(gt, ":cur_month", 12),
(val_sub, ":cur_month", 12),
(val_add, ":cur_year", 1),
(try_end),
(else_try),
(assign, ":try_range", 0),
(try_end),
(try_end),
(assign, reg1, ":cur_day"),
(assign, reg2, ":cur_year"),
(try_begin),
(eq, ":cur_month", 1),
(str_store_string, s1, "str_january_reg1_reg2"),
(else_try),
(eq, ":cur_month", 2),
(str_store_string, s1, "str_february_reg1_reg2"),
(else_try),
(eq, ":cur_month", 3),
(str_store_string, s1, "str_march_reg1_reg2"),
(else_try),
(eq, ":cur_month", 4),
(str_store_string, s1, "str_april_reg1_reg2"),
(else_try),
(eq, ":cur_month", 5),
(str_store_string, s1, "str_may_reg1_reg2"),
(else_try),
(eq, ":cur_month", 6),
(str_store_string, s1, "str_june_reg1_reg2"),
(else_try),
(eq, ":cur_month", 7),
(str_store_string, s1, "str_july_reg1_reg2"),
(else_try),
(eq, ":cur_month", 8),
(str_store_string, s1, "str_august_reg1_reg2"),
(else_try),
(eq, ":cur_month", 9),
(str_store_string, s1, "str_september_reg1_reg2"),
(else_try),
(eq, ":cur_month", 10),
(str_store_string, s1, "str_october_reg1_reg2"),
(else_try),
(eq, ":cur_month", 11),
(str_store_string, s1, "str_november_reg1_reg2"),
(else_try),
(eq, ":cur_month", 12),
(str_store_string, s1, "str_december_reg1_reg2"),
(try_end),
(store_script_param, ":1", 1),
(store_script_param, ":1", 2),
(store_script_param, ":1", 3),
(assign, ":rele", 0,
(try_begin),
(eq, ":oper", 1),
(try_begin),
(eq, ":myd", 1),
(eq, ":val", ":cur_year"),
(assign, ":rele", 1),
(else_try),
(eq, ":myd", 2),
(eq, ":val", ":cur_month"),
(assign, ":rele", 1),
(else_try),
(eq, ":myd", 3),
(eq, ":val", ":cur_day"),
(assign, ":rele", 1),
(try_end),
(else_try),
(eq, ":oper", 2),
(try_begin),
(eq, ":myd", 1),
(gt, ":val", ":cur_year"),
(assign, ":rele", 1),
(else_try),
(eq, ":myd", 2),
(gt, ":val", ":cur_month"),
(assign, ":rele", 1),
(else_try),
(eq, ":myd", 3),
(gt, ":val", ":cur_day"),
(assign, ":rele", 1),
(try_end),
(else_try),
(eq, ":oper", 3),
(try_begin),
(eq, ":myd", 1),
(lt, ":val", ":cur_year"),
(assign, ":rele", 1),
(else_try),
(eq, ":myd", 2),
(lt, ":val", ":cur_month"),
(assign, ":rele", 1),
(else_try),
(eq, ":myd", 3),
(lt, ":val", ":cur_day"),
(assign, ":rele", 1),
(try_end),
(try_end),
(eq, ":rele", 1),
(call_script, "script_game_get_money_text", "1", "1057", "1"),
]),
Добавлено: 23 Сентября, 2014, 20:46
Исправил с помощью вашего сайта)))
Добавлено: 23 Сентября, 2014, 20:55
Есть ошибка
ругается на cf_название скрипта
написал скрипт так
("cf_change_frac_name",
[
]),и саму фукнцию
(call_script, "script_cf_change_frac_name", ":myd", ":val", ":oper"),