Сообщение от Kurdt
Юзай в репите одну процедуру, далее в цыкле вызывется другая процедура, после ее окончания снова в цикле срабатует автоматом первая процедура, и ненадо ее вызывать везде... немного фантазии
типа такого
Procedure puskrepeat;
Var i:integer;
Begin
exitpusk:=false;
Repeat
i:=puskmain(i);
until exitpusk;
end;
|
Как раз вот такой епанутый метод я и использовал, теперь предтавим
repeat
procedure logo
procedure menu
if 1=1 then procedure game
if 1=2 then procedure about
if 1=3 then procedure exit
procedure result
until
включаем игру видим лого, попадаем в меню, там выбираем например "Об игре" прочитали, выходим назад, а что сзади? Сзади по циклу идет result, посмотрели результат непонятного чего и иедм опять смотреть лого, меню, выбираем игру, играем и хотим выйти в меню...но меню нет по циклу, смотрим результат, лого и вот оно меню...посоветуйте что нить по продуманнее.