NWScript:

//barmaid v1.1 - ericksoa, based on work by Rhodan.

//if you enhance this, and its useful, please post new version to nwn.bioware.com.  Thanx.

//also, it would be nice if you give credit to contributing authors as well :) 

//some behaviour consts

//drinking age switches

int NOMINORS_USE_DRINKING_AGE = FALSE;

int NOMINORS_DRINKING_AGE_HUMAN = 21;

int NOMINORS_DRINKING_AGE_ELF = 100;

int NOMINORS_DRINKING_AGE_HALFELF = 50;

int NOMINORS_DRINKING_AGE_GNOME = 50;

int NOMINORS_DRINKING_AGE_HALFLING = 50;

int NOMINORS_DRINKING_AGE_DWARF = 50;

int NOMINORS_DRINKING_AGE_HALFORC = 21;

string NOMINORS_GREETING = "Ah, what a cutie.  You know you are not old enough to drink the hard stuff now.";

//race service switches

int SERVE_HUMAN = TRUE;

int SERVE_ELF = TRUE;

int SERVE_HALFELF = TRUE;

int SERVE_GNOME = TRUE;

int SERVE_HALFLING = TRUE;

int SERVE_DWARF = TRUE;

int SERVE_HALFORC = FALSE;

string NO_SERVICE_RACE = "Sorry, this inn does not serve your race.  Begone!";

//reputation based service

int SERVE_ALL_REPUTATIONS = FALSE;

int REPUTATION_THRESHOLD = 30;

string NO_SERVICE_REPUTATION = "Please make yourself scarce.  You are not welcome here";

//sexual attraction switches

int WILL_FLIRT = TRUE; //determines whether barmaid/master will flirt w/customers

int ISA_HOMO = FALSE; //needs no explanation

int FLIRT_THRESHOLD1 = 15; //mild level flirting

int FLIRT_THRESHOLD2 = 18; //"wanna meet later tonight" - "meet me upstairs later" - "here's a key"

string FLIRT_HELLO1_1 = "Hello cutie :)   What can I do you for?";

string FLIRT_HELLO1_2 = "Nice to have you today.  Can I get you anything ::wink::?";

string FLIRT_HELLO1_3 = "It is my pleasure to serve you!  What would you like (besides me)?";

string FLIRT_HELLO2_1 = "Oh my god.  I have to say you are the best looking customer I have seen in these parts.  Your wish is my command.  ::whisper:: Meet me upstairs later... lets have some fun";

string FLIRT_HELLO2_2 = "I have a thing for people who look like you.  Lets meet tonight.  Can I get you a drink?";

string FLIRT_HELLO2_3 = ":::whisper::: for a good time, see me in my room tonight.  Can I get you anything?";

//repulsion switches

int WILL_BE_REPULSED = TRUE;

int REPULSION_THRESHOLD1 = 8; //ugh, can I get you a beer?

int REPULSION_THRESHOLD2 = 4; // ::barmaid throws up at the sight of you::

string REPULSED_1 = "Ugh, can I get you a drink?";

string REPULSED_2 = "Jeez, who hit you with the ugly wand.  I can see why you drink!  Let me help.";

//normal dialog

string GREETING_1 = "Is there anything I can get for you?";

string GREETING_2 = "How can I be of service?";

//available items

string ITEM1 = "Mosstone Ale";

string ITEM1_DESCRIPTION = "We have the local favorite, Mosstone Ale";

string ITEM1_TAG = "<custom item tag to be delivered>";

string ITEM2 = "Tethyrian Rum";

string ITEM2_DESCRIPTION = "If you can stand it, we also have Tethyrian Rum";

string ITEM2_TAG = "<custom item tag to be delivered>";

string ITEM3 = "Amnian Gin";

string ITEM3_DESCRIPTION = "And finally, we recommend the Amnian Gin if you are headed out adventuring";

string ITEM1_MINOR = "Milk";

string ITEM1_MINOR_DESCRIPTION = "For such a young adventurer, a nice glass of Milk";

string ITEM1_MINOR_TAG = "<custom item tag to be delivered>";

//function declarations

void main();

//object BarmaidAquireTarget(object oBarmaid, float fDistance=10.0);

//object BarmaidGetBar(object oBarmaid);

//object BarmaidGetStation(object oBarmaid);

string GetBarmaidsOrderQuery(object oBarmaid, object oTarget);

string GetBarmaidsOrderQuery(object oBarmaid, object oTarget)

