Показать сообщение отдельно
Старый 07.01.2011, 16:11   #75
psih1
Знающий
 
Аватар для psih1
 
Регистрация: 20.03.2010
Сообщений: 271
Написано 16 полезных сообщений
(для 32 пользователей)
Ответ: Lib_game (Game API Support)

Пытаюсь сделать карту из ресурса пока без успешно(((в чем ошибка???
program NewProject;
uses sprite,game,tile;
const
size=4;
var
map:array[0..5,0..5]of string;// исправлено 
res:resource;
x,y:integer;
line:string;

procedure LoadMap;
begin
res
:=OpenResource('/map.txt');
for 
y:=0 to size do
begin
line
:=ReadLine(res);
for 
x:=0 to size do 
map[x,y]:=GetChar(line,x);
end;
CloseResource(res);
end;

begin
game
.init(0);
sprite.init(1);
game.show;
tile.create(sizesize'/tile0.png'15,15);//Тайл один
tile.set_cell(x*15x*15StringToInteger(map[x,y])); //<--------------------Глюк гдето тут
game.refresh;
LoadMap;
delay(20000);
end
__________________
¯¯¯¯\——-/¯¯¯¯ респект любителям BMX
(Offline)
 
Ответить с цитированием