Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Remove Trap

Only working scripts
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Remove Trap

Post by 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
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: Remove Trap

Post by 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
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Remove Trap

Post by Vizit0r »

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

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

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

проверки добавлять по вкусу.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: Remove Trap

Post by Ache »

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

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

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

проверки добавлять по вкусу.
это типа скрипт??))) визитор яж долёк от этого вы когда писали скрипты и заливали и учили остальных на форуме,я на мосту бегал всех убивал) Спосибо! щяс проверю)
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: Remove Trap

Post by Ache »

а как насчёт пойсана тут он тоже другой система такая, юзаеш скилл и просто на дагер если есть банки в паке то он травит)
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: Remove Trap

Post by Ache »

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

Code: Select all

useskill('Poisoning') ;
WaitTargetObject(дагер);
wait(10000);
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Remove Trap

Post by Vizit0r »

типа того.

в моем примере кстати первый вейт вообще не нужен.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: Remove Trap

Post by Ache »

Vizit0r wrote:типа того.

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

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
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: Remove Trap

Post by Ache »

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

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.
Attachments
вот как выгледить система, где поменять чтобы там клацал и как )
вот как выгледить система, где поменять чтобы там клацал и как )
stealing.jpg (35.97 KiB) Viewed 10501 times
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: Remove Trap

Post by Ache »

было бы ещё классно скрипт для другова персонажа чтобы поднимал деньги с пола. то опятьже мукчаюсь на пилоте 50% и на инже 50%
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: Remove Trap

Post by Ache »

Ache wrote:
Vizit0r wrote:типа того.

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

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.
с тайпам пойзана неработает может както подругому нада?
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Remove Trap

Post by Vizit0r »

айди.
если надо через тип - использовать FindType.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: Remove Trap

Post by Ache »

ааааааааа жесть взрыв мозга куда вставлять))) где почитать все команды)?
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Remove Trap

Post by Vizit0r »

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

и прочие. там не всё есть, где-то 90%, но тебе с головой ххватит)))
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
MuDaCk
Apprentice
Apprentice
Posts: 393
Joined: 10.10.2006 0:03
Contact:

Re: Remove Trap

Post by MuDaCk »

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

Code: Select all

WaitForTarget(3000);
TargetToObject(sunduk);
отличается от

Code: Select all

WaitTargetObject(sunduk);
wait(3000);
Отличие только в том, что во втором случае он будет обязательно ждать 3 секунды?
или в первом случае скрипт будет тормозить,
My name is Игорёшка Image
Пишу скрипты за едуImage
Post Reply