program UseSkillPeacemaking;
Begin
while true do begin SetArStatus(True); UseSkill('Peacemaking'); wait(3150); end;
End.