Difference between revisions of "User talk:Perry Mizin"

From Second Life Wiki
Jump to navigation Jump to search
 
(5 intermediate revisions by the same user not shown)
Line 56: Line 56:


THIS IS THE TRANSLATOR "mess" by now... I need to redo some things
THIS IS THE TRANSLATOR "mess" by now... I need to redo some things
'''THE CODE BELOW IS NOT TESTED'''
'''THE CODE BELOW IS WORKING AND BEING TESTED'''
 
THIS IS AN ALPHA VERSION OF THE PERRYSONAL TRANSLATOR...
NOTHING MORE TO SAY
 
Menu
<lsl>
//Mod Made in Perry Mizin
//This is the interface, or menu-system of the translator.
//Menu System
//Copyright 2006-2009 by Hank Ramos
//Variables
integer randomDialogChannel;
//Options
integer enabled = TRUE;
integer isShowTran = FALSE;
integer tranObjects = TRUE;
//Functions
showMainMenu(key id)
{
list buttonList = [];
string dialogMsg = "Options Menu.";
if (id == llGetOwner())
{
if (enabled)
{
buttonList = (buttonList=[]) + buttonList + ["Turn OFF"];
}
else
{
buttonList = (buttonList=[]) + buttonList + ["Turn ON"];
}
if (isShowTran)
{
buttonList = (buttonList=[]) + buttonList + ["Echo OFF"];
}
else
{
buttonList = (buttonList=[]) + buttonList + ["Echo ON"];
}
buttonList = (buttonList=[]) + buttonList + ["RESET"];
dialogMsg = (dialogMsg="") + dialogMsg + "\nECHO: show translations of your chat sent to others.";
if (tranObjects)
{
buttonList = (buttonList=[]) + buttonList + ["Objects OFF"];
}
else
{
buttonList = (buttonList=[]) + buttonList + ["Objects ON"];
}
dialogMsg = (dialogMsg="") + dialogMsg + "\nOBJECTS: translate chat of scripted objects";
}
llDialog(id, dialogMsg, buttonList, randomDialogChannel);
}
processListen(string name, key id, string message)
{
if (id == llGetOwner())
{
else if (message == "Turn ON")
{
enabled  = TRUE;
llMessageLinked(LINK_THIS, 8439932,"enable", id);
}
else if (message == "Turn OFF")
{
enabled  = FALSE;
llMessageLinked(LINK_THIS, 8439932,"disable", id);
}
else if (message == "Echo ON")
{
isShowTran = TRUE;
llMessageLinked(LINK_THIS, 8872932,"echon", id);
}
else if (message == "Echo OFF")
{
isShowTran = FALSE;
llMessageLinked(LINK_THIS, 8872932,"echoff", id);
}
else if (message == "Objects OFF")
{
tranObjects = FALSE;
llMessageLinked(LINK_THIS, 8439742,"objoff", id);
}
else if (message == "Objects ON")
{
tranObjects = TRUE;
llMessageLinked(LINK_THIS, 8439742,"objon", id);
}
else if (message == "RESET")
{
llResetOtherScript("agents");
llResetOtherScript("form");
llResetOtherScript("trans");
llResetOtherScript("list");
llResetOtherScript("lan");
llOwnerSay("All Scripts are Resetted now...");
llResetScript();
}
}
}
//
default
{
state_entry()
{
llOwnerSay("Welcome to the Perrysonal Translator, probably the worst FREE translator in SL!");
randomDialogChannel = (integer)llFrand(2147483647);
llMessageLinked(LINK_SET, 7563297, "XTRNSL", NULL_KEY);
//Other Setup
llListen(randomDialogChannel, "", NULL_KEY, "");
showMainMenu(llGetOwner());
}
on_rez(integer start_param)
    {
        // Reset script when the object is rezzed
        llResetScript();
    }
touch_start(integer total_number)
{
if(llDetectedKey(0) == llGetOwner())
{
showMainMenu(llGetOwner());
}
}
listen(integer channel, string name, key id, string message)
{
processListen(name,id,message);
}
}
 
 
</lsl>
 
Listener
<lsl>
// www.lsleditor.org  by Alphons van der Heijden (SL: Alphons Jano)
//(Mod made in Perry Mizin) I want to succeed with this translator... ;) call me day or night
//Universal Translator
//LSL Script copyright 2006-2009 by Hank Ramos
//Translation Web Services powered by Google
//listener
integer tranObjects = TRUE;
integer enabled = TRUE;
key restricted;
key owner;
//
default
{
state_entry()
{
owner = llGetOwner();
llListen(0,"",NULL_KEY,"");
}
    on_rez(integer start_param)
    {
        // Reset script when the object is rezzed
        llResetScript();
    }
link_message(integer sender_num, integer num, string str, key id)
{
if (num == 8439932)
{
if(str=="enable")
{
enabled = TRUE;
}
else if(str=="disable")
{
enabled = FALSE;
}
}
if (num == 8439742)
{
if(str=="objon")
{
tranObjects = TRUE;
}
else if(str=="objoff")
{
tranObjects = FALSE;
}
}
}
listen(integer channel, string name, key id, string message)
{
if(channel==PUBLIC_CHANNEL)
{
if (!enabled)
{
return;
}
if (restricted==id)
{
llSetTimerEvent(0.0);
restricted = id;
llSetTimerEvent(0.7);
return;
}
if (!tranObjects)
{
if (llGetAgentSize(id) == ZERO_VECTOR)
{
return;
}
}
if (llStringLength(message) < 12)
{
llMessageLinked(LINK_THIS,98745920,message,id);
}
else
{
llMessageLinked(LINK_THIS,7686795,message,id);
llMessageLinked(LINK_THIS,98745920,message,id);
}
llSetTimerEvent(0.7);
restricted = id;
}
}
timer()
{
restricted = NULL_KEY;
llSetTimerEvent(0.0);
}
}
 
</lsl>
 


agentsinTranslation
agentsinTranslation
Line 66: Line 292:
//LSL Script copyright 2006-2009 by Hank Ramos
//LSL Script copyright 2006-2009 by Hank Ramos
//Translation Web Services powered by Google
//Translation Web Services powered by Google
//Spell Checker Web Services powered by Yahoo
key owner;
key owner;
key speaker;
key sid;
list agentsInTranslation;
list agentsInTranslation;
integer isInitialized = FALSE;
list tmrli;
list newList;
integer listenID;
integer listenID;
integer isMaster = 1;
integer tmpavliPos;
integer autoLanguage = TRUE;
integer ownerliPos;
integer enabled = FALSE;
vector tmrVct;
string SEPARATOR = "|%&|"; // for transmitting lists via linked messages
string actlan;
 
string tmplan;
string spkLan;
string SEPARATOR = "|%&|";
string mylanguage;
string checkLanguage(string chklantmpStr)
string checkLanguage(string chklantmpStr)
{
{
    if (chklantmpStr == "")
if (chklantmpStr == "")
    {
{
        chklantmpStr = "en";
chklantmpStr = "en";
    }
}
    else if (chklantmpStr == "und")
else if (chklantmpStr == "und")
    {
{
        chklantmpStr = "el";
chklantmpStr = "el";
    }
}
    if (llGetSubString(chklantmpStr, 0, 1) == "zh")
else if (chklantmpStr == "Gh")
    {
{
        chklantmpStr = "zh-CN";
chklantmpStr = "en";
    }
}
    else
if (llGetSubString(chklantmpStr, 0, 1) == "zh")
    {
{
        chklantmpStr = llGetSubString(chklantmpStr, 0, 1);
chklantmpStr = "zh-CN";
    }
}
    return chklantmpStr;
else
{
chklantmpStr = llGetSubString(chklantmpStr, 0, 1);
}
return chklantmpStr;
}
}
addAgent(key avid, string avlan, integer chklan)
{
    integer avliPos;
    integer idNum;
    if (~llListFindList(agentsInTranslation, (list)avid))
    {
        avliPos = llListFindList(agentsInTranslation, (list)avid);
        agentsInTranslation = llListReplaceList(agentsInTranslation, [ avlan, avlan, chklan ], avliPos + 1, avliPos + 3);
    }
    else
    {
        @at;
        idNum = llRound(llFrand(2000000)) + 1;
        if(~llListFindList(agentsInTranslation, (list)idNum))
        {
            jump at;
        }
        agentsInTranslation = (agentsInTranslation=[]) + agentsInTranslation + [ avid, avlan, avlan, chklan, idNum ];        // llMessageLinked(LINK_THIS, 64562349, avlan, avid);
    }
}
string addNewAgent(key newavid)
string addNewAgent(key newavid)
{
{
    string speakerLan;
string speakerLan;
    if (llGetAgentSize(newavid) == ZERO_VECTOR)
if (llGetAgentSize(newavid) == ZERO_VECTOR)
    {
{
        speakerLan = "en";
speakerLan = "en";
        addAgent(newavid, speakerLan, 4);
}
    }
else
    else
{
    {
speakerLan  = checkLanguage(llGetAgentLanguage(newavid));
        speakerLan  = checkLanguage(llGetAgentLanguage(newavid));
if (speakerLan == "")
        if (speakerLan == "")
{
        {
speakerLan = "en";
            speakerLan = "en";
addAgent(newavid, speakerLan, 0);
            addAgent(newavid, speakerLan, 0);
}
        }
else
        else
{
        {
addAgent(newavid, speakerLan, 0);
            addAgent(newavid, speakerLan, 0);
}
        }
}
    }
return speakerLan;
    return speakerLan;
}
}
key getAgentKey(integer agentID)
key getAgentKey(integer agentID)
{
{
    if(~llListFindList(agentsInTranslation, (list)agentID))
if(~llListFindList(agentsInTranslation, (list)agentID))
    {
{
        integer gkliPos = llListFindList(agentsInTranslation, (list)agentID);
integer gkliPos = llListFindList(agentsInTranslation, (list)agentID);
        return llList2Key(agentsInTranslation, gkliPos - 4);
return llList2Key(agentsInTranslation, gkliPos - 4);
    }
}
    else
else
    {
{
        return NULL_KEY;
return NULL_KEY;
    }
}
}
string List2TypeSep(list input2) {
integer w;
list output2;
for (w = 0; w < llGetListLength(input2); w++) {
output2 += [llGetListEntryType(input2, w)] + llList2List(input2, w, w);
}
return llDumpList2String(output2, SEPARATOR);
}
}
 
list TypeSep2List(string inputstring) {
string List2TypeSep(list input) { // converts a list to a separated string with type information prepended to each item
integer v;
    integer     i;
list input;
    list       output;
list output;
 
input = llParseString2List(inputstring, [SEPARATOR], []);
    for (i = 0; i < llGetListLength(input); i++) {
for (v = 0; v < llGetListLength(input); v += 2) {
        output += [llGetListEntryType(input, i)] + llList2List(input, i, i);
if (llList2Integer(input, v) == TYPE_INTEGER) output += (integer)llList2String(input, v + 1);
    }
else if (llList2Integer(input, v) == TYPE_FLOAT) output += (float)llList2String(input, v + 1);
   
else if (llList2Integer(input, v) == TYPE_STRING) output += llList2String(input, v + 1);
    return llDumpList2String(output, SEPARATOR);
else if (llList2Integer(input, v) == TYPE_KEY) output += (key)llList2String(input, v + 1);
}
return output;
}
}
 
