:- module(nxt_actions, [
		  set_speed/2, set_speed/3,
		  get_speed/2,
		  get_light/1,
		  get_touch/1,
		  get_distance/1,
		  get_sound/1
		       ]).

% Wprawienie w ruch silnika z zadana predkoscia.
set_speed(Motor,Speed) :-
	write('Motor '),
	write(Motor),
	write(': predkosc '),
	write(Speed),nl.

% Obrot silnika z zadana predkoscia o zadany kat.
set_speed(Motor,Speed,Angle) :-
	write('Motor '),
	write(Motor),
	write(': predkosc '),
	write(Speed),
	write(', Kat obrotu: '),
	write(Angle),nl.
	
% Odczytanie predkosci silnika.
get_speed(Motor,Speed) :-
	Speed is 14,
	write('Odczyt predkosci silnika '),
	write(Motor),
	write('wynosi: '),
	write(Speed),nl.

% Odczytanie natezenia swiatla.
get_light(Value) :-
	Value is 30,
	write('Odczyt natezenia swiatla: '),
	write(Value),nl.

% Odczytanie informacji o wcisnieciu sensora dotykowego.
get_touch(Value) :-
	Value is true,
	write('Odczyt dotyku: '),
	write(Value),nl.

% Odczytanie pomiaru z sensora ultradzwiekowego.
get_distance(Value) :-
	Value is 30,
	write('Odczyt odleglosci: '),
	write(Value),nl.

% Odczytanie natezenia dzwieku.
get_sound(Value) :-
	Value is 30,
	write('Odczyt natezenia dzwieku: '),
	write(Value),nl.