А с числами глюки.

Это все нормально работает
br:=GetPrivateProfileString('Patch','Starting_Map',nil,@filenamebuf,13,'.\patcher.txt');
CopyMemory(@buf[$107ac8],@filenamebuf,br+1);

br:=GetPrivateProfileString('Patch','Starting_Male',nil,@filenamebuf,13,'.\patcher.txt');
CopyMemory(@buf[$ee8e8],@filenamebuf,br+1);

br:=GetPrivateProfileString('Patch','Starting_Female',nil,@filenamebuf,13,'.\patcher.txt');
CopyMemory(@buf[$ee8f0],@filenamebuf,br+1);

А вот где только числа что то нето
br:=GetPrivateProfileString('Patch','Starting_Day',nil,@filenamebuf,13,'.\patcher.txt');
CopyMemory(@buf[$93756],@filenamebuf,br+1);

br:=GetPrivateProfileString('Patch','Starting_Year',nil,@filenamebuf,13,'.\patcher.txt');
CopyMemory(@buf[$9376C],@filenamebuf,br+1);

br:=GetPrivateProfileString('Patch','Starting_Month',nil,@filenamebuf,13,'.\patcher.txt');
CopyMemory(@buf[$93782],@filenamebuf,br+1);

patcher.txt

[Patch]
Starting_Map=V13ENT.MAP
Starting_Male=hmjmps
Starting_Female=hfjmps
Starting_Day=5
Starting_Year=2161
Starting_Month=12

Если задаю числа
Starting_Day=5
Starting_Year=2161
Starting_Month=12
Игра при загрузке на карту вылетает

А если так
Starting_Day=
Starting_Year=2161
Starting_Month=

То год другой 5122

Freeman


Спасибо ,но ты уже сделал патчилку. Я по твоим примерам делаю патчилку, в патчилке осталось сделать лифты, я понял как их там прописать. Почти закончил. Мне просто нужно прописать лифты для мода. Если все получится сегодня выложу новую версию мода.