Stealth Client Forum

Code: Select all

sub AutoAttack()
var i, t_len = 2 ;
DIM t [ val( str( t_len ) ) ]
t[0] = "0x0191" ;
t[1] = "0x0190" ;
repeat
   for i = 0 to t_len -1
      uo.findtype( t[i], "-1", "ground" )
      If uo.FindCount() Then
         If uo.getNotoriety( "finditem" ) == 2 Then
            uo.Ignore( "finditem" )
         Else
            uo.attack( "finditem" )
            wait( 500 )
         End If
      End If
   next
   wait( 300 )
until false
End Sub

Code: Select all

Program killer;
var
   Enemy  : cardinal;
const
    Enemy := $0190, $0191; // Тип цели.

Begin
  repeat
    begin
      FindType(Enemy,ground);
      If FindCount > 0 then
        begin
          monster := FindItem;
          AddToSystemJournal('Атакую цель.');
          Attack(monster);
          wait(5000);
          end
      Else
        begin
          AddToSystemJournal('Цель не найдена.');
          wait(5000);
        end;
    end;
  until Dead;
End.

Code: Select all

program attack;

var bodytypes : array of Word;
      i : Integer;

begin
bodytypes := [$0190,$0191];

while True do
  begin
    IgnoreReset;
    for i := 0 to GetArrayLength(bodytypes) - 1 do
      begin
        if findtype(bodytypes[i],ground) > 0 then  
          if GetNotoriety(finditem) = 2 then
            Ignore(finditem)
          else
            Attack(finditem);
        wait(200);
      end;
    wait(300);
  end;
end.