спирит спик

[SkvidvarD]

Возможно ли в скрипт Эдрэда впихнуть кастование на себя анорта и как? Спасибо заранее за ответ

Code: Select all

Program Spirit; 

{$Include 'all.inc'} 

var 
k : integer; 
ctime : TDateTime; 

   procedure TrySpirit; 
      begin 
         repeat 
            waitconnection(3000); 
            ctime := Now; 
            k := 0 
            UseSkill('Spirit Speak'); 
            repeat 
               wait(100); 
               k := k + 1; 
            until (InJournalBetweenTimes('You fail|You channel|You lack|You establish', ctime, Now)<>-1) or (Mana < (MaxMana - 50)) or (k > 300); 
            wait(500); 
            If (InJournalBetweenTimes('You establish', ctime, Now)<>-1) then 
            begin 
               wait(5000); 
               SetWarMode(true); 
               wait(500); 
               SetWarMode(false); 
            end; 
         until (Mana < (MaxMana - 50)); 
      end; 

   procedure TryMedit; 
      begin 
         while (Mana < MaxMana) do 
         begin 
            waitconnection(3000); 
            ctime := Now; 
            k := 0 
            UseSkill('Meditation'); 
            repeat 
               wait(100); 
               k := k + 1; 
            until (InJournalBetweenTimes('reached full mana|lost', ctime, Now)<>-1) or (k > 600); 
            wait(500); 
         end; 
      end; 

Begin 
   while not Dead do 
   begin 
      TrySpirit; 
      TryMedit; 
   end; 
End.

[Edred]

А почему нет? Напиши процедуру каста на себя анорта, вставь ее в главную процедуру перед TrySpirit

[SkvidvarD]

У меня такая проблемка есть.... это очень проблематично для меня написать процедуру... Если нетяжело можеш помочь пожалуйста, заранее спасип.

[*13*]

поставишь вейт какой нада...

Code: Select all

Program Spirit; 

{$Include 'all.inc'} 

var 
k : integer; 
ctime : TDateTime; 

procedure bot;
begin
Cast('Dispel');
waittargetself; 
wait(xxx);
end;

   procedure TrySpirit; 
      begin 
         repeat 
            waitconnection(3000); 
            ctime := Now; 
            k := 0 
            UseSkill('Spirit Speak'); 
            repeat 
               wait(100); 
               k := k + 1; 
            until (InJournalBetweenTimes('You fail|You channel|You lack|You establish', ctime, Now)<>-1) or (Mana < (MaxMana - 50)) or (k > 300); 
            wait(500); 
            If (InJournalBetweenTimes('You establish', ctime, Now)<>-1) then 
            begin 
               wait(5000); 
               SetWarMode(true); 
               wait(500); 
               SetWarMode(false); 
            end; 
         until (Mana < (MaxMana - 50)); 
      end; 

   procedure TryMedit; 
      begin 
         while (Mana < MaxMana) do 
         begin 
            waitconnection(3000); 
            ctime := Now; 
            k := 0 
            UseSkill('Meditation'); 
            repeat 
               wait(100); 
               k := k + 1; 
            until (InJournalBetweenTimes('reached full mana|lost', ctime, Now)<>-1) or (k > 600); 
            wait(500); 
         end; 
      end; 

Begin 
   while not Dead do 
   begin 
      TrySpirit; 
      bot;
      TryMedit; 
   end; 
End.

[Edred]

Я так думаю, надо какой-то причиняющий себе урон каст поставить. И реги контролировать. И здоровье - если спирит спик не вылечил чара до конца - не кастовать.

[SLAK]

[quote="Edred"][/quote]
На Зулу кода входиш в транс, то експу получаеш или если транс прошел по таймауту(2 мин. на ZHI), или если диспельнуть себя (может ищё что-то есть).

[*13*]

На Зулу кода входиш в транс, то експу получаеш или если транс прошел по таймауту(2 мин. на ZHI), или если диспельнуть себя (может ищё что-то есть).

а таймер после реконекта не сбивается?

[SLAK]

После парусекундного не сбился, нада ещё проверить сбивается ли он после смерти.

[*13*]

После парусекундного не сбился, нада ещё проверить сбивается ли он после смерти.

и как

[SLAK]

ага...
только .suicide работает раз в пол часа, так что нужен киллер

[SkvidvarD]

Я на дрим ворлде играю. После входа в транс, он какоето время невходит снова. Потом транс прерываеться и снова входит. Во избежание этих громандных промежутков, кидается на себя анорт, что и спасает ситтуацию.
Если не теяжело очень прошу напишите. Чтобы он с пола брал реги на анорт, медитировал, входил в транс и ел. Большое спасибо заранее.

[Edred]

Попробуй это сделать сам. Идея не в том, чтобы выпрашивать скрипты, а в том, чтобы научиться писать самому.

ЗЫ: Можешь попробовать взять функцию из моего скрипта на Magicresist...

[SkvidvarD]

Писать скрипты я когдато учился и пытался. Но моя проблема сейчас в том, что проблемы с учебой намечаються большые, и дабы не завалить сессию, приходиться много ботанить. И времени не остается. А чтоб написать скрипт надо разобираться во всем досконально, а времени на доскональную разборку зватает только на термех, философию, вышку и всякое г. =) Всеравно пасиб.