Перс не ходит на скрипте

[Jason]

Скрипт на фишинг, прописал все координаты, но когда включаю скрипт, персонаж стоит на месте и не двигается, пробовал двумя персонажами. Все как бы нормально, пишет что идем к дому, открываем сундук и тд, но в игре он стоит на одном месте и пытается все делать, открывать сундук и ловить рыбку. скидывал скрипт другому человеку он запускал и у него все нормально, персонаж ходит по скрипту. Версии стелса у нас одинаковые. я пробовал на версии 4,0,0 3,2,4 и на 1,0. Но на 1,0 он вобще не запустился. Такое чувство что гдето какаето галочка стоит чтоб перс не двигался)) подскажите как исправить, скрипт не вылаживал так как дело не в нем

[Vizit0r]

может стоит поменьше смотреть на клиент, а больше верить стелсу?

[Jason]

может стоит поменьше смотреть на клиент, а больше верить стелсу?

я смотрю вторым окном) да и в стелсе оно пишет что не может дотянутся до точек ловли...

[Xor]

дотянуться до точки ловли, и подойти к воде это вроде как разные вещи, не?

[Jason]

дотянуться до точки ловли, и подойти к воде это вроде как разные вещи, не?

правда?? спасибо кеп но читай внимательней. персонаж не подходит по тем координатам где должен стоять и ловить рыбу и не подходит по координатам к дому и соответствено не может дотянутся чтоб ловить рыбку и не может дотянутся до сундука под домом, но этот же скрипт нормально работает у других людей. Я специально звал знакомого, прописывал его в дом и он ставил своего перса на мою макру и там все нормально было. Понимаешь? У меня стелс не видит того что персонаж не двигается... стелс воспринимает как будто все нормально, мол перс ходит и продолжает работать но на самом деле тупо стоит на одном месте.

[Vizit0r]

бред какой-то.
давай
1) скрипт
2) все сообщения из сисжурнала с момента старта скриптп
3) то же самое для обычного уо журнала.

[Jason]

Program Fish_UP;
CONST
{Сообщения о вылове}
Mes1 = 'А рыбы больше нет';
Mes2 = 'Рыба покинула эти места';
Mes3 = 'Вся рыба на нересте';
Mes4 = 'Эта местность исчерпала себя';
Mes5 = 'Тут рыба не водится';
Mes6 = 'Тут только тина морская';
Mes7 = 'Вы распугали всю рыбу';
Mes8 = 'Жара, все рыба ушла из лимана';
Mes9 = 'Кроме воды вы тут ничего не поймаете';
Mes10 = 'Вы выловили всю рыбу';
Mes11 = 'Вы вытащили огромную рыбу!';


VAR
ctime : TDateTime;
List: TStringList;
MinePos: array[1..103] of Record
xx, yy, tile, x, y, z: integer;
end;

Item: array [1..95] of integer;
Tools: array [1..8] of integer;
Kartu: Integer;
PosNum: Integer;
ItemID: Cardinal;

i, k, m1, m2, m3, m4, m5, m6, m7, m8, m9, m10, m11: integer;
s: string;
FileName: String;

/////////////////////////////////////////////////
// Готовые процедцры, ниче не трогать //
/////////////////////////////////////////////////
procedure WaitConnection(WaitTime : Integer);
begin
if Connected then Exit;
while not Connected do Wait(1000);
wait(WaitTime);
end;
/////////////////////////////////////////////////
// Основные процедуры скрипта //
/////////////////////////////////////////////////
procedure FindGround;
VAR
Corpse: Cardinal;

Begin
FindDistance := 2;

if FindType($2006, ground) <> 0 then
begin
AddToSystemJournal('Найден труп ' + IntToStr(finditem));
Corpse := finditem;
If (FindType(Tools[4], backpack) <> -1) or (FindType(Tools[4], self) <> -1) then
begin
AddToSystemJournal('Режем труп');
WaittargetObject(Corpse);
Wait(1000);
UseObject(finditem);
Wait(3300);
end;
UseObject(Corpse);
Wait(500);
Ignore(Corpse);
i := 1;
while i < 14 do
begin
If FindType(Item, Corpse) > 0 then
begin
ItemID := finditem;
If not(isDead(self)) then MoveItem(ItemID, 0, backpack, 0, 0, 0);
Wait(1000);
end
else
begin
i := i + 1;
end;
AddToSystemJournal('Закончили с трупом.');
end;
end;
for i := 14 to 16 do
begin
If FindType(Item, ground) <> 0 then
begin
while FindType(Item, ground) <> 0 do
begin
If not(isDead(self)) then grab(findtype(Item, ground), 0);
Wait(1000);
AddToSystemJournal('вещь найдена '+IntToStr(i));
end;
end;
end;
end;

