Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Бета-тест нового Стелса
сегодня был часик свободного времени, занялся одним вопросом, до которого руки не доходили - подключение своих классов к паскальскрипту.
еле успел, но успел - теперь из стелсовых скриптов доступен класс TIniFile со всеми сопутствующими.
пример
Если у кого-то есть пожелания насчет доступности стандартных классов из скриптов - говорите, встрою.
На досуге сделаю пример создания из скрипта с нуля формы с парой работающих контролов, типа кнопки с реакцией.
еле успел, но успел - теперь из стелсовых скриптов доступен класс TIniFile со всеми сопутствующими.
пример
Code: Select all
var ConfIni : TIniFile;
...
ConfIni := TIniFile.Create('D:\Stealth\my\Stealth.ini');
LastUsedProfile := ConfIni.ReadString('General', 'Last profile', '');
ShowNonZeroSkills := ConfIni.ReadBool('General', 'Show nonzero skills', False);
DefaultReconnectTime := ConfIni.ReadInteger('General','DefaultReconnectTime',120);
ConfIni.Free;
На досуге сделаю пример создания из скрипта с нуля формы с парой работающих контролов, типа кнопки с реакцией.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Vizit0r wrote:На досуге сделаю пример создания из скрипта с нуля формы с парой работающих контролов, типа кнопки с реакцией.
Code: Select all
Program New;
var
PSForm : TForm;
PSButton : TButton;
PSCheckBox : TCheckBox;
procedure ButtonClick(Sender : TObject);
begin
PSForm.Caption := 'You clicked the button';
ShowMessage('ggg');
end;
procedure CheckBoxClick(Sender : TObject);
begin
PSButton.Enabled := not PSButton.Enabled;
end;
begin
try
PSForm := TForm.Create(Self);
PSForm.Position := poScreenCenter;
PSForm.Caption := 'Form from PascalScript';
PSForm.Width := 300;
PSForm.Height := 140;
PSButton := TButton.Create(Self);
PSButton.Parent := PSForm;
PSButton.SetBounds(8,8,75,25);
PSButton.Caption := 'Test Button';
PSButton.OnClick := @ButtonClick;
PSCheckBox := TCheckBox.Create(Self);
PSCheckBox.Parent := PSForm;
PSCheckBox.Left := 15;
PSCheckBox.Top := 40;
PSCheckBox.Caption := 'CheckBox';
PSCheckBox.OnClick := @CheckBoxClick;
PSForm.ShowModal;
finally
if PSButton <> nil then PSButton.Free;
if PSCheckBox <> nil then PSCheckBox.Free;
if PSForm <> nil then PSForm.Free;
end;
end.
P.S. Есть версия, что ошибки возникают из-за того, что форма и все контролы создаются в потоке скрипта, а не в основном. но это исправляться не будет 100% - так надо.
Last edited by Vizit0r on 17.08.2010 21:13, edited 1 time in total.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
добавил параметр запуска из командной строки config=
И вообще, пока не забыл, по параметрам:
+log убрал, толку с него нет.
chars= грузит список чаров из файла (читать соотв. топик)
config= вверху написал
icon= иконка для трея (насяльника идет?
)
грузит конфиг с именем 11. Регистр учитывается.stealth.exe config=11
И вообще, пока не забыл, по параметрам:
+log убрал, толку с него нет.
chars= грузит список чаров из файла (читать соотв. топик)
config= вверху написал
icon= иконка для трея (насяльника идет?
![Smile :)](./images/smilies/icon_smile.gif)
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
стелс сел на диету - похудел с почти 14 мб до 3,7 мб.
показ стека и прочее сохранилось.
пока худели - потеряли пару багов![Smile :)](./images/smilies/icon_smile.gif)
двигаемся к релизу.
В этой версии:
1) ивентов не будет
2) Клиентские команды (из строки чата, а-ля инжект) массово вводить не буду, есть десяток - и хватит пока. База под них есть - при наличии времени можно вводить новые команды пачками без особых проблем.
3) панели настроек, биндов клавиш и списков в подключаемом клиенте в этой версии тоже не будет.
4) блэкджека с ...выпивкой тоже не будет![Smile :)](./images/smilies/icon_smile.gif)
времени нет, если реализовывать все, что хочется - до зимы релиза не будет.
показ стека и прочее сохранилось.
пока худели - потеряли пару багов
![Smile :)](./images/smilies/icon_smile.gif)
двигаемся к релизу.
В этой версии:
1) ивентов не будет
2) Клиентские команды (из строки чата, а-ля инжект) массово вводить не буду, есть десяток - и хватит пока. База под них есть - при наличии времени можно вводить новые команды пачками без особых проблем.
3) панели настроек, биндов клавиш и списков в подключаемом клиенте в этой версии тоже не будет.
4) блэкджека с ...выпивкой тоже не будет
![Smile :)](./images/smilies/icon_smile.gif)
времени нет, если реализовывать все, что хочется - до зимы релиза не будет.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
добавил возможность Drop на скриптовый редактор файлов.
Проверки на содержимое нет, что кинете - то и покажет![Smile :)](./images/smilies/icon_smile.gif)
Поддерживается дроп нескольких файлов сразу.
Добавил нормальное pop-up меню ( по правому клику).
Проверки на содержимое нет, что кинете - то и покажет
![Smile :)](./images/smilies/icon_smile.gif)
Поддерживается дроп нескольких файлов сразу.
Добавил нормальное pop-up меню ( по правому клику).
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
добавил прокси в настройки шарда. работает. наконец-то
Из проксей поддерживается только socks5, без авторизации пока что. до релиза добавлю авторизацию наверное.
![Wink :wink:](./images/smilies/icon_wink.gif)
Из проксей поддерживается только socks5, без авторизации пока что. до релиза добавлю авторизацию наверное.
Last edited by Vizit0r on 22.08.2010 12:56, edited 1 time in total.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
если у кого есть рабочая прокся с авторизацией в интернете - давайте адрес - тренироваться не на чем ![Smile :)](./images/smilies/icon_smile.gif)
SocksCap и прочие локальные прокси не предлагать, это немного другое.
![Smile :)](./images/smilies/icon_smile.gif)
SocksCap и прочие локальные прокси не предлагать, это немного другое.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
fixedVizit0r wrote:небольшой побочный эффект - у тех, кому я давал тестовые версии Стелса - возникнут проблемы с галками опций в настройках шарда. Имена, айпишники и версии не затрагиваются. У тех, кто "апгрейдит" старый стелс - все будет хорошо.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
все. горгульи летают полностью корректно - как им и положено, в местах, где могут летать в офиц. клиенте, и не летают там, где он тоже не разрешает.
если не в режиме полета - то как обычный чар будет ходить, и упираться в непроходимые тайлы и т.д.
если не в режиме полета - то как обычный чар будет ходить, и упираться в непроходимые тайлы и т.д.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".