[Spy4433]

если я правельно понял.. то должно получится что то типо того

For ro.pro=Each  pro
ro\Statys=0 
if EntityDistance (user,ro\model)<4 then 
	If mouse_1 then 
	ro\Statys=1  
	ro\head#=ro\head#-yron
	endif 
endif 

next

могу ошибаться