Error with lumber
Posted: 12.11.2006 10:12
Попытался написать ламбер под стелз
получилась проблема - во первых, непонятно как писать координаты, потому разбил отдельно на X и Y и загнал все это в массив *нет,я понимаю, что будет удобнее использовать ту же информацию из файла, но как это выразить - понять не могу*
главная ошибка - ни прицел ни ошибка не кидается непосредственно на дерево.
пробовал и по координатам кидать, и по тайлу, и ставить ловкушку, а не прицел - толку никакого - однозначно пишет, что не знает как эти вещи между собой сочетать.
может кто сможет помочь?
получилась проблема - во первых, непонятно как писать координаты, потому разбил отдельно на X и Y и загнал все это в массив *нет,я понимаю, что будет удобнее использовать ту же информацию из файла, но как это выразить - понять не могу*
главная ошибка - ни прицел ни ошибка не кидается непосредственно на дерево.
пробовал и по координатам кидать, и по тайлу, и ставить ловкушку, а не прицел - толку никакого - однозначно пишет, что не знает как эти вещи между собой сочетать.
может кто сможет помочь?
Code: Select all
begin
{Координаты деревьев}
tilex[1] := 1700;
tilex[2] := 1695;
tilex[3] := 1696;
tilex[4] := 1696;
tilex[5] := 1688;
tilex[6] := 1688;
tilex[7] := 1684;
tilex[8] := 1680;
tiley[1] := 1626;
tiley[2] := 1627;
tiley[3] := 1623;
tiley[4] := 1620;
tiley[5] := 1623;
tiley[6] := 1620;
tiley[7] := 1617;
tiley[8] := 1617;
for d:= 1 to 8 do
begin
WaitConnection(3000);
{Инициализация тайлов}
TileXX := tilex[d];
TileYY := tiley[d];
CheckSave;
checkdead;
checkweight;
CheckEquip;
CheckSave;
hodilka(TileXX,TileYY,1,true);
begin
WaitTargetXYZ(TileXX,TileYY,0);
UseObject(ObjAtLayer(LhandLayer));
WaitTargetXYZ(TileXX,TileYY,0);
WaitJournalLine(Now,'no more|fail to find |broke|stop mining|cannot see|far away|cannot mine|what is this?!', 15000);
end
end
end