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

AnimalTaming Forest Wars

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

AnimalTaming Forest Wars

Post by shinma »

немного переделал скрипт от - // v.1.02 (c) Edred
Тем кто без дома живет - может посмотреть в моем лумбере 3,0 как замутить подход к НПС и прям в лесу мутить с любым животным.

Code: Select all


program tamingUp;

{$Include 'all.inc'}
const
horse=$00E4;    //Тип кого тамим
var 
animal : cardinal;
k : integer;
ctime : TDateTime;
OldSkill : Double;
Begin


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

      repeat
         findtype( Horse, ground);
         animal := finditem;
      until animal <> 0;
      
      waitconnection(3000);
      if TargetPresent then CancelTarget;
      ctime := Now;
      UseSkill('Animal Taming');
      WaitTargetObject( animal );
      k := 0
      repeat
         wait(100);
         k := k + 1;
      until (InJournalBetweenTimes('You can|accept you as master|You fail|is already tame.|Животное полюбило вас.|Вы не в состоянии|Это существо уже приручили', ctime, Now)<>-1) or (k > 600);
      If (injournal('accept you as master|is already tame.|Животное полюбило вас.|Это существо уже приручили')<>-1) or (k>600) 
      then uosay('all release' );
      wait(1000);
      waitconnection(3000);
      CheckSave;
      if GetSkillValue('Animal Taming') > OldSkill then
      begin
         AddToSystemJournal('Скилл Animal Taming вырос. Теперь он равен ' + FloatToStr(GetSkillValue('Animal Taming')));
         OldSkill := GetSkillValue('Animal Taming');
      end;
      waitconnection(3000);
   end;
End.
--->>>ПОИСК ПО ФОРУМУ, НАЧНИ С НЕГО!!!<<<---
--->>>Search the forum, start with him!!!<<<---
95% Ваших вопросов уже кем-то написаны и решены.
Post Reply