\b;Programs dispatched by Houston
Below is one of the programs that has been developed by our engineers.
An upgrade on the previous program: the \l;grabber\u object\botgr;, on its way back from the converter, makes a stop, if necessary, at the \l;power station\u object\station; to recharge its power cell.

This program also works on \l;winged grabbers\u object\botgj;, if the \l;derrick\u object\derrick; is on another island than the \l;converter\u object\convert;.
\c;
\s;extern void object::CollectTitanium2()
\s;{
\s;	// 1) Variable definition.
\s;	\l;object\u cbot\type;  item;            // info. about objects
\s;	
\s;	// 2) Go to the titanium ore and grab it.
\s;	item = \l;radar\u cbot\radar;(\l;TitaniumOre\u cbot\category;);// look for titanium ore
\s;	\l;goto\u cbot\goto;(item.position);     // go to the position
\s;	\l;grab\u cbot\grab;();                  // grab the titanium
\s;	
\s;	// 3) Go to the converter and drop it.
\s;	item = \l;radar\u cbot\radar;(\l;Converter\u cbot\category;); // look for converter
\s;	\l;goto\u cbot\goto;(item.position);     // go to the position
\s;	\l;drop\u cbot\drop;();                  // drop the titanium
\s;	\l;move\u cbot\move;(-2.5);              // step back 2.5 m
\s;		
\s;	// 4) If power cell half empty, recharges.
\s;	if ( energyCell.energyLevel < 0.5 )
\s;	{                               // if so:
\s;		item = \l;radar\u cbot\radar;(\l;PowerStation\u cbot\category;); // look for station
\s;		\l;goto\u cbot\goto;(item.position);        // go there
\s;		\l;wait\u cbot\wait;(5);                    // wait
\s;	}
\s;}
\n;
\b;Archives
Index of the programs dispatched in former missions:

o  \c;\l;CollectTitanium1\u mlcrys1;\n;
o  \c;\l;Recharge2\u mltropi3;\n;
o  \c;\l;Recharge1\u mllune4;\n;
o  \c;\l;SwitchCell1\u mllune1;\n;