IPB
ЛогинПароль:

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





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


Нужно помочь с оформлением игры срочно до завтрешнего утра.
Суть в том чтоб поставить МЕНЮ, ХЕЛП, и Абаут.
Также если возможно улучшить и приукрасить игру.(Добавить модули граф что нибуд нарисовать и объяснить если можно По Подробнее)
Все Желательно скинуть и сделать с моей игрой , (ПОТОМУЧТО В ПАСКАЛЕ ВАЩЕ ТУП)
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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


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

Сообщение отредактировано: Ap4u -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Я.
****

Группа: Пользователи
Сообщений: 809
Пол: Мужской
Реальное имя: Саша

Репутация: -  11  +


ВИДНО.
Прочитал бы еще что такое цикл 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;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Я.
****

Группа: Пользователи
Сообщений: 809
Пол: Мужской
Реальное имя: Саша

Репутация: -  11  +


Извините, не туда посмотрел: последний код не #156, а #154.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


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

Добавлено через 13 мин.
изменил код спс(сделал на весь икран), а кто нить помогите сделать меню с использованием моего исходника плиз.
Меню желательно отдельно. (с названиями start game, about,help )
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


.. и автору темы абсолютно наплевать, что игра совсем не про коров.. ((
М
в случае дальнейшего игнорирования Правил тема будет удалена



--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


название мне сменил один из админов я думаю. разберитесь у себя сами. потом говвори.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Ap4u @ 11.06.2011 8:22) *
название мне сменил один из админов я думаю. разберитесь у себя сами. потом говвори.

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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


как переименовать тему я не знаю название игры,
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


Что касается игр, то я предпочитаю только карточные. Играю в покер обычно на официальном сайте Покерок https://okpoker.download/ . Покер рум предлагает эксклюзивные турниры и игры, которых нигде больше нет!

Сообщение отредактировано: yzmso@merepost.com -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 18:09
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name