procedure Dig;
begin
FindGround;
MoveXY(MinePos[PosNum].xx, MinePos[PosNum].yy, false, 0, true);
Unequip (RhandLayer);
Wait(500);
Unequip (LhandLayer);
Wait(500);
AddToSystemJournal('точка № '+intToStr(PosNum)+' !');
FindType(Tools[1], backpack);
Equip (RhandLayer, finditem);
Wait(500);
If TargetPresent then CancelTarget;
wait(300);
FindType(Tools[1], self);
UseObject(FindItem);
disarm;
Wait(500);
FindType(Tools[4], backpack);
Equip (RhandLayer, finditem);
Wait(500);
FindType(Tools[5], backpack);
Equip (LhandLayer, finditem);
TargetToTile(MinePos[PosNum].tile, MinePos[PosNum].x, MinePos[PosNum].y, MinePos[PosNum].z);
end;

procedure MoveToHouse;
begin
addtosystemjournal('Идем к дому');
MoveXY(1583, 489, false, 0, true);
end;

procedure CheckBint;
begin
If FindType(Tools[2], backpack) = 0 then
begin
If not(isDead(self)) then
begin
MoveToHouse;
UseSkill('Hiding')
Wait(1000);
UOSay(Chr(39)+'resend');
AddToSystemJournal('Resend');
wait(5500);
AddToSystemJournal('Открываем сундук с приколами');
UseObject($425A44F8);
AddToSystemJournal('Открываем пак');
UseObject(backpack);
Wait(2000);
AddToSystemJournal('Ищем БИНТЫ');
FindType(Tools[2], $425A44F8);
If finditem = 0 then
begin
AddToSystemJournal('Бинты не найдены.');
exit;
end;
AddToSystemJournal('Берем вещь на курсор');
DragItem(finditem,15);
AddToSystemJournal('Кидаем в пак');
DropItem(backpack,0,0,0);
ClearJournal;
end
else exit;
end;
end;

procedure CheckBankaS;
begin
If FindType(Tools[8], backpack) = 0 then
begin
If not(isDead(self)) then
begin
MoveToHouse;
UseSkill('Hiding')
Wait(1000);
UOSay(Chr(39)+'resend');
AddToSystemJournal('Resend');
wait(5500);
AddToSystemJournal('Открываем сундук с приколами');
UseObject($425A44F8);
AddToSystemJournal('Открываем пак');
UseObject(backpack);
Wait(2000);
AddToSystemJournal('Ищем Банки');
FindType(Tools[8], $425A44F8);
If finditem = 0 then
begin
AddToSystemJournal('Банки не найдены.');
exit;
end;
AddToSystemJournal('Берем вещь на курсор');
DragItem(finditem,4);
AddToSystemJournal('Кидаем в пак');
DropItem(backpack,0,0,0);
ClearJournal;
end
else exit;
end;
end;

procedure CheckHeal;
begin
If Life < 190 then
begin
while Life < Str do
begin
If isDead(self) then exit;
If InJournal('У вас нет бинтов') <> -1 then CheckBint;
UOSay(Chr(39)+'pc heal self');
Wait(3500);
addtosystemjournal('Лечимся');
end;
end;
end;

procedure CheckStamina;
begin
if Stam < 100 then
begin
repeat
addtosystemjournal('Пьем банку');
UOSay(Chr(39)+'pc quaf refresh');
If InJournal('У вас нет бутылочек') <> -1 then CheckBankaS;
waitconnection(3000);
wait(1000);
until Stam = MaxStam;
end;
end;

procedure CheckGhost;
var
counter: integer;
begin
If IsDead(self) then
begin
counter := 100;
while isDead(self) do
begin
// PlayWav('C:\WINDOWS\Media\tada.wav');
wait(50000);
counter := counter - 1;
AddToSystemJournal(IntToStr(counter));
end;
addtosystemjournal('Реснулись...');
end;
end;

