Speech ID Debugger - CJ

{$CLEO}
{$I constants.inc}
{$VERSION 3.0.1000}

0000:

REPEAT
    WAIT 0
UNTIL TEST_CHEAT "SPEECHID"

4@ = 0

WHILE TRUE
    WAIT 0
    0AD1: show_formatted_text_highpriority "Audio ID: %d - %d" time 1 4@ 6@
    IF IS_KEYBOARD_KEY_JUST_PRESSED 0x31
    THEN
        4@ += 1
    END
    IF IS_KEYBOARD_KEY_JUST_PRESSED 0x32
    THEN
        4@ -= 1
    END
    IF TEST_CHEAT "T"
    THEN
        SAY_AMBIENT_SPEECH_AND_STORE_PHRASE $PLAYER_ACTOR 4@ STORE_TO 5@
        IF NOT 5@ == -1
        THEN 0085: 6@ = 5@
        END
    END
END