Mining с лодкой, не хочет идти в лодку.

[Oasis]

Здравствуйте.
Прежде чем написать, я потратил много часов, что бы справиться с проблемой самостоятельно, но увы не получилось.
Шард Golden-world
pol95
версия стелса 4.3.6 с более новыми версиями есть проблемы на сервере.

Скрипт

program megatiles;

var
TyleType : Array [0..24] of Word;
a : TFoundTilesArray;
c,b,s,oreCol : Integer;
ctime : TDateTime;

const
Forge = $4135C9DE;
Xmin = 4008;
Xmax = 4039;
Ymin = 311;
Ymax = 341;
MineX = 4047;
MineY = 310;
vozleX = 4071;
vozleY = 287;
lodkaZ = -2;
Trap = $4323AB18;
TynkType = $1EB9;
PickType = $0E85;
IngotType = $1BF2;
IngotColor = $0000;
OreType = $19B9;
PickGump = '3717';
WLimit = 70;
eda = $097B;

{$Include 'all.inc'}


procedure checkcoord;
begin
if (GetZ(self) = lodkaZ) then
begin
repeat
UseObject(Trap);
wait(500);
Raw_Move(0, True); // Там где ноль, нужно указать направление шага
Raw_Move(0, True); // Там где ноль, нужно указать направление шага
wait(500);
until (GetZ(self) <> lodkaZ);
wait(500);
MoveXY(MineX,MineX, True, 0, True);
end;
end;

procedure CheckIngot;
begin
FindType(IngotType, Backpack);
if (FindFullQuantity < 4) then
begin
FindTypeEx(IngotType,IngotColor,Ground,False);
MoveItem(finditem, 4, Backpack, 0,0,0);
wait(500);
end
end;

procedure CheckPick;
begin
if (Count(PickType) < 4) then
begin
repeat
CheckIngot;
If TargetPresent Then CancelTarget;
UseObject(FindType(TynkType, Ground));
WaitJournalLine(Now, 'Select your', 10000);
WaitTargetObject(FindType(IngotType,BackPack));
WaitGump(PickGump);
WaitJournalLine(Now, 'You create|destroy|You put', 30000);
until (Count(PickType) >= 4);
end
end;

procedure smelting;
begin
if (Count(OreType) <> 0) then
begin
Addtosystemjournal('проверка');
MoveXY(MineX,MineY, True, 0, True);
Addtosystemjournal('проверка1');
repeat
Addtosystemjournal('проверка2');
If TargetPresent Then CancelTarget;
Addtosystemjournal('проверка3');
WaitTargetObject(Forge);
Addtosystemjournal('проверка4');
UseObject(FindType(OreType,Backpack));
Addtosystemjournal('проверка5');
WaitJournalLine(Now, 'You create|destroy', 10000);
Addtosystemjournal('проверка6');
until (Count(OreType) = 0);
Addtosystemjournal('проверка7');
end;
end;

procedure DropOre;
begin
repeat
FindType(IngotType,Backpack);
if (FindCount > 0) then
begin
oreCol:=GetColor(finditem);
stack(IngotType,GetColor(finditem));
wait(500);
end;
until (Count(IngotType) = 0);
Addtosystemjournal('=========================================');
FindType(IngotType,ground);
Addtosystemjournal('Всего металла на лодке - '+intToStr(findfullquantity));
FindType(TynkType,ground);
Addtosystemjournal('Тулзов на лодке - '+intToStr(findfullquantity));
FindType(eda,ground);
Addtosystemjournal('Еды осталось - '+intToStr(findfullquantity));
Addtosystemjournal('=========================================');
end;

procedure GotoOnBoad;
begin
smelting;
MoveXY(vozleX, vozleY, True, 0, True);
repeat
UseObject(Trap);
Addtosystemjournal('Возможно проблема тут');
wait(500);
until (GetZ(self) = lodkaZ);
UOSay ('Drop Anchor');
Hungry(1,ground);
DropOre;
CheckPick;
ClearJournal;
checkcoord;
end;

procedure checktools;
begin
if (Count(PickType) = 0) then
begin
GotoOnBoad;
end
end;

procedure mining;
begin
If TargetPresent Then CancelTarget;
if (GetType(ObjAtLayer(RhandLayer)) <> PickType) then
begin
UseObject(FindType(PickType, Backpack));
end;
if (GetType(ObjAtLayer(RhandLayer)) = PickType) then
begin
UseObject(ObjAtLayer(RhandLayer));
end;
WaitJournalLine(Now, 'Select a place', 10000);
WaitTargetSelf;
WaitJournalLine(Now, 'is attacking|You stop|your tool|no more ore|breaks|stop mining|cannot see|far away|earth elemental|cannot mine|what is this?!', 30000);
end;

procedure checkweight;
begin
if (Weight > WLimit) then
begin
Addtosystemjournal('Перегружен, иду плавить');
GotoOnBoad;
end;
end;

