Jump to content
Korean Random

F1nder

User
  • Content Count

    6
  • Joined

  • Last visited

Community Reputation

0 Noob
  1. Конечно XVM понижать FPS будет. И если у тебя стоит модпак попробуй выбрать моды без XVM. Или может ты фулл фичи XVM включил.В любом случае виноват ты сам. Авторы сделали отличный мод которым пользуются тысячи людей. А поддерживать проект это твоя инициатива. Хочешь поддерживай хочешь нет.
  2. Кстати да, я же совсем забыл про res_mods. Спасибо большое сейчас пойду попробую)))
  3. Я собирал через этот билдер. Пересобрал еще раз и проблему это не решило увы. Я попробовал через консоль заархивировать. После этого у клиента ноль реакции.
  4. Спасибо вам огромное)) Вот только возникла проблема. Я когда запускаю клиент с модом вылазит ошибка о том что мод не загружен. Что делать? Спасибо за ответ P.S файл meta.xml я положил в архив wotmod
  5. Добрый день, форумчане)) Появилась у меня идея сделать мод-информатор о новой версии модпака. Однако инфы об этом мало. Мониторил вот эту тему. И там даже был скрипт вот только уже не рабочий. Кто может или знает где еще найти инфу помогите пожалуйста. Буду очень признателен. Спасибо заранее
  6. Добрый день! Возникла у меня одна проблемка надеюсь кто-то поможет. Сделал я в модпаке отображение картинок казалось бы все работает. Но через некий промежуток времени они перестают отображаться и вешають весь инсталятор намертво. Плюс довольно долго запусаеться сам инсталятор. Вот кидаю код может поможете? [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 'GetCursorPos@user32.dll stdcall'; function SetLayeredWindowAttributes(Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; external 'SetLayeredWindowAttributes@user32.dll 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 'SetFocus@user32.dll stdcall'; function MyDirName(S:String): String; var InsPath: String; er: boolean; myFile:String; begin Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath); if er and (InsPath<>'') then //если ключ существует и там что-то записано begin Result := InsPath; end; end; procedure LogoOnClick(Sender: TObject); var ResCode: Integer; begin ShellExec('', '{#MyAppURL}', '' , '', SW_SHOW, ewNoWait, ResCode) end; procedure RedesignWizardForm; var i: integer; BtnPanel: TPanel; BtnImage: TBitmapImage; begin ExtractTemporaryFile('logo.bmp') BtnPanel:=TPanel.Create(WizardForm) with BtnPanel do begin Left:=0 Top:=315 Width:=179 Height:=46 Cursor:=crHand OnClick:=@logoOnClick Parent:=WizardForm end; BtnImage:=TBitmapImage.Create(WizardForm) with BtnImage do begin AutoSize:=True; Enabled:=False; Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp') Parent:=BtnPanel end; with WizardForm do begin Caption := ExpandConstant('{cm:Main}'); end; with WizardForm.WizardBitmapImage do begin Width := ScaleX(502); end; with WizardForm.WelcomeLabel2 do begin Visible := False; end; with WizardForm.WelcomeLabel1 do begin Visible := False; end; with WizardForm.WizardSmallBitmapImage do begin Left := ScaleX(0); Width := ScaleX(502); Height := ScaleY(70); end; with WizardForm.PageDescriptionLabel do begin Visible := False; end; with WizardForm.PageNameLabel do begin Visible := False; end; with WizardForm.WizardBitmapImage2 do begin Width := ScaleX(502); end; with WizardForm.FinishedLabel do begin Visible := False; end; with WizardForm.FinishedHeadingLabel do begin Visible := False; end; 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(pt.x + 16), ScaleY(pt.y + 7), 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 'Белые сбитые гусеницы': UndefPic := '1.bmp'; 'Белые трупы танов': UndefPic := '2.bmp'; 'Калькулятор WN8 в бою': UndefPic := '3.bmp'; 'Мод достижений в бою': UndefPic := '10.bmp'; 'Процент отметки в бою': UndefPic := '18.bmp'; 'Маркеры с отлетающим уроном': UndefPic := '12.bmp'; 'Калькулятор брони в ангаре': UndefPic := '4.bmp'; 'Просмотр попаданий в ангаре': UndefPic := '13.bmp'; 'Менеджер реплеев': UndefPic := '9.bmp'; 'Процент побед на танках в ангаре': UndefPic := '14.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 InitializeWizard(); begin InitInfo(); RedesignWizardForm; end;
×
×
  • Create New...