CAAD

Comunidad de Aventuras Conversacionales y Relatos Interactivos
Fecha actual 11 Jul 2020 06:46

Todos los horarios son UTC + 1 hora




Nuevo tema Responder al tema  [ 1 mensaje ] 
Autor Mensaje
NotaPublicado: 26 Jun 2006 15:27 
Desconectado
Enano Maluva
Enano Maluva

Registrado: 26 Jun 2006 15:24
Mensajes: 37
Necesito controlar ciertos aspectos del cuerpo humano, y no sabía como. Al final he implementado lo siguiente basándome en una respuesta del antiguo foro de yahoo (estoy abierto a sugerencias para mejorar este código):

Class TParteDeMiCuerpo
with esta_en[; rtrue; ];

Class TMiBrazo
with
nombre 'brazo',
articulo "tu",
articulos "Tu" "tu" "tu",
estado 10,
descripcion [objeto;
if (ObjectContainsOfClass(self, AgujaMedica)) {
objeto = GetFirstObjectOfClass(self, AgujaMedica);
"En ", (el) self, " ves clavad", (o) objeto, " ", (un) objeto, ".";
} else {
switch (self.estado) {
10: print_ret (_El) self, " sangra por la herida provocada por la aguja.";
default: "Has vendado la herida de ", (el) self, ".";
}
}
],
listar_juntos "misBrazos"
has
recipiente abierto;


Object YoJugador
with
dolor 0,
descripcion [obj;
print "Te examinas y esto es lo que ves en tu cuerpo:^";
objectloop (obj in RasgosCuerpo) <examinar obj>;
],
reaccionar_antes[;
escuchar, oler, tocar, probar, comer, beber:
if (YoJugadorPuedoMoverme()) rfalse;
return YoJugadorMensaje(2);
mirar, examinar:
if ((uno ofclass TMiBrazo) || (uno == jugador) || (YoJugadorPuedoMoverme())) rfalse;
return YoJugadorMensaje(2);
coger:
if (uno ofclass AgujaMedica) rfalse;
if (self in MesaQuirurgica) return YoJugadorMensaje(2);
]
;

TParteDeMiCuerpo RasgosCuerpo "cuerpo"
with
nombre 'cuerpo',
articulo "tu"
has oculto escenario recipiente abierto;

TMiBrazo MiBrazoIzquierdo "brazo izquierdo" RasgosCuerpo
with
adjetivos 'izquierdo',
;

TMiBrazo MiBrazoDerecho "brazo derecho" RasgosCuerpo
with
adjetivos 'derecho';


[YoJugadorPuedoMoverme;
if (ObjectContainsOfClass(MiBrazoIzquierdo, AgujaMedica) || (ObjectContainsOfClass(MiBrazoDerecho, AgujaMedica))) rfalse;
rtrue;
];

_________________
Shadow de Coutemeier


Arriba
 Perfil  
 
Mostrar mensajes previos:  Ordenar por  
Nuevo tema Responder al tema  [ 1 mensaje ] 

Todos los horarios son UTC + 1 hora


¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados


No puede abrir nuevos temas en este Foro
No puede responder a temas en este Foro
No puede editar sus mensajes en este Foro
No puede borrar sus mensajes en este Foro

Buscar:
Saltar a:  
Desarrollado por phpBB® Forum Software © phpBB Group
Traducción al español por Huan Manwë para phpBB-Es.COM