home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / HSRC_117.ZIP / FINDAREA.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-12  |  1.4 KB  |  50 lines
  1. #include "msgg.h"
  2. #include "twindow.h"
  3. #include "keys.h"
  4. #include "headedit.h"
  5.  
  6. int pascal find_area (void) {
  7.  
  8.     word register x;
  9.  
  10.     if (areano==0) return 0;
  11.     if (!maxareas) goto NullArea;
  12.  
  13.     for (x=0;x<maxareas;x++) {
  14.         if (marea[x].number==areano) {
  15.             currarea=(struct _marea far *)&marea[x];
  16.             if(!marea[x].thisname) {
  17.                 if(!notrack) {
  18.                     if(noalias>1) {
  19.                         if(marea[x].attr & REAL) strcpy(name,alias[0]);
  20.                         else strcpy(name,alias[1]);
  21.                     }
  22.                 }
  23.             }
  24.             else {
  25.                 strcpy(name,alias[(marea[x].thisname-1)]);
  26.             }
  27.             if(marea[x].thisaddr) {
  28.                 curaddress.zone=address[(marea[x].thisaddr)-1]->zone;
  29.                 curaddress.net=address[(marea[x].thisaddr)-1]->net;
  30.                 curaddress.node=address[(marea[x].thisaddr)-1]->node;
  31.                 curaddress.point=address[(marea[x].thisaddr)-1]->point;
  32.                 strcpy(curaddress.domain,address[(marea[x].thisaddr)-1]->domain);
  33.             }
  34.             return 1;
  35.         }
  36.         else if (marea[x].number>higharea) goto NullArea;
  37.     }
  38.  
  39. NullArea:
  40.  
  41.     nullarea.attr=12;
  42.     currarea=&nullarea;
  43.     nullarea.number=areano;
  44.     if(!notrack) {
  45.         if(noalias>1)strcpy(name,alias[1]);
  46.         else strcpy(name,alias[0]);
  47.     }
  48.     return 0;
  49. }
  50.