////////////////////ESQUINA NOR-OESTE
[ITEMDEF i_cueva_1] //CAMBIO EL NOMBRE INTERNO PARA Q NO SE REPITA EN DOS OBJETOS DISTINTOS
id=082    //i_wall_cave //graphico q dará forma al item (puede ser el mismo)
TYPE=t_wall //typo de item
RESOURCES=100 i_rock_plain //q se necesita para hacerla
CATEGORY=Buildings - Walls //estas 3 cosas son info para programas externos como el axis.
SUBSECTION=Cave Wall
DESCRIPTION=Wall

on=@dclick //al hacer doble click
if (<cont>) //si está dentro de otro objeto o jugador.
    src.sysmessage @032 No es posible usarlo dentro de contenedores. //al jugador (src.) se le envia un mensaje.
    return 1
endif
serv.newitem i_floor_cave //crea el suelo
new.p=<p> //Pone el nuevo suelo creado en la misma posición q la pared
move NW 1 //mueve la pared al norESTE
update
return 1


///////////////PARED NORTE
[ITEMDEF i_cueva_2] //nombre de la pared a nivel interno
id=082 //graphico q dará forma al item
TYPE=t_wall //typo de item
RESOURCES=100 i_rock_plain //q se necesita para hacerla
CATEGORY=Buildings - Walls //estas 3 cosas son info para programas externos como el axis.
SUBSECTION=Cave Wall
DESCRIPTION=Wall

on=@dclick //al hacer doble click
if (<cont>) //si está dentro de otro objeto o jugador.
    src.sysmessage @032 No es posible usarlo dentro de contenedores. //al jugador (src.) se le envia un mensaje.
    return 1
endif
serv.newitem i_floor_cave //crea el suelo
new.p=<p> //Pone el nuevo suelo creado en la misma posición q la pared
move N 1 //mueve la pared al norte
update
return 1


////////////////////ESQUINA NOR-ESTE
[ITEMDEF i_cueva_3] //CAMBIO EL NOMBRE INTERNO PARA Q NO SE REPITA EN DOS OBJETOS DISTINTOS
id=082 //graphico q dará forma al item (puede ser el mismo)
TYPE=t_wall //typo de item
RESOURCES=100 i_rock_plain //q se necesita para hacerla
CATEGORY=Buildings - Walls //estas 3 cosas son info para programas externos como el axis.
SUBSECTION=Cave Wall
DESCRIPTION=Wall

on=@dclick //al hacer doble click
if (<cont>) //si está dentro de otro objeto o jugador.
    src.sysmessage @032 No es posible usarlo dentro de contenedores. //al jugador (src.) se le envia un mensaje.
    return 1
endif
serv.newitem i_floor_cave //crea el suelo
new.p=<p> //Pone el nuevo suelo creado en la misma posición q la pared
move NE 1 //mueve la pared al norESTE
update
return 1


///////////////PARED OESTE
[ITEMDEF i_cueva_4] //nombre de la pared a nivel interno
id=082 //graphico q dará forma al item
TYPE=t_wall //typo de item
RESOURCES=100 i_rock_plain //q se necesita para hacerla
CATEGORY=Buildings - Walls //estas 3 cosas son info para programas externos como el axis.
SUBSECTION=Cave Wall
DESCRIPTION=Wall

on=@dclick //al hacer doble click
if (<cont>) //si está dentro de otro objeto o jugador.
    src.sysmessage @032 No es posible usarlo dentro de contenedores. //al jugador (src.) se le envia un mensaje.
    return 1
endif
serv.newitem i_floor_cave //crea el suelo
new.p=<p> //Pone el nuevo suelo creado en la misma posición q la pared
move W 1 //mueve la pared al norte
update
return 1


///////////////PARED ESTE
[ITEMDEF i_cueva_5] //nombre de la pared a nivel interno
id=082 //graphico q dará forma al item
TYPE=t_wall //typo de item
RESOURCES=100 i_rock_plain //q se necesita para hacerla
CATEGORY=Buildings - Walls //estas 3 cosas son info para programas externos como el axis.
SUBSECTION=Cave Wall
DESCRIPTION=Wall

