Algorithm―MOR-PT

while(!Batches reaches destination){

newF = Ф; //new forwarding set containing eligible forwarders

for all i Є F (forwarder set consisting of node (n₁, n₂, n₃, n₄, ∙∙∙, n_n)){

if(ADR_i > ADR_th and AEC_i < AEC_th and ATD_i < ATD_th)

{

new F = newF U {n_i};

}

}

if (newF= Ф){

if(RE_i >> RE_th ){

TP_i = SelectOptimalTp();

Get ATD_i, ADR_i and AEC_i for the power level TP_i;

MOR-PT();

return;

}

}

encapsulate forwarder set (newF) → data packet ;

opportunistically send the packet, received by only selected forwarders and discarded by others;

}