Помогите!

[GoodLuck]

Всем Доброго дня или вечера!
Ребята можете переделать скрипт с инжекта под Стелс..

Code: Select all

sub main()

While uo.life > 1

while uo.mana > 10

uo.deletejournal()

Repeat
uo.waittargetobject(0x53BFE764)
uo.cast('Magic Trap')
wait(5000) 
Until uo.injournal('*Trapped*')

Repeat
uo.waittargetobject(0x53BFE764)
uo.useskill('Remove Trap')
wait(5000)
Until uo.injournal('disarmed')

wend

While UO.mana < UO.INT
uo.deletejournal()
UO.useskill('Meditation')
Wait(1000)
Repeat
wait(500)
Until uo.injournal('cannot focus') or uo.injournal('You stop') or uo.injournal('You lost') or uo.injournal('I am already') or uo.injournal('You must')
wait(250)
Wend
wend
endsub

а то с инжекта часто выщебает Клиент (просто закрываеться без всяких ошибак)

[MuDaCk]

Что такое Sub, wend, endsub и что это за UO.чтототам...?
Скриптик вроде бы небольшой и можно попробовать переписать, но эти сабы, венды и уо с точечкой меня сбивают с толку

[GoodLuck]

Что такое Sub, wend, endsub и что это за UO.чтототам...?
Скриптик вроде бы небольшой и можно попробовать переписать, но эти сабы, венды и уо с точечкой меня сбивают с толку

это скрипт с инжекта, если не затруднит можешь переписать?под стилс?

[nikbk]

Попробуй

Code: Select all

Program New;

procedure Medit; 
   
   var ctime: TDateTime;
       i:Integer;

   begin   
     ClearJournal;    
     while mana<>int do 
       begin 
         ctime:=Now 
         i:=0 
           useskill('Meditation'); 
       repeat 
          wait(200); 
          i:=i+1;        
       until (InJournalBetweenTimes('You lose|You are', ctime, Now)<>-1) or (i=300); 
         wait(4000); 
       end;
   end;

procedure castskill(Spell, Sms : string; d: Integer);

  begin
   if d = 1 then
   begin
    repeat
      cast(Spell);
      WaitTargetObject($53BFE764);
      wait(5000);
    until (InJournal(Sms)<>-1);
   end
   else
   begin
    repeat
      useskill(Spell);
      WaitTargetObject($53BFE764);
      wait(5000);
    until (InJournal(Sms)<>-1); 
   end;    
  end;

begin
 while hp > 1 do
   begin
     while mana > 10 do
       begin
         ClearJournal;
         castskill('Magic Trap','*Trapped*',1) ;
         castskill('Remove Trap','disarmed',0) ; 
       end;
       Medit;
   end;
end.

[GoodLuck]

Попробуй

Code: Select all

Program New;

procedure Medit; 
   
   var ctime: TDateTime;
       i:Integer;

   begin   
     ClearJournal;    
     while mana<>int do 
       begin 
         ctime:=Now 
         i:=0 
           useskill('Meditation'); 
       repeat 
          wait(200); 
          i:=i+1;        
       until (InJournalBetweenTimes('You lose|You are', ctime, Now)<>-1) or (i=300); 
         wait(4000); 
       end;
   end;

procedure castskill(Spell, Sms : string; d: Integer);

  begin
   if d = 1 then
   begin
    repeat
      cast(Spell);
      WaitTargetObject($53BFE764);
      wait(5000);
    until (InJournal(Sms)<>-1);
   end
   else
   begin
    repeat
      useskill(Spell);
      WaitTargetObject($53BFE764);
      wait(5000);
    until (InJournal(Sms)<>-1); 
   end;    
  end;

begin
 while hp > 1 do
   begin
     while mana > 10 do
       begin
         ClearJournal;
         castskill('Magic Trap','*Trapped*',1) ;
         castskill('Remove Trap','disarmed',0) ; 
       end;
       Medit;
   end;
end.

Большое Спасибо!!!
Вот только если медетацию профизлин он .то очень много времени проходить что бы повторил ее

[nikbk]

Code: Select all

 until (InJournalBetweenTimes('You lose|You are', ctime, Now)<>-1) or (i=300);

поставь не 300 а поменьше

[Ache]

а если другая беда, вор юзает скилл кидает на сундук потом поевляется таргет и нужно клацнуть на пойзон и он трапит как переделать с каста на трап зулу)