Difference between revisions of "Tutorial Project. Release 7. Class Human"
From wiki.visual-prolog.com
m |
m (→References) |
||
Line 79: | Line 79: | ||
==References== | ==References== | ||
[[ru:Ползунок7. Класс Human]] | [[ru:Ползунок7. Класс Human]] | ||
[[Category: | [[Category:Tutorial Project Evolutions]] |
Revision as of 19:48, 21 October 2009
Tutorial Project. Release 7 |
---|
/****************************************************** Copyright (c) 2008. Prolog Development Center SPb Written by: Victor Yukhtenko 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