Jump to content
Korean Random

Lom

User
 View Profile  See their activity

  • Posts

    1,010

  • Joined

  • Last visited

  • Days Won

    3

 Content Type 

Posts posted by Lom

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

    in Modding General Discussion

    Posted

    а не проще чеки сделать в редакторе формы, а тут просто оставить функции при нажатии на чек

    по сути то проще конечно если знать как всё это делать)))) для вас это дело как два пальца об асфальт так сказать а я явно эти два пальца сломаю пока так сделаю)) потому и хочу просто в код прописать)))

    короче я хотел бы как на фото в это место прописать очистку  кеша игры и хвм.

     

     

     

     

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

    in Modding General Discussion

    Posted · Edited by ЛОМ

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

     

    #define Patch               "0.9.16"
#include "SHFileOperation.iss";




[Code]
var
  BackupPage: TWizardPage;
  DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;

const
  BackupDescText =
    'Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.' #13#13 'Выберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\0.9.16", удалена папка "res_mods\xvm" или созданы резервные копии Ваших файлов.';
  DeleteDescText =
    'Установщик удалит все файлы в папках.';
  MoveDescText =
    'Установщик сделает резервную копию всех файлов в папках.';
  NoneDescText =
    'Установщик оставит всё как есть.';

function BackupCheck_1(): Boolean;
var
  BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;
begin
  BackupPage:=CreateCustomPage(wpSelectDir, 'Создание резервных копий файлов перед установкой', 'Пожалуйста, прочтите следующую важную информацию перед тем, как продолжить.');
  BackupDescLabel:=TLabel.Create(WizardForm);
  BackupDescLabel.Parent:=BackupPage.Surface;
  BackupDescLabel.Left:=0;
  BackupDescLabel.Top:=0;
  BackupDescLabel.Width:=BackupPage.SurfaceWidth;
  BackupDescLabel.Height:=90;
  BackupDescLabel.AutoSize:=False;
  BackupDescLabel.Wordwrap:=True;
  BackupDescLabel.Caption:=BackupDescText;

  DeleteRadioButton:=TNewRadioButton.Create(WizardForm);
  DeleteRadioButton.Parent:=BackupPage.Surface;
  DeleteRadioButton.Checked:=False;
  DeleteRadioButton.Top:=95;
  DeleteRadioButton.Width:=BackupPage.SurfaceWidth;
  DeleteRadioButton.Font.Style:=[fsBold];
  DeleteRadioButton.Font.Size:=9;
  DeleteRadioButton.Caption:='Удалить файлы'
  DeleteDescLabel:=TLabel.Create(WizardForm);
  DeleteDescLabel.Parent:=BackupPage.Surface;
  DeleteDescLabel.Left:=18;
  DeleteDescLabel.Top:=DeleteRadioButton.Top + DeleteRadioButton.Height + 4;
  DeleteDescLabel.Width:=BackupPage.SurfaceWidth;
  DeleteDescLabel.Height:=40;
  DeleteDescLabel.AutoSize:=False;
  DeleteDescLabel.Wordwrap:=True;
  DeleteDescLabel.Caption:=DeleteDescText;

  MoveRadioButton:=TNewRadioButton.Create(WizardForm);
  MoveRadioButton.Parent:=BackupPage.Surface;
  MoveRadioButton.Checked:=True;
  MoveRadioButton.Top:=140;
  MoveRadioButton.Width:=BackupPage.SurfaceWidth;
  MoveRadioButton.Font.Style:=[fsBold];
  MoveRadioButton.Font.Size:=9;
  MoveRadioButton.Caption:='Сделать резервную копию файлов'
  MoveDescLabel:=TLabel.Create(WizardForm);
  MoveDescLabel.Parent:=BackupPage.Surface;
  MoveDescLabel.Left:=18;
  MoveDescLabel.Top:=MoveRadioButton.Top + MoveRadioButton.Height + 4;
  MoveDescLabel.Width:=BackupPage.SurfaceWidth;
  MoveDescLabel.Height:=40;
  MoveDescLabel.AutoSize:=False;
  MoveDescLabel.Wordwrap:=True;
  MoveDescLabel.Caption:=MoveDescText;

  NoneRadioButton:=TNewRadioButton.Create(WizardForm);
  NoneRadioButton.Parent:=BackupPage.Surface;
  NoneRadioButton.Checked:=False;
  NoneRadioButton.Top:=185;
  NoneRadioButton.Width:=BackupPage.SurfaceWidth;
  NoneRadioButton.Font.Style:=[fsBold];
  NoneRadioButton.Font.Size:=9;
  NoneRadioButton.Caption:='Ничего не трогать'
  NoneDescLabel:=TLabel.Create(WizardForm);
  NoneDescLabel.Parent:=BackupPage.Surface;
  NoneDescLabel.Left:=18;
  NoneDescLabel.Top:=NoneRadioButton.Top + NoneRadioButton.Height + 4;
  NoneDescLabel.Width:=BackupPage.SurfaceWidth;
  NoneDescLabel.Height:=40;
  NoneDescLabel.AutoSize:=False;
  NoneDescLabel.Wordwrap:=True;
  NoneDescLabel.Caption:=NoneDescText;
