3.2.4 stealth client

[tap]

где можно скачать етот клиент? и кто знает в чём может быть проблема , поставил чаров в спаринг , а через 1час просто закрывается клиент( версия клиента Stealth v1.0, на 3.8 макра не запускается.

[Vizit0r]

покажи скрипт, который не запускается.

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

[tap]

Code: Select all

Program Sparing_By_Kilroy;
var
i:integer;
x1,y1,x2,y2:integer;
box,telo:cardinal;
item:array[1..20] of cardinal;
ItemL:array [1..20] of cardinal;
packitem:array [1..10] of cardinal;

procedure GotoXY(x,y,prec : integer; runflag : boolean);
   // x,y - координаты, в которые идем
   // prec - точность подхода
   // runflag - бежать или идти
   // v. 1.04 (с) Edred, скрипт портирован с инжекта
   // оригинальная версия Yoko с доработкой AGRS и Edred.
   var ld, ldc, dx, dy, mx, my : Integer;
   begin
      ld := 0; ldc := 0;
      while true do
      begin
         dx := GetX(self) - x; if dx < 0 then dx := 0 - dx;
         dy := GetY(self) - y; if dy < 0 then dy := 0 - dy;
         if dy > dx then dx := dy;
         if dx <= prec then exit;
         mx := GetX(self); my := GetY(self);
         dx := mx - x; if dx < 0 then dx := 0 - dx;
         dy := my - y; if dy < 0 then dy := 0 - dy;
         if dy > dx then dx := dy;
         if dx <= prec then exit;
         if ld = dx then begin
            ldc := ldc + 1;
            if ldc > 100 then begin addtosystemjournal( 'GotoXY: Cannot reach location!' ); exit; end;
         end
         else ld := dx;
         if mx = x then begin
            if my = y then exit;
            // North
            if my > y then begin Raw_Move(0,runflag); continue; end;
            // South
            Raw_Move(4,runflag); continue;
         end;
         if mx < x then begin
            // Northeast
            if my > y then begin Raw_Move(1,runflag); continue; end;
            // East
            if my = y then begin Raw_Move(2,runflag); continue; end;
            // Southeast
            Raw_Move(3,runflag); continue;
         end;
         // Southwest
         if my < y then begin Raw_Move(5,runflag); continue; end;
         // West
         if my = y then begin Raw_Move(6,runflag); continue; end;
         // Nortwest
         Raw_Move(7,runflag); continue;
      end;
   end; 

Procedure OpenBox;
Begin
  wait(1500);
  AddToSystemJournal('Ресенд.');
  UoSay(chr(39)+'resend');
  Wait(4000);
  FindDistance:=10;
  AddToSystemJournal('Открываем ящик с вещами.');
  UseObject(Box);
  Wait(3000);
  AddToSystemJournal('Done.');
end;

Procedure Check;
Begin
  For i:=6 to 7 do
  Begin
    If FindType(item[i],self) = 0 then
    Begin
      AddToSystemJournal('Одеваем итем номер '+IntToStr(i)+'.');
      If FindType(item[i],backpack) <> 0 then
        Equip (itemL[i],Finditem)        
      else
        Equip (itemL[i],FindType(item[i],box));
      wait(350);
    end;
  end;
end;

Procedure Heal;
Begin
  Wait(2000);
  UoSay(chr(39)+'pc heal self');
  wait(2000);
end;

Procedure CheckPack;
Begin
  if Count(packitem[1]) < 5 then
  Begin
    AddToSystemJournal('Берем фишстейки');
    moveitem(FindType(packitem[1],box),10,backpack,0,0,0);
    wait(350);
  end;
  if Count(packitem[2]) < 5 then
  Begin
    AddToSystemJournal('Берем бинты');
    moveitem(FindType(packitem[2],box),100,backpack,0,0,0);
    wait(350);
  end;
end;

Procedure CheckHP;
Begin
  If (Life < 35) or (GetHp(telo) <30) then
  Begin
    AddToSystemJournal('Отходим.');
    GotoXY(x2,y2,0,false);
    Heal;
    Heal;
    Heal;
    Heal;
    GotoXY(x1,y1,0,false);
  end;
end;


BEGIN
  AddToSystemJournal('Сохраняем переменные.');
  Box:=$6ED02E4A;  
  Telo:=$05246FDD;
  x1:=2570; //Тут чар спарингуется
  y1:=121;
  x2:=2569; //Сюда чар отходит, когда
  y2:=121;  //мало хп.
  item[1]:=$ffff; //Ноги
  item[2]:=$ffff; //Пузо
  item[3]:=$ffff; //Голова
  item[4]:=$ffff; //Локти
  Item[5]:=$ffff; //Перчатки
  item[6]:=$1B72; //Щит
  item[7]:=$0EC4; //Оружие
  packitem[1]:=$ffff; //Фишстейки
  packitem[2]:=$0E21; //Бинты
  
  itemL[1]:=PantsLayer;
  itemL[2]:=TorsoLayer;
  itemL[3]:=HatLayer;
  itemL[4]:=ArmsLayer;
  itemL[5]:=GlovesLayer;
  itemL[6]:=LhandLayer;
  itemL[7]:=RhandLayer;
  AddToSystemJournal('Done.');
  OpenBox;
  GotoXY(x1,y1,0,false);

  While true do
  Begin
    Check;
    CheckPack;
    CheckHP;
    Attack(telo);
    Heal;
  end;
END.

[Vizit0r]

00:22:22:515 [runuo - test]: Compiling
00:22:22:531 [runuo - test]: Compiled succesfully
00:22:22:531 [runuo - test]: Сохраняем переменные.
00:22:22:531 [runuo - test]: Done.
00:22:24:031 [runuo - test]: Ресенд.
00:22:28:031 [runuo - test]: Открываем ящик с вещами.
00:22:28:656 [runuo - test]: Succesfully executed
00:22:28:671 [runuo - test]: Script 1212.sc stopped successfuly

скрипт запускается.

что не работает?

[tap]

не ходит по точкам, и не одходит когда мало хп( короче вообще не двигается.

[Vizit0r]

Code: Select all

procedure GotoXY(x,y,prec : integer; runflag : boolean);
// x,y - координаты, в которые идем
// prec - точность подхода
// runflag - бежать или идти
// v. 1.04 (с) Edred, скрипт портирован с инжекта
// оригинальная версия Yoko с доработкой AGRS и Edred.
var ld, ldc, dx, dy, mx, my : Integer;
begin
ld := 0; ldc := 0;
while true do
begin
dx := GetX(self) - x; if dx < 0 then dx := 0 - dx;
dy := GetY(self) - y; if dy < 0 then dy := 0 - dy;
if dy > dx then dx := dy;
if dx <= prec then exit;
mx := GetX(self); my := GetY(self);
dx := mx - x; if dx < 0 then dx := 0 - dx;
dy := my - y; if dy < 0 then dy := 0 - dy;
if dy > dx then dx := dy;
if dx <= prec then exit;
if ld = dx then begin
ldc := ldc + 1;
if ldc > 100 then begin addtosystemjournal( 'GotoXY: Cannot reach location!' ); exit; end;
end
else ld := dx;
if mx = x then begin
if my = y then exit;
// North
if my > y then begin Raw_Move(0,runflag); continue; end;
// South
Raw_Move(4,runflag); continue;
end;
if mx < x then begin
// Northeast
if my > y then begin Raw_Move(1,runflag); continue; end;
// East
if my = y then begin Raw_Move(2,runflag); continue; end;
// Southeast
Raw_Move(3,runflag); continue;
end;
// Southwest
if my < y then begin Raw_Move(5,runflag); continue; end;
// West
if my = y then begin Raw_Move(6,runflag); continue; end;
// Nortwest
Raw_Move(7,runflag); continue;
end;
end;

убрать вообще.

вызовы GotoXY заменить на NewMoveXY.

GotoXY(x2,y2,0,false);
=
NewMoveXY(2,y2,True,0,false);


GotoXY(x1,y1,0,false);
=
NewMoveXY(x1,y1,True,0,false);

всё. "новый" скрипт под "новый" стелс готов.

[tap]

спс , сейчас протестим. А если будет так же закрыватся клиент , так что потом делать?

[Vizit0r]

написать мне.

P.S. Меня совершенно не интересует, как закрывается, виснет или глючит Стелс версии 1.0. Уже много раз писал и еще раз повторю - проблемы и баги разбираются ТОЛЬКО применительно к самой последней версии.

[tap]

ок

[tap]

Code: Select all

Program Sparing_By_Kilroy;
var
i:integer;
x1,y1,x2,y2:integer;
box,telo:cardinal;
item:array[1..20] of cardinal;
ItemL:array [1..20] of cardinal;
packitem:array [1..10] of cardinal;

Procedure OpenBox;
Begin
  wait(1500);
  AddToSystemJournal('Ресенд.');
  UoSay(chr(39)+'resend');
  Wait(4000);
  FindDistance:=10;
  AddToSystemJournal('Открываем ящик с вещами.');
  UseObject(Box);
  Wait(3000);
  AddToSystemJournal('Done.');
end;

Procedure Check;
Begin
  For i:=6 to 7 do
  Begin
    If FindType(item[i],self) = 0 then
    Begin
      AddToSystemJournal('Одеваем итем номер '+IntToStr(i)+'.');
      If FindType(item[i],backpack) <> 0 then
        Equip (itemL[i],Finditem)        
      else
        Equip (itemL[i],FindType(item[i],box));
      wait(350);
    end;
  end;
end;

Procedure Heal;
Begin
  Wait(2000);
  UoSay(chr(39)+'pc heal self');
  wait(2000);
end;

Procedure CheckPack;
Begin
  if Count(packitem[1]) < 5 then
  Begin
    AddToSystemJournal('Берем фишстейки');
    moveitem(FindType(packitem[1],box),10,backpack,0,0,0);
    wait(350);
  end;
  if Count(packitem[2]) < 5 then
  Begin
    AddToSystemJournal('Берем бинты');
    moveitem(FindType(packitem[2],box),100,backpack,0,0,0);
    wait(350);
  end;
end;

Procedure CheckHP;
Begin
  If (Life < 35) or (GetHp(telo) <30) then
  Begin
    AddToSystemJournal('Отходим.');
    NewMoveXY(2,y2,True,0,false);
    Heal;
    Heal;
    Heal;
    Heal;
    NewMoveXY(1,y1,True,0,false);
  end;
end;


BEGIN
  AddToSystemJournal('Сохраняем переменные.');
  Box:=$6BB0D878;  
  Telo:=$053080CC;
  x1:=1805; //Тут чар спарингуется
  y1:=3224;
  x2:=1805; //Сюда чар отходит, когда
  y2:=3222;  //мало хп.
  item[1]:=$ffff; //Ноги
  item[2]:=$ffff; //Пузо
  item[3]:=$ffff; //Голова
  item[4]:=$ffff; //Локти
  Item[5]:=$ffff; //Перчатки
  item[6]:=$1B72; //Щит
  item[7]:=$0EC4; //Оружие
  packitem[1]:=$ffff; //Фишстейки
  packitem[2]:=$0E21; //Бинты
  
  itemL[1]:=PantsLayer;
  itemL[2]:=TorsoLayer;
  itemL[3]:=HatLayer;
  itemL[4]:=ArmsLayer;
  itemL[5]:=GlovesLayer;
  itemL[6]:=LhandLayer;
  itemL[7]:=RhandLayer;
  AddToSystemJournal('Done.');
  OpenBox;
  NewMoveXY(1,y1,True,0,false);

  While true do
  Begin
    Check;
    CheckPack;
    CheckHP;
    Attack(telo);
    Heal;
  end;
END.

Вот посмотри всё правильнО? Но он всёравно не ходит) стоит на месте.

[Vizit0r]

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

путь к УО в настройках шарда прописал правильно?

при коннекте сообщение в сисжурнал

UO MUL-Files path incorrect, some functions disabled (move, map, clicocs etc.)

не выдается?

[tap]

01:29:34:140 [stealerd]: Compiling
01:29:34:155 [stealerd]: Compiler: [Error] (St.txt at 153:15): Unknown identifier 'y'
01:29:34:155 [stealerd]: Compiling failed
01:29:34:155 [stealerd]: Script St.txt stopped successfuly
Только ето...
И где твою аську взять?Если можеш напиши сюда.

[Vizit0r]

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

ася 57698225, в профиле лежит...

[Alex]

tap, посмотри тут раздел "Окно Shard Setup". у тебя есть зелёная надпись Status: path correct?

[MuDaCk]

NewMoveXY(2,y2,True,0,false);

Автор в скрипте не пишет иксы, потому и не ходит.