home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 3.2 / 1997-05_Disc_3.2.iso / QUAKECTF / SRC / CTF / TELEFRAG.QC < prev    next >
Text File  |  1997-01-12  |  2KB  |  65 lines
  1. /*
  2. **
  3. ** _telefrg.qc (Telefrag Code, 1.1)
  4. **
  5. ** Copyright (C) 1996 Johannes Plass
  6. **
  7. ** This program is free software; you can redistribute it and/or modify
  8. ** it under the terms of the GNU General Public License as published by
  9. ** the Free Software Foundation; either version 2 of the License, or
  10. ** (at your option) any later version.
  11. **
  12. ** This program is distributed in the hope that it will be useful,
  13. ** but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. ** GNU General Public License for more details.
  16. **
  17. ** You should have received a copy of the GNU General Public License
  18. ** along with this program; if not, write to the Free Software
  19. ** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. **
  21. ** Author:   Johannes Plass (plass@dipmza.physik.uni-mainz.de)
  22. **
  23. ** --
  24. ** Sniped by Zoid for ThreeWave Mods, GPL respected
  25. **
  26. */
  27.  
  28. entity() SelectSpawnPoint;
  29.  
  30. entity(entity spot) TelefragSelectSpawnPoint =
  31. {
  32.     local entity e, firstspot;
  33.     local float search_spot;
  34.     
  35.     search_spot = 25;
  36.     firstspot = spot;
  37.  
  38.     while (search_spot) {
  39.         e = findradius(spot.origin, 50);
  40.         if (!e)
  41.             search_spot = 0;
  42.         else {
  43.             local float occupied;
  44.             occupied = 0;
  45.             while (!occupied && !(!e)) {
  46.                 if ((e.classname == "player"      // CTFBOT
  47.                     || e.classname == "bot")     // CTFBOT
  48.                      && e.deadflag == DEAD_NO)
  49.                         occupied = 1;
  50.                 else
  51.                     e = e.chain;
  52.             }
  53.             if (occupied) 
  54.             {    
  55.                 spot = SelectSpawnPoint();
  56.                 search_spot = search_spot - 1;
  57.                 if (spot == firstspot)
  58.                         search_spot = 0;
  59.             } else
  60.                 search_spot = 0;
  61.         }
  62.     }
  63.     return (spot);
  64. };
  65.