Beyond Good & Evil

Скрипт Beyond Good & Evil 2.1.5

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

SBalykov

Старожил
Avengerz13,
Молодец. А я пытаюсь понять, что ему надо.
Ни одного скрина не смог открыть ...
 

nizcoz

Участник
I replaced russian for spanish (russian.isl for spanish.isl) in the script. The language selector show English and spanish only. I choose Spanish (before russian) and installer show ???? instead seconds or minutes. And i choose english and work fine.
 
Последнее редактирование:

blacKK

Новичок
vint56, Спасибо, я как понял его просто установить? не удаляю Inno Setup
 

blacKK

Новичок
vint56, И еще вопрос, что тут выбирать?
Стандартный редактор Ansi или Unicode
Расширенный редактор Ansi или Unicode
 

AlexanderSergeev

Новичок
Виталий, извините, что вмешиваюсь в диалог, Сергей же пилил свой скрипт под расширенный юникод компилятор.
Особенности:
- под Inno Setup Compiler 5.5.1.ee2 (u) (build 121216)
 
Последнее редактирование:

vint56

Ветеран
Проверенный
AlexanderSergeev, все правильно Beyond Good & Evil 2.1.3 Final он писался для юникода но он написал что он новичок в этом деле потому я посоветовал ansi версию
но для скрипта нужен расширенный редактор unicode а ошибка что в ansi не ту DoubleBuffered мой косяк
 

sergey3695

Ветеран
Модератор
sergey3695, не исправил ).
Код:
procedure DeleteLink;
var
  str,str2,str3: string;
  FSR: TFindRec;
begin
if FindFirst(ExpandConstant('{userdesktop}\*.lnk'), FSR) then begin
try
repeat
  str:= FSR.Name;
  str2:= GetFileWorkingDirectoryFromLink(ExpandConstant('{userdesktop}\'+ str));
  str3:= ExpandConstant('{app}');
if Pos(str3, str2)>0 then
begin
  Delete(str2,Pos(str3, str2),Length(str3));
if DirExists(ExpandConstant(AddBackslash(str3)+AddBackslash(str2))) then
  DeleteFile(ExpandConstant('{userdesktop}\'+ str));
end;
until not FindNext(FSR);
finally
  FindClose(FSR);
end;
end;
end;
пример в faq обновил.
понял в чем наконец-то ошибка. банальная DirExists все решает. :facepalm:
 
Последнее редактирование:

sergey3695

Ветеран
Модератор
Последнее редактирование:

sergey3695

Ветеран
Модератор
забыл кинуть пример в скрипт
Код:
// Костыль. Без этого не подгружаются нужные библиотеки
if not SetEnvironmentVariable('PATH', ExpandConstant('{tmp}')) then MsgBox(SysErrorMessage(DLLGetLastError), mbError, MB_OK);
//
if not SelectDisk('Data_Levels.bin',1) then break;
if not ISArcExtract (0,0, PathSd+'Data_Levels.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
if not IS7ZipExtract(0,0, ExpandConstant('{app}\Game\Levels.pa'), ExpandConstant('{app}\Game'), true, '') then break;
if not ISArcExtract (0,0, PathSd+'Data_Objects.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
if not IS7ZipExtract(0,0, ExpandConstant('{app}\Game\Objects.pa'), ExpandConstant('{app}\Game'), true, '') then break;
if not ISArcExtract (0,0, PathSd+'Data_LowSpec.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
if not IS7ZipExtract(0,0, ExpandConstant('{app}\Game\LowSpec.pa'), ExpandConstant('{app}\Game'), true, '') then break;
if not ISArcExtract (0,0, PathSd+'Data_Animations.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
if not IS7ZipExtract(0,0, ExpandConstant('{app}\Game\Animations.pa'), ExpandConstant('{app}\Game'), true, '') then break;
if not ISArcExtract (0,0, PathSd+'Data_GameData.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
if not IS7ZipExtract(0,0, ExpandConstant('{app}\Game\GameData.pa'), ExpandConstant('{app}\Game'), true, '') then break;
if not ISArcExtract (0,0, PathSd+'Data_Textures.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
if not IS7ZipExtract(0,0, ExpandConstant('{app}\Game\Textures.pa'), ExpandConstant('{app}\Game'), true, '') then break;
if not ISArcExtract (0,0, PathSd+'Data_Music.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0,0, PathSd+'Data_Shader.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0,0, PathSd+'Data_Sounds.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0,0, PathSd+'Data_Video.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0,0, PathSd+'Data_ZPatch1.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0,0, PathSd+'Data.bin', ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract (0,0, PathSd+'Data_Localized.bin', ExpandConstant('{app}\Game'), '', false, '', '', ExpandConstant('{app}\Game'), notPCFonFLY {PCFonFLY}) then break;
  RePlaceTextinFile(ExpandConstant('{userdocs}\My Games\Crysis\game.cfg'),'r_Width', 'r_Width'+' ',' '+inttostr(screen.Width));
  RePlaceTextinFile(ExpandConstant('{userdocs}\My Games\Crysis\game.cfg'),'r_Height', 'r_Height'+' ',' '+inttostr(screen.Height));
// Russian
if Russian then
begin
if not FileCopy(ExpandConstant('{app}\Game\Localized\Russian.lng'),ExpandConstant('{app}\Game\Localized\Default.lng'),True) then break;
end else begin
if not FileCopy(ExpandConstant('{app}\Game\Localized\English.lng'),ExpandConstant('{app}\Game\Localized\Default.lng'),True) then break;
end;
 

agent555

Участник
sergey3695, а нет желания добавить проверку сумм? К примеру как у каталистов (чтобы проверял целостность установочных файлов, но не установленной игры/ как у тех же каталистов) Чтобы потом вероломно скомуниздить из скрипта xD
 
Сверху