Can you figure out what this is doing?

for iCnt = 0 to 3
begin
     if lastTradeLoser then
     begin
          if mp <> -1 and currentContracts = iCnt * lotSize then
          begin
	     buyPrice = hh20 + iCnt * N/2;
          end;
          if mp <> 1 and currentContracts = iCnt * lotSize then
          begin	
	    sellPrice = ll20 - iCnt * N/2;
          end;
          virTmp = 0;		
     end;

     if lastTradeLoser = false then
     begin
	   if mp <> -1 and currentContracts = iCnt * lotSize then
	   begin
	       buyPrice = hh55 + iCnt * N/2;
	   end;
	   if mp <> 1 and currentContracts = iCnt * lotSize then
	   begin	
		sellPrice = ll55 - iCnt * N/2;
	   end;
	   virTmp = 0;
     end;				
end;