=LIZAIL=

default

{

    state_entry()

    {

        llSay(0, "Hello, Avatar!");

    }

 

    touch_start(integer total_number)

    {

        llSay(0, "Touched.");

    }

}

 

////////////////////////////////////////////////////////

//

//   3目並べ

//

//   Ver.1.001

//   Created by TOMOZOO Lomu on 2013/12/16

//   Copyright (c) 2013 LIZAIL. All right reserved.

////////////////////////////////////////////////////////

 

//まるばつテクスチャ

string tex = "32052757-8ebb-8133-365e-4e910825ae1f";

list player_list;

string next_player;

integer game_flag = FALSE;

integer game_count;

 

/////////////////////////

//フローティングテキストセット

text_set()

{

    //未エントリー時用に名前リストの後ろに　"------"を二つ足しておく

    list temp_list = player_list + ["------","------"];

    //テキストの色　待機時は白

    vector text_color = <1,1,1>;

    //テキストのメッセージ

    string text_msg = "Player1 = "+llList2String(temp_list,0)+"\n"+

                      "Player2 = "+llList2String(temp_list,1);

    if(game_flag == TRUE)

    {//ゲーム中の場合は　誰の番か表示を付けたす

        text_msg += "\n**\nNext :: "+next_player;

        //ゲーム中はテキストの色を赤にする

        text_color = <1,0,0>;    

    } 

    llSetText(text_msg,text_color,1.0);

}

 

/////////////////////////

//ボードのまるばつセット

 

//ボードのまるばつ情報のリスト　空白は ○は"0" ×は"1" 空は"-"が入る

list now_data_list = ["-","-","-","-","-","-","-","-","-"];

//○　×　空　の順番のテクスチャ座標のリスト

list tex_pos_list = [

    "0",<-0.25,0.25,0>,

    "1",<0.25,0.25,0>,

    "-",<-0.25,-0.25,0>];

 

disp_set()

{

    integer i;

    for(i=0; i<3; i++)

    {

        list v_pos_list;//１プリム分のテクスチャの座標を入れておく箱

        integer int;

        for(int=0; int<3; int++)

        {

            //面の○か×か空かという情報取得

            string taget = llList2String(now_data_list,i*3+int);

            //取り出した情報の座標を取得

            v_pos_list += llList2Vector(tex_pos_list,

                llListFindList(tex_pos_list,[taget])+1);     

        }

        llSetLinkPrimitiveParamsFast(i+2,[

            PRIM_TEXTURE,4,tex,<0.5,0.5,0>,llList2Vector(v_pos_list,0),0,

            PRIM_TEXTURE,0,tex,<0.5,0.5,0>,llList2Vector(v_pos_list,1),PI_BY_TWO,

            PRIM_TEXTURE,2,tex,<0.5,0.5,0>,llList2Vector(v_pos_list,2),0]);

    }

}

 

/////////////////////////

//メインコードスタート

default

{

    state_entry()

    {

        text_set();//フローティングテキストセット

        disp_set();//ボードをすべて空にセット

        llSetLinkColor(LINK_SET,<1,1,1>,ALL_SIDES); //ボードを全て白に戻す。

    }

 

    touch_start(integer total_number)

    {

        //プレイヤー追加　UUIDを名前に変換して名前リストに突っ込む

        player_list += llKey2Name(llDetectedKey(0));

        //エントリーしてどっか行くのを防ぐため２分でリセットかける

        llSetTimerEvent(120.0); 

        text_set();//フローティングテキストセット

        if(llGetListLength(player_list) == 2)

        {//名前リストが二人になったらゲームステートへ以降

            state game;

        }

    }

 

    timer() 

    {//タイムアウトに付きリセット 

        llSay(0,"time out.");

        llResetScript(); 

    }

}

 

//ゲーム中ステート

state game

