home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / WWIVMODS / PRE412.ZIP / GOLDSYS5.MOD < prev    next >
Text File  |  1990-03-24  |  2KB  |  77 lines
  1. Tony Godfrey #1 @18
  2. Thu Mar 22 09:02:04 1990
  3. void chainedit()
  4. {
  5.     int i,i1,i2,i3,done,f;
  6.   char s[81],s1[81],s2[81],ch;
  7.  
  8.     goldload();
  9.   if (!checkpw())
  10.     return;
  11.   showchains();
  12.   done=0;
  13.   do {
  14.     nl();
  15.     prt(2,"Chains: D:elete, I:nsert, M:odify, Q:uit, ? : ");
  16.     ch=onek("QDIM?");
  17.     switch(ch) {
  18.       case '?':
  19.         showchains();
  20.         break;
  21.       case 'Q':
  22.         done=1;
  23.         break;
  24.       case 'M':
  25.         nl();
  26.         prt(2,"Chain number? ");
  27.         input(s,2);
  28.         i=atoi(s);
  29.         if ((s[0]!=0) && (i>=0) && (i<numchain))
  30.           modify_chain(i);
  31.         break;
  32.       case 'I':
  33.         if (numchain<50) {
  34.           nl();
  35.           prt(2,"Insert before which chain? ");
  36.           input(s,2);
  37.           i=atoi(s);
  38.           if ((s[0]!=0) && (i>=0) && (i<=numchain)) {
  39.             insert_chain(i);
  40.             i2 = costgold[i];
  41.             costgold[i] = 0;
  42.             for (i1=i+1; i1<numchain; i1++) {
  43.               i3 = costgold[i1];
  44.               costgold[i1] = i2;
  45.               i2 = i3;
  46.             }
  47.             costgold[numchain] = i2;
  48.             savegold();
  49.           }
  50.         }
  51.         break;
  52.       case 'D':
  53.         nl();
  54.         prt(2,"Delete which chain? ");
  55.         input(s,2);
  56.         i=atoi(s);
  57.         if ((s[0]!=0) && (i>=0) && (i<numchain)) {
  58.           nl();
  59.           sprintf(s1,"Delete %s? ",chains[i].description);
  60.           prt(5,s1);
  61.           if (yn()) {
  62.             delete_chain(i);
  63.             for (i1=i; i1<numchain; i1++)
  64.               costgold[i1] = costgold[i1+1];
  65.             costgold[numchain] = 0;
  66.             savegold();
  67.           }
  68.         }
  69.       break;
  70.     }
  71.   } while ((!done) && (!hangup));
  72.   strcpy(s,syscfg.datadir);
  73.   strcat(s,"CHAINS.DAT");
  74.   f=open(s,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);
  75.   write(f,(void *)chains, numchain * sizeof(chainfilerec));
  76.   close(f);
  77. }