addAgent(key avid, string avlan, integer chklan)
list TypeSep2List(string inputstring) { // converts a separated string created with List2TypeSep back to a list with the correct type information
{
    integer     i;
integer avliPos;
    list        input;
integer idNum;
    list        output;
if (~llListFindList(agentsInTranslation, (list)avid))
   
{
    input = llParseString2List(inputstring, [SEPARATOR], []);
avliPos = llListFindList(agentsInTranslation, (list)avid);
 
agentsInTranslation = llListReplaceList(agentsInTranslation, [avlan, avlan, chklan], avliPos + 1, avliPos + 3);
    for (i = 0; i < llGetListLength(input); i += 2) {
}
        if (llList2Integer(input, i) == TYPE_INTEGER) output += (integer)llList2String(input, i + 1);
else
        else if (llList2Integer(input, i) == TYPE_FLOAT) output += (float)llList2String(input, i + 1);
{
        else if (llList2Integer(input, i) == TYPE_STRING) output += llList2String(input, i + 1);
@at;
        else if (llList2Integer(input, i) == TYPE_KEY) output += (key)llList2String(input, i + 1);
idNum = llRound(llFrand(2000000)) + 1;
    }
if(~llListFindList(agentsInTranslation, (list)idNum))
   
{
    return output;
jump at;
}
agentsInTranslation = (agentsInTranslation=[]) + agentsInTranslation + [avid, avlan, avlan, chklan, idNum];
}
}
}
 
//
default
default
{
{
    state_entry()
state_entry()
    {
{
        owner = llGetOwner();
owner = llGetOwner();
        llSetTimerEvent(1.0);
listenID = llListen(0, "", "", "");
    }
mylanguage = llGetAgentLanguage(owner);
 
if (llStringLength(mylanguage) < 1)
    link_message(integer sender_num, integer num, string lstr, key lid)
{
    {
mylanguage = "en";
        if (num == 9876754)
}
        {
if(~llListFindList(agentsInTranslation, (list)owner))
            llMessageLinked(LINK_THIS,7659759,List2TypeSep(agentsInTranslation),NULL_KEY);
{
        }
ownerliPos = llListFindList(agentsInTranslation, (list)owner);
        if (num == 6349160)
agentsInTranslation = llListReplaceList(agentsInTranslation, [mylanguage] , ownerliPos + 1, ownerliPos + 1);
        {
}
 
else
            key speaker;
{
            string spkLan;
agentsInTranslation = (agentsInTranslation=[]) + agentsInTranslation + [owner, mylanguage, mylanguage, 0, llRound(llFrand(2000000)) + 1];
            speaker = lid;
}
            spkLan = lstr;
llSetTimerEvent(1.0);
            if (~llListFindList(agentsInTranslation, (list)speaker))
}
            {
link_message(integer sender_num, integer num, string lstr, key lid)
                integer tmpavliPos = llListFindList(agentsInTranslation, (list)speaker);
{
                string actlan = llList2String(agentsInTranslation, tmpavliPos + 1);
if (num == 6349160)
                string tmplan = llList2String(agentsInTranslation, tmpavliPos + 2);
{
                if (llList2Integer(agentsInTranslation, tmpavliPos + 3) >= 2)
speaker = lid;
                {  // if anyone speaks on any different language 3 times in a row
spkLan = lstr;
                    addAgent(lid, lstr, 0);
if (~llListFindList(agentsInTranslation, (list)speaker))
                }
{
                if (actlan == lstr)
tmpavliPos = llListFindList(agentsInTranslation, (list)speaker);
                {  // reset language checker for speaker
actlan = llList2String(agentsInTranslation, tmpavliPos + 1);
                    agentsInTranslation = llListReplaceList(agentsInTranslation, [actlan, 0], tmpavliPos + 2, tmpavliPos + 3);
tmplan = llList2String(agentsInTranslation, tmpavliPos + 2);
                }
if (llList2Integer(agentsInTranslation, tmpavliPos + 3) >= 2)
                else
{  // if anyone speaks on any different language 3 times in a row
                {
addAgent(lid, lstr, 0);
                    if (lstr == tmplan)
}
                    {  // if language of speaker is not the same as detected language
if (actlan == lstr)
                        agentsInTranslation = llListReplaceList(agentsInTranslation,[llList2Integer(agentsInTranslation,tmpavliPos + 3) + 1] , tmpavliPos + 3, tmpavliPos + 3);
{  // reset language checker for speaker
                    }
agentsInTranslation = llListReplaceList(agentsInTranslation, [actlan, 0], tmpavliPos + 2, tmpavliPos + 3);
                    else
}
                    {
else
                        agentsInTranslation = llListReplaceList(agentsInTranslation,[lstr, 0] , tmpavliPos + 2, tmpavliPos + 3);
{
                    }
if (lstr == tmplan)
                }
{  // if language of speaker is not the same as detected language
            }
agentsInTranslation = llListReplaceList(agentsInTranslation,[llList2Integer(agentsInTranslation,tmpavliPos + 3) + 1] , tmpavliPos + 3, tmpavliPos + 3);
        }
}
    }
else
 
{
    sensor(integer num_detected)
agentsInTranslation = llListReplaceList(agentsInTranslation,[lstr, 0] , tmpavliPos + 2, tmpavliPos + 3);
    {
}
        integer s;
}
        key sid;
}
        for (s = 0; s < num_detected; s += 1)
}
        {
if (num == 9876754)
            sid = llDetectedKey(s);
{
            if (~llListFindList(agentsInTranslation, (list)sid))
llMessageLinked(LINK_THIS,7659759,List2TypeSep(agentsInTranslation),NULL_KEY);
            { }
}
            else
}
            {
listen(integer channel, string name, key id, string message)
                addNewAgent(sid);
{
            }
if(~llListFindList(agentsInTranslation, (list)id))
        }
{ }
    }
else
 
{
    no_sensor()
addNewAgent(id);
    { }
}
 
}
    listen(integer channel, string name, key id, string message)
sensor(integer num_detected)
    {
{
        if(~llListFindList(agentsInTranslation, (list)id))
integer s;
        { }
for (s = 0; s < num_detected; s += 1)
        else
{
        {
sid = llDetectedKey(s);
            addNewAgent(id);
if (~llListFindList(agentsInTranslation, (list)sid))
        }
{ }
    }
else
 
{
    timer()
addNewAgent(sid);
    {
}
        integer r;
}
        vector  tmrVct;
}
        list tmrli;
no_sensor()
        list  newList;
{ }
        llSetTimerEvent(0.0);  // we better reset timer by way of precaution
timer()
        if (isInitialized == FALSE)
{
        {
llSetTimerEvent(0.0);
            string mylanguage;
integer r;
            enabled = TRUE;
for (r = 0; r < llGetListLength(agentsInTranslation); r += 5)
            listenID = llListen(0, "", "", "");
{
            llMessageLinked(LINK_THIS, 6877259, (string)enabled, NULL_KEY);
tmrli = llGetObjectDetails(llList2Key(agentsInTranslation, r), [OBJECT_POS]);
            isInitialized = TRUE;
tmrVct = llList2Vector(tmrli, 0);
            mylanguage = llGetAgentLanguage(owner);
if (tmrVct == ZERO_VECTOR)
            if (llStringLength(mylanguage) < 1)
{  }
            {
else
                mylanguage = "en";
{
            }
if (llVecDist(llGetPos(), tmrVct) <= 20.0)
            if(~llListFindList(agentsInTranslation, (list)owner))
{
            {
newList = (newList=[]) + newList + llList2List(agentsInTranslation, r, r + 4);
                integer ownerliPos;
}
                ownerliPos = llListFindList(agentsInTranslation, (list)owner);
}
                agentsInTranslation = llListReplaceList(agentsInTranslation, [mylanguage] , ownerliPos + 1, ownerliPos + 1);
}
            }
agentsInTranslation = newList;
            else
newList = [];
            {
llSensor("",NULL_KEY,AGENT,20.0,PI);
                agentsInTranslation = (agentsInTranslation=[]) + agentsInTranslation + [ owner , mylanguage, mylanguage , 0 , llRound(llFrand(2000000)) + 1];
llSetTimerEvent(6.0);  // restart timer
            }
}
        }
        if (isMaster > 0)
        {
            for (r = 0; r < llGetListLength(agentsInTranslation); r += 5)
            {
                tmrli = llGetObjectDetails(llList2Key(agentsInTranslation, r), [OBJECT_POS]);
                tmrVct = llList2Vector(tmrli, 0);
                if (tmrVct == ZERO_VECTOR)
                {  }
                else
                {
                    if (llVecDist(llGetPos(), tmrVct) <= 20.0)
                    {
                        newList = (newList=[]) + newList + llList2List(agentsInTranslation, r, r + 4);
                    }
                }                  
            }
            agentsInTranslation = newList;
            newList = [];
        }
        if (autoLanguage == TRUE && isMaster > 0)
        {
            llSensor("", NULL_KEY, AGENT, 20.0, PI);
        }
        llSetTimerEvent(4.0);  // restart timer
    }
}
}
</lsl>
</lsl>




CheckSpell-DetectLanguage
DetectLanguage
<lsl>
<lsl>
//(Mod made in Perry Mizin)
//(Mod made in Perry Mizin)
Line 328: Line 526:
//LSL Script copyright 2006-2009 by Hank Ramos
//LSL Script copyright 2006-2009 by Hank Ramos
//Translation Web Services powered by Google
//Translation Web Services powered by Google
//Spell Checker Web Services powered by Yahoo
key splValue;
key dtcValue;
key dtcValue;
integer autoLanguage = TRUE;
key speakerID;
integer isMaster = 1;
string htttmpStr;
integer enabled = TRUE;
integer showTranslation = TRUE;
integer tranObjects = TRUE;
integer SpellChecker = 1;
list tempDetections;
list tempDetections;
list spellchecks;
list newList;
 
float timeElapsed;
string strReplace(string str, string search, string replace) {
integer tmpliPos;
    return llDumpList2String(llParseStringKeepNulls((str = "") + str, [search], []), replace);
}
 
