Jump to content
Korean Random

Draugd

Newbie
  • Content Count

    124
  • Joined

  • Last visited

Everything posted by Draugd

  1. если получится то будет вообще заемечательно!)
  2. а куда дир индекатед эксентед пропал? ((
  3. когда какая то шерсть тупарылая ублюдочная минусит на мои вопросы ответы это как то поднапрягает..
  4. у тебя какой то обиженый минусовщик завелся!
  5. @StranikS_Scan плиз... сделай чтоб по стандартным ушам отображение статистики игроков было!!!
  6. ну вот в этой версии старой 2.09 без Nan с первого боя все норм считает... и точно!!! проверенно неоднократно лично... еще бы в ангаре отображение прикрепить!!! (( Может нашел бы минутку на это)) mods.rar слухай... хотел к тебе еще вот с чем обратится... есть мод статистика игроков в бою без хвм - отличный мод, работает уже много патчей но... оочень не хватает цветов по рейтингу! Можешь его к своей флеше подключить и добавить возможность добавлять цвета в конфиге... ну и скрипт на свое усмотрение там подправить, подобновить, объеденить)) блин... ооочень многие были бы оочень благодарны!!! + с меня сразу 20 баксов доната на любой кошелек...
  7. можно ли как прописать в конфиге или скрипте чтоб считалось с первого боя (как раньше было) пусть с небольшими неточностями...
  8. Draugd

    del

    del
  9. все норм работает без всяких парирований))
  10. можно ли сделать чтоб картинки формата пнг или джепег отображались в установщике при наведении? а то .BMP весят каждая как мр3 ((( и можно ли как нибудь исправить такие жуткие подвисания установщика при выборе модов? ((( D Mod White v.5.2.exe #include "Addons\botva2.iss" #include "Addons\BASS_Module.iss" [Code] #ifdef UNICODE #define A "W" #else #define A "A" #endif const UNDEF_INDEX = -777; ALPHA_BLEND_LEVEL = 255; // max=Byte=255 WS_EX_LAYERED = $80000; WS_EX_TRANSPARENT = $20; LWA_COLORKEY = 1; LWA_ALPHA = 2; GWL_EXSTYLE = (-20); var InfoPic: TBitmapImage; LastIndex: Integer; TempPath: String; PicForm: TForm; type COLORREF = DWORD; function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall'; function SetLayeredWindowAttributes(Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; external '[email protected] stdcall'; function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall'; function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall'; function SetFocus(hWnd: HWND): HWND; external '[email protected] stdcall'; function WOT_GetClientsCount(): Integer; external 'WOT_GetClientsCount@files:FindWot.dll cdecl'; function WOT_GetClientBranch(ClientIndex: Integer): Integer; external 'WOT_GetClientBranch@files:FindWot.dll cdecl'; procedure WOT_GetClientPathW(Buffer: String; BufferSize: Integer; ClientIndex: Integer); external 'WOT_GetClientPathW@files:FindWot.dll cdecl'; function DefaultDirName(Param: String): String; var ClientsCount, Index: Integer; FoundDir: String; begin SetLength(FoundDir, 1024); ClientsCount:=WOT_GetClientsCount(); if ClientsCount > 0 then begin for Index:=0 to ClientsCount-1 do begin if WOT_GetClientBranch(Index) = 1 then begin WOT_GetClientPathW(FoundDir, Length(FoundDir)-1, Index); Result:=ExpandConstant(FoundDir); end; end; end else Result:=ExpandConstant('{sd}\Games\World_of_Tanks'); end; procedure ShowPicHint(const PicFilePath: String); var pt: TPoint; begin if not GetCursorPos(pt) then Exit; InfoPic.Bitmap.LoadFromFile(PicFilePath); try with PicForm do begin SetBounds(ScaleX(WizardForm.Left + 509), ScaleY(WizardForm.Top + 80), InfoPic.Width, InfoPic.Height); Show; end; finally SetFocus(WizardForm.Handle); end; end; procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea); var UndefPic: String; begin if Index = -1 then Exit; if Index = LastIndex then Exit; try case TNewCheckListBox(Sender).ItemCaption[Index] of '1.Командирская камера.': UndefPic := 'KK.bmp'; '2.Винтик.': UndefPic := 'VNT.bmp'; '3.Панель урона.': UndefPic := 'PY.bmp'; '4.AutoEquip авто установка/снятие оборудования.': UndefPic := 'AO.bmp'; '5.Калькулятор эффективности в бою.': UndefPic := 'KEB.bmp'; '6.Таймер сведения орудия в бою.': UndefPic := 'TS.bmp'; '7.Увеличенное время лампы засвета.': UndefPic := 'LZ.bmp'; '8.Статистика за сессию YasenKrasen Vanilla.': UndefPic := 'SS.bmp'; '9.Шанс на победу + хп команд.': UndefPic := 'SHP.bmp'; '10.Рейтинг отметок на стволе.': UndefPic := 'ML.bmp'; '11.Углы горизонтальной наводки.': UndefPic := 'YGN.bmp'; '12.Радар.': UndefPic := 'TLS.bmp'; '1.Гарпун мини + сведение Fatality.': UndefPic := 'PGM.bmp'; '2.Прицел Taipan (мини) настройка Draug.': UndefPic := 'TS.bmp'; '3.Прицел OverCross + сведение MeltyMaps.': UndefPic := 'OC.bmp'; '4.Прицел Гарпун Lite.': UndefPic := 'PGL.bmp'; '5.Улучшенный прицел J1mb0 мини.': UndefPic := 'PJ.bmp'; '6.Прицел Ахиллес.': UndefPic := 'PAH.bmp'; '7.Прицел минималистичный.': UndefPic := 'PMI.bmp'; '1.Минималистичный лог.': UndefPic := 'ML.bmp'; '2.Подробный лог.': UndefPic := 'PL.bmp'; '1.Стволик хаоса.': UndefPic := 'SH.bmp'; '2.Блокировка выстрела по союзникам и трупам.': UndefPic := 'BV.bmp'; '3.Зум х30 старт х2 + улучшенная видимость.': UndefPic := 'YGN.bmp'; '4.Пересадка экипажа.': UndefPic := 'AVE.bmp'; '5.Направление стволов на миникарте.': UndefPic := 'NSM.bmp'; '6.Калькулятор бронепробития.': UndefPic := 'KB.bmp'; '7.Мульти клиент.': UndefPic := 'MK.bmp'; '8.Отключение тумана.': UndefPic := 'OT.bmp'; '9.Засвет в ушах.': UndefPic := 'ZY.bmp'; '10.Места пассивного засвета (Spoter).': UndefPic := 'MZ.bmp'; '11.ЛБЗ в бою.': UndefPic := 'LBZ.bmp'; '12.Рейтинг игроков в бою.': UndefPic := 'RI.bmp'; '13.Сумарный WN8 комманд (Ekspoint).': UndefPic := 'PPB.bmp'; '14.ХП противников в ушах.': UndefPic := 'HP.bmp'; '15.Информатор засвета.': UndefPic := 'IZ.bmp'; '16.Информационная панель.': UndefPic := 'IP.bmp'; '17.Маркер автоприцела.': UndefPic := 'IA.bmp'; '18.Оповещения союзников о засвете.': UndefPic := 'OZ.bmp'; '1.Свободное вращение камеры.': UndefPic := 'RK.bmp'; '2.Полное отключение ручника.': UndefPic := 'RK.bmp'; else begin LastIndex := UNDEF_INDEX; PicForm.Hide; Exit; end; end; if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic); ShowPicHint(TempPath + UndefPic); finally LastIndex := Index; end; end; procedure CompOnMouseLeave(Sender: TObject); begin PicForm.Hide; 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; InfoPic := TBitmapImage.Create(PicForm) with InfoPic do begin Parent := PicForm; AutoSize := True; end; 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;
  11. Вот настройки с конфига сервера (он и сейчас на сервере сайта) { "version" : "4.2", "name" : "D Mod", "author" : "Draug", "link" : "https://dmod.cc/", "date" : "16.03.2019", "image" : true, "imageName" : "godss.png", "imageLink" : "https://dmod.cc/images/godss.png", "imageWidth" : 300, "imageHeight" : 82, "messageLinkName" : "Обновить", "windowName" : "D Mod", "buttonNameOpen" : "Скачать", "buttonNameClose" : "Закрыть", "header" : "<textformat><font color=\"#dbd7d2\" size='14'>Доступна новая версия: <font color=\"#78dbe2\">{version}</font><br></textformat>", "message" : "<font color='#67ab16' size='14'>Обновлено:<br></font><font color='#ada49a' size='12'>- Много мелких правок, изменений, обновлений...<br><br><font color='#FFCC99' size='12'>Перед переустановкой не забываем выйти из игры!!!</font><br><br><font color='#dbd7d2' size='14'>С уважением, {author}</font>" } вот настройки с конфига что в клиент идет <mod_modPackInformer.xml> <version> 4.2 </version> <name> D Mod </name> <serverMain> https://dmod.cc/dmodupdater.json </serverMain> <serverBackup> https://dmod.cc/dmodupdater.json </serverBackup> <statistic> true </statistic> <statisticTid> UA-57975916-2 </statisticTid> <openLinkInGameBrowser> false </openLinkInGameBrowser> </mod_modPackInformer.xml> Я уже более десятка всяких вариаций поперепробовал(( в том числе и заменив на стандартные конфиги... повторюсь это не только у меня, а отписали об этом несколько юзеров что невозможно из системного канала подробный лог открыть прошедшего боя(( посмотри плиз, может и впрямь в настройках что то не по той системе((
  12. не открывает прошлый лог боя именно когда актуальная версия с файлом сервера стоит! когда на сервере выше версия и выскакивает окошко обновить то норм все открывает...
  13. прежде чем написать, я естественно с десяток раз перепроверил... вообщем на чистом клиенте с одним только информером обновления!!! python.log когда проведешь бой из инфоканала жмешь подробности но оно не открывается!!! об этом написали мне юзеры... я проверил, да, есть такое дело((
  14. понял(( это последняя минималистичная версия... которая только из конфига работает и считает с первого боя... до сих пор ей пользуюсь... Рейтинг отметок на стволе (Spoter).rar и планируется ли правка mod_modPackInformer ? (
  15. @spoter извеняюсь... а spoter.marksOnGunExtended_2.09 есть исходник этой версии?
×
×
  • Create New...