:-consult('/home/student/plnxt/plnxt.pl').
 
start:-
	nxt_open,
	go_on_buddy,
	trigger_create(_,pushed,[nxt_stop,nxt_close]).
 
go_on_buddy :-
	nxt_go(200),
        sleep(1),
	trigger_create(_,clap,wait_a_second_buddy).
 
wait_a_second_buddy :-
	nxt_stop,
        sleep(1),
	trigger_create(_,clap,go_on_buddy).
 
% Sprawdzenie klaśnięcia.
clap :-
	nxt_sound(Value,force),
	Value > 15.
 
% Sprawdzenie czujnika dotyku.
pushed :-
	nxt_touch(Value,force),
	Value=1.