:- consult('plnxt.pl'). start :- nxt_open, trigger_create(_,check_line,[nxt_stop,rotate],inf), nxt_go(200, force). check_line :- nxt_light(Level, force), Level < 80. rotate :- Angle is 90+ random(90), nxt_rotate(360,Angle). :- start.
:- consult('plnxt.pl'). start :- nxt_open, trigger_create(_,check_distance,[nxt_stop,obroc],inf), nxt_go(200, force). check_distance :- nxt_ultrasonic(Level,force), Level < 50. rotate :- Angle is 90+ random(90), nxt_rotate(360,Angle). :- start.