Ответ: Помогите доделать игру!MidletPascal.
 

Ну у меня такой принцип:некий мужик сверху кидаецо всякими хернями(ну типа ящики,бомбы и т.д.).Эти херни надо ловить некой платформой,а если поймал то надо вызвать процедуру,которая кидает другой предмет с другой координатой.


if (q>x) and (q<(x+19)) and (u<43) and (u>38) then bombarding; //если предмет попал на указанную плоскость(на платформу),значит вызываем процедуру;


Затем процедура bombarding:
procedure bombarding;
begin
q:=15;
u:=0;
if (q>x) and (q<(x+19)) and (u<43) and (u>38) then sledujushchajaprocedura; // т.е. если предмет опять попал на платформу,дальнейшей процедурой закидываем его на х*ен на другие координаты;
end;

:SOS:
Но я почемуто не врубаюсь,почему не вызываецо <sledujuschajaprocedura>.Подскажите если че не правильно сделал.

Ответ: Помогите доделать игру!MidletPascal.
 

тебе же odd объяснил, что условие
никогда не выполниться, потому что строкой ранее ты

Ответ: Помогите доделать игру!MidletPascal.
 

А что нада сделать?

Ответ: Помогите доделать игру!MidletPascal.
 

Ответ: Помогите доделать игру!MidletPascal.
 

Все,исправил.Процедура вызываеца,а следующую вызвать не может,хотя там по логике вроде все правильно!
:::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::
procedure aaaaaaa;
begin
Q:=70;
U:=0;
if (q>x) and (q<(x+19)) and (u<43) and (u<38 ) then
begin
halt;
end;
end;
procedure bombarding;
begin
q:=50;
u:=0;
if (q>x) and (q<(x+19)) and (u<43) and (u<38 ) then
begin
aaaaaaa;
end;
end;
Это пахать не хочет!Не вызывает процедуру aaaaaaa;!!!!!!!!!!!!!!!!В чем проблема?

Ответ: Помогите доделать игру!MidletPascal.
 

procedure aaaaaaa;
begin
Q:=70;
U:=0;
if (q<x) and (q>(x+19)) and (u<43) and (u<38 ) then
begin
halt;
end;
end;
Что неправильного в условии if (q<x) and (q>(x+19)) and (u<43) and (u<38 ) then
begin
halt;
end;
end;?????????????????????????????????????????????? ????????

Ответ: Помогите доделать игру!MidletPascal.
 

2Mark Castle. Чувак, у тебя с логикой полный пипец.
( u<43 ) and ( u<38 ) это равносильно ( u<38 )
Иди почитай теорию по связке логических выражений. Я думаю, вряд ли кто на форуме захочет учить тебя таким ЭЛЕМЕНТАРНЫМ вещам.
Ясный пень, что у тебя ничё не работает.
И кому интересно я говорил, что для вызова процедуры из других процедур нужно использовать FORWARD;?
:punish:
После строки
Вставь эту

Ответ: Помогите доделать игру!MidletPascal.
 

Тоесть:


procedure aaaaaaa;
forward;

begin
Q:=70;
U:=0;
if (q<x) and (q>(x+19)) and (u<38 ) then
halt;
end;

procedure bombarding;
begin
q:=50;
u:=0;
if (q>x) and (q<(x+19)) and (u<38 ) then

aaaaaaa;

end;

так?

Ответ: Помогите доделать игру!MidletPascal.
 

Чувак, еще раз.
По-моему, тебе все-таки нужно условие (q>x) and (q<x+19) and (u>38 ) and (u<43).
Делай так:
procedure bombarding;
begin
if (q>x) and (q<x+19) and (u>38 ) and (u<43) then
begin
q:=50;
u:=0;
aaaaaaa;
end;
end;
А то ты сначала присваиваешь u значение "0", а потом проверяешь, лежит ли u в интервале [38,43]. Это бессмысленно.

Ответ: Помогите доделать игру!MidletPascal.
 

а приведите хто нибудь пример использования библиотеки Lib_sprite для столкновения с другим спрайтом.А то я шота не врубаюся...