Лоры + СпиритСпик ДРВ Поделитесь у кого есть?

[Daroo]

Здравствуйте!
Прошу вас поделиться скриптами для прокачки лоров, со встроенным в них спирит спиком, был бы вам даже более чем признателен!

[Beren]

Code: Select all

//Spirit Speak. SevenAmber. for DRW
Program Spirit;
{$Include 'all.inc'}

var
 ctime: TDateTime;
 tTime,SpiritTime, limitTime: cardinal;
 i:integer;

const
 fizzle = 'You fail your attempt';
 sucsess = 'You establish a connection';
 eat=$160;// тип еды
 lore_target=$403D2711;// объект для лоров
 lore_skill='Taste Identification';// лор скилл
 lore_wait=3000;// задержка для лор скила, подбирается опытным путём

procedure UseSpiritSpeak;
var
 stime: TDateTime;
 i:integer;
begin
 SetWarMode(False);
 SpiritTime:=SpiritTime+(Timer-tTime);
 if (SpiritTime>limitTime) then
  begin
   stime:=Now;
   i:=0;
   checksave;
   SetWarMode(false);
   UseSkill('Spirit Speak');
   repeat
    wait(250);
    checksave;
    i:=i+1;
   until ((InJournalBetweenTimes(fizzle+'|'+sucsess, stime, Now)<>-1) or (i>40));
   if (InJournalBetweenTimes(sucsess, stime, Now)<>-1) then limitTime:=300000 else limitTime:= 2500;
   SpiritTime:=0;
  end
end;

Begin
 clearjournal;
 SetArStatus(true);
 SpiritTime:=0;
 limitTime:=2500;
 While not Dead do
  begin
   checksave;
   ctime:=now;
   tTime:=Timer;
   i:=0;
   repeat
    checksave;
    SetWarMode(false);
    UseSkill(lore_skill);
    WaitForTarget(2500);
    If TargetPresent Then TargetToObject(lore_target);
    wait(lore_wait);
    i:=i+lore_wait;
   until i>limitTime;
   UseSpiritSpeak;
  end;
End.

старый мой скрипт без оценки и оптимизации под Lore Skills, с простой задержкой.