Jump to content
Korean Random

DuMaH_K

User
 View Profile  See their activity

  • Posts

    83

  • Joined

  • Last visited

 Content Type 

Posts posted by DuMaH_K

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted · Edited by D_MAN_1987

    11 минут назад, night_dragon_on сказал:

    Перед компиляцией поробуй запусти собранный мною файл в папке "Output"

    ваш экзешник обнаруживает клиент песочницы

     

    2018-01-06_165958.png.0583d1bbfd55d6682974b015f6b17b1d.png

    распаковка поверх примера из шапки и компиляция дает в результате тот же путь что и в моем предыдущем посте

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

    3 часа назад, night_dragon_on сказал:

    На примере этой библиотеки покажу самый банальный и простой кусок кода:

    не выходит.

    использовал ваш кусок кода в тестовом примере скрипта из шапки и получил путь к исполняемому файлу инсталлятора+"\метка_диска"

    2018-01-06_163613.png.e6027b4accd0206295a414ff5e465053.png

    Видимо это как-то по другому должно работать или у меня руки совсем не оттуда... 

    #define GameID            "{5F05CE9B-7768-490E-9A71-C6R92B4EX123}"  ;Ид инстолятора
#define MyAppName         "KPAH Mod Pack 0.8.6"                     ;Название инстоллятора
#define MyInfoVer         "2.4.124"                                 ;Версия инсталлятора
#define MyAppVer          "1.0"                                     ;Версия игры
#define MyAppPublisher    "EvilAlex"                                ;Имя компании или человека кто делал
#define MyAppURL          "http://www.koreanrandom.com"             ;Ссылка для лого

;#include "Components.iss"                                           ;Компаненты, они же моды
#include "Messages.iss"                                            ;Сообщение, надписи на кнопках и т.д.

