Delphi tetris game с исходником

[TORSUMY]

Delphi tetris game с исходником (делал на 7 версии) с музыкой хм
Может кому пригодится.. исходник в комплекте
http://tor.sumy.ua/_fr/2/9672081.jpg
СКАЧАТЬ (http://tor.sumy.ua/Tetris2009.rar)
СКАЧАТЬ ИСХОДНИК (http://tor.sumy.ua/Tetris2009Source.rar)

[Berman]

Прикольно, спасибо! Плюсик)))

[RedFern.89]

быдло-код not detected)) спасибо)) пригодилось))

[miako]

У нас давно такая на курсаче была:)
И нечего ставить свои копирайты.

[RedFern.89]

ооооооооооооо!!!!!!!! я увидел знакомый код))))))))))


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, я другую лабу делал))