:- consult('plnxt.pl').
 
start :-
    nxt_open,
    nxt_light_LED(activate),
    thread_create(go_on_buddy,_,[detached(true)]).
 
go_on_buddy :-
    nxt_go(300),        % jazda do przodu
    trigger_create(_,border,check_border_buddy),
    trigger_create(_,key,check_key).
 
check_border_buddy :-
    nxt_stop,   
        nxt_go_cm(-300,10,force),
        nxt_rotate(360,90),
    go_on_buddy.
 
check_key :-
    nxt_stop,
    trigger_killall,   
    nxt_play_tone(1000,500),    % dzwiek - znalazl klucz
    nxt_go(300),                % jazda do przodu
    trigger_create(_,border,finish).
 
% Sprawdzenie, czy swiatlo jest ok
border :-
    nxt_light(Value,force),
    Value < 50.
 
% Sprawdzenie, czy klucz
key :-
    nxt_light(Value,force),
    Value > 60,
    Value < 62.
 
finish :-
    nxt_go_cm(300,20,force),    % wyjazd poza linie
    nxt_play_tone(1000,500),        % dzwiek poza bariera
    stop.
 
stop :-
    trigger_killall,
    nxt_light_LED(passivate),
    nxt_stop,
    nxt_close.