im := LoadImage('/ter_skin1.png');
for i := 0 to 3 do begin
player[i] := imagefromimage(im,27 * i,0,27,27);
end;
im := LoadImage('/map.png');
for j := 0 to 5 do begin
pic[j] := imagefromimage(im,32 * j,0,32,32);
end;
dir := 0;
X := 50;
Y := 50;
res := OpenResource('/map.txt');
for ky := 0 to 9 do begin
line := ReadLine(res);
for kx := 0 to 19 do begin
map[kx,ky] := StringToInteger(GetChar(line,kx));
end;
end;
CloseResource(res);
а если так то все классно работает.
немного аккуратности. Сток в файле map.txt 10 а цикл на 20
да еще внутри 20 на каждую.
с удвольствием погоняю в эту игру. Похоже надо сокеты написать. по сети будет весело