Code: Select all
Program Peacemaking;
var t: Integer;
{$Include 'all.inc'}
Begin
SetARStatus(true);{Включаем реконнектор}
Hungry(1,backpack);{Проверяем голод(будет кушать до состояния stuffed)}
while true do {Зацикливаем скрипт}
begin
if Connected then
begin
for t := 0 to 30 do
begin
UseSkill('Peacemaking'); {Юзаем скилл писмейкинг}
Wait(5000);
AddToSystemJournal('Peacemaking'); {В системном журнале пишем что скрипт нормально работает}
Wait(6000);
end;
Hungry(1,backpack);
end;
end;
End.