Procedure StoreOre;
var
j: integer;
begin
MoveToHouse;
AddToSystemJournal('Открываем пак...');
UseObject(backpack);
wait(1000);
If FindType($14EB, backpack) > 0 then
begin
while FindType($14EB, backpack) <> 0 do
begin
ItemID := finditem;
If not(isDead(self)) then MoveItem(ItemID, 0, $425A4580, 0, 0, 0);
Wait(1000);
AddToSystemJournal('карта найдена ');
end;
end;
for j := 1 to 17 do
begin
If FindType(Item[j], backpack) > 0 then
begin
while FindType(Item[j], backpack) <> 0 do
begin
ItemID := finditem;
If not(isDead(self)) then MoveItem(ItemID, 0, $425A457A, 0, 0, 0);
Wait(1000);
AddToSystemJournal('вещь найдена '+IntToStr(j));
end;
end;
end;
for j := 17 to 95 do
begin
If FindType(Item[j], backpack) > 0 then
begin
while FindType(Item[j], backpack) <> 0 do
begin
ItemID := finditem;
If not(isDead(self)) then MoveItem(ItemID, 0, $425A45A0, 0, 0, 0);
Wait(1000);
AddToSystemJournal('вещь найдена '+IntToStr(j));
end;
end;
end;
end;

procedure CheckWeight;
begin
If Weight > 300 then
begin
If not(isDead(self)) then StoreOre;
end;
end;


procedure Resend;
begin
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
end;

procedure Rest;
begin
If InJournal('You cannot pick') <> -1 then
begin
ClearJournal;
disconnect;
end;
end;


procedure TakeOnEquip;
var
j: integer;
begin
MoveToHouse;
UseSkill('Hiding');
Resend;
AddToSystemJournal('Открываем сундук с кирками');
Wait(5000);
UseObject($425A44F8);
AddToSystemJournal('Открываем пак');
UseObject(backpack);
Wait(2000);
for j := 1 to 8 do
begin
if (FindType(Tools[j],self) = 0) and (FindType(Tools[j],backpack) = 0) then
begin
AddToSystemJournal('Ищем вещь '+IntToStr(j));
FindType(Tools[j], $425A44F8);
If finditem = 0 then
begin
AddToSystemJournal('Вещь '+IntToStr(j)+' не найдена.');
exit;
end;
AddToSystemJournal('Берем вещь на курсор');
DragItem(finditem,10);
Wait(200);
AddToSystemJournal('Кидаем в пак');
DropItem(backpack,0,0,0);
Wait(50);
UseObject(backpack);
FindType(Tools[j], backpack);
If j = 6 then Equip (LhandLayer, finditem);
If j = 7 then Equip (LhandLayer, finditem);
Wait(500);
end;
end;
end;

