:-consult('plnxt.pl').
 
start:-
	nxt_open,
	nxt_light_LED(activate,force),
	go_on_buddy.
 
go_on_buddy:-
	nxt_go(200),
	trigger_create(_,linia,[nxt_stop,wycofaj]),
	trigger_create(_,klucz,[nxt_stop,wyjedz]).
 
wycofaj:-
	nxt_go_cm(-200,20),
	nxt_rotate(200,90),
	go_on_buddy.
 
wyjedz:-
	nxt_go_cm(900, 100).
 
linia:-	
	nxt_light(Value,force),
	Value<30.
 
klucz:-
	nxt_light(Value,force),
	Value>55,
	Value<60.