## Increase in class
(1, 0, 0, [],
[(try_begin),
(eq, "$player_class", 1),
(ge, "$player_prestige", 50),
(eq, "$next_class", 2),
(assign, "$next_class", 3),
(val_add, "$player_class", 1),
(tutorial_box, "@Good morrow, ^^You have advanced in class! Congratulations, you may call yourself one of the Peasants now.", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 2),
(ge, "$player_prestige", 100),
(eq, "$next_class", 3),
(assign, "$next_class", 4),
(val_add, "$player_class", 1),
(tutorial_box, "@Good den, ^^You've entered the class of Labourers. Keep it up!", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 3),
(ge, "$player_prestige", 200),
(eq, "$next_class", 4),
(assign, "$next_class", 5),
(val_add, "$player_class", 1),
(tutorial_box, "@Good e'en, ^^Your efforts are rewared, you may call yourself a Journeyman now.", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 4),
(ge, "$player_prestige", 350),
(eq, "$next_class", 5),
(assign, "$next_class", 6),
(val_add, "$player_class", 1),
(tutorial_box, "@Good den, ^^You have gained respect, Craftsman! You will soon find yourself being part of the middle class.", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 5),
(ge, "$player_prestige", 600),
(eq, "$next_class", 6),
(assign, "$next_class", 7),
(val_add, "$player_class", 1),
(tutorial_box, "@Congratulations! ^^You are now part of the middle class, Citizen {playername}.", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 6),
(ge, "$player_prestige", 900),
(eq, "$next_class", 7),
(assign, "$next_class", 8),
(val_add, "$player_class", 1),
(tutorial_box, "@Good morrow, ^^You've gained more and more power and prestige. Lords keep track on you. Welcome to the Bourgeoisie!", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 7),
(ge, "$player_prestige", 1200),
(eq, "$next_class", 8),
(assign, "$next_class", 9),
(val_add, "$player_class", 1),
(tutorial_box, "@My lord, ^^You entered the upper class. Power and wealth feature this social class, consisting of ambitious people. You are now one of the Gentry!", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 8),
(ge, "$player_prestige", 1500),
(eq, "$next_class", 9),
(assign, "$next_class", 10),
(val_add, "$player_class", 1),
(tutorial_box, "@My lord, ^^You are respected powerful now. The Aristocracy welcomes you!", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 9),
(ge, "$player_prestige", 2000),
(eq, "$next_class", 10),
(is_between, "$players_kingdom", "fac_kingdom_1", "fac_kingdoms_end"),
(call_script, "script_get_culture_names"),
(assign, "$next_class", 11),
(val_add, "$player_class", 1),
(tutorial_box, "@Good eventide, my lord. ^^You must be proud of belonging to the Patriciate now. The governing elites of towns! Even the {s10} is impressed. He might grant you a noble title soon.", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 10),
(ge, "$player_prestige", 2300),
(eq, "$next_class", 11),
(is_between, "$players_kingdom", "fac_kingdom_1", "fac_kingdoms_end"),
(assign, "$next_class", 12),
(val_add, "$player_class", 1),
(call_script, "script_get_player_rank"),
(call_script, "script_get_culture_names"),
(tutorial_box, "@My noble lord, ^^The glorious {s10} has granted you a noble title. You are now a {s6}! Congratulations and be proud to belong to the nobility.", "@Advanced in Class"),
(assign, "$g_player_banner_granted", 1),
(else_try),
(eq, "$player_class", 11),
(ge, "$player_prestige", 2750),
(eq, "$next_class", 12),
(is_between, "$players_kingdom", "fac_kingdom_1", "fac_kingdoms_end"),
(assign, "$next_class", 13),
(val_add, "$player_class", 1),
(call_script, "script_get_player_rank"),
(tutorial_box, "@My noble {s6}, ^^You have been granted the honorific title of {s6}!", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 12),
(ge, "$player_prestige", 3250),
(eq, "$next_class", 13),
(is_between, "$players_kingdom", "fac_kingdom_1", "fac_kingdoms_end"),
(assign, "$next_class", 14),
(val_add, "$player_class", 1),
(call_script, "script_get_player_rank"),
(tutorial_box, "@My noble lord, ^^You are now {s6}. An old title, bringing much respect.", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 13),
(ge, "$player_prestige", 4000),
(eq, "$next_class", 14),
(is_between, "$players_kingdom", "fac_kingdom_1", "fac_kingdoms_end"),
(call_script, "script_get_culture_names"),
(assign, "$next_class", 15),
(val_add, "$player_class", 1),
(call_script, "script_get_player_rank"),
(tutorial_box, "@My noble lord, ^^His Majesty granted you the title of {s6}. Most people will bow before your greatness.", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 14),
(ge, "$player_prestige", 6000),
(eq, "$next_class", 15),
(is_between, "$players_kingdom", "fac_kingdom_1", "fac_kingdoms_end"),
(call_script, "script_get_culture_names"),
(assign, "$next_class", 16),
(val_add, "$player_class", 1),
(call_script, "script_get_player_rank"),
(tutorial_box, "@Your Grace, ^^His Majesty the {s10} granted you the title of {s6}. A serious prestigious title, which brings much power and influence!", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 15),
(ge, "$player_prestige", 8000),
(eq, "$next_class", 16),
(is_between, "$players_kingdom", "fac_kingdom_1", "fac_kingdoms_end"),
(assign, "$next_class", 17),
(val_add, "$player_class", 1),
(call_script, "script_get_player_rank"),
(tutorial_box, "@Your Grace, ^^{s6} is now your title. The {s10} must be proud of you.", "@Advanced in Class"),
(else_try),
(eq, "$player_class", 16),
(ge, "$player_prestige", 11000),
(eq, "$next_class", 17),
(is_between, "$players_kingdom", "fac_kingdom_1", "fac_kingdoms_end"),
(assign, "$next_class", 18),
(val_add, "$player_class", 1),
(call_script, "script_get_player_rank"),
(tutorial_box, "@Your Grand Grace, ^^His Majesty gives you the title of {s6}. A few have been granted this title and only the best!", "@Advanced in Class"),
(try_end),
]),