[Setup]
AppId={{#GameID}
AppName={#MyAppName}
AppVersion={#MyAppVer}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}

//====={ Ссылки }=====\\
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}

//====={ Папка устанвки }=====\\
;DefaultDirName={pf}\{#MyAppName}
DefaultDirName={code:Get_Wot_Dir}
DefaultGroupName={#MyAppName}

//====={ Картинки }=====\\
SetupIconFile=Files\wot_ico.ico
WizardSmallImageFile=Files\img2.bmp
WizardImageFile=Files\img1.bmp

//====={ Отключение строниц }=====\\
DisableProgramGroupPage=yes

//====={ Лицензия и Фак }=====\\
LicenseFile=licensia.txt
InfoBeforeFile=faq.rtf

//====={ Папка создания и название сетапа }=====\\
OutputDir=.\Output
OutputBaseFilename=Setup

//====={ Сжатие сетапа }=====\\
InternalCompressLevel=ultra64
Compression=lzma2/ultra64
SolidCompression=true

//====={ Основные файлы сетапа }=====\\
[Files]
Source: Files\logo.bmp; Flags: dontcopy noencryption noencryption
Source: "findwot.dll"; DestDir: "{tmp}"; Flags: ignoreVersion dontcopy;

//====={ Выбор языка }=====\\
[Languages]
Name: "eng"; MessagesFile: "compiler:Default.isl"
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"

[Code]
procedure WOT_GetClientPathW(Buffer: String; BufferSize: Integer; ClientIndex: Integer);
external 'WOT_GetClientPathW@files:findwot.dll cdecl';

function Get_Wot_Dir(Param: String): String;
var
  FoundDir: String;
begin
  SetLength(FoundDir, 1024);
  WOT_GetClientPathW(FoundDir, 1024, 0);
  if not VarIsNull(FoundDir) then
    Result:=ExpandConstant(FoundDir)
  else
    Result:=ExpandConstant('{sd}\Games\World_of_Tanks')
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 InitializeWizard();
begin
  RedesignWizardForm;
end;

     

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

    Товарищи, простите если что не так сразу)
    Использую код приведенный ниже для определения каталога установки клиента. И установщик упорно отказывается находить нужный каталог, в то время как протанки, вотспики и прочие - замечательно всё находят. Я уже хз куда копать... Наставьте на путь истинный, если не сложно) 

    function WotDirNameRU(Path: String): String; // ключ для основного клиента  {1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1
begin
 if RegKeyExists(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
 if RegKeyExists(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
 begin
  RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);
  Result := Path
 end else
  Result := ExpandConstant('C:\Games\World_of_Tanks');
end;

    Заранее благодарю

    [7.8.4, 14.02.19] demon2597 config (Ru, En) & more

    in Ready-to-use XVM configurations

    Posted

    Всех с новым годом! #щастьздоровья =)

    кстати, а в курсе кто нибудь - можно ли увеличить максимальный размер карты? чтобы к примеру на весь экран растянуть её можно было
    через xvm ограничено увеличение - кратность больше 5 - не воспринимается 

    ...
    "zoom": {
      // Zoom index value for minimap zoom key (0..5).
      // Значение масштаба миникарты при нажатии клавиши масштаба (0..5).
      "index": 5,
      // false - does not set zoomed minimap at display center.
      // false - не устанавливать увеличенную миникарту по центру экрана.
      "centered": true
    },
...

     

    [7.8.4, 14.02.19] demon2597 config (Ru, En) & more

    in Ready-to-use XVM configurations

    Posted · Edited by D_MAN_1987

    @demon2597  Дим, уж не знаю что случилось, но после вчерашней микрообновы на твоем конфиге игра стала намертво зависать в момент попадания в танк. На дефолтном конфиге этот момент проходит без проблем.

    python.log

     

    2017-12-30_145113.thumb.jpg.94674126a9fa0afec5bef796a18ebb38.jpg

    [1.3.0.1] Мод "Траектория заезда танка". 349 траекторий на подсадки без падения FPS

    in Mods and Software

    Posted · Edited by D_MAN_1987

    2 часа назад, Pavel3333 сказал:

    ЯННП

    Чиво ты нипонил, видимо как у юшки хочет: показывается только когда подсадка на расстоянии меньше 300 метров , либо OnKeyHold или КейПресс =)

    [1.3.0.1] Мод "Траектория заезда танка". 349 траекторий на подсадки без падения FPS

    in Mods and Software

    Posted

    Кто-нибудь протестировал траектории?

    я бы рад помочь, но с моими клешнями это не актуально. Тут нужны люди которые умеют в подсадки на большинстве танков, иначе получится что уберутся нормальные подсадки, в которые просто не смог отдельный игрок

    • Upvote 1

    [7.8.4, 14.02.19] demon2597 config (Ru, En) & more

    in Ready-to-use XVM configurations

    Posted

     

     

    Сервер не отдает информацию о снятии оглушения игроком, да и в принципе оно рандомно.
     

    ко всему прочему его же противник еще и снять может аптечкой, это считается? А если он пропал из засвета и потом снял оглушение - так вовсе инфа будет не верная. Сомневаюсь что подобная инфа будет в конфиге, т.е. вообще в xvm [imho]

    [7.8.4, 14.02.19] demon2597 config (Ru, En) & more

    in Ready-to-use XVM configurations

    Posted

    Вручную удалил, переустановил , вроде заработало. Спасибо.

    Не знаю у кого как, а я просто установил новую версию поверх старой, перезагрузил комп и всё норм. Никогда не ломал голову с удалением/чистой установкой шрифта. А такое ощущение что люди пытаются изобрести велосипед... При чем с квадратными колесами

    [7.8.4, 14.02.19] demon2597 config (Ru, En) & more

    in Ready-to-use XVM configurations

    Posted · Edited by D_MAN_1987

    По поводу иконок - периодически пропадают иконки союзников (в ушах и по Tab), а потом таким же магическим образом появляются... Мистика какая-то. А так же иногда надпись "Машина уничтожена! (танк)" съезжает в право, при чем на столько что кажется отсчет координаты Х ведется не от края экрана, а от середины. Пока без скринов, но если надо - поймаю

    post-37414-0-43532500-1488123567_thumb.jpg

    [7.8.4, 14.02.19] demon2597 config (Ru, En) & more

    in Ready-to-use XVM configurations

    Posted

     

     

    Почему решил что это из-за ХВМ?

    Методом проб и ошибок. Без XVM, но с целым комплектов других модов - всё работает стабильно, но с установленным XVM+конфиг от тезки (другие не перевариваю  :no: ) + пара безобиных модов вроде быстрого ремонта в бою - игра вылетает 2-3 а то и более раз в день. То драйвер видеокарты "восстановлен", то просто так без всяких уведомлений. Надпись "Не хватает памяти, перезапустите игру" вообще постоянно висит. А настройки - самые минимальные, вот просто меньше некуда, отключены все эффекты, даже через вот твикер.

×
×
  • Create New...