R.G. Игроманы

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

Нет прав для скачивания

Mailchik

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

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

Информация:

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

Использованные библиотеки:
- botva2
- b2p
-...​
Узнать больше об этом ресурсе...
 

Shift85

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

sergey3695

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

audiofeel

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

Shift85

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

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

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
 
Сверху