… | |
… | |
911 | new_draw_info_format (NDI_UNIQUE, 0, pl, "You convince the %s to become your follower.\n", query_name (tmp)); |
911 | new_draw_info_format (NDI_UNIQUE, 0, pl, "You convince the %s to become your follower.\n", query_name (tmp)); |
912 | |
912 | |
913 | tmp->set_owner (pl); |
913 | tmp->set_owner (pl); |
914 | tmp->stats.exp = 0; |
914 | tmp->stats.exp = 0; |
915 | add_friendly_object (tmp); |
915 | add_friendly_object (tmp); |
916 | SET_FLAG (tmp, FLAG_FRIENDLY); |
|
|
917 | tmp->attack_movement = PETMOVE; |
916 | tmp->attack_movement = PETMOVE; |
918 | return calc_skill_exp (pl, tmp, skill); |
917 | return calc_skill_exp (pl, tmp, skill); |
919 | } |
918 | } |
920 | /* Charm failed. Creature may be angry now */ |
919 | /* Charm failed. Creature may be angry now */ |
921 | else if ((skill->level + ((pl->stats.Cha - 10) / 2)) < random_roll (1, 2 * tmp->level, pl, PREFER_LOW)) |
920 | else if ((skill->level + ((pl->stats.Cha - 10) / 2)) < random_roll (1, 2 * tmp->level, pl, PREFER_LOW)) |