DraugDM
-
Content Count
118 -
Joined
-
Last visited
Posts posted by DraugDM
-
-
Всем привет! Ищу флешера по обновлению поломавшихся на новых патчах прицелов и сведений!
Сумму оговариваем здесь, в ЛС, или в скайпе (draugd)
Вообщем кто захочет взяться вот один прицел и сведение к нему https://cloud.mail.ru/public/U798/CtYgKqHZV
За этот 500руб.
-
24.04.2023 в 02:32, Kurzdor сказал:@DraugDM
не против, если солью макросы в мой скрипт как появится время над сессионкой поработать?
Сейчас не особо хорошо со временем, надо бы наконец выделить время для правки сессионкиконечно не против... я как и все только за за один открытый скрипт подходящий ко всем конфигам!
-
1 hour ago, Duner said:А этот если ?
тоже самое...
Traceback (most recent call last): File "scripts/client/gui/mods/mod_wotstat.pyc", line 1, in save AttributeError: 'SessionStatistic' object has no attribute 'cacheFilePath' 2023-04-22 10:27:00.476: ERROR: [EXCEPTION] (scripts/common/wg_async.py, 331): Traceback (most recent call last): File "scripts/client/gui/mods/mod_wotstat.pyc", line 1, in save AttributeError: 'SessionStatistic' object has no attribute 'cacheFilePath'1 hour ago, SEREGA_SF said:@DraugDM, я встречал различных версии 4 скрипта за всё время, где-то что-то добавлялось, где-то что-то переименовывалось в последнее время. У NDO был свой скрипт, у Экспойнта Андрюхи свой, чей у тебя - хз)) Дай свой скрипт Kurzdor в личку (раз он открыт у тебя и ты не хочешь чтобы куда-то утекло) - пусть глянет, мод в принципе востребован, нужно уже давно приходить к одной версии. Что дает тебе Duner - изначально скрипт Андрюхи Экспойнта с дальнейшей поддержкой Женьки Комдива, сейчас его Kurzdor поддерживает.
Мой вот этот скрипт добавлял изначально доп. макросы NDO, далее правил и обновлял экспоинт... скрипт все норм работает, но перестал показывать именно во всплывающих сообщениях о прошедшем бое инфу((
-
1 час назад, Duner сказал:моя версия с добавленными макросами... скрипт открыт...
а с этим скриптом даже и в ангар не заходит с моим конфигом...
-
Друзья, подскажите что сделать чтоб вернуть послебоевые всплывающие сообщения в ангаре?(( Приходят стандарты((
-
2 часа назад, parnizanen сказал:АААЙЙ! Добра тебе мил человек! Заемучился искать. Со спика игру крашит... пишет мол моды экспа не поддерживаются на EU. Возвращаться к XVM желания нет....ушёл от него лет пять назад. Файл, как я понимаю с шапки? А я не стал качать именно потому о чём написал выше. Щас попробую под этот коре его же засвет поставить.
Обновил в шапке... Теперь там будет постоянно актуальная версия...
-
-
1 час назад, spoter сказал:ну я обновил мод отметок и ядро модов.
что ещё сломалось? вы проверяли?
mod_modPackInformer поломался! (((
-
-
06.06.2022 в 07:08, hevi сказал:А ты пробовал в некоторых строчках ставить точку с запятой (;;;;;;;;;;;;;)
PicForm := TForm.Create(WizardForm)
DeleteRadioButton.SetBounds(0, 120, WizardForm.RunList.Width, 20)
NoneRadioButton.SetBounds(0, 150, WizardForm.RunList.Width, 20)
BASS_Init('{tmp}\Music.mp3')
BASS_CreateOnOffButton(WizardForm, '{tmp}\MusicButton.png', 20, 320, 36, 36, 4)
gdipShutdown
спс дружище!!!
-
Друзья, плиз подскажите как убрать это драное окошко?(((
через раз выскакивает(
Цитата'1.Мультиклиент.': UndefPic := 'MK.bmp';
else
begin
LastIndex := UNDEF_INDEX;
PicForm.Hide();
ImgApplyChanges(PicForm.Handle);
Exit;
end;
end;
if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic);
ShowPicHint(TempPath + UndefPic);
finally
LastIndex := Index;
end;
end;procedure CompOnMouseLeave(Sender: TObject);
begin
ImgRelease(InfoPic);
PicForm.Hide;
ImgApplyChanges(PicForm.Handle);
LastIndex := -1;
end;procedure InitInfo();
begin
WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
TempPath := AddBackslash(ExpandConstant('{tmp}'));
LastIndex := UNDEF_INDEX;
PicForm := TForm.Create(WizardForm)
with PicForm do
begin
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
end;
SetWindowLong(PicForm.Handle, GWL_EXSTYLE, GetWindowLong(PicForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes(PicForm.Handle, 0, ALPHA_BLEND_LEVEL, LWA_ALPHA);
end;procedure InitializeWizard1();
begin
InitInfo();
end;function NextButtonclick(CurPageID: Integer): Boolean;
begin
Result := True;
case CurPageID of
wpSelectDir:
if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then
begin
MsgBox('Не верно указана папка World of Tanks!', mbError, MB_OK);
Result := False;
end;
end;
end;#define WotVersion "1.17.0.0"
var
DeleteRadioButton, NoneRadioButton: TRadioButton;
DeleteCashAndLogsCheckBox, DeleteUpdatesCheckBox: TCheckBox;function BackupCheck_1(): Boolean;
var
DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;
begin
DeleteRadioButton:=TRadioButton.Create(WizardForm);
DeleteRadioButton.SetBounds(0, 120, WizardForm.RunList.Width, 20)
DeleteRadioButton.Checked:=True;
DeleteRadioButton.Caption:=ExpandConstant('{cm:delete}');
DeleteRadioButton.Parent:=WizardForm.SelectDirPage;
DeleteDescLabel:=TLabel.Create(WizardForm);
DeleteDescLabel.Parent:=WizardForm.SelectDirPage;
DeleteDescLabel.Left:=0;
DeleteDescLabel.Top:=DeleteRadioButton.Top + DeleteRadioButton.Height;
DeleteDescLabel.Width:=WizardForm.SelectDirPage;
DeleteDescLabel.Height:=20;
DeleteDescLabel.AutoSize:=False;
DeleteDescLabel.Wordwrap:=True;NoneRadioButton:=TRadioButton.Create(WizardForm);
NoneRadioButton.SetBounds(0, 150, WizardForm.RunList.Width, 20)
NoneRadioButton.Checked:=False;
NoneRadioButton.Caption:=ExpandConstant('{cm:delete2}');
NoneRadioButton.Parent:=WizardForm.SelectDirPage;
NoneDescLabel:=TLabel.Create(WizardForm);
NoneDescLabel.Parent:=WizardForm.SelectDirPage;
NoneDescLabel.Left:=0;
NoneDescLabel.Top:=NoneRadioButton.Top + NoneRadioButton.Height;
NoneDescLabel.Width:=WizardForm.SelectDirPage;
NoneDescLabel.Height:=20;
NoneDescLabel.AutoSize:=False;
NoneDescLabel.Wordwrap:=True;DeleteCashAndLogsCheckBox:=TCheckBox.Create(WizardForm);
DeleteCashAndLogsCheckBox.SetBounds(0, 180, WizardForm.RunList.Width, 20)
DeleteCashAndLogsCheckBox.Checked:=True;
DeleteCashAndLogsCheckBox.Caption:=ExpandConstant('{cm:delete3}');
DeleteCashAndLogsCheckBox.Parent:=WizardForm.SelectDirPage;DeleteUpdatesCheckBox:=TCheckBox.Create(WizardForm);
DeleteUpdatesCheckBox.SetBounds(180, 180, WizardForm.RunList.Width, 20)
DeleteUpdatesCheckBox.Checked:=True;
DeleteUpdatesCheckBox.Caption:=ExpandConstant('{cm:delete4}');
DeleteUpdatesCheckBox.Parent:=WizardForm.SelectDirPage;
end;function BackupCheck_2(): Boolean;
begin
If DeleteRadioButton.Checked then
begin
DelTree(ExpandConstant('{app}\res_mods\{#WotVersion}'), True, True, True);
DelTree(ExpandConstant('{app}\mods\{#WotVersion}'), True, True, True);
DelTree(ExpandConstant('{app}\res_mods\configs'), True, True, True);
DelTree(ExpandConstant('{app}\mods\configs'), True, True, True);
DelTree(ExpandConstant('{app}\mods\logs'), True, True, True);
DelTree(ExpandConstant('{app}\mods\resources'), True, True, True);
DelTree(ExpandConstant('{app}\mods\temp'), True, True, True);
DelTree(ExpandConstant('{app}\res_mods\1.16.1.0'), True, True, True);
DelTree(ExpandConstant('{app}\mods\1.16.1.0'), True, True, True);
DeleteFile(ExpandConstant('{app}\res_mods\mem_helper64.pyd'));
DeleteFile(ExpandConstant('{app}\res_mods\mem_helper.pyd'));
CreateDir(ExpandConstant('{app}\res_mods\{#WotVersion}'));
CreateDir(ExpandConstant('{app}\mods\{#WotVersion}'));
end;
end;function BackupCheck_3(): Boolean;
begin
If DeleteCashAndLogsCheckBox.Checked then
begin
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\account_caches\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\awesomium_cache\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\battle_results\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\battlehits\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\clan_cache\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\custom_data\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\dossier_cache\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\messenger_cache\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\tutorial_cache\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\veh_cmp_cache\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\profile\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\pmod\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\wgfm\'), True, True, True);
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\ekspoint\'), True, True, True);
DeleteFile(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\modsettings.dat'));
DeleteFile(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\accounts.manager'));
DeleteFile(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\wn8.json'));
DeleteFile(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\wn8scales.json'));
DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\xvm\'), True, True, True);
DeleteFile(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\modsettings.dat'));
DeleteFile(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\*.dat'));
DelTree(ExpandConstant('{app}\replays\replays_manager\'), True, True, True);
DelTree(ExpandConstant('{app}\logs'), True, True, True);
DelTree(ExpandConstant('{app}\Reports'), True, True, True);
DelTree(ExpandConstant('{app}\replays'), True, True, True);
DelTree(ExpandConstant('{app}\profile'), True, True, True);
DeleteFile(ExpandConstant('{app}\python.log'));
DeleteFile(ExpandConstant('{app}\xvm.log'));
DeleteFile(ExpandConstant('{app}\versus.log'));
DeleteFile(ExpandConstant('{app}\SaveLastServer.dat'));
DeleteFile(ExpandConstant('{app}\WGStream.log'));
DeleteFile(ExpandConstant('{app}\WGSocial.log'));
end;
end;function BackupCheck_4(): Boolean;
begin
If DeleteUpdatesCheckBox.Checked then
begin
DelTree(ExpandConstant('{app}\Updates'), True, True, True);
DelTree(ExpandConstant('{app}\UpdatesData'), True, True, True);
end;
end;procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then
begin
BackupCheck_2();
BackupCheck_3();
BackupCheck_4();
end;
end;procedure InitializeWizard2();
begin
BackupCheck_1();
end;procedure InitializeWizard3();
begin
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('CallbackCtrl.dll');
ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('MusicButton.png');
ExtractTemporaryFile('Music.mp3');BASS_Init('{tmp}\Music.mp3')
BASS_CreateOnOffButton(WizardForm, '{tmp}\MusicButton.png', 20, 320, 36, 36, 4)
end;procedure AutorsSiteClick(hBtn: HWND);
var
ErrorCode: Integer;
begin
ShellExec('open', '{#AutorsSiteUrl}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;procedure InitializeWizard4();
var
AutorsSite: HWND;
begin
ExtractTemporaryFile('AutorsLogo.png');AutorsSite:=BtnCreate(WizardForm.Handle, ScaleX(75), ScaleY(320), ScaleX(100), ScaleY(36), ExpandConstant('{tmp}\AutorsLogo.png'), 4, false);
BtnSetEvent(AutorsSite, BtnClickEventID, WrapBtnCallback(@AutorsSiteClick,1));
BtnSetVisibility(AutorsSite, True);
end;procedure InitializeWizard();
begin
InitializeWizard1();
InitializeWizard2();
InitializeWizard3();
InitializeWizard4();
end;procedure DeinitializeSetup();
begin
BASS_DeInit;
gdipShutdown
end; -
частенько стало лагать в бою(
-
-
28.11.2021 в 14:21, Мasteriøn сказал:Подскажите, а как в конфиге отключить окраску названия техники? Что бы остались одни иконки черепов.
Версия без флешь, с атласом...
-
-
-
17 часов назад, Kotyarko_O сказал:Ну. Это значит, что существующий скомпилированный *.exe-файл занят каким-то процессом, обрабатывающим его.
- После первой компиляции инсталлятор запускался? Если да, вероятнее всего, он неправильно завершается и попросту зависает в процессах. Нужно мониторить диспетчер задач. Смотреть DeinitializeSetup.
- После компиляции инсталлятор не запускался, просто была начата повторная компиляция? Если да, то занести директорию проекта в исключения любых антивирусных ПО.
спс за ответ!
Только что еще раз компилировал установщик, установил моды... завершил процесс установки! Удалил установщик, компилировал новый и тут же при начале установке это окно! (( в диспетчере задач DeinitializeSetup нет(
Думаю скорее всего дело в коде на поиск клиента на дисках...
-
При перекомпиляции с недавних пор начало выскакивать такое окошко((( приходится перезагружать комп((
Может кто знает как вылечить?((
-
-
22 часа назад, wers сказал:Добрый день! Подскажите, можно ли к игрокам сидящим под анонимайзером тоже прикрутить иконку (например белую). Если можно, то как?
Зачем какие то белые иконки выдумывать когда есть соответствующие анонимам!
-
-
Привет! можно ли сделать такую функцию) чтоб при зажатии горячей клавиши возвращал последний маркер от куда стреляли его отображение...
-
Только что, night_dragon_on сказал:@DraugDM строку:
ExpandConstant('{cm:delete}')Нужно было не просто в секцию Code скопировать, а в то место где прописано наименование компонента который требуется перевести.
Вписать взамен этого наименования.
Спасибо дружище! Заработало))
-
Только что, night_dragon_on сказал:Название этих элементов нужно прописать в CustomMessages
[Languages] Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl" Name: "eng"; MessagesFile: "compiler:Languages\English.isl" [CustomMessages] ; Russian rus.delete=Удалить установленные моды (рекомендуется) ; English eng.delete=Remove installed mods (recommended)
В секции Code
ExpandConstant('{cm:delete}')
что то у меня с этой секцией код какие то траблы при компелировании((
Ищу флешера для восстановления прицела
in Paid Work
Posted
Поломался на новом патче...
Как выглядит если открыть флешь видно...