procedure LoadBackGround
procedure TAnt_Hill.LoadBackGround;
var i:integer;
begin
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,0,0,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,160,0,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,320,0,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,480,0,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,640,0,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,0,160,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,160,160,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,320,160,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,480,160,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,640,160,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,0,320,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,160,320,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,320,320,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,480,320,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,640,320,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,0,480,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,160,480,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,320,480,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,480,480,0);
MravenisteForm.DXImageList1.Items[0].Draw(MravenisteForm.DXDraw1.Surface,640,480,0);
for i:=1 to (NUMBER_GRASS div 2) do
MravenisteForm.DXImageList1.Items[4].Draw(MravenisteForm.DXDraw1.Surface,Data_Grass[i].x,Data_Grass[i].y,0);
for i:=(NUMBER_GRASS div 2) to NUMBER_GRASS do
MravenisteForm.DXImageList1.Items[5].Draw(MravenisteForm.DXDraw1.Surface,Data_Grass[i].x,Data_Grass[i].y,0);
for i:=0 to curr_num_woods_hill-1 do // vetvicky v mravenisti
MravenisteForm.DXImageList1.Items[3].Draw(MravenisteForm.DXDraw1.Surface,Data_Wood_Hill[i].x,Data_Wood_Hill[i].y,0);
for i:=0 to curr_num_woods-1 do
if Data_Wood[i].where<3 then
MravenisteForm.DXImageList1.Items[3].Draw(MravenisteForm.DXDraw1.Surface,Data_Wood[i].x,Data_Wood[i].y,0);
for i:=1 to NUMBER_STONE do
MravenisteForm.DXImageList1.Items[6].Draw(MravenisteForm.DXDraw1.Surface,Data_Stone[i].x,Data_Stone[i].y,0);
MravenisteForm.DXImageList1.Items[11].Draw(MravenisteForm.DXDraw1.Surface,position_well_x,position_well_y,0);
for i:=0 to curr_num_eggs-1 do
if Data_Egg[i].where=2 then
MravenisteForm.DXImageList1.Items[10].Draw(MravenisteForm.DXDraw1.Surface,Data_Egg[i].x,Data_Egg[i].y,0);
end;
|