CreaSL-Forum

<BLOCK>

<TEXT>

<COOR>

0,0,0

</COOR>

ABCDEFGHIJKL

MNOPQRSTUVWXYZ

</TEXT>

</BLOCK>

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

// 

// GRUPO:

// CreaSL 2007

//

// PARTICIPANTES:

// Pantano Boa

// Dedalo Mayo

// Zenitram Jester

// AngelMan McMillan

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

// Borwser de presentaciones

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





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

// Nombre del Notecard que contiene la presentación

string LaNota = "Estructura";



// Lista que contiene toda la presentación

list LaLista;



// Lista de símbolos que se pueden pintar (es ampliable)

// HACER: Introducir el resto de simbolos

list Simbolos=["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","
W","X","Y","Z"];



// Variables globales que controlan el numero de bloques

list IndBloques;      // Indice del inicio de cada bloque

integer NumBloques=0; // Número total de bloques en la notecard

integer BloqueActual; // El bloque que estamos mostrando en cada momento



// Variables globales para pintar textos

vector posic;         // Posición en la que se esta pintando el texto



// Variables para la escritura de las letras

vector posic_rel;     // Posición relativa para pintar la letra actual (desde el origen)

integer LaLinea;      // Número de la linea dentro del mismo <TEXT></TEXT>

float espacio=.5;     // tamaño medio en horizontal para las letras



// Contador de canales de comunicación para letras

integer LetraCanal;   // Entero que guarda el número actual de canal a asignar a la letra

list CanalesLetras;   // Lista con todos los canales activos (uno por letra)



// VARIABLES GLOBALES OBLIGADAS POR EL TIPO DE PROGRAMACION

// Contador de lineas de la lectura de la NOTECARD

integer lineas=0;

// Identificador para la llamada a llGetNotecardLine

key F_NC_Get_Line;



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

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

// FUNCIONES

PintaFrase(string cadena)

{   

   //...

}



// Parseamos la cadena que contiene la posición inicial del texto

TomaPosicion(integer contar)

{

   //...

}





// Pintar un bloque de texto

PintarTexto(integer contar)

{

    string cadena="";

    integer contador=contar;

    

    // Recorremos el apartado de texto

    while (cadena!="</TEXT>"«»)

    {

        cadena = llList2String(LaLista,contador);

        contador++;



        if (cadena=="<COOR>"«»)

        {

            TomaPosicion(contador);

        }

        if (cadena=="</COOR>"«»)

        {

            // esta es la primera linea de esta porción de texto

            LaLinea = 0;

            // Pintamos todas las lineas del texto

            while (cadena!="</TEXT>"«»)

            {

                cadena = llList2String(LaLista,contador);

                contador++;

                                

                if (cadena!="</TEXT>"«»)

                {

                    PintaFrase(cadena);

                    LaLinea++;

                }

            }

        }

    }

}



PintarArea(integer contar)

{

   //...

}



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

// Pintamos el bloque "n" (página) de la presentación

PintaBloque(integer idBlock)

{

    // Recorrer la parte de la lista que contiene el bloque

    integer salida=0;

    integer contador=llList2Integer(IndBloques,idBlock);

    string cadena;



    // Vamos recorriendo todo el bloque levantando tokens

    while (salida==0)

    {

        cadena = llList2String(LaLista,contador);

        contador++;

        

        // Si el bloque no ha terminado

        if (cadena!="</BLOCK>"«»)

        {

            // Si encontramos un texto

            if (cadena=="<TEXT>"«»)

                PintarTexto(contador);

            // Si encontramos un area

            if (cadena=="<AREA>"«»)

                PintarArea(contador);

        }

        else

        {

            salida=1;

        }

    }

}



//Borramos el Bloque actual

BorraBloque()

{

    integer Longitud = llGetListLength(CanalesLetras);

    integer i;

    

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

    {

        llSay(llList2Integer(CanalesLetras,i),"BORRAR"«»);

    }

}



// recorremos la lista para buscar los bloques (páginas)

RecorreLista()

{

    integer Longitud = llGetListLength(LaLista);

    integer i;

    string cadena;

    

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

    {

        cadena = llList2String(LaLista,i);

        

        // Cada vez que encontremos un bloque guardamos su indice en la lista de indices de bloque

        if (cadena=="<BLOCK>"«»)

        {

            NumBloques++;

            IndBloques+=i;

        }

    }

}



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

// Comportamiento por defecto del objeto

default

{

    // Constructor

    state_entry()

    {

        // Establecemos el Bloque actual en proceso

        BloqueActual = 0;

        // Leemos toda la nota sin parar

        lineas = 0;

        F_NC_Get_Line = llGetNotecardLine(LaNota,lineas);

        // Aqui no podemos recorrer la lista generada

        

        // Establecemos el canal de inicio

        LetraCanal=99999;

    }

    

    // Controlamos cuando se haga take o borrar para que se eliminen las letras

    changed(integer evento)

    {

        llSay(0,"Evento"«»);

        if (evento & CHANGED_INVENTORY)

        {

            BorraBloque();

        }

    }



    // Evento que se produce al tocar el objeto.

    touch_start(integer total_number)

    {   

        // Si hay algun bloque en pantalla lo borramos.

        if (BloqueActual>=0 && NumBloques>0)

        {

            BorraBloque();

            CanalesLetras=[];

            LetraCanal=99999;

        }

        

        // Si no nos hemos pasado

        if (BloqueActual<NumBloques)

        {

            PintaBloque(BloqueActual);            

        }        

        else

        {

            BloqueActual=0;

            PintaBloque(BloqueActual);          

        }

        BloqueActual++;

    }    

    

    //Leemos la notecard completita

    dataserver(key Iden, string dato)

    {

        // Si el evento lo ha disparado llGetNotecardLine

        if (Iden==F_NC_Get_Line)

        {

            if (dato!=EOF)

            {

                LaLista+=dato;

                lineas++;

                F_NC_Get_Line=llGetNotecardLine(LaNota,lineas);

            }

            else

            {

                RecorreLista();

            }  

        }

    }    

}