Page 1 of 1
спирит спик
Posted: 22.11.2006 6:31
by 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.
Posted: 22.11.2006 12:10
by Edred
А почему нет? Напиши процедуру каста на себя анорта, вставь ее в главную процедуру перед TrySpirit
Posted: 22.11.2006 20:12
by SkvidvarD
У меня такая проблемка есть.... это очень проблематично для меня написать процедуру... Если нетяжело можеш помочь пожалуйста, заранее спасип.
Re: спирит спик
Posted: 22.11.2006 20:22
by *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.
Posted: 22.11.2006 21:04
by Edred
Я так думаю, надо какой-то причиняющий себе урон каст поставить. И реги контролировать. И здоровье - если спирит спик не вылечил чара до конца - не кастовать.
Posted: 22.11.2006 21:37
by SLAK
[quote="Edred"][/quote]
На Зулу кода входиш в транс, то експу получаеш или если транс прошел по таймауту(2 мин. на ZHI), или если диспельнуть себя
(может ищё что-то есть).
Posted: 23.11.2006 14:11
by *13*
SLAK wrote:Edred wrote:
На Зулу кода входиш в транс, то експу получаеш или если транс прошел по таймауту(2 мин. на ZHI), или если диспельнуть себя
(может ищё что-то есть).
а таймер после реконекта не сбивается?
Posted: 23.11.2006 19:44
by SLAK
После парусекундного не сбился, нада ещё проверить сбивается ли он после смерти.
Posted: 24.11.2006 12:34
by *13*
SLAK wrote:После парусекундного не сбился, нада ещё проверить сбивается ли он после смерти.
и как
Posted: 24.11.2006 23:28
by SLAK
ага...
только .suicide работает раз в пол часа, так что нужен киллер
Posted: 25.11.2006 5:12
by SkvidvarD
Я на дрим ворлде играю. После входа в транс, он какоето время невходит снова. Потом транс прерываеться и снова входит. Во избежание этих громандных промежутков, кидается на себя анорт, что и спасает ситтуацию.
Если не теяжело очень прошу напишите. Чтобы он с пола брал реги на анорт, медитировал, входил в транс и ел. Большое спасибо заранее.
Posted: 25.11.2006 11:04
by Edred
Попробуй это сделать сам. Идея не в том, чтобы выпрашивать скрипты, а в том, чтобы научиться писать самому.
ЗЫ: Можешь попробовать взять функцию из моего скрипта на Magicresist...
Posted: 26.11.2006 1:16
by SkvidvarD
Писать скрипты я когдато учился и пытался. Но моя проблема сейчас в том, что проблемы с учебой намечаються большые, и дабы не завалить сессию, приходиться много ботанить. И времени не остается. А чтоб написать скрипт надо разобираться во всем досконально, а времени на доскональную разборку зватает только на термех, философию, вышку и всякое г. =) Всеравно пасиб.