Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Бета-тест нового Стелса

Metall
Neophyte
Neophyte
Posts: 13
Joined: 18.10.2009 20:56
Contact:

Post by Metall »

[email protected] если можно :)
Metall
Neophyte
Neophyte
Posts: 13
Joined: 18.10.2009 20:56
Contact:

Post by Metall »

Вопрос для людей с AoPa - кто-то смог запустить и войти в клиент через стелс?
Iliya
Neophyte
Neophyte
Posts: 30
Joined: 01.03.2010 14:05

Post by Iliya »

при запуске этого скрипта параллельно с скриптом на арчери загрузка двух ядер компа поднимается с 2% до 80-90%

Code: Select all

Program CutCorpse;


{$Include 'all.inc'} 

begin
SetARStatus(true);
Hungry(1,ground);
while not dead do
begin
if connected then
begin
//AddToSystemJournal('нарезка трупа');
if FindType($2006, Ground) <> 0 then
   begin
   if TargetPresent then CancelTarget;
   WaitTargetObject(FindItem);
      if (FindType($0F51, BackPack) <> 0) then
       begin
       UseObject(FindItem);
       wait(2000);
       end;
   if
(FindType($0F51, ground) <> 0) then
       begin
       UseObject(FindItem);
       wait(2000);
       end;
       CheckSave; 
       Hungry(1,ground);
      end;
     end;
    end;
End.
SaNeK
Novice
Novice
Posts: 65
Joined: 08.09.2008 9:52
Contact:

Post by SaNeK »

Илья, твой пост не эту тему. Чтобы не грузило проц надо цыклы добавлять хоть задержку wait(50); и желательно не использовать паралельно скрипты а все делать в одном.
У тебя если он не найдет ни одну из твоих двух вещей. Зацыклится просто без задержки и вот тебе загрузка хоть 100 ядер )
Iliya
Neophyte
Neophyte
Posts: 30
Joined: 01.03.2010 14:05

Post by Iliya »

Ясно спасибо) Я думал это изза стелса )
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Post by Vizit0r »

Iliya wrote:при запуске этого скрипта параллельно с скриптом на арчери загрузка двух ядер компа поднимается с 2% до 80-90%
не может оно у тебя грузить 2 ядра, потому что твой грузящий скрипт ОДИН, и висит его поток на одном ядре. и на 100% загружает одно ядро.

так что не надо преувеличений.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Iliya
Neophyte
Neophyte
Posts: 30
Joined: 01.03.2010 14:05

Post by Iliya »

Неспорю и я это понимаю первое ядро процентов на 10 больше грузится, но второе именно при запуске скрипта тоже поднимается 50 и выше ) Ну все нормально, задержку поставил все супер пасиб ) посты мона удалить если мешают :)
MuDaCk
Apprentice
Apprentice
Posts: 393
Joined: 10.10.2006 0:03
Contact:

Post by MuDaCk »

Пожалуйста, дайте потестить вашу бета версию.
Macks
Apprentice
Apprentice
Posts: 250
Joined: 27.02.2006 22:23
Location: АоП - Age Of Power

Post by Macks »

Metall wrote:Вопрос для людей с AoPa - кто-то смог запустить и войти в клиент через стелс?
Зачем?
Metall
Neophyte
Neophyte
Posts: 13
Joined: 18.10.2009 20:56
Contact:

Post by Metall »

Macks wrote:
Metall wrote:Вопрос для людей с AoPa - кто-то смог запустить и войти в клиент через стелс?
Зачем?
Я думаю "Зачем?" это сугубо мое желание...и отвечать вопросом на вопрос ... но не важно я уже все равно его давно запустил!
Mirage
Novice
Novice
Posts: 90
Joined: 18.07.2009 19:41

Post by Mirage »

Когда уже выложат в общий доступ новый стелс?
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Post by Vizit0r »

стандартный ответ - когда он будет закончен.

Я надеюсь что с выходных процесс ускорится :)
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Post by Vizit0r »

в довесок к имеющимся

Code: Select all

procedure ClearJournalIgnore; // Снять игнор в журнале 
procedure AddJournalIgnore(Str: String); // Добавить в игнор сообщения
докинул

Code: Select all

procedure AddChatUserIgnore(Str : String);
procedure ClearChatUserIgnore;
а все это потому что вкладки Chat больше не существует :)
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Post by Vizit0r »

есть хорошая недокументированная функция MessageBoxTimeOut

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

Есть один ньюанс - в линухах под wine - не работает.

Вводить? если да, то чем заменить под линухами, обычным messagebox?
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
MeLFiS
Novice
Novice
Posts: 147
Joined: 02.02.2008 12:21

Post by MeLFiS »

как же без чата теперь ?
Post Reply