Моя первая игрушка |
Моя первая игрушка |
trminator |
11.04.2003 17:51
Сообщение
#1
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Вот... раскопал, когда чистил свой хард от мусора. Писал когда учился программировать. Детство, да и только!
================================= PROGRAM igra; USES graph,CRT; VAR Device,Mode,torped,podbit,x,y,a,b:integer; imya,tor,pod:string; kl,otv:char; Procedure RISUNOK;forward; Procedure NACHALO;forward; {=============================================================} PROCEDURE ZAVERSH; BEGIN SetColor(Red); case podbit of 0 :OutTextXY(200,200,'Very Bad'); 1,2 :OutTextXY(200,200,'Not Very Good...'); 9,10 :OutTextXY(200,200,'Excellent!!!'); else OutTextXY(200,200,'Good!'); end; ReadLn; ClearDevice; OutTextXY(200,200,'Game Over!'); ReadLn; CloseGraph; halt; END; {=============================================================} PROCEDURE POPAL; BEGIN SetColor(white); OutTextXY(200,100,'Hurra!'); torped:=torped-1; podbit:=podbit+1; ReadLn; if torped<1 then ZAVERSH else risunok; END; {=============================================================} PROCEDURE NE_POPAL; BEGIN SetColor(white); OutTextXY(200,100,':-('); torped:=torped-1; readLn; if torped<1 then ZAVERSH else risunok; ReadLn; END; {=============================================================} PROCEDURE ATAKA; BEGIN y:=480; repeat SetColor(white); Ellipse(x,200,0,360,30,10);{korabl'} setColor(black); Ellipse(x,200,0,360,30,10); x:=x+3; SetColor(white); line(0,200,640,200); SetFillStyle(1,LightBlue); FloodFill(x+2,198,White); Ellipse(420,y,0,360,5,10);{torpeda} Delay(5); SetColor(black); Ellipse(420,y,0,360,5,10); SetFillStyle(1,blue); FloodFill(416,y+4,white); FloodFill(x+2,202,white); y:=y-3; until y<200; if(x>400) and (x<440) then popal else ne_popal; END; {=============================================================} PROCEDURE KORABL; BEGIN REPEAT x:=40; repeat SetColor(white); Ellipse(x,200,0,360,30,10); randomize; a:=random(15); Delay (a); setColor(black); Ellipse(x,200,0,360,30,10); x:=x+1; SetColor(white); line(0,200,640,200); SetFillStyle(1,LightBlue); FloodFill(x+2,198,White); SetFillStyle(1,blue); FloodFill(x+2,202,white); If KeyPressed then begin kl:=ReadKey; if kl=' 'then ataka; end{if}; until x>600; x:=600; repeat SetColor(white); Ellipse(x,200,0,360,30,10); Delay (a); setColor(black); Ellipse(x,200,0,360,30,10); x:=x-1; SetColor(white); line(0,200,600,200); If KeyPressed then begin kl:=ReadKey; if kl=' 'then ataka; End{if}; until x<20; UNTIL 3<2; END; {============================================================} PROCEDURE RISUNOK; BEGIN ClearDevice; Line(0,200,640,200); Circle(450,50,30); SetFillStyle(1,Yellow); FloodFill(450,50,white); SetFillStyle(1,Lightblue); FloodFill(10,10,white); SetFillStyle(1,Blue); FloodFill(630,470,white); SetTextStyle(4,0,4); OutTextXY(10,10,imya); Str(Torped,tor); Str(Podbit,pod); OutTextXY(10,40,'Rockets:'); OutTextXY(120,40,tor); OutTextXY(10,70,'Kills:'); OutTextXY(100,70,pod); rectangle(410,470,430,480); KORABL; END; {===========================================================} PROCEDURE NACHALO; BEGIN ClearDevice; SetColor(White); Torped:=10; Podbit:=0; Write('Enter your name : '); ReadLn(imya); RISUNOK; END; {===========================================================} BEGIN Device:=0; InitGraph(Device,Mode,''); DirectVideo:=false; NACHALO; END. ЗЫ: Простите что без единого комментария -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
AlaRic |
12.04.2003 17:27
Сообщение
#2
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Отличная игра!
|
Slam |
12.04.2003 19:15
Сообщение
#3
|
Пионер Группа: Пользователи Сообщений: 136 Пол: Мужской Репутация: 0 |
Да, интересная штука. Только постоянное обновление экраны стоит убрать...
|
Abram(ekaterinburg) |
30.08.2004 13:09
Сообщение
#4
|
Гость |
Классео, что я нашел ету игру. А то я сам дуб в паскале....надеюсь смогу сам переделать ее))))
|
FreeMan |
30.08.2004 13:38
Сообщение
#5
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
Класс, похожа на мою первую, хм в графыческом интерфейсе.
-------------------- бб
|
GoodWind |
2.09.2004 23:32
Сообщение
#6
|
Автооответчик Группа: Модераторы Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
Мда..я тоже такое когда-то писал, только у меня "самолет" летал и с него надо было бомбить "бункер". :p8:
-------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
Бродяжник |
3.09.2004 9:37
Сообщение
#7
|
Бывалый Группа: Пользователи Сообщений: 206 Пол: Мужской Репутация: 3 |
Что ли и себе чего выложить... это, правда, уже не совсем первая, первые не сохранились...
Это скриншот Эскизы прикрепленных изображений |
Бродяжник |
3.09.2004 9:38
Сообщение
#8
|
Бывалый Группа: Пользователи Сообщений: 206 Пол: Мужской Репутация: 3 |
А это оно самое
Прикрепленные файлы Labir.zip ( 21.18 килобайт ) Кол-во скачиваний: 234 |
Cros |
8.09.2004 21:00
Сообщение
#9
|
Гость |
Молодца что смог её дописать ..... я горжусь тобой :D :D :D
|
EXE |
7.12.2004 16:02
Сообщение
#10
|
Новичок Группа: Пользователи Сообщений: 47 Пол: Мужской Реальное имя: Диман Репутация: 0 |
Просто, но со вкусом... и ПОСТОЯННЫМ ОБНОВЛЕНИЕМ ЭКРАНА :fire: .
Может стоило бы с помощью видеостраниц писать? или с динамическими переменными? А? Если чё съюзаю - покажу! -------------------- Время есть сущность всех вещей.
|
Текстовая версия | 29.09.2024 4:49 |