Stealth 7 Release

[drabadan]

error with " Undeclared identifier "FindDistance"... " ans same was fixed - but thats actual only when use Compile&Save from Editor.
In usual scripts

Code: Select all

begin
FindDistance := 10;
end.

works fine

ты весию ту токо мне давал.

[jjookkoo]

aha thanks i was thinking that i need to compile the script to execute

[Macks]

Что то не так с массивами.

Code: Select all

Program TestArray;

Var
TilesArray1 : array of TFoundTile;
TilesArray2 : array of TFoundTile;

Begin

  SetLength(TilesArray1, 1);
  SetLength(TilesArray2, 1);

  TilesArray1[0].Tile := 1111;
  TilesArray1[0].X := 222;
  TilesArray1[0].Y := 333;
  TilesArray1[0].Z := -40;

  TilesArray2[0] := TilesArray1[0];

  AddToSystemJournal(
  'Tile:' + IntToStr(TilesArray2[0].Tile) +
  ' X:' + IntToStr(TilesArray2[0].X) +
  ' Y:' + IntToStr(TilesArray2[0].Y) +
  ' Z:' + IntToStr(TilesArray2[0].Z)
  );

End.

Code: Select all

Tile:1111 X:222 Y:0 Z:0

[drabadan]

Что то не так с массивами.

Code: Select all

Program TestArray;

Var
TilesArray1 : array of TFoundTile;
TilesArray2 : array of TFoundTile;

Begin

  SetLength(TilesArray1, 1);
  SetLength(TilesArray2, 1);

  TilesArray1[0].Tile := 1111;
  TilesArray1[0].X := 222;
  TilesArray1[0].Y := 333;
  TilesArray1[0].Z := -40;

  TilesArray2[0] := TilesArray1[0];

  AddToSystemJournal(
  'Tile:' + IntToStr(TilesArray2[0].Tile) +
  ' X:' + IntToStr(TilesArray2[0].X) +
  ' Y:' + IntToStr(TilesArray2[0].Y) +
  ' Z:' + IntToStr(TilesArray2[0].Z)
  );

End.

ой там такой треш с ними...

[Vizit0r]

drabadan окончательно пал духом

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

[drabadan]

drabadan окончательно пал духом

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

совсем нет, просто там треш... про присваивание длины я тебе писал.
та и реконектора ж нету.
ну вообщем всего понемножку.
Там вроде с ТСтрингЛистом тоже есть морока.
Кароч не советую никому на 7.5 пробовать грузить и парсить текстовые файлы.
И про TThread поподробнее бы, а еще лучше примером сделать и показать как правильно создавать завершать. Как часто их создавать и завершать можно и прочее.

[Vizit0r]

Delphi + Thread в гугле тебе помогут.
про стринглисты ты ничего не писал.
про присваивание длины - не помню.

реконнектор - вообще не из той оперы, не надо накидывать все в кучу.

[Macks]

Там вроде с ТСтрингЛистом тоже есть морока.
Кароч не советую никому на 7.5 пробовать грузить и парсить текстовые файлы.

У меня вроде нормально работает.

Code: Select all

procedure GetTilesToMine();
var
i : Integer;
sl : TStringList;
begin
  SetLength(MinTiles_Array, 0);
  sl := TStringList.Create();
  sl.LoadFromFile(CurrentScriptPath + '\\Mining.txt');
  for i := 0 to sl.Count / 4 - 1 do
  begin
    SetLength(MinTiles_Array, i + 1);
    MinTiles_Array[i].x    := StrToInt(sl[i*4 + 0]);
    MinTiles_Array[i].y    := StrToInt(sl[i*4 + 1]);
    MinTiles_Array[i].z    := StrToInt(sl[i*4 + 2]);
    MinTiles_Array[i].Tile := StrToInt(sl[i*4 + 3]);
  end;
  sl.free;
  AddToSystemJournal('Found ' + IntToStr(Length(MinTiles_Array)) + ' tiles from MinTiles.');
end;

[Vizit0r]

Что то не так с массивами.
....

фиксед, жди обновления.
На днях надеюсь домучать вопрос с client.dll на Win10, и выложу стелс в паблик.

А drabadan внезапно узнал, что его баг с установкой длины уже исправлен

[marakoris]

Что то не так с массивами.
....

фиксед, жди обновления.
На днях надеюсь домучать вопрос с client.dll на Win10, и выложу стелс в паблик.

А drabadan внезапно узнал, что его баг с установкой длины уже исправлен

Добрый день.
Решение с .dll на win10 уже было? я не пропустил случаем?

[Vizit0r]

угу.
надо выложить апдейт, может сегодня сделаю. Если опять не забуду.

[marakoris]

угу.
надо выложить апдейт, может сегодня сделаю. Если опять не забуду.

[Vizit0r]

точно, да
может завтра сделаю.

[marakoris]

точно, да
может завтра сделаю.

Ну что, будет?

[Vizit0r]

выложил. обновляйтесь\качайте с сайта.

* Fix of client starting client crash when using client.dll in Win10 - fixed / Исправлен краш клиента при запуске с использованием client.dll в Win10
* Сhanges for full support string cases in PAX / Изменения и правки для нормальной работы string cases в PAX
* Added functin IndexStr to PAX / Добавлена функция IndexStr в PAX
* PAX - Import of SysUtils(and other linked) unit remade totally, FindFirst etc. works correctly. / Импорт в PAX юнита SysUtils и связанных с ним полностью переделан, функция FindFirst и прочие работают.
* PAX - few fixes here and there / PAX - несколько исправлений тут и там
* Fixed Compile&Save in Stealth Editor / Исправлена работа Compile&Save в редакторе