Unit Settings of BattleshipGames

by Josh Blake: L6 Age ~17

unit Settings;
{
    Copyright (c) 2014 Josh Blake

    Licensed under the Apache License, Version 2.0 (the "License"); you may not
    use this file except in compliance with the License, as described at
    http://www.apache.org/licenses/ and http://www.pp4s.co.uk/licenses/
}
interface
type
  TShips = Array of Integer;

const
  DEBUG: Boolean = True;
  SHIP_START_HP: Array [1..5] of Integer = (5, 4, 3, 3, 2);

procedure Log(Value:String);

implementation

procedure Log(Value: String);
var f: text;
begin
  if DEBUG then begin
    Assign (f, 'log.txt');
    Append(f);
    Writeln (f, Value);
    close (f);
  end;
end;

end.
Programming - a skill for life!

by Josh Blake: L6 Age ~17