Игра "Быки и Коровы", было: срочно нужна помощь (до завтра) Опции

[Ap4u]

Нужно помочь с оформлением игры срочно до завтрешнего утра.
Суть в том чтоб поставить МЕНЮ, ХЕЛП, и Абаут.
Также если возможно улучшить и приукрасить игру.(Добавить модули граф что нибуд нарисовать и объяснить если можно По Подробнее)
Все Желательно скинуть и сделать с моей игрой , (ПОТОМУЧТО В ПАСКАЛЕ ВАЩЕ ТУП)

program bk;
uses crt;
var kr,i,xp1,xp2,hit1,hit2,blok1,blok2:byte; name,h1,h2,b1,b2:string; cursor:char;
begin
clrscr;
randomize;
textcolor(red);
write('Enter Your Name: ');
read(name);
i:=1;
kr:=1;
xp1:=10;
xp2:=10;
repeat;
repeat;
repeat;
if kr>2 then kr:=kr-2;
clrscr;
textcolor(yellow);
write(name,' ');
	if xp1=10 then write('IIIIIIIIII')
else if xp1=9 then write('IIIIIIIII ')
else if xp1=8 then write('IIIIIIII  ')
else if xp1=7 then write('IIIIIII   ')
else if xp1=6 then write('IIIIII	')
else if xp1=5 then write('IIIII	 ')
else if xp1=4 then write('IIII	  ')
else if xp1=3 then write('III	   ')
else if xp1=2 then write('II		')
else if xp1=1 then write('I		 ');
write('	 enemy ');
	if xp2=10 then write('IIIIIIIIII')
else if xp2=9 then write('IIIIIIIII ')
else if xp2=8 then write('IIIIIIII  ')
else if xp2=7 then write('IIIIIII   ')
else if xp2=6 then write('IIIIII	')
else if xp2=5 then write('IIIII	 ')
else if xp2=4 then write('IIII	  ')
else if xp2=3 then write('III	   ')
else if xp2=2 then write('II		')
else if xp2=1 then write('I		 ');
writeln('');
if i=1 then textcolor(green) else textcolor(white);
if kr=1 then writeln('1. head hit');
if kr=2 then writeln('1. head blok');
if i=2 then textcolor(green) else textcolor(white);
if kr=1 then writeln('2. upper body hit');
if kr=2 then writeln('2. upper body blok');
if i=3 then textcolor(green) else textcolor(white);
if kr=1 then writeln('3. lower body hit');
if kr=2 then writeln('3. lower body blok');
if i=4 then textcolor(green) else textcolor(white);
if kr=1 then writeln('4. legs hit');
if kr=2 then writeln('4. legs blok');
cursor:=readkey;
case cursor of
#72:i:=i-1;
#80:i:=i+1;
end;
if i>4 then i:=i-4;
if i<1 then i:=i+4;
until cursor=#13;
if kr=1 then hit1:=i;
if kr=2 then blok1:=i;
kr:=kr+1;
until kr>2;
hit2:=random(4)+1;
blok2:=random(4)+1;
if hit1=1 then h1:='head'
else if hit1=2 then h1:='upper body'
else if hit1=3 then h1:='lower body'
else h1:='legs';
if hit2=1 then h2:='head'
else if hit2=2 then h2:='upper body'
else if hit2=3 then h2:='lower body'
else h2:='legs';
if blok1=1 then b1:='head'
else if blok1=2 then b1:='upper body'
else if blok1=3 then b1:='lower body'
else b1:='legs';
if blok2=1 then b2:='head'
else if blok2=2 then b2:='upper body'
else if blok2=3 then b2:='lower body'
else b2:='legs';
textcolor(blue);
if hit1<>blok2 then begin xp2:=xp2-1; writeln('Vi ydarili v ',h1); end;
if hit2<>blok1 then begin xp1:=xp1-1; writeln ('enemy ydaril v ',h2); end;
if hit1=blok2 then writeln('enemy zablokiroval ',b2);
if hit2=blok1 then writeln('Vi zablokirovali ',b1);
readkey;
until (xp1<=0) or (xp2<=0);
textcolor(cyan);
if (xp1<=0) and (xp2>0) then writeln('YOU LOSE')
else if (xp2<=0) and (xp1>0) then writeln('YOU WIN')
else writeln('NO WINNER');
readkey;
end.

М

Правила, пп. 4 и 5!! исправлено..

Сообщение отредактировано: Lapp - 9.06.2011 22:13

[Ap4u]

ДО понедельника надо

Сообщение отредактировано: Ap4u - 9.06.2011 21:07

[sheka]

ВИДНО.
Прочитал бы еще что такое цикл for, оператор case, разобрался бы в структуре цикла repeat - вообще бы молодец был.

Да, и мой тебе совет: очень обязательно подключить и использовать графику. Без нее никак. Вот смотри, думаю разберешься:
в uses через запятую добавить graph, в var вставь gd, gm: integer, в главной программе написать gd := detect; InitGraph(gd,gm,''); bar3d(100,100,400,200,50,topon); outtextxy(150,150, #138#136#144#143#136#151#156);readln; closegraph;

[sheka]

Извините, не туда посмотрел: последний код не #156, а #154.

[Ap4u]

спс ща заценю!!!

Добавлено через 13 мин.
изменил код спс(сделал на весь икран), а кто нить помогите сделать меню с использованием моего исходника плиз.
Меню желательно отдельно. (с названиями start game, about,help )

[Lapp]

.. и автору темы абсолютно наплевать, что игра совсем не про коров.. ((

М

в случае дальнейшего игнорирования Правил тема будет удалена

[Ap4u]

название мне сменил один из админов я думаю. разберитесь у себя сами. потом говвори.

[Lapp]

название мне сменил один из админов я думаю. разберитесь у себя сами. потом говвори.

Название сменил Я. И с тех пор жду, когда же ты отреагируешь. Прочти Правила и сделай выводы.

[Ap4u]

как переименовать тему я не знаю название игры,