integer contains(string haystack, string needle) // http://wiki.secondlife.com/wiki/llSubStringIndex
integer contains(string haystack, string needle) // http://wiki.secondlife.com/wiki/llSubStringIndex
{
{
    return ~llSubStringIndex(haystack, needle);
return ~llSubStringIndex(haystack, needle);
}
}
DetectLanguage(string dtcmsg, key dtcid)
DetectLanguage(string dtcmsg, key dtcid)
{
{
    llSleep(0.2);
dtcValue = llHTTPRequest("http://ajax.googleapis.com/ajax/services/language/detect?v=1.0&q=" + llEscapeURL(dtcmsg), [HTTP_METHOD, "GET", HTTP_MIMETYPE, "plain/text;charset=utf-8"], " ");
    dtcValue = llHTTPRequest("http://ajax.googleapis.com/ajax/services/language/detect?v=1.0&q=" + llEscapeURL(dtcmsg), [HTTP_METHOD, "GET", HTTP_MIMETYPE, "plain/text;charset=utf-8"], " ");
if (dtcValue != NULL_KEY)
    if (dtcValue != NULL_KEY)
{
    {
tempDetections = (tempDetections=[]) + tempDetections + [dtcValue, dtcid, llGetTime()];
        tempDetections = (tempDetections=[]) + tempDetections + [ dtcValue, dtcid, llGetTime() ];
}
    }
else
    else
{
    {
llSleep(10.0); // Something has gone horribly wrong, sleep 10 seconds clear throttle
        llSleep(10.0); // Something has gone horribly wrong, sleep 10 seconds clear throttle
}
    }
}
 
CheckSpell(string splmsg, key splid)
{
    splValue = llHTTPRequest("http://search.yahooapis.com/WebSearchService/V1/spellingSuggestion?appid=DNPjiabV34EOgXQ3kAu6.d7kf6v.JUGCn1bFUcSTFMSGCyCy_ALzbepYstlI7DrOGP0-&query=" + llEscapeURL(splmsg), [HTTP_METHOD, "GET", HTTP_MIMETYPE, "plain/text;charset=utf-8"], "");
    if (splValue != NULL_KEY)
    {    // Translation
        spellchecks = (spellchecks=[]) + spellchecks + [ splValue, splid, strReplace(splmsg,",","^ñ^"), llGetTime() ];
    }
    else
    {
        llSleep(10.0); // Something has gone horribly wrong, sleep 10 seconds clear throttle
    }
}
}
 
//
 
default
default
{
{
    state_entry()
state_entry()
    {
{
        llListen(0,"","","");
llSetTimerEvent(5.0);
    }
}
 
link_message(integer sender, integer num, string msg, key id)
    listen(integer channel, string name, key id, string message)
{
    {
if (num == 7686795)
        if ((!enabled) && (isMaster == 1))
{
        {
DetectLanguage(msg, id);
            return;
}
        }
}
        if (!tranObjects)
http_response(key request_id, integer status, list metadata, string body)
        {
{  // Process Response Code
            if (llGetAgentSize(id) == ZERO_VECTOR)
if (~llListFindList(tempDetections, (list)request_id))
            {
{  // Language Detection
                return;
tmpliPos = llListFindList(tempDetections, (list)request_id);
            }
speakerID = llList2Key(tempDetections, tmpliPos + 1);
            else
tempDetections = llDeleteSubList(tempDetections, tmpliPos, tmpliPos + 2);
            {
htttmpStr = llToLower(llGetSubString(body, llSubStringIndex(body, "{\"language\":\"") + 13, llSubStringIndex(body, "\",\"isReliable\":") - 1));
                if (SpellChecker == 1)
if (contains(htttmpStr, "err") == 0 && contains(htttmpStr, "unn") == 0)
                {
{  // We Trust the Google system, the Google´s guys are good and I am sure they will keep improving :-)
                    CheckSpell(message, id);
if(llStringLength(htttmpStr) <= 3)
                }
{
                else
llMessageLinked(LINK_THIS,6349160,htttmpStr,speakerID);
                {
}
                    llMessageLinked(LINK_THIS,98745920,message,id);
}
                }
}
            }
}
        }
timer()
        else
{
        {
llSetTimerEvent(0.0);
            if (SpellChecker == 1)
integer r;
            {
integer TliLen = llGetListLength(tempDetections);
                CheckSpell(message, id);
for (r = 0; r < TliLen; r += 3)
            }
{
            else
timeElapsed = llGetTime() - llList2Float(tempDetections, r + 2);
            {
if (timeElapsed > 10.0)
                llMessageLinked(LINK_THIS,98745920,message,id);
{
            }
newList = (newList=[]) + newList + llList2List(tempDetections, r, r + 2);
        }
}
        DetectLanguage(message, id);
}
    }
tempDetections = newList;
 
newList = [];
    http_response(key request_id, integer status, list metadata, string body)
llSetTimerEvent(5.0);
    {  // Process Response Code
}
        if (~llListFindList(spellchecks, (list)request_id))
        {
            string httmsg;
            key httkey;
            integer splliPos = llListFindList(spellchecks, (list)request_id);
            httkey = llList2Key(spellchecks, splliPos + 1);
            if(contains(body, "<Result>") == 0)
            {  // Yahoo Spell Checker correction
                httmsg = llList2String(spellchecks, splliPos + 2);
                llMessageLinked(LINK_THIS,98745920,strReplace(httmsg,"^ñ^",","),httkey);
            }
            else
            {
                httmsg = llGetSubString(body, llSubStringIndex(body, "<Result>") + 8, llSubStringIndex(body, "</Result>") - 1);
                llMessageLinked(LINK_THIS, 98745920,httmsg,httkey);                             
            }
            spellchecks = llDeleteSubList(spellchecks,splliPos, splliPos + 3);
        }
        if (~llListFindList(tempDetections, (list)request_id))
        {  // Language Detection
            integer tmpliPos = llListFindList(tempDetections, (list)request_id);
            key speakerID = llList2Key(tempDetections, tmpliPos + 1);
            tempDetections = llDeleteSubList(tempDetections, tmpliPos, tmpliPos + 2);
            string htttmpStr = llToLower(llGetSubString(body, llSubStringIndex(body, "{\"language\":\"") + 13, llSubStringIndex(body, "\",\"isReliable\":") - 1));
            if (contains(htttmpStr, "err") == 0 && contains(htttmpStr, "unn") == 0)
            {  // We Trust the Google system, the Google´s guys are good and I am sure they will keep improving :-)
                // Language Detected
                if(llStringLength(htttmpStr) <= 2)
                {
                    llMessageLinked(LINK_THIS,6349160,htttmpStr,speakerID);
                }
            }
        }
    }
 
    timer()
    {
        llSetTimerEvent(0.0);
        integer r;
        list newList;
        float timeElapsed;
        for (r = 0; r < llGetListLength(spellchecks); r += 4)
        {
            timeElapsed = llGetTime() - llList2Float(spellchecks, r + 3);
            if (timeElapsed < 10.0)
            {
                newList = (newList=[]) + newList + llList2List(spellchecks, r, r + 3);
            }
        }
        spellchecks = newList;
        newList = [];
        for (r = 0; r < llGetListLength(tempDetections); r += 3)
        {
            timeElapsed = llGetTime() - llList2Float(tempDetections, r + 2);
            if (timeElapsed < 10.0)
            {
                newList = (newList=[]) + newList + llList2List(tempDetections, r, r + 2);
            }
        }
        tempDetections = newList;
        newList = [];
        llSetTimerEvent(5.0);
    }
}
}


</lsl>
</lsl>
Line 501: Line 610:
//LSL Script copyright 2006-2009 by Hank Ramos
//LSL Script copyright 2006-2009 by Hank Ramos
//Translation Web Services powered by Google
//Translation Web Services powered by Google
//Spell Checker Web Services powered by Yahoo
//Formulator Script
list agentsInTranslation;
list agentsInTranslation;
string SEPARATOR = "|%&|"; // for transmitting lists via linked messages
list txli;
list translationCache;
list translationCache;
list tomali;
string SEPARATOR = "|%&|";
string recepientLanguage;
string speakerLanguage;
string txmessage;
string  spkrLan;
string recep;
string  recepLan;
string  lanpair;
string request;
integer M = 1;
integer M = 1;
integer ShowTranslations = TRUE;
integer rxID;
 
integer recepID;
integer lstliPos;
integer lstliPos2;
integer txPos;
integer lint;
key recepientID;
float cacheTime;
sendIM(key imid, string imstr)
sendIM(key imid, string imstr)
{
{
    // llInstantMessage(key id , string message) causes the script to sleep for 2 seconds
if (M == 8)
    if (llGetAgentSize(imid) == ZERO_VECTOR)
{
    { }
llMessageLinked(LINK_ALL_OTHERS,2334420,imstr,imid);
    else
M = 1;
    {
}
        if (imid != llGetOwner())
else if (M == 7)
        {
{
            llOwnerSay(imstr + " @" + llKey2Name(imid));  // llOwnerSay(string message) has no delay
llMessageLinked(LINK_ALL_OTHERS,2334430,imstr,imid);
        }
M = 8;
 
}
        if (M == 8)
else if (M == 6)
        {
{
            llMessageLinked(LINK_ALL_OTHERS,2334420,imstr,imid);
llMessageLinked(LINK_ALL_OTHERS,2334440,imstr,imid);
            M = 1;
M = 7;
        }
}
        else if (M == 7)
else if (M == 5)
        {
{
            llMessageLinked(LINK_ALL_OTHERS,2334430,imstr,imid);
llMessageLinked(LINK_ALL_OTHERS,2334450,imstr,imid);
            M = 8;
M = 6;
        }
}
        else if (M == 6)
else if (M == 4)
        {
{
            llMessageLinked(LINK_ALL_OTHERS,2334440,imstr,imid);
llMessageLinked(LINK_ALL_OTHERS,2334460,imstr,imid);
            M = 7;
M = 5;
        }
}
        else if (M == 5)
else if (M == 3)
        {
{
            llMessageLinked(LINK_ALL_OTHERS,2334450,imstr,imid);
llMessageLinked(LINK_ALL_OTHERS,2334470,imstr,imid);
            M = 6;
M = 4;
        }
}
        else if (M == 4)
else if (M == 2)
        {
{
            llMessageLinked(LINK_ALL_OTHERS,2334460,imstr,imid);
llMessageLinked(LINK_ALL_OTHERS,2334480,imstr,imid);
            M = 5;
M = 3;
        }
}
        else if (M == 3)
else if (M == 1)
        {
{
            llMessageLinked(LINK_ALL_OTHERS,2334470,imstr,imid);
llMessageLinked(LINK_ALL_OTHERS,2334490,imstr,imid);
            M = 4;
M = 2;
        }
}
        else if (M == 2)
        {
            llMessageLinked(LINK_ALL_OTHERS,2334480,imstr,imid);
            M = 3;
        }
        else if (M == 1)
        {
            llMessageLinked(LINK_ALL_OTHERS,2334490,imstr,imid);
            M = 2;
        }
    }
}
}
key getAgentKey(integer agentID)
key getAgentKey(integer agentID)
{
{
    if(~llListFindList(agentsInTranslation, (list)agentID))
if(~llListFindList(agentsInTranslation, (list)agentID))
    {
{
        integer gkliPos = llListFindList(agentsInTranslation, (list)agentID);
integer gkliPos = llListFindList(agentsInTranslation, (list)agentID);
        return llList2Key(agentsInTranslation, gkliPos - 4);
return llList2Key(agentsInTranslation, gkliPos - 4);
    }
}
    else
else
    {
{
        return NULL_KEY;
return NULL_KEY;
    }
}
}
}
 
list TypeSep2List(string inputstring)
list TypeSep2List(string inputstring)  
{
{ // converts a separated string created with List2TypeSep back to a list with the correct type information
integer h;
    integer     i;
list input;
    list       input;
list output;
    list       output;
input = llParseString2List(inputstring, [SEPARATOR], []);
   
for (h = 0; h < llGetListLength(input); h += 2)
    input = llParseString2List(inputstring, [SEPARATOR], []);
{
 
if (llList2Integer(input, h) == TYPE_INTEGER) output += (integer)llList2String(input, h + 1);
    for (i = 0; i < llGetListLength(input); i += 2) {
else if (llList2Integer(input, h) == TYPE_FLOAT) output += (float)llList2String(input, h + 1);
        if (llList2Integer(input, i) == TYPE_INTEGER) output += (integer)llList2String(input, i + 1);
else if (llList2Integer(input, h) == TYPE_STRING) output += llList2String(input, h + 1);
        else if (llList2Integer(input, i) == TYPE_FLOAT) output += (float)llList2String(input, i + 1);
else if (llList2Integer(input, h) == TYPE_KEY) output += (key)llList2String(input, h + 1);
        else if (llList2Integer(input, i) == TYPE_STRING) output += llList2String(input, i + 1);
}
        else if (llList2Integer(input, i) == TYPE_KEY) output += (key)llList2String(input, i + 1);
return output;
    }
   
    return output;
}
}
 
