# Read books if player is resting.
(1, [(neg|map_free),
(gt, "$g_player_reading_book", 0),
(player_has_item, "$g_player_reading_book"),
(store_attribute_level, ":int", "trp_player", ca_intelligence),
(item_get_slot, ":int_req", "$g_player_reading_book", slot_item_intelligence_requirement),
(le, ":int_req", ":int"),
(item_get_slot, ":book_reading_progress", "$g_player_reading_book", slot_item_book_reading_progress),
(item_get_slot, ":book_read", "$g_player_reading_book", slot_item_book_read),
(eq, ":book_read", 0),
(val_add, ":book_reading_progress", 7),
(item_set_slot, "$g_player_reading_book", slot_item_book_reading_progress, ":book_reading_progress"),
(ge, ":book_reading_progress", 1000),
(item_set_slot, "$g_player_reading_book", slot_item_book_read, 1),
(str_store_item_name, s1, "$g_player_reading_book"),
(str_clear, s2),
(try_begin),
(eq, "$g_player_reading_book", "itm_book_tactics"),
(troop_raise_skill, "trp_player", "skl_tactics", 1),
(str_store_string, s2, "@ Your tactics skill has increased by 1."),
(else_try),
(eq, "$g_player_reading_book", "itm_book_persuasion"),
(troop_raise_skill, "trp_player", "skl_persuasion", 1),
(str_store_string, s2, "@ Your persuasion skill has increased by 1."),
(else_try),
(eq, "$g_player_reading_book", "itm_book_leadership"),
(troop_raise_skill, "trp_player", "skl_leadership", 1),
(str_store_string, s2, "@ Your leadership skill has increased by 1."),
(else_try),
(eq, "$g_player_reading_book", "itm_book_intelligence"),
(troop_raise_attribute, "trp_player", ca_intelligence, 1),
(str_store_string, s2, "@ Your intelligence has increased by 1."),
(else_try),
(eq, "$g_player_reading_book", "itm_book_trade"),
(troop_raise_skill, "trp_player", "skl_trade", 1),
(str_store_string, s2, "@ Your trade skill has increased by 1."),
(else_try),
(eq, "$g_player_reading_book", "itm_book_weapon_mastery"),
(troop_raise_skill, "trp_player", "skl_weapon_master", 1),
(str_store_string, s2, "@ Your weapon master skill has increased by 1."),
(else_try),
(eq, "$g_player_reading_book", "itm_book_engineering"),
(troop_raise_skill, "trp_player", "skl_engineer", 1),
(str_store_string, s2, "@ Your engineer skill has increased by 1."),
(try_end),
(unlock_achievement, ACHIEVEMENT_BOOK_WORM),
(try_begin),
(eq, "$g_infinite_camping", 0),
(dialog_box, "@You have finished reading {s1}.{s2}", "@Book Read"),
(try_end),
(assign, "$g_player_reading_book", 0),
]),