procedure LoadBackGround

Zpět
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;