CAAD

[ UnknownVerb word      obj;
   objectloop (obj) {
      if (TestScope(obj, player)) {
         if ((WordInProperty(word, obj, name))
            || (WordInProperty(word, obj, name_f))
            || (WordInProperty(word, obj, name_fp))
            || (WordInProperty(word, obj, name_m))
            || (WordInProperty(word, obj, name_mp))) {
            verb_wordnum = 0;
            return 'no.verb';
         }
      }
   }
   objectloop (obj ofclass Room) {
      if ((WordInProperty(word, obj, name))
         || (WordInProperty(word, obj, name_f))
         || (WordInProperty(word, obj, name_fp))
         || (WordInProperty(word, obj, name_m))
         || (WordInProperty(word, obj, name_mp))) {
         verb_wordnum = 0;
         return 'teleport.verb';
      }
   }

   return false;
];

[ PrintVerb word;
   if (word == 'no.verb') {
      print "hacer algo con";
      return true;
   }
   if (word == 'teleport.verb') {
      print "desplazarte a";
      return true;
   }
   return false;
];

!!------------------------------------------------------------------------------
!! ##DefaultAction
!!------------------------------------------------------------------------------
Verb 'no.verb' * noun -> DefaultAction;

[ DefaultActionSub;
   <<Examine noun>>;
];

!!------------------------------------------------------------------------------
!! ##Teleport
!!------------------------------------------------------------------------------
[ TeleportScope obj adjacent_location;
   switch (scope_stage) {
      1:   return false;
      2:   objectloop (obj in Compass) {
            adjacent_location = real_location.(obj.door_dir);
            if (adjacent_location ~= 0)
               PlaceInScope(adjacent_location);
         }
         return true;
      3:   print_ret (parser) "No puedes llegar hasta ahí desde donde estás en
         estos momentos.";
   }
];

Extend 've' last
   * scope=TeleportScope         -> Teleport
   * 'a//' scope=TeleportScope      -> Teleport
   * 'hacia' scope=TeleportScope   -> Teleport
;

Extend 'entra' last
   * scope=TeleportScope         -> Teleport
   * 'a//' scope=TeleportScope      -> Teleport
   * 'en' scope=TeleportScope      -> Teleport
;

Verb 'teleport.verb'
   * scope=TeleportScope         -> Teleport
;

[ TeleportSub;
   PlayerTo(noun, 2);
];

[ HandleGlkEvent ev abortres obj newcmd cmdlen;
   !! Se gestiona el evento glk:
   if (ev-->0 == 8) { ! evtype_Hyperlink   - selection of a hyperlink in a window
      glk_request_hyperlink_event(gg_mainwin);
      obj = ev-->2;
      if (obj tiene nombre) newcmd = obtener nombre del objeto;
      else return 1;
      glk_cancel_line_event(gg_mainwin, 0);
      cmdlen = PrintAnyToArray(abortres + WORDSIZE,
         INPUT_BUFFER_LEN - WORDSIZE, newcmd);
      abortres-->0 = cmdlen;
      return 2;
   }
];

[ link obj;
   #Ifdef TARGET_GLULX;
   if (obj tiene nombre) glk_set_hyperlink(obj);
   else glk_set_hyperlink(0);
   #Endif; ! TARGET_GLULX;
];

#!/usr/bin/perl

if ($#ARGV != 1) {
   print "Se deben especificar los archivos de entrada y salida del script.";
   print "\n\n";
   exit 4;
}

$input_file = $ARGV[0];
$output_file = $ARGV[1];

# Se abre el archivo de entrada:
open (FILE, "<$input_file")
   or die "No se pudo abrir el archivo de entrada $input_file: $!\n";
@lines = <FILE>;
close FILE;

# Se abre el archivo de salida:
open (STDOUT, ">$output_file")
   or die "No se pudo abrir el archivo de salida $output_file: $!\n";

for (@lines) {

   # Se hacen las sustituciones (¡el orden importa!):
   s/\*{2,}(.*?)\*{2,}/", (strong) "\1", "/g;
   s/\*(.*?)\*/", (emph) "\1", "/g;
   s/\[(.+?)(\:\s*|\,\s*)(.+?)\]/";\nlink(\1, "\3");\nprint "/g;
   s/\[(.+?)\]/";\nlink(\1);\nprint "/g;

   print;
}

# Cierra el archivo de salida:
close STDOUT;