{

    //based on faction/alignment/charisma/whatever, do different

    //  responses here.



    int iRace = GetRacialType(oTarget);

    int iRaceBarmaid = GetRacialType(oTarget);

    int iGender = GetGender(oTarget);

    int iBarmaidGender = GetGender(oBarmaid);

    int iRep = GetReputation(oBarmaid, oTarget);

    int iCharisma = GetAbilityScore(oTarget, ABILITY_CHARISMA);

    int iAge = GetAge(oTarget);

    int iGenderWorks = FALSE;

    if ((iGender == iBarmaidGender) && ISA_HOMO) iGenderWorks = TRUE;

    if ((iGender != iBarmaidGender) && (ISA_HOMO == FALSE)) iGenderWorks = TRUE;

    if ((SERVE_ALL_REPUTATIONS==FALSE) && (iRep < REPUTATION_THRESHOLD))

    {

        SetLocalInt(oBarmaid, "REFUSE_CURRENT_CUSTOMER", TRUE);

        return(NO_SERVICE_REPUTATION);

    }

    if ((iRace == RACIAL_TYPE_HUMAN) && (SERVE_HUMAN == FALSE))

    {

        SetLocalInt(oBarmaid, "REFUSE_CURRENT_CUSTOMER", TRUE);

        return(NO_SERVICE_RACE + "We don't serve humans.");

    }

    if ((iRace == RACIAL_TYPE_ELF) && (SERVE_ELF == FALSE))

    {

        SetLocalInt(oBarmaid, "REFUSE_CURRENT_CUSTOMER", TRUE);

        return(NO_SERVICE_RACE + "We don't serve elves.");

    }

    if ((iRace == RACIAL_TYPE_HALFELF) && (SERVE_HALFELF == FALSE))

    {

        SetLocalInt(oBarmaid, "REFUSE_CURRENT_CUSTOMER", TRUE);

        return(NO_SERVICE_RACE + "We don't serve half-elves.");

    }

    if ((iRace == RACIAL_TYPE_GNOME) && (SERVE_GNOME == FALSE))

    {

        SetLocalInt(oBarmaid, "REFUSE_CURRENT_CUSTOMER", TRUE);

        return(NO_SERVICE_RACE + "We don't serve gnomes.");

    }

    if ((iRace == RACIAL_TYPE_HALFLING) && (SERVE_HALFLING == FALSE))

    {

        SetLocalInt(oBarmaid, "REFUSE_CURRENT_CUSTOMER", TRUE);

        return(NO_SERVICE_RACE + "We don't serve halflings.");

    }

    if ((iRace == RACIAL_TYPE_DWARF) && (SERVE_DWARF == FALSE))

    {

        SetLocalInt(oBarmaid, "REFUSE_CURRENT_CUSTOMER", TRUE);

        return(NO_SERVICE_RACE + "We don't serve dwarves.");

    }

    if ((iRace == RACIAL_TYPE_HALFORC) && (SERVE_HALFORC == FALSE))

    {

        SetLocalInt(oBarmaid, "REFUSE_CURRENT_CUSTOMER", TRUE);

        return(NO_SERVICE_RACE + "We don't serve halforcs.");

    }

    if(NOMINORS_USE_DRINKING_AGE)

    {

        if ((iRace == RACIAL_TYPE_HUMAN) && (iAge < NOMINORS_DRINKING_AGE_HUMAN))

        {

            SetLocalInt(oBarmaid, "KIDMENU_CURRENT_CUSTOMER", TRUE);

            return(NOMINORS_GREETING);

        }

        if ((iRace == RACIAL_TYPE_ELF) && (iAge < NOMINORS_DRINKING_AGE_ELF))

        {

            SetLocalInt(oBarmaid, "KIDMENU_CURRENT_CUSTOMER", TRUE);

            return(NOMINORS_GREETING);

        }

        if ((iRace == RACIAL_TYPE_HALFELF) && (iAge < NOMINORS_DRINKING_AGE_HALFELF))

        {

            SetLocalInt(oBarmaid, "KIDMENU_CURRENT_CUSTOMER", TRUE);

            return(NOMINORS_GREETING);

        }

        if ((iRace == RACIAL_TYPE_GNOME) && (iAge < NOMINORS_DRINKING_AGE_GNOME))

        {

            SetLocalInt(oBarmaid, "KIDMENU_CURRENT_CUSTOMER", TRUE);

            return(NOMINORS_GREETING);

        }

        if ((iRace == RACIAL_TYPE_HALFLING) && (iAge < NOMINORS_DRINKING_AGE_HALFLING))

        {

            SetLocalInt(oBarmaid, "KIDMENU_CURRENT_CUSTOMER", TRUE);

            return(NOMINORS_GREETING);

        }

        if ((iRace == RACIAL_TYPE_DWARF) && (iAge < NOMINORS_DRINKING_AGE_DWARF))

        {

            SetLocalInt(oBarmaid, "KIDMENU_CURRENT_CUSTOMER", TRUE);

            return(NOMINORS_GREETING);

        }

        if ((iRace == RACIAL_TYPE_HALFORC) && (iAge < NOMINORS_DRINKING_AGE_HALFORC))

        {

            SetLocalInt(oBarmaid, "KIDMENU_CURRENT_CUSTOMER", TRUE);

            return(NOMINORS_GREETING);

        }

    }

    if (WILL_FLIRT && (iCharisma >= FLIRT_THRESHOLD1) && (iRace == iRaceBarmaid) && iGenderWorks)

    {

        if (WILL_FLIRT && (iCharisma >= FLIRT_THRESHOLD2) && (iRace == iRaceBarmaid) && iGenderWorks)

        {

            int iRespNum = Random(2);

            switch(iRespNum)

            {

                case 0:

                    return(FLIRT_HELLO2_1);

                    break;

                case 1:

                    return(FLIRT_HELLO2_2);

                    break;

                case 2:

                    return(FLIRT_HELLO2_3);

                    break;

            }

        }

        else

        {

            //ok, perhaps we are repulsed

            if (WILL_BE_REPULSED && (iCharisma <= REPULSION_THRESHOLD2))

            {

                 return(REPULSED_2);

            }

            else

            {

                if (WILL_BE_REPULSED && (iCharisma <= REPULSION_THRESHOLD1))

                {

                    return(REPULSED_1);

                }

            }

        }

    }

    int iGreet = Random(1);

    switch(iGreet)

    {

        case 0:

            return(GREETING_1);

        case 1:

            return(GREETING_2);

    }

    return(GREETING_1);

}

