function SetUnitVertexColorBJ takes unit whichUnit,real red,real green,real blue,real transparency returns nothing
call SetUnitVertexColor(whichUnit, PercentTo255(red), PercentTo255(green), PercentTo255(blue), PercentTo255(100.0-transparency))
endfunction