Delphi tetris game с исходником |
31.05.2010, 05:09
|
|
Новичок
Регистрация: 12.03.2009
Сообщений: 3
С нами:
9034258
Репутация:
14
|
|
Delphi tetris game с исходником
Delphi tetris game с исходником (делал на 7 версии) с музыкой хм
Может кому пригодится.. исходник в комплекте
СКАЧАТЬ
СКАЧАТЬ ИСХОДНИК |
|
|
31.05.2010, 09:14
|
|
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
С нами:
8538012
Репутация:
60
|
|
Прикольно, спасибо! Плюсик)))
|
|
|
|
01.06.2010, 01:20
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
С нами:
8582863
Репутация:
69
|
|
быдло-код not detected)) спасибо)) пригодилось))
|
|
|
|
01.06.2010, 02:02
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
С нами:
8582520
Репутация:
6
|
|
У нас давно такая на курсаче была 
И нечего ставить свои копирайты. |
|
|
|
01.06.2010, 03:34
|
|
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
С нами:
8582863
Репутация:
69
|
|
ооооооооооооо!!!!!!!! я увидел знакомый код))))))))))
Код:
TTetr = Array [1..4, 1..4] of Byte;
const
tetramino: Array [1..11, 1..4] of TTetr =
(
(((1,1,0,0),(0,1,1,0),(0,0,0,0),(0,0,0,0)),
((0,1,0,0),(1,1,0,0),(1,0,0,0),(0,0,0,0)),
((1,1,0,0),(0,1,1,0),(0,0,0,0),(0,0,0,0)),
((0,1,0,0),(1,1,0,0),(1,0,0,0),(0,0,0,0))),
(((0,1,1,0),(1,1,0,0),(0,0,0,0),(0,0,0,0)),
((1,0,0,0),(1,1,0,0),(0,1,0,0),(0,0,0,0)),
((0,1,1,0),(1,1,0,0),(0,0,0,0),(0,0,0,0)),
((1,0,0,0),(1,1,0,0),(0,1,0,0),(0,0,0,0))),
(((0,1,0,0),(1,1,1,0),(0,0,0,0),(0,0,0,0)),
((0,1,0,0),(0,1,1,0),(0,1,0,0),(0,0,0,0)),
((0,0,0,0),(1,1,1,0),(0,1,0,0),(0,0,0,0)),
((0,1,0,0),(1,1,0,0),(0,1,0,0),(0,0,0,0))),
(((0,0,0,0),(1,1,1,1),(0,0,0,0),(0,0,0,0)),
((0,1,0,0),(0,1,0,0),(0,1,0,0),(0,1,0,0)),
((0,0,0,0),(1,1,1,1),(0,0,0,0),(0,0,0,0)),
((0,1,0,0),(0,1,0,0),(0,1,0,0),(0,1,0,0))),
(((1,1,0,0),(1,1,0,0),(0,0,0,0),(0,0,0,0)),
((1,1,0,0),(1,1,0,0),(0,0,0,0),(0,0,0,0)),
((1,1,0,0),(1,1,0,0),(0,0,0,0),(0,0,0,0)),
((1,1,0,0),(1,1,0,0),(0,0,0,0),(0,0,0,0))),
(((1,1,0,0),(0,1,0,0),(0,1,0,0),(0,0,0,0)),
((0,0,1,0),(1,1,1,0),(0,0,0,0),(0,0,0,0)),
((1,0,0,0),(1,0,0,0),(1,1,0,0),(0,0,0,0)),
((1,1,1,0),(1,0,0,0),(0,0,0,0),(0,0,0,0))),
(((1,1,0,0),(1,0,0,0),(1,0,0,0),(0,0,0,0)),
((1,1,1,0),(0,0,1,0),(0,0,0,0),(0,0,0,0)),
((0,1,0,0),(0,1,0,0),(1,1,0,0),(0,0,0,0)),
((1,0,0,0),(1,1,1,0),(0,0,0,0),(0,0,0,0))),
(((0,1,0,0),(1,1,1,0),(0,1,0,0),(0,0,0,0)),
((0,1,0,0),(1,1,1,0),(0,1,0,0),(0,0,0,0)),
((0,1,0,0),(1,1,1,0),(0,1,0,0),(0,0,0,0)),
((0,1,0,0),(1,1,1,0),(0,1,0,0),(0,0,0,0))),
(((1,1,1,0),(1,0,1,0),(0,0,0,0),(0,0,0,0)),
((1,1,0,0),(0,1,0,0),(1,1,0,0),(0,0,0,0)),
((1,0,1,0),(1,1,1,0),(0,0,0,0),(0,0,0,0)),
((1,1,0,0),(1,0,0,0),(1,1,0,0),(0,0,0,0))),
(((1,0,0,0),(0,0,0,0),(0,0,0,0),(0,0,0,0)),
((1,0,0,0),(0,0,0,0),(0,0,0,0),(0,0,0,0)),
((1,0,0,0),(0,0,0,0),(0,0,0,0),(0,0,0,0)),
((1,0,0,0),(0,0,0,0),(0,0,0,0),(0,0,0,0))),
(((1,0,0,0),(1,0,0,0),(0,0,0,0),(0,0,0,0)),
((1,1,0,0),(0,0,0,0),(0,0,0,0),(0,0,0,0)),
((1,0,0,0),(1,0,0,0),(0,0,0,0),(0,0,0,0)),
((1,1,0,0),(0,0,0,0),(0,0,0,0),(0,0,0,0)))
);
когда то разбирал процедуры эти)))чувак))) зачем ты поставил свои копирайты)))
miako, я другую лабу делал)) |
|
|
|
|
 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