/* from failed attempt to "non-heartbeaat" this script

object BarmaidGetBar(object oBarmaid)

{

    object oBarWP = GetObjectByTag("WP_" + GetTag(oBarmaid) + "_BAR");

    return(oBarWP);

}

object BarmaidGetStation(object oBarmaid)

{

    object oBarWP = GetObjectByTag("WP_" + GetTag(oBarmaid) + "_STA");

    return(oBarWP);

}

object BarmaidAquireTarget(object oBarmaid, float fDistance=10.0)

{

    int iNth = GetLocalInt(oBarmaid, "NTH_PATRON");

    object oInvalid;

    iNth++;

    //Get this gets the iNth nearest NPC

    object oTarget = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_NOT_PC, oBarmaid, iNth);

    //SpeakString("I am looking for the " + IntToString(iNth) + " potential customer");

    //do not take orders from other barmaids

    if (GetStringLeft(GetTag(oTarget), 7) == "BARMAID")

    {

        //SpeakString("arrgh, cant serve to miself");

        //do not take orders from other barmaids

        iNth++;

        oTarget = GetNearestCreature(CREATURE_TYPE_IS_ALIVE, TRUE, oBarmaid, iNth);

    }

    //other cases like this (e.g. dont serve to the inkeep, etc.) are possible...

    //left out for simplicity the first time around

    if (GetIsObjectValid(oTarget) && (GetDistanceBetween(oBarmaid, oTarget) <= fDistance))

    {

        //SpeakString("Ahh, found a customer, the " + IntToString(iNth) + "th one");

        //iAquired = TRUE;

        //SetLocalObject(oBarmaid,"MAID_TARGET",oTarget);

        SetLocalInt(oBarmaid, "NTH_PATRON", iNth);

        return(oTarget);

                            //ActionMoveToObject(oTarget);

    }

    else

    {

        //try setting iNth back to 1, cycling

        //SpeakString("Starting from the beginning");

        iNth = 1;

        oTarget = GetNearestCreature(CREATURE_TYPE_IS_ALIVE, TRUE, oBarmaid, iNth);

        if (GetIsObjectValid(oTarget) && (GetDistanceBetween(oBarmaid, oTarget) <= fDistance))

        {

              //special case, we have cycled through all patrons

              //iAquired = TRUE;

              //SetLocalObject(OBJECT_SELF,"MAID_TARGET",oTarget);

              SetLocalInt(oBarmaid, "NTH_PATRON", iNth);

              return(oTarget);

              //ActionMoveToObject(oTarget);

        }

        else

        {

              //Ok, so there is nobody here :) 

              //SpeakString("Beer here...  beer here...");

              SetLocalInt(oBarmaid, "NTH_PATRON", 0);

              return(oInvalid);

        }

    }

    //if you got to here, you got too far!

    return(oInvalid);

}

*/

void main()

