program UseSkillPeacemaking;

Begin

while true do
begin
SetArStatus(True);
UseSkill('Peacemaking');
wait(3150);
end;

End.