home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / WWIVMODS / MODSUNKN.ZIP / USERRANK.MOD < prev    next >
Text File  |  1990-06-17  |  3KB  |  104 lines
  1. Yellow Man #48 @2367
  2. Sat Jun 09 08:38:37 1990
  3. Caramon Majere #3 @8412
  4. Fri Jun 23 21:42:36 1989
  5.  
  6. /****************************************************************************
  7.  
  8.            Fantasy - Adds Character Ranks w/out Screwing up USER.LST
  9.  
  10.                              By: Caramon Majere
  11.  
  12. 3@8412 The Alliance (804)598-7659             5@8413 The Empire (804)276-4798
  13.  
  14. ****************************************************************************/
  15.  
  16. This is the second edition of the USER RANK mod.  It was beta-tested on the
  17. Alliance (And from this beta-test, I saw the need of a version that doesn't
  18. screw around with the USER.LST file).  You can call up the user's rank just 
  19. by the string RANK. (ie: print("Rank: ",rank,"");)  
  20.  
  21. <****> STEP 1 <*************************************************************>
  22.  
  23. Load up your VARS.H file, and add this to the end:
  24.  
  25. char rank[31];
  26.  
  27. <****> STEP 2 <*************************************************************>
  28.  
  29. Now, this step is a bit of a pain.  Load up each of the C files (All files 
  30. listed in your BBS.PRJ), and add this to the end of the 'extern' listing 
  31. (If there is no extern listing, add it just below the '#include')
  32.  
  33. extern char rank[31];
  34.  
  35. <****> STEP 3 <*************************************************************>
  36.  
  37. Block-Read (Control-K-R) the following code at the end of BBSUTL.C.
  38.  
  39. void user_rank()
  40. {
  41.   strcpy(rank,"");
  42.   if ((thisuser.sl<=20) && (thisuser.sl>=1)) {
  43.     strcpy(rank,"Peasant");
  44.     return;
  45.   } else
  46.   if ((thisuser.sl>=21) && (thisuser.sl<=30)) {
  47.     strcpy(rank,"Yeoman");
  48.     return;
  49.   } else
  50.   if ((thisuser.sl>=31) && (thisuser.sl<=40)) {
  51.     strcpy(rank,"Esquire");
  52.     return;
  53.   } else
  54.   if ((thisuser.sl>=41) && (thisuser.sl<=50)) {
  55.     strcpy(rank,"Viscount");
  56.     return;
  57.   } else
  58.   if ((thisuser.sl>=51) && (thisuser.sl<=60)) {
  59.     strcpy(rank,"Baron");
  60.     return;
  61.   } else
  62.   if ((thisuser.sl>=61) && (thisuser.sl<=70)) {
  63.     strcpy(rank,"Elder");
  64.     return;
  65.   } else
  66.   if ((thisuser.sl>=71) && (thisuser.sl<=80)) {
  67.     strcpy(rank,"High Elder");
  68.     return;
  69.   } else
  70.   if ((thisuser.sl>=81) && (thisuser.sl<=90)) {
  71.     strcpy(rank,"Earl");
  72.     return;
  73.   } else
  74.   if ((thisuser.sl>=91) && (thisuser.sl<=99)) {
  75.     strcpy(rank,"Mayor");
  76.     return;
  77.   } else
  78.   if ((thisuser.sl>=100) && (thisuser.sl<=254)) {
  79.     switch(usernum) {
  80.       case 3:
  81.     strcpy(rank,"Highlord");
  82.     break;
  83.       case 4:
  84.     strcpy(rank,"Magistrate");
  85.     break;
  86.     }
  87.   }
  88.   switch(usernum) {
  89.     case 1:
  90.       strcpy(rank,"High King");
  91.       break;
  92.     case 2:
  93.       strcpy(rank,"Court's High Archmage");
  94.       break;
  95.   }
  96. }
  97.  
  98. That's just about it...Press F9 and grab a snack....
  99.  
  100.  
  101.         Caramon Majere: 'Virtute et Armis'
  102.  
  103. 3@8412 The Alliance (804)598-7659
  104. 5@8413 The Empire   (804)276-479