on=@dclick //al hacer doble click
if (<cont>) //si está dentro de otro objeto o jugador.
    src.sysmessage @032 No es posible usarlo dentro de contenedores. //al jugador (src.) se le envia un mensaje.
    return 1
endif
serv.newitem i_floor_cave //crea el suelo
new.p=<p> //Pone el nuevo suelo creado en la misma posición q la pared
move E 1 //mueve la pared al norte
update
return 1


////////////////////ESQUINA SUR-OESTE
[ITEMDEF i_cueva_6] //CAMBIO EL NOMBRE INTERNO PARA Q NO SE REPITA EN DOS OBJETOS DISTINTOS
id=082
TYPE=t_wall //typo de item
RESOURCES=100 i_rock_plain //q se necesita para hacerla
CATEGORY=Buildings - Walls //estas 3 cosas son info para programas externos como el axis.
SUBSECTION=Cave Wall
DESCRIPTION=Wall

on=@dclick //al hacer doble click
if (<cont>) //si está dentro de otro objeto o jugador.
    src.sysmessage @032 No es posible usarlo dentro de contenedores. //al jugador (src.) se le envia un mensaje
    return 1
endif
serv.newitem i_floor_cave //crea el suelo
new.p=<p> //Pone el nuevo suelo creado en la misma posición q la pared
move SW 1 //mueve la pared al ESTE
update
return 1


///////////////PARED SUR
[ITEMDEF i_cueva_7] //nombre de la pared a nivel interno
id=082
TYPE=t_wall //typo de item
RESOURCES=100 i_rock_plain //q se necesita para hacerla
CATEGORY=Buildings - Walls //estas 3 cosas son info para programas externos como el axis.
SUBSECTION=Cave Wall
DESCRIPTION=Wall

on=@dclick //al hacer doble click
if (<cont>) //si está dentro de otro objeto o jugador.
    src.sysmessage @032 No es posible usarlo dentro de contenedores. //al jugador (src.) se le envia un mensaje.
    return 1
endif
serv.newitem i_floor_cave //crea el suelo
new.p=<p> //Pone el nuevo suelo creado en la misma posición q la pared
move S 1 //mueve la pared al norte
update
return 1


////////////////////ESQUINA SUR-ESTE
[ITEMDEF i_cueva_8] //CAMBIO EL NOMBRE INTERNO PARA Q NO SE REPITA EN DOS OBJETOS DISTINTOS
id=082
TYPE=t_wall //typo de item
RESOURCES=100 i_rock_plain //q se necesita para hacerla
CATEGORY=Buildings - Walls //estas 3 cosas son info para programas externos como el axis.
SUBSECTION=Cave Wall
DESCRIPTION=Wall

on=@dclick //al hacer doble click
if (<cont>) //si está dentro de otro objeto o jugador.
    src.sysmessage @032 No es posible usarlo dentro de contenedores. //al jugador (src.) se le envia un mensaje.
    return 1
endif
serv.newitem i_floor_cave //crea el suelo
new.p=<p> //Pone el nuevo suelo creado en la misma posición q la pared
move SE 1 //mueve la pared al ESTE
update
return 1

[FUNCTION democueva]
local.counter=1
for x -1 1
    for y -1 1
        if ((<eval <local.x>> == 0) && (<eval <local.y>> == 0))
            src.sysmessage <eval <local.counter>> :: actual
        else
            serv.newitem i_cueva_<eval <local.counter>>
            new.p=<eval <src.p.x>+<local.y>>,<eval <src.p.y>+<local.x>>,<src.p.z>
            //src.sysmessage <eval <local.counter>> :: <eval <src.p.x>+<local.x>> <eval <src.p.y>+<local.y>> <src.p.z>
            local.counter ++
        endif
    endfor
endfor