Here is a very simple accelerationscript.
call it with [20, 96] execVM "acceleration.sqf";
private["_fps","_acceleration","_year","_month","_day","_hour","_minute","_second"];
_fps = _this select 0;
_acceleration = _this select 1;
_year = date select 0;
_month = date select 1;
_day = date select 2;
_hour = date select 3;
_minute = date select 4;
_second = 0;
while {true} do
{
_second = _second + (_acceleration/_fps);
while {_second > 59} do
{
_minute = _minute + 1;
_second = _second - 60;
};
while {_minute > 59} do
{
_hour = _hour + 1;
_minute = _minute - 60;
};
if (_hour > 23) then
{
_hour = _hour - 24;
};
//day, month and year ignored
hintSilent format["%1_%2_%3", _hour, _minute, _second];
setDate[_year, _month, _day, _hour, _minute];
sleep (1/_fps);
};