:- consult('plnxt.pl').
	
	start:-
	  nxt_open,
	  go_on_buddy,
	  trigger_create(_,pushed,grab_ball).
	 
	go_on_buddy :-
	  nxt_go(300),
	 
	grab_ball :-
	  nxt_stop
	  sleep(1),
	  nxt_pincer(close),
	  sleep(1),
	  nxt_go_cm(-300,10),
	  nxt_rotate(300,180),
	  nxt_go_cm(300,30),
	  nxt_pincer(open),
	  nxt_go_cm(-300,10),
	  nxt_stop,
	  nxt_close.
	
	pushed :-
	  nxt_touch(Value,force),
	  Value=1.