procedure OnTick;
begin
      if States.GameTime = 8000 then
      Actions.ShowMsg(0, '<$0>');
      if States.GameTime = 9600 then
      Actions.ShowMsg(0, '<$1>');
      if States.GameTime = 8000 then
      begin
      Actions.GiveGroup(4,23,4,3,4,12,4);
      Actions.GiveGroup(4,23,9,3,4,12,4);
      Actions.GiveGroup(4,23,4,6,4,12,4);
      Actions.GiveGroup(4,23,9,6,4,12,4);
      end;
end;