Cet exercice ressemble beaucoup au prΘcΘdent. Il faut maintenant dΘplacer 3 cubes de \l;titanium\u object\titan; sur 3 plates-formes. Les coordonnΘes des plates-formes sont :
\c;
x=10, y=-60
x=10, y=-65
x=10, y=-70
\n;
\b;Principe
RΘpΘter 3 fois :
o Chercher le cube de titanium le plus loin avec \c;\l;radar\u cbot\radar;\n;.
o Prendre le titanium avec \c;\l;grab\u cbot\grab;\n;.
o Aller sur une plate-forme avec \c;\l;goto\u cbot\goto;\n;.
o DΘposer le titanium avec \c;\l;drop\u cbot\drop;\n;.
Il est nΘcessaire de chercher le titanium le plus loin, car il ne faut pas dΘtecter celui que l'on vient de dΘposer sur une plate-forme.
\b;Solution
Une boucle \c;\l;for\u cbot\for;\n; permet de rΘpΘter 3 fois l'ensemble des instructions. A l'intΘrieur de la boucle, pour trouver le titanium le plus loin, utilisez l'instruction \c;\l;radar\u cbot\radar;(Titanium, 0, 360, 0, 1000, -1);\n;. La derniΦre valeur \c;-1\n; signifie que la recherche va de l'extΘrieur vers l'intΘrieur. On privilΘgie donc les objets les plus ΘloignΘs.
\c;
\s;object metal;
\s;metal = radar(Titanium, 0, 360, 0, 1000, -1);
\s;if ( metal == null ) return;
\s;goto(metal.position);
\n;
La variable \c;metal\n; est de type \c;\l;object\u cbot\object;\n;. Pour connaεtre la position de l'objet dΘcrit par la variable, il faut donc Θcrire \c;metal.position\n;.
Les coordonnΘes \c;x\n; des 3 plates-formes sont toutes Θgales α 10. En revanche, les coordonnΘes \c;y\n; varient de -60, -65 α -70. Une bonne idΘe pour calculer la position est de faire intervenir la variable \c;i\n; de la boucle \c;for\n;, qui prend les valeurs 0, 1 et 2 :
\c;
\s;dest.x = 10;
\s;dest.y = -60-5*i;
\n;
A vous de terminer le programme ...
\key;\key help;\norm; permet de revoir ces instructions en tout temps !
\t;Voir aussi
\l;Commandes\u command; et \l;programmation\u cbot;.
