Показать сообщение отдельно
Старый 09.11.2011, 19:11   #33
leonid
Оператор ЭВМ
 
Регистрация: 01.11.2011
Сообщений: 35
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите исправить ошибку

program lol;

var
i,j,x,y,key,:integer;
S:string;
res:resource;
land_image:array [1..2] of image;
land_array:array [1..30,1..30] of integer;
pers:image;

begin

land_image[1]:=loadimage('/land1.png');
land_image[2]:=loadimage('/land2.png');
for i:=1 to 30 do
for j:=1 to 30 do
land_array [i,j]:=1;
res:=openresource('/map.txt');
for i:=1 to 10 do

begin
S:=readline (res);
land_array[j,i]:=stringtointeger(GetChar(S,j-1));
end;
closeresource (res);
REPEAT

setcolor(255,255,255);
fillrect(0,0,240,320);

for i:=1 to 11 do
for j:=1 to 9 do
begin
drawimage (land_image[land_array[j+,i+]],(j-1+)*30-,(i-1)*30);
end;

drawimage (pers,50,40);
key:=GetKeyPressed;

if keytoaction(key)=GA_UP then
begin
y:=y-1;
end;

if keytoaction(key)=GA_DOWN then
begin
y:=y+1;
end;

if keytoaction(key)=GA_LEFT then
begin
x:=x-1;
end;

if keytoaction(key)=GA_RIGHT then
begin
x:=x+1;
end;

repaint;
delay (20);

UNTIL (GetKeyPressed=KE_KEY0);

end.
Немного упростил под себя. Но при компиляции тычет в строку с "var" и на ту, где рисуется белый прямоугольник на весь экран.
(Offline)
 
Ответить с цитированием