//**************************************************
//*
//* Title: Fakefur Script Sample06
//* Make : 2006/09/08
//* Note : Put   -> Initialization
//*        Touch -> Number(Text) Change
//*
//**************************************************

integer cnt;

//**************************************************
//* Sub Module
//**************************************************
//************************
//* 0 -> 1 -> .... -> 10 *
//************************
integer ColorCnt1(){
    integer i;
    for (i = 0;i <= 10;i++){
        llSetText((string)i, <1,0,0>, 1.0);        // Set Text Red
        llSleep(1);
    }
    return i;
}

//************************
//* 10 -> 9 -> .... -> 0 *
//************************
ColorCnt2(integer Val){
    do{
        Val--;
        llSetText((string)Val, <0,0,1>, 1.0);        // Set Text Blue
        llSleep(1);
    }while(Val);
}


//****************
//* Main Program *
//****************
default
{
    //******************
    //* Initialization *
    //******************
    state_entry()
    {
        cnt = 0;
    }

    //*********
    //* Touch *
    //*********
    touch_start(integer total_number)
    {
        cnt = ColorCnt1();			// 0 -> 1 -> .... -> 10
        ColorCnt2(cnt);				// 10 -> 9 -> .... -> 0
    }
}