Stealth Release 1.0

[Vizit0r]

как бы да

[Lenin]

Из за чего стелс жрет полностью ядро процессора? Второе ядро жрет клиент ультимы 2.0.3
Запущено в стелсе всего 2 чара и каждый из них стоит на скрипте взятом с раздела Scripts. Анатомия и кукинг.

[Vizit0r]

сколько времени стоит?
по отдельности жрет?

[Lenin]

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

Если юзать инклуды в разных одновременно запущеных скриптах он будет парится? Учту на будущее)

[Vizit0r]

да хоть в десяти одновременно запущенных - не будет ничего.

по отдельности поставь на двух разных стелсах, и смотри где зло будет

[Vizit0r]

сегодня после долгой ругани и вагона правок адаптировал-таки стелс под офиц. шард.

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

[Lenin]

да хоть в десяти одновременно запущенных - не будет ничего.

по отдельности поставь на двух разных стелсах, и смотри где зло будет

В системном журнале одного из стелсов написало

Exception: Cannot open file "D:\стелс\_Excavator_packets.log". Процесс не может получить доступ к файлу, так как этот файл занят другим процессом at 0.389

Решил постоять только одним чаром и то время от времени подвисает, загружая до предела проц. При этом я проверял другим чаром, что делает чар на стелсе, оказалось он вообще в лог ауте.


Скрипт урезал до немогу) Подумал, что там может что то сильно жрет проц или еще что то, дак вроде бы все норм. Вот скрипт на котором качается кука. Ничего больше в стелсе не запущено. ОС: Вин ХП СП3. В чем трабл не пойму.

Code: Select all

program CookingUp;

{$Include 'all.inc'}

const
RawSteak = $097A;
Forge = $40021643;

var
ctime : TDateTime;


Begin
   FindDistance:=2;
   while true do
   begin
      waitconnection(5000);
      if TargetPresent then CancelTarget;
      if (WarMode = true) then SetWarMode(false);
      ctime := Now;
      if UseType(RawSteak,$FFFF) <> 0 then
      begin
         WaitForTarget(5000);
         If TargetPresent then TargetToObject(Forge);
         repeat
            wait(100);
         until (InJournalBetweenTimes('You burn|You put', ctime, Now)<>-1);
      end;
      if GetSkillValue('Cooking') >= 100.0 then exit;
   end;   
End.

Вот еще заметил одну вещ) Стелс начинает тормозить только от одного чара. Если запускаю кучу других - ничего не происходит, если запустил Екскаватора - сразу начинает грузить проц

Решил досконально изучить эту проблему)

Кстати стелс написан на делфи?
Во новость друг в асю скинул http://forum.antichat.ru/thread136078.html

[Vano]

2Lenin
1. Если в системе работает антивирус, то с большой долей вероятности виноват он.
2. А ты уверен, что следующее условие выполняется?

Code: Select all

if UseType(RawSteak,$FFFF) <> 0 then 

Для начала надо попробовать написать так:

Code: Select all

program CookingUp;

{$Include 'all.inc'}

const
RawSteak = $097A;
Forge = $40021643;

var
ctime : TDateTime;


Begin
   FindDistance:=2;
   while true do
   begin
      waitconnection(5000);
      if TargetPresent then CancelTarget;
      if (WarMode = true) then SetWarMode(false);
      ctime := Now;
      if UseType(RawSteak,$FFFF) <> 0 then
      begin
         WaitForTarget(5000);
         If TargetPresent then TargetToObject(Forge);
         repeat
            wait(100);
         until (InJournalBetweenTimes('You burn|You put', ctime, Now)<>-1);
      end else
           wait(100);
      if GetSkillValue('Cooking') >= 100.0 then exit;
   end;   
End.

[Vizit0r]

1) заражаются Д7, 2005 не заражается

2) проблема с большой нагрузкой на проц при ведении логов на большом кол-ве подключенных чаров имеет место быть.
там заодно и проблемы типа Error I\O 103 и прочее.
уже не первый месяц думаю, до сих пор ничего лучше для ведения логов не придумывается.
просто не должно быть так, что одна программа пишет по несколько раз в секунду в файл (на каждого чара). а приходится.

ну не БД же вести, в самом деле...

[Mirage]

1) заражаются Д7, 2005 не заражается

2) проблема с большой нагрузкой на проц при ведении логов на большом кол-ве подключенных чаров имеет место быть.
там заодно и проблемы типа Error I\O 103 и прочее.
уже не первый месяц думаю, до сих пор ничего лучше для ведения логов не придумывается.
просто не должно быть так, что одна программа пишет по несколько раз в секунду в файл (на каждого чара). а приходится.

ну не БД же вести, в самом деле...

У меня глюки с памятью начинаются только когда чара реконектит. Если инет работает и каждые полчаса логфайл записывает какуюнибудь строку то за сутки нарастает текстовик метров на 40-50 и проц и оперативка работают в обычном режиме.

Но недай бог дисконект... пара минут и файл подскачки становиться под 3 гега, проц под 70-80% ...

[Vizit0r]

мало флудят значит.
а при коннекте флудят МНОГО

но файл подкачки под 3 гига - это хорошо, да

[Lenin]

2Lenin
1. Если в системе работает антивирус, то с большой долей вероятности виноват он.
2. А ты уверен, что следующее условие выполняется?

Code: Select all

if UseType(RawSteak,$FFFF) <> 0 then 

Уверен на 100% В паке 4к сырой рыбы.

На счет антивируса - тож думал - отключал и без него тестил. Ничего не изменилось.

[Vizit0r]

1) добавлена совместимость стелса обычного со стелсом для оф. шарда
2)

Zdrasti uvozhaimoi developeri, nemoglib vi dobavet' sledujsheju funkciju

GetGumpID kotoroja vozvroshala ID gumpa

сделал

Code: Select all

function GetGumpID(GumpIndex : Integer) : Cardinal;

3) ну и собственно самое веселое - добавил флаг "Paralyzed".
вывел его на главную панель + добавил стандартное

Code: Select all

function Paralyzed: Boolean;

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

[Vizit0r]

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

[Ardno]

1) добавлена совместимость стелса обычного со стелсом для оф. шарда
2)

Zdrasti uvozhaimoi developeri, nemoglib vi dobavet' sledujsheju funkciju

GetGumpID kotoroja vozvroshala ID gumpa

сделал

Code: Select all

function GetGumpID(GumpIndex : Integer) : Cardinal;

Ogromnoe sposibo