BEGIN
Addtosystemjournal('Скрипт успешно стартовал. Made by Hi-tech.');
SetARStatus(True);
TyleType[0] := 1386;
TyleType[1] := 1363;
TyleType[2] := 1362;
TyleType[3] := 1361;
TyleType[4] := 1359;
TyleType[5] := 1358;
TyleType[6] := 1357;
TyleType[7] := 1356;
TyleType[8] := 1355;
TyleType[9] := 1354;
TyleType[10] := 1353;
TyleType[11] := 1352;
TyleType[12] := 1351;
TyleType[13] := 1350;
TyleType[14] := 1349;
TyleType[15] := 1348;
TyleType[16] := 1347;
TyleType[17] := 1346;
TyleType[18] := 1345;
TyleType[19] := 1344;
TyleType[20] := 1343;
TyleType[21] := 1342;
TyleType[22] := 1341;
TyleType[23] := 1340;
TyleType[24] := 1339;
while not Dead do
begin
for s := 0 to 24 do
begin
b:= GetStaticTilesArray(Xmin,Ymin,Xmax,Ymax, 0, TyleType[s], a);
AddToSystemJournal('Tile Count : ' + IntToStr(b));
for c :=0 to b-1 do
begin
checktools;
CheckWeight;
checkcoord;
AddToSystemJournal('Идём на тайл '+IntToStr(C)+'!');
MoveXY(a[c].X,a[c].Y, True, 0, True);
mining;
end;
end;
end;
END.

System Journal

17:37:59:004 [Craft]: Compiling
17:37:59:046 [Craft]: Compiler: [Hint] (minig.sc at 7:1): Variable 'CTIME' never used
17:37:59:048 [Craft]: Compiled succesfully
17:37:59:051 [Craft]: Скрипт успешно стартовал. Made by Hi-tech.
17:37:59:055 [Craft]: Tile Count : 4
17:37:59:057 [Craft]: Идём на тайл 0!
17:37:59:514 [Craft]: MoveXY: Location reached!
17:38:02:848 [Craft]: Идём на тайл 1!
17:38:04:090 [Craft]: MoveXY: Location reached!
17:38:07:431 [Craft]: Идём на тайл 2!
17:38:13:757 [Craft]: MoveXY: Location reached!
17:38:18:564 [Craft]: Перегружен, иду плавить
17:38:18:574 [Craft]: проверка
17:38:23:276 [Craft]: MoveXY: Location reached!
17:38:23:281 [Craft]: проверка1
17:38:23:285 [Craft]: проверка2
17:38:23:289 [Craft]: проверка3
17:38:23:296 [Craft]: проверка4
17:38:23:300 [Craft]: проверка5
17:38:25:403 [Craft]: проверка6
17:38:25:406 [Craft]: проверка2
17:38:25:415 [Craft]: проверка3
17:38:25:419 [Craft]: проверка4
17:38:25:423 [Craft]: проверка5
17:38:27:437 [Craft]: проверка6
17:38:27:447 [Craft]: проверка7
17:38:28:647 [Craft]: UseObject error: Object not found.
17:38:28:653 [Craft]: Возможно проблема тут
17:38:29:161 [Craft]: UseObject error: Object not found.
17:38:29:169 [Craft]: Возможно проблема тут
17:38:29:679 [Craft]: UseObject error: Object not found.
17:38:29:682 [Craft]: Возможно проблема тут
17:38:30:186 [Craft]: UseObject error: Object not found.
17:38:30:189 [Craft]: Возможно проблема тут
17:38:30:694 [Craft]: UseObject error: Object not found.
17:38:30:701 [Craft]: Возможно проблема тут
17:38:31:211 [Craft]: UseObject error: Object not found.
17:38:31:219 [Craft]: Возможно проблема тут
17:38:31:728 [Craft]: UseObject error: Object not found.
17:38:31:732 [Craft]: Возможно проблема тут
17:38:32:236 [Craft]: UseObject error: Object not found.
17:38:32:245 [Craft]: Возможно проблема тут
17:38:32:752 [Craft]: UseObject error: Object not found.
17:38:32:755 [Craft]: Возможно проблема тут
17:38:33:237 [Craft]: Succesfully executed
17:38:33:242 [Craft]: Script minig.sc stopped successfuly

UO Journal

[17:37:59:549] System: Select a place to mine.
[17:38:01:264] System: You put some Steel ore in your backpack
[17:38:02:768] System: there is no more ore here to mine.
[17:38:04:132] System: Select a place to mine.
[17:38:05:817] System: You put some Copper ore in your backpack
[17:38:07:339] System: there is no more ore here to mine.
[17:38:13:765] System: Select a place to mine.
[17:38:15:415] System: You fail to find any usable ore.
[17:38:17:028] System: You put some Copper ore in your backpack
[17:38:18:525] System: there is no more ore here to mine.
[17:38:25:310] System: You create some ingots and place them in your pack.
[17:38:27:416] System: You create some ingots and place them in your pack.

Скрипт отлично работал в миноке, в новой шахте только так.
Буду очень благодарен за помощь.

=============
поменял координаты точки возле лодки, начал бегать в лодку, но перестал плавить... я ничего не понимаю.
=============
Обновил стелс до последней версии, проблема так и осталась.

[Oasis]

вроде заработало, перезагрузил пк и как-то начало работать, хз что это было