mkbot @ [
    isPrefixed @ {$flash },
    state -> (
        
        m: state::{event}::{message}::{text};
        tid: state::{event}::{message}::{thread_id};

        as: split @ [m, { }];
        c1: as::1;
        c2: as::2;
        n: len @. as > 3 ? [eval @ as::3, 5];
        d: len @. as > 4 ? [eval @ as::4, 2];
        
        forin @- [i, range @ [1, n], (
            dm'tid @ {$lights-set {c1}};
            sleep @ (d * 1000);
            dm'tid @ {$lights-set {c2}};
            sleep @ (d * 1000);
        )];
    ),

    (
        name :> {Flash Bot} |
        syntax :> {$flash <C1> <C2> [<NUMFLASHES=5>] [<SECS-BETWEEN-FLASHES=2>]} |
        description :> {The Flash Bot sends messages to flash the twinkly lights colors C1 and C2}
    )

];