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

    [1.23.0.0] ✯Финальная статистика и интерфейс от xZirus✯

    in Mods and Software

    Posted

    Привет ЛОМ!!!Нашел где подложку карусели прозрачной сделать как на твоем рисунке?

    Не могу найти где она находится,xvm не пользуюсь!

     

    привет. если я правильно понял то это только в хвм делается! точнее я смог только в хвм сделать))   так что люди добрые кто знает по теме отпишитесь))) 

    • Upvote 1

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

    in Modding General Discussion

    Posted · Edited by ЛОМ

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

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

     

    [Files]
Source: "F:\А ДЛЯ СБОРКИ\ЧИТЫ И МОДЫ\46а Аим Lportii\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\46;
Source: "F:\А ДЛЯ СБОРКИ\ЧИТЫ И МОДЫ\47а Aим Bot Ogre Ninja\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\47;
Source: "F:\А ДЛЯ СБОРКИ\ЧИТЫ И МОДЫ\48а Аим САЕ 23\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\48;
Source: "F:\А ДЛЯ СБОРКИ\ЧИТЫ И МОДЫ\49а панель повреждений_STL1te  Metallist95\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\49;
Source: "F:\А ДЛЯ СБОРКИ\ЧИТЫ И МОДЫ\50а панель повреждений_Gambiter\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\50;
Source: "F:\А ДЛЯ СБОРКИ\ЧИТЫ И МОДЫ\51а прицел белый\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\51;
Source: "F:\А ДЛЯ СБОРКИ\ЧИТЫ И МОДЫ\52а прицел-Jimbo\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\52;
Source: "F:\А ДЛЯ СБОРКИ\ЧИТЫ И МОДЫ\24а Оленемер\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\24;





 // как тут ниже это так надо прописывать для второй стрницы...
Source: "F:\А ДЛЯ СБОРКИ\ЧИТЫ И МОДЫ\4а Менеджер аккаунтов\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsComponentsForm2(1)
Source: "F:\А ДЛЯ СБОРКИ\ЧИТЫ И МОДЫ\12а круг белый по попаданию без засвета\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: IsComponentsForm2(2)




[code]

var
  ComponentsPage2: TWizardPage;
  SelectComponentsLabel2: TNewStaticText;
  ComponentsList2: TNewCheckListBox;

procedure ComponentsForm2;
begin
  ComponentsPage2 := CreateCustomPage(wpSelectComponents, 'ВТОРАЯ СТРАНИЦА ПОСЛЕ КОМПОНЕНТОВ', SetupMessage(msgSelectComponentsDesc));
//========================================================================\\
  SelectComponentsLabel2 := TNewStaticText.Create(WizardForm);
  with SelectComponentsLabel2 do
  begin
    Parent := ComponentsPage2.Surface;
    SetBounds(WizardForm.SelectComponentsLabel.Left, WizardForm.SelectComponentsLabel.Top, WizardForm.SelectComponentsLabel.width, WizardForm.SelectComponentsLabel.height);
    AutoSize := False;
    WordWrap := True;
    Caption := SetupMessage(msgSelectComponentsLabel2);
  end;
//========================================================================\\
  ComponentsList2 := TNewCheckListBox.Create(WizardForm);
  with ComponentsList2 do
  begin
    Parent := ComponentsPage2.Surface;
    SetBounds(WizardForm.ComponentsList.Left, WizardForm.ComponentsList.Top, WizardForm.ComponentsList.width, WizardForm.ComponentsList.height);

    AddCheckBox('ЧИТЫ И МОДЫ', '', 0, False, True, False, True, nil);            //0

    AddCheckBox('Менеджер аккаунтов', '', 1, False, True, False, True, nil); //1
    AddCheckBox('ПОпадание беззасвета', '', 1, False, True, False, True, nil); //2
  end;
end;

function IsComponentsForm2(CompIndex: Integer): Boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 0 to ComponentsList2.ItemCount - 1 do
  begin
    if CompIndex <= (ComponentsList2.ItemCount - 1) then
      Result := ComponentsList2.Checked[CompIndex];
  end;
end;







procedure InitializeWizard();
begin
  RedesignWizardForm;
  ComponentsForm2;

end;
end;






// и удаляешь название модов из секции [Components] а то они будут и на первой и на второй странице показываться))) как то так )) вроде...))) 

     

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

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

    in Modding General Discussion

    Posted · Edited by ЛОМ

    Толку от этого кода в расширенной версии нет. Он не работает. Тык!

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

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

    in Modding General Discussion

    Posted

    Функцию CheckPassword можешь удалить.

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

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

    in Modding General Discussion

    Posted 

    #define WotVersion "0.9.16"
#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\{#WotVersion}'), True, True, True);
  DelTree(ExpandConstant('{app}\res_mods\configs'), True, True, True);
  DelTree(ExpandConstant('{app}\res_mods\mods'), True, True, True);
  CreateDir(ExpandConstant('{app}\res_mods\{#WotVersion}'));
