home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / TSD-02A.ZIP / TSD-02A.MOD < prev   
Encoding:
Text File  |  1995-06-17  |  4.2 KB  |  164 lines
  1. ``Swabby`` IceNET #1 AT 7403
  2. Wed Jun 07 11:38:17 1995
  3. D╔═════════════════════════════════════════════════════════════════════════╦
  4. ╠═════════╦══════════════════╗CLegal StuffC║
  5. ║ Mod Name║ TSD-02a.424C║   Well TriWare has Two Members Right Now   ║
  6. ╠═════════║══════════════════║ These AreC║
  7. ║ Date    ║ June, 7 1995C║CSwabby    --  Bermuda  TriangleC║
  8. ╠═════════║══════════════════║C--  SYSCOC║
  9. ║ Netz    ║ PALnet   1@1C║    Swabby 1@1.PALnet  SYSCO 1@8409.PALnet  ║
  10. ║C║ WWIVnet  1@6037  ║C║
  11. ║C║ TERRAnet 1@7404  ║C║
  12. ╚═════════╩══════════════════╠════════════════════════════════════════════╣
  13.    TriWare SoftwareC║CDetailzC║
  14. C(c)opyright ('95)C║  This is A Correction thanks to someone    ║
  15. Swabster Learned TheC║ in ?? Please Post bug fixes in TRIWAREC║
  16.    Art Of AnsizC║ Support so i get yer names. This WallC║
  17. C║ Actually Writes this time!!C║
  18. C╚════════════════════════════════════════════╝
  19. D
  20.  
  21.  
  22. USED SOME CODE in FMD Mod..  Only a few lines..
  23.  
  24. ok Back To Our Little Mod
  25.  
  26. -  Delete Code
  27. +  Add Code
  28. =  Keep The Same
  29. $  Eat this part
  30.  
  31. Step #1 Backup pkzip backsour *.c *.h
  32.  
  33. Step #2
  34.  
  35. Add this Code To the End of LILO.C
  36.  
  37. void triwall(void)
  38. {
  39.   char s[81], s1[81], s2[162], ro[160], text[26][81], *ss;
  40.   int i2, maxone=15, top=0;
  41.  
  42.   FILE* onefile;
  43.  
  44.   if (ini_init("WWIV.INI", "TRIWARE", NULL)==0)
  45.   {
  46.     if ((ss=ini_get("ONELINERS_AMOUNT", -1, NULL))!=NULL)
  47.     {
  48.       maxone=atoi(ss);
  49.     }
  50.     if ((ss=ini_get("ONELINERS_AT_TOP", -1, NULL))!=NULL)
  51.     {
  52.       if (ss[0]=='Y')
  53.         top=1;
  54.       else
  55.         top=0;
  56.     }
  57.     ini_done();
  58.   }
  59.   sprintf(s, "%sONELINER.DAT", syscfg.datadir);
  60.   onefile=fsh_open(s, "r");
  61.   litebar2("%s One-Liners", syscfg.systemname);
  62.   nl();
  63.   for (i2=0; i2<maxone; i2++)
  64.   {
  65.     fgets(s2, 100, onefile);
  66.     strcpy(text[i2], s2);
  67.     s2[59]=0;
  68.     skip(s2);
  69.     sprintf(s1, "7\"%s7\"", s2);
  70.     pl(s1);
  71.   }
  72.   nln(2);
  73.   prt(9,"Add a one liner? ");
  74.   if (yn())
  75.   {
  76.     if (thisuser.restrict & restrict_automessage)
  77.     {
  78.       nl();
  79.       pl("Sorry You Can't Add To One-Liners");
  80.     } else {
  81.       prt(7,"Please enter your One-Liner (9Returns Abort this7)");
  82.       nl();
  83.       prt(7,">");
  84.       ansic(3);
  85.       ro[0]=0;
  86.       inli(s1,ro,59,1);
  87.       if (s1[0]==0)
  88.       {
  89.         fsh_close(onefile);
  90.         return;
  91.       }
  92.       fsh_close(onefile);
  93.       sprintf(s, "%sONELINER.DAT", syscfg.datadir);
  94.       onefile=fsh_open(s, "w");
  95.       if (top==0)
  96.       {
  97.         strcat(text[maxone-1], "\n");
  98.         for (i2=1; i2<maxone; i2++)
  99.           fprintf(onefile, "%s", text[i2]);
  100.       }
  101.       fprintf(onefile, "%-59.59s; %.18s", s1, nam(&thisuser,usernum));
  102.       if (top==1)
  103.       {
  104.         fprintf(onefile, "\n");
  105.         for (i2=0; i2<maxone-1; i2++)
  106.           fprintf(onefile, "%s", text[i2]);
  107.        }
  108.     }
  109.   }
  110.   fsh_close(onefile);
  111. } 
  112.  
  113. Step #3
  114. Open BBS.C
  115. And Add this
  116.  
  117.  
  118.  
  119. =   pl("   McAllen, TX  78504-0455");
  120. =   nl();
  121. = }
  122. + if (strcmp(s,"TRIWALL")==0) {
  123. +   triwall();
  124. +  }
  125.  
  126.  
  127. Step Four:
  128.  
  129. Add This at the end of com.c
  130.  
  131. void litebar2(char *fmt, ...)
  132. {
  133.   va_list ap;
  134.   char s[512], s2[250];
  135.  
  136.   va_start(ap, fmt);
  137.   vsprintf(s, fmt, ap);
  138.   va_end(ap);
  139.  
  140.  if (okansi()) {
  141.    npr("\x1B[0;1;36m%s\r\n",charstr(strlen(s),'▄'));
  142.    sprintf(s2,"%s",stripcolors(s));
  143.    pl(s2);
  144.    npr("\x1B[0;1;30m%s\r\n",charstr(strlen(s),'▀'));
  145.  } else
  146.    pl(s);
  147.  ansic(0);
  148. }   
  149.  
  150. And...
  151.  
  152. Type MAKE FCNS
  153. Recompile!
  154.  
  155.  
  156. Please Join Subtype: TriWALL on these fine networks
  157.  
  158. WWIVnet.TRIWALL
  159. PALnet..TRIWALL
  160. ICEnet..TRIWALL
  161. FILEnet.TRIWALL
  162.  
  163. More To Come!
  164.