string List2TypeSep(list input2)
string List2TypeSep(list input) { // converts a list to a separated string with type information prepended to each item
{
    integer     i;
integer l;
    list       output;
list output2;
 
for (l = 0; l < llGetListLength(input2); l++)
    for (i = 0; i < llGetListLength(input); i++) {
{
        output += [llGetListEntryType(input, i)] + llList2List(input, i, i);
output2 += [llGetListEntryType(input2, l)] + llList2List(input2, l, l);
    }
}
   
return llDumpList2String(output2, SEPARATOR);
    return llDumpList2String(output, SEPARATOR);
}
 
string strReplace(string str, string search, string replace) {
    return llDumpList2String(llParseStringKeepNulls((str = "") + str, [search], []), replace);
}
}
 
//
default
default
{
{
    state_entry()
state_entry()
    {
{
        llSetTimerEvent(1.0);
llSetTimerEvent(1.0);
    }
}
    link_message(integer sender_num, integer num, string lstr, key id)
link_message(integer sender_num, integer num, string lstr, key id)
    {
{
        if (num == 7659759)
if (num == 7659759)
        {
{
            agentsInTranslation = TypeSep2List(lstr);
agentsInTranslation = TypeSep2List(lstr);
            llOwnerSay("AgentsinTranslation List: \n" + llList2CSV(agentsInTranslation));
}
        }
if (num == 9827491)
        if (num == 9827491)
{
txli = TypeSep2List(lstr);
rxID = llList2Integer(txli,0);
speakerLanguage = llList2String(txli,1);
txmessage = llList2String(txli,2);
lint = llListFindList(agentsInTranslation, (list)rxID);
recepientLanguage = llList2String(agentsInTranslation, lint - 3);
recepientID = getAgentKey(rxID);
if (recepientID != NULL_KEY)
{
if (recepientLanguage == speakerLanguage)
{ }
else
{
sendIM(recepientID,txmessage);
}
}
}
if (num == 98745920)
{
{
llSetTimerEvent(0.0);
txPos = llListFindList(agentsInTranslation, (list)id);
            list txli;
cacheTime = llGetTime();
            key recepientID;
if(id==llGetOwner())
            key txID;
{
            integer rxID;
integer v;
            string recepientLanguage;
integer agentslilen = llGetListLength(agentsInTranslation);
            string speakerLanguage;
for (v = 0; v < agentslilen; v += 5)
            string txmessage;
{
            txID = id;
spkrLan = llList2String(agentsInTranslation, txPos + 1);
            txli = TypeSep2List(lstr);
recepID = llList2Integer(agentsInTranslation, v + 4);
            rxID = llList2Integer(txli,0);
recepLan = llList2String(agentsInTranslation, v + 1);
            speakerLanguage = llList2String(txli,1);
if (spkrLan == recepLan)
            txmessage = llList2String(txli,2);
{ }
            recepientLanguage = llList2String(agentsInTranslation, llListFindList(agentsInTranslation, (list)txID) + 1);
else
            recepientID = getAgentKey(rxID);
{
            if (recepientID != NULL_KEY)
lanpair = spkrLan + "|" + recepLan;
            {
if (~llListFindList(translationCache, (list)lanpair))
                if (recepientLanguage == speakerLanguage)
{
                { }
lstliPos = llListFindList(translationCache, (list)lanpair);
                else
translationCache = llListReplaceList(translationCache, [llList2String(translationCache, lstliPos + 1) + "@" + (string)recepID], lstliPos + 1, lstliPos + 1);
                {
}
                    sendIM(txID,txmessage);
else
                }
{
translationCache = (translationCache=[]) + translationCache + [lanpair, recepID, cacheTime];
}
}
}
if (translationCache != [])
{
integer w;
for (w = 0; w < llGetListLength(translationCache); w += 3)
{
lanpair = llList2String(translationCache, w);
recep = llList2String(translationCache, w + 1);
tomali = [lstr, lanpair, recep];
request = List2TypeSep(tomali);
llMessageLinked(LINK_THIS,2346017,request,id);
}
}
}
else
{
lstliPos2 = llListFindList(agentsInTranslation, (list)llGetOwner());
if (~llListFindList(agentsInTranslation, (list)id))
{
spkrLan = llList2String(agentsInTranslation, txPos + 1);
recepID = llList2Integer(agentsInTranslation, lstliPos2 + 4);
recepLan = llList2String(agentsInTranslation, lstliPos2 + 1);
if (spkrLan == recepLan)
{ }
else
{
lanpair = spkrLan + "|" + recepLan;
if (~llListFindList(translationCache, (list)lanpair))
{
lstliPos = llListFindList(translationCache, (list)lanpair);
translationCache = llListReplaceList(translationCache, [llList2String(translationCache, lstliPos + 1) + "@" + (string)recepID], lstliPos + 1, lstliPos + 1);
}
else
{
translationCache = (translationCache=[]) + translationCache + [ lanpair, recepID, cacheTime ];
}
}
}
if (translationCache != [])
{   // Process Requests
tomali = [lstr, lanpair, recepID];
request = List2TypeSep(tomali);
llMessageLinked(LINK_THIS,2346017,request,id);
}
}
}
}
llSetTimerEvent(6.0);
}
 
timer()
        }
{
        if (num == 98745920)
llSetTimerEvent(0.0);
float timeElapsed;
list newList;
integer r;
for (r = 0; r < llGetListLength(translationCache); r += 3)
{
{
llSetTimerEvent(0.0);
timeElapsed = llGetTime() - llList2Float(translationCache, r + 2);
            integer w;
if (timeElapsed < 10.0)
            string  spkrLan;
{
            string  recepLan;
newList = (newList=[]) + newList + llList2List(translationCache, r, r + 2);
            integer recepID;
            integer lstliPos;
            string  lanpair;
            string txtchat;
            key txID;
float cacheTime;
list forli;
            txID = id;
            txtchat = strReplace(lstr,",","^ñ^");
            llOwnerSay("Recibido mensaje de " + llKey2Name(id) + ", Mensaje: " + lstr);
            if (~llListFindList(agentsInTranslation, (list)txID))
            {
                spkrLan = llList2String(agentsInTranslation, llListFindList(agentsInTranslation, (list)txID ) + 1 );
                llOwnerSay("Formulator script line 170 speakerLanguage: " + spkrLan);
                cacheTime = llGetTime();
                //===============================
                // Formulate Translation Requests
                //===============================
                for (w = 0; w < llGetListLength(agentsInTranslation); w += 5)
                {    // Loop through translation group and do appropriate translations as needed
                    recepID = llList2Integer(agentsInTranslation, w + 4);
                    recepLan = llList2String(agentsInTranslation, w + 1);
                    if (spkrLan == recepLan)
                    { }
                    else
                    {
                        lanpair = spkrLan + "|" + recepLan;
                        if (~llListFindList(translationCache, (list)lanpair))
                        {
                            lstliPos = llListFindList(translationCache, (list)lanpair);
                            translationCache = llListReplaceList(translationCache, [llList2String(translationCache, lstliPos + 1) + "@" + (string)recepID], lstliPos + 1, lstliPos + 1);
                        }
                        else
                        {
                            translationCache = (translationCache=[]) + translationCache + [ lanpair, recepID, cacheTime ];
                        }
                    }
                }
                if (translationCache != [])
                {    // Process Requests
                    for (w = 0; w < llGetListLength(translationCache); w += 3)
                    {  //====================================
                        //Translation
                        //====================================
//Forumulate and Send Translation Request
forli = [ txtchat + "&langpair=" + lanpair, llList2String(translationCache, w + 1), llList2String(translationCache, w)];
                        lanpair = "|" + llList2String(llParseStringKeepNulls(llList2String(translationCache, w), ["|"],[]), 1);
                        llMessageLinked(LINK_THIS, 2346017, List2TypeSep( forli ), txID);
                    }
                }
}
}
llSetTimerEvent(6.0);
}
        }
translationCache = newList;
    }
newList = [];
 
llMessageLinked(LINK_THIS,9876754,"",NULL_KEY);
    timer()
llSetTimerEvent(12.0);
    {
}
        llSetTimerEvent(0.0);
        integer r;
        float timeElapsed;
        list newList;
        for (r = 0; r < llGetListLength(translationCache); r += 3)
        {
            timeElapsed = llGetTime() - llList2Float(translationCache, r + 2);
            if (timeElapsed < 8.0)
            {
                newList = (newList=[]) + newList + llList2List(translationCache, r, r + 2);
            }
        }
        translationCache = newList;
        newList = [];
        llMessageLinked(LINK_THIS,9876754,"",NULL_KEY);
        llSetTimerEvent(9.0);
    }
}
}
</lsl>
</lsl>
Line 742: Line 850:
//LSL Script copyright 2006-2009 by Hank Ramos
//LSL Script copyright 2006-2009 by Hank Ramos
//Translation Web Services powered by Google
//Translation Web Services powered by Google
//Spell Checker Web Services powered by Yahoo
list paramtmpli;
list recepientList;
list requestedTranslations;
list forli;
list txli;
list txli2;
list lkli;
string SEPARATOR = "|%&|";
string recepientLanguage;
string languagePair;
string speakerName;
string speakerLanguage;
string translatedText;
string lantmpStr;
string lmsg;
string llan;
string sendim;
string request;
string llid;
key speakerID;
key returnValue;
key tid;
integer tranObjects = TRUE;
integer tranObjects = TRUE;
integer SpellChecker = TRUE;
integer isMaster = 1;
integer isMaster = 1;
integer enabled = FALSE;
integer enabled = FALSE;
key returnValue;
integer httliPos;
list requestedTranslations;
integer lmPos;
string SEPARATOR = "|%&|"; // for transmitting lists via linked messages
integer httbusy;
 
string strReplace(string str, string search, string replace) {
    return llDumpList2String(llParseStringKeepNulls((str = "") + str, [search], []), replace);
}
 
