При ловле рыбы конструкция:
Code: Select all
WaitTargetXYZ(GetX(self)+3,Gety(self),GetZ(self));
UseObject(FindType(fish_pole,$ffff));
Code: Select all
WaitTargetXYZ(GetX(self)+3,Gety(self),GetZ(self));
UseObject(FindType(fish_pole,$ffff));
Code: Select all
for x := -4 to 4 do
begin
for y := -4 to 4 do
begin
if Hidden then uosay('.');
FBegin:=Now;
UseObject(ObjAtLayerEx(LHandLayer,self));
WaitForTarget(5000);
i:= 0;
If TargetPresent then TargetToTile(0, GetX(self)+x, GETY(self)+y, 251);
repeat
checkweight;
collectthefish;
wait(500);
i:=i+1;
until (InJournalBetweenTimes('You put the|Previous targeting cancelled|You stop fishing|There are no fish here|You fail to catch anything|Try fishing elsewhere|That is too far away|Targeting cancelled|You cannot fish so close to yourself', FBegin, Now) <> -1) or (i > 40)
end;
end;
у вас -2, у меня 251)))Gunter wrote:Может быть просто координата Z на пирсе не соответствует координате Z требуемого тайла? Например, у воды координата равна -5, а на пирсе -2.
Code: Select all
for i:=0 to 5 do begin
CancelTarget;
UseObject(FindType(fish_pole,$ffff));
while not(TargetPresent) do wait(200);
TargetToTile(0,GetX(self)+3,Gety(self),251);
//targetToTile(0,GetX(self)+3,Gety(self),GetSurfaceZ(GetX(self)+3,Gety(self),0));
//WaitTargetXYZ(GetX(self)+3,Gety(self),GetSurfaceZ(GetX(self)+3,Gety(self),0));
wait(9000);
end;
Слёту могу два-три варианта "не работает" расписатьTomers wrote:
не работает.
Втом то и дело, что в сисжурнале не пишеться вообще ничего, кроме вопроса: "Где хотите ловить..." который задается одновременно с появлением прицела. Следовательно удочка юзается. Но рыба не вылавливается. У нас на шарде просто даблклик на удочку, появляется прицел и ним нужно ткнуть на воду. При ловле с Лодки такой проблемы небыло. Конструкция:MuDaCk wrote: Слёту могу два-три варианта "не работает" расписать
1) В сисжурнале пишется "useobject error"
2) В Уожурнале пишется "объект слишком далеко"
3) Тут нельзя рыбачить
4) в УОжурнале:"Удочка должна быть в руках".
Выражайтесь точнее.
Code: Select all
WaitTargetXYZ(GetX(self)+3,Gety(self),GetZ(self));
UseObject(FindType(fish_pole,$ffff));