So basically I want to make a tetris game with Pascal as a project I am working on.
I wasn't able to make it complicated like you can move the piece and different types of piece come.
From other responses, they involve more than 1 Pascal Program but I am trying to keep it simple involving only one window.
Any help?
Heres my code so far. This game should be all in a procedure if possible.
Procedure Tetris; {Tetris?}
var x,y,i,c:byte;
begin
x:=5;
y:=1;
repeat
clrscr;
title; {another procedure, you can ignore this}
for i:=1 to y-1 do
writeln('| |');
if y<49 then
begin writeln('| I |');
writeln('| I |');
writeln('| I |');
writeln('| L-- |');
for i:=y+4 to 49 do
writeln('| |');
writeln('|____________________________________|');
delay(100)
end
else
begin writeln('| I |');
writeln('| I |');
writeln('| I |');
writeln('|________________L--_________________|')
end;
y:=y+1;
until y=50;
readln;