void main()
{

    object tv_1 = GetObjectByTag("WP_HARPY1");
    location lDest1 = GetLocation(tv_1);
    object tv_2 = GetObjectByTag("WP_HARPY2");
    location lDest2 = GetLocation(tv_2);
    object tv_3 = GetObjectByTag("WP_HARPY3");
    location lDest3 = GetLocation(tv_3);
    {
        ActionMoveToObject(GetObjectByTag("CASTLETOSHOP"), TRUE);
        // and destroy myself
        ActionDoCommand(DestroyObject(OBJECT_SELF));
        // accept no further AI commands from this point
        SetCommandable(FALSE);

    {
            CreateObject(OBJECT_TYPE_CREATURE,"sr_harpy",lDest1,FALSE);
            CreateObject(OBJECT_TYPE_CREATURE,"sr_harpy",lDest2,FALSE);
            CreateObject(OBJECT_TYPE_CREATURE,"sr_harpy",lDest3,FALSE);

 }
}
}
