function fix takes boolean addBlight, player whichPlayer, rect r returns nothing
local real x = GetRectMinX(r)
local real y = GetRectMinY(r)
loop
loop
call SetTerrainTypeBJ(Location(x,y), 'Ldrt', -1, 1, 0 )
exitwhen y > GetRectMaxY(r)
set y = y + 32
endloop
exitwhen x > GetRectMaxX(r)
set y = GetRectMinY(r)
set x = x + 32
endloop
endfunction
hook SetBlightRectBJ fix