end;


function BackupCheck_3(): Boolean;
begin
  If MoveRadioButton.Checked then
begin
  MoveDir(ExpandConstant('{app}\res_mods\'),ExpandConstant('{app}\res_mods\backup\res_mods'));
  CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
end;
end;

function BackupCheck_2(): Boolean;
begin
  If DeleteRadioButton.Checked then
begin
  DelTree(ExpandConstant('{app}\res_mods'), True, True, True);
  CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
end;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
  If CurStep=ssInstall then
begin
  BackupCheck_2();
  BackupCheck_3();
end;
end;

procedure InitializeWizard();
begin
  BackupCheck_1();
end; 

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

    in Modding General Discussion

    Posted

    привет всем! я конечно понимаю что я вас достал уже своими детскими так сказать вопросами но всё же подскажите мне одну вещь))) я не пойму почему неделю назад используя тот же код для бекапа что и сейчас всё работало а сейчас выдает ошибку пока я не поменяю {#Patch}'));  на 0.9.16 ?  вот к примеру в этой строчке CreateDir(ExpandConstant('{app}\res_mods\{#Patch}')); ну и в остальных тоже. 

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

    in Modding General Discussion

    Posted · Edited by ЛОМ

    подскажите пожалуйста почему иногда в редакторе форм когда пытаюсь что то изменить появляются эти сообщения?  инстал скином делал. или как он там называется не помню)) вот этим короче "  .cjstyles   "

     

     

     

     

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

    in Modding General Discussion

    Posted

    сел заново читать тему. из за проблем с глазами не могу долго читать. если не трудно подскажите пожалуйста  как сделать в установщике одну фоновую картинку для всех страниц? ( ну чтобы весь текст и т.д. на всех страницах были на этой картинке как бы )   или  ткните носом в каком месте это обсуждалось в  теме!

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

    in Modding General Discussion

    Posted · Edited by ЛОМ

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

    [Setup]
AppName=NETFramewrok
AppVerName=NETFramewrok
DefaultDirName={pf}\NETFramewrok
DisableStartupPrompt=true
InternalCompressLevel=none
Compression=none

[Code]
function InitializeSetup(): Boolean;
var
    ErrorCode: Integer;
    NetFrameWorkInstalled : Boolean;
    Result1 : Boolean;