{

    state_entry()

    {

        //先行決め　名前リストをランダムで入れ替え

        player_list = llListRandomize(player_list, 1);

        //次のプレイヤーの名前を取得

        next_player = llList2String(player_list,game_count%2);

        llSay(0,next_player+"さん先行でゲームスタートです。");

        game_flag = TRUE;  //ゲームフラグをＯＮに

        text_set();//フローティングテキストセット

        llSetTimerEvent(120.0);//放置対策に２分でリセット 

    }

 

    touch_start(integer total_number) 

    {

        integer touchd_link_num = llDetectedLinkNumber(0);

        if(llKey2Name(llDetectedKey(0)) == next_player && touchd_link_num != LINK_ROOT)

        {//タッチした人が順番の人だった時　&&　タッチされたプリムがまるばつ部分だった時

            //タッチされた面のリスト上での番号を取得

            //タッチされたプリムのリンクナンバーの順番×３+面の番号

            //右上だと[0*3+0=0] 左下だと[2*3+2=11] と言う感じ

            integer touchd_link_face_num = 

                llListFindList([4,0,2],[llDetectedTouchFace(0)]);

            touchd_link_num = (touchd_link_num-2)*3;

            integer touchd_num = touchd_link_num+touchd_link_face_num;

            //タッチされた面のデータを取得して空のマスか調べる

            if(llList2String(now_data_list,touchd_num) == "-")

            {//タッチされた面が空だった時

                //リスト内のデーター入れ替え

                //該当場所の"-"を削除

                now_data_list = llDeleteSubList(now_data_list,touchd_num,touchd_num);

                //該当場所に"0"か"1"を突っ込む

                now_data_list = llListInsertList

                    (now_data_list,[(string)(game_count%2)],touchd_num);

                disp_set();//ボードセット

                //３目揃ってないか判定

                //３目並べにて３目揃う可能性のある盤面リスト

                list cleared_list =[

                    "0,1,2","3,4,5","6,7,8",//横揃い

                    "0,3,6","1,4,7","2,5,8",//縦揃い

                    "0,4,8","2,4,6"];//斜め揃い

                integer cleared_flag = FALSE;　//揃っているかどうかのフラグを[揃ってない]にする

                integer i;

                for(i=0; i<8; i++)

                {

                    //3目揃う可能性リストからstring形式で抜き出してCSV形式でリスト化

                    list temp_list = llCSV2List(llList2String(cleared_list,i));

                    //それぞれのリスト上でのデータを抜き出して３個並べる

                    //　○,×,空の場合は　"10-"と返ってくる

                    string data = 

                        llList2String(now_data_list,llList2Integer(temp_list,0))+

                        llList2String(now_data_list,llList2Integer(temp_list,1))+

                        llList2String(now_data_list,llList2Integer(temp_list,2));

                    //　○○○　or ×××　になっていないか判定

                    if(data == "000" || data == "111")

                    {//３目揃っている時

                        //揃ったラインに色付け

                        vector color = <1,0,0>;

                        integer i;

                        for(i=0; i<3; i++)

                        {

                            integer num = llList2Integer(temp_list,i);

                            llSetLinkPrimitiveParamsFast(num/3+2,[

                            PRIM_COLOR,llList2Integer([4,0,2],num%3),color, 1.0]);

                        }

                        llSay(0,next_player+"さんの勝利です。");

                        llSleep(3.0); 

                        llResetScript();//３秒待機してからリセット

                    }

                }

                //すべてのマスが埋まっていたら引き分けで終了。 

                game_count++;

                if(game_count == 9)

                {//９ラウンドで埋まるのでラウンド数が９になっていたら引き分け

                    llSay(0,"引き分けです。");

                    llSleep(3.0); 

                    llResetScript(); //３秒待機してからリセット

                }

                //ゲームが続く

                //次のプレイヤーの名前を取得

                next_player = llList2String(player_list,game_count%2);

                text_set();//フローティングテキストセット

                llSetTimerEvent(120.0);//放置対策に２分でリセット

            }

        }   

    } 

 

    timer() 

    {//タイムアウトに付きリセット

        llSay(0,"時間切れに付きリセットします。"); 

        llResetScript(); 

    }

}

 

list cleared_list =[

　　"0,1,2","3,4,5","6,7,8",//横揃い

    "0,3,6","1,4,7","2,5,8",//縦揃い

    "0,4,8","2,4,6"];//斜め揃い

list now_data_list = [

    "*","*","*","*","*",

    "*","-","-","-","*",

    "*","-","-","-","*",

    "*","-","-","-","*",

    "*","*","*","*","*"];

list a = [1,-1,5,-5,-4,-6,4,6];//右,左,下,上,右上,左上,左下,右下