Şİmdilik labirent oyunumun girişini yanı inrosunu atmak istiyorum buraya
uses crt,graph;
var
gm,gd:integer;
i,j:byte;
begin
clrscr;
initgraph(gd,gm,'');
if graphresult<>0 then halt;
randomize;
repeat
for i:=1 to 200 do
begin
for j:=1 to 100 do
setcolor(green);
bar3d(i+1,j+1,i+j,300,i,true);
cleardevice;
rectangle(10+i,10+j,20+j,200);
line(100,100,i+40,j+300);
setcolor(yellow);
settextstyle(10,0,8);
settextjustify(10,10);
outtext('LABIRENT');
setcolor(5);
settextstyle(4,1,3);
outtext('.........copright(c)....Gokhan Aygun..2007........');
SetTextJustify(3,1);
settextstyle(6,0,2);
outtext('GAMES');
circle(200,100+i,j+1);
bar(100,10+i,i,j);
end;
until keypressed;
readln;
closegraph;
end.
şimdilik inrosu yeter..