Stealth 3.7-3.8-3.9 Обсуждение

[Lietman]

когда хоткейс появиться ?)))

[Vladimirus]

всем здрасти.
запущено4-ре старых стелза. при попытке зайти 3.9.1

An exception raised at <<11 Сентябрь>>, 10:34:57:669
Cannot create file "D:\games\Uo\enuClilocCache2.bin". Процесс не может получить доступ к файлу, так как этот файл занят другим процессом
(00024066){Stealth_3.9.1.exe} [00425066] Classes.TFileStream.Create (Line 5480, "common\Classes.pas" + 5) + $48


и еще пакован ошибок...

[Vizit0r]

потому что старый стелс.

[Vladimirus]

запускаем стелз с параметром подгрузки конфига из командной строки или ярлыка. не имеет значения.
допустим, там два чара. сворачиваем окно, разворачиваем. наблюдаем трёх чаров, все три в дисконекте. конектятся. третий выбивает первого. сворачиваем-разворачиваем - чаров становится четыре, все пытаются конектится и т.д.

[Vizit0r]

хорошо когда баг повторяемый - исправил за минуту.

[pecnepago]

Code: Select all

An exception raised at <<11 Сентябрь>>, 16:19:53:203
Access violation at address 004048A4 in module 'Stealth.exe'. Read of address FFFFFFFC
(000038A4){Stealth.exe } [004048A4] System.TObject.Free (Line 8832, "sys\system.pas" + 1) + $4

Call stack:
  (000038A4){Stealth.exe } [004048A4] System.TObject.Free (Line 8832, "sys\system.pas" + 1) + $4
  (00237E67){Stealth.exe } [00638E67] ClassCharacter.TCharacter.LoginClientOnConnect (Line 4445, "ClassCharacter.pas" + 81) + $E
  (0016BB76){Stealth.exe } [0056CB76] ScktComp.TCustomSocket.Event (Line 1855, "common\ScktComp.pas" + 7) + $14
  (0016A392){Stealth.exe } [0056B392] ScktComp.TCustomWinSocket.Event (Line 980, "common\ScktComp.pas" + 1) + $11
  (0016A8ED){Stealth.exe } [0056B8ED] ScktComp.TCustomWinSocket.WndProc (Line 1168, "common\ScktComp.pas" + 2) + $5
  (0002C1A4){Stealth.exe } [0042D1A4] Classes.StdWndProc (Line 11583, "common\Classes.pas" + 8) + $0

Первая ошибка )

[Vizit0r]

это надо отлаживать с исходниками.
пиши мне в асю(если сегодня) либо CFA, alex, Fenix.

[wermutt]

Vizitor, какие у Вас планы на развитие стелса??

[Alex]

Vizit0r сейчас в отъезде, будет через несколько месяцев

[Хреник]

сможет ктонить из оставшихся разработчиков посмотреть ошибочку с входом на сервер?

Сразу дисконектит после логина.

собственно uokr.theabyss.ru, 7777

аккаунт для тестов например admin:admin

ICQ: 76093368

[Fenix]

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

[Хреник]

на этот вплоть с 0.91 версии подключался. Даже более того, месяц/полтора назад, ещё заходил. Подозреваю что добавили новый пакет который стелс обработаь не может. Такое бывало уже и раньше.

на абиссе существуют два разных сервера. Так вот на этот рануо стелс успешно заходил до последнего времени.

[Хреник]

всё, заработало, спасибо CFA.

(вылетает только у меня и только в определённом месте. остальные чары работают)

[randomnoob]

что вы наделали со стелсом, бандиты? в прошлой версии все работало!
использую сркипт на ламбер из http://stealth.od.ua/forum/viewtopic.php?f=3&t=1906

выдает ошибку

Type mismatch

при использовании проверки

Code: Select all

if (ChopTilesArray[j] = TempFoundTilesArray[i]) then

из

Code: Select all

type
  ChopTile = Record
    x, y : Integer; 
  end;
    
var
  FoundTilesArray : TFoundTilesArray;
  TempFoundTilesArray, ChopTilesArray : array of TFoundTile;
  TreeTile:array [0..iTTileCount] of word;
  ChopTiles : array[1..iCTileCount] of ChopTile;

Code: Select all

// Чистим записи дубликаты (Vizit0r :P)
procedure ClearDuplicate;
  var
  i, j : Integer;
  
  begin
    ChopTilesArray[Length(ChopTilesArray) - 1] := TempFoundTilesArray[0];
    for i:=1 to Length(TempFoundTilesArray) - 1 do
      begin
        for j:=0 to Length(ChopTilesArray) - 1 do
          if (ChopTilesArray[j] = TempFoundTilesArray[i]) then
            break;
        if j > Length(ChopTilesArray) - 1 then
          begin
            SetArrayLength(ChopTilesArray, Length(ChopTilesArray) + 1);
            ChopTilesArray[Length(ChopTilesArray) - 1] := TempFoundTilesArray[i];  
          end;
      end;
      AddToSystemJournal('После отсеивания дубликатов, осталось деревьев:' + IntToStr(Length(ChopTilesArray)));  
  end;

[CFA]

что вы наделали со стелсом, бандиты? в прошлой версии все работало!

Последний билд получился со старой версией PascalScript'а, который не разрешает сравнивать записи. За рабочей версией ко мне в аську.