colobot-data/help/R/mlvolca1.txt

62 lines
3.3 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

\b;Программы, отправленные Хьюстоном
Так как вам в этой миссии будет необходимо много титана, мы написали очень эффективную программу \c;CollectTitanium\n;. Она одновременно собирает все титановые слитки на свободной поверхности, поэтому вы можете позволить ей самой выполнить всю работу. Она также сама себя подзаряжает у \l;электростанции\u object\station;, если в этом возникает необходимость.
\c;
\s;extern void object::CollectTitanium3()
\s;{
\s; // 1) Задание переменной.
\s; \l;object\u cbot\type; item; // информация об объектах
\s;
\s; \l;while\u cbot\while; (true) // повторять всегда
\s; {
\s;
\s; // 2) Перейти к титановой руде и взять ее.
\s; item = \l;radar\u cbot\radar;(\l;TitaniumOre\u cbot\category;);// искать титан
\s; \l;goto\u cbot\goto;(item.position); // перейти к позиции
\s; \l;grab\u cbot\grab;(); // взять титан
\s;
\s; // 3) Перейти к преобразователю и сбросить его.
\s; item = \l;radar\u cbot\radar;(\l;Converter\u cbot\category;); // искать преобразователь
\s; \l;goto\u cbot\goto;(item.position); // перейти к позиции
\s; \l;drop\u cbot\drop;(); // сбросить титан
\s; \l;move\u cbot\move;(-2.5); // отойти назад на 2,5 метра
\s;
\s; // 4) Подождать пока титан будет преобразован и забрать его
\s; \l;do\u cbot\do;
\s; {
\s; \l;wait\u cbot\wait;(1); // ждать слиток
\s; item = \l;radar\u cbot\radar;(\l;Titanium\u cbot\category;, 0, 45, 0, 5);
\s; }
\s; \l;while\u cbot\while; ( item == null );
\s; \l;goto\u cbot\goto;(item.position);
\s; \l;grab\u cbot\grab;(); // взять его
\s;
\s; // 5) Drop on a free space
\s; \l;goto\u cbot\goto;(\l;space\u cbot\space;(position)); // выйти на свободное место
\s; \l;drop\u cbot\drop;(); // сбросить титан
\s;
\s; // 6) Если батарея разряжена, зарядить ее.
\s; \l;if\u cbot\if; ( energyCell.energyLevel < 0.5 )
\s; { // if so:
\s; item = \l;radar\u cbot\radar;(\l;PowerStation\u cbot\category;);
\s; \l;if\u cbot\if; ( item != null ) // станция найдена ?
\s; {
\s; \l;goto\u cbot\goto;(item.position); // идти туда
\s; \l;while\u cbot\while; ( energyCell.energyLevel < 1 )
\s; { // пока идет зарядка:
\s; \l;wait\u cbot\wait;(1); // ждать
\s; }
\s; }
\s; }
\s; }
\s;}
\n;
\b;Архивы
Список программ, отправленных в предыдущих миссиях
o \c;\l;KillAnt1\u mlsaari2;\n;
o \c;\l;CollectTitanium2\u mlcrys2;\n;
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;