Перейти к содержимому
Korean Random

DKRUBEN

Пользователь
  • Публикации

    124
  • Зарегистрирован

  • Посещение

Репутация

12 Нуп

О DKRUBEN

  • День рождения 01.06.1988

Основная информация

  • Пол
    Не определилось ;)

Контакты

  • Ник
    Drift King's
  • Сервер WoT
    RU / CIS
    NA
    EU

Посетители профиля

1 465 просмотров профиля
  1. @alex_alex it's easy to know why, one of the two mods is not working with the updated values table.
  2. DKRUBEN

    Гонки в World of Tanks | Увлекательный мод Гонок WoT

    That's cool. Will you release this mod?
  3. @Kotyarko_O in your code, its possible add some function for download components and extract them to game pach. I see a lot of examples but didn't work.
  4. @Kotyarko_O , hello again, I got the idea of @night_dragon_on , made it work ... Code: //====================[MCTCREATOR TEST]=====================// Source: "MODS\ComponetsPage\MCTCREATOR\*.cfg"; DestDir: "{app}\_AuthorName_\MCTCreator"; Flags: ignoreversion recursesubdirs createallsubdirs; BeforeInstall: SetInstallStatus('Extart MTCreator...'); Check: ComponentsChecked('Changing game texture (MCTCreator):'); Source: "MODS\ComponetsPage\MCTCREATOR\7za.exe"; DestDir: "{app}\_AuthorName_\MCTCreator"; Flags: ignoreversion recursesubdirs createallsubdirs; BeforeInstall: SetInstallStatus('Extart MTCreator...'); Check: ComponentsChecked('Changing game texture (MCTCreator):'); Source: "MODS\ComponetsPage\MCTCREATOR\MCTCreator.exe"; DestDir: "{app}\_AuthorName_\MCTCreator"; Flags: ignoreversion recursesubdirs createallsubdirs; BeforeInstall: SetInstallStatus('Extart MTCreator...'); AfterInstall: MCTCreator(); Check: ComponentsChecked('Changing game texture (MCTCreator):'); /////////////// //Test Proced// /////////////// procedure TextureCreator(); var WotPath, TempPath, Params: String; ResultCode: Integer; begin if FileExists(ExpandConstant('{app}\_AuthorName_\MCTCreator\MCTCreator.exe')) then begin WotPath:= ExpandConstant('{app}'); TempPath:= ExpandConstant('{app}\_AuthorName_\MCTCreator\texture\res\'); Params:= '/wot-path "' + WotPath + '" /mods-path "' + TempPath + '" /operational-mode=0'; if ComponentsChecked('Change the texture of destroyed tank') then Params := Params + ' /DPT-mod "#2AAAFF" /ITS-mod "#2AAAFF"'; if ComponentsChecked('Change the texture of the downed track') then Params := Params + ' /CT-mod "#D9D9D9"'; Exec(ExpandConstant('{app}\_AuthorName_\MCTCreator\MCTCreator.exe'), Params, ExpandConstant('{app}\_AuthorName_\MCTCreator'), SW_SHOW, ewWaitUntilTerminated, ResultCode); if ResultCode <> 0 then MsgBox('Unexpected error.' + #13#10 + 'Result code: ' + IntToStr(ResultCode) + '.', mbInformation, MB_OK); end else MsgBox('MCTCreator files doesn`t exists.' + #13#10 + 'Please restart the installer.', mbInformation, MB_OK); end; procedure PackageCreator(); var ModsPath, TempPath, Params: String; ResultCode: Integer; begin if FileExists(ExpandConstant('{app}\_AuthorName_\MCTCreator\7za.exe')) then begin ModsPath:= ExpandConstant('{app}\mods\{#Patch}\_AuthorName_\crash_texture.wotmod'); TempPath:= ExpandConstant('{app}\_AuthorName_\MCTCreator\texture\*'); Params:= 'a -tzip -ssw -mx0 -r0 "' + ModsPath + '" "' + TempPath + '"'; Exec(ExpandConstant('{app}\_AuthorName_\MCTCreator\7za.exe'), Params, ExpandConstant('{app}\_AuthorName_\MCTCreator'), SW_HIDE, ewWaitUntilTerminated, ResultCode); if ResultCode <> 0 then MsgBox('Unexpected error.' + #13#10 + 'Result code: ' + IntToStr(ResultCode) + '.', mbInformation, MB_OK); end else MsgBox('Files of the utility "MCTCreator" were not found.' + #13#10 + 'Please restart the installer.', mbInformation, MB_OK); end; procedure MCTCreator(); begin if ComponentsChecked('Change the texture of destroyed tank') or ComponentsChecked('Change the texture of the downed track') then TextureCreator(); PackageCreator(); DelTree(ExpandConstant('{app}\_AuthorName_\MCTCreator'), true, true, true); end; ///////////////
  5. @Kotyarko_O , I'll send all the code to you, by private message.
  6. @Kotyarko_O , thats are the msn i ricive. Nova Imagem de Mapa de Bits.bmp @Kotyarko_O , i try this Procedure MCTCreatorLaunch(); var ResCode: Integer; Params: String; begin ResCode := 666; if FileExists(ExpandConstant('{app}\Driftkings\MCTCreator\MCTCreator.exe')) then begin Params := (ExpandConstant('/wot-path "{app}"') + ('/operational-mode=0')); if IsComponentSelected('Change the texture of destroyed equipment') then Params := Params + '/DPT-mod "FFFFFF"'; if IsComponentSelected('Change the texture of the downed track/tank') then Params := Params + '/CT-mod "FFFFFF"'; Exec('MCTCreator.exe', Params, ExpandConstant('{app}\Driftkings\MCTCreator'), SW_SHOW, ewWaitUntilTerminated, ResCode); if ResCode <> 0 then MsgBoxEx(WizardForm.Handle, 'Unexpected error.' + #13#10 + 'Result code: ' + IntToStr(ResCode) + '.', '{#__FILE__}: {#__LINE__}', MB_OK or MB_ICONERROR, 0, 0); end else MsgBoxEx(WizardForm.Handle, 'MCTCreator files doesn`t exists.', '{#__FILE__}: {#__LINE__}', MB_OK or MB_ICONERROR, 0, 0); end; but same error
  7. @Kotyarko_O i don't have anything problem in expose the Project, in true, its your work and dont my... i just rework them... im soo happy for you expose your work and help guys like me #noobs @Kotyarko_O , script link: http://www.mediafire.com/file/n7h8ra14z53i0o8/script.rar/file
×