!----------------------------------------------------------------
! Funciones de utilidad

! Pausa
[ Pause i width;
    width = 0->33; if (width == 0) width = 80;
    spaces (width - 18);
    font off;print "[ Pulsa Espacio ]"; font on;
    do { @read_char 1 0 0 i; } until (i==32 or 10 or 13);
    CLS();
];

! Pausa dramática
[ RealPause i;
    @read_char 1 0 0 i;
];

! Borrar pantalla
[ CLS ;
    @set_colour 9 2;
    @erase_window -1;
];

! Mensaje al hablar con un personaje (cambia color, etc.)
[ printHablaGenConst personaje idColor frase pensando color;
    
    switch (idColor) {
        1:  color = 8;      ! Jugador (cyan)
        2:  color = 3;      ! Taquillero (red)
        3:  color = 4;      ! 3 para la cola (green, blue, white)
        4:  color = 6;
        5:  color = 9;
        6:  color = 7;      ! Mujer de delante (magenta)
        7:  color = 5;      ! Guardia (yellow)

        default:
            color = 4;      ! Por defecto... green, por ejemplo
    }
    
    @set_colour color 2;
    style bold;
!    if (pensando)  print "(";
    print (string) personaje;
!    if (pensando)  print ")";
    print ": ";
    style roman;
    if (pensando) {
        print "(";
    } else {
        print "~";
    }
    print (string) frase;
    if (pensando) {
        print ")";
    } else {
        print "~";
    }
    print "^";
    @set_colour 9 2;
];


! Mensaje al hablar con un personaje (cambia color, etc.)
[ printHablaGen funPersonaje idColor frase pensando color;
    
    switch (idColor) {
        1:  color = 8;      ! Jugador (cyan)
        2:  color = 3;      ! Taquillero (red)
        3:  color = 4;      ! 3 para la cola (green, blue, white)
        4:  color = 6;
        5:  color = 9;
        6:  color = 7;      ! Mujer de delante (magenta)
        7:  color = 5;      ! Guardia (yellow)

        default:
            color = 4;      ! Por defecto... green, por ejemplo
    }
    
    @set_colour color 2;
    if (~~pensando) {
        style bold;
        funPersonaje();
        print ": ";
        style roman;
    }
    print "~";
    print (string) frase;
    print "~";
    print "^";
    @set_colour 9 2;
];