2008年10月13日
ソース(2):【日本語対応メッセージボード v05】
>【日本語対応メッセージボード Japanese-MessageBoard v05】
のソースです。
以下は子プリムのスクリプトです。
見所は、getTextureUuid 関数の中にあるテクスチャのUUIDです。
16*16の文字が並んでいるテクスチャのUUIDです。
私の技術不足で、拡大するとガタガタが目立ちますが、
Secondlife内で自由に漢字を表示したい場合には役立つと思います。
これを作るためにGIMP2でBMPから透過tgaに変換するために
Script-Fuに手を出してみたものの時間切れになり、
結局はキー操作を記録再生するプログラムを使ったという思い出があります(^_^;)。
では、子プリムのスクリプトです。
ライセンスは、親プリムのスクリプトと一緒です。
のソースです。
以下は子プリムのスクリプトです。
見所は、getTextureUuid 関数の中にあるテクスチャのUUIDです。
16*16の文字が並んでいるテクスチャのUUIDです。
私の技術不足で、拡大するとガタガタが目立ちますが、
Secondlife内で自由に漢字を表示したい場合には役立つと思います。
これを作るためにGIMP2でBMPから透過tgaに変換するために
Script-Fuに手を出してみたものの時間切れになり、
結局はキー操作を記録再生するプログラムを使ったという思い出があります(^_^;)。
では、子プリムのスクリプトです。
ライセンスは、親プリムのスクリプトと一緒です。
//
//v03:5face.
//v04:comment_out llOwnerSay at init()
//v05:transparent_texture.,,
//
integer PANEL_ID = -1;
integer PRIM_PER_CHARACTOR = 5; //1prim-5face
integer INPRIM_LEFT_LEFT = 0;
integer INPRIM_LEFT_CENTER = 1;
integer INPRIM_CENTER = 2;
integer INPRIM_RIGHT_CENTER = 3;
integer INPRIM_RIGHT_RIGHT = 4;
key BLANK_TEXTURE = "5748decc-f629-461c-9a36-a35a221fe21f"; //blank image (100% white image with no alpha)
//key TRANSPARENT_TEXTURE = "f54a0c32-3cd1-d49a-5b4f-7b792bebc204"; //a 100% alpha (fully transparent) texture
vector FAIL_MAPPING_VECTOR = <-1.0, -1.0, -1.0>; //use when mapping fail.
integer xmax = 16;
integer ymax = 16;
integer isDebugMode = FALSE;
integer getPanelId()
{
string originalObjectDesc;
integer originalObjectDescLen;
integer resultId = -1;
integer timeupCounter = 0;
string tmpStr;
string tmpSubStr;
//
originalObjectDesc = llGetObjectDesc();
originalObjectDescLen = llStringLength(originalObjectDesc);
//llOwnerSay("getPanelId" + ": original ObjectDesc length = " + (string)originalObjectDescLen + ".");
if(originalObjectDescLen > 120) // MAX(127 charactor) - 6 - 1; //ID = 6 DIGITS.
{
llOwnerSay("getPanelId" + ": original ObjectDesc too long(" + (string)originalObjectDescLen + ")");
return -1;
}
//
llMessageLinked(LINK_THIS , 0, "getPanelId", NULL_KEY);
do
{
tmpStr = llGetObjectDesc();
tmpSubStr = llGetSubString(tmpStr, originalObjectDescLen, llStringLength(tmpStr));
if(llStringLength(tmpSubStr) > 0)
{
// check first character of gotten ID is Numeric?
if(llSubStringIndex("0123456789", llGetSubString(tmpSubStr, 0, 0)) >= 0)
{
resultId = (integer)tmpSubStr;
llSetObjectDesc(originalObjectDesc);
return resultId;
}
}
// no found id.
timeupCounter++;
llSleep(0.5);
}while(timeupCounter < 10);
llOwnerSay("getPanelId" + ": time up.");
llSetObjectDesc(originalObjectDesc);
return -1;
}
init()
{
//llResetScript(); //reset the historic low memory mark. //DO NOT DO IT cause script DONT RUN!!
//llOwnerSay("---init " + llGetObjectName() + " with " + llGetScriptName() + "---");
llSetTexture("5748decc-f629-461c-9a36-a35a221fe21f", ALL_SIDES); //Blank Texture
llOffsetTexture(1.0, 1.0, ALL_SIDES);
llRotateTexture(0.0, ALL_SIDES);
llScaleTexture(1.0, 1.0, ALL_SIDES);
//
PANEL_ID = getPanelId();
//llOwnerSay("---id = " + (string)PANEL_ID + ", " + llGetObjectName() + " with " + llGetScriptName() + "---");
//if(llGetListLength(unicodeTextureList) <= 0)
//{
// generateUnicodeTextureList();
//}
}
key getTextureUuid(integer utf16Code)
{
if((utf16Code < 0) || (0xFFFF < utf16Code))
{
//out of range.
//return texture "Blank Texture"
llSay(DEBUG_CHANNEL, "not include texture for " +(string)utf16Code + "(out of range)");
return BLANK_TEXTURE;
}
// using local-variable. because large-global-variable occurs "Stack-Heap Collision"
list unicodeTextureList = [];
integer tmpCode = utf16Code / 0x1000;
//0x0x
if(tmpCode == 0x0){
unicodeTextureList = [
"076bbe11-8311-986c-9d84-d7b9281f2809", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "" ];
}
else if(tmpCode == 0x1){
//0x1x
unicodeTextureList = [
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "" ];
}
else if(tmpCode == 0x2){
//0x2x
unicodeTextureList = [
"6c0c77b6-79db-fcc5-2648-4b10fbead8e8", "",
"e9fbf6fc-9b9e-fa19-87a2-b65d184eba13", "",
"ee7c6253-259c-124f-8f8a-6a36d006bc17", "0c8ed7f3-614c-33c8-ed0e-d9783ca0415f",
"c9d8e8c7-0164-d117-72f5-bc977e44259c", "",
"", "",
"", "",
"", "",
"", "" ];
}
else if(tmpCode == 0x3){
//0x3x
unicodeTextureList = [
"f05dd50c-92f1-3575-f00c-527bcb9b46c4", "",
"9c1abffe-b170-17bd-49db-4b2a620eae38", "e9b32e7f-4d36-8f87-fb6c-fe08ea947829",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "" ];
}
else if(tmpCode == 0x4){
//0x4x
unicodeTextureList = [
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"6d47803a-63dd-0a77-6121-8af1509fe608", "410c2ff0-8e7d-33a3-a272-2b2102a3fdde" ];
}
else if(tmpCode == 0x5){
//0x5x
unicodeTextureList = [
"26475026-d4d3-ba0b-2cf2-cc7cfc261e47", "c4979f93-c28d-0e85-e2f6-44168b4a5163",
"3850d8e3-5710-a982-6480-3cfcdc9aa04a", "8c846281-e4f6-3f8e-eb2e-7530a6fcf9be",
"a96eb8ea-a31e-191c-dbb2-f2df9ce96e4d", "4ba0d2f8-901a-6a9f-c2ca-bc645d4594dd",
"2e0d8ac5-1bb3-cf66-be11-ea0d1703a837", "80b3ea29-0ae7-9e89-f6f2-daf05ed8b5a2",
"6502974f-f38a-d2d7-e519-b9b2bf2ab683", "7b97c67e-578f-c9d5-864c-e32cc8e31a53",
"6a660ec6-66e1-67c0-e4e4-d1be4bda71bc", "19078e30-2df2-a28c-d179-2a08ada6326c",
"69aa65b5-b1ff-f39f-acd5-68d5e76c539c", "93d5a34b-edaf-fd16-8ec2-e43a3c71476a",
"c2706129-f10a-a22d-ccc1-8854f72b97b7", "183e1eeb-a4ec-04b6-8bbc-22786b91ebaf" ];
}
else if(tmpCode == 0x6){
//0x6x
unicodeTextureList = [
"62c6f23c-e624-8000-261a-35e3a2f96ec1", "9a905213-0aba-b59d-d322-6cc3449a07e4",
"8e269e54-55d7-1902-24a3-cc9f76794d47", "5cca0353-fe81-ced8-a9ac-2337fdec59bc",
"49881ca6-30b0-b9e0-57a1-ee2d3f11577f", "4dbf1a74-ffae-1daa-7d4f-319394bfe602",
"7a6f16cc-1c52-e72f-a462-8a3d5d15fcb3", "3f0b6802-0106-ccbc-bec0-ea8ea09820da",
"9da9d32c-d973-1f3d-104a-65641a78a4ba", "afc15eab-e42a-de6a-c78c-99f5de5fea82",
"d2dd4b0d-7560-ec44-579d-9938756f0cb3", "6b6be1f9-2020-fcbd-eed8-99918ec15898",
"198458aa-6f09-8a35-4e85-0fdfbb4a9ec0", "66a849b7-27c6-a244-9b5b-3c1ac821c54b",
"853f7712-adcd-c4d2-3850-82543d7ffa50", "269c5acc-1d2c-96b9-0304-5b7662441ab8" ];
}
else if(tmpCode == 0x7){
//0x7x
unicodeTextureList = [
"ef013738-c408-2dae-a512-fc9de5947902", "91d31c98-1560-bf9e-7b62-a4e93ac3af88",
"798754a9-0075-0577-e062-65af8a494cb6", "0d3ead69-f82b-ddb3-d74d-1829ab213fe3",
"14063115-cfc8-7849-2a77-69a343e6f476", "619c2793-f087-875c-eec6-90d71fd7d418",
"b7439ff0-f856-e617-87cc-6ddda9b2dcba", "971485a2-e4bd-a56c-212b-b1151b21a125",
"e38733fa-50ed-f52d-9824-f1709316d1ff", "51b71bef-7666-bef8-0a08-6a50e2239929",
"261fffc4-9ad7-3385-8ca0-5860f48cc2f3", "5f50f736-4b2e-e912-ae80-6db4252d1ebd",
"66139dea-753e-fabb-52c6-bfa107b29e2f", "12762919-4d3d-3f16-6165-b5440807ed44",
"21ec632a-0067-0293-05de-56caabbd95aa", "b00bf885-cd2f-0fe0-2aca-447987afd177" ];
}
else if(tmpCode == 0x8){
//0x8x
unicodeTextureList = [
"689a04e4-bb98-9b81-df04-16cec554eb43", "526eb118-7b2a-abea-3828-c5152db78f4d",
"1e4e6418-ca0b-bd0c-1437-2dedea7b518c", "652dda47-fb86-520a-25af-fd437d330554",
"fdc4e76c-18a5-2894-32c6-7d061af62572", "2ff4c3af-6336-c981-e6c0-e3aae3460038",
"f183be69-a91d-5024-3c96-ea4b12cb07bd", "3802a663-edff-730e-1ae0-23e7b6ec5fed",
"e7eda4a0-11c4-b8a4-74fa-d20f880a566c", "79f91bba-7073-379c-8eac-53fbb06cb26f",
"d6823eee-2901-ed37-e1f1-b2a9e1c1356b", "16fc3a2c-a223-068b-10ef-c8c85b52d5f7",
"22ae5233-66de-463b-862b-384870c582e6", "905c276c-1c49-11f3-56ab-05c5597c6281",
"dfc56ba3-f927-cf1c-f3c4-acf4f55ae3e3", "56ee1d93-8112-6627-aab2-7aaff4bbf5fb" ];
}
else if(tmpCode == 0x9){
//0x9x
unicodeTextureList = [
"5ad9d6b5-6be4-156b-e4eb-42c562d498b1", "2d330cd1-beab-5084-bcfe-dacfe1685632",
"a1ba5b50-0012-479c-a8b9-e31f6857cd61", "47ce3a46-9657-78e4-a445-63a061fca540",
"2e31a0b5-4b12-a583-1ec6-d46e11a8cbcb", "97944370-1a08-0f93-63af-e0ef4fbf0ea2",
"c5e18a11-7f93-20f9-c4c0-9bfebdf0b9de", "f1425639-26eb-ee95-059d-081985653aee",
"b2abb2bf-577d-87a4-8bfd-c6c82c153694", "03eefe4f-8f4b-5445-dd8c-ce6e10331363",
"1f836cd8-dfcb-407f-d39a-48ea8c5b5fe4", "ae0b5721-0da9-d345-98ce-064e8c8b0aab",
"0e05c2d5-031e-a774-f138-1d39f1bdfbaf", "77538262-b6fc-c0ff-247b-d45c871d4c31",
"b5a0805d-9293-7b54-f4eb-9ab19fc1c258", "137a0451-e9de-2484-8939-c767a84b24bf" ];
}
else if(tmpCode == 0xA){
//0xax
unicodeTextureList = [
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "" ];
}
else if(tmpCode == 0xB){
//0xbx
unicodeTextureList = [
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "" ];
}
else if(tmpCode == 0xC){
//0xcx
unicodeTextureList = [
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "" ];
}
else if(tmpCode == 0xD){
//0xdx
unicodeTextureList = [
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "" ];
}
else if(tmpCode == 0xE){
//0xex
unicodeTextureList = [
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "",
"", "" ];
}
else if(tmpCode == 0xF){
//0xfx
unicodeTextureList = [
"", "",
"", "",
"", "",
"", "",
"", "ede8dac7-e8d4-b429-b398-ae49a1719724",
"421d6279-9472-39e0-b485-5ec576783100", "",
"", "",
"", "4ad3c8f2-0f02-a848-f498-534fd42160b8" ];
}
key resultKey;
resultKey = llList2Key(unicodeTextureList, ((utf16Code / 0x0100) % 0x10));
if((resultKey == "") || (resultKey == NULL_KEY))
{
if(isDebugMode == TRUE)
{
llSay(DEBUG_CHANNEL, "not include texture for " +(string)utf16Code);
}
return (key)"5748decc-f629-461c-9a36-a35a221fe21f";
}
return resultKey;
}
vector utf16Code2pos(integer code)
{
integer x;
integer y;
vector pos;
//
code = code & 0xFF;
//
x = code % xmax;
if(x > xmax || x < 0)
{
x = 0;
}
pos.x = (1.0 / xmax) * ((xmax / 2) - x - 0.5);
pos.x *= (-1);
//
y = code / xmax; //xmax is. NOT ymax.
if(y > ymax || y < 0)
{
y = 0;
}
pos.y = (1.0 / ymax) * ((ymax / 2) - y - 0.5);
//
return pos;
}
integer inPrimPos2face(integer inPrimPos)
{
//for prism prim
if(inPrimPos == INPRIM_LEFT_LEFT ){ return 3; } //left-left
if(inPrimPos == INPRIM_LEFT_CENTER ){ return 7; } //left-center
if(inPrimPos == INPRIM_CENTER ){ return 4; } //center
if(inPrimPos == INPRIM_RIGHT_CENTER){ return 6; } //right-center
if(inPrimPos == INPRIM_RIGHT_RIGHT ){ return 1; } //right-right
return -1;
}
float inPrimPos2angle(integer inPrimPos)
{
//for prism prim
return 0.0;
}
// prism-center face is shrinked and shifted.
vector inPrimPos2prismOffset(integer inPrimPos)
{
if(inPrimPos == INPRIM_LEFT_LEFT ){ return <0.040, 0.0, 0.0>; } //left-left// <-0.255989, 0.0, 0.0>; } //left-left
if(inPrimPos == INPRIM_LEFT_CENTER ){ return <-0.005, 0.0, 0.0>; } //left-center
if(inPrimPos == INPRIM_CENTER ){ return <0.615, 0.0, 0.0>; } //center
if(inPrimPos == INPRIM_RIGHT_CENTER){ return <-0.004, 0.0, 0.0>; } //right-center
if(inPrimPos == INPRIM_RIGHT_RIGHT ){ return <-0.05, 0.0, 0.0>; } //right-right// <-0.740013, 0.0, 0.0>; } //right-right
return ZERO_VECTOR;
}
// prism-center face is shrinked and shifted.
vector inPrimPos2prismScale(integer inPrimPos)
{
if(inPrimPos == INPRIM_LEFT_LEFT ){ return <2.48, 1.0, 0.0>; } //left-left
if(inPrimPos == INPRIM_LEFT_CENTER ){ return <1.0, 1.0, 0.0>; } //left-center
if(inPrimPos == INPRIM_CENTER ){ return <-14.75, 1.0, 0.0>; } //center
if(inPrimPos == INPRIM_RIGHT_CENTER){ return <1.0, 1.0, 0.0>; } //right-center
if(inPrimPos == INPRIM_RIGHT_RIGHT ){ return <2.48, 1.0, 0.0>; } //right-right
return ZERO_VECTOR;
}
vector normalizeTextureOffset(vector offset)
{
//llOwnerSay("normalize input= " + (string)offset);
while(offset.x > 1.0){ offset.x = (2.0 - offset.x) * (-1);}
while(offset.x < -1.0){ offset.x = (1.0 + offset.x);}
while(offset.y > 1.0){ offset.y = (2.0 - offset.y) * (-1);}
while(offset.y < -1.0){ offset.x = (1.0 + offset.y);}
//llOwnerSay("normalize output=" + (string)offset);
return offset;
}
vector setCharactor(integer utf16Code, integer inPrimPos)
{
key textureUuid;
//range check.
if(utf16Code < 0)
{
llSay(DEBUG_CHANNEL, (string)utf16Code + "is code range error");
return <-1.0, -1.0, -1.0>;
}
if(PRIM_PER_CHARACTOR < inPrimPos)
{
llSay(DEBUG_CHANNEL, (string)inPrimPos + "is prim range error.(only " + (string)PRIM_PER_CHARACTOR + "charactor can set.");
return <-1.0, -1.0, -1.0>;
}
//
//get texture infomation.
//
integer faceNum = inPrimPos2face(inPrimPos);
//hide texture while change.
if(isDebugMode == FALSE)
{
llSetAlpha(0.0, faceNum);
}
//get texture uuid.
textureUuid = getTextureUuid(utf16Code);
llSetTexture(textureUuid, faceNum);
//return IF cannot mapping.
if(textureUuid == BLANK_TEXTURE)
{
//llSetAlpha(0.0, faceNum); //still transparent.
return FAIL_MAPPING_VECTOR;
}
//
//set texture to face.
//
//shift texture.
vector pos = utf16Code2pos(utf16Code);
pos = pos + inPrimPos2prismOffset(inPrimPos);
pos = normalizeTextureOffset(pos);
llOffsetTexture(pos.x, pos.y, faceNum);
//llOwnerSay("setCaractor " + (string)pos);
//rotete texture
float angle = inPrimPos2angle(inPrimPos);
llRotateTexture(angle, faceNum);
//streatch texture.
vector scale = <(1.0 / xmax), (1.0 / ymax), 0.0>;
vector prismScale = inPrimPos2prismScale(inPrimPos);
scale.x = scale.x * prismScale.x;
scale.y = scale.y * prismScale.y;
llScaleTexture(scale.x, scale.y, faceNum); // kakudai
if(isDebugMode == FALSE)
{
llSetAlpha(1.0, faceNum);
}
//for debug.
//llOwnerSay("offset=" + (string)pos + ", scale=" + (string)scale + ", prismOffset=" + (string)inPrimPos2prismOffset(inPrimPos));
return pos;
}
default
{
state_entry()
{
init();
}
on_rez(integer start_param)
{
init();
}
link_message(integer sender_num, integer charactorUtf16Code, string charactorPosStr, key id)
{
integer charactorPos;
charactorPos = (integer)charactorPosStr;
if((PANEL_ID * PRIM_PER_CHARACTOR <= charactorPos) &&
(charactorPos < (PANEL_ID + 1) * PRIM_PER_CHARACTOR) )
{
//llSetText((string)charactorUtf16Code, <1,1,1>, 1.0);
setCharactor(charactorUtf16Code, (charactorPos % PRIM_PER_CHARACTOR));
}
}
//touch_start(integer total_number)
//{
// llSay(0, "reset.");
// init();
//}
}
2008年10月12日
ソース(1):【日本語対応メッセージボード v05】
>【日本語対応メッセージボード Japanese-MessageBoard v05】
のソースです。
このオブジェクトは1つの親と複数の子の2種類から構成されています。
親プリムでユーザとのやりとりを行い、
子プリムで文字を表示しています。
仕様メモ：
・チャンネルは、いくつかの中から選択する。
たまたま重なったら移動する。という程度の自由度。
・メニューの説明文字列は日本語のみ、ボタンは英語のみ。
・タッチしてリッスンチャンネルを開けた後に、チャンネル番号を変えた場合は、
もう一度タッチしてリッスンチャンネルを開けなければメッセージを変更できない。これは仕様。
・グループモードの場合、オーナーであっても別グループがActiveの場合は、
タッチ等ができない。これは仕様。
【工夫】
・書き換え中は透明にして、書き換えを見せない(デバッグ中以外は)
・リセット時のデフォルト文字列は、途中に空白に見えるひらがな・カタカナを入れて
ロード時間をかせぐ
「-・-・-・-・-・-・-・-・-・-・」
-・- - - - - - - - - 」
U+002D 「-」
U+30FB (UTF-8:E3 83 BB) 「・」本当の中点 (ひらがな・カタカナ)
U+FF00 (UTF-8:EF BC 80) マッピング無し (全角英数字・半角カタカナ)
U+25AA (UTF-8:E2 96 AA) 「BLACK SMALL SQUARE」 ◆記号や●記号
U+26BF (UTF-8:E2 9A BF) マッピング無し ★記号や♪記号
urlEscapedString2List 関数は、
listenで受け取った文字列を、1文字ずつのリストにします。
RFC 2279 (3629 ではなく)を見ながら勉強がてら書いたものですが、
他のスクリプトにも転用できるんじゃないかと思います。
一部のデバッグ用スクリプトも残してありますので、参考までに。
以下は親プリムのスクリプトです。
ライセンスは
Creative Commons Attribution-Share Alike 3.0 Unported License
http://creativecommons.org/licenses/by/3.0/
です。
のソースです。
このオブジェクトは1つの親と複数の子の2種類から構成されています。
親プリムでユーザとのやりとりを行い、
子プリムで文字を表示しています。
仕様メモ：
・チャンネルは、いくつかの中から選択する。
たまたま重なったら移動する。という程度の自由度。
・メニューの説明文字列は日本語のみ、ボタンは英語のみ。
・タッチしてリッスンチャンネルを開けた後に、チャンネル番号を変えた場合は、
もう一度タッチしてリッスンチャンネルを開けなければメッセージを変更できない。これは仕様。
・グループモードの場合、オーナーであっても別グループがActiveの場合は、
タッチ等ができない。これは仕様。
【工夫】
・書き換え中は透明にして、書き換えを見せない(デバッグ中以外は)
・リセット時のデフォルト文字列は、途中に空白に見えるひらがな・カタカナを入れて
ロード時間をかせぐ
「-・-・-・-・-・-・-・-・-・-・」
-・- - - - - - - - - 」
U+002D 「-」
U+30FB (UTF-8:E3 83 BB) 「・」本当の中点 (ひらがな・カタカナ)
U+FF00 (UTF-8:EF BC 80) マッピング無し (全角英数字・半角カタカナ)
U+25AA (UTF-8:E2 96 AA) 「BLACK SMALL SQUARE」 ◆記号や●記号
U+26BF (UTF-8:E2 9A BF) マッピング無し ★記号や♪記号
urlEscapedString2List 関数は、
listenで受け取った文字列を、1文字ずつのリストにします。
RFC 2279 (3629 ではなく)を見ながら勉強がてら書いたものですが、
他のスクリプトにも転用できるんじゃないかと思います。
一部のデバッグ用スクリプトも残してありますので、参考までに。
以下は親プリムのスクリプトです。
ライセンスは
Creative Commons Attribution-Share Alike 3.0 Unported License
http://creativecommons.org/licenses/by/3.0/
です。
//v4: add dialog.
//v5:change dialog.
//initial message.
//"irasshaimase."
string INITIAL_MESSAGE = "-%E3%83%BB-%E3%83%BB-%E3%83%BB-%E3%83%BB-%EF%BC%80-%E3%83%BB-%E2%96%AA-%E3%83%BB-%E3%83%BB-%E2%9A%BF";
//
integer channelGather = 7;
integer CHANNEL_DIALOG = 42521; // dialog channel
integer LHandleGather;
integer LHandleDialog;
float LISTEN_GATHER_TIMEOUT = 90.0; //gather channel timeout(sec.)
//for dialog
string B_PRINT_MODE = "USER";
string B_CHANGE_MODE_ALL = "ALL";
string B_CHANGE_MODE_GROUP = "GROUP";
string B_CHANGE_MODE_OWNER = "OWNER";
//
//string B_CHANGE_CHANNEL = "CHANGE_CHANNNE";
string B_MODIFY_MESSAGE = "MESSAGE";
//
string B_PRINT_COLOR = "COLOR";
string B_CHANGE_COLOR_RED = "RED";
string B_CHANGE_COLOR_GREEN = "GREEN";
string B_CHANGE_COLOR_BLUE = "BLUE";
string B_CHANGE_COLOR_YELLOW = "YELLOW"; //kiiro
string B_CHANGE_COLOR_MAGENTA = "MAGENTA"; //murasaki
string B_CHANGE_COLOR_CYAN = "CYAN"; //mizuiro
string B_CHANGE_COLOR_WHITE = "WHITE";
string B_CHANGE_COLOR_BLACK = "BLACK";
//
string B_PRINT_CHANNEL = "CHANNEL";
string B_CHANGE_CHANNEL_7 = "7";
string B_CHANGE_CHANNEL_10 = "10";
string B_CHANGE_CHANNEL_17 = "17";
//
string B_HELP = "HELP";
string B_RESET = "RESET";
string B_DEBUG_INFO = "DEBUG_INFO";
string B_CLOSE = "CLOSE";
//string B_PRINT_NOTIFY_WRITE = "NOTIFY_WRITE";
//string B_CHANGE_NOTIFY_WRITE_TRUE = "NOTIFY_WRITE_TRUE";
//string B_CHANGE_NOTIFY_WRITE_FALSE = "NOTIFY_WRITE_FALSE";
//
integer MODE_ALL = 1;
integer MODE_GROUP = 2;
integer MODE_OWNER = 3;
integer isPublicMode = TRUE;
integer modifyMode = MODE_ALL;
//integer isNotifyWrite = FALSE;
//for DEBUG
integer startTime;
integer isDebugMode = FALSE;
//
//misc functions.
//
//--------
//see http : // wiki.secondlife.com/wiki/XTEA_Strong_Encryption_Implementation
//--------
//Function: ord
//Returns the index of an ASCII character
integer ord(string chr)
{
string ASCII = " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~";
if(llStringLength(chr) != 1) return -1;
if(chr == " ") return 32;
return llSubStringIndex(ASCII, chr);
}
integer atoi(string str)
{
integer i;
string chr;
integer num = 0;
//Define character string [0-F] for use in building the num.
string characters = "0123456789ABCDEF";
str = llToUpper(str);
//not care overflow!
for(i = 0; i < llStringLength(str); i++)
{
chr = llGetSubString(str, i, i);
num = num * 16 + llSubStringIndex(characters, chr);
}
//llOwnerSay("atoi(" + str + ")=" + (string)num);
return num;
}
//
//unicode process functions.
//
list urlEscapedString2List(string escapedStr)
{
integer i;
string chr;
list resultList = [];
integer len;
integer num1;
integer num2;
integer num3;
integer num4;
len = llStringLength(escapedStr);
i = 0;
while( i < len)
{
chr = llGetSubString(escapedStr, i, i);
if(chr != "%")
{
resultList = resultList + ord(chr); // not atoi
i = i + 1; //process 1 charactor.
}
else
{
// get first escaped num.
num1 = atoi(llGetSubString(escapedStr, i+1, i+1)) * 16 +
atoi(llGetSubString(escapedStr, i+2, i+2));
i = i + 3; //process 3 charactor.
// get octet type.
if((num1 & 0x80) == 0) //0xxxxxxx -> 1 octet.(ex. %20, etc..)
{ //0000 0000 to 0000 007F(U+0000 to U+007F)
resultList = resultList + num1;
}
else if((num1 & 0x20) == 0) //110xxxxx 10xxxxxx -> 2 octet.
{ //00000080 to 000007FF
num2 = atoi(llGetSubString(escapedStr, i+1, i+1)) * 16 +
atoi(llGetSubString(escapedStr, i+2, i+2));
i = i + 3; //process 3 charactor.
resultList = resultList +
(integer)(((num1 & 0x1F)<<6) +
(num2 & 0x3F) );
}
else if((num1 & 0x10) == 0) //1110xxxx 10xxxxxx 10xxxxxx -> 3 octet.
{ //0000 0800 to 0000 FFFF
num2 = atoi(llGetSubString(escapedStr, i+1, i+1)) * 16 +
atoi(llGetSubString(escapedStr, i+2, i+2));
i = i + 3; //process 3 charactor.
num3 = atoi(llGetSubString(escapedStr, i+1, i+1)) * 16 +
atoi(llGetSubString(escapedStr, i+2, i+2));
i = i + 3; //process 3 charactor.
resultList = resultList +
(integer)(((num1 & 0x0F)<<12) +
((num2 & 0x3F)<<6 ) +
(num3 & 0x3F) );
}
else if((num1 & 0x08) == 0) //11110xxx 10xxxxxx 10xxxxxx 10xxxxxx -> 4 octet.
{ //0001 0000 to 0010 FFFF
num2 = atoi(llGetSubString(escapedStr, i+1, i+1)) * 16 +
atoi(llGetSubString(escapedStr, i+2, i+2));
i = i + 3; //process 3 charactor.
num3 = atoi(llGetSubString(escapedStr, i+1, i+1)) * 16 +
atoi(llGetSubString(escapedStr, i+2, i+2));
i = i + 3; //process 3 charactor.
num4 = atoi(llGetSubString(escapedStr, i+1, i+1)) * 16 +
atoi(llGetSubString(escapedStr, i+2, i+2));
i = i + 3; //process 3 charactor.
resultList = resultList +
(integer)(((num1 & 0x07)<<18) +
((num2 & 0x3F)<<12) +
((num3 & 0x3F)<<6 ) +
(num4 & 0x3F) );
}
else
{
debugOwnerSay("invalid.[" + (string)i + "]");
}
}
}
return resultList;
}
//
//color change functions.
//@see messagBoard-chile-v05.lsl function "inPrimPos2face".
//
setChildColor(vector color)
{
llSetLinkColor(LINK_ALL_CHILDREN, color, 3); //left-left
llSetLinkColor(LINK_ALL_CHILDREN, color, 7); //left-center
llSetLinkColor(LINK_ALL_CHILDREN, color, 4); //center
llSetLinkColor(LINK_ALL_CHILDREN, color, 6); //right-center
llSetLinkColor(LINK_ALL_CHILDREN, color, 1); //right-right
}
//
//utility functions.
//
debugOwnerSay(string message)
{
if(isDebugMode == TRUE)
{
llOwnerSay(message);
}
}
userSay(integer mode, string message)
{
if((mode == MODE_ALL) || (mode == MODE_GROUP))
{
llSay(0, message);
}
else
{
llOwnerSay(message);
}
}
integer isModifiable(key userId, integer mode)
{
//for debug.
debugOwnerSay("function isModifiable:");
debugOwnerSay("userId=" + (string)userId);
debugOwnerSay("owner=" + (string)llGetOwner());
debugOwnerSay("mode=" + (string)mode);
//check permission
integer isModifiableFlag = FALSE;
if(mode == MODE_ALL)
{
isModifiableFlag = TRUE;
//debugOwnerSay("modify OK. because MODE_ALL.");
}
else if(mode == MODE_GROUP)
{
if(llSameGroup(userId) == TRUE)
{
isModifiableFlag = TRUE;
//debugOwnerSay("modify OK. because belongs same group.");
}
//else
//{
// debugOwnerSay("modify NG. because group not same.");
//}
}
else if(mode == MODE_OWNER)
{
if(userId == llGetOwner())
{
isModifiableFlag = TRUE;
//debugOwnerSay("modify OK. because owner.");
}
//else
//{
// debugOwnerSay("modify NG. because not owner.");
//}
}
return isModifiableFlag;
}
//
//initial function.
//
init()
{
llOwnerSay("---init " + llGetObjectName() + " with " + llGetScriptName() + "---");
//gather lisner.
if(LHandleGather != 0)
{
llListenRemove(LHandleGather);
}
channelGather = 7;
LHandleGather = llListen(channelGather, "", "", "");
llListenControl(LHandleGather, TRUE);
llSetText("", <1.0, 1.0, 1.0>, 1.0);
//DIALOG lisner.
if(LHandleDialog != 0)
{
llListenRemove(LHandleDialog);
}
LHandleDialog = llListen(CHANNEL_DIALOG, "", "", "");
llListenControl(LHandleDialog, FALSE);
// initialize startTime.
startTime = llGetUnixTime();
// set default message.
list initialMessgeList;
integer i;
initialMessgeList = urlEscapedString2List(INITIAL_MESSAGE);
//debugOwnerSay(llList2CSV(initialMessgeList));
for(i = 0; i < llGetListLength(initialMessgeList); i++)
{
llMessageLinked(LINK_ALL_CHILDREN, llList2Integer(initialMessgeList, i), (string)i, NULL_KEY);
}
setChildColor(<1.0, 1.0, 1.0>);
modifyMode = MODE_ALL;
}
//
//main function.
//
default
{
on_rez(integer start_param)
{
init();
}
state_entry()
{
init();
}
touch_start(integer total_number)
{
//check permission
integer isModifiableFlag;
isModifiableFlag = isModifiable(llDetectedKey(0), modifyMode);
//put menu.
if(isModifiableFlag == TRUE)
{
string msg_body;
msg_body = "\n" + llUnescapeURL("%E3%83%A1%E3%82%A4%E3%83%B3%E3%83%A1%E3%83%8B%E3%83%A5%E3%83%BC%E3%81%A7%E3%81%99%E3%80%82"); //mein menu- desu.
msg_body = msg_body + "\n" + llUnescapeURL("%E6%93%8D%E4%BD%9C%E3%82%92%E9%81%B8%E3%82%93%E3%81%A7%E3%81%8F%E3%81%A0%E3%81%95%E3%81%84%E3%80%82"); //sousa wo erande kudasai.
llDialog(llDetectedKey(0), msg_body, [B_PRINT_CHANNEL, B_RESET, B_HELP, B_MODIFY_MESSAGE, B_PRINT_MODE, B_PRINT_COLOR], CHANNEL_DIALOG);
llListenControl(LHandleDialog, TRUE); //start listen dialog.
}
else
{
string msg_body;
if(modifyMode == MODE_ALL)
{
msg_body = msg_body + "ALL";
}
else if(modifyMode == MODE_GROUP)
{
msg_body = msg_body + "GROUP";
}
else
{
msg_body = msg_body + "OWNER";
}
llSay(0, "now " + msg_body + " mode.");
llSay(0, llKey2Name(llDetectedKey(0)) + ", you can not change this message board.");
}
}
listen(integer channel, string name, key avatorId, string message)
{
if(channel == channelGather)
{
//check permission
integer isModifiableFlag;
isModifiableFlag = isModifiable(avatorId, modifyMode);
// change charactor.
if(isModifiableFlag == TRUE)
{
integer i;
//chop escaped string each charactor.
list list1;
message = message + " ."; //with 32 blank and dot.
list1 = urlEscapedString2List(llEscapeURL(message));
debugOwnerSay(llList2CSV(list1));
//send charactor code(UTF-16) by 1 charactor to childlen.
for(i = 0; i < llGetListLength(list1); i++)
{
llMessageLinked(LINK_ALL_CHILDREN, llList2Integer(list1, i), (string)i, NULL_KEY);
}
//llSetText(message, <1.0, 1.0, 1.0>, 1.0);
//close Listen handler for gather for gather
llListenControl(LHandleGather, FALSE);
//disable lisnten timeout
llSetTimerEvent(0.0);
}
else
{
debugOwnerSay("channel is open. but [" + llKey2Name(avatorId) + "] cannot change this message_board.");
}
}
else if(channel == CHANNEL_DIALOG)
{
// process DIALOG.
if(isModifiable(avatorId, modifyMode) == TRUE)
{
debugOwnerSay("message=" + message);
if (message == B_RESET)
{
//initialize.
llListenControl(LHandleDialog, FALSE); //pause listen dialog.
init();
}
//
//HELP MESSAGE put
//
else if(message == B_HELP)
{
userSay(modifyMode, "HELP: " + llGetObjectName());
//userSay(modifyMode, "say message to channel " + (string)channelGather + " what you want print .");
userSay(modifyMode, llUnescapeURL("%e8%a1%a8%e7%a4%ba%e3%81%97%e3%81%9f%e3%81%84%e3%83%a1%e3%83%83%e3%82%bb%e3%83%bc%e3%82%b8%e3%82%92%e3%83%81%e3%83%a3%e3%83%b3%e3%83%8d%e3%83%ab") //hyoujisitai messeji wo
+ " " +(string)channelGather + " "
+ llUnescapeURL("%E3%81%A7%E7%99%BA%E8%A8%80%E3%81%97%E3%81%A6%E3%81%8F%E3%81%A0%E3%81%95%E3%81%84%E3%80%82")); //de hatugen site kudasai.
//userSay(modifyMode, "example: " + "/" + (string)channelGather + " " + "hello! ");
userSay(modifyMode, llUnescapeURL("%e4%be%8b") + ": " + "/" + (string)channelGather + " "
+ llUnescapeURL("%e6%9c%ac%e6%97%a5%e3%81%af%e7%89%b9%e5%a3%b2%e6%97%a5%e3%81%a7%e3%81%99%ef%bc%81"));
//llDialog(llGetOwner(), "show help at CHAT HISTORY", ["OK"], CHANNEL_DIALOG);
//throw notecard to avator.
string goods;
goods = llGetInventoryName(INVENTORY_NOTECARD, 0);
llGiveInventory(avatorId, goods);
}
//
//MESSAGE modify request
//
else if(message == B_MODIFY_MESSAGE)
{
string msg_body;
msg_body = "\n" + llUnescapeURL("%E3%83%81%E3%83%A3%E3%83%B3%E3%83%8D%E3%83%AB"); //tyanneru
msg_body = msg_body + " " + (string)channelGather + " ";
msg_body = msg_body + llUnescapeURL("%E3%81%A7%E7%99%BA%E8%A8%80%E3%81%97%E3%81%A6%E3%81%8F%E3%81%A0%E3%81%95%E3%81%84%E3%80%82"); //de hatugen site kudasai
msg_body = msg_body + "\n";
msg_body = msg_body + llUnescapeURL("%E7%99%BA%E8%A8%80%E3%81%97%E3%81%9F%E5%86%85%E5%AE%B9%E3%81%8C%E3%83%A1%E3%83%83%E3%82%BB%E3%83%BC%E3%82%B8%E3%83%9C%E3%83%BC%E3%83%89%E3%81%AB%E8%A1%A8%E7%A4%BA%E3%81%95%E3%82%8C%E3%81%BE%E3%81%99%E3%80%82"); //hatugen sita naiyou ga message bo-do ni hyouji saremasu.
//msg_body = "say message to channel " + (string)channelGather + " what you want print .";
llDialog(avatorId, msg_body, [B_CLOSE], CHANNEL_DIALOG);
//open Listen handler for gather
llListenControl(LHandleGather, TRUE);
//set lisnten timeout
llSetTimerEvent(LISTEN_GATHER_TIMEOUT);
}
//
//MODIFY_MODE change
//
else if(message == B_PRINT_MODE)
{
//print mode to DIALOG.
string msg_body;
//msg_body = "everyone can change message if turn ON\n";
msg_body = llUnescapeURL("%E3%83%A1%E3%83%83%E3%82%BB%E3%83%BC%E3%82%B8%E5%A4%89%E6%9B%B4%E5%8F%AF%E8%83%BD%E3%81%AA%E3%83%A6%E3%83%BC%E3%82%B6%E3%81%AE%E7%A8%AE%E9%A1%9E%E3%82%92%E9%81%B8%E3%82%93%E3%81%A7%E3%81%8F%E3%81%A0%E3%81%95%E3%81%84%E3%80%82"); //message henkuo kanouna yu-za no shurui wo erande kudasai.
msg_body = msg_body + llUnescapeURL("ALL%e3%81%ab%e3%81%99%e3%82%8b%e3%81%a8%e8%aa%b0%e3%81%a7%e3%82%82%e3%83%a1%e3%83%83%e3%82%bb%e3%83%bc%e3%82%b8%e5%a4%89%e6%9b%b4%e5%8f%af%e8%83%bd%e3%81%ab%e3%81%aa%e3%82%8a%e3%81%be%e3%81%99%e3%80%82") + "\n";
msg_body = msg_body + llUnescapeURL("%E7%8F%BE%E5%9C%A8%E3%81%AE%E3%83%A2%E3%83%BC%E3%83%89%E3%81%AF"); //genzai no mo-do ha
if(modifyMode == MODE_ALL)
{
msg_body = msg_body + " ALL ";
}
else if(modifyMode == MODE_GROUP)
{
msg_body = msg_body + " GROUP ";
}
else
{
msg_body = msg_body + " OWNER ";
}
msg_body = msg_body + llUnescapeURL("%E3%81%A7%E3%81%99%E3%80%82") + "\n"; //desu.
llDialog(avatorId, msg_body, [B_CHANGE_MODE_ALL, B_CHANGE_MODE_GROUP, B_CHANGE_MODE_OWNER], CHANNEL_DIALOG);
llListenControl(LHandleDialog, TRUE); //start listen dialog.
}
else if(message == B_CHANGE_MODE_ALL)
{
llListenControl(LHandleDialog, FALSE); //pause listen dialog.
modifyMode = MODE_ALL;
string msg_body;
//msg_body = "\nchange public mode to PUBLIC\n";
msg_body = "\n" + "ALL " + llUnescapeURL("%e3%81%ab%e8%a8%ad%e5%ae%9a%e3%81%97%e3%81%be%e3%81%97%e3%81%9f%e3%80%82") + "\n";
msg_body = msg_body + llUnescapeURL("%e8%aa%b0%e3%81%a7%e3%82%82%e3%83%a1%e3%83%83%e3%82%bb%e3%83%bc%e3%82%b8%e5%a4%89%e6%9b%b4%e5%8f%af%e8%83%bd%e3%81%a7%e3%81%99%e3%80%82");
//llOwnerSay(msg_body);
llDialog(avatorId, msg_body, [B_CLOSE], CHANNEL_DIALOG);
}
else if(message == B_CHANGE_MODE_GROUP)
{
llListenControl(LHandleDialog, FALSE); //pause listen dialog.
modifyMode = MODE_GROUP;
string msg_body;
//msg_body = "\nchange public mode to GROUP\n";
msg_body = "\n" + "GROUP " + llUnescapeURL("%e3%81%ab%e8%a8%ad%e5%ae%9a%e3%81%97%e3%81%be%e3%81%97%e3%81%9f%e3%80%82") + "\n";
msg_body = msg_body + llUnescapeURL("GRUOP %E3%83%A1%E3%83%B3%E3%83%90%E3%83%BC%E3%81%A0%E3%81%91%E3%81%8C%E3%83%A1%E3%83%83%E3%82%BB%E3%83%BC%E3%82%B8%E5%A4%89%E6%9B%B4%E5%8F%AF%E8%83%BD%20%E3%81%A7%E3%81%99%E3%80%82");
//llOwnerSay(msg_body);
llDialog(avatorId, msg_body, [B_CLOSE], CHANNEL_DIALOG);
}
else if(message == B_CHANGE_MODE_OWNER)
{
llListenControl(LHandleDialog, FALSE); //pause listen dialog.
modifyMode = MODE_OWNER;
string msg_body;
//msg_body = "\nchange public mode to OWNER\n";
msg_body = "\n" + "OWNER " + llUnescapeURL("%e3%81%ab%e8%a8%ad%e5%ae%9a%e3%81%97%e3%81%be%e3%81%97%e3%81%9f%e3%80%82") + "\n";
msg_body = msg_body + llUnescapeURL("%e3%82%aa%e3%83%bc%e3%83%8a%e3%83%bc%e3%81%a0%e3%81%91%e3%81%8c%e3%83%a1%e3%83%83%e3%82%bb%e3%83%bc%e3%82%b8%e5%a4%89%e6%9b%b4%e5%8f%af%e8%83%bd%e3%81%a7%e3%81%99%e3%80%82");
//llOwnerSay(msg_body);
llDialog(avatorId, msg_body, [B_CLOSE], CHANNEL_DIALOG);
}
//
//COLOR change
//
else if(message == B_PRINT_COLOR)
{
//print color to DIALOG.
string msg_body;
list colorList = [B_CHANGE_COLOR_YELLOW, B_CHANGE_COLOR_MAGENTA, B_CHANGE_COLOR_CYAN, B_CHANGE_COLOR_RED, B_CHANGE_COLOR_GREEN, B_CHANGE_COLOR_BLUE, B_CHANGE_COLOR_WHITE, B_CHANGE_COLOR_BLACK];
//msg_body = "you can change charactor color.\n choice below:";
msg_body = "\n" + llUnescapeURL("%E8%A1%A8%E7%A4%BA%E3%81%99%E3%82%8B%E6%96%87%E5%AD%97%E3%81%AE%E8%89%B2%E3%82%92%E5%A4%89%E6%9B%B4%E3%81%97%E3%81%BE%E3%81%99%E3%80%82");
msg_body = msg_body + "\n" + llUnescapeURL("%E8%89%B2%E3%82%92%E9%81%B8%E3%82%93%E3%81%A7%E3%81%8F%E3%81%A0%E3%81%95%E3%81%84%E3%80%82");
llDialog(avatorId, msg_body, colorList, CHANNEL_DIALOG);
}
else if((message == B_CHANGE_COLOR_WHITE)
|| (message == B_CHANGE_COLOR_BLACK)
|| (message == B_CHANGE_COLOR_RED)
|| (message == B_CHANGE_COLOR_GREEN)
|| (message == B_CHANGE_COLOR_BLUE)
|| (message == B_CHANGE_COLOR_YELLOW)
|| (message == B_CHANGE_COLOR_MAGENTA)
|| (message == B_CHANGE_COLOR_CYAN) )
{
llListenControl(LHandleDialog, FALSE); //pause listen dialog.
vector color;
//
if(message == B_CHANGE_COLOR_WHITE ){ color = <1.0, 1.0, 1.0>; }
else if(message == B_CHANGE_COLOR_BLACK ){ color = <0.0, 0.0, 0.0>; }
else if(message == B_CHANGE_COLOR_RED ){ color = <1.0, 0.0, 0.0>; }
else if(message == B_CHANGE_COLOR_GREEN ){ color = <0.0, 1.0, 0.0>; }
else if(message == B_CHANGE_COLOR_BLUE ){ color = <0.0, 0.0, 1.0>; }
else if(message == B_CHANGE_COLOR_YELLOW ){ color = <1.0, 1.0, 0.0>; }
else if(message == B_CHANGE_COLOR_MAGENTA){ color = <1.0, 0.0, 1.0>; }
else if(message == B_CHANGE_COLOR_CYAN ){ color = <0.0, 1.0, 1.0>; }
else { color = <1.0, 1.0, 1.0>; }
//
setChildColor(color);
string msg_body;
msg_body = "\n" + llUnescapeURL("%E8%89%B2%E3%82%92%20") + message; //irowo
msg_body = msg_body + llUnescapeURL("%20%E3%81%AB%E8%A8%AD%E5%AE%9A%E3%81%97%E3%81%BE%E3%81%97%E3%81%9F%E3%80%82"); //ni settei simasita.
llDialog(avatorId, msg_body, [B_PRINT_COLOR], CHANNEL_DIALOG);
llListenControl(LHandleDialog, TRUE); //start listen dialog.
}
//
//CHANNEL change
//
else if(message == B_PRINT_CHANNEL)
{
//print channel to DIALOG.
string msg_body;
//msg_body = "channel is " + (string)channelGather + ".";
//msg_body = msg_body + "\n" + "SELECT channel.";
msg_body = "\n" + llUnescapeURL("%E7%8F%BE%E5%9C%A8%E3%81%AE%E3%83%81%E3%83%A3%E3%83%B3%E3%83%8D%E3%83%AB%E7%95%AA%E5%8F%B7%E3%81%AF"); //genzai no tyannneru ha
msg_body = msg_body + " " + (string)channelGather + " " + llUnescapeURL("%E3%81%A7%E3%81%99%E3%80%82"); //desu.
msg_body = msg_body + "\n" + llUnescapeURL("%E3%83%81%E3%83%A3%E3%83%B3%E3%83%8D%E3%83%AB%E7%95%AA%E5%8F%B7%E3%82%92%E9%81%B8%E3%82%93%E3%81%A7%E3%81%8F%E3%81%A0%E3%81%95%E3%81%84%E3%80%82"); //channneru wo erande kudasai .
llDialog(avatorId, msg_body, [B_CHANGE_CHANNEL_7, B_CHANGE_CHANNEL_10, B_CHANGE_CHANNEL_17], CHANNEL_DIALOG);
llListenControl(LHandleDialog, TRUE); //start listen dialog.
}
else if((message == B_CHANGE_CHANNEL_7) || (message == B_CHANGE_CHANNEL_10) || (message == B_CHANGE_CHANNEL_17))
{
llListenControl(LHandleDialog, FALSE); //pause listen dialog.
//remove old gather channel.
llListenControl(LHandleGather, FALSE);
llListenRemove(LHandleGather);
//open new gather channel.
channelGather = (integer)message;
LHandleGather = llListen(channelGather, "", "", "");
llListenControl(LHandleGather, FALSE); //close channel while not get request.
string msg_body;
msg_body = "\n" + llUnescapeURL("%E3%83%81%E3%83%A3%E3%83%B3%E3%83%8D%E3%83%AB%E7%95%AA%E5%8F%B7%E3%82%92"); //tyanneru bangou wo
msg_body = msg_body + " " + (string)channelGather + " ";
msg_body = msg_body + llUnescapeURL("%E3%81%AB%E8%A8%AD%E5%AE%9A%E3%81%97%E3%81%BE%E3%81%97%E3%81%9F%E3%80%82"); //ni settei simasita.
//llOwnerSay(msg_body);
llDialog(avatorId, msg_body, [B_CLOSE], CHANNEL_DIALOG);
}
//
//DEBUG INFO for OWNER
//
else if(message == B_DEBUG_INFO) //say "DEBUG" to ChANNEL_DIALOG when dialog print on screen by owner.
{
//print debug infomation.
userSay(modifyMode, "---debug infomation start---");
userSay(modifyMode, "now = " + (string)llGetUnixTime() + " unixtime.");
userSay(modifyMode, "reset time at " + (string)startTime + " unixtime.");
userSay(modifyMode, "listen channel = " + (string)channelGather);
userSay(modifyMode, "dialog channel = " + (string)CHANNEL_DIALOG);
if(modifyMode == MODE_ALL)
{
userSay(modifyMode, "modifyMode == ALL");
}
else if(modifyMode == MODE_GROUP)
{
userSay(modifyMode, "modifyMode == GROUP");
}
else
{
userSay(modifyMode, "modifyMode == OWNER");
}
userSay(modifyMode, "UUID_A =" + (string)llGetOwner()); //Owner UUID.
userSay(modifyMode, "UUID_B =" + (string)llGetKey()); //Object UUID.
userSay(modifyMode, "freeMemory =" + (string)llGetFreeMemory());
userSay(modifyMode, "---debug infomation end ---");
}
//
//CLOSE_BUTTON
//
else if(message == B_CLOSE)
{
//only close channel.
llListenControl(LHandleDialog, FALSE); //pause listen dialog.
}
}
else //someone say in DIALOG channel who have no permission.
{
llOwnerSay("DIALOG channel " + (string)CHANNEL_DIALOG + " access by " + llKey2Name(avatorId));
}
}
//else
//{
// llOwnerSay("other channel");
//}
}
timer()
{
//close Listen handler for gather
llListenControl(LHandleGather, FALSE);
userSay(modifyMode, "timeout. message channel closed.");
//disable lisnten timeout
llSetTimerEvent(0.0);
}
}
2008年10月12日
説明書:【日本語対応メッセージボード v05】
>【日本語対応メッセージボード Japanese-MessageBoard v05】
のソース公開にあたり、まずは説明書を公開します。
実物はこちらのエントリを参照ください。
http://march.slmame.com/e5054.html
http://march.slmame.com/e4968.html
では、説明書です。
---
【日本語対応メッセージボード Japanese-MessageBoard v05】 説明書
このたびは「日本語対応メッセージボード」を
お求めいただき、ありがとうございます。
●構成
本品には以下が含まれています。
・【日本語対応メッセージボード】 本体
・【日本語対応メッセージボード】 説明書(このノートカードです)
●使い方
１．スクリプト動作が可能な土地に置いてください。
２．タッチして表示されるメニューで「MESSAGE」を選んでください。
３．ダイヤログボックスで指示されたチャンネルで発言してください。
発言内容がメッセージボードに表示されます。
発言例：「/7 こんにちは」
●メニューについて
・オーナーがタッチすると、メニューが表示されます。
[MESSAGE] ・・メッセージを変更する際に使用します。
表示されたダイヤログで指示されたチャンネルで発言してください。
いたずら防止のため、チャンネルは90秒で閉じられます。
90秒以上経過した場合は、再度タッチしてから発言してください。
[USER]・・・・操作可能なユーザの種類を切り替えます。デフォルトの設定は「ALL」です。
・[ALL]にすると、誰でもメッセージ変更可能です。
・[GROUP]にすると、設定されたグループメンバのみがメッセージ変更可能です。
あらかじめ日本語対応メッセージボードを編集(Edit)して、グループを
設定してください。
操作するユーザは、日本語対応メッセージボードに設定されたグループを
アクティブにしてください。
(アクティブになると、アバターの頭上に表示されるアバター名の上に
グループ名が表示されます)
・[OWNER]にすると、所有者のみがメッセージ変更可能です。
[COLOR] ・・・文字の色を変更します。
指定できる色は、WHITE,BLACK,RED,GREEN,BLUE,YELLOW,MAGENTA,CYANです。
BLACKを選ぶと文字が見えませんのでご注意ください。
[CHANNEL] ・・メッセージを変更するためのチャンネル番号が、
既に別なオブジェクトで使用されていた場合に使用します。
チャンネル番号は3種類から選択可能ができます。
デフォルトのチャンネル番号は7です。
[RESET] ・・・設定をデフォルトに戻し、デフォルトのメッセージを表示します
[HELP]・・・・使い方の簡単な説明をオーナー宛てに発言します
詳しい説明をノートカードとして渡します。
●制限事項
・一部の記号は表示されず、空白として表示されます。
●謝辞
・このメッセージボードのフォントには、
「さざなみゴシック」を使用しています。
また、記号の一部には「ふい字 v2.9」を使用しています。
関係者の皆様に感謝します。
●カスタマイズ
・Modify可能な設定にしてありますので、大きさや概観の一部をカスタマイズ可能です。
・元に戻す機能は備えておりませんので、カスタマイズは自己責任で行ってください。
・文字が表示されるパネルの後ろにあるボードは、メッセージ書き換えなどに
必要な部品ですので、消さないでください。
・動作不良時の解析用に、現在の設定内容を出力する機能が備えてあります。
通常は使用する必要はありません。
●作者
作者:march Korda
・ご意見・ご要望などがございましたら作者までIMをお願いします。
今後の活動の参考にさせていただきます。
のソース公開にあたり、まずは説明書を公開します。
実物はこちらのエントリを参照ください。
http://march.slmame.com/e5054.html
http://march.slmame.com/e4968.html
では、説明書です。
---
【日本語対応メッセージボード Japanese-MessageBoard v05】 説明書
このたびは「日本語対応メッセージボード」を
お求めいただき、ありがとうございます。
●構成
本品には以下が含まれています。
・【日本語対応メッセージボード】 本体
・【日本語対応メッセージボード】 説明書(このノートカードです)
●使い方
１．スクリプト動作が可能な土地に置いてください。
２．タッチして表示されるメニューで「MESSAGE」を選んでください。
３．ダイヤログボックスで指示されたチャンネルで発言してください。
発言内容がメッセージボードに表示されます。
発言例：「/7 こんにちは」
●メニューについて
・オーナーがタッチすると、メニューが表示されます。
[MESSAGE] ・・メッセージを変更する際に使用します。
表示されたダイヤログで指示されたチャンネルで発言してください。
いたずら防止のため、チャンネルは90秒で閉じられます。
90秒以上経過した場合は、再度タッチしてから発言してください。
[USER]・・・・操作可能なユーザの種類を切り替えます。デフォルトの設定は「ALL」です。
・[ALL]にすると、誰でもメッセージ変更可能です。
・[GROUP]にすると、設定されたグループメンバのみがメッセージ変更可能です。
あらかじめ日本語対応メッセージボードを編集(Edit)して、グループを
設定してください。
操作するユーザは、日本語対応メッセージボードに設定されたグループを
アクティブにしてください。
(アクティブになると、アバターの頭上に表示されるアバター名の上に
グループ名が表示されます)
・[OWNER]にすると、所有者のみがメッセージ変更可能です。
[COLOR] ・・・文字の色を変更します。
指定できる色は、WHITE,BLACK,RED,GREEN,BLUE,YELLOW,MAGENTA,CYANです。
BLACKを選ぶと文字が見えませんのでご注意ください。
[CHANNEL] ・・メッセージを変更するためのチャンネル番号が、
既に別なオブジェクトで使用されていた場合に使用します。
チャンネル番号は3種類から選択可能ができます。
デフォルトのチャンネル番号は7です。
[RESET] ・・・設定をデフォルトに戻し、デフォルトのメッセージを表示します
[HELP]・・・・使い方の簡単な説明をオーナー宛てに発言します
詳しい説明をノートカードとして渡します。
●制限事項
・一部の記号は表示されず、空白として表示されます。
●謝辞
・このメッセージボードのフォントには、
「さざなみゴシック」を使用しています。
また、記号の一部には「ふい字 v2.9」を使用しています。
関係者の皆様に感謝します。
●カスタマイズ
・Modify可能な設定にしてありますので、大きさや概観の一部をカスタマイズ可能です。
・元に戻す機能は備えておりませんので、カスタマイズは自己責任で行ってください。
・文字が表示されるパネルの後ろにあるボードは、メッセージ書き換えなどに
必要な部品ですので、消さないでください。
・動作不良時の解析用に、現在の設定内容を出力する機能が備えてあります。
通常は使用する必要はありません。
●作者
作者:march Korda
・ご意見・ご要望などがございましたら作者までIMをお願いします。
今後の活動の参考にさせていただきます。
2008年02月08日
別プリムにあるスクリプト間で定数を素直に共有できないか?
別なプリムにあるスクリプトで同じ定数を使いたい場合に、定数を変更するときのミスを減らしたい。
つまり、
スクリプトファイル外にある定数を素直に共有できないか?
つまり、
要求1:同じ意味の定数を変える場合は、変更するところは一箇所だけにしたい
要求2:タイプミスによるバグを減らしたい
例：オブジェクトAとBがチャンネルチャットで通信する場合には、
AでSayするチャンネルをBがlistenする必要がある。(同じチャンネル番号を使う必要がある)
このケースで、チャンネルを変えたい場合にどうするか。
[オブジェクトA]--------(ch.3)-------->[オブジェクトB]
結論：方法が無い。んじゃないかなぁ。
方法が無い理由：
C言語と比べてみる。C言語で書かれたソースファイルを実行できるようにするためには、
おおまかには以下の2つの手順が必要である。
(1)ソースファイルをコンパイルして、コンパイル済みオブジェクトファイルを作る
(2)コンパイル済みオブジェクトファイルをリンクして、実行ファイルを作る
この時に、以下の便利なことができる。
(1)では#include文により他のソースファイルを取り込む、
(2)ではextern宣言で型だけ決めてあった外部変数と、実際の定義(記憶領域の割付)を結びつける。
LSLにはこのような仕組みが無い。
(1)は、llRemoteLoadScriptPin関数で同じプリム内に入れることはできても、同じスクリプトファイルには入れられない。
(2)は、宣言(型を決める) ＝ 定義(記憶領域の割付)で、この2つを分離できない。
このため、ヘッダファイルをincludeしたり、別なスクリプトで代入した変数を使ったりできない。
代替案：
案A:マジックワードとして、両方のスクリプトに数字を書く。
…一番素直。一番面倒。
案B:定数として定義する。両方のスクリプトに定数定義をコピペする。
原始的だがタイプミスは減らせる
案C:llLinkMessageで定数を得るスクリプトを書く。
…llRemoteLoadScriptPinで
…#includeとは違う!
…一見よさそうだが、スクリプト内でllLinkMessageを呼ぶ関数を書かなければならない。
(スクリプト外の関数は呼び出せない)
……引数がマジックワードになる。
………コピペと同じ。
案D:ノートカードから取得する
…定数名をじかにかかなければならない(コンパイルエラーにはできない)
…定数が見つからないときのエラー処理や、処理のタイミング(起動時?)に注意すればいけるかも。
案E:外部サーバを使う
…外部サーバを呼び出す関数や、何が欲しいかを決めておく必要がある。llLinkMessageと同じ。
案F:既にある定数を無理やり使う
…PIとかCONTROL_BACKとか
……もはや「変更は一箇所で」という目的からずれている
案G:別スクリプトで同じstateを書いたら共有できるのではないか?
…1プリムに入っていても、スクリプトが別ならメモリ空間は別なので、共有できない。
案H:stateを上手に遷移させ、DESCやテクスチャオフセットなどでやりとりすればいけるかも。
…未検証。
…タイプミスは防げていない。
というわけで、リーズナブルなのは定数はスクリプトの頭にまとめておいてコピペする、
頑張るならノートカードから取得するのがいいんじゃないでしょうか。
間違いの指摘やご意見を歓迎します。
つまり、
スクリプトファイル外にある定数を素直に共有できないか?
つまり、
要求1:同じ意味の定数を変える場合は、変更するところは一箇所だけにしたい
要求2:タイプミスによるバグを減らしたい
例：オブジェクトAとBがチャンネルチャットで通信する場合には、
AでSayするチャンネルをBがlistenする必要がある。(同じチャンネル番号を使う必要がある)
このケースで、チャンネルを変えたい場合にどうするか。
[オブジェクトA]--------(ch.3)-------->[オブジェクトB]
結論：方法が無い。んじゃないかなぁ。
方法が無い理由：
C言語と比べてみる。C言語で書かれたソースファイルを実行できるようにするためには、
おおまかには以下の2つの手順が必要である。
(1)ソースファイルをコンパイルして、コンパイル済みオブジェクトファイルを作る
(2)コンパイル済みオブジェクトファイルをリンクして、実行ファイルを作る
この時に、以下の便利なことができる。
(1)では#include文により他のソースファイルを取り込む、
(2)ではextern宣言で型だけ決めてあった外部変数と、実際の定義(記憶領域の割付)を結びつける。
LSLにはこのような仕組みが無い。
(1)は、llRemoteLoadScriptPin関数で同じプリム内に入れることはできても、同じスクリプトファイルには入れられない。
(2)は、宣言(型を決める) ＝ 定義(記憶領域の割付)で、この2つを分離できない。
このため、ヘッダファイルをincludeしたり、別なスクリプトで代入した変数を使ったりできない。
代替案：
案A:マジックワードとして、両方のスクリプトに数字を書く。
…一番素直。一番面倒。
案B:定数として定義する。両方のスクリプトに定数定義をコピペする。
原始的だがタイプミスは減らせる
案C:llLinkMessageで定数を得るスクリプトを書く。
…llRemoteLoadScriptPinで
…#includeとは違う!
…一見よさそうだが、スクリプト内でllLinkMessageを呼ぶ関数を書かなければならない。
(スクリプト外の関数は呼び出せない)
……引数がマジックワードになる。
………コピペと同じ。
案D:ノートカードから取得する
…定数名をじかにかかなければならない(コンパイルエラーにはできない)
…定数が見つからないときのエラー処理や、処理のタイミング(起動時?)に注意すればいけるかも。
案E:外部サーバを使う
…外部サーバを呼び出す関数や、何が欲しいかを決めておく必要がある。llLinkMessageと同じ。
案F:既にある定数を無理やり使う
…PIとかCONTROL_BACKとか
……もはや「変更は一箇所で」という目的からずれている
案G:別スクリプトで同じstateを書いたら共有できるのではないか?
…1プリムに入っていても、スクリプトが別ならメモリ空間は別なので、共有できない。
案H:stateを上手に遷移させ、DESCやテクスチャオフセットなどでやりとりすればいけるかも。
…未検証。
…タイプミスは防げていない。
というわけで、リーズナブルなのは定数はスクリプトの頭にまとめておいてコピペする、
頑張るならノートカードから取得するのがいいんじゃないでしょうか。
間違いの指摘やご意見を歓迎します。
2007年06月25日
1.17でllGetNotecardLineで日本語取出せず
notecardのパブリック・ビューアを作ろうとしたが、
llEscapeURLしても日本語がとりだせない。
1.17で何か方法ないものか。
あさっての1.18まで待つか。
>* Fixed SVC-52: UTF-8 characters read from notecards are lost
で（多分）なおるだろう。
llEscapeURLしても日本語がとりだせない。
1.17で何か方法ないものか。
あさっての1.18まで待つか。
>* Fixed SVC-52: UTF-8 characters read from notecards are lost
で（多分）なおるだろう。
2007年06月07日
メモリ管理には謎がある
"エースプログラマの uki-uki 日記"
「Second Life そんなネタふりされたら・・・・（LSL最適化） 」
http://blog.g-up.com/hidenori_goto/?s=2&b=11030
イベント内で、llOwnerSay( "Hello Avatar!" ); のような処理をしている場合、
>元の文字列が関数のコードブロックに直接保存されていますが、
>実行時にこれとは別にメモリ領域を確保する必要があるため、
>実質文字列長の倍の領域のメモリを消費していると考えることができます。
だそうで、グローバル変数のほうがメモリを節約できる。という記事。
なるべくローカル変数を使うようにしていた私には驚くような記事でした。
Stack-Heap Collision で悩んでいて、llGetFreeMemory() でいくつか実験して
よく分からなかったので別な手段で解決したのですが、
バイトコードやメモリの内容を調べる方法はあるんでしょうか＾＾？
「Second Life そんなネタふりされたら・・・・（LSL最適化） 」
http://blog.g-up.com/hidenori_goto/?s=2&b=11030
イベント内で、llOwnerSay( "Hello Avatar!" ); のような処理をしている場合、
>元の文字列が関数のコードブロックに直接保存されていますが、
>実行時にこれとは別にメモリ領域を確保する必要があるため、
>実質文字列長の倍の領域のメモリを消費していると考えることができます。
だそうで、グローバル変数のほうがメモリを節約できる。という記事。
なるべくローカル変数を使うようにしていた私には驚くような記事でした。
Stack-Heap Collision で悩んでいて、llGetFreeMemory() でいくつか実験して
よく分からなかったので別な手段で解決したのですが、
バイトコードやメモリの内容を調べる方法はあるんでしょうか＾＾？
2007年05月22日
複数スクリプト
複数スクリプトはlink_messageで連動できると教えてもらった。
１オブジェクト内なら受け渡しはどうにかなりそう。
今度試してみよう。
教えてくれたりおしゃべりにつきあってくれたりする人がいるのは嬉しいし有り難い。
１オブジェクト内なら受け渡しはどうにかなりそう。
今度試してみよう。
教えてくれたりおしゃべりにつきあってくれたりする人がいるのは嬉しいし有り難い。
2007年05月16日
llRegionSay()はどこでも届くのか不明
1.16.0(1)で入るllRegionSay()はオブジェクト間でregion-wideな通信ができるらしい。
どういうことなのかよく分からない。
オブジェクト編集で数値入力する欄に日本語で０を入れると落ちる場合があるのはどうにかしてもらいたい。
どういうことなのかよく分からない。
オブジェクト編集で数値入力する欄に日本語で０を入れると落ちる場合があるのはどうにかしてもらいたい。
2007年05月12日
「Ｌｉｍｉｔ ５ コンテスト」表彰式
「Ｌｉｍｉｔ ５ コンテスト」表彰式
２２時まで投票受け付けで、その後に表彰式があった。
1,2位のMoranさんは1人としてカウントしたため、2位がManjiさんで
3位がmarch、4位がLeosoさんだった。
Moranさんのラーメンはとてもリアルで湯気まであがっていた。扇風機もなびいてるひもがいい雰囲気をだしていた。
Manjiさんのマイクスタンドはマイクの高さやポーズを変えられるなど親切な作りなうえ、説明看板も分かりやすかった。
私の掲示板は、もう少し小さめのほうが字がにじまなくてよかったかな？
Leosoさんの水と一緒に回れる噴水は座ってみるとゆったりとした気分になれてよかった。
個人的にはSheltさんのロボヘッドがカッコよかったと思う。
参加者の皆さんおつかれさまでした。
２２時まで投票受け付けで、その後に表彰式があった。
1,2位のMoranさんは1人としてカウントしたため、2位がManjiさんで
3位がmarch、4位がLeosoさんだった。
Moranさんのラーメンはとてもリアルで湯気まであがっていた。扇風機もなびいてるひもがいい雰囲気をだしていた。
Manjiさんのマイクスタンドはマイクの高さやポーズを変えられるなど親切な作りなうえ、説明看板も分かりやすかった。
私の掲示板は、もう少し小さめのほうが字がにじまなくてよかったかな？
Leosoさんの水と一緒に回れる噴水は座ってみるとゆったりとした気分になれてよかった。
個人的にはSheltさんのロボヘッドがカッコよかったと思う。
参加者の皆さんおつかれさまでした。
2007年05月12日
ひとこと掲示板を漢字対応
漢字がちゃんと出るように直して、簡単なチェックをして、会場に置きなおした。
ASUKAグループに招待してもらったので、グループも指定した。
listは初期化時に72個しかアイテムを持てないのは知っていたので、区切って256個のキー追加。
すると、実行時にStack-Heap Collisionが出て動かない。
この辺を見ていくつか試す。
http://lslwiki.net/lslwiki/wakka.php?wakka=memory
デバッグチャンネルで言ってくれればいいのに、オブジェクトの発言として出るから最初は見逃してしまった。
結局リストの要素は16個のキーにしてif文を使ってだらだらと書くことにした。
ASUKAグループに招待してもらったので、グループも指定した。
listは初期化時に72個しかアイテムを持てないのは知っていたので、区切って256個のキー追加。
すると、実行時にStack-Heap Collisionが出て動かない。
この辺を見ていくつか試す。
http://lslwiki.net/lslwiki/wakka.php?wakka=memory
デバッグチャンネルで言ってくれればいいのに、オブジェクトの発言として出るから最初は見逃してしまった。
結局リストの要素は16個のキーにしてif文を使ってだらだらと書くことにした。
2007年05月10日
「Ｌｉｍｉｔ ５ コンテスト」に作品を出した
「Ｌｉｍｉｔ ５ コンテスト」に作品を出した。
前から作っていた掲示板である。
漢字も対応だ！と意気込んだ。
さざなみフォントで16*16文字で256枚の画像を作って、
使いそうなところをuploadした所で力尽きた。
英数字と一部の漢字・記号しか表示できない状態である。需要があったらちゃんと漢字対応しよう。
自分のデザインセンスのなさには驚きと困惑をおぼえる。
台形プリムを使って3フェース表示させる方法はcheyさんに教えてもらった。
最初に思いついた人はアイデア賞モノだと思う。
前から作っていた掲示板である。
漢字も対応だ！と意気込んだ。
さざなみフォントで16*16文字で256枚の画像を作って、
使いそうなところをuploadした所で力尽きた。
英数字と一部の漢字・記号しか表示できない状態である。需要があったらちゃんと漢字対応しよう。
自分のデザインセンスのなさには驚きと困惑をおぼえる。
台形プリムを使って3フェース表示させる方法はcheyさんに教えてもらった。
最初に思いついた人はアイデア賞モノだと思う。
2007年05月07日
llRemoteLoadScriptPinで別スクリプト呼出
llRemoteLoadScriptPinで別スクリプト呼出
複数のスクリプトの扱いについて、情報が散逸しているので自分用にまとめる。
情報源は、http://wiki.secondlife.com/wiki/ やhttp://www.lslwiki.net/lslwiki/wakka.php や
LSLGuide.pdf。
（間違いがあったら教えてください～）
・オブジェクト内には、スクリプト名のABC順に並べ変えられて格納される。
大文字小文字は関係ない。
・一番上に格納されているスクリプトが実行される
・同じオブジェクトに入っているスクリプトを呼び出す際は、PINを指定しておかなくてOK。
KEYもNULL_KEYでOK。
・別なオブジェクトに入っているスクリプトを呼ぶ場合は、呼び先がRezされている必要がある
(インベントリに入っているだけではダメ)
・呼び出すタイミング(イベント)によって、動作が変わるので注意。下記の例参照。
state_entry()で別スクリプトを呼び出すと、touch_start()の処理はinvokerが終わってからchild
touch_start()で別スクリプトを呼び出すと、
・・・だと思ったが、いったんTakeしてからでないと、最後にオブジェクトに入れたスクリプト
を最初に実行しているように見える。不明。
・PIN(Personal Identification Number)はinteger
・スクリプトをまたがって変数を受け渡す方法はなさそう。
llRemoteLoadScriptPin関数の最後の引数を使えば、llGetStartParameter関数でintegerを受け取れる
ID設定に使うなら、オブジェクトの属性としてllSetAlpha関数/llGetAlpha関数とかで受け渡したほうがいいかも。
・llRemoteLoadScriptPin関数の先頭の引数の「key target」に何を指定すればいいのかは不明。
複数のスクリプトの扱いについて、情報が散逸しているので自分用にまとめる。
情報源は、http://wiki.secondlife.com/wiki/ やhttp://www.lslwiki.net/lslwiki/wakka.php や
LSLGuide.pdf。
（間違いがあったら教えてください～）
・オブジェクト内には、スクリプト名のABC順に並べ変えられて格納される。
大文字小文字は関係ない。
・一番上に格納されているスクリプトが実行される
・同じオブジェクトに入っているスクリプトを呼び出す際は、PINを指定しておかなくてOK。
KEYもNULL_KEYでOK。
・別なオブジェクトに入っているスクリプトを呼ぶ場合は、呼び先がRezされている必要がある
(インベントリに入っているだけではダメ)
・呼び出すタイミング(イベント)によって、動作が変わるので注意。下記の例参照。
state_entry()で別スクリプトを呼び出すと、touch_start()の処理はinvokerが終わってからchild
touch_start()で別スクリプトを呼び出すと、
・・・だと思ったが、いったんTakeしてからでないと、最後にオブジェクトに入れたスクリプト
を最初に実行しているように見える。不明。
・PIN(Personal Identification Number)はinteger
・スクリプトをまたがって変数を受け渡す方法はなさそう。
llRemoteLoadScriptPin関数の最後の引数を使えば、llGetStartParameter関数でintegerを受け取れる
ID設定に使うなら、オブジェクトの属性としてllSetAlpha関数/llGetAlpha関数とかで受け渡したほうがいいかも。
・llRemoteLoadScriptPin関数の先頭の引数の「key target」に何を指定すればいいのかは不明。
続きを読む
//00Invoker-1 呼び出す側のスクリプトその１
default
{
state_entry()
{
llOwnerSay("rez " + llGetObjectName() + "with " + llGetScriptName());
llRemoteLoadScriptPin(NULL_KEY, "child-script", 3, FALSE, 0);
}
touch_start(integer total_number)
{
llOwnerSay("Touch start at " + llGetScriptName());
llOwnerSay("Touch end at " + llGetScriptName());
}
}
//00Invoker-2 呼び出す側のスクリプトその２
default
{
state_entry()
{
llOwnerSay("rez " + llGetObjectName() + "with " + llGetScriptName());
}
touch_start(integer total_number)
{
llOwnerSay("Touch start at " + llGetScriptName());
llRemoteLoadScriptPin(NULL_KEY, "child-script", 3, FALSE, 0);
llOwnerSay("Touch end at " + llGetScriptName());
}
}
//child-script 呼び出される側のスクリプト
default
{
state_entry()
{
llOwnerSay("rez " + llGetObjectName() + "with " + llGetScriptName());
}
touch_start(integer total_number)
{
llOwnerSay("Touch start at " + llGetScriptName());
llOwnerSay("Touch end at " + llGetScriptName());
}
}
2007年05月05日
文字の変わる箱
「／3 A」とかやると文字の変わる箱を作った。
余計なコードやデバッグ用のコードが残っているが、自分メモとして。
大半はパクリ。
フォントは東雲なんでとりあえず安心。
string texture;
float x;
float y;
float u;
float v;
integer xmax = 16;
integer ymax = 16;
integer LHandle;
integer CHANNEL = 3;
//--------
//see http : // wiki.secondlife.com/wiki/XTEA_Strong_Encryption_Implementation
//--------
//Function: ord
//Returns the index of an ASCII character
integer ord(string chr)
{
string ASCII = " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~";
if(llStringLength(chr) != 1) return -1;
if(chr == " ") return 32;
return llSubStringIndex(ASCII, chr);
}
//Function: DWord2Hex
//Converts a dword containted in a LSL integer to hexadecimal format.
string DWord2Hex(integer m){
string result;
integer i = 0;
integer index = 0;
//Define character string [0-F] for use in building the hex.
string characters = "0123456789ABCDEF";
//Step through 8 times, for a total of 32 bits, 8 nibbles, and 8 hexadecimal digits.
for (i = 0; i < 8; i++){
//Get a nibble by right-shifting and masking off 4 bits.
index = (m >> (i * 4)) & 0xF;
//Grab character from the characters string at index position and add it to the result string.
result = llInsertString(result, 0, llGetSubString(characters,index,index));
}
return result;
}
integer initialize()
{
LHandle = llListen(CHANNEL, "", NULL_KEY, "");
llListenControl(LHandle, TRUE);
llSleep(0.5);
llOwnerSay("listen start. ch=" + (string)CHANNEL);
return 0;
}
vector ascii2pos(integer code)
{
integer x;
integer y;
vector pos;
//
x = code % xmax;
if(x > xmax || x < 0)
{
x = 0;
}
pos.x = (1.0 / xmax) * ((xmax / 2) - x - 0.5);
pos.x *= (-1);
//
y = code / xmax; //xmax is. NOT ymax.
if(y > ymax || y < 0)
{
y = 0;
}
pos.y = (1.0 / ymax) * ((ymax / 2) - y - 0.5);
//pos.y *= (-1);
//
return pos;
}
vector setAsciiTexture(integer code)
{
vector pos = ascii2pos(code);
llOffsetTexture(pos.x, pos.y, ALL_SIDES);
llOwnerSay("setAsciiTexture " + (string)pos);
//
u = 1.0 / xmax;
v = 1.0 / ymax;
llScaleTexture(u, v, ALL_SIDES); // kakudai
return pos;
}
default
{
state_entry()
{
//x = (1.0 / xmax) * -3.5;
//y = (1.0 / ymax) * 6.5;
//u = 1.0 / xmax;
//v = 1.0 / ymax;
//llOffsetTexture(x, y, ALL_SIDES);
//llScaleTexture(u, v, ALL_SIDES); // kakudai
//llOwnerSay("x=" + (string)x + ",y=" + (string)y + ",u=" + (string)u + ",v=" + (string)v);
//
initialize();
}
listen(integer channel, string name, key id, string message)
{
string oneStr = llGetSubString(message, 0, 0);
llOwnerSay("[" + oneStr + "] is " + (string)ord(oneStr) + ". 0x" + DWord2Hex(ord(oneStr)) + ".");
llOwnerSay("[" + oneStr + "] is " + (string)ord(oneStr) + ". 0x" + DWord2Hex(ord(oneStr)) + ".");
integer a = ord(oneStr);
integer pos_x = a % 16;
integer pos_y = a / 16;
llOwnerSay((string)a + "=(" + (string)pos_x + "," + (string)pos_y +")");
//
llOwnerSay((string)ascii2pos(a));
setAsciiTexture(a);
}
}
2007年05月04日
コードの貼り付け
コードを貼ってみる。
キーワードを色付けとかはプラグインがいるのかな。
キーワードを色付けとかはプラグインがいるのかな。
default
{
state_entry()
{
llSay(0, "Hello, Avatar!");
}
touch_start(integer total_number)
{
llSay(0, "Touched.");
}
}
