Predefpattern.adb

-- Use predefined pattern

function PredefPattern return Move is
begin
   if MoveSpecs(CurrentMoveSpecs).List(OpponentSpecs(CurrentOpponent).MatchNum,MN/32)/2**(MN mod 32) mod 2 = 1 then
      return Cooperate;
   else
      return Defect;
   end if;
end PredefPattern;

Tillbaka till huvudsidan