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

AnimalLore Forest Wars

Only working scripts
Post Reply
shinma
Expert
Expert
Posts: 505
Joined: 28.04.2011 12:05

AnimalLore Forest Wars

Post by shinma »

Незнаю зачем этот скил, но вот так прокачал.

Code: Select all

            
 program Ani;

{$Include 'all.inc'}
const
horse=$00Ed; 
var 
animal : cardinal;
k : integer;
ctime : TDateTime;
OldSkill : Double;
Begin


   Finddistance := 3;
   OldSkill := GetSkillValue('Animal Lore');
   While (not Dead) AND (GetSkillValue('Animal Lore') < 100.0) do
   begin

      repeat
         findtype( Horse, ground);
         animal := finditem;
      until animal <> 0;
      
      waitconnection(3000);
      if TargetPresent then CancelTarget;
      ctime := Now;
      UseSkill('Animal Lore');
      WaitTargetObject( animal );
      k := 0
      repeat
         wait(100);
         k := k + 1;
      until (InJournalBetweenTimes('You can|it looks|own master', ctime, Now)<>-1) or (k > 600);

      CheckSave;
      if GetSkillValue('Animal Lore') > OldSkill then
      begin
         AddToSystemJournal('Скилл Animal Lore вырос. Теперь он равен ' + FloatToStr(GetSkillValue('Animal Lore')));
         OldSkill := GetSkillValue('Animal Lore');
      end;
      waitconnection(3000);
   end;
End.
--->>>ПОИСК ПО ФОРУМУ, НАЧНИ С НЕГО!!!<<<---
--->>>Search the forum, start with him!!!<<<---
95% Ваших вопросов уже кем-то написаны и решены.
Post Reply