Stealth Client Forum

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.