Help

[proZak]

скрипт на одевание армика :

Code: Select all

program arm_armika; 


{$Include 'all.inc'} 

BEGIN 


SetARStatus(true);
  
  AddToSystemJournal('Макрос написан proZak(Age of Power)'); 
  Wait(1000); 
  UOSay(Chr(39)+'resend'); 
  Wait(5000); 

  If FindType($0F50, self) = 0 then
  begin
    AddToSystemJournal('Одеваем арбалет...');
    Wait(3500);
    UseObject(Backpack);
    Wait(1000);
    FindType($0F50, backpack)
    Equip(1, finditem);
  end; 
END.

вот шо выдает:

Code: Select all

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

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

[Kynep]

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

Code: Select all

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

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

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

[-=JoKeR=-]

Code: Select all

If FindType($0F50, self) = 0 then

Code: Select all

If FindType($0F50,backpack) = 0 then

[proZak]

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

Code: Select all

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

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

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

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

[-=JoKeR=-]

ЫЫ...ты гонишь )

Code: Select all

While not Dead do

Code: Select all

repeat
...
until Dead;

Например...

[proZak]

ЫЫ...ты гонишь )

Code: Select all

While not Dead do

Code: Select all

repeat
...
until Dead;

Например...

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

[-=JoKeR=-]

Вариант 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.

[proZak]

Вариант 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.

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

[-=JoKeR=-]

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

[proZak]

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

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

[-=JoKeR=-]

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

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

[proZak]

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

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

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

[-=JoKeR=-]

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

[proZak]

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

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

[Acronym]

Code: Select all

If FindType($0F50, backpack) = 0 then 

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

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