home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / WWIVMODS / PRE412.ZIP / GOLDEDIT.MOD < prev    next >
Text File  |  1990-03-23  |  6KB  |  188 lines
  1. Ali Baba #1 @5451
  2. Sun Mar 18 22:22:36 1990
  3.                   ON-LINE GOLD EDITOR
  4.                +++++++++++++++++++
  5.  
  6. WWIV 4.11 MODIFICATION BY:
  7.  
  8. PUDJI 3 @5458
  9.       7 @5451
  10.  
  11. -------------------------------------------------------------------------------
  12.  
  13. Well this Mod is really useful when you want to edit Gold on a On-line User,
  14.  
  15. Hitting the F1 key, it will give you a special field to add or retreat gold of
  16. the on-line user...
  17.  
  18. Maybe this Mod has previously been release, I wait for fews months reading on
  19. the Mod Net and I haven't see it yet... That's why I release it now...
  20.  
  21. Sorry if that Mod has release before....
  22.  
  23.                             Ali Baba
  24.                             1 @5451
  25. _______________________________________________________________________________
  26.  
  27. HOW TO INSTALL THAT MOD:
  28. ************************
  29.  
  30.  
  31. Well I try to simplify the installation, I give you the whole part of the 
  32. modified code.
  33.  
  34. If you havent Modified the void val_cur_user() in module CONIO.C just replace 
  35. the original code with the modified one.
  36.  
  37. If you have changed something in this code, well better read carefully both of
  38. code and look to not erasing another mod you have installed before... 
  39.  
  40. -------------------------------------------------------------------------------
  41.  
  42. LOAD CONIO.C and search for void val_cur_user()
  43.  
  44. replace the entire code with:
  45.  
  46.  
  47. void val_cur_user()
  48. /* val_cur_user allows the sysop at the keyboard to validate the current user,
  49.    chaning sl, dsl, ar, dar, sysop sub, exemptions, restrictions, and user
  50.    note
  51.  */
  52. {
  53.   char sl[4],dsl[4],exempt[4],sysopsub[4],ar[17],dar[17],restrict[17],rst[17],
  54.        tl[50],gld[6];
  55.   int cp,i,done,rc,wx,wy;
  56.  
  57.   pr_wait(1);
  58.   thisuser.sl=realsl;
  59.   savescreen(&screensave);
  60.   curatr=7;
  61.   wx=15;
  62.   wy=4;
  63.   makewindow(wx,wy,50,8);
  64.   itoa((int)thisuser.sl,sl,10);
  65.   itoa((int)thisuser.dsl,dsl,10);
  66.   itoa((int)thisuser.exempt,exempt,10);
  67.   itoa((int)thisuser.sysopsub,sysopsub,10);
  68.   itoa((int)thisuser.gold,gld,10);
  69.   strcpy(rst,restrict_string);
  70.   for (i=0; i<=15; i++) {
  71.     if (thisuser.ar & (1 << i))
  72.       ar[i]='A'+i;
  73.     else
  74.       ar[i]=32;
  75.     if (thisuser.dar & (1 << i))
  76.       dar[i]='A'+i;
  77.     else
  78.       dar[i]=32;
  79.     if (thisuser.restrict & (1 << i))
  80.       restrict[i]=rst[i];
  81.     else
  82.       restrict[i]=32;
  83.   }
  84.   dar[16]=0;
  85.   ar[16]=0;
  86.   restrict[16]=0;
  87.   cp=0;
  88.   done=0;
  89.  
  90.   movecsr(wx+2,wy+1); sprintf(tl,"SL  : %s",sl); outs(tl);
  91.   movecsr(wx+26,wy+1); sprintf(tl,"AR  : %s",ar); outs(tl);
  92.   movecsr(wx+2,wy+2); sprintf(tl,"DSL : %s",dsl); outs(tl);
  93.   movecsr(wx+26,wy+2); sprintf(tl,"DAR : %s",dar); outs(tl);
  94.   movecsr(wx+2,wy+3); sprintf(tl,"EXMT: %s",exempt); outs(tl);
  95.   movecsr(wx+26,wy+3); sprintf(tl,"RSTR: %s",restrict); outs(tl);
  96.   movecsr(wx+2,wy+4); sprintf(tl,"SYSOPSUB: %s",sysopsub); outs(tl);
  97.   movecsr(wx+2,wy+5); sprintf(tl,"GOLD: %s",gld); outs(tl);
  98.   movecsr(wx+2,wy+6); sprintf(tl,"NOTE: %s",thisuser.note); outs(tl);
  99.   while (done==0) {
  100.     switch(cp) {
  101.       case 0:
  102.         movecsr(wx+8,wy+1);
  103.         editline(sl,3,NUM_ONLY,&rc,"");
  104.         thisuser.sl=(char) atoi(sl);
  105.         itoa((int)thisuser.sl,sl,10);
  106.         sprintf(tl,"%-3s",sl); outs(tl);
  107.         break;
  108.       case 1:
  109.         movecsr(wx+32,wy+1);
  110.         editline(ar,16,SET,&rc,"ABCDEFGHIJKLMNOP");
  111.         thisuser.ar=0;
  112.         for (i=0; i<=15; i++)
  113.           if (ar[i]!=32)
  114.             thisuser.ar |= (1 << i);
  115.         break;
  116.       case 2:
  117.         movecsr(wx+8,wy+2);
  118.         editline(dsl,3,NUM_ONLY,&rc,"");
  119.         thisuser.dsl=(char) atoi(dsl);
  120.         itoa((int)thisuser.dsl,dsl,10);
  121.         sprintf(tl,"%-3s",dsl); outs(tl);
  122.         break;
  123.       case 3:
  124.         movecsr(wx+32,wy+2);
  125.         editline(dar,16,SET,&rc,"ABCDEFGHIJKLMNOP");
  126.         thisuser.dar=0;
  127.         for (i=0; i<=15; i++)
  128.           if (dar[i]!=32)
  129.             thisuser.dar |= (1 << i);
  130.         break;
  131.       case 4:
  132.         movecsr(wx+8,wy+3);
  133.         editline(exempt,3,NUM_ONLY,&rc,"");
  134.         thisuser.exempt=(char) atoi(exempt);
  135.         itoa((int)thisuser.exempt,exempt,10);
  136.         sprintf(tl,"%-3s",exempt); outs(tl);
  137.         break;
  138.       case 5:
  139.         movecsr(wx+32,wy+3);
  140.         editline(restrict,16,SET,&rc,rst);
  141.         thisuser.restrict=0;
  142.         for (i=0; i<=15; i++)
  143.           if (restrict[i]!=32)
  144.             thisuser.restrict |= (1 << i);
  145.         break;
  146.       case 6:
  147.         movecsr(wx+12,wy+4);
  148.         editline(sysopsub,3,NUM_ONLY,&rc,"");
  149.         thisuser.sysopsub=(char) atoi(sysopsub);
  150.         itoa((int)thisuser.sysopsub,sysopsub,10);
  151.         sprintf(tl,"%-3s",sysopsub); outs(tl);
  152.         break;
  153.       case 7:
  154.         movecsr(wx+8,wy+5);
  155.         editline(gld,5,NUM_ONLY,&rc,"");
  156.         thisuser.gold=(int) atoi(gld);
  157.         itoa((int)thisuser.gold,gld,10);
  158.         sprintf(tl,"%-3s",gld); outs(tl);
  159.         break;
  160.       case 8:
  161.         movecsr(wx+8,wy+6);
  162.         editline(thisuser.note,40,ALL,&rc,"");
  163.         break;
  164.     }
  165.     switch(rc) {
  166.       case DONE: done=1; break;
  167.       case NEXT: cp=(cp+1) % 8; break;
  168.       case PREV: cp--; if (cp==-1) cp=7;  break;
  169.     }
  170.   }
  171.   restorescreen(&screensave);
  172.   changedsl();
  173.   pr_wait(0);
  174. }
  175.  
  176. -------------------------------------------------------------------------------
  177.  
  178. As I said previously, that mod work fine with 4.11, if you try to install it
  179. on 4.10 and you get some error Messages, well E-Mail 1 @5451 and I will send
  180. you the modified code for 4.10
  181.  
  182.  
  183. ALL THE CREDITS FOR THIS MOD ---->            Pudji 3 @5458
  184.                                   7 @5451
  185.  
  186. For more infos 
  187.                             Ali Baba
  188.                             1 @5451