Возникла проблема с кодом. Помогите убрать её.
Вот он.
Program Recomend;//•Начало
Uses CRT { Подключить модуль CRT } ;
var ext,f,e,F,menu:integer;
name,d,b,c,t:string;
Tit:real;
label main,p1,n1,a1;
Begin
main:
clrscr;
Gotoxy(30,1);
write(▌DAMNUM▌);
Gotoxy(1,3);
write(Выбирете опцию;
Gotoxy(4,5);
Write(•1.Играть);
Gotoxy(4,7);//Не работает
Write(•2.Параметры);// its too
Gotoxy(4,9);
Write(•0.Выход);
Gotoxy(6,11);
Write(Ввод: );
Gotoxy(12,11);
Readln(menu);
Case menu of
1:
begin//▌▀▬3▀▀▀
Tit:=16;
Clrscr;//Cцена 1 Где я?
Gotoxy(28,10);
//FontType(Tit);
write(DAMNUM);
delay(4324);
clrscr;
Gotoxy(10,10);
Write(Вы проснулись от лая собак.);
Delay(3000);
Gotoxy(12,12);
Write(Вы встали с странной кровати.);
Delay(3000);
Gotoxy(14,14);
Write(Головная боль не даёт вам норамально мыслить.);
delay(3000);
Clrscr;
Gotoxy(13,13);
Write(Вы: Где я?);
Delay(2000);
clrscr;
Gotoxy(13,13);
Write(Вы: Как я сюда попал?);
Delay(2000);
clrscr;
Gotoxy(13,13);
Write(Почему это место похоже на темницу?);
p1: clrscr;
gotoxy(1,18);
Write(▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬);
Gotoxy(18,16);
write(Нажмите 5 чтобы осмотрется.);
Gotoxy(19,20);
write(Ввод: );
readln(f);
If (f=5) then goto n1 ;
If (f>5) or (f<6) then goto p1;
n1:clrscr;
gotoxy(5,10);
Write(Осмотрев комнату вы заметели: стол, окно, дверь.);
gotoxy(1,18);
Write(▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬);
gotoxy(19,19);
write(1. Осмотреть на стол);
Gotoxy(19,20);
write(2. Посмотреть в окно);
Gotoxy(19,21);
write(3. Взаимодействовать с дверью);
Gotoxy(19,22);
write(Ввод: );
Gotoxy(25,22);
readln(e);
CASE e of
1: Begin
clrscr;
gotoxy(5,10);
write(Подойдя к столу, вы замечаете оборваный лист);
gotoxy(1,18);
Write(▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬);
gotoxy(19,19);
write(1.Осмотреть оборваный лист);
gotoxy(19,20);
write(2.ВЕРНУТСЯ);
Gotoxy(19,21);
write(Ввод: );
Gotoxy(25,22);
readln(F);
case F of
1:Begin
end;
2: Begin
clrscr;
goto n1;
end;
end;
end;
end;
2:begin//▐▐▐▐▐▐▐▐
end;
0:begin//••777MM•••777••777
clrscr;
Gotoxy(20,13);
Write(Вы действительно хотите выйти?);
Gotoxy(30,15);
write(1.ДА 2.НЕТ);
Gotoxy(33,17);
readln(ext);
If (ext=1) then exit else goto main ;
end;
End;
End.
Вот он.
Program Recomend;//•Начало
Uses CRT { Подключить модуль CRT } ;
var ext,f,e,F,menu:integer;
name,d,b,c,t:string;
Tit:real;
label main,p1,n1,a1;
Begin
main:
clrscr;
Gotoxy(30,1);
write(▌DAMNUM▌);
Gotoxy(1,3);
write(Выбирете опцию;
Gotoxy(4,5);
Write(•1.Играть);
Gotoxy(4,7);//Не работает
Write(•2.Параметры);// its too
Gotoxy(4,9);
Write(•0.Выход);
Gotoxy(6,11);
Write(Ввод: );
Gotoxy(12,11);
Readln(menu);
Case menu of
1:
begin//▌▀▬3▀▀▀
Tit:=16;
Clrscr;//Cцена 1 Где я?
Gotoxy(28,10);
//FontType(Tit);
write(DAMNUM);
delay(4324);
clrscr;
Gotoxy(10,10);
Write(Вы проснулись от лая собак.);
Delay(3000);
Gotoxy(12,12);
Write(Вы встали с странной кровати.);
Delay(3000);
Gotoxy(14,14);
Write(Головная боль не даёт вам норамально мыслить.);
delay(3000);
Clrscr;
Gotoxy(13,13);
Write(Вы: Где я?);
Delay(2000);
clrscr;
Gotoxy(13,13);
Write(Вы: Как я сюда попал?);
Delay(2000);
clrscr;
Gotoxy(13,13);
Write(Почему это место похоже на темницу?);
p1: clrscr;
gotoxy(1,18);
Write(▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬);
Gotoxy(18,16);
write(Нажмите 5 чтобы осмотрется.);
Gotoxy(19,20);
write(Ввод: );
readln(f);
If (f=5) then goto n1 ;
If (f>5) or (f<6) then goto p1;
n1:clrscr;
gotoxy(5,10);
Write(Осмотрев комнату вы заметели: стол, окно, дверь.);
gotoxy(1,18);
Write(▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬);
gotoxy(19,19);
write(1. Осмотреть на стол);
Gotoxy(19,20);
write(2. Посмотреть в окно);
Gotoxy(19,21);
write(3. Взаимодействовать с дверью);
Gotoxy(19,22);
write(Ввод: );
Gotoxy(25,22);
readln(e);
CASE e of
1: Begin
clrscr;
gotoxy(5,10);
write(Подойдя к столу, вы замечаете оборваный лист);
gotoxy(1,18);
Write(▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬);
gotoxy(19,19);
write(1.Осмотреть оборваный лист);
gotoxy(19,20);
write(2.ВЕРНУТСЯ);
Gotoxy(19,21);
write(Ввод: );
Gotoxy(25,22);
readln(F);
case F of
1:Begin
end;
2: Begin
clrscr;
goto n1;
end;
end;
end;
end;
2:begin//▐▐▐▐▐▐▐▐
end;
0:begin//••777MM•••777••777
clrscr;
Gotoxy(20,13);
Write(Вы действительно хотите выйти?);
Gotoxy(30,15);
write(1.ДА 2.НЕТ);
Gotoxy(33,17);
readln(ext);
If (ext=1) then exit else goto main ;
end;
End;
End.