Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Peacemaking

Only working scripts
Post Reply
Alex
Moderator
Moderator
Posts: 351
Joined: 07.04.2005 4:41

Peacemaking

Post by Alex »

В паке хавку, реконектор включаеться сам.

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.
Last edited by Alex on 03.05.2005 12:47, edited 2 times in total.
Post Reply