procedure CheckEquip;
var
j: integer;
begin
for j := 1 to 7 do
begin
if j < 7 then
begin
If (FindType(Tools[j], backpack) = 0) and (FindType(Tools[j], self) = 0) then
begin
If not(isDead(self)) then
begin
AddToSystemJournal('Закончились приколы - ' + IntToStr(j));
TakeOnEquip;
end;
end;
end
end;
end;
///////////////////////////////////////////////////////////////////////
////////////////////// ////////////////////////////
////////////////////// Основная часть ////////////////////////////
////////////////////// ////////////////////////////
///////////////////////////////////////////////////////////////////////
BEGIN
AddToSystemJournal('Загружаем вейпоинты с файла...');
List := TStringList.Create;
FileName := Copy(GetName(self), 1, Length(GetName(self)));
List.LoadFromFile(FileName + '1' + '.txt');
for i := 0 to 102 do
begin
s := List.strings[i + 1] + ' ';
MinePos[i + 1].xx := StrToInt(Copy(s, 1, Pos(' ', s)-1));
Delete(s,1,Pos(' ',s));
MinePos[i + 1].yy := StrToInt(Copy(s, 1, Pos(' ', s)-1));
Delete(s,1,Pos(' ',s));
MinePos[i + 1].tile := StrToInt(Copy(s, 1, Pos(' ', s)-1));
Delete(s,1,Pos(' ',s));
MinePos[i + 1].x := StrToInt(Copy(s, 1, Pos(' ', s)-1));
Delete(s,1,Pos(' ',s));
MinePos[i + 1].y := StrToInt(Copy(s, 1, Pos(' ', s)-1));
Delete(s,1,Pos(' ',s));
MinePos[i + 1].z := StrToInt(Copy(s, 1, Pos(' ', s)-1));
end;
AddToSystemJournal('Готово.');
AddToSystemJournal('Инициализируем переменные...');
PosNum := 1;
Kartu := $14EB; // Карты
Item[1] := $0F21; // Стар сапфиры
Item[2] := $0F80; // Демон бон
Item[3] := $0EED; // Золото
Item[4] := $0F7D; // Виалки
Item[5] := $0F87; // Приколы для колец
Item[6] := $0F85; // Гинс
Item[7] := $0F86; // Мр
Item[8] := $0F7B; // Блуд мус
Item[9] := $0F88; // Нс
Item[10] := $0F7A; // БП
Item[11] := $0F84; // Гарлик
Item[12] := $0F8C; // Сульфур
Item[13] := $0F8D; // СС
Item[14] := $09CD; // РЫБА
Item[15] := $09CC; // РЫБА
Item[16] := $09CE; // РЫБА
Item[17] := $0F0E; // пустые бутылки
Item[18] := $0EA0; // Картины
Item[19] := $0EA1; // Картины
Item[20] := $0EA2; // Картины
Item[21] := $0EA3; // Картины
Item[22] := $0EA4; // Картины
Item[23] := $0EA5; // Картины
Item[24] := $0EA6; // Картины
Item[25] := $0EA7; // Картины
Item[26] := $0EA8; // Картины
Item[27] := $0EA9; // Картины
Item[28] := $0EC8; // Картины
Item[29] := $1408; // АРМОР
Item[30] := $141A; // АРМОР
Item[31] := $140A; // АРМОР
Item[32] := $1414; // АРМОР
Item[33] := $13BA; // СТВОЛЫ
Item[34] := $1438; // СТВОЛЫ
Item[35] := $143A; // СТВОЛЫ
Item[36] := $13B4; // СТВОЛЫ
Item[37] := $13B6; // СТВОЛЫ
Item[38] := $0E87; // СТВОЛЫ
Item[39] := $0F62; // СТВОЛЫ
Item[40] := $0F45; // СТВОЛЫ
Item[41] := $13B8; // СТВОЛЫ
Item[42] := $0F49; // СТВОЛЫ
Item[43] := $0F47; // СТВОЛЫ
Item[44] := $1405; // СТВОЛЫ
Item[45] := $13B0; // СТВОЛЫ
Item[46] := $0F4D; // СТВОЛЫ
Item[47] := $0F5C; // СТВОЛЫ
Item[48] := $1440; // СТВОЛЫ
Item[49] := $13FB; // СТВОЛЫ
Item[50] := $143C; // СТВОЛЫ
Item[51] := $0E85; // СТВОЛЫ
Item[52] := $1400; // СТВОЛЫ
Item[53] := $1406; // СТВОЛЫ
Item[54] := $0F5E; // СТВОЛЫ
Item[55] := $0E40; // СУНДУКИ
Item[56] := $0E41; // СУНДУКИ
Item[57] := $0E42; // СУНДУКИ
Item[58] := $0E43; // СУНДУКИ
Item[59] := $1AE4; // КОСТИ
Item[60] := $1AD8; // КОСТИ
Item[61] := $0FCA; // КОСТИ
Item[62] := $0FC9; // КОСТИ
Item[63] := $0FCB; // КОСТИ
Item[64] := $0ECD; // КОСТИ
Item[65] := $0FCC; // КОСТИ
Item[66] := $0FC6; // КОСТИ
Item[67] := $1AE2; // ???????
Item[68] := $1AE3; // ???????
Item[69] := $1AE1; // ???????
Item[70] := $0FC8; // ???????
Item[71] := $143E; // ???????
Item[72] := $0F4B; // ???????
Item[73] := $1AE0; // ???????
Item[74] := $0FC5; // ???????
Item[75] := $0FC7; // ???????
Item[76] := $0FC4; // ???????
Item[77] := $0FC5; // ???????
Item[78] := $1EA3; // ???????
Item[79] := $13FF; // ???????
Item[80] := $1EA5; // СЕТКА
Item[81] := $1B72; // Щит круглый
Item[82] := $13F1; // АРМОР
Item[83] := $13F2; // АРМОР
Item[84] := $13EF; // АРМОР
Item[85] := $13ED; // АРМОР
Item[86] := $13C4; // АРМОР
Item[87] := $13BB; // АРМОР
Item[88] := $13C3; // АРМОР
Item[89] := $140E; // АРМОР
Item[90] := $1412; // АРМОР
Item[91] := $1416; // АРМОР
Item[92] := $1413; // АРМОР
Item[93] := $1C04; // АРМОР
Item[94] := $1410; // АРМОР
Item[95] := $140C; // АРМОР
Tools[1] := $0DBF; // удочка
Tools[2] := $0E21; // бинт
Tools[3] := $097B; // фишстейк
Tools[4] := $13B6; // крис
Tools[5] := $1B76; // хитер_арчер
Tools[6] := $13C4; // туника
Tools[7] := $13C3; // штаны
Tools[8] := $0F0B; // стама
AddToSystemJournal('Готово...');
AddToSystemJournal('Запускаю макрос...');
UOSay('Макрос на фишинг на стелс. Версия 3.0.1 (с) Aop');
Ignore(self);
// Основной цикл.
while true do
begin
CheckGhost;
If not(isDead(self)) then CheckEquip;
If not(isDead(self)) then CheckWeight;
If not(isDead(self)) then CheckHeal;
If not(isDead(self)) then CheckStamina;
Dig;
k := 0;
repeat
wait(100);
k := k + 1;
m1 := InJournalBetweenTimes(Mes1, ctime, Now);
m2 := InJournalBetweenTimes(Mes2, ctime, Now);
m3 := InJournalBetweenTimes(Mes3, ctime, Now);
m4 := InJournalBetweenTimes(Mes4, ctime, Now);
m5 := InJournalBetweenTimes(Mes5, ctime, Now);
m6 := InJournalBetweenTimes(Mes6, ctime, Now);
m7 := InJournalBetweenTimes(Mes7, ctime, Now);
m8 := InJournalBetweenTimes(Mes8, ctime, Now);
m9 := InJournalBetweenTimes(Mes9, ctime, Now);
m10 := InJournalBetweenTimes(Mes10, ctime, Now);
m11 := InJournalBetweenTimes(Mes11, ctime, Now);
If FindType($000D,ground) <> 0 then
begin
If targetpresent then CancelTarget;
UseSkill('Enticement');
wait(100)
WaitTargetObject(FindType($000D, ground));
wait(100)
WaitTargetObject(self);
wait(3200);
end;
If FindType($0096,ground) <> 0 then
begin
If targetpresent then CancelTarget;
UseSkill('Enticement');
wait(100)
WaitTargetObject(FindType($0096, ground));
wait(100)
WaitTargetObject(self);
wait(3200);
end;
If FindType($0010,ground) <> 0 then
begin
If targetpresent then CancelTarget;
UseSkill('Enticement');
wait(100)
WaitTargetObject(FindType($0010, ground));
wait(100)
WaitTargetObject(self);
wait(3200);
end;
If Life < MaxLife then
begin
If isDead(self) then CheckGhost;
If InJournal('У вас нет бинтов') <> -1 then CheckBint;
UOSay(Chr(39)+'pc heal self');
Wait(5000);
addtosystemjournal('Лечимся');
end;
until (m1<>-1) or (m2<>-1) or (m3<>-1) or (m4<>-1) or (m5<>-1) or (m6<>-1) or (m7<>-1) or (m8<>-1) or (m9<>-1) or (m10<>-1) or (m11<>-1) or (k > 300);
If m11 <> -1 then
begin
k := 1;
ClearJournal;
while Life < MaxLife do
begin
If isDead(self) then CheckGhost;
If InJournal('У вас нет бинтов') <> -1 then CheckBint;
UOSay(Chr(39)+'pc heal self');
Wait(5000);
addtosystemjournal('Хил');
end;
FindGround;
end;
If (m1<>-1) or (m2<>-1) or (m3<>-1) or (m4<>-1) or (m5<>-1) or (m6<>-1) or (m7<>-1) or (m8<>-1) or (m9<>-1) or (m10<>-1) then
begin
ClearJournal;
addtosystemjournal('Выбираем новую точку.');
PosNum := PosNum + 1;
If PosNum > 103 then
begin
PosNum := 1;
end;
end;
If isDead(self) then CheckGhost;
end;
END.

