View source for Tutorial Project. Release 7. Class Human

From wiki.visual-prolog.com

← Tutorial Project. Release 7. Class Human

You do not have permission to edit this page, for the following reasons:

The action you have requested is limited to users in the group: emailconfirmed.
You must confirm your email address before editing pages. Please set and validate your email address through your user preferences.

You can view and copy the source of this page.

{{PolyLine7.Players}}
<vip>
/******************************************************
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
</vip>
==References==
[[ru:Ползунок7. Класс Human]]
[[Category:PolyLine Evolutions]]

Template used on this page:

Template:Tutorial Project. Release 7. Players (view source)

Return to Tutorial Project. Release 7. Class Human.

Retrieved from "https://wiki.visual-prolog.com/index.php?title=Tutorial_Project._Release_7._Class_Human"

View source for Tutorial Project. Release 7. Class Human

Search

Navigation

external links

collaboration

Personal tools

Views