опять же Снуппинг...

[$hkeR]

всем привет, помогите плз, хотелось бы чтобы чар просто опенил бек пак соседа, и все=)

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.

http://stealth.od.ua/forum/viewtopic.php?t=518 вот оригинал

пробавал, ни тот ни етот не работают, в моем варианте пишет :

Code: Select all

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

[Scripts Writer]

ID пака вписал?

[proZak]

вот скрипт у меня работает без отказно:

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.

токо аиди бекпака поставиш и все!

[$hkeR]

!

вот что пишет.. нихрена не делает=( ID пака вставил свое

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.

[Unholy]

всем привет, помогите плз, хотелось бы чтобы чар просто опенил бек пак соседа, и все=)

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.

http://stealth.od.ua/forum/viewtopic.php?t=518 вот оригинал

пробавал, ни тот ни етот не работают, в моем варианте пишет :

Code: Select all

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

У данного скрипта 2 проблемы!
1. Нету проверки на ворлд сейв.
2. и Самая главная - Юзер не умеет вписывать айди... я не знал что такие люди еще существуют!

КАК УЗНАТЬ ID Предмета:

Пишем в Инже

Code: Select all

,info

Указываем появившемся прицелом на предмет ИД которого хотим узнать
Получаем что-то типа

ID=0x402E03B0 Type=0x13EC AOYGQMD Name=
Quantity: 1 Colour: 0x0000 Layer: 0 Has: 1
X=78 Y=134 Z=0 C=0x4045CC38 F=0x00

Копируем этот код (он выделен) и меняем 0х на $
В данном случае:

Code: Select all

0x402E03B0

->

Code: Select all

$402E03B0

И о чудо! Мы получили ИД объекта!

[$hkeR]

если бы ты посмотрел изначальную версию скрипта
http://stealth.od.ua/forum/viewtopic.php?t=518 вот оригинал
и мою, сравнил бы ID, мог бы догадаться что я умею его вписывать , проблема в том что чар отказываеться видеть и паки чара!
версию слеса `0,95b`
может в етом проблема, если да, то где скачать нормальную,рабочую версию:?

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

вот ща ошибка вот ета

[proZak]

если бы ты посмотрел изначальную версию скрипта
http://stealth.od.ua/forum/viewtopic.php?t=518 вот оригинал
и мою, сравнил бы ID, мог бы догадаться что я умею его вписывать , проблема в том что чар отказываеться видеть и паки чара!
версию слеса `0,95b`
может в етом проблема, если да, то где скачать нормальную,рабочую версию:?

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

вот ща ошибка вот ета

http://stealth.od.ua/index.php?p=download

[$hkeR]

клоуз, спасибо, версия старая была)))