home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / SYSOP / MODS1.ZIP / BEAM201.MOD < prev    next >
Text File  |  1995-06-09  |  4KB  |  112 lines
  1. Beamer #1 @3459
  2. Fri Jun 09 11:57:55 1995
  3. 7╔═══────∙─═─ ─═── ──═ ─ ── ∙
  4. 7║ 1Reply Stats: 3If you want to
  5. 7╚═════──── ═──═─ ─══─ ──═─ ─ ─── ∙
  6.  
  7. ╔───────────────────────────────────────────────────────────────────────────╗
  8. │ Mod Name:  BEAM201.Mod                  Date : June 9, 1995               │
  9. │ Difficulty: █▒▒▒▒▒▒▒▒▒                  Author: Beamer                    │
  10. │ WWIV Version: 4.23                              7@2148 WWIVnet            │
  11. │ Files Affected: MSGBASE1.C                      1@3450 DesertNet          │
  12. │ Description: Send SSM to the owner of a         1@3459 TerraNet           │
  13. │              deleted post with reason why.      1@3452 Infiniti           │
  14. ╠─────────────────────────╦─────────────────────────────────────────────────╝
  15. │─ ─═[ Modding codes ]═─ ─│
  16. │  ─────────────────────  │
  17. │ =    Existing Code      │
  18. │ +    Add This Code      │
  19. │ -    Delete This Code   │
  20. │ %    Modify This Code   │
  21. ╚─────────────────────────╝
  22.  
  23. Long Desc  :  There was a request for this mod on the net a few days ago,
  24.           I thought it t'was a good idea, as I've been getting a bunch
  25.           of bogus/BS posts on my netted subs lately and I get tired
  26.           of emailing the author to gripe, so this makes it quicker.
  27.           The mod works the same way as 'D' when reading posts,
  28.           hit 'Z' to 'zap' and it asks you for a reason.
  29.  
  30. It looks like the following...
  31.  
  32.           6■ 7Your post titled2: 3Your Moma!!!
  33.           6■ 7On the subboard 2: 3General Chat
  34.           6■ 7Was deleted by  2: 3The Sub Host
  35.           6■ 7Reason          2: 3That was not nesseccary!
  36.  
  37. The SSM is big enough to get the person's attention and it will
  38. BEEP, so you KNOW they'll see that it was deleted and why. <g>
  39.  
  40.  
  41. ─────────────────────────────────────────────────────────────────────────────
  42. Step 0: Back the code up!
  43. DOE!
  44. ─────────────────────────────────────────────────────────────────────────────
  45.  
  46. ─────────────────────────────────────────────────────────────────────────────
  47. STEP 1     :  Open up MSGBASE1.C, in void scan(... block copy this chunk
  48.           of code after case'D':
  49. ─────────────────────────────────────────────────────────────────────────────
  50.  
  51. //BEAM201.MOD Begins
  52.           case 'Z':
  53.         if (lcs()) {
  54.           if (msgnum) {
  55.             open_sub(1);
  56.             resynch(cursub, &msgnum, NULL);
  57.             p2=*get_post(msgnum);
  58.             nl();
  59.             npr("7Reason2: ");
  60.             mpl2(58);
  61.             inputl(s1,58);
  62.             sprintf(s,"6■ 7Your Post Titled2: 3%s0",irt);
  63.             ssm(p2.owneruser,p2.ownersys,s);
  64.             sprintf(s,"6■ 7On The Sub      2: 3%s0",subboards[curlsub].name);
  65.             ssm(p2.owneruser,p2.ownersys,s);
  66.             sprintf(s,"6■ 7Was Deleted By  2: 3The Sub Host0");
  67.             ssm(p2.owneruser,p2.ownersys,s);
  68.             sprintf(s,"6■ 7Reason Deleted  2: 3%s0",s1);
  69.             ssm(p2.owneruser,p2.ownersys,s);
  70.             nl();
  71.             delete(msgnum);
  72.             close_sub();
  73.             if (p2.ownersys==0) {
  74.               read_user(p2.owneruser,&tu);
  75.               if ((tu.inact & inact_deleted)==0) {
  76.             if (date_to_daten(tu.firston) < p2.daten) {
  77.               nl();
  78.               prt(2,get_string(980));
  79.                           mpl(3);
  80.                           input(s1,3);
  81.                           if (s1[0])
  82.                             i1=(atoi(s1));
  83.                           else
  84.                             i1=1;
  85.               if (i1>tu.msgpost)
  86.                 i1=tu.msgpost;
  87.               if (i1)
  88.                 tu.msgpost-=i1;
  89.               nl();
  90.               ansic(3);
  91.               outstr(get_string(993));
  92.               pln(i1);
  93.               tu.deletedposts++;
  94.               write_user(p2.owneruser,&tu);
  95.               topscreen();
  96.             }
  97.               }
  98.             }
  99.             resynch(cursub, &msgnum, &p2);
  100.           }
  101.         }
  102.         break;
  103. //BEAM201.MOD ENDS
  104.  
  105. ─────────────────────────────────────────────────────────────────────────────
  106. STEP 2:  Recompile the thing!
  107. ─────────────────────────────────────────────────────────────────────────────
  108.  
  109.  
  110.                 After Dark BBs
  111.                 (314) 946-1730
  112.