========================================================
+файл с координатами
[Точки облова]
1583 480 6042 1579 479 251
1583 480 6039 1579 478 251
1583 480 6043 1579 477 251
1583 480 6044 1579 476 251
1583 480 6042 1580 479 251
1583 480 6043 1580 478 251
1583 480 6039 1580 477 251
1583 480 6040 1580 476 251
1583 480 6044 1581 479 251
1583 480 6042 1581 478 251
1583 480 6041 1581 477 251
1583 480 6043 1581 476 251
1583 480 6043 1582 479 251
1583 480 6040 1582 478 251
1583 480 6042 1582 477 251
1583 480 6039 1582 476 251
1583 480 6044 1583 479 251
1583 480 6043 1583 478 251
1583 480 6043 1583 477 251
1583 480 6041 1583 476 251
1583 480 6039 1581 480 251
1583 480 6039 1580 480 251
1583 480 6039 1579 480 251
1583 480 6041 1583 475 251
1583 480 6040 1584 479 251
1583 480 6041 1584 478 251
1583 480 6042 1584 477 251
1583 480 6040 1584 476 251
1583 480 6039 1584 475 251
1583 480 6041 1585 479 251
1583 480 6042 1585 477 251
1583 480 6044 1585 478 251
1583 480 6043 1585 476 251
1583 480 6043 1585 475 251
1583 480 6042 1586 478 251
1583 480 6040 1586 477 251
1583 480 6039 1586 476 251
1583 480 6044 1586 475 251
1591 478 6042 1587 478 251
1591 478 6041 1587 477 251
1591 478 6040 1587 476 251
1591 478 6044 1587 475 251
1591 478 6042 1587 474 251
1591 478 6039 1588 478 251
1591 478 6043 1588 477 251
1591 478 6043 1588 476 251
1591 478 6041 1588 475 251
1591 478 6043 1588 474 251
1591 478 6044 1589 477 251
1591 478 6044 1589 476 251
1591 478 6039 1589 475 251
1591 478 6043 1589 474 251
1591 478 6043 1589 473 251
1591 478 6041 1590 477 251
1591 478 6041 1590 476 251
1591 478 6041 1590 475 251
1591 478 6043 1590 474 251
1591 478 6039 1590 473 251
1591 478 6042 1591 476 251
1591 478 6043 1591 475 251
1591 478 6043 1591 474 251
1591 478 6039 1591 473 251
1591 478 6041 1592 476 251
1591 478 6039 1592 475 251
1591 478 6039 1592 474 251
1591 478 6042 1592 473 251
1596 474 6039 1593 475 251
1596 474 6042 1593 474 251
1596 474 6041 1593 473 251
1596 474 6039 1593 472 251
1596 474 6043 1593 471 251
1596 474 6041 1593 470 251
1596 474 6040 1594 475 251
1596 474 6041 1594 474 251
1596 474 6044 1594 473 251
1596 474 6040 1594 471 251
1596 474 6040 1594 470 251
1596 474 6042 1594 472 251
1596 474 6039 1595 474 251
1596 474 6044 1595 473 251
1596 474 6043 1595 472 251
1596 474 6043 1595 471 251
1596 474 6040 1595 470 251
1596 474 6041 1596 473 251
1596 474 6044 1596 472 251
1596 474 6044 1596 471 251
1596 474 6039 1596 470 251
1602 468 6041 1598 470 251
1602 468 6041 1598 469 251
1602 468 6039 1598 468 251
1602 468 6043 1598 467 251
1602 468 6041 1598 466 251
1602 468 6041 1598 465 251
1602 468 6041 1598 464 251
1602 468 6043 1599 469 251
1602 468 6040 1599 468 251
1602 468 6043 1599 467 251
1602 468 6043 1599 466 251
1602 468 6044 1599 465 251
1602 468 6041 1599 463 251
1602 468 6042 1599 464 251
1602 468 6039 1603 465 251
1602 468 6040 1602 464 251

