fn EExecUZ &OOO X Y Att Sg1 Sg2 FM =
( 
	local Result
	if ((X==undefined) or (Y==undefined)) then return false
	Result=false
	if (Y.OB=="C") then if (IsReal Y) then 
	(
		NN=Y.C.Re*Sg2
		N=floor(NN)
		GiveOwnPointByNum &OOO X N
		OOO.FAtt=CopyAtt Att
		if (true) then
		(
			if (Att.Lv==8) then Att.Lv=X.FAtt.Lv
		) else if (Att.Chk==1) then TOEmpty_Create &OOO Att
	) else if (Att.Chk==1) then TOEmpty_Create &OOO Att

	return true
) -- EExecUZ

fn GiveOwnPointByNum &OOO X N =
(
	if (X.OB=="P") then
	(
		case N of
		(
			1: 	
			(
				TOPoint_Create &OOO X.X X.Y W T tp_Fixed AttA
				OOO.FAtt=CopyAtt Att0
			)
		
			2: 
			(
				CreateCopy &OOO X.Y 
				OOO.FAtt=CopyAtt Att0
			)
		)
	)
	
	if (X.OB=="O") then
	(
		case  N of
		(
			1: ()
			2: ()
		)
	)
	
	if (X.OB=="D") then
	(
		case  N of
		(
			1: ()
			2: ()
		)
	)
	
	if (X.OB=="L") then
	(
		case N of
		(
			1: CreateCopy &OOO X.L1
			2: CreateCopy &OOO X.S1			
			3: CreateCopy &OOO X.S2			
			4: CreateCopy &OOO X.S3
			5: CreateCopy &OOO X.L2
			6: CreateCopy &OOO X.D1			
			7: CreateCopy &OOO X.D2
			8: CreateCopy &OOO X.D3			
		)
		
	)

	if (X.OB=="Y") then
	(
		case N of
		(
			1: CreateCopy &OOO X.PR1			
			2: CreateCopy &OOO X.PR2
			3: CreateCopy &OOO X.PR3			
			4: CreateCopy &OOO X.PR4			
			5: CreateCopy &OOO X.PR5
		)
	)
	
	if ((X.OB=="K") or (X.OB=="k")) then
	(
		case N of
		(
			1: CreateCopy &OOO X.S1			
			2: CreateCopy &OOO X.S2			
			3: CreateCopy &OOO X.S3			
			4: CreateCopy &OOO X.S4			
			5: CreateCopy &OOO X.D1			
			6: CreateCopy &OOO X.D2			
			7: CreateCopy &OOO X.D3		
			8: CreateCopy &OOO X.D4			
		)
	)
	

	
) -- GiveOwnPointByNum