home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 51 / PCGamer51_17Demos.iso / games / colobotdemo / colobotdemo10e.exe / help / Tant5.TXT < prev    next >
Text File  |  2001-07-03  |  2KB  |  53 lines
  1. \b;Objective
  2. Adapt the flying height of the \l;winged shooter\u object\botfj; to the terrain.
  3.  
  4. \t;Program
  5. Here is one more time the program of the previous exercise that hunts ants:
  6. \c;
  7. \s;extern void object::JetFighter1()
  8. \s;{
  9. \s;    object    item;
  10. \s;    
  11. \s;    aim(-20);
  12. \s;    jet(0.2);
  13. \s;    while (position.z < 10)
  14. \s;    {
  15. \s;        wait(0.2);
  16. \s;    }
  17. \s;    jet(0);
  18. \s;    
  19. \s;    while (true)
  20. \s;    {
  21. \s;        while (radar(AlienAnt, 0, 360, 0, 20) == null)
  22. \s;        {
  23. \s;            item = radar(AlienAnt);
  24. \s;            turn(direction(item.position));
  25. \s;            motor(1,1);
  26. \s;            wait(0.2);
  27. \s;        }
  28. \s;        fire(1);
  29. \s;    }
  30. \s;}
  31. \n;
  32. The bot always stays at an altitude of 10m above sea level. This is not adapted to the mountainous terrain of the present exercise, the bot has got to adapt to the terrain. The best way to do so is to insert just before the \c;wait(0.2);\n; a test to see if the height above ground is too low or too high, and to react accordingly.
  33.  
  34. We already saw that \c;position.z\n; gives the altitude above sea level. \c;\l;topo\u cbot\topo;(position)\n; gives the altitude of the ground at the position of the bot. If we want the bot to stay at an altitude between 6 and 9m above ground, we must treat the following cases: if \c;position.z-topo(position)\n; is smaller than 6, the bot must climb with \c;jet(1);\n;. If \c;position.z-topo(position)\n; is greater than 9, the bot must go down with \c;jet(-1);\n;. In order to program these tests, use the instruction \c;\l;if\u cbot\if;\n;, that executes the instructions in braces only once if the condition is true:
  35. \c;
  36. \s;    jet(0);
  37. \s;    if (position.z-topo(position) < 6)
  38. \s;    {
  39. \s;        jet(1);
  40. \s;    }
  41. \s;    
  42. \s;    if (position.z-topo(position) > 9)
  43. \s;    {
  44. \s;        jet(-1);
  45. \s;    }
  46. \n;
  47. Before starting the testing, stabilize the altitude with \c;jet(0);\n;: in case the height above ground lies between 6 and 9m, the bot must neither climb nor go down. If afterwards either \c;jet(1);\n; or \c;jet(-1);\n; is executed, it will cancel the previous \c;jet(0);\n;.
  48.  
  49. Just insert these lines before the \c;wait(0.2)\n;, and the bot will adapt to the terrain. You can then delete the first lines of the program that set the initial altitude at 10m.
  50.  
  51. \t;See also
  52. \l;Programming\u cbot;, \l;types\u cbot\type; and \l;categories\u cbot\category;.
  53.