{

    // You need these outside the nEvent switch

    // So you can use the varnames in other signal events

    string sMe = GetTag(OBJECT_SELF);

    int STATUS_READY =10;

    int STATUS_BUSY=20; // do nothing-she's busy with actions

    int STATUS_FINISHED=30;

    int STAGE_AQUIRE =10; //case doesn't use vars

    int STAGE_GETORDER =20; //but put these here to

    int STAGE_WALKBAR =30; //remind you which values

    int STAGE_GETDRINK =40; //mean what

    int STAGE_DELIVERDRINK =50;

    int STAGE_GOSTATION =60;

    float BARMAID_DISTANCE_THRESHOLD=1000.0; //set this to the range you want the barmaid to work

    int IS_BARMAID_EFFICIENT = TRUE;

    object oTarget;

    object oBarWP;

    object oStaWP;

    int nEvent=GetUserDefinedEventNumber();

    switch (nEvent)

    {

        case 2005:

            //set state ready

            //SendMessageToPC(GetFirstPC(), "BARMAID - Status is ready");

            SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_READY);

            break;

        case 2006:

            //set state busy

            //SendMessageToPC(GetFirstPC(), "BARMAID - Status is busy");

            SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_BUSY);

            break;

        case 2007:

            //set state finished

            //SendMessageToPC(GetFirstPC(), "BARMAID - Status is done");

            SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_FINISHED);

            break;



        /*  if you can get this to work, w/o heartbeat, re-post!

        case 2100:

            SendMessageToPC(GetFirstPC(), "BARMAID - Aquire Target");

            //start stage 1 - Get to the next customer

            //Set busy state

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2006)));

            //Set the stage

            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_AQUIRE));

            //Find the customer

            oTarget = BarmaidAquireTarget(OBJECT_SELF, BARMAID_DISTANCE_THRESHOLD);

            //If valid customer is found?

            if (GetIsObjectValid(oTarget))

            {

                SendMessageToPC(GetFirstPC(), "BARMAID - Found customer");

                //we found a valid customer... set a flag saying we found one

                SetLocalInt(OBJECT_SELF,"FOUND_FIRST_CUSTOMER", TRUE);

                //Set the current target

                SetLocalObject(OBJECT_SELF,"MAID_TARGET",oTarget);

                //Move to the target

                ActionMoveToObject(oTarget, IS_BARMAID_EFFICIENT);

                //Face the target

                ActionDoCommand(SetFacingPoint(GetPositionFromLocation(GetLocation(oTarget))));

            }

            //Signal that we are finished once she clears her queue

            DelayCommand(4.0, SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //After signaling finished, signal that we are ready for the next phase

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2005)));

            //Start the next phase if the oTarget was valid

            if (GetIsObjectValid(oTarget))

            {

                ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2101)));

            }

            //Done and done

            break;

        case 2101:

            SendMessageToPC(GetFirstPC(), "BARMAID - Get Order");

            //start stage 2 - GetOrder

            //Set busy state

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2006)));

            //Set the stage

            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_GETORDER));

            //Start talking

            DelayCommand(4.0, ActionPlayAnimation(ANIMATION_LOOPING_TALK_NORMAL, 1.0, 2.0));

            //Say some words

            ActionDoCommand(SpeakString("Can I take your order, sir?"));

            //Signal that we are finished once she clears her queue

            DelayCommand(4.0, SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //After signaling finished, signal that we are ready for the next phase

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2005)));

            //After taking the order, start the next phase

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2102)));

            //Done and done

            break;

        case 2102:

            SendMessageToPC(GetFirstPC(), "BARMAID - Walk Bar");

            //start stage 3 - WalkBar

            //Set busy state

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2006)));

            //Set the stage

            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_WALKBAR));

            //Get the bar

            oBarWP = BarmaidGetBar(OBJECT_SELF);

            if (GetIsObjectValid(oBarWP))

            {

                ActionMoveToObject(oBarWP, IS_BARMAID_EFFICIENT);

                SendMessageToPC(GetFirstPC(), "BARMAID - Walk Bar");

            }

            else

            {

                ActionDoCommand(SpeakString("Perhaps the owner should buy a bar for this inn... and tag it WP_" + GetTag(OBJECT_SELF) + "_BAR"));

                //ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_FINISHED));

            }

            //Signal that we are finished once she clears her queue

            DelayCommand(4.0, SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //After signaling finished, signal that we are ready for the next phase

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2005)));

            //After taking the order, start the next phase

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2103)));

            //Done and done

            break;

        case 2103:

            SendMessageToPC(GetFirstPC(), "BARMAID - Get Drink");

            //start stage 4 - GetDrink

            //Set busy state

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2006)));

            //Set the stage

            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_GETDRINK));

            //Say something witty at the bar

            ActionDoCommand(SpeakString("Gimme a beer, bartender (or not)"));

            //Signal that we are finished once she clears her queue

            DelayCommand(4.0, SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //After signaling finished, signal that we are ready for the next phase

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2005)));

            //After taking the order, start the next phase

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2104)));

            //Done and done

            break;

        case 2104:

            SendMessageToPC(GetFirstPC(), "BARMAID - Deliver Drink");

            //start stage 5 - DeliverDrink

            //Set busy state

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2006)));

            //Set the stage

            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_DELIVERDRINK));

            //Get the customer

            oTarget = GetLocalObject(OBJECT_SELF, "MAID_TARGET");

            //Go to the target (dont run, you have beer)

            ActionMoveToObject(oTarget);

            //Face the target

            ActionDoCommand(SetFacingPoint(GetPositionFromLocation(GetLocation(oTarget))));

            //Play a "give stuff" animation

            ActionPlayAnimation(ANIMATION_LOOPING_GET_MID, 1.0, 2.0);

            // update to actually base the selection on what was selected...

            ActionDoCommand(SpeakString("Here's your beer."));

            //Signal that we are finished once she clears her queue

            DelayCommand(4.0, SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //After signaling finished, signal that we are ready for the next phase

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2005)));

            //After taking the order, start the next phase

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2105)));

            //Done and done

            break;

        case 2105:

            //start stage 6 - GoBackToStation

            //Set busy state

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2006)));

            //Set the stage

            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_GOSTATION));

            //Get the station

            oStaWP = BarmaidGetStation(OBJECT_SELF);

            if (GetIsObjectValid(oStaWP))

            {

                ActionMoveToObject(oStaWP, IS_BARMAID_EFFICIENT);

                SendMessageToPC(GetFirstPC(), "BARMAID - Go Station");

            }

            else

            {

                ActionDoCommand(SpeakString("Perhaps the owner should place a station for this inn... and tag it WP_" + GetTag(OBJECT_SELF) + "_STA"));

                //ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_FINISHED));

            }

            //Signal that we are finished once she clears her queue

            DelayCommand(4.0, SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2007)));

            //After signaling finished, signal that we are ready for the next phase

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2005)));

            //ClearAllActions();

            //After taking the order, start the next phase

            ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2100)));

            //Done and done

            break;

        */

        case 1001: // heartbeats

            int nStatus=GetLocalInt(OBJECT_SELF,"MAID_STATUS");

            int nStage=GetLocalInt(OBJECT_SELF,"MAID_STAGE");

            int iAquired = FALSE; //default, perhaps there is nobody to aquire

            if (nStatus==0) // Just started new module

            {

                nStatus=STATUS_READY;

                SetLocalInt(OBJECT_SELF,"MAID_STAGE",nStatus);

                nStage=STAGE_AQUIRE;

                SetLocalInt(OBJECT_SELF,"MAID_STAGE",nStage);

            }

            switch(nStage)

            {

                case 10: // STAGE_AQUIRE

                    if (nStatus==STATUS_READY)

                    {

                        SetLocalInt(OBJECT_SELF, "REFUSE_CURRENT_CUSTOMER", FALSE);

                        SetLocalInt(OBJECT_SELF, "KIDMENU_CURRENT_CUSTOMER", FALSE);

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_BUSY);

                        int iNth = GetLocalInt(OBJECT_SELF, "NTH_PATRON");

                        iNth++;

                        object oTarget = GetNearestCreature(CREATURE_TYPE_PLAYER_CHAR, PLAYER_CHAR_NOT_PC, OBJECT_SELF, iNth);

                        //SpeakString("I am looking for the " + IntToString(iNth) + " potential customer");

                        if (GetStringLeft(GetTag(oTarget), 7) == "BARMAID")

                        {

                            //SpeakString("arrgh, cant serve to miself");

                            //do not take orders from other barmaids

                            iNth++;

                            oTarget = GetNearestCreature(CREATURE_TYPE_IS_ALIVE, TRUE, OBJECT_SELF, iNth);

                        }

                        if (GetStringLeft(GetTag(oTarget), 9) == "BARTENDER")

                        {

                            //SpeakString("arrgh, cant serve to miself");

                            //do not take orders from other barmaids

                            iNth++;

                            oTarget = GetNearestCreature(CREATURE_TYPE_IS_ALIVE, TRUE, OBJECT_SELF, iNth);

                        }

                        //other cases like this (e.g. dont serve to the inkeep, etc.) are possible...

                        //left out for simplicity the first time around

                        /*

                        if (GetIsObjectValid(oTarget))

                        {

                            SpeakString("Master, object is valid");

                        }

                        else

                        {

                            SpeakString("Master, nearest object is not valid in my view");

                        }

                        */

                        if (GetIsObjectValid(oTarget) && (GetDistanceToObject(oTarget) <= BARMAID_DISTANCE_THRESHOLD))

                        {

                            //SpeakString("Ahh, found a customer, the " + IntToString(iNth) + "th one");

                            iAquired = TRUE;

                            SetLocalObject(OBJECT_SELF,"MAID_TARGET",oTarget);

                            SetLocalInt(OBJECT_SELF, "NTH_PATRON", iNth);

                            ActionForceMoveToObject(oTarget, IS_BARMAID_EFFICIENT);

                            ActionDoCommand(SetFacingPoint(GetPositionFromLocation(GetLocation(oTarget))));

                            AssignCommand(oTarget, ActionWait(5.0));

                            AssignCommand(oTarget, SetFacingPoint(GetPositionFromLocation(GetLocation(GetObjectByTag(sMe)))));

                        }

                        else

                        {

                            //try setting iNth back to 1, cycling

                            //SpeakString("Starting from the beginning");

                            iNth = 1;

                            oTarget = GetNearestCreature(CREATURE_TYPE_IS_ALIVE, TRUE, OBJECT_SELF, iNth);

                            if (GetIsObjectValid(oTarget) && (GetDistanceToObject(oTarget) <= BARMAID_DISTANCE_THRESHOLD))

                            {

                                //special case, we have cycled through all patrons

                                iAquired = TRUE;

                                SetLocalObject(OBJECT_SELF,"MAID_TARGET",oTarget);

                                SetLocalInt(OBJECT_SELF, "NTH_PATRON", iNth);

                                ActionForceMoveToObject(oTarget, IS_BARMAID_EFFICIENT);

                                ActionDoCommand(SetFacingPoint(GetPositionFromLocation(GetLocation(oTarget))));

                                AssignCommand(oTarget, ActionWait(5.0));

                                AssignCommand(oTarget, SetFacingPoint(GetPositionFromLocation(GetLocation(GetObjectByTag(sMe)))));

                            }

                            else

                            {

                                //Ok, so there is nobody here :) 

                                //SpeakString("Beer here...  beer here...");

                                SetLocalInt(OBJECT_SELF, "NTH_PATRON", 0);

                            }

                        }

                        if (iAquired)

                            // we can move to finished and start serving someone only if there is

                            // someone to serve

                            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_FINISHED));

                        else

                            //otherwise, reset to ready and try again in 6 seconds

                            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_READY));

                    }

                    if (nStatus==STATUS_FINISHED)

                    {

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_READY);

                        SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_GETORDER);

                    }

                    break;

                case 20: // STAGE_GETORDER

                    if (nStatus==STATUS_READY)

                    {

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_BUSY);

                        object oTarget = GetLocalObject(OBJECT_SELF, "MAID_TARGET");

                        //do your animations etc

                        ActionPlayAnimation(ANIMATION_LOOPING_TALK_NORMAL, 1.0, 2.0);

                        ActionDoCommand(SpeakString(GetBarmaidsOrderQuery(OBJECT_SELF, oTarget)));

                        //mention the items as appropriate

                        if (GetLocalInt(OBJECT_SELF,"REFUSE_CURRENT_CUSTOMER"))

                        {

                            //set it up as if we already delivered the drink

                            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_READY));

                            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_DELIVERDRINK));

                        }

                        else

                        {

                            //do more stuff

                            //mention the items as appropriate

                            if (GetLocalInt(OBJECT_SELF,"KIDMENU_CURRENT_CUSTOMER"))

                            {

                                ActionDoCommand(SpeakString(ITEM1_MINOR_DESCRIPTION));

                            }

                            else

                            {

                                ActionWait(3.0);

                                ActionDoCommand(SpeakString(ITEM1_DESCRIPTION));

                                ActionWait(3.0);

                                ActionDoCommand(SpeakString(ITEM2_DESCRIPTION));

                                ActionWait(3.0);

                                ActionDoCommand(SpeakString(ITEM3_DESCRIPTION));

                                ActionWait(3.0);

                                int iDrink = Random(2);

                                AssignCommand(oTarget, ActionWait(8.0));

                                switch(iDrink)

                                {

                                    case 0:

                                        AssignCommand(oTarget, DelayCommand(8.0, SpeakString("I'll have " + ITEM1)));

                                        break;

                                    case 1:

                                        AssignCommand(oTarget, DelayCommand(8.0, SpeakString("A " + ITEM2 + " sounds good!")));

                                        break;

                                    case 2:

                                        AssignCommand(oTarget, DelayCommand(8.0, SpeakString("Please bring me a " + ITEM3)));

                                        break;

                                }

                                SetLocalInt(OBJECT_SELF, "DRINK_CHOSEN", iDrink);

                                ActionWait(3.0);

                                ActionDoCommand(SpeakString("Coming right up!"));

                            }

                            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_FINISHED));

                        }

                    }

                    if (nStatus==STATUS_FINISHED)

                    {

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_READY);

                        SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_WALKBAR);

                    }

                    break;

                case 30: // STATE WALKBAR

                    if (nStatus==STATUS_READY)

                    {

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_BUSY);

                        //Get a Waypoint for going to the bar, or if "object invalid", say that there is no bar, and that

                        //  perhaps the owner of the place should buy one

                        //if you make your bar waypoint in the manner of WP_<your waitresstag>_BAR you are in good shape

                        object oBarWP = GetObjectByTag("WP_" + GetTag(OBJECT_SELF) + "_BAR");

                        if (GetIsObjectValid(oBarWP)==FALSE)

                        {

                            ActionDoCommand(SpeakString("Perhaps the owner should buy a bar for this inn... and tag it WP_" + GetTag(OBJECT_SELF) + "_BAR"));

                        }

                        else

                        {

                            ActionForceMoveToObject(oBarWP, IS_BARMAID_EFFICIENT);

                            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_FINISHED));

                        }

                    }

                    if (nStatus==STATUS_FINISHED)

                    {

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_READY);

                        SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_GETDRINK);

                    }

                    break;

                case 40: //STAGE_GETDRINK

                    if (nStatus==STATUS_READY)

                    {

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_BUSY);

                        object oTarget = GetLocalObject(OBJECT_SELF, "MAID_TARGET");

                        //do your animations etc

                        //at some point, this should do something like say "give me a <what they ordered>"

                        int iDrinkChosen = GetLocalInt(OBJECT_SELF, "DRINK_CHOSEN");

                        switch(iDrinkChosen)

                        {

                            case 0:

                                ActionDoCommand(SpeakString("Please give me a " + ITEM1));

                                break;

                            case 1:

                                ActionDoCommand(SpeakString("I need a " + ITEM2));

                                break;

                            case 2:

                                ActionDoCommand(SpeakString("Load me up with a " + ITEM3));

                                break;

                        }

                        ActionWait(2.0);

                        ActionPlayAnimation(ANIMATION_LOOPING_GET_MID, 1.0, 2.0);

                        ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_FINISHED));

                    }

                    if (nStatus==STATUS_FINISHED)

                    {

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_READY);

                        SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_DELIVERDRINK);

                    }

                    break;

                case 50: //STAGE_DELIVER_DRINK

                    if (nStatus==STATUS_READY)

                    {

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_BUSY);

                        object oTarget = GetLocalObject(OBJECT_SELF, "MAID_TARGET");

                        ActionForceMoveToObject(oTarget);

                        // update to actually base the selection on what was selected...

                        ActionPlayAnimation(ANIMATION_LOOPING_GET_MID, 1.0, 2.0);

                        int iDrinkChosen = GetLocalInt(OBJECT_SELF, "DRINK_CHOSEN");

                        switch(iDrinkChosen)

                        {

                            case 0:

                                ActionDoCommand(SpeakString("Here's your " + ITEM1));

                                break;

                            case 1:

                                ActionDoCommand(SpeakString("Enjoy your " + ITEM2));

                                break;

                            case 2:

                                ActionDoCommand(SpeakString("Your " + ITEM3 + " is ready!"));

                                break;

                        }

                        int iTargetSits = GetLocalInt(oTarget, "SITS_DOWN");

                        if (iTargetSits)

                        {

                            object oMychair = GetNearestObjectByTag("chair", oTarget);

                            AssignCommand(oTarget, DelayCommand(4.0, ActionSit(oMychair)));

                        }

                        ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_FINISHED));

                    }

                    if (nStatus==STATUS_FINISHED)

                    {

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_READY);

                        SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_GOSTATION);

                    }

                    break;

                case 60: //STAGE_GO_STATION

                    if (nStatus==STATUS_READY)

                    {

                        //Get a Waypoint for going to the station, or if "object invalid", say that there is no station, and that

                        //  perhaps the owner of the place should set one

                        //if you make your station waypoint in the manner of WP_<your waitresstag>_STA you are in good shape

                        object oStaWP = GetObjectByTag("WP_" + GetTag(OBJECT_SELF) + "_STA");

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_BUSY);

                        if (GetIsObjectValid(oStaWP)==FALSE)

                        {

                            ActionDoCommand(SpeakString("Perhaps the owner should give me a station in this inn... and tag it WP_" + GetTag(OBJECT_SELF) + "_STA"));

                        }

                        else

                        {

                            ActionForceMoveToObject(oStaWP);

                            ActionDoCommand(SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_FINISHED));

                        }

                    }

                    if (nStatus==STATUS_FINISHED)

                    {

                        SetLocalInt(OBJECT_SELF,"MAID_STATUS",STATUS_READY);

                        SetLocalInt(OBJECT_SELF,"MAID_STAGE",STAGE_AQUIRE);

                    }

                    break;

        }

        break;

   }

}

