Stealth Client Forum

Code: Select all

Program kill_dummie;

const
Dummie = $00000000; // ID куклы

Begin
repeat
  begin
    Attack(Dummie);
    wait(5000); // указать свою задержку
  end;
until Dead;
End.

Code: Select all

Program kill_dummie; 

const 
Dummie = $00000000; // ID куклы 

Begin 
repeat 
  begin 
    if (WarMode = false) then
      begin
        SetWarMode(true);
      end;
    UseObject(Dummie);
    wait(5000);
  end; 
until Dead; 
End.

Code: Select all

Program STR_Training;

const
Maniken=$4003B650;
food=$09E9;

var
i: integer;

procedure Check_For_Food;
begin
  FindType(food,Backpack);
  if FindCount>0 then UseObject(FindType(food,Backpack));
end;


Begin

while not dead do
 begin
  ClearJournal;
  UseObject(Maniken);
  wait(1000);
  if InJournal('attacking')=1 then UOSay('guards');
   UseSkill('Stealth')
   wait(3500);
 end
End.