Guild Allianse

1) Находим место на улице где почти некто не ходит
2) Ставим ньюбика рядом с собой!
- если влом зарабатывать килы то я думаю что не для кого не секрет как сделать ньюбика серым!
3) Вписываем ID ньюба, кидаем в пак бинты и качаемся

Код: Выделить всё

program ForensicEvaluation;

CONST
  Nub = $03344a9e; {ID ньюба}
  Bandage = $0e21; {Type Бинтов. Не изминять!}
  Body = $2006; {Type трупа. Не изминять!}

{$Include 'all.inc'}

procedure Kill;
  begin
    ClearJournal;
    WaitTargetObject(Nub);
      useobject(findType(Bandage,backpack));
      wait(1000);
      Attack(Nub); 
    wait(1000);
    end;
 
BEGIN

SetARStatus(true);
 
  AddToSystemJournal('Скрипт написал Metall (Age of Power)');
  Wait(1000);

while true do
  begin
    FindType(Body,ground);
    if FindCount < 1 then 
    begin
      Kill;
    end
      else
    begin
    WaitTargetObject(findType(Body,ground));
    useSkill('Forensic Evaluation');
      wait(3200);
  end;
 end;
END.