#include "framework/framework.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

typedef struct {
    Tox_User_Status last_status;
    bool status_changed;
} BobState;

static void on_friend_status(const Tox_Event_Friend_Status *event, void *user_data)
{
    ToxNode *self = (ToxNode *)user_data;
    BobState *state = (BobState *)tox_node_get_script_ctx(self);

    if (tox_event_friend_status_get_friend_number(event) == 0) {
        state->last_status = tox_event_friend_status_get_status(event);
        state->status_changed = true;
        tox_node_log(self, "Alice changed status to %s", tox_user_status_to_string(state->last_status));
    }
}

static void alice_script(ToxNode *self, void *ctx)
{
    tox_node_wait_for_self_connected(self);
    tox_node_wait_for_friend_connected(self, 0);

    Tox *tox = tox_node_get_tox(self);

    tox_node_log(self, "Setting status to AWAY");
    tox_self_set_status(tox, TOX_USER_STATUS_AWAY);
    ck_assert(tox_self_get_status(tox) == TOX_USER_STATUS_AWAY);

    // Yield to let the status propagate
    for (int i = 0; i < 20; ++i) {
        tox_scenario_yield(self);
    }

    tox_node_log(self, "Setting status to BUSY");
    tox_self_set_status(tox, TOX_USER_STATUS_BUSY);
    ck_assert(tox_self_get_status(tox) == TOX_USER_STATUS_BUSY);

    for (int i = 0; i < 20; ++i) {
        tox_scenario_yield(self);
    }

    tox_node_log(self, "Setting status back to NONE");
    tox_self_set_status(tox, TOX_USER_STATUS_NONE);
    ck_assert(tox_self_get_status(tox) == TOX_USER_STATUS_NONE);

    ToxNode *bob = tox_scenario_get_node(tox_node_get_scenario(self), 1);
    WAIT_UNTIL(tox_node_is_finished(bob));
}

static void bob_script(ToxNode *self, void *ctx)
{
    BobState *state = (BobState *)ctx;
    tox_events_callback_friend_status(tox_node_get_dispatch(self), on_friend_status);

    tox_node_wait_for_self_connected(self);
    tox_node_wait_for_friend_connected(self, 0);

    tox_node_log(self, "Waiting for Alice to become AWAY...");
    WAIT_UNTIL(state->status_changed && state->last_status == TOX_USER_STATUS_AWAY);
    state->status_changed = false;

    tox_node_log(self, "Waiting for Alice to become BUSY...");
    WAIT_UNTIL(state->status_changed && state->last_status == TOX_USER_STATUS_BUSY);
    state->status_changed = false;

    tox_node_log(self, "Waiting for Alice to become NONE...");
    WAIT_UNTIL(state->status_changed && state->last_status == TOX_USER_STATUS_NONE);

    tox_node_log(self, "Status propagation verified!");
}

int main(int argc, char *argv[])
{
    ToxScenario *s = tox_scenario_new(argc, argv, 60000);

    BobState bob_state = {TOX_USER_STATUS_NONE, false};

    tox_scenario_add_node(s, "Alice", alice_script, nullptr, 0);
    tox_scenario_add_node(s, "Bob", bob_script, &bob_state, sizeof(BobState));

    ToxNode *alice = tox_scenario_get_node(s, 0);
    ToxNode *bob = tox_scenario_get_node(s, 1);

    tox_node_bootstrap(alice, bob);
    tox_node_friend_add(alice, bob);
    tox_node_friend_add(bob, alice);

    ToxScenarioStatus res = tox_scenario_run(s);
    if (res != TOX_SCENARIO_DONE) {
        fprintf(stderr, "Scenario failed with status %u\n", res);
        return 1;
    }

    tox_scenario_free(s);
    return 0;
}