Translate(string chkmsg, list chkli)
Translate(string chkmsg, list chkli)
{
{
    string txmsg;
returnValue = llHTTPRequest("http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" + llEscapeURL(chkmsg) + "&langpair=" + llList2String(chkli,2), [HTTP_METHOD, "GET", HTTP_MIMETYPE, "plain/text;charset=utf-8"], "");
    list txli;
if (returnValue != NULL_KEY)
    txmsg = strReplace(chkmsg,"^ñ^",",");
{
    llOwnerSay("Translate List: \n" + llList2CSV(chkli) + "\n");
requestedTranslations = (requestedTranslations=[]) + requestedTranslations + [returnValue];
    returnValue = llHTTPRequest("http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" + llEscapeURL(txmsg), [HTTP_METHOD, "GET", HTTP_MIMETYPE, "plain/text;charset=utf-8"], "");
requestedTranslations = (requestedTranslations=[]) + requestedTranslations + chkli;
    if (returnValue != NULL_KEY)
}
    {   // Translation
else
        txli = (txli=[]) + txli + [returnValue];
{
        txli = (txli=[]) + txli + [chkli];
llOwnerSay("ERROR ERROR ERROR ERROR ERRORR ERROOOORRRRR");
        requestedTranslations = (requestedTranslations=[]) + requestedTranslations + txli;
llOwnerSay("All Go!");
        llSleep(0.6);
llSleep(25.0);
    }
}
    else
}
    {
string List2TypeSep(list input) {
        llSleep(25.0); // Something has gone horribly wrong, sleep 25 seconds to clear throttle
integer v;
    }
list output;
for (v = 0; v < llGetListLength(input); v++) {
output += [llGetListEntryType(input, v)] + llList2List(input, v, v);
}
return llDumpList2String(output, SEPARATOR);
}
}
 
list TypeSep2List(string inputstring)
processHTTPResponse(string bodyStr, list httli)
{
{
    llSetTimerEvent(0.0);
integer w;
    key    recepientID;
list input2;
    string    speakerID;
list output2;
    list processli;
input2 = llParseString2List(inputstring, [SEPARATOR], []);
    list   paramtmpli;
for (w = 0; w < llGetListLength(input2); w += 2) {
    list   recepientList;
if (llList2Integer(input2, w) == TYPE_INTEGER) output2 += (integer)llList2String(input2, w + 1);
    string  recepientLanguage;
else if (llList2Integer(input2, w) == TYPE_FLOAT) output2 += (float)llList2String(input2, w + 1);
    string  languagePair;
else if (llList2Integer(input2, w) == TYPE_STRING) output2 += llList2String(input2, w + 1);
    string  speakerName;
else if (llList2Integer(input2, w) == TYPE_KEY) output2 += (key)llList2String(input2, w + 1);
    string  speakerLanguage;
}
    string  translatedText;
return output2;
    string  lantmpStr;
    integer z;
    //===================
    // Process Translation
    //===================
    processli = httli;
//    llOwnerSay("Process list: \n" + llList2CSV(processli) + "\n");
    speakerID  = llList2String(processli, 1);
    speakerName = llKey2Name((key)speakerID);
    if (speakerName == "")
    {
        speakerName = llList2String(llGetObjectDetails((key)speakerID, [OBJECT_NAME]), 0);
    }
    recepientList = llParseString2List(llList2String(processli, 2), ["@"], []);
    paramtmpli = llParseStringKeepNulls(llList2String(processli, 3), ["|"],[]);
    recepientLanguage = llList2String(paramtmpli, 1);
    languagePair = llDumpList2String(paramtmpli, ">>");
    llOwnerSay("Tanslator ProcessHttResponse\nFrom: " + speakerName + "\nTo: " + llList2CSV(recepientList) + "\nParams: " + llList2CSV(paramtmpli) + "\nRx Lan: " + recepientLanguage + "\nLanguage Pair: " + languagePair);
    // Perform Text Cleanup
    translatedText = llGetSubString(bodyStr, llSubStringIndex(bodyStr, "{\"translatedText\":\"") + 18, llSubStringIndex(bodyStr, "\",\"detectedSourceLanguage\":\""));
    // Reverse order if Recepient Language is Hebrew or Arabic
    if ((recepientLanguage == "iw") || (recepientLanguage == "ar"))
    {
        lantmpStr = "";
        for(z = llStringLength(translatedText);z >= 0; z--)
        {
            lantmpStr = (lantmpStr="") + lantmpStr + llGetSubString(translatedText, z, z);
        }
        translatedText = lantmpStr;
    }
    lantmpStr = speakerName + "(" + languagePair + "): " + translatedText;
    for (z = 0; z < llGetListLength(recepientList); z += 1)
    {
        llMessageLinked(LINK_THIS,9827491, List2TypeSep( [ llList2Integer(recepientList, z), speakerLanguage , lantmpStr ] ) , recepientID);
    }
    llSetTimerEvent(4.0);
    return;
}
}
 
//
string List2TypeSep(list input) { // converts a list to a separated string with type information prepended to each item
    integer    i;
    list        output;
 
    for (i = 0; i < llGetListLength(input); i++) {
        output += [llGetListEntryType(input, i)] + llList2List(input, i, i);
    }
   
    return llDumpList2String(output, SEPARATOR);
}
 
list TypeSep2List(string inputstring) { // converts a separated string created with List2TypeSep back to a list with the correct type information
    integer    i;
    list        input;
    list        output;
   
    input = llParseString2List(inputstring, [SEPARATOR], []);
 
    for (i = 0; i < llGetListLength(input); i += 2) {
        if (llList2Integer(input, i) == TYPE_INTEGER) output += (integer)llList2String(input, i + 1);
        else if (llList2Integer(input, i) == TYPE_FLOAT) output += (float)llList2String(input, i + 1);
        else if (llList2Integer(input, i) == TYPE_STRING) output += llList2String(input, i + 1);
        else if (llList2Integer(input, i) == TYPE_KEY) output += (key)llList2String(input, i + 1);
    } 
    return output;
}
 
default
default
{
{
    state_entry()
state_entry()
    {
{
        llSetTimerEvent(1.0);
httbusy=FALSE;
    }
llSetTimerEvent(1.0);
    link_message(integer sender_num, integer num, string lstr, key lid)
}
    {
link_message(integer sender_num, integer num, string lstr, key lid)
        if (num == 2346017)
{
        {          
if (num == 2346017)
            list txli;
{
            key txID;
if(httbusy==FALSE)
            txli = TypeSep2List(lstr);
{
            llOwnerSay("Translator link_message list: " + llList2CSV(txli));
httbusy = TRUE;
            txID = lid;          
if (~llListFindList(txli2, (list)lstr))
            Translate(llList2String(txli,0),[ llGetTime(), txID, llList2String(txli,1), llList2String(txli,2) ] );
{
        }
lmPos = llListFindList(txli2, (list)lstr);
    }
txli2 = llDeleteSubList(txli2, lmPos, lmPos + 1);
    http_response(key request_id, integer status, list metadata, string body)
txli = TypeSep2List(lstr);
    {  // Process Response Code
lmsg = llList2String(txli,0);
        if (~llListFindList(requestedTranslations, (list)request_id))
llan = llList2String(txli,1);
        {  // Translation
llid = llList2String(txli,2);
            integer httliPos;
lkli = [ llGetTime(), lid, llan, llid ];
            string httmsg;
Translate(lmsg,lkli);
            httliPos = llListFindList(requestedTranslations, (list)request_id);
}
            httmsg = body;
else
            processHTTPResponse(httmsg, llList2List(requestedTranslations, httliPos + 1, httliPos + 4 ));
{
            requestedTranslations = llDeleteSubList(requestedTranslations, httliPos, httliPos + 4);
txli = TypeSep2List(lstr);
            return;
lmsg = llList2String(txli,0);
        }
llan = llList2String(txli,1);
    }
llid = llList2String(txli,2);
 
lkli = [ llGetTime(), lid, llan, llid ];
    timer()
Translate(lmsg,lkli);
    {
}
        llSetTimerEvent(0.0);
}
        integer r;
else
        float timeElapsed;
{
        list newList;
if (~llListFindList(txli2, (list)lstr))
        for (r = 0; r < llGetListLength(requestedTranslations); r += 6)
{ }
        {
else
            timeElapsed = llGetTime() - llList2Float(requestedTranslations, r + 1);
{
            if (timeElapsed < 20.0)
txli2 = (txli2=[]) + txli2 + [lstr];
            {
txli2 = (txli2=[]) + txli2 + [lid];
                newList = (newList=[]) + newList + llList2List(requestedTranslations, r, r + 5);
}
            }
}
        }
}
        requestedTranslations = newList;
}
        newList = [];
http_response(key request_id, integer status, list metadata, string body)
        llSetTimerEvent(5.0);
{  // Process Response Code
    }
if (~llListFindList(requestedTranslations, (list)request_id))
{  // Translation
httliPos = llListFindList(requestedTranslations, (list)request_id);
speakerID  = llList2Key(requestedTranslations, httliPos + 2);
speakerName = llKey2Name(speakerID);
if (llStringLength(speakerName) < 3)
{
speakerName = llList2String(llGetObjectDetails(speakerID, [OBJECT_NAME]), 0);
}
recepientList = llParseString2List(llList2String(requestedTranslations, httliPos + 4),["@"],[]);
paramtmpli = llParseStringKeepNulls(llList2String(requestedTranslations, httliPos + 3),["|"],[]);
speakerLanguage = llList2String(paramtmpli, 0);
recepientLanguage = llList2String(paramtmpli, 1);
languagePair = llDumpList2String(paramtmpli, ">>");
// Perform Text Cleanup
translatedText = llGetSubString(body, llSubStringIndex(body, "{\"translatedText\":\"") + 18, llSubStringIndex(body, "}, \"responseDetails\"") -1);
// Reverse order if Recepient Language is Hebrew or Arabic
if ((recepientLanguage == "iw") || (recepientLanguage == "ar"))
{
lantmpStr = "";
integer q;
for(q = llStringLength(translatedText);q >= 0; q--)
{
lantmpStr = (lantmpStr="") + lantmpStr + llGetSubString(translatedText, q, q);
}
translatedText = lantmpStr;
}
lantmpStr = speakerName + "(" + languagePair + "): " + translatedText;
integer z;
integer reclen = llGetListLength(recepientList);
for (z = 0; z < reclen; z += 1)
{
forli = [llList2Integer(recepientList, z), speakerLanguage , lantmpStr];
sendim = List2TypeSep(forli);
llMessageLinked(LINK_THIS,9827491,sendim,NULL_KEY);
}
requestedTranslations = llDeleteSubList(requestedTranslations, httliPos, httliPos + 4);
httbusy = FALSE;
llSetTimerEvent(1.0);
}
}
timer()
{
llSetTimerEvent(0.0);
if(txli2 != [])
{
integer m;
integer lleng = llGetListLength(txli2);
for (m = 0; m < lleng; m += 2)
{
request = llList2String(txli2, m);
tid = llList2Key(txli2, m + 1);
llMessageLinked(LINK_THIS,2346017,request,tid);
}
}
float timeElapsed;
list newList;
integer r;
for (r = 0; r < llGetListLength(requestedTranslations); r += 6)
{
timeElapsed = llGetTime() - llList2Float(requestedTranslations, r + 1);
if (timeElapsed < 20.0)
{
newList = (newList=[]) + newList + llList2List(requestedTranslations, r, r + 5);
}
}
requestedTranslations = newList;
newList = [];
llSetTimerEvent(5.0);
}
}
}
</lsl>
</lsl>


IM Handler Example
IM handler
<lsl>
<lsl>
//(Mod made in Perry Mizin)
// www.lsleditor.org  by Alphons van der Heijden (SL: Alphons Jano)
//(Mod made in Perry Mizin) I want to succeed with this translator... ;) call me day or night
//Universal Translator
//Universal Translator
//Version 1.9.0
//Version 1.9.0
Line 916: Line 1,047:
//LSL Script copyright 2006-2009 by Hank Ramos
//LSL Script copyright 2006-2009 by Hank Ramos
//Translation Web Services powered by Google
//Translation Web Services powered by Google
//Spell Checker Web Services powered by Yahoo
integer echo;
 
