Difference between revisions of "User talk:Perry Mizin"

From Second Life Wiki
Jump to navigation Jump to search
Line 7: Line 7:


----
----
// txTxtLot = sendTextBatch
txTxtLot(integer txch, string txtxt)
{
    txtxt = llXorBase64StringsCorrect(llStringToBase64(txtxt), llStringToBase64(password));
    while (llStringLength(txtxt) > 508) //If string is 509 characters or longer
    {
        llSay(txch, llGetSubString(txtxt, 0, 507)); //send 508 character chunk
        txtxt = llGetSubString(txtxt, 508, -1);  //delete 508 character chunk
    }
    llSay(txch, txtxt);  //send out any remainder chunk or original chunk
    // Perry Mizin doesn´t understand the aim of the following if.   
    if (llStringLength(txtxt) == 508)
        llSay(txch, (string)(txch*4958654));
    llMessageLinked(LINK_ALL_CHILDREN, 6634934, (string)<0.25, 0, 0.25>, "");
}
 
// string rxTxtLot = receiveTextBatch
string rxTxtLot(key rxid, string rxmsg)
{
    integer rxliPos;
    string  rxtmpStr = "";
    while (~llListFindList(sayCache, (list)rxid))
    {
        rxliPos = llListFindList(sayCache, [rxid]);
        rxtmpStr = (rxtmpStr="") + rxtmpStr + llList2String(sayCache, rxliPos + 1);
        sayCache = llDeleteSubList(sayCache, rxliPos, rxliPos + 1);
    }
    rxmsg = rxtmpStr + rxmsg;
    rxmsg = llBase64ToString(llXorBase64StringsCorrect(rxmsg, llStringToBase64(password)));
    return rxmsg;
}
// string rxTxtLotPrv = receiveTextBatchPrivate
string rxTxtLotPrv(key prxid, string prxmsg)
{
    integer prxliPos;
    string  prxtmpStr = "";
    while (~llListFindList(sayCachePrivate, (list)prxid))
    {
        prxliPos = llListFindList(sayCachePrivate, [prxid]);
        prxtmpStr = (prxtmpStr="") + prxtmpStr + llList2String(sayCachePrivate, prxliPos + 1);
        sayCachePrivate = llDeleteSubList(sayCachePrivate, prxliPos, prxliPos + 1);
    }
    prxmsg = prxtmpStr + prxmsg;
    prxmsg = llBase64ToString(llXorBase64StringsCorrect(prxmsg, llStringToBase64(password)));
    return prxmsg;
}

Revision as of 06:45, 13 December 2009

Bienvenid@

Hola, soy Perry Mizin y este será mi humilde intento de contribucion al proyecto "traductor universal de google" creado por Hank Ramos. No os 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. Don´t laugh



// txTxtLot = sendTextBatch txTxtLot(integer txch, string txtxt) {

   txtxt = llXorBase64StringsCorrect(llStringToBase64(txtxt), llStringToBase64(password));
   while (llStringLength(txtxt) > 508) //If string is 509 characters or longer 
   {
       llSay(txch, llGetSubString(txtxt, 0, 507)); //send 508 character chunk
       txtxt = llGetSubString(txtxt, 508, -1);  //delete 508 character chunk
   }
   llSay(txch, txtxt);  //send out any remainder chunk or original chunk
   // Perry Mizin doesn´t understand the aim of the following if.    
   if (llStringLength(txtxt) == 508)
       llSay(txch, (string)(txch*4958654));
   llMessageLinked(LINK_ALL_CHILDREN, 6634934, (string)<0.25, 0, 0.25>, ""); 

}


// string rxTxtLot = receiveTextBatch string rxTxtLot(key rxid, string rxmsg) {

   integer rxliPos;
   string  rxtmpStr = "";
   while (~llListFindList(sayCache, (list)rxid))
   {
       rxliPos = llListFindList(sayCache, [rxid]);
       rxtmpStr = (rxtmpStr="") + rxtmpStr + llList2String(sayCache, rxliPos + 1);
       sayCache = llDeleteSubList(sayCache, rxliPos, rxliPos + 1);
   }
   rxmsg = rxtmpStr + rxmsg;
   rxmsg = llBase64ToString(llXorBase64StringsCorrect(rxmsg, llStringToBase64(password)));
   return rxmsg;

}

// string rxTxtLotPrv = receiveTextBatchPrivate string rxTxtLotPrv(key prxid, string prxmsg) {

   integer prxliPos;
   string  prxtmpStr = "";
   while (~llListFindList(sayCachePrivate, (list)prxid))
   {
       prxliPos = llListFindList(sayCachePrivate, [prxid]);
       prxtmpStr = (prxtmpStr="") + prxtmpStr + llList2String(sayCachePrivate, prxliPos + 1);
       sayCachePrivate = llDeleteSubList(sayCachePrivate, prxliPos, prxliPos + 1);
   }
   prxmsg = prxtmpStr + prxmsg;
   prxmsg = llBase64ToString(llXorBase64StringsCorrect(prxmsg, llStringToBase64(password)));
   return prxmsg;

}