Object-oriented Software in Ada 95

132 Case study: Design of a game
9.5 Implementation of the main class Game
Using the design carried out above, the specification of the class Game is :
with Class_Board, Class_Player, Class_Counter;
use Class_Board, Class_Player, Class_Counter;
package Class_Game is
type Game is private;
procedure play( The:in out Game );
private
type Player_Array is array(Counter_Colour) of Player;
type Game is record
Reversi : Board; --The playing board
Contestant : Player_Array;
end record;
end Class_Game;
and the implementation is as follows:
package body Class_Game is
procedure Play( The:in out Game ) is --Play reversi
Current_State : State_Of_Game; --State of game
Person : Counter_Colour; --Current player
X, Y : Integer; --Move
Move_Is : Move_Status; --Last move is
begin
Set_Up( The.Reversi );
--Set up board
Set( The.Contestant(Black), Black ); --Set player black
Set( The.Contestant(White), White ); --Set player white
© M A Smith - May not be reproduced without permission