/*
    Make the patients moan. This is a heartbeat script, placed not on
    any of the individual patients, but rather, on some innocuous
    placeable object (rug, scorchmark, blood puddle, etc...)
    No need to make millions of heartbeat scripts =)

    WWWWolf 2003-11-09
*/

// Patient tag.
const string PATIENT = "Patient";

// NOTE: BROKEN (below code uses a brute-force approach.)
// Causes "TOO MANY INSTRUCTIONS" error.
int HowManyWithTag(string sTag) {
    object obj;
    int n = 0;

    do {
        obj = GetObjectByTag(sTag,n);
    } while (obj != OBJECT_INVALID);

    return n;
}

object RandomPatient() {
    object x;

    /* // Optimal solution
    x = GetObjectByTag(PATIENT, Random(n));
    if(x == OBJECT_INVALID)
        continue;
    */
    /* // Brute force but safe solution
    int z;
    for(z = 0; z < 10; z++) { // 10 tries
        x = GetObjectByTag(PATIENT,Random(40));
        if(x != OBJECT_INVALID)
            break;
    }
    if(x == OBJECT_INVALID)
        continue;
    */
    // Lightweight brute force solution
    x = GetObjectByTag(PATIENT,Random(40));
/*    if(x == OBJECT_INVALID)
        continue; */
    return x;
}

string RandomMoaning() {
        // Pick a random moaning
    switch(d6(1)) {
        default:
        case 1:
            return "Aaaaargh!";
            break;
        case 2:
            return "Oooooh my head!";
            break;
        case 3:
            return "Aaaaargh my legs!";
            break;
        case 4:
            return "Uuuuaaaargh! Ooh!";
            break;
        case 5:
            return "Ooooaaaargh!";
            break;
        case 6:
            return "Make this pain stop, please!";
            break;
    }
    // This is an impossible case. Just here to keep the compiler happy.
    return "This moan script sucks and WWWWolf is an idiot! AAAAaaaaAargh!";
}

void main()
{
    object x;
    int n;
    int a;
    string moan;

    // Count the patients.
    // n = HowManyWithTag(PATIENT);

    // Let's do 1d4 moaning patients
    int nmoans = d4(1);
    for(a = 0; a < nmoans; a++) {

        // Get a random patient
        x = RandomPatient();
        if(x == OBJECT_INVALID)
            continue;

        // Pick a random moaning
        moan = RandomMoaning();

        // Make the patient moan.
        // AssignCommand(x, ActionSpeakString(moan));
        AssignCommand(x, SpeakString(moan));
    }
}