Каталог файлов

//НЕ ПРОВЕРЯЕТ КОЛИЧЕСТВО ХАВКИ, ЛОЖИТЬ С ЗАПАСОМ !

program All_Skills_v2;

Const

sunduk_dlya_strel = $402E107D;

ItID = $0000; //предмет для прокачки итемайди   - ножницы

ArLr = $0000; // предмет для прокачки армлора   - даггер для фенса

AnLr = $00E2; // Животное для прокачки AnimalLore

TsID = $0000; //предмет для прокачки тейстайди  - морковка

EvIn = $00E2; // ТИП ЧАРА - МУЖСКОЙ

Food = $09BB;  //тип еды чтоб не умереть от голода - кабан

SpiritTimer = (5.0/(24*60));

worldmessage = 'World is saving now...';

hungrymessage = 'You are starving';

messagetimer = (0.05/(24*60));

var timespirit,ctime : TDateTime;

theend:boolean;

Procedure CheckState;

  begin 

   if warmode then SetWarMode(false); 

    if InJournalBetweenTimes(worldmessage,now-2*messagetimer,now) > 0 then begin AddToSystemJournal('Сохранение мира. Ждем 60 секунд'); wait(60000); end;

     if InJournalBetweenTimes(hungrymessage,now-messagetimer,now) > 0 then 

      begin 

       wait(500); 

        FindType(Food,backpack);

         if findcount > 0 then begin UseObject(finditem); AddToSystemJournal('Перекус. Осталось еды в паке: '+IntToStr(GetQuantity(FindType(Food,backpack)))+' шт'); end

         else AddToSystemJournal('Не найдена еда! Положите еду в пак!'); 

      end;

  end;

  

Procedure GoTrance;

  begin 

    repeat 

     CheckState; 

      ctime:=now; UseSkill('Spirit Speak'); 

       AddToSystemJournal('Вхожу в транс'); 

        wait(3000); 

    until InJournalBetweenTimes('You establish a connection to the netherworld',ctime,now) > 0;

     timespirit:= now;

      AddToSystemJournal('Связь с духами установлена. Качаю скилл.');

  end;

  

Procedure RiseSkill(skillname:string;skilldelay:integer;maxskill:double;skilltarget:cardinal);

  begin

   while (GetSkillValue(skillname) < maxskill) and (IsDead(self) = false) do

    begin 

     GoTrance;  

      while (IsDead(self) = false) and (timespirit+SpiritTimer > now) do

         begin 

          CheckState; 

           UseSkill(skillname);

            if skilltarget <> 0 then WaitTargetObject(skilltarget); 

            wait(skilldelay); 

             AddToSystemJournal('Качаю '+skillname); 

         end;

      end;

  end;

   

Begin

theend:=false;

 ClearJournal;

 AddToSystemJournal('ПРОВЕРЬТЕ КОНСТАНТЫ И НАЛИЧИЕ МУЗЫКАЛЬНОГО ИНСТРУМЕНТА');

 AddToSystemJournal('Еды в паке: '+IntToStr(GetQuantity(FindType(Food,backpack)))+' шт');

 AddToSystemJournal('ПРЕДУПРЕЖДЕНИЕ! Скиллы начнут качаться ПОСЛЕ первого успешного входа в транс!');

  

  while (not dead) and (not theend) do

  

  begin

    

   RiseSkill('Stealth',3000,100.0,0);

   RiseSkill('Hiding',3000,100.0,0);

   RiseSkill('Anatomy',5000,100.0,self);

   RiseSkill('Peacemaking',3000,100.0,0);

//   RiseSkill('Detect Hidden',4000,100.0,0);   

           

   if FindType(ArLr,backpack) <> 0 then RiseSkill('Arms Lore',5000,100.0,FindType(ArLr,backpack)) 

    else AddToSystemJournal('!!! Не найден предмет для прокачки Arms Lore !!!');

   if FindType(AnLr,Ground) <> 0 then RiseSkill('Animal Lore',3000,100.0,FindType(AnLr,Ground)) 

    else AddToSystemJournal('!!! Не найдено животное для прокачки Animal Lore !!!');

   if FindType(ItID,backpack) <> 0 then RiseSkill('Item Identification',5000,100.0,FindType(ItID,backpack)) 

    else AddToSystemJournal('!!! Не найден предмет для прокачки Item Identification !!!');

   

   if FindType(TsID,backpack) <> 0 then RiseSkill('Taste Identification',5000,100.0,FindType(TsID,backpack)) 

    else AddToSystemJournal('!!! Не найден предмет для прокачки Taste Identification !!!');

   while (GetSkillValue('Tracking') < 100.0) and (IsDead(self) = false) do

     begin GoTrance;

       while (IsDead(self) = false) and (timespirit+SpiritTimer > now) do

         begin CheckState; CancelMenu; UseSkill('Tracking'); AutoMenu('Track','Anything'); wait(1500); AddToSystemJournal('Качаю Tracking'); end;

     end;

     

  Ignore(self);    

   if FindType(EvIn,Ground) <> 0 then RiseSkill('Evaluating Intelligence',5000,100.0,FindType(EvIn,Ground)) 

    else AddToSystemJournal('!!! НЕ НАЙДЕН ЧЕЛОВЕК ДЛЯ ИЗУЧЕНИЯ Evaluating Intelligence !!!');

  IgnoreReset;       

      

   while (GetSkillValue('Spirit Speak') < 100.0) and (IsDead(self) = false) do 

     begin GoTrance; 

       while (IsDead(self) = false) and (timespirit+SpiritTimer > now) do 

       begin

       //для арчери -подбор стрел с пола

       FindType($0F3F,Ground);

       if findcount() > 0 then begin 

       repeat moveitem(finditem,999,backpack,0,0,0); 

       wait(500);

       if FindType($0F3F,backpack) > 0 then moveitem(FindType($0F3F,backpack),999,sunduk_dlya_strel,0,0,0);

       wait(500);

       AddToSystemJournal('Подбираю стрелы')

       until Count(FindType($0F3F,Ground)) = 0; end;end;

     end;      

     theend:=true;

     AddToSystemJournal('ВСЕ СКИЛЫ ПРОКАЧАНЫ !!!');                       

  end;

    

End.