3 / 3 / 0
Регистрация: 04.11.2010
Сообщений: 140
1

Пишу игру. соединить программы

25.02.2011, 16:36. Показов 544. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Всем привет!
есть меню.
и программа игры.
пока не знаю о чём буду писать, но всё же что то есть.
вот меню:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
uses crt;
var
num : integer;
 
procedure first;
begin
textbackground(red);
textcolor(white);
clrscr;
gotoxy(20,10);
writeln('pervaya procedura');
readkey;
end;
procedure second;
begin
textbackground(black);
textcolor(blue);
clrscr;
gotoxy(20,10);
writeln('Vtoraya procedura');
readkey;
end;
procedure conec;
begin
textbackground(yellow);
textcolor(white);
clrscr;
gotoxy(20,10);
writeln('poka, konec igri');
readkey;
end;
 
function menu : integer;
const ss : array [1..3] of string = ('1. pervaya procedura' ,'2.Vtoraya procedura' ,'3.Vixod');
var
m : integer;
cf,cb : byte;
x,y : integer;
c : char;
procedure out(s : string; x,y : integer; cf,cb : integer);
begin
textcolor(cf);
textbackground(cb);
gotoxy(x,y);
write(s);
end;
begin
cf :=white;
cb :=green;
x :=10;
textcolor(cf);
textbackground(cb);
clrscr;
m :=0;
for y := 11 to 13 do begin
gotoxy(x,y);
out(ss[y-10] ,x,y,cf,cb);
end;
y :=13;
out(ss[y-10] ,x,y,cb,cf);
repeat
c :=readkey;{ write (c,' ', ord(c)); readln;}
if (c>=' 1' ) and (c <=' 3' ) then begin
out(ss[y-10] ,x,y,cb,cf);
y :=10 + ord(c) - ord('0');
out(ss[y-10] ,x,y,cb,cf);
end
else if ord(c) = 0 then begin
c :=readkey;
out(ss[y-10] ,x,y,cf,cb);
case ord(c) of
72 : begin
if y=11 then y:=13 else y:=y-1;
end;
77 : ;{ rigth}
80 :begin
if y=13 then y:=11 else y:=y+1;
end;
75 : ;{left}
end; {case}
out(ss[y-10] ,x,y,cb,cf);
end;
if ord(c) = 13 then m:=y-10;
until ( m > 0) and (m <= 3);
menu :=m;
end;
begin
repeat
num := menu;
case num of
1: first;
2: second;
3: conec;
end;
until num = 3;
end.
и вот программа игры:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program kee;
uses crt,graph;
var x,y,dx,eda,edax,eday : integer;
    gd,gm :integer;
    c,key : char;
 
procedure paint(x,y,cl : integer);
begin
    setcolor(cl);
    circle(x,y,10);
    if (edax=x)and(eday=y) then eda:=0;
    end;
    procedure lol(var edax,eday,eda:integer);
    begin
    if eda=0 then begin
    setcolor(red);
    edax:=random(64)*10;
    eday:=random(48)*10;
    circle(edax,eday,10);
    eda:=1;
                        end;
    end;
 
begin
randomize;
    gd:=detect;
    InitGraph(gd,gm,'c:\tp\bgi');
    x:=315;
    y:=200;
    repeat
       lol(edax,eday,eda);
       paint(x,y,green);
       c:=readkey;
    if c=chr(0) then begin
       paint(x,y,black);
       c:=readkey;
       if c=chr(72) then y:=y-10;
       if c=chr(75) then x:=x-10;
       if c=chr(77) then x:=x+5;
       if c=chr(80) then y:=y+5;
       paint(x,y,white);
    end;
 
until c=chr(27);
CloseGraph;
end.
только начал писать помогите плз как совместить их ?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2011, 16:36
Ответы с готовыми решениями:

Пишу программы на Pascal бесплатно
Мне 15 лет и я учусь в 9 классе. Если у кого-то есть домашнее задание по информатике (8-11 класс),...

Соединить воедино две программы
Есть программа отделяющая корни уравнений: uses crt; var a,b,x1,x2,y1,y2,h,w,y,e:real;...

Пишу игру
Хотел бы найти людей, которые поддержали бы идею создания физической игры жанра sandbox Суть игры...

пишу игру:D
Ребят,какую можно написать простую консольную игрушку? а то вообще в голову ничего не лезет!

0
25.02.2011, 16:36
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2011, 16:36
Помогаю со студенческими работами здесь

Пишу текстовую игру на Си
У меня такой вопрос. Как рисовать анимацию и не прохлопать нажатия клавиш? Есть ли Сях какие-то...

Пишу свою игру
Здравствуйте! Помогите, плз. Делаю(тренируюсь, просто для себя) игру. На данный момент застрял на...

Я пишу игру и выскакивает ошибка

Пишу браузерную игру. Раскрытие на весь экран
Добрый день, видели же многи как почти во всех браузерных играх есть кнопочка, раскрытие на весь...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru