Jump to content
Korean Random

alexxx300

User
 View Profile  See their activity

  • Content Count

    16

  • Joined

  • Last visited

Posts posted by alexxx300

  2. Posted

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


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

  3. Posted

    Большущая просьба отдельно статистику и Ясен Красен


    Уважаемый NooBooL как насчёт примитивного инсталятора модов с возможностью выбора каждого мода по отдельности?забабахать в принципе не трудно,немного муторно но за то удобно для пользователей.

  6. Posted

    при установке мода Ясен красен не показывает картинку с надписью Победа Поражение Ничья,сообщения в чате и после боя цветные как и положено только без картинки,как сделать чтобы и картинки были?Иконки на месте я проверял.Может я какой файл забыл закинуть но это врятли

  7. Posted

    Ну или так... но учитывая что там 1 файл - проще было закинуть в res )) Хотя Вы правы, там той папки полтора мегабайта... так что всю папку текст в рес_модс дабы избежать проблем с микрообновлениями ))

    Просто не все люди в курсе что при установке текстовых модов нужно предварительно скопировать всю папку text из папки res в res_mods версия игры,и так же поступать со звуковыми модами.предварительно копировать папку audio из папки res в res_mods версия игры.

    при установке мода Ясен красен не показывает картинку с надписью Победа Поражение Ничья,сообщения в чате и после боя цветные как и положено только без картинки.

  8. Posted

    alexxx300, дорогой товарищ, тут в теме большая часть кода написана мной. Кто ещё не в курсе? Или до того тугой, что не в состоянии пролистать 13 страниц темы?

    Начинай ты что хочешь, только вот и свои мозги в голове нужно иметь.

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

    • Upvote 1

  9. Posted

    Зачем начинать, если ты "особо одарённый"? База знаний нужна для этого хоть какая-то... Тогда бы и вопросы не задавались.

    Я не у тебя спросил,не можешь ответить.тогда не пиши,и я в состоянии сам решить ,что мне начинать,а что нет.Эта тема создана чтобы помочь людям освоить создание инсталяторов.

    • Downvote 1

  11. Posted

    Скачаю посмотрю,спасибо


     Значит, из всей темы ты обращаешь внимание только на шапку?

    Здесь пример с картинками.

    Скачал,и возник вопрос,катинки в папке img_mod соответствуют номеру мода в Components?Например в компонентах первым прописан мод прицел.значит картинка 1.BMP в папке img_mod будет соответствовать моду прицел и так далее по номерам модов,так или нет?

  12. Posted

    Что имеется ввиду, под скриптом Components? Скрипт с вынесенными отдельно от основного скрипта блоками Types, Components, Files?

    Ну на первой странице в шапке есть образец инсталятора,там скрипт Components со списком файлов куда и что ставить.вот я и спрашиваю как к тому скрипту добавить чтобы при выборе мода показывало картинку,скачай из шапки ,посмотри так понятней тебе будет,про что я говорю.

  13. Posted

    Received Damage Announcer v2.0 (0.9.0)

    http://forum.worldoftanks.eu/index.php?/topic/299941-received-damage-announcer-v20-090/

    Жду обновления! :ok:

    А что тут ждать?Возьми файл vehicle_damage.json из версии для 0.8.11 замени его и всё)),Файл vehicle.PYC из английской версии будет а конфиг уже на русском.всё работает отлично,проверено

    • Upvote 1

  14. Posted

    Проверь куда они устанавливаются...

     

    P.S.

    Вот еще скрипт добавляющий картинку к компонентам...

    При наведении появляется картинка:

    attachicon.gifБез имени-2.png

     

    [Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
Compression=none
AppId=TheBestAppId
DisableWelcomePage=yes
DisableFinishedPage=yes
DisableDirPage=yes
DisableReadyPage=yes


[Components]
Name: hl2; Description: Half-Life 2; Flags: disablenouninstallwarning
Name: hl2\ru; Description: Russian; Flags: disablenouninstallwarning exclusive
Name: hl2\en; Description: English; Flags: disablenouninstallwarning exclusive

Name: ep1; Description: Half-Life 2 Episode One; Flags: disablenouninstallwarning
Name: ep1\ru; Description: Russian; Flags: disablenouninstallwarning exclusive
Name: ep1\en; Description: English; Flags: disablenouninstallwarning exclusive

Name: ep2; Description: Half-Life 2 Episode Two; Flags: disablenouninstallwarning
Name: ep2\ru; Description: Russian; Flags: disablenouninstallwarning exclusive
Name: ep2\en; Description: English; Flags: disablenouninstallwarning exclusive

Name: portal; Description: Portal; Flags: disablenouninstallwarning
Name: portal\ru; Description: Russian; Flags: disablenouninstallwarning exclusive
Name: portal\en; Description: English; Flags: disablenouninstallwarning exclusive


[Files]
Source: Wasteland_Scanner_con.bmp; Flags: dontcopy nocompression
Source: Strider_early2.bmp; Flags: dontcopy nocompression
Source: Cremator_poster.bmp; Flags: dontcopy nocompression
Source: Portal.bmp; Flags: dontcopy nocompression


[code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

const
    UNDEF_INDEX = -777;
    ALPHA_BLEND_LEVEL = 128; // 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 + 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
            'Half-Life 2': UndefPic := 'Wasteland_Scanner_con.bmp';
            'Half-Life 2 Episode One': UndefPic := 'Strider_early2.bmp';
            'Half-Life 2 Episode Two': UndefPic := 'Cremator_poster.bmp';
            'Portal': UndefPic := 'Portal.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();
end;

     

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

  16. Posted

    Хочу установить себе из вашей сборки статистику за сессию.подскажите какие файлы мне закинуть?И возможна ли работа статистики со старым конфигуратором из 0.8.10?

×
×
  • Create New...