list escape=["\\u0026#39;" , "'" , "\\u003d" , "=" , "\\u0026amp;" , "&" , "\\u0026lt;" , "<" , "\\u0026gt;" , ">" , "\\u0026quot;" , "\""];
string strReplace(string str, string search, string replace) {
string Escape(string text)
     return llDumpList2String(llParseStringKeepNulls((str = "") + str, [search], []), replace);
{
    integer i; string result;
    list t=llParseString2List(text,[],["\\u0026#39;","\\u003d","\\u0026amp;","\\u0026lt;","\\u0026gt;","\\u0026quot;"]);
     for(i=0;i<llGetListLength(t);i++)
    {
        integer ii=llListFindList(escape,[llList2String(t,i)]);
        if(ii!=-1)
        {
            t=llListReplaceList(t,[llList2String(escape,ii+1)],i,i);
        }
    }
    result=llDumpList2String(t,"");
    return result;
}
}


Line 929: Line 1,072:
     {
     {
         llInstantMessage(target, llUnescapeURL(mess));
         llInstantMessage(target, llUnescapeURL(mess));
        if(echo==TRUE)
        {
            llOwnerSay(mess + " @" + llKey2Name(target));
        }
     }
     }
}
}
Line 937: Line 1,084:
     state_entry()
     state_entry()
     {
     {
 
        echo=FALSE;
        llSleep(0.1);
     }
     }


     link_message(integer sender_num, integer num, string str, key id)
     link_message(integer sender_num, integer num, string str, key id)
     {
     {
         if (num == 2334400)
         if (num == 2334420)
        {
            sendim(Escape(str),id);
        }
       
        if (num == 8872932)
         {
         {
             sendim(strReplace(str,"\\u0026#39;","´"),id);
             if(str=="echon")
            {
                echo=TRUE;
            }
            if(str=="echoff")
            {
                echo=FALSE;
            }
         }
         }
     }
     }

Latest revision as of 03:36, 6 August 2010

Bienvenid@

Hola, soy Perry Mizin y este será mi humilde intento de contribución al proyecto "Traductor Universal de Google" creado por Hank Ramos.

El siguiente código fué originálmente creado por Hank Ramos, empezaré modificando algunas funciones a mí manera... No ós riais

Welcome

Hello, I am Perry Mizin and this will be my humble try to contribute with the project "Universal Google Translator" created by Hank Ramos.

The next code was originally created by Hank Ramos, I will start modifiying some functions on my way... Don´t laugh

OK

Bueno, despues de respiñar todo lo que pude, creo que el uso de memoria y la velocidad están prácticamente igual qué en la versión original pero bueno... en la variedad está el gusto no? Ya he probado un poco el código, y parece que funciona aunque estoy teniendo algunos problemas... Por ejemplo creo que el sistema de traduccion no funciona corréctamente, y no me refiero al sistema de traduccion de Google (en mi opinion, si no es el mejor, es uno de los mejores del mundo), sino a que aún queda mucho trabajo por hacer en el script...

El siguiente paso sera intentar dividir el script en dos, o si es posible en tres para repartir el uso de memoria. Tambien me gustaria probar un truco que uso a menudo para traducir páginas en un idioma que no entiendo, lo que hago es que en vez de traducir diréctamente al español, primero se traduce a inglés, y luego desde inglés al español. Parece una tontería y un gasto innecesario, pero si lo hago es porque así suelo entender mejor las traducciones. Quiero por un lado el sistema de comunicacion y evaluacion entre traductores, y por otro el sistema de traduccion entre avatares, ¿es muy dificil? no sé ya lo veremos...

Well, after saving as much as I could, I think the memory usage and the speed are technically the same as in the original script, but well, in the variety is the taste, isnt it?. I have tested a bit the code above already, and it seems to work altought i´m having some problems... For instance i think the translation system is not working properly, and i dont mean the Google´s translation system (in my opinion, if is not the best, one of the bests), but that there is still much work to do in the script...

The next step will be to try to divide the script in 2, or 3 if is possible, so we can spread the memory usage. Also I would like to test a trick i use often for to translate languages that i dont understand, what I do first is to translate that language into English, and then from English to Spanish, it seems a nonsense and unnecesary waste, but if i do it is becouse so i usually understand the translations better. I want by one part the translators communications and evaluation system, and by other the translation system between avatars, is it very difficult? I don´t know , we will see...

Es dificil... me está costando pero ya veremos... Its difficult... i am struggling but we will see...

chu chu chu

De Güatemala a Güatepeor, Sin comentarios...

From Güatebad to Güateworse, No comments...

Buscando en Internet he encontrado este API de Yahoo comprobador de ortografía, aunque creo que por ahora sólo soporta el lenguage inglés pero sería interesante añadirlo al proyecto

Searching on the web I crossed in my way with this spell checker Yahoo´s API , I think that it only supports English language by now althought it would be interesting to add it to the project

Estoy probando el comprobador de deletreo de Yahoo aunque la verdad es que no estoy teniendo buenos resultados, parece que Google es mucho más rapido y necesito corregir antes de traducir. También estoy intentando solucionar el error que aparece con el símbolo (apostrofe) ´ en las frases con genitivo sajon traducidas al inglés y tampoco doy con la tecla... Ya que esto me está dando muchos dolores de cabeza quizás deje el proyecto en standby hasta después de navidades.

I am testing the Yahoo´s spell checker althought to be honest I´m not having good success, it seems Google is much faster and I need to correct before translate. Also I am triying to fix the error showed in the phrases translated to English with the saxons genitive apostrophe ´ and still triying and triying. As this is driving me nuts, maybe I will leave the project in standby until new year.


ESTO ES EL TRADUCTOR "un lío" por ahora... Necesito rehacer algunas cosas

THIS IS THE TRANSLATOR "mess" by now... I need to redo some things THE CODE BELOW IS WORKING AND BEING TESTED

THIS IS AN ALPHA VERSION OF THE PERRYSONAL TRANSLATOR... NOTHING MORE TO SAY

Menu <lsl> //Mod Made in Perry Mizin //This is the interface, or menu-system of the translator. //Menu System //Copyright 2006-2009 by Hank Ramos //Variables integer randomDialogChannel; //Options integer enabled = TRUE; integer isShowTran = FALSE; integer tranObjects = TRUE; //Functions showMainMenu(key id) { list buttonList = []; string dialogMsg = "Options Menu."; if (id == llGetOwner()) { if (enabled) { buttonList = (buttonList=[]) + buttonList + ["Turn OFF"]; } else { buttonList = (buttonList=[]) + buttonList + ["Turn ON"]; } if (isShowTran) { buttonList = (buttonList=[]) + buttonList + ["Echo OFF"]; } else { buttonList = (buttonList=[]) + buttonList + ["Echo ON"]; } buttonList = (buttonList=[]) + buttonList + ["RESET"]; dialogMsg = (dialogMsg="") + dialogMsg + "\nECHO: show translations of your chat sent to others."; if (tranObjects) { buttonList = (buttonList=[]) + buttonList + ["Objects OFF"]; } else { buttonList = (buttonList=[]) + buttonList + ["Objects ON"]; } dialogMsg = (dialogMsg="") + dialogMsg + "\nOBJECTS: translate chat of scripted objects"; } llDialog(id, dialogMsg, buttonList, randomDialogChannel); } processListen(string name, key id, string message) { if (id == llGetOwner()) { else if (message == "Turn ON") { enabled = TRUE; llMessageLinked(LINK_THIS, 8439932,"enable", id); } else if (message == "Turn OFF") { enabled = FALSE; llMessageLinked(LINK_THIS, 8439932,"disable", id); } else if (message == "Echo ON") { isShowTran = TRUE; llMessageLinked(LINK_THIS, 8872932,"echon", id); } else if (message == "Echo OFF") { isShowTran = FALSE; llMessageLinked(LINK_THIS, 8872932,"echoff", id); } else if (message == "Objects OFF") { tranObjects = FALSE; llMessageLinked(LINK_THIS, 8439742,"objoff", id); } else if (message == "Objects ON") { tranObjects = TRUE; llMessageLinked(LINK_THIS, 8439742,"objon", id); } else if (message == "RESET") { llResetOtherScript("agents"); llResetOtherScript("form"); llResetOtherScript("trans"); llResetOtherScript("list"); llResetOtherScript("lan"); llOwnerSay("All Scripts are Resetted now..."); llResetScript(); } } } // default { state_entry() { llOwnerSay("Welcome to the Perrysonal Translator, probably the worst FREE translator in SL!"); randomDialogChannel = (integer)llFrand(2147483647); llMessageLinked(LINK_SET, 7563297, "XTRNSL", NULL_KEY); //Other Setup llListen(randomDialogChannel, "", NULL_KEY, ""); showMainMenu(llGetOwner()); } on_rez(integer start_param) 

   {
       // Reset script when the object is rezzed
       llResetScript();
   }

touch_start(integer total_number) { if(llDetectedKey(0) == llGetOwner()) { showMainMenu(llGetOwner()); } } listen(integer channel, string name, key id, string message) { processListen(name,id,message); } }


</lsl>

Listener <lsl> // www.lsleditor.org by Alphons van der Heijden (SL: Alphons Jano) //(Mod made in Perry Mizin) I want to succeed with this translator... ;) call me day or night //Universal Translator //LSL Script copyright 2006-2009 by Hank Ramos //Translation Web Services powered by Google //listener integer tranObjects = TRUE; integer enabled = TRUE; key restricted; key owner; // default { state_entry() { owner = llGetOwner(); llListen(0,"",NULL_KEY,""); } 

   on_rez(integer start_param)
   {
       // Reset script when the object is rezzed
       llResetScript();
   }

link_message(integer sender_num, integer num, string str, key id) { if (num == 8439932) { if(str=="enable") { enabled = TRUE; } else if(str=="disable") { enabled = FALSE; } } if (num == 8439742) { if(str=="objon") { tranObjects = TRUE; } else if(str=="objoff") { tranObjects = FALSE; } } } listen(integer channel, string name, key id, string message) { if(channel==PUBLIC_CHANNEL) { if (!enabled) { return; } if (restricted==id) { llSetTimerEvent(0.0); restricted = id; llSetTimerEvent(0.7); return; } if (!tranObjects) { if (llGetAgentSize(id) == ZERO_VECTOR) { return; } } if (llStringLength(message) < 12) { llMessageLinked(LINK_THIS,98745920,message,id); } else { llMessageLinked(LINK_THIS,7686795,message,id); llMessageLinked(LINK_THIS,98745920,message,id); } llSetTimerEvent(0.7); restricted = id; } } timer() { restricted = NULL_KEY; llSetTimerEvent(0.0); } }

</lsl>


