Code: Select all
program taming;
var
Char : Array[1..2] of string;
Zver : Array[1..2] of Cardinal;
{$Include 'all.inc'}
procedure First();
var
b : TDateTime;
tmp,i : integer;
lol : String;
Begin
lol:=Char[2]+': all release';
while True do
begin
CheckTargetError(2,2);
Hungry(1,ground);
i:=0;
while i < 5 do
begin
for tmp:=1 to 2 do
begin
WaitTargetObject(zver[tmp]);
UseSkill('Animal Taming');
B:=Now+0.0001157407407;
WaitJournalLine(B, 'You successfully tame|You failed', 30000);
WaitJournalLine(B, lol, 15000);
UOsay('all release');
UOsay(IntToStr(tmp));
i := i + 1;
end;
end;
End;
End;
procedure Second();
var
i,tmp : integer;
f : TDateTime;
begin
f:=Now;
while true do
begin
CheckTargetError(2,2);
Hungry(1,ground);
i:=0;
while i < 10 do
begin
WaitJournalLine(f,Char[1]+': 1'+'|'+Char[1]+': 2',0);
if InJournalBetweenTimes(Char[1]+': 1',f,Now) >= 0 then tmp := 1;
if InJournalBetweenTimes(Char[1]+': 2',f,Now) >= 0 then tmp := 2;
f:=Now;
WaitTargetObject(Zver[tmp]);
UseSkill('Animal Taming');
WaitJournalLine(Now,'You successfully tame|You fail', 45000);
UOsay('all release');
i := i + 1;
end;
End;
End;
begin
SetARStatus(true);
FindVertical:=40;
Char[1]:='Brizar'; {Set Name of First Char}
Char[2]:='Gurza'; {Set Name of Second Char}
Zver[1]:=$0113EF77; {ID First Animal}
Zver[2]:=$0113EF76; {ID Second анимал}
Case CharName Of
Char[1] : First();
Char[2] : Second();
else AddToSystemJournal('Error');
End;
End.
пофиксил скока мог... добавил коменты... нюбам понравица.. фиксить остальные мелочи оч. ломает...