end;
end;

function BackupCheck_3(): Boolean;
begin
  If MoveRadioButton.Checked then
begin
  MoveDir(ExpandConstant('{app}\res_mods\{#WotVersion}\'),ExpandConstant('{app}\res_mods\backup\{#WotVersion}'));
  MoveDir(ExpandConstant('{app}\res_mods\configs\'),ExpandConstant('{app}\res_mods\backup\configs'));
  MoveDir(ExpandConstant('{app}\res_mods\mods\'),ExpandConstant('{app}\res_mods\backup\mods'));
  CreateDir(ExpandConstant('{app}\res_mods\{#WotVersion}'));
  DelTree(ExpandConstant('{app}\res_mods\configs'), True, True, True);
  DelTree(ExpandConstant('{app}\res_mods\mods'), True, True, True);
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\battle_results'), 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\tutorial_cache'), True, True, True);
  DeleteFile(ExpandConstant('{app}\python.log'));
  DeleteFile(ExpandConstant('{app}\xvm.log'));
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;

#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 '[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';


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 + 390), 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.Отражение броней(unKnown_bot).': UndefPic := '1-Забл броней урон.bmp';
'2.Радар (тылы).': UndefPic := 'Радар.bmp';
'3.Командирская камера (koshnaranek).': UndefPic := 'Командирская камера.bmp';
'4.Таймер сведения орудия в бою (Ekspoint).': UndefPic := 'таймер сведения.bmp';
'5.Винтик.': UndefPic := 'винтик.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 InitializeWizard2();
begin
InitInfo();
end;

procedure InitializeWizard();
begin
 InitializeWizard1();
 InitializeWizard2();
end; 

    а вот за этот скрипт ОГРОМНОЕ СПАСИБО!!! реально в человеческом виде а не как у меня)))) 

    • Upvote 1

    [1.23.0.0] ✯Финальная статистика и интерфейс от xZirus✯

    in Mods and Software

    Posted

    во флешке карусели, так же заменяй картинки фона на прозрачные

    да я вроде и сделал так.  там есть две флешки одна   carousels.swf  а другая   TankCarousel.swf  я именно в  carousels.swf   сделал прозрачными все три картинки но все равно прозрачной подложка не стала. может не там? или я что то как обычно не так делаю))) 

    • Upvote 1

    [1.23.0.0] ✯Финальная статистика и интерфейс от xZirus✯

    in Mods and Software

    Posted

    Вот спасибо вам большое что помогли,то что надо,всего вам наилучшего. Просто 1й раз пробовал это делать,там надо понять еще  как делать, 

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

    [1.23.0.0] ✯Финальная статистика и интерфейс от xZirus✯

    in Mods and Software

    Posted

    attachicon.gif111.rarРебят,всем доброго дня,конечно не в тему будет,хотя какртинка логина заинтересовала вчера тоже почему не на полный экран,у меня также, вот и мониторю тему.

    Можно вас попросить о помощи,если кому не трудно будет,на картинках сетки перекрасить,в голубой цвет, сейчас черные,и плохо видно. Сам пытался пайнтом делать, сетки красятся,но сама картинка черная полностью получается,видать руки у меня не оттуда растут 

    вроде получилось)))  

    111.rar

    [1.23.0.0] ✯Финальная статистика и интерфейс от xZirus✯

    in Mods and Software

    Posted · Edited by ЛОМ

    Yureech, on 12 Nov 2016 - 00:26, said:
    Посмотри какого размера оригинальная картинка, и сделай такой же

    ну края черными это так и так приходится делать к сожалению))) ну и фиг с ним ))  вот держи)) 

     

    logos.rar

    [1.23.0.0] ✯Финальная статистика и интерфейс от xZirus✯

    in Mods and Software

    Posted · Edited by ЛОМ

    Посмотри какого размера оригинальная картинка, и сделай такой же

    оригинал 1280х800. сделал так,все равно на весь экран не ставит. хоть какой размер не делай всегда в одной и тойже рамке он как я показал на скрине выше(  а вот те картинки что идут с названиями  " back_4_without_sparks "  и тд. вот они как бы нормально становятся почти на весь экран, границу тоже желтым отметил( ниче не понимаю

    post-37077-0-89582100-1478900486_thumb.png

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

    in Modding General Discussion

    Posted

    не поверишь я не знаю как  на компе делать скриншоты  или прога нужна

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

    [1.23.0.0] ✯Финальная статистика и интерфейс от xZirus✯

    in Mods and Software

    Posted · Edited by ЛОМ

    привет усем)) подскажите пожалуйста а возможно сделать так чтобы картинка что я ставлю фоном  ( я про картинку  __login_bg.png    из папки\maps\login )  становилась на весь экран? сама картинка размером 1920х1080 ,  экран такого же размера. но все равно под экран не ложится! всегда вот так как на фото выходит. границу картинки обвёл желтым цветом!

    post-37077-0-84196800-1478887894_thumb.png

×
×
  • Create New...