agentsinTranslation <lsl> //(Mod made in Perry Mizin) //Universal Translator //Version 1.9.0 //December 25, 2009 //LSL Script copyright 2006-2009 by Hank Ramos //Translation Web Services powered by Google key owner; key speaker; key sid; list agentsInTranslation; list tmrli; list newList; integer listenID; integer tmpavliPos; integer ownerliPos; vector tmrVct; string actlan; string tmplan; string spkLan; string SEPARATOR = "|%&|"; string mylanguage; string checkLanguage(string chklantmpStr) { if (chklantmpStr == "") { chklantmpStr = "en"; } else if (chklantmpStr == "und") { chklantmpStr = "el"; } else if (chklantmpStr == "Gh") { chklantmpStr = "en"; } if (llGetSubString(chklantmpStr, 0, 1) == "zh") { chklantmpStr = "zh-CN"; } else { chklantmpStr = llGetSubString(chklantmpStr, 0, 1); } return chklantmpStr; } string addNewAgent(key newavid) { string speakerLan; if (llGetAgentSize(newavid) == ZERO_VECTOR) { speakerLan = "en"; } else { speakerLan = checkLanguage(llGetAgentLanguage(newavid)); if (speakerLan == "") { speakerLan = "en"; addAgent(newavid, speakerLan, 0); } else { addAgent(newavid, speakerLan, 0); } } return speakerLan; } key getAgentKey(integer agentID) { if(~llListFindList(agentsInTranslation, (list)agentID)) { integer gkliPos = llListFindList(agentsInTranslation, (list)agentID); return llList2Key(agentsInTranslation, gkliPos - 4); } else { return NULL_KEY; } } string List2TypeSep(list input2) { integer w; list output2; for (w = 0; w < llGetListLength(input2); w++) { output2 += [llGetListEntryType(input2, w)] + llList2List(input2, w, w); } return llDumpList2String(output2, SEPARATOR); } list TypeSep2List(string inputstring) { integer v; list input; list output; input = llParseString2List(inputstring, [SEPARATOR], []); for (v = 0; v < llGetListLength(input); v += 2) { if (llList2Integer(input, v) == TYPE_INTEGER) output += (integer)llList2String(input, v + 1); else if (llList2Integer(input, v) == TYPE_FLOAT) output += (float)llList2String(input, v + 1); else if (llList2Integer(input, v) == TYPE_STRING) output += llList2String(input, v + 1); else if (llList2Integer(input, v) == TYPE_KEY) output += (key)llList2String(input, v + 1); } return output; } addAgent(key avid, string avlan, integer chklan) { integer avliPos; integer idNum; if (~llListFindList(agentsInTranslation, (list)avid)) { avliPos = llListFindList(agentsInTranslation, (list)avid); agentsInTranslation = llListReplaceList(agentsInTranslation, [avlan, avlan, chklan], avliPos + 1, avliPos + 3); } else { @at; idNum = llRound(llFrand(2000000)) + 1; if(~llListFindList(agentsInTranslation, (list)idNum)) { jump at; } agentsInTranslation = (agentsInTranslation=[]) + agentsInTranslation + [avid, avlan, avlan, chklan, idNum]; } } // default { state_entry() { owner = llGetOwner(); listenID = llListen(0, "", "", ""); mylanguage = llGetAgentLanguage(owner); if (llStringLength(mylanguage) < 1) { mylanguage = "en"; } if(~llListFindList(agentsInTranslation, (list)owner)) { ownerliPos = llListFindList(agentsInTranslation, (list)owner); agentsInTranslation = llListReplaceList(agentsInTranslation, [mylanguage] , ownerliPos + 1, ownerliPos + 1); } else { agentsInTranslation = (agentsInTranslation=[]) + agentsInTranslation + [owner, mylanguage, mylanguage, 0, llRound(llFrand(2000000)) + 1]; } llSetTimerEvent(1.0); } link_message(integer sender_num, integer num, string lstr, key lid) { if (num == 6349160) { speaker = lid; spkLan = lstr; if (~llListFindList(agentsInTranslation, (list)speaker)) { tmpavliPos = llListFindList(agentsInTranslation, (list)speaker); actlan = llList2String(agentsInTranslation, tmpavliPos + 1); tmplan = llList2String(agentsInTranslation, tmpavliPos + 2); if (llList2Integer(agentsInTranslation, tmpavliPos + 3) >= 2) { // if anyone speaks on any different language 3 times in a row addAgent(lid, lstr, 0); } if (actlan == lstr) { // reset language checker for speaker agentsInTranslation = llListReplaceList(agentsInTranslation, [actlan, 0], tmpavliPos + 2, tmpavliPos + 3); } else { if (lstr == tmplan) { // if language of speaker is not the same as detected language agentsInTranslation = llListReplaceList(agentsInTranslation,[llList2Integer(agentsInTranslation,tmpavliPos + 3) + 1] , tmpavliPos + 3, tmpavliPos + 3); } else { agentsInTranslation = llListReplaceList(agentsInTranslation,[lstr, 0] , tmpavliPos + 2, tmpavliPos + 3); } } } } if (num == 9876754) { llMessageLinked(LINK_THIS,7659759,List2TypeSep(agentsInTranslation),NULL_KEY); } } listen(integer channel, string name, key id, string message) { if(~llListFindList(agentsInTranslation, (list)id)) { } else { addNewAgent(id); } } sensor(integer num_detected) { integer s; for (s = 0; s < num_detected; s += 1) { sid = llDetectedKey(s); if (~llListFindList(agentsInTranslation, (list)sid)) { } else { addNewAgent(sid); } } } no_sensor() { } timer() { llSetTimerEvent(0.0); integer r; for (r = 0; r < llGetListLength(agentsInTranslation); r += 5) { tmrli = llGetObjectDetails(llList2Key(agentsInTranslation, r), [OBJECT_POS]); tmrVct = llList2Vector(tmrli, 0); if (tmrVct == ZERO_VECTOR) { } else { if (llVecDist(llGetPos(), tmrVct) <= 20.0) { newList = (newList=[]) + newList + llList2List(agentsInTranslation, r, r + 4); } } } agentsInTranslation = newList; newList = []; llSensor("",NULL_KEY,AGENT,20.0,PI); llSetTimerEvent(6.0); // restart timer } } </lsl>


DetectLanguage <lsl> //(Mod made in Perry Mizin) //Universal Translator //Version 1.9.0 //December 25, 2009 //LSL Script copyright 2006-2009 by Hank Ramos //Translation Web Services powered by Google key dtcValue; key speakerID; string htttmpStr; list tempDetections; list newList; float timeElapsed; integer tmpliPos; integer contains(string haystack, string needle) // http://wiki.secondlife.com/wiki/llSubStringIndex { return ~llSubStringIndex(haystack, needle); } DetectLanguage(string dtcmsg, key dtcid) { dtcValue = llHTTPRequest("http://ajax.googleapis.com/ajax/services/language/detect?v=1.0&q=" + llEscapeURL(dtcmsg), [HTTP_METHOD, "GET", HTTP_MIMETYPE, "plain/text;charset=utf-8"], " "); if (dtcValue != NULL_KEY) { tempDetections = (tempDetections=[]) + tempDetections + [dtcValue, dtcid, llGetTime()]; } else { llSleep(10.0); // Something has gone horribly wrong, sleep 10 seconds clear throttle } } // default { state_entry() { llSetTimerEvent(5.0); } link_message(integer sender, integer num, string msg, key id) { if (num == 7686795) { DetectLanguage(msg, id); } } http_response(key request_id, integer status, list metadata, string body) { // Process Response Code if (~llListFindList(tempDetections, (list)request_id)) { // Language Detection tmpliPos = llListFindList(tempDetections, (list)request_id); speakerID = llList2Key(tempDetections, tmpliPos + 1); tempDetections = llDeleteSubList(tempDetections, tmpliPos, tmpliPos + 2); htttmpStr = llToLower(llGetSubString(body, llSubStringIndex(body, "{\"language\":\"") + 13, llSubStringIndex(body, "\",\"isReliable\":") - 1)); if (contains(htttmpStr, "err") == 0 && contains(htttmpStr, "unn") == 0) { // We Trust the Google system, the Google´s guys are good and I am sure they will keep improving :-) if(llStringLength(htttmpStr) <= 3) { llMessageLinked(LINK_THIS,6349160,htttmpStr,speakerID); } } } } timer() { llSetTimerEvent(0.0); integer r; integer TliLen = llGetListLength(tempDetections); for (r = 0; r < TliLen; r += 3) { timeElapsed = llGetTime() - llList2Float(tempDetections, r + 2); if (timeElapsed > 10.0) { newList = (newList=[]) + newList + llList2List(tempDetections, r, r + 2); } } tempDetections = newList; newList = []; llSetTimerEvent(5.0); } }

</lsl>