begin

           NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v1.0');
           if NetFrameWorkInstalled =true then
           begin
              Result := true;
           end;
           if NetFrameWorkInstalled = false then
           begin
               NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v1.1');
               if NetFrameWorkInstalled =true then
               begin
                  Result := true;
               end;

               if NetFrameWorkInstalled =false then
               begin
                         Result1 := MsgBox('ХОТИТЕ СКАЧАТЬ  И ТЭ ДЭ И ТЭ ПЭ?',
                              mbConfirmation, MB_YESNO) = idYes;
                         if Result1 =false then
                         begin
                            Result:=false;
                         end
                         else
                         begin
                              Result:=false;
                                ShellExec('open', 'http://catcut.net/HGY','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
                        end;
               end;
          end;
end;

    чуток изменил для себя так
    [Code]
function InitializeSetup(): Boolean;
var
    ErrorCode: Integer;
    NetFrameWorkInstalled : Boolean;
    Result1 : Boolean;

               begin
                         Result1 := MsgBox('ХОТИТЕ СКАЧАТЬ 7777777АОВЛОАЛО ?',
                              mbConfirmation, MB_YESNO) = idYes;
                         if Result1 =false then
                         begin
                            Result:=false;
                         end
                         else
                         begin
                              Result:=false;
                                ShellExec('open', 'http://catcut.net/HGY','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
                        end;
               end;

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

    Возможно ли без хвм сделать отлетающий урон?

    in Modding General Discussion

    Posted · Edited by ЛОМ

    Возможно ли как то отдельным модом что ли,  сделать  отлетающий урон и взрыв БК,   как в ХВМе  это реализовано!?  и чтобы можно было поставить свою картинку к отлет.урону и взрыву БК ?  был бы такой отдельный мод  цены бы ему не было)))) 

    • Upvote 1

    del9

    in Mod Questions and Problem Solving

    Posted · Edited by ЛОМ

     читов у тя многовато...)))))

    ошибка вроде связана с камуфляжем ..мод на убирание его или шкурки пробития...что то типа того....

    да читов хватает)))  шкурок пробития нет... ух ты!!! вот это я поставил. мод на удаление эмблем кланов. может из за него?  http://www.koreanrandom.com/forum/topic/21432-09151-v16-%D0%BE%D1%82%D0%BA%D0%BB%D1%8E%D1%87%D0%B5%D0%BD%D0%B8%D0%B5-%D0%B7%D0%B0%D0%B3%D1%80%D1%83%D0%B7%D0%BA%D0%B8-%D1%8D%D0%BC%D0%B1%D0%BB%D0%B5%D0%BC-%D0%BA%D0%BB%D0%B0%D0%BD%D0%BE%D0%B2-%D0%B4%D0%BB%D1%8F-%D0%B1%D0%BE%D1%80%D1%8C%D0%B1/

    del9

    in Mod Questions and Problem Solving

    Posted · Edited by ЛОМ

    подскажите пожалуйста из за какого мода происходят вылеты иногда?! ровно в 1:10 был вылет и в питоне выдаются какие то ошибки в это же время.

    2016-10-10 01:09:25.525: INFO: [PY_DEBUG] Checking ./res_mods/0.9.16: mods found

    2016-10-10 01:10:02.650: INFO: [XFW] Version: 4.0.0
    2016-10-10 01:10:02.650: INFO: [XFW] Working dir: F:\Games\res_mods\mods
    2016-10-10 01:10:05.905: INFO: [XFW] Loading mod: xvm_main 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:06.039: INFO: [XFW] Loading mod: xvm_autologin 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:06.423: INFO: [XFW] Loading mod: xvm_battle 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:06.585: INFO: [XFW] Loading mod: xvm_battleloading 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:06.716: INFO: [XFW] Loading mod: xvm_battleresults 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:07.208: INFO: [XFW] Loading mod: xvm_contacts 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:07.373: INFO: [XFW] Loading mod: xvm_crew 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:07.392: INFO: [XFW] Loading mod: xvm_equip 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:07.407: INFO: [XFW] Loading mod: xvm_export 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:07.431: INFO: [XFW] Loading mod: xvm_hangar 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:07.434: INFO: [XFW] Loading mod: xvm_hotfix 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:07.449: INFO: [XFW] Loading mod: xvm_integrity 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:08.080: INFO: [XFW] Loading mod: xvm_limits 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:08.117: INFO: [XFW] Loading mod: xvm_online 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:09.907: INFO: [XFW] Loading mod: xvm_ping 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:09.966: INFO: [XFW] Loading mod: xvm_profile 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:09.969: INFO: [XFW] Loading mod: xvm_profiler 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:10.028: INFO: [XFW] Loading mod: xvm_quests 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:10.200: INFO: [XFW] Loading mod: xvm_sounds 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:10.344: INFO: [XFW] Loading mod: xvm_squad 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:10.646: INFO: [XFW] Loading mod: xvm_tankcarousel 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:10.664: INFO: [XFW] Loading mod: xvm_techtree 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:10.696: INFO: [XFW] Loading mod: xvm_tooltips 0.9.16 (http://www.modxvm.com/)
    2016-10-10 01:10:10.856: INFO: [NOTE] Loading mod: artyReloadTimer
    2016-10-10 01:10:10.856: INFO: [artyReloadTimer]: [artyReloadTimer by Ekspoint & Stealthz]
    2016-10-10 01:10:10.856: INFO: -------------------------------------------------------------------------
    2016-10-10 01:10:10.866: INFO: [artyReloadTimer]: Конфиг файл [mod_artyReloadTimer.json] Успешно загрузился
    2016-10-10 01:10:10.867: INFO: -------------------------------------------------------------------------
    2016-10-10 01:10:10.992: INFO: [LOAD] battleFlash v.1.0.5 (21.07.2016) by GambitER
    2016-10-10 01:10:11.010: INFO: mod_autotelescope updated by WOTsite.net (http://wotsite.net/12066)
    2016-10-10 01:10:13.627: INFO: [NOTE] package loaded: mod_auto_aim
    2016-10-10 01:10:13.627: INFO: AutoAim by SAE v27.3 EN
    2016-10-10 01:10:13.689: INFO: [NOTE] package loaded: mod_modsListAPI
    2016-10-10 01:10:13.755: INFO: Battle Assistant: v1.3.8
    2016-10-10 01:10:14.103: INFO: [bATTLE_OBSERVER_INFO] MOD starts loading: mod_battle_observer by Armagomen v1 #02, v.0.9.16 #227
    2016-10-10 01:10:14.287: INFO: [NOTE] Loading mod: breakable
    2016-10-10 01:10:14.288: INFO: [breakable]: [breakable by Limarik]
    2016-10-10 01:10:14.288: INFO: -------------------------------------------------------------------------
    2016-10-10 01:10:14.291: INFO: [breakable]: Конфиг файл [mod_breakable.json] Успешно загрузился
    2016-10-10 01:10:14.291: INFO: -------------------------------------------------------------------------
    2016-10-10 01:10:14.520: INFO: [NOTE] Loading mod: calculator_rankings_battle
    2016-10-10 01:10:14.521: INFO: [calculator_rankings_battle]: [calculator_rankings_battle by Ekspoint]
    2016-10-10 01:10:14.521: INFO: -------------------------------------------------------------------------
    2016-10-10 01:10:14.694: INFO: [calculator_rankings_battle]: Конфиг файл [mod_calculator_rankings_battle.json] Успешно загрузился
    2016-10-10 01:10:14.694: INFO: -------------------------------------------------------------------------
    2016-10-10 01:10:15.566: INFO: [MOD] mod loaded: mod_damagelog
    2016-10-10 01:10:15.735: INFO: [LOAD] Damage Blocked v.1.1.0 (04.10.2016) by OldSkool
    2016-10-10 01:10:15.970: INFO: [LOAD_MOD]: [mods_gui v1.18(04.10.2016), by spoter, satel1te]
    2016-10-10 01:10:16.437: INFO: ===========================================
    2016-10-10 01:10:16.437: INFO: Mode "Easy ODevices"
    2016-10-10 01:10:16.437: INFO: Website: https://easymode.pro
    2016-10-10 01:10:16.437: INFO: ===========================================
    2016-10-10 01:10:16.841: INFO: [NOTE] Loading mod: extinguisher
    2016-10-10 01:10:16.841: INFO: [extinguisher]: [extinguisher by Ekspoint]
    2016-10-10 01:10:16.842: INFO: -------------------------------------------------------------------------
    2016-10-10 01:10:16.843: INFO: [extinguisher]: Конфиг файл [mod_extinguisher.json] Успешно загрузился
    2016-10-10 01:10:16.843: INFO: -------------------------------------------------------------------------
    2016-10-10 01:10:17.113: INFO: [NOTE] package loaded: mod_hit_inviz
    2016-10-10 01:10:17.296: INFO: [ModificationLaserpointer] (scripts/client/gui/mods/mod_ModificationLaserpointer/ModificationLaserpointer.config): True
    2016-10-10 01:10:17.296: INFO: laser
    2016-10-10 01:10:17.378: INFO: [OLD MODS LOADER] loading mod: mod_pack_lpt
    2016-10-10 01:10:17.648: INFO: Redballs. Конфиг загружен.
    2016-10-10 01:10:17.792: INFO: [NOTE] Loading mod: safeShot_extended
    2016-10-10 01:10:17.792: INFO: [safeShot_extended]: [safeShot_extended by Ekspoint]
    2016-10-10 01:10:17.792: INFO: -------------------------------------------------------------------------
    2016-10-10 01:10:17.807: INFO: [safeShot_extended]: Конфиг файл [mod_safeShot_extended.json] Успешно загрузился
    2016-10-10 01:10:17.807: INFO: -------------------------------------------------------------------------
    2016-10-10 01:10:18.391: INFO: [NOTE] package loaded: mod_sight
    2016-10-10 01:10:18.522: INFO: [LOAD_MOD]: [dir_indicator_extended v2.07 (02.08.2016), by spoter, Thx to Lp()rtii]
    2016-10-10 01:10:18.575: INFO: [LOAD_MOD]: [repair_extended v2.11 (04.10.2016), by spoter]
    2016-10-10 01:10:18.712: NOTICE: [NOTE] (scripts/client/post_processing/__init__.py, 269): The quality = 4 was selected.
    2016-10-10 01:10:18.712: NOTICE: [NOTE] (scripts/client/post_processing/__init__.py, 269): The quality = 3 was selected.
    2016-10-10 01:10:34.153: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 229): HANGAR LOADING STATE: LOGIN - 72.1800003052
    2016-10-10 01:10:34.174: NOTICE: [NOTE] (scripts/client/ConnectionManager.py, 221): User authentication method: token2
    2016-10-10 01:10:36.525: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 229): HANGAR LOADING STATE: CONNECTED - 74.5520019531
    2016-10-10 01:10:37.021: NOTICE: [NOTE] (mod_autotelescope, 88): instList: ((1273, 1785, 249),)
    2016-10-10 01:10:37.225: NOTICE: [NOTE] (scripts/client/account_helpers/settings_core/options.py, 708): Change state of voip: (True,)
    2016-10-10 01:10:38.666: NOTICE: [NOTE] (scripts/client/gui/battle_control/arena_info/arena_dp.py, 527): Player's team not found.
    2016-10-10 01:10:38.666: NOTICE: [NOTE] (scripts/client/gui/battle_control/arena_info/arena_dp.py, 533): Player's vehicle ID not found.
    2016-10-10 01:10:38.666: NOTICE: [NOTE] (scripts/client/gui/battle_control/arena_info/arena_dp.py, 537): Uses slow player search by name
    2016-10-10 01:10:38.666: NOTICE: [NOTE] (scripts/client/gui/battle_control/arena_info/arena_dp.py, 527): Player's team not found.
    2016-10-10 01:10:38.666: NOTICE: [NOTE] (scripts/client/gui/battle_control/arena_info/arena_dp.py, 533): Player's vehicle ID not found.
    2016-10-10 01:10:38.666: NOTICE: [NOTE] (scripts/client/gui/battle_control/arena_info/arena_dp.py, 537): Uses slow player search by name
    2016-10-10 01:10:40.305: NOTICE: [NOTE] (scripts/client/game.py, 435): [sPACE] Loading space: spaces/01_karelia
    2016-10-10 01:10:40.307: ERROR: [ERROR] (mod_artyReloadTimer, 439): 'NoneType' object has no attribute 'as_setShadowS'
    2016-10-10 01:10:48.879: ERROR: [ERROR] (scripts/client/vehicle_systems/camouflages.py, 123): Unexpected lack of fashion, but camouflage is being applied. Use prepareFashions function!
    2016-10-10 01:10:48.879: ERROR: [ERROR] (scripts/client/vehicle_systems/camouflages.py, 123): Unexpected lack of fashion, but camouflage is being applied. Use prepareFashions function!
    2016-10-10 01:10:48.879: ERROR: [ERROR] (scripts/client/vehicle_systems/camouflages.py, 123): Unexpected lack of fashion, but camouflage is being applied. Use prepareFashions function!
    2016-10-10 01:10:48.879: ERROR: [ERROR] (scripts/client/vehicle_systems/camouflages.py, 123): Unexpected lack of fashion, but camouflage is being applied. Use prepareFashions function!
    2016-10-10 01:10:48.883: ERROR: [ERROR] (scripts/client/vehicle_systems/camouflages.py, 123): Unexpected lack of fashion, but camouflage is being applied. Use prepareFashions function!
    2016-10-10 01:10:48.883: ERROR: [ERROR] (scripts/client/vehicle_systems/camouflages.py, 123): Unexpected lack of fashion, but camouflage is being applied. Use prepareFashions function!
    2016-10-10 01:10:48.883: ERROR: [ERROR] (scripts/client/vehicle_systems/camouflages.py, 123): Unexpected lack of fashion, but camouflage is being applied. Use prepareFashions function!
    2016-10-10 01:10:48.883: ERROR: [ERROR] (scripts/client/vehicle_systems/camouflages.py, 123): Unexpected lack of fashion, but camouflage is being applied. Use prepareFashions function!
    2016-10-10 01:10:52.279: WARNING: [WARNING] (scripts/client/gui/Scaleform/framework/entities/BaseDAAPIComponent.py, 49): Class with alias `teamBasesPanel` already registered in object . It will be rewritten.
    2016-10-10 01:12:24.759: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 229): HANGAR LOADING STATE: CONNECTED - 182.785995483
    2016-10-10 01:12:25.931: NOTICE: [NOTE] (mod_autotelescope, 88): instList: ((1273, 1785, 249),)
    2016-10-10 01:12:26.112: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 229): HANGAR LOADING STATE: SHOW GUI - 184.139007568
    2016-10-10 01:12:32.566: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 229): HANGAR LOADING STATE: QUESTS SYNC - 190.593994141
    2016-10-10 01:12:32.663: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 229): HANGAR LOADING STATE: USS SYNC - 190.690994263
    2016-10-10 01:12:32.679: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 229): HANGAR LOADING STATE: SPACE LOADING START - 190.707000732
    2016-10-10 01:12:32.686: NOTICE: [NOTE] (scripts/client/game.py, 435): [sPACE] Loading space: spaces/hangar_v2
    2016-10-10 01:12:32.704: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 229): HANGAR LOADING STATE: VEHICLE LOADING START - 190.731994629
    2016-10-10 01:12:34.317: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 229): HANGAR LOADING STATE: VEHICLE LOADING END - 192.343994141
    2016-10-10 01:12:34.578: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 229): HANGAR LOADING STATE: SPACE LOADING END - 192.604995728
    2016-10-10 01:12:34.578: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 229): HANGAR LOADING STATE: HANGAR READY - 192.604995728
    2016-10-10 01:12:34.578: NOTICE: [NOTE] (scripts/client/helpers/statistics.py, 257): HANGAR LOADING STATE: SUMMARY TOTAL = 9.81900024414

    Помогите со взрывом БК

    in XVM Configuration Questions

    Posted · Edited by ЛОМ

    Не могу найти реплея с взрывом, поэтому не могу тестировать. Нужно вам проверить.

     

    attachicon.gifmarkers.zip

    Картинки положите в res_mods\mods\shared_resources\xvm\res\icons

     

    Файл colors.xc получился не нужен (мне спутались настройки :swt3: ).

    ша проверю и отпишусь ))))) но в любом случае СПАСИБО однозначно!!! )))))) 

     

    Не могу найти реплея с взрывом, поэтому не могу тестировать. Нужно вам проверить.

     

    attachicon.gifmarkers.zip

    Картинки положите в res_mods\mods\shared_resources\xvm\res\icons

     

    Файл colors.xc получился не нужен (мне спутались настройки :swt3: ).

    как союзник не знаю но взрыв бк врага работает на ура)))) спасибо большое!!! )))

    Помогите со взрывом БК

    in XVM Configuration Questions

    Posted · Edited by ЛОМ

    Если не трудно подскажите пожалуйста  как именно прописать и как именно  обозвать картинку чтобы всё заработало? обвел красным. Вот сам файл...

     

    и если можно подскажите возможно ли сделать чтобы при взрыве бк у союзников была одна картинка а у врагов всплывала бы другая?  ( ну  этот вариант мне нужен только если там много чего менять не нужно  :gg:   )

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

    in Modding General Discussion

    Posted · Edited by ЛОМ

    А так я давно уже перешел на ботву, хоть и код там будет посложнее для понимания (хотя для кого как), зато функционала там вполне хватает.

     

     

    что то сложное мне не осилить))) простой вариант как раз по мне))) по любому спасибо)))) я уже сделал )) просто с наведением курсора чтобы картинка появлялась)))

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

    in Modding General Discussion

    Posted · Edited by ЛОМ

    если не трудно подскажите какая часть  кода из этого скрипта мне нужна чтобы картинки появлялись при наведении курсора?  та часть что я между плюсиками +  разделил,эта?

    #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:MyDirName}
