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

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

% Utworzenie timera nadajace mu pewien
% jednoznaczenie okreslajacy go identyfikator.
createTimer(ID) :-
	ID is 723,
	write('Utworzono timer! '),
	write('ID: '),write(ID),nl.

% Mechanizm wyzwalajacy akcje timera.
wakeup(T,Time,Action) :-
	write('Timer '),
	write(T),
	write(' wyzwala po czasie '),
	write(Time),
	write(' akcje '),
	write(Action),nl,
	Action.

% Utworzenie timera nadajace mu pewien
% jednoznaczenie okreslajacy go identyfikator.
createTrigger(ID) :-
	ID is 583,
	write('Utworzono trigger! '),
	write('ID: '),write(ID),nl.

% Mechanizm wyzwalajacy akcje triggera.
% Times rowne 0 oznacza nieskonczonosc pracy triggera.
triggerFired(T,Event,Action,Times) :-
	write('Trigger '),
	write(T),
	write(' wyzwala '),
	write(Times),
	write(' razy po zdarzeniu '),
	write(Event),
	write(' akcje '),
	write(Action),nl.

triggerFired(T,Event,Action) :-
	triggerFired(T,Event,Action,1).