Remove Trap

[Ache]

проблемка Remove Trap система ЗУЛУ УО везде скрипты ворики кастуют магию и кидают на сундук тут проблема в том что Вор сам трапит. юзает скилл кидает на сундук потом поевляется новый таргет и нужно клацнуть на пойзан как победить эту систему немагу даже на уохе и пилоте победить. может ктото поможет? какойто скрипт переделать хотябы тот что имеется

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.

[Ache]

на UOH победил смог зделать но это же недело сами понимаете))) это конечно не стелс скрипт но работает поможите?

Code: Select all

Smacro f5
Wait 2500
Mouse left click 438,340
Wait 2500
Mouse left click 939,437
Wait 10000
Smacro f5
Wait 2500
Mouse left click 439,340
Wait 10000

[Vizit0r]

проблема-то в чем?

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

useskill('Remove Trap') ;
WaitTargetObject(сундук);
wait(5000);
WaitTargetObject(поизон);
wait(5000);

проверки добавлять по вкусу.

[Ache]

проблема-то в чем?

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

useskill('Remove Trap') ;
WaitTargetObject(сундук);
wait(5000);
WaitTargetObject(поизон);
wait(5000);

проверки добавлять по вкусу.

это типа скрипт??))) визитор яж долёк от этого вы когда писали скрипты и заливали и учили остальных на форуме,я на мосту бегал всех убивал) Спосибо! щяс проверю)

[Ache]

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

[Ache]

наверно вот так

Code: Select all

useskill('Poisoning') ;
WaitTargetObject(дагер);
wait(10000);

[Vizit0r]

типа того.

в моем примере кстати первый вейт вообще не нужен.

[Ache]

типа того.

в моем примере кстати первый вейт вообще не нужен.

нада нада,работает, почему нада он ещё и раз ремувивает после. правельно я зделал на пойзан ид или тайп можно?

Code: Select all

Program New;
{$Include 'all.inc'}
begin
 while true do
begin
useskill('Remove Trap') ;
WaitTargetObject( $415E404C);
wait(5000);
WaitTargetObject($41D51C81);
wait(5000);
Hungry(1,-1);
end;
end.

[Ache]

ну с этим всё понятно другая проблема Stealing не нажимает своровать как это изменить то клацаю на пилоте...

Code: Select all

program stealing;

const
Enemy = $00053BF7;
LootItemType = $0EED;
ItemCount = 10000;

{$Include 'all.inc'}

BEGIN
AddToSystemJournal('Present by Hi-tech.');
while (not Dead) do
begin
checksave;
Hungry(1,Ground);
UseSkill('Stealing');
WaitTargetObject(enemy);
Wait(2500);
if (CountEx(LootItemType,$0EED,LastContainer) > 0) then
begin
repeat
UseSkill('Stealing');
WaitTargetObject(FindType(LootItemType,LastContainer));
Wait(2500);
until (CountEx(LootItemType,$0EED,LastContainer) = 0);
end;
if (Count(LootItemType) > 0) then
begin
stack(LootItemType,$0EED);
Wait(500);
end;
if (Count(LootItemType) = 0) then
begin
MoveItem(FindType(LootItemType,Ground),ItemCount,Backpack,0,0,0);
Wait(500);
end;
end;
END.

[Ache]

было бы ещё классно скрипт для другова персонажа чтобы поднимал деньги с пола. то опятьже мукчаюсь на пилоте 50% и на инже 50%

[Ache]

типа того.

в моем примере кстати первый вейт вообще не нужен.

нада нада,работает, почему нада он ещё и раз ремувивает после. правельно я зделал на пойзан ид или тайп можно?

Code: Select all

Program New;
{$Include 'all.inc'}
begin
 while true do
begin
useskill('Remove Trap') ;
WaitTargetObject( $415E404C);
wait(5000);
WaitTargetObject($41D51C81);
wait(5000);
Hungry(1,-1);
end;
end.

с тайпам пойзана неработает может както подругому нада?

[Vizit0r]

айди.
если надо через тип - использовать FindType.

[Ache]

ааааааааа жесть взрыв мозга куда вставлять))) где почитать все команды)?

[Vizit0r]

http://stealth.od.ua/Doc:RU/Manual
http://stealth.od.ua/Doc:RU/Api

и прочие. там не всё есть, где-то 90%, но тебе с головой ххватит)))

[MuDaCk]

Подскажите, чем

Code: Select all

WaitForTarget(3000);
TargetToObject(sunduk);

отличается от

Code: Select all

WaitTargetObject(sunduk);
wait(3000);

Отличие только в том, что во втором случае он будет обязательно ждать 3 секунды?
или в первом случае скрипт будет тормозить,