Pregunta sobre lingo

He hecho un proyecto como ese:
Te pongo aquí los behaviours:
Esto se lo debes vincular al texto:
property p_miembro,p_miembro2,p_mapa,p_posicion,p_vector,p_sh,p_sv
global g_lista,p_nombre
on getPropertyDescriptionList me
lista = [:]
addProp lista,#p_miembro2, [#default:"", #format:#text, #comment:\
"elige el texto de escritura de datos"]
addProp lista,#p_posicion, [#default:"", #format:#text, #comment:\
"elige el texto donde estan las coordenadas de posicion del mapa"]
addProp lista,#p_mapa, [#default:4, #format:#integer, #comment:\
"indica el sprite del mapa"]
addProp lista,#p_vector, [#default:3, #format:#integer, #comment:\
"indica el sprite del miembro de debajo del mapa"]
return lista
end
on beginsprite me
p_miembro=sprite(me.spritenum).member.name
p_nombre=sprite(p_mapa).member.name
ps=sprite(p_vector)
p_sh=ps.left+ps.width/2
p_sv=ps.top+ps.height/2
end
on mouseWithin me
c=(the mouseloc).locv
l=sprite(me.spritenum).locv
r=c-l
b=locvtolinepos(sprite(me.spritenum).member,r)
hilite member(p_miembro).line
--updatestage
end
on mouseDown me
c=(the clickloc).locv
l=sprite(me.spritenum).locv
r=c-l
b=locvtolinepos(sprite(me.spritenum).member,r)
member(p_miembro2).text=""
if member(p_miembro).text<>"" then
posicion=getat(g_lista,b)
-- sprite(me.spritenum).visible=0
p=member(p_posicion).text.line[posicion]
member(p_nombre).regpoint =point(integer(p.item[1]),integer(p.item[2]))
-- sendSprite(3,#cambio)
sprite(p_mapa).loch=p_sh
sprite(p_mapa).locv=p_sv
updatestage
sendSprite(3,#cambio)
-- else
-- -- sprite(me.spritenum).visible=0
end if
sprite(me.spritenum).visible=0
end
Esto es para el texto desde donde escribes:
property l,p_sprite,p_s2
property p_miembr, p_miembro
global g_lista
on getPropertyDescriptionList me
lista = [:]
addProp lista,#p_miembr, [#default:"", #format:#text, #comment:\
"elige el texto de lectura de datos"]
addProp lista,#p_miembro, [#default:1, #format:#integer, #comment:\
"elige el sprite de campo para ver los datos"]
return lista
end
on beginsprite me
p_sprite= sprite(me.spritenum)
p_s2=sprite(p_miembro).member.name
end
on exitframe me
l=p_sprite.member.text
end
on prepareframe me
d(me)
end
on d me
if p_sprite.member.text<>l then
if p_sprite.member.char.count >0 then
sprite(p_miembro).visible=1
lista=[]
g_lista=[]
repeat with i=1 to member(p_miembr).line.count
if member(p_miembr).text.line contains p_sprite.member.text then
add lista,member(p_miembr).text.line
add g_lista,i
end if
end repeat
member(p_s2).text=""
repeat with i=1 to lista.count
member(p_s2).line=getat(lista,i)
end repeat
else if p_sprite.member.char.count =0 then
member(p_s2).text=""
sprite(p_miembro).visible=0
end if
end if
end

Lo primero agradecerte la velocidad de tu respuesta es impresiooooonante y lo segundo
he colocado los scripts como me dijiste pero me da error.
Te importaría mandármelo en un fichero.dir
De todas formas muchas Gracias bedelludrica

Dame tu e-mail

Hola Bedelludrica y Feliz Año
Mi dirección de correo es:
[email protected]
------------
Un saludo