BotGenerator

De DigiWiki.

Version actuelle en date du 3 mai 2012 à 03:54

// Bot Generator v1.1 fixed by djphil
// Bot Generator v1.0 by skidz
 
// Channel for command
// Say /32 HELP
integer mychannel = 32;
 
// Options for the random paths
integer randomPathMaxDistanceFromBase = 16;
integer randomPathNumberOfLocations = 10;
float RandomPathGroundHeight = 21.5;
integer RandomPathFlyOnly = TRUE;
integer RandomPathFinishWithHover = TRUE;
integer RandomPathLoop = TRUE;
 
// Bot Follow Options
float minDistance = 3.0;
float maxDistance = 6.0;
 
// bot random name and appearance
// replace the keys with users in your grid
// Add or remove names if you like
list whoToLookLike = ["da7e3fbe-72bf-40a7-8a26-db752ff2c41d", "4c7a7aa8-359d-43ce-82d6-55ee9ff02aba", 
                      "0b14870b-35d0-4238-8839-11d7fee7d74c", "7ad595ca-19ca-4c78-9500-38f5f082eefd"];
list BotFirstName = ["Bobby", "Mike", "Lester", "Mark", "Jeff", "Rob", "Shawn", "Steve", 
                     "Tom", "Ricky", "Sammy", "Edward", "Jason", "Mathew", "Fred", "Deejay"];
list BotLastName = ["Franklin", "Smith", "Johnson", "Spencer", "Carver", "Shepard", 
                    "Bot", "Carter", "Oller", "Flowers", "Neil", "Obama"];
 
// don't change these
list BotNameCache = [];
list botID = [];
integer listener;
list map = [];
list mapTravel = [];
integer currentBot = 0;
 
Display()
{
    integer botcount = llGetListLength(botID);
    if (llGetListLength(botID) == 0)
        llSetText("No Bots", <1.0,1.0,1.0>, 1.0);
    else
        llSetText("Bot " + (string)(currentBot + 1) + " of " + (string)botcount + "\n" + GetCurrentBotName(), <1.0,1.0,1.0>, 1.0);
}
 
DoubleCheckPos()
{
    integer botcount = llGetListLength(botID);
    if (botcount == 0) currentBot = 0;
    else if (currentBot >= botcount) currentBot = 0;
    else if (currentBot <= -1) currentBot = botcount - 1;
    Display();
}
 
string MakeRandomBot()
{
    integer firstN = randIntBetween(0, llGetListLength(BotFirstName) - 1);
    integer lastN = randIntBetween(0, llGetListLength(BotLastName) - 1);
 
    string fn = llList2String(BotFirstName,firstN);
    string ln = llList2String(BotLastName,lastN);
 
    if (llListFindList(BotNameCache, [firstN,lastN,"-"]) >= 0)
        ln += (string)llGetListLength(botID);
    BotNameCache += [firstN,lastN,"-"];
 
    botID += [botCreateBot(fn, ln, llList2String(whoToLookLike, randIntBetween(0, llGetListLength(whoToLookLike) - 1)), llGetPos() + <1,0,0>)];
    currentBot = llGetListLength(botID) - 1;
 
    return fn + " " + ln;
}
 
string GetCurrentBotName()
{
    return llList2String(BotFirstName, llList2Integer(BotNameCache, currentBot * 3)) + " " + llList2String(BotLastName, llList2Integer(BotNameCache, (currentBot * 3) + 1));
}
 
GenerateRandomPath()
{
    map = [];
    mapTravel = [];
    vector mypos = llGetPos();
    vector spot = mypos;
    integer looper = 0;
    for(; looper <= randomPathNumberOfLocations - 1; looper++)
    {
        spot = mypos;
        spot.x += randIntBetween(randomPathMaxDistanceFromBase * -1, randomPathMaxDistanceFromBase);
        spot.y += randIntBetween(randomPathMaxDistanceFromBase * -1, randomPathMaxDistanceFromBase);
        spot.z = RandomPathGroundHeight;
        if (spot.x <= 2.0) spot.x = 2.0;
        else if (spot.x >= 254.0) spot.x = 254.0;
 
        if (spot.y <= 2.0) spot.y = 2.0;
        else if (spot.y >= 254.0) spot.y = 254.0;
 
        if ((!RandomPathFlyOnly) && (randIntBetween(1, 4) >= 2))
        {
            spot.z = randIntBetween((integer)RandomPathGroundHeight, randomPathMaxDistanceFromBase + (integer)RandomPathGroundHeight);
            mapTravel += [BOT_FOLLOW_FLY];
        }
        else if (RandomPathFlyOnly)
        {
            spot.z = randIntBetween((integer)RandomPathGroundHeight + 6, randomPathMaxDistanceFromBase + (integer)RandomPathGroundHeight);
            mapTravel += [BOT_FOLLOW_FLY];
        }
        else mapTravel += [BOT_FOLLOW_WALK];
        map += [spot];
    }
    if (RandomPathFinishWithHover)
    {
        mapTravel += [BOT_FOLLOW_FLY];
        spot.z = RandomPathGroundHeight + 3;
        map += [spot];
    }
    botSetMap(llList2String(botID,currentBot), map, mapTravel, RandomPathLoop);
    map = [];
    mapTravel = [];
}
 