Журнал систем
11:37:24:687 [Jason]: Character Jason Swon Connected.
11:37:39:328 [Jason]: Compiling
11:37:39:421 [Jason]: Compiled succesfully
11:37:39:437 [Jason]: Загружаем вейпоинты с файла...
11:37:39:609 [Jason]: Готово.
11:37:39:609 [Jason]: Инициализируем переменные...
11:37:39:625 [Jason]: Готово...
11:37:39:625 [Jason]: Запускаю макрос...
11:37:39:640 [Jason]: Закончились приколы - 1
11:37:39:640 [Jason]: Идем к дому
11:37:45:656 [Jason]: Открываем сундук с кирками
11:37:50:656 [Jason]: Открываем пак
11:37:52:718 [Jason]: Ищем вещь 1
11:37:52:718 [Jason]: Вещь 1 не найдена.
11:37:52:718 [Jason]: Закончились приколы - 4
11:37:52:734 [Jason]: Идем к дому
11:37:58:781 [Jason]: Открываем сундук с кирками
11:38:03:781 [Jason]: Открываем пак
11:38:05:828 [Jason]: Ищем вещь 1
11:38:05:843 [Jason]: Вещь 1 не найдена.
11:38:05:859 [Jason]: Закончились приколы - 6
11:38:05:890 [Jason]: Идем к дому
11:38:11:906 [Jason]: Открываем сундук с кирками
11:38:16:921 [Jason]: Открываем пак
11:38:18:968 [Jason]: Ищем вещь 1
11:38:18:984 [Jason]: Вещь 1 не найдена.
11:38:20:203 [Jason]: точка № 1 !
11:38:20:218 [Jason]: Drag error: Object not found.
11:38:21:093 [Jason]: UseObject error: Object not found.
11:38:21:875 [Jason]: Drag error: Object not found.

