Реализация скриптов в игре.

[VintProg]

фоновое изображение

[Вадим Буренков]

Должно быть .bmp изображение с разрешением не меньше 640x480 (если больше то влезет не полностью). Кидаешь его в Data/images и в скрипте main.gsc находишь и изменяешь строчку:

0012: set_background @Data/Images/твой файл.bmp#

[VintProg]

А все разобрался я упокавал в rar так как изоброжение большое:
http://programmersforum.ru/attachmen...1&d=1247238819

[Beermonza]

Да тут чатится народ )))
А что лимит 10, это уже серьезно грузит систему? ...делайте 255 на лимит, остальное зависит от диагноза скриптописателя.

[VintProg]

Должно быть .bmp изображение с разрешением не меньше 640x480 (если больше то влезет не полностью). Кидаешь его в Data/images и в скрипте main.gsc находишь и изменяешь строчку:

Да не это, скачай rar_fon_moi.rar и увидеш.

[VintProg]

Вобще моя цель написать 3d -игру типа S.T.A.L.K.E.R на Delphi.

[Shadow_1329]

Так теперь работает?

Нет не работает. Вот полный код функции и текстового файла.

procedure DoScript(Scriptname:string);
var f:textFile;
Str:array[1..200] of String;
Nummer:array[1..200] of integer;
MaxScripts:integer;
c,v:byte;
Ident,Nmr,Comnd:string;
begin
AssignFile(f,'../Scripts/'+Scriptname+'.txt');
Reset(f);
readln(f,MaxScripts);//читаем кол-во строк
for c:=1 to MaxScripts do//затем читаем строки
begin
readln(f,Str[c]);
 if Str[c]= 'AddItem' then//если строка с таким символом то делаем так
 begin
 Ident:=GetFromString('$','%',Str[c]);//Читаем из строки Id
 Nmr:=GetFromString('^','&',Str[c]);//Читаем кол-во
 AddItem(StrToInt(Ident),StrToInt(Nmr));//Выполняем команду
 end;
end;
CloseFile(f);
end;

Вот код в текстовом файле
1//кол=во строк
AddItem_$1%_^1&//Строка скрипта Где AddItem-Команда,$1%-Id,^1&-кол-во

[Вадим Буренков]

Нет не работает.

Я тебе завтра выложу пример работы GetFromString.

[VintProg]

Вадим
За сколько ты времени написал игру?

[Shadow_1329]

Уже не надо Вадим. Я подумал и разобрался! Но все равно спасибо!