:- consult('plnxt.pl'). start :- nxt_open, nxt_goal(ewka, alg1). alg1 :- nxt_go(200), trigger_create(_,check_line,[nxt_stop,Angle is 120 + random(120),nxt_rotate(100,Angle)]), alg1. check_line :- nxt_light(Value, force),write(Value),nl, Value < 30. stop :- trigger_killall, nxt_stop, nxt_close.
:- consult('plnxt.pl'). start :- nxt_open, nxt_goal(ewka, alg2). alg2 :- nxt_go(100), trigger_create(_,check_line,[wroc_na_linie]), alg2. check_line :- nxt_light(Value, force),write(Value),nl, Value > 30. wroc_na_linie :- nxt_stop, nxt_rotate(100, 10), trigger_create(_,not(check_line),[alg2]). stop :- trigger_killall, nxt_stop, nxt_close.
Spakowane pliki: pasek_paszko_piatek_lego_lab3.rar