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

Лесоруб должен жить

тут можно задать вопрос по скриптингу
Oasis
Novice
Novice
Posts: 52
Joined: 02.01.2014 14:15

Re: Лесоруб должен жить

Post by Oasis »

Хрен его знает, что это. Я тут аутсайдер, не все знаю/догоняю=)
olimpik
Neophyte
Neophyte
Posts: 26
Joined: 07.11.2016 13:34

Re: Лесоруб должен жить

Post by olimpik »

Да но если не исправлять ошибку, как то же можно прописать что при виде этой фразы он начинал процедуру копки заного?
olimpik
Neophyte
Neophyte
Posts: 26
Joined: 07.11.2016 13:34

Re: Лесоруб должен жить

Post by olimpik »

WaitJournalLine
function WaitJournalLine(StartTime : TDateTime; Str : String; MaxWaitTimeMS : Integer) : Boolean
ожидание появления строки в журнале

как считаете эта функция подойдет или не то?
olimpik
Neophyte
Neophyte
Posts: 26
Joined: 07.11.2016 13:34

Re: Лесоруб должен жить

Post by olimpik »

поставил пока так и отправил на проверку и снес вот эту строку, не помогло :oops:
Procedure DoitBaby(f_tile:TFoundTile);
var
ctime : TDateTime;
n,n2:word;
begin
cancel;
repeat
waitconnection(5000);
if not CheckPickaxe then
begin
exit;
end;

if TargetPresent then CancelTarget;
if WarMode = true then SetWarMode(false);
ctime := Now;
UseObject(ObjAtLayerEx(RhandLayer,self));
WaitForTarget(5000);
TargetToTile(f_tile.Tile,f_tile.X,f_tile.Y,f_tile.Z);
ctime := Now;
repeat
wait(2000);
WaitJournalLine(Now,'Oh no your tool breaks!', 2000);
until (InJournalBetweenTimes('There is no metal|no your tool|Oh no your tool breaks!|You loosen|You stop|You cannot| that you must|Это слишком далеко| have|destroyed|anything there', ctime, Now)>= 0)or dead;
until (InJournalBetweenTimes('There is no metal|Oh no your tool breaks!|fail to find|no your tool |Oh no your tool breaks!|anything there| that you must|Это слишком далеко ', ctime, Now)>= 0)or dead;
end;
Post Reply