Тем кто без дома живет - может посмотреть в моем лумбере 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.