Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Delphi tetris game с исходником (https://forum.antichat.xyz/showthread.php?t=208015)

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

Berman 31.05.2010 09:14
Прикольно, спасибо! Плюсик)))

RedFern.89 01.06.2010 01:20
быдло-код not detected)) спасибо)) пригодилось))

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

RedFern.89 01.06.2010 03:34
ооооооооооооо!!!!!!!! я увидел знакомый код))))))))))

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


Время: 00:52