Object-oriented Software in Ada 95

Case study: Design of a game 145
In the implementation of the class Class_Player the procedure Set sets the colour for the player’s
counter.
with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
package body Class_Player is
procedure Set(The:in out Player; C:in Counter_Colour ) is
A_Counter : Counter;
begin
Set( A_Counter, C ); --Set colour
The.Plays_With := A_Counter; --Player is playing with
end Set;
The procedure Get_Move communicates with the human player using a simple text based interaction.
procedure Get_Move(The:in Player; Row,Column:out Integer) is
Valid_Move : Boolean := False;
begin
while not Valid_Move loop
begin
Put("Please enter move "); Display( The.Plays_With );
Put(" row column : "); Get( Row ); Get( Column );
Valid_Move := True;
exception
when Data_Error =>
Row := -1; Column := -1; Skip_Line;
when End_Error =>
Row := 0; Column := 0;
return;
end;
end loop;
end Get_Move;
Note: A player can pass a turn by entering a coordinate of 0, 0.
The counter that the player plays with is returned by the function My_Counter.
function My_Counter( The:in Player ) return Counter is
begin
return The.Plays_With;
end My_Counter;
© M A Smith - May not be reproduced without permission