Use this on "onspawn":

NWScript:

//::///////////////////////////////////////////////

//:: Default: On Spawn In

//:: NW_C2_DEFAULT9

//:: Copyright (c) 2001 Bioware Corp.

//:://////////////////////////////////////////////

/*

    Determines the course of action to be taken

    after having just been spawned in

*/

//:://////////////////////////////////////////////

//:: Created By: Preston Watamaniuk

//:: Created On: Oct 25, 2001

//:://////////////////////////////////////////////

#include "NW_O2_CONINCLUDE"

#include "NW_I0_GENERIC"

void main()

{

// OPTIONAL BEHAVIORS (Comment In or Out to Activate ) ****************************************************************************

     //SetSpawnInCondition(NW_FLAG_SPECIAL_CONVERSATION);

     //SetSpawnInCondition(NW_FLAG_SPECIAL_COMBAT_CONVERSATION);

                // This causes the creature to say a special greeting in their conversation file

                // upon Perceiving the player. Attach the [NW_D2_GenCheck.nss] script to the desired

                // greeting in order to designate it. As the creature is actually saying this to

                // himself, don't attach any player responses to the greeting.

     //SetSpawnInCondition(NW_FLAG_SHOUT_ATTACK_MY_TARGET);

                // This will set the listening pattern on the NPC to attack when allies call

     //SetSpawnInCondition(NW_FLAG_STEALTH);

                // If the NPC has stealth and they are a rogue go into stealth mode

     //SetSpawnInCondition(NW_FLAG_SEARCH);

                // If the NPC has Search go into Search Mode

     //SetSpawnInCondition(NW_FLAG_SET_WARNINGS);

                // This will set the NPC to give a warning to non-enemies before attacking

     //SetSpawnInCondition(NW_FLAG_SLEEP);

                //Creatures that spawn in during the night will be asleep.

     //SetSpawnInCondition(NW_FLAG_DAY_NIGHT_POSTING);

     //SetSpawnInCondition(NW_FLAG_APPEAR_SPAWN_IN_ANIMATION);

     //SetSpawnInCondition(NW_FLAG_IMMOBILE_AMBIENT_ANIMATIONS);

     //SetSpawnInCondition(NW_FLAG_AMBIENT_ANIMATIONS);

                //This will play Ambient Animations until the NPC sees an enemy or is cleared.

                //NOTE that these animations will play automatically for Encounter Creatures.

    // NOTE: ONLY ONE OF THE FOLOOWING ESCAPE COMMANDS SHOULD EVER BE ACTIVATED AT ANY ONE TIME.

    //SetSpawnInCondition(NW_FLAG_ESCAPE_RETURN);    // OPTIONAL BEHAVIOR (Flee to a way point and return a short time later.)

    //SetSpawnInCondition(NW_FLAG_ESCAPE_LEAVE);     // OPTIONAL BEHAVIOR (Flee to a way point and do not return.)

    //SetSpawnInCondition(NW_FLAG_TELEPORT_LEAVE);   // OPTIONAL BEHAVIOR (Teleport to safety and do not return.)

    //SetSpawnInCondition(NW_FLAG_TELEPORT_RETURN);  // OPTIONAL BEHAVIOR (Teleport to safety and return a short time later.)

// CUSTOM USER DEFINED EVENTS

/*

    The following settings will allow the user to fire one of the blank user defined events in the NW_D2_DefaultD.  Like the

    On Spawn In script this script is meant to be customized by the end user to allow for unique behaviors.  The user defined

    events user 1000 - 1010

*/

    SetSpawnInCondition(NW_FLAG_HEARTBEAT_EVENT);        //OPTIONAL BEHAVIOR - Fire User Defined Event 1001

    //SetSpawnInCondition(NW_FLAG_PERCIEVE_EVENT);         //OPTIONAL BEHAVIOR - Fire User Defined Event 1002

    //SetSpawnInCondition(NW_FLAG_ATTACK_EVENT);           //OPTIONAL BEHAVIOR - Fire User Defined Event 1005

    //SetSpawnInCondition(NW_FLAG_DAMAGED_EVENT);          //OPTIONAL BEHAVIOR - Fire User Defined Event 1006

    //SetSpawnInCondition(NW_FLAG_DISTURBED_EVENT);        //OPTIONAL BEHAVIOR - Fire User Defined Event 1008

    //SetSpawnInCondition(NW_FLAG_END_COMBAT_ROUND_EVENT); //OPTIONAL BEHAVIOR - Fire User Defined Event 1003

    //SetSpawnInCondition(NW_FLAG_ON_DIALOGUE_EVENT);      //OPTIONAL BEHAVIOR - Fire User Defined Event 1004

    //SetSpawnInCondition(NW_FLAG_DEATH_EVENT);            //OPTIONAL BEHAVIOR - Fire User Defined Event 1007

    SetSpawnInCondition(2005); // for "barmaid is ready" event after some *** bothers her.

    SetSpawnInCondition(2006);

    SetSpawnInCondition(2007);

    //SetSpawnInCondition(2100);

    //SetSpawnInCondition(2101);

    //SetSpawnInCondition(2102);

    //SetSpawnInCondition(2103);

    //SetSpawnInCondition(2104);

    //SetSpawnInCondition(2105);

// DEFAULT GENERIC BEHAVIOR (DO NOT TOUCH) *****************************************************************************************

    SetListeningPatterns();    // Goes through and sets up which shouts the NPC will listen to.

    WalkWayPoints();           // Optional Parameter: void WalkWayPoints(int nRun = FALSE, float fPause = 1.0)

                               // 1. Looks to see if any Way Points in the module have the tag "WP_" + NPC TAG + "_0X", if so walk them

                               // 2. If the tag of the Way Point is "POST_" + NPC TAG the creature will return this way point after

                               //    combat.

    GenerateNPCTreasure();     //* Use this to create a small amount of treasure on the creature

    //DelayCommand(5.0, ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2005))));

    //ActionDoCommand(SignalEvent(OBJECT_SELF, EventUserDefined(2100)));

}

And this in the abort and end conversation events in the barmaids dialog:

NWScript:

void main()

{

    SignalEvent(OBJECT_SELF, EventUserDefined(2005));

}

And that should do it. Please excuse the cheesy dialog.