//makes a mine every  2 turns
var
turns : integer;
procedure InitHooks;
begin
  RegisterHook('OnTurnBegin', ON_TURN_BEGIN);
  RegisterHook('OnInIt', ON_INIT)
end;
procedure OnInIt;
begin
turns := 0
end;
procedure OnTurnBegin;
var
  newmine : TWPobj;
begin
  if turns = 2 then begin
    newmine := MakeMine(GetSyncRandom(1920, 10),GetSyncRandom(696, 10));
    turns := 0;
  end;
  turns := turns + 1;
end;