:- consult('plnxt.pl').
 
start :-
	nxt_goal(agatka, go_on_buddy).
 
go_on_buddy :-
	nxt_go(100),
	trigger_create(_,black,szukaj_wyjscia),
	trigger_create(_,red,prison_break).
       
szukaj_wyjscia :-
	nxt_stop,	
	nxt_rotate(100, 135),
	go_on_buddy.
 
black :-
	nxt_light(Value,force),
	Value < 55.

red :-
	nxt_light(Value, force),
	Value > 61,
	Value < 63.
 
prison_break :-
	nxt_play_tone(500,1000),
	nxt_go_cm(500, 1000),
	nxt_play_tone(500,2000),
	stop.

stop :-
	trigger_killall,
	nxt_stop,
	nxt_close.