DefaultGroupName={#MyAppName}
//====={ Картинки }=====\\
SetupIconFile=Files\wot_ico.ico
WizardSmallImageFile=Files\img2.bmp
WizardImageFile=Files\img1.bmp
//====={ Отключение строниц }=====\\
DisableProgramGroupPage=yes
//====={ Лицензия и Фак }=====\\
LicenseFile=licensia.txt
InfoBeforeFile=faq.rtf
InfoAfterFile=credit.rtf
//====={ Папка создания и название сетапа }=====\\
OutputDir=.\Output
OutputBaseFilename=Setup
//====={ Сжатие сетапа }=====\\
InternalCompressLevel=ultra64
Compression=lzma2/ultra64
SolidCompression=true
//====={ Основные файлы сетапа }=====\\
[Files]
Source: Files\logo.bmp; Flags: dontcopy noencryption noencryption
//====={ Картинки модов }=====\\
Source: img_mod\1.bmp; Flags: dontcopy noencryption noencryption
Source: img_mod\2.bmp; Flags: dontcopy noencryption noencryption
Source: img_mod\3.bmp; Flags: dontcopy noencryption noencryption
Source: img_mod\4.bmp; Flags: dontcopy noencryption noencryption
//====={ Выбор языка }=====\\
[Languages]
Name: "eng"; MessagesFile: "compiler:Default.isl"
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"
[code=auto:0]#ifdef UNICODE    #define A "W"#else    #define A "A"#endifconst    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 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;vari: 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
            '1. Прицел.': UndefPic := '1.bmp';
            '2. Дамаг панель.': UndefPic := '2.bmp';
            '2. Звуковой мод звонок при крите модуля.': UndefPic := '3.bmp';
            '3. Zoom.': UndefPic := '4.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...