Stealth Client Forum

скрипт на одевание армика :
вот шо выдает:
в чом трабл, кому несложно помогите!

proZak wrote:скрипт на одевание армика :
вот шо выдает:

Code: Select all

6:38:21 [Slade]: Succesfully executed
6:38:21 [Slade]: Script Арм армика.txt stoped successfuly

в чом трабл, кому несложно помогите!

Ни в чем, скрипт отработал и остановился, он же не зациклен.

Kynep wrote:

proZak wrote:скрипт на одевание армика :
вот шо выдает:

Code: Select all

6:38:21 [Slade]: Succesfully executed
6:38:21 [Slade]: Script Арм армика.txt stoped successfuly

в чом трабл, кому несложно помогите!

Ни в чем, скрипт отработал и остановился, он же не зациклен.

а как зацыклить?

ЫЫ...ты гонишь ) Например...

-=JoKeR=- wrote:ЫЫ...ты гонишь )

Code: Select all

While not Dead do

Code: Select all

repeat
...
until Dead;

Например...

есле не сложно то вставь в скрипт шо де должно быть ! шоб я наглядно увидел!

Вариант 1: Вариант 2:

-=JoKeR=- wrote:Вариант 1:

Code: Select all

program arm_armika; 

{$Include 'all.inc'} 

BEGIN 
  SetARStatus(true);
  AddToSystemJournal('Макрос написан proZak(Age of Power)');
  While not Dead do
  begin
    UOSay(Chr(39)+'resend'); 
    Wait(5000); 
    If FindType($0F50, backpack) = 0 then 
    begin 
      AddToSystemJournal('Одеваем арбалет...'); 
      Wait(3500); 
      UseObject(Backpack); 
      Wait(1000); 
      FindType($0F50, backpack) 
      Equip(1, finditem); 
    end;
  end;
END.

Вариант 2:

Code: Select all

program arm_armika; 

{$Include 'all.inc'} 

BEGIN 
  SetARStatus(true);
  AddToSystemJournal('Макрос написан proZak(Age of Power)');
  repeat
    begin
      UOSay(Chr(39)+'resend'); 
      Wait(5000); 
      If FindType($0F50, backpack) = 0 then 
      begin 
        AddToSystemJournal('Одеваем арбалет...'); 
        Wait(3500); 
        UseObject(Backpack); 
        Wait(1000); 
        FindType($0F50, backpack) 
        Equip(1, finditem); 
      end;
    end;
  until Dead;
END.

шото не один из етих вариантов непашет, армик неодеваетсо!!!

Может у арбалета лэер 2, а не 1, что более вероятно.
Или вместо эквип поставь юзобжект файндайтем, как вариант.
И вооще скрипт немного кривой. Щас лень переделать, попробуй сам.

-=JoKeR=- wrote:Может у арбалета лэер 2, а не 1, что более вероятно.
Или вместо эквип поставь юзобжект файндайтем, как вариант.
И вооще скрипт немного кривой. Щас лень переделать, попробуй сам.

просто до етого он одевал армик просто шо скрипт слетал и за тово шо незацыклен а теперь нехочет одевать армик хз чево !!

proZak wrote:просто до етого он одевал армик просто шо скрипт слетал и за тово шо незацыклен а теперь нехочет одевать армик хз чево !!

Ты зделал как я сказал ?

-=JoKeR=- wrote:

proZak wrote:просто до етого он одевал армик просто шо скрипт слетал и за тово шо незацыклен а теперь нехочет одевать армик хз чево !!

Ты зделал как я сказал ?

я просто непонял шо ты там написал !! (как при усеобжыкте будет одеватсо армик?)!!

А что такое армик? Армор ? Если да, то он должен двойным кликом одеваться.

-=JoKeR=- wrote:А что такое армик? Армор ? Если да, то он должен двойным кликом одеваться.

ето оружые (легкий арбалет)

1. обьявление переменной или еще лучше константы в начале скрипта позволит постороннему человеку быстрее понять суть скрипта и то чем является $0F50.
2. Либо я чего то не понимаю, либо если предмета $0F50 нет в сумке, то мы пытаемся его одеть, хотя то что его нет в сумке подразумевает то что он уже надет.
3. Это всё делается через ObjAtLayer и Equip/UnEquip

В соседней ветке со скриптами был скрипт Эдреда (?) на проверку того что одето на чаре. На его базе можно сделать хороший скрипт или как минимум посмотреть как делать проверку.