Учебный Проект. Релиз 7. Класс Human - История изменений

Victor Yukhtenko в 16:16, 28 марта 2011

2011-03-28T16:16:29Z

← Предыдущая		Версия 18:16, 28 марта 2011
Строка 2:		Строка 2:
	<vip>		<vip>
	/******************************************************		/******************************************************
	Copyright (c) ~~2008. Prolog Development Center SPb~~		Copyright (c) Victor Yukhtenko
	~~Written by:~~ Victor Yukhtenko

	Class human		Class human

Victor Yukhtenko: /* Ссылки */

2009-10-05T12:02:27Z

Ссылки

← Предыдущая		Версия 14:02, 5 октября 2009
Строка 77:		Строка 77:
	end implement human		end implement human
	</vip>		</vip>
	~~==Ссылки==~~
	~~[[Category:Проекты]]~~
	~~[[Category:Игры]]~~

Victor Yukhtenko в 20:51, 3 октября 2009

2009-10-03T20:51:25Z

← Предыдущая		Версия 22:51, 3 октября 2009
Строка 1:		Строка 1:
	{{~~Ползунок7~~}}		{{Учебный Проект. Релиз 7}}
	<vip>		<vip>
	/******************************************************		/******************************************************

Victor Yukhtenko: «Ползунок7. Класс Human» переименована в «Учебный Проект. Релиз 7. Класс Human»

2009-10-03T20:29:55Z

«Ползунок7. Класс Human» переименована в «Учебный Проект. Релиз 7. Класс Human»

← Предыдущая	Версия 22:29, 3 октября 2009
(нет различий)

Victor Yukhtenko: /* Ссылки */

2009-10-03T20:29:18Z

Ссылки

← Предыдущая		Версия 22:29, 3 октября 2009
Строка 78:		Строка 78:
	</vip>		</vip>
	==Ссылки==		==Ссылки==
	[[Category:~~Примеры~~]]		[[Category:Проекты]]
	[[Category:Игры]]		[[Category:Игры]]

Victor Yukhtenko в 20:18, 6 января 2008

2008-01-06T20:18:01Z

← Предыдущая		Версия 22:18, 6 января 2008
Строка 2:		Строка 2:
	<vip>		<vip>
	/******************************************************		/******************************************************
	Copyright (c) ~~2007/~~ Prolog Development Center SPb		Copyright (c) 2008. Prolog Development Center SPb
	Written by: Victor Yukhtenko		Written by: Victor Yukhtenko

Victor Yukhtenko: /* Ссылки */

2007-12-22T19:02:11Z

Ссылки

← Предыдущая		Версия 21:02, 22 декабря 2007
Строка 77:		Строка 77:
	end implement human		end implement human
	</vip>		</vip>
	=Ссылки=		==Ссылки==
	[[Category:~~Задачи~~]]		[[Category:Примеры]]
	[[Category:Игры]]		[[Category:Игры]]

Victor Yukhtenko в 08:44, 18 декабря 2007

2007-12-18T08:44:32Z

← Предыдущая		Версия 10:44, 18 декабря 2007
Строка 77:		Строка 77:
	end implement human		end implement human
	</vip>		</vip>
			=Ссылки=
			[[Category:Задачи]]
			[[Category:Игры]]

Victor Yukhtenko в 08:27, 18 декабря 2007

2007-12-18T08:27:54Z

← Предыдущая		Версия 10:27, 18 декабря 2007
Строка 1:		Строка 1:
	{{Ползунок7}}		{{Ползунок7}}
	<vip>		<vip>
	/******************************************		/******************************************************
	Class human		Copyright (c) 2007/ Prolog Development Center SPb
			Written by: Victor Yukhtenko

			Class human
	******************************************/		******************************************/
	class human:player		class human:player

Victor Yukhtenko в 08:03, 18 декабря 2007

2007-12-18T08:03:58Z

← Предыдущая		Версия 10:03, 18 декабря 2007
Строка 1:		Строка 1:
	{{Ползунок7}}		{{Ползунок7}}
			<vip>
			/******************************************
			Class human
			******************************************/
			class human:player
			open core

			predicates
			getPlayerDescriptor:(game::language_D)->string Descriptor.

			end class human

			implement human
			open core

			facts
			name:string:="Hum_".

			clauses
			getPlayerDescriptor(game::en)="Human: Your strategy".
			getPlayerDescriptor(game::ru)="Человек: Ваша стратегия".

			clauses
			setName(ProposedId):-
			name:=string::format("%s%s",name,ProposedId),
			Name=humanInterface::getInput(humanInterface::playerName_S,name),
			if not(Name="") then
			name:=Name
			end if.

			clauses
			move():-
			InputString=humanInterface::getInput(humanInterface::playerStep_S),
			try
			juniourJudge::set(InputString)
			catch TraceID do
			handleException(TraceID),
			fail
			end try,
			!.
			move():-
			move().

			clauses
			announceWin():-
			humanInterface::announce(humanInterface::win_S,name).

			announceLoss():-
			humanInterface::announce(humanInterface::loss_S,name).

			class predicates
			handleException:(exception::traceId TraceID).
			clauses
			handleException(TraceID):-
			foreach Descriptor=exception::getDescriptor_nd(TraceID) do
			Descriptor = exception::descriptor(
			_ClassInfo1,
			_Descriptor,
			_Kind,
			ExtraInfo,
			_GMTTime,
			_ExceptionDescription,
			_ThreadId),
			if
			ExtraInfo=[namedValue("data",string(CellPointer))]
			then
			humanInterface::announce(humanInterface::errorWrongCell_S,CellPointer)
			else
			humanInterface::announce(humanInterface::error_S,"")
			end if
			end foreach.

			end implement human
			</vip>