let draw_role_click_zone (name : string) : unit =
let role_x = Hashtbl.find role_position name
in
let rec aux y_pos tag =
if(tag>0)
then (
if(in_zone y_pos)
then aux (y_pos+. !yDelta ) tag
else (
draw_click_zone role_x y_pos tag (name^"click_zone");
aux (y_pos+. !yDelta ) (tag - 1)
);
);
in
let rec aux2 y_pos tag =
if(tag>0)
then (
if(in_zone y_pos)
then aux2 (y_pos+. !yDelta ) tag
else (
if (in_click_zone role_x y_pos) then draw_click_zone role_x y_pos tag (name^"click_zone");
aux2 (y_pos+. !yDelta ) (tag - 1)
);
);
in
remove_graphics_obj_with_tag_value (name^"click_zone");
if( (Hashtbl.find_all var_in_monitor name)<>[] ) then aux (!yOrd +. !yDelta) !tag_number
else aux2 (!yOrd +. !yDelta) !tag_number