Pasted

import <FarFuture.ash>;
 
string[8] peopleToUseTheSkillOn;
peopleToUseTheSkillOn[0] = "cathyoak";  
peopleToUseTheSkillOn[1] = "croft"; 
peopleToUseTheSkillOn[2] = "cubeof11";
peopleToUseTheSkillOn[3] = "mai";
peopleToUseTheSkillOn[4] = "hairy";
peopleToUseTheSkillOn[5] = "hallehoopma";
peopleToUseTheSkillOn[6] = "notjim";
peopleToUseTheSkillOn[7] = "veracity";  
 
void use_time_pranks() {
    #int i;
    
    if (to_int(get_property("_timeSpinnerMinutesUsed")) <= 8) {
        FarFuture("shot");
    }
    
    sort peopleToUseTheSkillOn by random(100000);
    if (to_int(get_property("_timeSpinnerMinutesUsed")) < 9) {
        cli_execute("timespinner prank mistress of the obvious");
    }
    if (to_int(get_property("_timeSpinnerMinutesUsed")) < 10) {
        cli_execute("timespinner prank hagwench");
    }
    for i from 0 to count(peopleToUseTheSkillOn)-1 {
        if (to_int(get_property("_timeSpinnerMinutesUsed")) < 10) {
            cli_execute("timespinner prank " + peopleToUseTheSkillOn[i]);
        } else {
            return;
        }
    }
    return;
}
 
void use_smiles() {
    #int i;
    
    sort peopleToUseTheSkillOn by random(100000);
    
    if (to_int(get_property("_smilesOfMrA")) < 4) {
        use_skill(1, $skill[The Smile of Mr. A.], "mistress of the obvious");
    }
    if (to_int(get_property("_smilesOfMrA")) < 5) {
        use_skill(1, $skill[The Smile of Mr. A.], "hagwench");
    }
    
    for i from 0 to count(peopleToUseTheSkillOn)-1 {
        if (to_int(get_property("_smilesOfMrA")) < 5) {
            if (!use_skill(1, $skill[The Smile of Mr. A.], peopleToUseTheSkillOn[i])) {
                set_property("_smilesOfMrA", 5);
            }
        } else {
            return;
        }
    }
    return;
}
void main() {
    use_smiles();
    if (can_interact()) {
        use_time_pranks();
    }
}