Jump to content
Korean Random

Lom

User
  • Posts

    1,010
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by Lom

  1. всем привет. а тут на сайте есть возможность сделать так что бы при появлении новой темы в интересующем разделе ( в настройках если отметить разделы ) появлялось бы оповещение, что в таком то разделе такая то новая тема появилась? или это не реально?
  2. Вкусы у всех разные, на каждый конфиг свой любитель найдется))) Так что делитесь не стесняйтесь))) И конечно спасибо всем)))
  3. this is a working code. I have the same running. need to see all the contents of the mod pack
  4. если гугл переводчик правильно перевёл то это то что тебе нужно https://koreanrandom.com/forum/topic/9050-создание-инсталляторов-для-модпаков-на-базе-inno-setup/?do=findComment&comment=137089
  5. да ему не именно серым надо))) он имеет ввиду если выбран 1 пункт то нельзя выбрать 3 а если выбран 2 то нельзя выбрать 4. Fixed тут не прокатит ведь. а серым он должен становится потому что нельзя уже выбрать)))
  6. А так не? ; Скрипт создан через Мастер Inno Setup Script. ; ИСПОЛЬЗУЙТЕ ДОКУМЕНТАЦИЮ ДЛЯ ПОДРОБНОСТЕЙ ИСПОЛЬЗОВАНИЯ INNO SETUP! #define MyAppName "My Program" #define MyAppVersion "1.5" #define MyAppPublisher "My Company, Inc." #define MyAppURL "http://www.example.com/" #define MyAppExeName "MyProg.exe" [Setup] ; Примечание: Значение AppId идентифицирует это приложение. ; Не используйте одно и тоже значение в разных установках. ; (Для генерации значения GUID, нажмите Инструменты | Генерация GUID.) AppId={{E19D7322-450D-48AC-8AE6-9C0BF2A42CE6} AppName={#MyAppName} AppVersion={#MyAppVersion} ;AppVerName={#MyAppName} {#MyAppVersion} AppPublisher={#MyAppPublisher} AppPublisherURL={#MyAppURL} AppSupportURL={#MyAppURL} AppUpdatesURL={#MyAppURL} DefaultDirName={pf}\{#MyAppName} DefaultGroupName={#MyAppName} OutputBaseFilename=setup Compression=lzma SolidCompression=yes OutputDir=. [Languages] Name: "default"; MessagesFile: "compiler:Default.isl" [Tasks] Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked [Components] Name: Component0; Description: на выбор; Flags: disablenouninstallwarning Name: F\1; Description: ПЕРВЫЙ ВАРИАНТ; Flags: exclusive disablenouninstallwarning Name: F\1\1; Description: Component 1 Name: F\1\2; Description: Component 2 Name: FF\0; Description: ВТОРОЙ ВАРИАНТ; Flags: exclusive disablenouninstallwarning Name: FF\0\1; Description: Component 3 Name: FF\0\2; Description: Component 4 [Files] Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion ; Примечание: Не используйте "Flags: ignoreversion" для системных файлов [Icons] Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}" Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon [Run] Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
  7. ну там же по пунктам выбирать можно будет )) хош выбрал а хош нет. )) а вот на счет размера конечного продукта ты прав. я до сих пор только траки и остовы красил а вчера решил покрасить всё что прога может и почти полтора гектара это уж слишком многовато))) всё в одном в мод-пак не впихнёшь)) можно но... P/S... вот тут на сайте скачал мод - http://wotsite.net/mody-dlya-world-of-tanks/4873-mod-ubitykh-tankov-wot.html и программа эта же там. размер файла и двух метров нет. там белые гусли,остовы и уничтоженные вагоны. сам то же самое выбрал в программе и сделал и у меня опять весит почти 1.5 гигов. так же у меня есть папка spaces ( собственно она и весит стока ) а там что скачал на сайте её нет.
  8. а к этой проге теоретически как то можно прикрутить, чтобы она не только сбитые гусеницы окрашивала? не сбитые есть вариант окрасить? )))
  9. sergy2010 ты понимаешь о чем он ? ))) вот это ты скачивал? - https://bitbucket.org/Kotyarko_O/kmp/downloads/
  10. лучше бы на английском написал )))) так вообще ничего не понятно ))) вот это тебе нужно? #define Patch "0.9.20.1.2" #include "SHFileOperation.iss" [Code] var DeleteRadioButton, MoveRadioButton, NoneRadioButton: TRadioButton; DeleteCashAndLogsCheckBox, DeleteUpdatesCheckBox: TCheckBox; const DeleteDescText = 'Установщик удалит все файлы в папках.'; MoveDescText = 'Установщик сделает резервную копию файлов.'; NoneDescText = 'Установщик не будет ничего трогать.'; function BackupCheck_1(): Boolean; var DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel; begin DeleteRadioButton:=TRadioButton.Create(WizardForm); DeleteRadioButton.SetBounds(0, 120, WizardForm.RunList.Width, 20) DeleteRadioButton.Checked:=True; DeleteRadioButton.Caption:='Удалить моды'; DeleteRadioButton.Parent:=WizardForm.SelectDirPage; DeleteDescLabel:=TLabel.Create(WizardForm); DeleteDescLabel.Parent:=WizardForm.SelectDirPage; DeleteDescLabel.Left:=0; DeleteDescLabel.Top:=DeleteRadioButton.Top + DeleteRadioButton.Height; DeleteDescLabel.Width:=WizardForm.SelectDirPage; DeleteDescLabel.Height:=20; DeleteDescLabel.AutoSize:=False; DeleteDescLabel.Wordwrap:=True; DeleteDescLabel.Caption:=DeleteDescText; MoveRadioButton:=TRadioButton.Create(WizardForm); MoveRadioButton.SetBounds(0, 160, WizardForm.RunList.Width, 20) MoveRadioButton.Checked:=False; MoveRadioButton.Caption:='Сделать резервную копию модов'; MoveRadioButton.Parent:=WizardForm.SelectDirPage; MoveDescLabel:=TLabel.Create(WizardForm); MoveDescLabel.Parent:=WizardForm.SelectDirPage; MoveDescLabel.Left:=0; MoveDescLabel.Top:=MoveRadioButton.Top + MoveRadioButton.Height; MoveDescLabel.Width:=WizardForm.SelectDirPage; MoveDescLabel.Height:=20; MoveDescLabel.AutoSize:=False; MoveDescLabel.Wordwrap:=True; MoveDescLabel.Caption:=MoveDescText; NoneRadioButton:=TRadioButton.Create(WizardForm); NoneRadioButton.SetBounds(0, 200, WizardForm.RunList.Width, 20) NoneRadioButton.Checked:=False; NoneRadioButton.Caption:='Ничего не трогать'; NoneRadioButton.Parent:=WizardForm.SelectDirPage; NoneDescLabel:=TLabel.Create(WizardForm); NoneDescLabel.Parent:=WizardForm.SelectDirPage; NoneDescLabel.Left:=0; NoneDescLabel.Top:=NoneRadioButton.Top + NoneRadioButton.Height; NoneDescLabel.Width:=WizardForm.SelectDirPage; NoneDescLabel.Height:=20; NoneDescLabel.AutoSize:=False; NoneDescLabel.Wordwrap:=True; NoneDescLabel.Caption:=NoneDescText; DeleteCashAndLogsCheckBox:=TCheckBox.Create(WizardForm); DeleteCashAndLogsCheckBox.SetBounds(0, 240, WizardForm.RunList.Width, 20) DeleteCashAndLogsCheckBox.Checked:=True; DeleteCashAndLogsCheckBox.Caption:='Очистить кэш и логи'; DeleteCashAndLogsCheckBox.Parent:=WizardForm.SelectDirPage; DeleteUpdatesCheckBox:=TCheckBox.Create(WizardForm); DeleteUpdatesCheckBox.SetBounds(150, 240, WizardForm.RunList.Width, 20) DeleteUpdatesCheckBox.Checked:=True; DeleteUpdatesCheckBox.Caption:='Очистить папку Updates, освободив место на диске'; DeleteUpdatesCheckBox.Parent:=WizardForm.SelectDirPage; 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}')); DelTree(ExpandConstant('{app}\mods'), True, True, True); CreateDir(ExpandConstant('{app}\mods\{#Patch}')); end; 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}')); MoveDir(ExpandConstant('{app}\mods\'),ExpandConstant('{app}\mods\backup\mods')); CreateDir(ExpandConstant('{app}\mods\{#Patch}')); end; end; function BackupCheck_4(): Boolean; begin If DeleteCashAndLogsCheckBox.Checked then begin DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\account_caches\'), True, True, True); DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\awesomium_cache\'), True, True, True); DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\battle_results\'), True, True, True); DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\clan_cache\'), True, True, True); DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\custom_data\'), True, True, True); DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\dossier_cache\'), True, True, True); DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\messenger_cache\'), True, True, True); DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\tutorial_cache\'), True, True, True); DelTree(ExpandConstant('{userappdata}\wargaming.net\WorldOfTanks\xvm'), True, True, True); end; end; function BackupCheck_5(): Boolean; begin If DeleteUpdatesCheckBox.Checked then begin DelTree(ExpandConstant('{app}\Updates'), True, True, True); CreateDir(ExpandConstant('{app}\Updates')); end; end; procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep = ssInstall then begin BackupCheck_2(); BackupCheck_3(); BackupCheck_4(); BackupCheck_5(); end; end; procedure InitializeWizard1(); begin BackupCheck_1(); end; procedure InitializeWizard2(); begin InitInfo(); end; procedure InitializeWizard(); begin InitializeWizard1(); InitializeWizard2(); end;
  11. #define MyAppName "xxxxxx v. 0.1" And this modpack have updater file and download from 1 server. how can i change this server ?
  12. не смеши))) это всё то, что ты мне делал и помогал делать ))) правда сам код чей я не помню уже )))
  13. всем привет. подскажите а как должны работать замочки на золото и свободный опыт? никогда не включал это дело))) вроде нажал на замок и видно что закрыл но всё равно и окошко св.опыта открывается и на сайт для покупки золота перекидывает.
  14. единственно что после выхода патча перестало работать это файл commonStats. но xZirus вроде всё починил давно уже.
  15. а че там обновлять? вроде всё работает. папки под актуальный патч переименуй просто...
  16. ну как же? ты сделал весьма полезную и нужную программу а тем кто минусит, им ума для этого точно не хватит. надо же как то компенсировать
  17. spoter а где можно достать твой вариант обновлялки в ангаре? ну типа вышла новая версия мода или модпака и т.д. тут в темах искал что то не нашел.
  18. один раз при входе в ангар то что показывает что есть обновление мода не думаю что это проблема. наоборот даже...
×
×
  • Create New...