KillBot(integer location)
{
    DoubleCheckPos();
    llSay(0,"Killing bot " + GetCurrentBotName());
    botRemoveBot(llList2String(botID,location));
    botID = llListReplaceList(botID, [], location, location);
    BotNameCache = llListReplaceList(BotNameCache, [], location * 3, (location * 3) + 2);
    DoubleCheckPos();
}
 
integer randInt(integer n)
{
     return (integer)llFrand(n + 1);
}
 
integer randIntBetween(integer min, integer max)
{
    return min + randInt(max - min);
}
 
default
{
    state_entry()
    {
        Display();
        listener = llListen(mychannel, "", "", "");
    }
 
    touch_start(integer a)
    {
        currentBot++;
        DoubleCheckPos();
    }
 
    listen( integer channel, string name, key id, string message )
    {
        if (message == "BOTMAKE")
        {
            llSay(0, "Generating Bot");
            MakeRandomBot();
            Display();
        }
        else if (message == "BOTRANDOMMOVE")
        {
            llSay(0,"Generating random path for current for " + GetCurrentBotName());
            GenerateRandomPath();
        }
        else if (message == "BOTKILL")
        {
            KillBot(currentBot);
        }
        else if (message == "BOTKILLALL")
        {
            integer looper = 0;
            integer botcount = llGetListLength(botID);
            for(; looper <= botcount; looper++)
            {
                KillBot(0);
            }
        }
        else if (llGetSubString(message, 0, 8) == "BOTFOLLOW")
        {
            DoubleCheckPos();
            string nameOf = llGetSubString(message, 10, -1);
            llSay(0,"Bot " + GetCurrentBotName() + " will now follow " + nameOf);
            botFollowAvatar(llList2String(botID,currentBot), nameOf, maxDistance, minDistance);
        }
        else if (message == "BOTSTOPFOLLOW")
        {
            DoubleCheckPos();
            llSay(0,"Bot " + GetCurrentBotName() + " will stop following");
            botStopFollowAvatar(llList2String(botID,currentBot));
        }
        else if (message == "MAPSPOTWALK")
        {
            llSay(0, "Recording spot to walk to");
            map += [(vector)llList2String(llGetObjectDetails(id, [OBJECT_POS]), 0)];
            mapTravel += [BOT_FOLLOW_WALK];
        }
        else if (message == "MAPSPOTFLY")
        {
            llSay(0, "Recording spot to walk fly to");
            map += [(vector)llList2String(llGetObjectDetails(id, [OBJECT_POS]), 0)];
            mapTravel += [BOT_FOLLOW_FLY];
        }
        else if (message == "MAPSPOTTELEPORT")
        {
            llSay(0, "Recording spot to walk teleport to");
            map += [(vector)llList2String(llGetObjectDetails(id, [OBJECT_POS]), 0)];
            mapTravel += [BOT_FOLLOW_TELEPORT];
        }
        else if (message == "MAPCLEAR")
        {
            llSay(0, "Clearing map");
            map = [];
            mapTravel = [];
        }
        else if (message == "MAPAPPLY")
        {
            llSay(0,"Setting Map to current Bot. With " + (string)llGetListLength(map) + " positions.");
            botSetMap(llList2String(botID,currentBot), map, mapTravel, 0);
        }
        else if (message == "HELP")
        {
            llSay(0,"---------------------------------------------");
            llSay(0,"Touch to move between bots");
            llSay(0,"Commands are:");
            llSay(0,"/" + (string)mychannel + " BOTMAKE - Generates a random bot");
            llSay(0,"/" + (string)mychannel + " BOTKILL - Kills the current bot");
	    llSay(0,"/" + (string)mychannel + " BOTKILLALL - Kills all currents bots");
            llSay(0,"/" + (string)mychannel + " BOTFOLLOW USERNAME - Follows the username");
            llSay(0,"/" + (string)mychannel + " BOTSTOPFOLLOW - Stops following");
            llSay(0,"/" + (string)mychannel + " BOTRANDOMMOVE - Generates a random path to walk around");
            llSay(0,"---------------------------------------------");
            llSay(0, "You can map out where the bot should go.");
            llSay(0,"The following are map commands:");
            llSay(0,"/" + (string)mychannel + " MAPSPOTWALK - Marks your current location on the map to walk to");
            llSay(0,"/" + (string)mychannel + " MAPSPOTFLY - Marks your current location on the map to fly to");
            llSay(0,"/" + (string)mychannel + " MAPSPOTTELEPORT - Marks your current location on the map to teleport to");
            llSay(0,"/" + (string)mychannel + " MAPCLEAR - Clears the map");
            llSay(0,"/" + (string)mychannel + " MAPAPPLY - Applys the map to the current bot");
            llSay(0,"/" + (string)mychannel + " HELP - Displays help");
            llSay(0,"---------------------------------------------");
            llSay(0,"/" + (string)mychannel + " ANY MESSAGE AND THE CURRENT BOT WILL SAY IT");
 
        }
        else botSendChatMessage(llList2String(botID,currentBot), message, 0, 0);
    }
}