Stealth Client Forum

Code: Select all

Program Snooping; 
var t : Integer; 
      enemy : Cardinal; 

{$Include 'all.inc'} 

Begin 
Enemy := $41616F7F; {Ид пака} 
SetARStatus(true); 
clearjournal; 
while not Dead do 
 begin 
  if Connected then 
  begin 
   for t := 0 to 10 do 
   begin 
               CheckSave; 
               UseObject(Enemy); 
   Wait(5000); 
   end; 

   end; 
 end; 
End.

Code: Select all

 11:20:32: UseObject error: Object not finded. 

Code: Select all

program snooping;
// v.2.01b (зделан (с)proZak- под шард AoP) 

{$Include 'all.inc'}

var my_timer: Integer; 
    item_type : Word;  
    time_begin : TDateTime;
    EnemyWarrior : Cardinal; 

const
pack = $63F5A113;   // ID бекпака чара на котором мы будем качатсо
EnemyType1 = $0190;         // типы чаров разных полов 
EnemyType2 = $0191;


   function AutoFindEnemy : Cardinal; 
   // функция поиска чаров рядом для определения жертви 
   // Возвращает сериал жертви. 
   begin 
      Finddistance := 1; 
      Ignore(self); 
      if FindType(EnemyType1, Ground) = 0 then FindType(EnemyType2, Ground); 
      if finditem = 0 then 
      begin 
         // не нашли врагов :( 
         AddToSystemJournal('Error: жертва не найдена!'); 
         Result := $00000000; 
          Exit; 
       end 
      else 
      begin 
         // Ага! Вот он, гадина! 
         AddToSystemJournal('Enemy found: ' + GetName(finditem)); 
         Result := finditem; 
      end; 
   end; 

Begin

ClearJournal; 
SetWarMode(false); 
SetARStatus(true); 
if not connected then connect; 

repeat 

   while (dead = false) and (connected = true) do 
        begin
          EnemyWarrior := AutoFindEnemy; 
          if EnemyWarrior = $00000000 then exit
          UseObject(EnemyWarrior); 
          wait(1000); 
          checksave;
          UseObject(pack); 
          wait(4000); 
          checksave;
        end;
      wait(500); 
      if dead then 
      begin 
      AddToSystemJournal('Умерли'); 
      SetARStatus(false); 
      Disconnect; 
      Exit;
      end;

until false;
   
End.

Code: Select all

15:50:56: Script Snooping.sc stoped successfuly
15:50:59: Compiling
15:50:59: Compiler: [Hint] (Snooping.sc at 6:22):  Variable 'MY_TIMER' never used
15:50:59: Compiler: [Hint] (Snooping.sc at 7:21):  Variable 'ITEM_TYPE' never used
15:50:59: Compiler: [Hint] (Snooping.sc at 8:27):  Variable 'TIME_BEGIN' never used
15:50:59: Compiled succesfully
15:50:59: Enemy found: NoName
15:51:00: UseObject error: Object not finded.
15:51:04: Enemy found: NoName
15:51:05: UseObject error: Object not finded.
15:51:10: Enemy found: NoName
15:51:11: UseObject error: Object not finded.
15:51:15: Enemy found: NoName
15:51:16: UseObject error: Object not finded.
15:51:20: Enemy found: NoName
15:51:21: UseObject error: Object not finded.

Code: Select all

12:37:29: Compiler: [Error] (135:1): period ('.') expected
12:37:29: Compiling failed
12:37:29: Script Snooping.sc stoped successfuly