Se llama «Trókola». Sí, ya sé, a algunos les sonará lo de la «junta de la trócola» como excusa de mecánico caradura para inflar la factura. No tengo una idea muy clara de por qué lo he llamado así, más allá de porque no se me ocurría otro. Pero como es mi proyecto lo llamo como me apetece.

Hay quien afirma que cada jugador de conversacionales tiene el sueño de programar la suya ─la más maravillosa del mundo mundial─ y que todo programador de conversacionales anhela hacer su herramienta de creación, ─por supuesto, también la mejor del mundo mundial─. Ese no es mi caso: no creo que Trókola aspire a ser el sistema definitivo, ni tan siquiera creo que nadie lo vaya a utilizar nunca. Incluso no creo que esto lo lea nadie del mundillo de las aventuras conversaciones. Tampoco me he puesto objetivos que cumplir, ni sé hasta dónde quiero llegar, de momento, me conformo con unas pocas cosas, la primera y fundamental, como he dicho, lo de afianzar el lenguaje para mis necesidades del futuro. Por otro lado, me he encontrado que también lo podré utilizar en el móvil a través de Termux (y he comprobado que funciona el poco código que hay).

Como digo, no me planteo que sea el mejor sistema del universo, pero me gustaría trabajar varias características que me parecen importantes y que otros sistemas obvian o lo hacen casi de perfil.

Multilingüe

La mayoría de los sistemas están programados en inglés para la lengua inglesa, con su gramática y sintaxis. Adaptar posteriormente cualquier otro idioma se hace muy complicado. Sobre todo cuando ese idioma tiene una gramática más compleja que el inglés. Lo voy a diseñar por tanto en español con su sintaxis más compleja, pero con el Esperanto en mente, con una sintaxis mucho más simple, para trabajar los mecanismos de ajuste y simplificación.

Rolero

La mayoría de sistemas contemplan el escueto «la violencia no es el camino» o cualquier otra similar para eludir el hecho de la complejidad que se esconde cuando hay que simular combates, puntos de vida, características de los personajes, etc. Y, por supuesto, porque matar orcos puede ser también divertido.

Abierto

Quizás no es la palabra adecuada. Con abierto quiero decir que los personajes no estén enclaustrados en lo que contiene la clásica room. Es decir, que puedan oír o ver lo que hay en localizaciones adyacentes o alcanzables mediante los sentidos, que si hay una ventana en una habitación, pueda ver el personaje lo que hay en el patio, por ejemplo. Y que el creador del juego no tenga que trampear el sistema para que eso se pueda hacer.

Estas son los objetivos de partida para lo que quiero hacer y si por casualidad termina no siendo tan vaporware como creo, me gustaría también tener en cuenta algunos otros aspectos, digamos secundarios, que trabajar en el futuro:

Distribución

¿Cómo se podría distribuir un juego con este sistema? Hay intérprete de Tcl para casi cada sistema operativo (en GNU/Linux seguramente está instalado en la mayoría de máquinas). Pero quizá no está bien pedir a los posibles jugadores que se lo instalen sólo para un juego y habría que hacer un intérprete simple, para cada sistema, que corra el juego. Por tanto, me quiero limitar a sólo utilizar lo básico de Tcl. Nada de librerías de programación orientada a objetos, ni de ningún otro tipo. Sólo utilizando las estructuras de datos que proporciona el lenguaje de base: listas, arrays, diccionarios, etc. Quizá es una limitación autoimpuesta superflua porque no creo que haya nunca un juego terminado con él, pero no quiero añadir mierdas de las que luego me puedo arrepentir. Cuanto más simple y menos dependencias mejor.

Multijugador

Jugar siempre es más divertido cuando juegas con alguien. Sería un lujo, poder jugar varias personas, bien llevando el mismo personaje o, mucho mejor, llevando cada uno un personaje distinto y que puedan jugar una conversacional al estilo de un MUD pequeñito para tres, cuatro o cindo jugadores a lo sumo, cada uno con su correspondiente personaje. Además, una de sus posibles utilidades para mí, iría por hacerlo multijugador, aunque fuera de pocos jugadores pero que cada uno llevara su personaje.

Un poco de multimedia no hace daño

Son aventuras de texto, puro y duro, pero tampoco se hacen ascos a algún gráfico o sonido que ilustren lo que dice el contenido. Que no den pistas extra o despisten, pero que aporten un poco más de refinamiento.

De momento hay poco que enseñar, más que las ganas de hacerlo. Pero he empezado ya con ello. He creado un repositorio fossil e incluso he escrito las primeras líneas de código, sincronizando el remoto en mi nube personal de Nextcloud.

El código hasta ahora es muy simple, pero ya comprende el primer comando o acción del sistema: salir. No voy a extenderme mucho en explicaciones que seguramente os resultarán cansinas.

De momento todo está embutido en un solo fichero llamado trokola.tcl que consiste, en el siguiente código:

  #!/usr/bin/tclsh

# #####################################################################
# Trokola - Herramienta de ficción interactiva con Tcl/Tk
# Copyright (C) 2022 -- Notxor <notxor@nueva-actitud.org>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <https://www.gnu.org/licenses/>.
# ######################################################################

proc prompt {{t "> "}} {
    puts -nonewline $t
    flush stdout
}

proc terminar {{despedida "Adiós."}} {
    puts $despedida
    exit 0
}

proc procesa {linea} {
    switch $linea {
        abandonar {terminar}
        default {puts "Has dicho: $linea"}
    }
}

###############################################################################
#                               Bucle Principal                               #
###############################################################################
while {true} {
    prompt
    set linea [gets stdin]
    procesa $linea
}

He eliminado, en este listado del código fuente, los comentarios de las funciones donde se explican los parámetros que reciben y lo que devuelven y hacen.

De momento al hacerlo funcionar lo que hace es entrar en el bucle principal y repetir todo lo que le enviemos sin procesar, de momento, nada más. En el procedimiento procesa si la línea es «abandonar» llama a al procedimiento terminar que sale de nuevo al sistema mostrando una despedida.

Supongo que estaréis pensando ¡Qué mierda de código!, y os doy la razón. Pero esto es sólo la semilla de la que nacerá el nuevo inútil sistema.

Un amiguete me dice que no cuente nada, que cuando lo cuentas, los proyectos se gafan de alguna manera y no salen. No tengo esas supersticiones, los proyectos salen o se ponen según el empeño de los que los llevan a cabo. Sé que programaré con mucho empeño, compaginándolo con otros proyectos en marcha, en ratos libres, durante dos o tres meses. Si he terminado algo decente en ese tiempo, se lo enseñaré a alguien y si no, pues se quedará en el motón de pendientes. Pero seguro que por el camino encontraré buen aprendizaje.