Помощь - Поиск - Пользователи - Календарь
Полная версия: игра змейка
Форум «Всё о Паскале» > Pascal, Object Pascal > Написание игр
tatianka
Проблема с написанием модуля с динамическими данными , помогите пожалуйста)

исходный код программы.
код (Показать/Скрыть)

Не забываем заключать исходный код в соответствующие теги!
APAL
Код
...
if (keypressed) then
begin
   key:=readkey;
...

Желательно добавить: if Key=#0 then Key:=ReadKey;
tatianka
Модуль к проге, компилируется, но не дружит с главной, помогите плиз)

Unit MyMod3;
interface
uses crt;
const maxwidth =10;
type
spoint=record
x:integer;
y:integer;
end;
snakebody=array [1..maxwidth] of spoint;
function checknext(var s:snakebody; width:byte; x,y:integer):boolean;
procedure movesnake (var nx,ny:integer; x,y:integer; e:spoint; s:snakebody; width:byte);
implementation

function checknext;
var
isset:boolean;
i:integer;
begin
isset:=true;
for i:=1 to width do
begin
if (x=s[i].x) and (y=s[i].y) then
isset:=false;
end;end;

procedure movesnake;
var
i:integer;
begin
for i:=1 to width do
begin
s[i]:=s[i+1];
end;
s[width].x:=x;
s[width].y:=y;
if (x=e.x) and (y=e.y) then
begin
width:=width+1;
s[width].x:=x;
s[width].y:=y;
end;
readln;
end;end.

APAL
tatianka, для кого я в первом Вашем посте делал красную надпись?
Это уже просто неуважение!
К тому же Вы не пишите подробностей - что значит "не дружит", что выдает при компиляции/запуске, текст ошибки? За Вас тут никто не будет разбираться в чужом коде - хотите помощи? - укажите в чем нужна помощь, а не отделывайтесь общими фразами.

Тему закрываю!
Если создадите новую тему, надеюсь она будет оформлена в соответствии с правилами оформления и будет содержать более конструктивные вопросы..., иначе ее (тему) постигнет та же участь.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.