\b;Programs dispatched by Houston
Below is a program that has been developed by our engineers.

It instructs the \l;shielder\u object\botshld; to follow and protect the \l;phazer\u object\botphaz;.
\c;
\s;extern void object::FollowPhazer()
\s;{
\s;	\l;object\u cbot\type;    item;              // info. about phazer
\s;	\l;point\u cbot\type;     dest;              // position where to go
\s;	\l;float\u cbot\type;     dist;              // distance to phazer
\s;	
\s;	item = \l;radar\u cbot\radar;(\l;PhazerShooter\u cbot\category;);
\s;	\l;if\u cbot\if; ( item == null )
\s;	{
\s;		\l;message\u cbot\message;("No phazer found");
\s;		\l;return\u cbot\return;;                  // stop the program
\s;	}
\s;	\l;shield\u cbot\shield;(1, 25);               // activate the shield
\s;	
\s;	\l;while\u cbot\while; ( true )               // repeat forever
\s;	{
\s;		item = \l;radar\u cbot\radar;(PhazerShooter);// look for phazer
\s;		\l;if\u cbot\if; ( item == null )  break;
\s;		
\s;		dist = \l;distance\u cbot\dist;(item.position, position);
\s;		\l;if\u cbot\if; ( dist < 5 )
\s;		{                        // if closer than 5 m:
\s;			\l;wait\u cbot\wait;(1);             // wait
\s;		}
\s;		\l;else\u cbot\if;                     // otherwise:
\s;		{ // Calculate a position 5 m before the phazer
\s;			dest.x = (item.position.x-position.x)*((dist-5)/dist)+position.x;
\s;			dest.y = (item.position.y-position.y)*((dist-5)/dist)+position.y;
\s;			dest.z = (item.position.z-position.z)*((dist-5)/dist)+position.z;
\s;			\l;goto\u cbot\goto;(dest, 0, 1, 1); // and go there
\s;		}
\s;	}
\s;}
\n;
\b;Archives
Index of the programs dispatched in former missions:

o  \c;\l;ServiceTower1\u programs/8_ServiceTower1;\n;
o  \c;\l;CollectTitanium3\u programs/7_CollectTitanium3;\n;
o  \c;\l;KillAnt1\u programs/6_KillAnt1;\n;
o  \c;\l;CollectTitanium2\u programs/5_CollectTitanium2;\n;
o  \c;\l;CollectTitanium1\u programs/4_CollectTitanium1;\n;
o  \c;\l;Recharge2\u programs/3_Recharge2;\n;
o  \c;\l;Recharge1\u programs/2_Recharge1;\n;
o  \c;\l;SwitchCell1\u programs/1_SwitchCell1;\n;
