fn EExecD0 &D P R Att Sg1 Sg2 FM =
(	
	if (P==undefined) or (R==undefined) then return false
	Success=false
	if (Att.Lv == drw_Limited) or (Att.Lv == drw_Opposite) then Att.Lv=drw_UnLimited;

	if (P.OB=="P") and (R.OB=="C") then
	(
		TODuga_Create &D P.X P.Y R.C (P.X.Re+R.C.Re) P.Y.Re (P.X.Re+R.C.Re) P.Y.Re Att 
		D.Vid=circ_full;
	) else
	if (P.OB=="P") and (R.OB=="D") then
	(
		TODuga_Create &D P.X P.Y R.R (P.X.Re+R.R.Re) P.Y.Re (P.X.Re+R.R.Re) P.Y.Re Att 
		D.Vid=circ_full;
	) else
	
	(
		if (Att.Chk==1) then TOEmpty_Create &D Att;
	)
	return true
) -- EExecD0