Как правильно объявить тип record
здесь что оно по-другому делается?
Неправильно
  |
\/
type
pers = record

AlexPrihodko, type
pers = record
end;

Вот исходник из сайта tiger1025.com :

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. program exColl;
2. const ww=20; // Ширина блоков
3. type
4.   TPers = record
5.     x,y: integer;
6.     sx,sy: integer;
7.     dx,dy: integer;
8.   end;
9.  
10. var
11.   Map: array[1..10,1..10] of boolean; // Проходимые/непроходимые блоки
12.   block,pers: image;
13.   per: TPers;
14.   k: integer;
15. procedure DrawMap;
16. var i,j: integer;
17. begin
18.   for i:=1 to 10 do
19.   for j:=1 to 10 do
20.   if Map[i,j] then DrawImage(block,(i-1)*24,(j-1)*24);
21. end;
22. // Функция проверяющая не пустой ли блок
23. // Координаты фактические, по пикселям
24. function isBlock(x,y: integer): boolean;
25. var dsx,dsy: integer;
26. begin
27.   // Преобразование в блоковые координаты
28.   dsx:=x div 24 + 1;
29.   dsy:=y div 24 + 1;
30.   // Результат
31.   isBlock:=Map[dsx,dsy];
32. end;
33. procedure Phys;
34. begin
35.   // Определение движения вниз
36.   per.sy:=per.sy+1;
37.   // Ограничение скорости
38.   if per.sy>8 then per.sy:=8;
39.   if isBlock(per.x,per.y+per.sy) then per.sy:=0; // Движение по вертикали
40.   if isBlock(per.x-10,per.y) and (per.sx<0) then per.sx:=0; // Движение по горизонтали влево
41.   if isBlock(per.x+10,per.y) and (per.sx>0) then per.sx:=0; // Движение по горизонтали вправо
42.   // Перемещение в соответствии со скоростью
43.   per.y:=per.y+per.sy;
44.   per.x:=per.x+per.sx;
45. end;
46. procedure Main;
47. var key: integer;
48. begin
49.   repeat
50.     SetColor(255,255,255); FillRect(0,0,getWidth,getHeight);
51.     DrawMap;
52.     DrawImage(pers,per.x-8,per.y-16);
53.     repaint;
54.     delay(20);
55.     Phys;
56.     key:=keyToAction(getKeyPressed);
57.     // Прыжок, если стоим на блоке то прыгаем
58.     if (key=GA_UP) and (isBlock(per.x,per.y+1)) then per.sy:=-11;
59.     per.sx:=0;
60.     // Движение влево
61.     if (key=GA_LEFT) then per.sx:=-3;
62.     // Движение вправо
63.     if (key=GA_RIGHT) then per.sx:=3;
64.   until false;
65. end;
66. procedure Init;
67. begin
68.   // Тут карту заполняем
69.   for k:=1 to 10 do begin Map[k,10]:=true; Map[1,k]:=true; Map[10,k]:=true; end;
70.   Map[5,8]:=true; Map[6,7]:=true;
71.   Map[2,3]:=true; Map[3,3]:=true;
72.   // Ставим персонажа в клетку 2х2
73.   per.x:=48;
74.   per.y:=24;
75. end;
76. begin
77.   block:=loadImage('/block.png');
78.   pers:=loadImage('/pers.png');
79.   Init;
80.   main;
81. end.

Ошибка такова в MobilePascal:
''= пропущено, но String найдено возле TPers на линии 4'' - помогите, я буду очень благодарен вам)

AlexPrihodko, Ты немного языки попутал. Мобпаскаль и мобайл - разные вещи.

AlexPrihodko, че рескрафт спереть хочешь?

Я этой программой пользуюсь(версия 1.7).. На нокиа 200 просто удобно писать
просто написал мобайл вместо моб.. Кстт здесь нельзя написать например, так:
bla: array[0..9] of integer; а нужно вот:
  bla: array[9] of integer;
(сам же юзал)
Думал хоть здесь помогут.
Чуть-чуть они всё-таки разные(моб и мидлет паскали)..

о вспомнил.

Alexandr, Я пробовал, изучал всего понемногу(меню, карта, управление, звук, правда с ресурсами не до конца разобрался..) и вот хочу сделать что-то наподобии рпг..

Мне просто проходимые/непроходимые блоки жизненно важны)

AlexPrihodko, че реальные проги компилит? Думал, нереально еще что-то писать на нем