:- consult('plnxt.pl').
 
start :-
    nxt_open,
    nxt_light_LED(activate),
    thread_create(go_on_buddy,_,[detached(true)]).
 
go_on_buddy :-
    nxt_rotate(200,720),
    trigger_create(_,place,check_place).
 
check_place :-
    nxt_stop,
        nxt_go_cm(300,15),
        nxt_go_cm(-300,15),
    go_on_buddy.
 
% Sprawdzenie, czy jest element
place :-
    nxt_ultrasonic(Value,force),
    Value < 19.
 
stop :-
    trigger_killall,
    nxt_light_LED(passivate),
    nxt_stop,
    nxt_close.