:- consult('plnxt.pl').

start :-
       nxt_goal(dyzio, go_go_go),
       nxt_goal(henio,go_go_go).

go_go_go :-
       nxt_go(120),
       nxt_light_LED(activate,force),
       trigger_create(1,black_hole, die_robots),
       trigger_create(2, red_light, run_run).

black_hole :-
       nxt_light(Value,force),
       write(Value), write(', \n'),
       Value < 50,
       nxt_light(Value,force),
       Value < 50.

red_light :-
       nxt_light(Value,force),
       write(Value), write(', red\n'),
       Value < 63,
       Value > 55.

die_robots :-
       nxt_switch_robot(henio),
       nxt_rotate(200,180,force),
       nxt_go(900,force),
       nxt_switch_robot(dyzio),
       nxt_rotate(200,180,force),
       nxt_go(900,force).
run_run :-
       trigger_kill(1),
       trigger_create(3,black_hole, stop),
       nxt_go(300).

turner_brown :-
       nxt_rotate(120, 120,force),
       go_go_go.

stop :-
       trigger_killall,
       nxt_stop,
       nxt_close.