Formulator <lsl> //(Mod made in Perry Mizin) //Universal Translator //Version 1.9.0 //December 25, 2009 //LSL Script copyright 2006-2009 by Hank Ramos //Translation Web Services powered by Google //Formulator Script list agentsInTranslation; list txli; list translationCache; list tomali; string SEPARATOR = "|%&|"; string recepientLanguage; string speakerLanguage; string txmessage; string spkrLan; string recep; string recepLan; string lanpair; string request; integer M = 1; integer rxID; integer recepID; integer lstliPos; integer lstliPos2; integer txPos; integer lint; key recepientID; float cacheTime; sendIM(key imid, string imstr) { if (M == 8) { llMessageLinked(LINK_ALL_OTHERS,2334420,imstr,imid); M = 1; } else if (M == 7) { llMessageLinked(LINK_ALL_OTHERS,2334430,imstr,imid); M = 8; } else if (M == 6) { llMessageLinked(LINK_ALL_OTHERS,2334440,imstr,imid); M = 7; } else if (M == 5) { llMessageLinked(LINK_ALL_OTHERS,2334450,imstr,imid); M = 6; } else if (M == 4) { llMessageLinked(LINK_ALL_OTHERS,2334460,imstr,imid); M = 5; } else if (M == 3) { llMessageLinked(LINK_ALL_OTHERS,2334470,imstr,imid); M = 4; } else if (M == 2) { llMessageLinked(LINK_ALL_OTHERS,2334480,imstr,imid); M = 3; } else if (M == 1) { llMessageLinked(LINK_ALL_OTHERS,2334490,imstr,imid); M = 2; } } key getAgentKey(integer agentID) { if(~llListFindList(agentsInTranslation, (list)agentID)) { integer gkliPos = llListFindList(agentsInTranslation, (list)agentID); return llList2Key(agentsInTranslation, gkliPos - 4); } else { return NULL_KEY; } } list TypeSep2List(string inputstring) { integer h; list input; list output; input = llParseString2List(inputstring, [SEPARATOR], []); for (h = 0; h < llGetListLength(input); h += 2) { if (llList2Integer(input, h) == TYPE_INTEGER) output += (integer)llList2String(input, h + 1); else if (llList2Integer(input, h) == TYPE_FLOAT) output += (float)llList2String(input, h + 1); else if (llList2Integer(input, h) == TYPE_STRING) output += llList2String(input, h + 1); else if (llList2Integer(input, h) == TYPE_KEY) output += (key)llList2String(input, h + 1); } return output; } string List2TypeSep(list input2) { integer l; list output2; for (l = 0; l < llGetListLength(input2); l++) { output2 += [llGetListEntryType(input2, l)] + llList2List(input2, l, l); } return llDumpList2String(output2, SEPARATOR); } // default { state_entry() { llSetTimerEvent(1.0); } link_message(integer sender_num, integer num, string lstr, key id) { if (num == 7659759) { agentsInTranslation = TypeSep2List(lstr); } if (num == 9827491) { txli = TypeSep2List(lstr); rxID = llList2Integer(txli,0); speakerLanguage = llList2String(txli,1); txmessage = llList2String(txli,2); lint = llListFindList(agentsInTranslation, (list)rxID); recepientLanguage = llList2String(agentsInTranslation, lint - 3); recepientID = getAgentKey(rxID); if (recepientID != NULL_KEY) { if (recepientLanguage == speakerLanguage) { } else { sendIM(recepientID,txmessage); } } } if (num == 98745920) { txPos = llListFindList(agentsInTranslation, (list)id); cacheTime = llGetTime(); if(id==llGetOwner()) { integer v; integer agentslilen = llGetListLength(agentsInTranslation); for (v = 0; v < agentslilen; v += 5) { spkrLan = llList2String(agentsInTranslation, txPos + 1); recepID = llList2Integer(agentsInTranslation, v + 4); recepLan = llList2String(agentsInTranslation, v + 1); if (spkrLan == recepLan) { } else { lanpair = spkrLan + "|" + recepLan; if (~llListFindList(translationCache, (list)lanpair)) { lstliPos = llListFindList(translationCache, (list)lanpair); translationCache = llListReplaceList(translationCache, [llList2String(translationCache, lstliPos + 1) + "@" + (string)recepID], lstliPos + 1, lstliPos + 1); } else { translationCache = (translationCache=[]) + translationCache + [lanpair, recepID, cacheTime]; } } } if (translationCache != []) { integer w; for (w = 0; w < llGetListLength(translationCache); w += 3) { lanpair = llList2String(translationCache, w); recep = llList2String(translationCache, w + 1); tomali = [lstr, lanpair, recep]; request = List2TypeSep(tomali); llMessageLinked(LINK_THIS,2346017,request,id); } } } else { lstliPos2 = llListFindList(agentsInTranslation, (list)llGetOwner()); if (~llListFindList(agentsInTranslation, (list)id)) { spkrLan = llList2String(agentsInTranslation, txPos + 1); recepID = llList2Integer(agentsInTranslation, lstliPos2 + 4); recepLan = llList2String(agentsInTranslation, lstliPos2 + 1); if (spkrLan == recepLan) { } else { lanpair = spkrLan + "|" + recepLan; if (~llListFindList(translationCache, (list)lanpair)) { lstliPos = llListFindList(translationCache, (list)lanpair); translationCache = llListReplaceList(translationCache, [llList2String(translationCache, lstliPos + 1) + "@" + (string)recepID], lstliPos + 1, lstliPos + 1); } else { translationCache = (translationCache=[]) + translationCache + [ lanpair, recepID, cacheTime ]; } } } if (translationCache != []) { // Process Requests tomali = [lstr, lanpair, recepID]; request = List2TypeSep(tomali); llMessageLinked(LINK_THIS,2346017,request,id); } } } } timer() { llSetTimerEvent(0.0); float timeElapsed; list newList; integer r; for (r = 0; r < llGetListLength(translationCache); r += 3) { timeElapsed = llGetTime() - llList2Float(translationCache, r + 2); if (timeElapsed < 10.0) { newList = (newList=[]) + newList + llList2List(translationCache, r, r + 2); } } translationCache = newList; newList = []; llMessageLinked(LINK_THIS,9876754,"",NULL_KEY); llSetTimerEvent(12.0); } } </lsl>

Translator <lsl> //(Mod made in Perry Mizin) //Universal Translator //Version 1.9.0 //December 25, 2009 //LSL Script copyright 2006-2009 by Hank Ramos //Translation Web Services powered by Google list paramtmpli; list recepientList; list requestedTranslations; list forli; list txli; list txli2; list lkli; string SEPARATOR = "|%&|"; string recepientLanguage; string languagePair; string speakerName; string speakerLanguage; string translatedText; string lantmpStr; string lmsg; string llan; string sendim; string request; string llid; key speakerID; key returnValue; key tid; integer tranObjects = TRUE; integer isMaster = 1; integer enabled = FALSE; integer httliPos; integer lmPos; integer httbusy; Translate(string chkmsg, list chkli) { returnValue = llHTTPRequest("http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" + llEscapeURL(chkmsg) + "&langpair=" + llList2String(chkli,2), [HTTP_METHOD, "GET", HTTP_MIMETYPE, "plain/text;charset=utf-8"], ""); if (returnValue != NULL_KEY) { requestedTranslations = (requestedTranslations=[]) + requestedTranslations + [returnValue]; requestedTranslations = (requestedTranslations=[]) + requestedTranslations + chkli; } else { llOwnerSay("ERROR ERROR ERROR ERROR ERRORR ERROOOORRRRR"); llOwnerSay("All Go!"); llSleep(25.0); } } string List2TypeSep(list input) { integer v; list output; for (v = 0; v < llGetListLength(input); v++) { output += [llGetListEntryType(input, v)] + llList2List(input, v, v); } return llDumpList2String(output, SEPARATOR); } list TypeSep2List(string inputstring) { integer w; list input2; list output2; input2 = llParseString2List(inputstring, [SEPARATOR], []); for (w = 0; w < llGetListLength(input2); w += 2) { if (llList2Integer(input2, w) == TYPE_INTEGER) output2 += (integer)llList2String(input2, w + 1); else if (llList2Integer(input2, w) == TYPE_FLOAT) output2 += (float)llList2String(input2, w + 1); else if (llList2Integer(input2, w) == TYPE_STRING) output2 += llList2String(input2, w + 1); else if (llList2Integer(input2, w) == TYPE_KEY) output2 += (key)llList2String(input2, w + 1); } return output2; } // default { state_entry() { httbusy=FALSE; llSetTimerEvent(1.0); } link_message(integer sender_num, integer num, string lstr, key lid) { if (num == 2346017) { if(httbusy==FALSE) { httbusy = TRUE; if (~llListFindList(txli2, (list)lstr)) { lmPos = llListFindList(txli2, (list)lstr); txli2 = llDeleteSubList(txli2, lmPos, lmPos + 1); txli = TypeSep2List(lstr); lmsg = llList2String(txli,0); llan = llList2String(txli,1); llid = llList2String(txli,2); lkli = [ llGetTime(), lid, llan, llid ]; Translate(lmsg,lkli); } else { txli = TypeSep2List(lstr); lmsg = llList2String(txli,0); llan = llList2String(txli,1); llid = llList2String(txli,2); lkli = [ llGetTime(), lid, llan, llid ]; Translate(lmsg,lkli); } } else { if (~llListFindList(txli2, (list)lstr)) { } else { txli2 = (txli2=[]) + txli2 + [lstr]; txli2 = (txli2=[]) + txli2 + [lid]; } } } } http_response(key request_id, integer status, list metadata, string body) { // Process Response Code if (~llListFindList(requestedTranslations, (list)request_id)) { // Translation httliPos = llListFindList(requestedTranslations, (list)request_id); speakerID = llList2Key(requestedTranslations, httliPos + 2); speakerName = llKey2Name(speakerID); if (llStringLength(speakerName) < 3) { speakerName = llList2String(llGetObjectDetails(speakerID, [OBJECT_NAME]), 0); } recepientList = llParseString2List(llList2String(requestedTranslations, httliPos + 4),["@"],[]); paramtmpli = llParseStringKeepNulls(llList2String(requestedTranslations, httliPos + 3),["|"],[]); speakerLanguage = llList2String(paramtmpli, 0); recepientLanguage = llList2String(paramtmpli, 1); languagePair = llDumpList2String(paramtmpli, ">>"); // Perform Text Cleanup translatedText = llGetSubString(body, llSubStringIndex(body, "{\"translatedText\":\"") + 18, llSubStringIndex(body, "}, \"responseDetails\"") -1); // Reverse order if Recepient Language is Hebrew or Arabic if ((recepientLanguage == "iw") || (recepientLanguage == "ar")) { lantmpStr = ""; integer q; for(q = llStringLength(translatedText);q >= 0; q--) { lantmpStr = (lantmpStr="") + lantmpStr + llGetSubString(translatedText, q, q); } translatedText = lantmpStr; } lantmpStr = speakerName + "(" + languagePair + "): " + translatedText; integer z; integer reclen = llGetListLength(recepientList); for (z = 0; z < reclen; z += 1) { forli = [llList2Integer(recepientList, z), speakerLanguage , lantmpStr]; sendim = List2TypeSep(forli); llMessageLinked(LINK_THIS,9827491,sendim,NULL_KEY); } requestedTranslations = llDeleteSubList(requestedTranslations, httliPos, httliPos + 4); httbusy = FALSE; llSetTimerEvent(1.0); } } timer() { llSetTimerEvent(0.0); if(txli2 != []) { integer m; integer lleng = llGetListLength(txli2); for (m = 0; m < lleng; m += 2) { request = llList2String(txli2, m); tid = llList2Key(txli2, m + 1); llMessageLinked(LINK_THIS,2346017,request,tid); } } float timeElapsed; list newList; integer r; for (r = 0; r < llGetListLength(requestedTranslations); r += 6) { timeElapsed = llGetTime() - llList2Float(requestedTranslations, r + 1); if (timeElapsed < 20.0) { newList = (newList=[]) + newList + llList2List(requestedTranslations, r, r + 5); } } requestedTranslations = newList; newList = []; llSetTimerEvent(5.0); } } </lsl>

IM handler <lsl> // www.lsleditor.org by Alphons van der Heijden (SL: Alphons Jano) //(Mod made in Perry Mizin) I want to succeed with this translator... ;) call me day or night //Universal Translator //Version 1.9.0 //December 25, 2009 //LSL Script copyright 2006-2009 by Hank Ramos //Translation Web Services powered by Google integer echo; list escape=["\\u0026#39;" , "'" , "\\u003d" , "=" , "\\u0026amp;" , "&" , "\\u0026lt;" , "<" , "\\u0026gt;" , ">" , "\\u0026quot;" , "\""]; string Escape(string text) { 

   integer i; string result;
   list t=llParseString2List(text,[],["\\u0026#39;","\\u003d","\\u0026amp;","\\u0026lt;","\\u0026gt;","\\u0026quot;"]);
   for(i=0;i<llGetListLength(t);i++)
   {
       integer ii=llListFindList(escape,[llList2String(t,i)]);
       if(ii!=-1)
       {
           t=llListReplaceList(t,[llList2String(escape,ii+1)],i,i);
       }
   }
   result=llDumpList2String(t,"");
   return result;

}

sendim(string mess, key target) { 

   if (llGetAgentSize(target) == ZERO_VECTOR)
   { }
   else
   {
       llInstantMessage(target, llUnescapeURL(mess));
       if(echo==TRUE)
       {
           llOwnerSay(mess + " @" + llKey2Name(target));
       }
   }

}


default { 

   state_entry()
   {
       echo=FALSE;
       llSleep(0.1);
   }

   link_message(integer sender_num, integer num, string str, key id)
   {
       if (num == 2334420)
       {
           sendim(Escape(str),id);
       }
       
       if (num == 8872932)
       {
           if(str=="echon")
           {
               echo=TRUE;
           }
           if(str=="echoff")
           {
               echo=FALSE;
           }
       }
   }

}

</lsl>

Retrieved from "https://wiki.secondlife.com/w/index.php?title=User_talk:Perry_Mizin&oldid=995572"