Журнал игры

[11:37:39:640] Jason Swon: Макрос на фишинг на стелс. Версия 3.0.1 (с) Aop
[11:37:39:656] System: С лошадью вам намного труднее спрятаться.
[11:37:40:656] System: Вы чувствуете как земля под вами задрожала ...
[11:37:40:875] You see: Fibi [Ellar]
[11:37:50:656] System: Вам туда не дотянуться.
[11:37:50:718] System: Подождите, предыдущее действие не завершено.
[11:37:52:750] System: Выход из боевого режима.
[11:37:52:750] System: Теперь окружающие Вас не видят.
[11:37:53:750] System: Вы чувствуете как земля под вами задрожала ...
[11:37:54:125] You see: Fibi [Ellar]
[11:38:03:812] System: Попытайтесь подойти поближе.
[11:38:03:843] System: Подождите, предыдущее действие не завершено.
[11:38:05:921] System: You have been revealed
[11:38:05:921] System: Выход из боевого режима.
[11:38:05:921] System: Теперь окружающие Вас не видят.
[11:38:06:921] System: Вы чувствуете как земля под вами задрожала ...
[11:38:07:125] You see: Fibi [Ellar]
[11:38:16:937] System: Слишком коротки руки, чтоб дотянуться.
[11:38:16:984] System: Подождите, предыдущее действие не завершено.

[Jason]

я перса ставлю на клетки 4-5 от дома и он должен туда подойти но както не идет (

На вкладке карта в стелсе, не отображаются координаты перса, может там проблема... хз

[Xor]

код не читаем

а зачем скрипт пытается дотянуться, если он не пришел в нужную точку? проверки никто не отменял

[Jason]

код не читаем

а зачем скрипт пытается дотянуться, если он не пришел в нужную точку? проверки никто не отменял

Подскажите тогда как проверку то эту делать)

[Xor]

Для начала как-то так...

Code: Select all

while (GetX(self()) <> x) and (GetY(self()) <> y) do
begin
    AddToSystemJournal('Going to: ' + IntToStr(x) + ', ' + IntToStr(y));
    NewMoveXY(x, y, true, 1, true);    
    CheckLag();
end;

p.s. код написал прямо тут, могут быть синтаксические неточности.