home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / SYSOP / MODS1.ZIP / CY-BLKL.MOD < prev    next >
Text File  |  1996-02-02  |  3KB  |  120 lines
  1. ┌───── ────────  ─ ── ─ ──────────────── ─ ─ ────────── ───── ───────────────┐
  2. │ Mod Name      ■ CY-BLKL.MOD        Mod Author: Cyrus                       │
  3. │ DifficuLty    ■ ▓▒▒▒▒▒▒▒▒▒  Crapping's harder   -Cy-[ash]                  │
  4. │ WWiV Version  ■ 4.24+                                                      │
  5. │ Mod Date      ■ 01/23/96                                                   │
  6.   Files Affected■ MMENU.C  MISCCMD.C                                         │
  7. │ Description   ■ It's A blacklist for all YoU EliToS                        │
  8. └────────────────── ─────── ───────────── ────────────── ──────────────── ───┘
  9.  
  10. [Extended Crap]
  11. This is the first .mod released by me as a member of .ash.,  It's a
  12. blacklist where everyone can put the name of the users that piss them off.
  13. It has a cool ansi header and menu.....
  14. I like it,  hope you do...
  15.  
  16. [Disclaimer]
  17. you installed it not me, your fault not me,  If its messed you shoulda backed
  18. it up!!!!!!
  19. BACK IT UP!!
  20. [1st step].....
  21. Open Misccmd.C and place these two functions at the end of the file..
  22.  
  23.  
  24. void boxbgone(int X, int Y, int X2, int Y2)
  25. {
  26.   int i;
  27.   ansic(0);
  28.   goxy(X,Y);
  29.   for (Y=Y;Y<Y2;Y++) {
  30.     for (i=0;i<X2;i++)
  31.       npr(" ");
  32.     goxy(X,Y);
  33.   }
  34. }
  35.  
  36. void blacklist(void)
  37. {
  38.   int i,f,ok, done=0, lclear;
  39.   char s[150],s1[150],ch,ch1,ch3,*ss;
  40.   char alias[21], reason[41];
  41.   helpl=0;
  42.  
  43.  
  44.    do {
  45.    printfile("BL.ANS");
  46.      goxy(61,11);
  47.      ch3=onek("ARQ");
  48.      switch (ch3) {
  49.      case 'Q':
  50.       done=1;
  51.       CLS();
  52.       break;
  53.      case 'R':
  54.       CLS();
  55.       printfile("BLLIST.ANS");
  56.       pausescr();
  57.       break;
  58.      case 'A':
  59.     boxbgone(41,10,39,16);
  60.     goxy(43,10);
  61.     pl("8Enter their alias:");
  62.     goxy(43,11);
  63.         inputl(alias,20);
  64.     ok =1;
  65.      if (ok) {
  66.         goxy(43,14);
  67.             pl("7Why should he be blacklisted?");
  68.         goxy(43,15);
  69.         inputl(reason,36);
  70.         CLS();
  71.         sprintf(s,"7[1%-20s7]  8%-38s 7(1%-15s7)", alias, reason, thisuser.name);
  72.         nln(2);
  73.         pl(s);
  74.         nl();
  75.         npr("5Blacklist this Lamer? ");
  76.             if (ny()) {
  77.           sprintf(s1,"%sBLLIST.ANS",syscfg.gfilesdir);
  78.           f=sh_open(s1,O_RDWR | O_CREAT | O_BINARY, S_IREAD | S_IWRITE);
  79.           if (filelength(f)) {
  80.         sh_lseek(f,-1L,SEEK_END);
  81.         sh_read(f,((void *)&ch1),1);
  82.         if (ch1==26)
  83.           sh_lseek(f,-1L,SEEK_END);
  84.           }
  85.           sh_write(f,(void *)s,strlen(s));
  86.           sh_close(f);
  87.           nl();
  88.           pl("7His name's on the list..");
  89.         }
  90.       }
  91.        }
  92.      } while ((!done) && (!hangup));
  93.    }
  94.  
  95.  
  96.  
  97. [Step  duce...]
  98.  
  99. Open MMEnu.c
  100. in function Mainmenu
  101.  
  102. Add this after case I:
  103.  
  104.   case '&':
  105.      blacklist();
  106.      break;
  107.  
  108.  
  109. [Step trizzat]
  110. Make Fcns...and compile...and unzip blklist.zip in your gfiles dir
  111.  
  112.  
  113. [Greetz]
  114.  
  115. I want to say whats up to everyone on MB, and whats up to -xEx-
  116. I also want to thank Eric for all his help and patience even though
  117. I decided not to use his ideas... but thats only because I need patience..
  118.  
  119. -Cy- [ash]
  120.