Getidrel_coords

$${Unsafe(0);
IF(%DIRECTION% = "N");
  #z_verif = -1;
  #x_verif = 0;
ELSEIF(%DIRECTION% = "S");
  #z_verif = +1;
  #x_verif = 0;
ELSEIF(%DIRECTION% = "E");
  #x_verif = +1;
  #z_verif = 0;
ELSEIF(%DIRECTION% = "W");
  #x_verif = -1;
  #z_verif = 0;
ENDIF;
@#x_verif1 = %#x_verif% * 1;
@#z_verif1 = %#z_verif% * 1;
@#x_verif2 = %#x_verif% * 2;
@#z_verif2 = %#z_verif% * 2;
@#x_verif3 = %#x_verif% * 3;
@#z_verif3 = %#z_verif% * 3;
IF(%DIRECTION% = "N");
  #z_verif_back = +1;
  #x_verif_back = 0;
ELSEIF(%DIRECTION% = "S");
  #z_verif_back = -1;
  #x_verif_back = 0;
ELSEIF(%DIRECTION% = "E");
  #x_verif_back = -1;
  #z_verif_back = 0;
ELSEIF(%DIRECTION% = "W");
  #x_verif_back = +1;
  #z_verif_back = 0;
ENDIF;
@#x_verif1_back = %#x_verif_back% * 1;
@#z_verif1_back = %#z_verif_back% * 1;
@#x_verif2_back = %#x_verif_back% * 2;
@#z_verif2_back = %#z_verif_back% * 2;
@#x_verif3_back = %#x_verif_back% * 3;
@#z_verif3_back = %#z_verif_back% * 3;
IF(%DIRECTION% = "N");
  #z_verif_sides = 0;
  #x_verif_sides = -1;
ELSEIF(%DIRECTION% = "S");
  #z_verif_sides = 0;
  #x_verif_sides = +1;
ELSEIF(%DIRECTION% = "E");
  #x_verif_sides = 0;
  #z_verif_sides = +1;
ELSEIF(%DIRECTION% = "W");
  #x_verif_sides = 0;
  #z_verif_sides = -1;
ENDIF;
@#x_verif_sides_d1 = %#x_verif_sides% * 1;
@#z_verif_sides_d1 = %#z_verif_sides% * 1;
@#x_verif_sides_d2 = %#x_verif_sides% * 2;
@#z_verif_sides_d2 = %#z_verif_sides% * 2;
@#x_verif_sides_d3 = %#x_verif_sides% * 3;
@#z_verif_sides_d3 = %#z_verif_sides% * 3;
IF(%DIRECTION% = "N");
  #z_verif_sides_l = 0;
  #x_verif_sides_l = +1;
ELSEIF(%DIRECTION% = "S");
  #z_verif_sides_l = 0;
  #x_verif_sides_l = -1;
ELSEIF(%DIRECTION% = "E");
  #x_verif_sides_l = 0;
  #z_verif_sides_l = -1;
ELSEIF(%DIRECTION% = "W");
  #x_verif_sides_l = 0;
  #z_verif_sides_l = +1;
ENDIF;
@#x_verif_sides_l1 = %#x_verif_sides_l% * 1;
@#z_verif_sides_l1 = %#z_verif_sides_l% * 1;
@#x_verif_sides_l2 = %#x_verif_sides_l% * 2;
@#z_verif_sides_l2 = %#z_verif_sides_l% * 2;
@#x_verif_sides_l3 = %#x_verif_sides_l% * 3;
@#z_verif_sides_l3 = %#z_verif_sides_l% * 3;
GETIDREL(%@#x_verif1%,0,%@#z_verif1%,@#id_verif1,@#data_verif1);
GETIDREL(%@#x_verif2%,0,%@#z_verif2%,@#id_verif2,@#data_verif2);
GETIDREL(%@#x_verif3%,0,%@#z_verif3%,@#id_verif3,@#data_verif3);
GETIDREL(%@#x_verif1_back%,0,%@#z_verif1_back%,@#id_verif_back1,@#data_verif_back1);
GETIDREL(%@#x_verif2_back%,0,%@#z_verif2_back%,@#id_verif_back2,@#data_verif_back2);
GETIDREL(%@#x_verif3_back%,0,%@#z_verif3_back%,@#id_verif_back3,@#data_verif_back3);
GETIDREL(%@#x_verif_sides_d1%,0,%@#z_verif_sides_d1%,@#id_verif_sides_d1,@#data_verif_sides_d1);
GETIDREL(%@#x_verif_sides_d2%,0,%@#z_verif_sides_d2%,@#id_verif_sides_d2,@#data_verif_sides_d2);
GETIDREL(%@#x_verif_sides_d3%,0,%@#z_verif_sides_d3%,@#id_verif_sides_d3,@#data_verif_sides_d3);
GETIDREL(%@#x_verif_sides_l1%,0,%@#z_verif_sides_l1%,@#id_verif_sides_l1,@#data_verif_sides_l1);
GETIDREL(%@#x_verif_sides_l2%,0,%@#z_verif_sides_l2%,@#id_verif_sides_l2,@#data_verif_sides_l2);
GETIDREL(%@#x_verif_sides_l3%,0,%@#z_verif_sides_l3%,@#id_verif_sides_l3,@#data_verif_sides_l3);
Endunsafe;
}$$;