Скрипт R.G. Игроманы 1.1 (16042014)

[Mailchik]

Пользователь Mailchik разместил новый ресурс:

R.G. Игроманы - Закос под R.G. Игроманы.

Информация:

Автор: [FONT=Arial][B]Mailchik[/B][/FONT]
Автор дизайна: [FONT=Arial][B]Avengerz13[/B][/FONT]​

Описание:

Скрипт как у R.G. Игроманы. В архиве два скрипта: для ISDone и для обычной распаковки файлов посредством Inno Setup.​

Использованные библиотеки:

- botva2
- b2p
-...​

Узнать больше об этом ресурсе...

 

[Shift85]

Баг или нет незнаю точно, но должен быть выбор между Steam и Взломанной версией но ту можно и все снять напроч...

 

[audiofeel]

Баг или нет незнаю точно

да, у меня так же, кстати первый раз работает выбор, но когда "передумаешь" то он начинает "глючить"
и стим у меня стоит на диске D, = не определяет !!!!

Спойлер

 

[sergey3695]

Shift85, audiofeel, да это же закос...ясень пень там могут быть ошибки. А путь не определяет, потому что там и не стоит авто определение (считывание с реестра). Это можно сказать бесплатно предоставленное чужое оформление, не больше, не меньше.

 

[audiofeel]

Mailchik, как сделать второй прогресс бар для "исдон" в твоем скрипте "Закос под R.G. Игроманы."?, не получается у меня

 

[Shift85]

как сделать второй прогресс бар для "исдон" в твоем скрипте "Закос под R.G. Игроманы."?, не получается у меня

А если так попробовать:

ISDoneProgressBar2:=ImgPBCreate2(WizardForm.Handle,ExpandConstant('{tmp}\pbbkg.png'),ExpandConstant('{tmp}\pb.png'),78,270,344,24,3,4,2);

 

[Mailchik]

Пользователь Mailchik обновил ресурс R.G. Игроманы новой записью:

Закос под R.G. Игроманы [16.04.2014]

Исправлены все найденные баги.

Узнать больше об этом обновлении...

 

[audiofeel]

А если так попробовать:

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

function PBProc(h: hWnd; Msg, wParam, lParam: Longint): Longint;
var
  pr, i1, i2: Extended;
  w: integer;
begin
  Result := CallWindowProc(PBOldProc, h, Msg, wParam, lParam);
  if (Msg = $402) and (ISDoneProgressBar1.Position > ISDoneProgressBar1.Min) then begin
    i1 := ISDoneProgressBar1.Position - ISDoneProgressBar1.Min;
    i2 := ISDoneProgressBar1.Max - ISDoneProgressBar1.Min;
    pr := i1 * 100 / i2;
    w := Round(392 * pr / 100);
    ImgSetPosition(ProgressBarImg1, ScaleX(35), ScaleY(296), w, ScaleY(8));
    ImgSetVisiblePart(ProgressBarImg1, ScaleX(0), ScaleY(0), w, ScaleY(8));
    ImgApplyChanges(WizardForm.Handle);
  end;
  if (Msg = $402) and (ISDoneProgressBar2.Position > ISDoneProgressBar2.Min) then begin
    i1 := ISDoneProgressBar2.Position - ISDoneProgressBar2.Min;
    i2 := ISDoneProgressBar2.Max - ISDoneProgressBar2.Min;
    pr := i1 * 100 / i2;
    w := Round(392 * pr / 100);
    ImgSetPosition(ProgressBarImg2, ScaleX(35), ScaleY(195), w, ScaleY(8));
    ImgSetVisiblePart(ProgressBarImg2, ScaleX(0), ScaleY(0), w, ScaleY(8));
    ImgApplyChanges(WizardForm.Handle);
  end;
end;

вот как бы сам Setup.exe, работает правильно, (у меня) и отменял по нескольку раз и ставил и переставлял, вроде все норм ( архив первый это = 1.arc и второй архив это = 2.arc
http://rghost.ru/54285359