home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / WWIVMODS / STMPMOD.ZIP / STIMP12.MOD < prev   
Text File  |  1992-07-30  |  4KB  |  138 lines
  1. ┌────────────────────────────────────────────────────────────────────────┐
  2. │Mod : STIMP12.MOD                                                       │
  3. │Version: WWIV 4.20e                                                     │
  4. │Author : Stimpy #1 @1002 NuclearArmsNET 442-1601                        │
  5. │Description: Lets users use Gold to buy extra time                      │
  6. │Diffculty: ▓▓░░░░░░░░                                                   │
  7. │Disclaimer: Always backup your source. If you get an incredible urge to │
  8. │            sautee your cat, it's not my fault!                         │
  9. └────────────────────────────────────────────────────────────────────────┘
  10.  
  11.    = existing line
  12.    + add line
  13.    - deleted line
  14.    * change line
  15.  
  16. At the top of BBS.C after all the defines add the line below...
  17.  
  18. int goldflag;
  19.  
  20. In void mainmenu()
  21.  
  22. void mainmenu()
  23. ={
  24. =  char *s, s1[81],s2[81];
  25. *  int golds,golda,i;
  26. =  long l;
  27.  
  28. Then in void mainmenu() add the following case after case 'I':
  29.  
  30.       case 'J':
  31.     if (goldflag==1) {
  32.       pl("1I am sorry you can only buy time once per call");
  33.       }    else {
  34.       if (thisuser.gold<=0) {
  35.         pl("1I am sorry you do not have any gold to buy time with");
  36.     } else {
  37.         npr("1You have 7%d 1gold\r\n",(int) thisuser.gold);
  38.         pl("1Any time you buy is good only for this call");
  39.         pl("1One gold piece is worth two minutes");
  40.         pl("1How much gold would you like to spend?");
  41.         pl("1`Enter' for none");
  42.         outstr(": ");
  43.         mpl(2);
  44.         input(s,2);
  45.         i=atoi(s);
  46.         if (s[0]==0)
  47.           golds=0;
  48.         else {
  49.           if (s[0])
  50.         golds=i;
  51.           if (golds>thisuser.gold) {
  52.         pl("You do not have that much gold!");
  53.         golds=0;
  54.           } else {
  55.         thisuser.gold=thisuser.gold-golds;
  56.         golda=(golds*2.0)*60.0;
  57.         thisuser.extratime=golda;
  58.         goldflag=1; }}
  59.         if (golds==0)
  60.           goldflag=0;
  61.       }
  62.     }
  63.     break;
  64.  
  65. Then search for "logon();" and make the following addtions...
  66.  
  67. =    if (!hangup) {
  68. =      logon();
  69. +      thisuser.extratime=0;
  70. +      goldflag=0;
  71. =main_menu_label:
  72. =      while (!hangup) {
  73. =        if (curdloads)
  74. =          dlmainmenu();
  75. =        else
  76. =          mainmenu();
  77. =      }
  78.  
  79. In MSGBASE1.C
  80.  
  81. In void post()
  82.  
  83. =    sprintf(s,"+%s posted on %s",p.title,subboards[curlsub].name);
  84. =    sysoplog(s);
  85. =    sprintf(s,"Posted on %s",subboards[curlsub].name);
  86. =    save_status();
  87. =    pl(s);
  88. +    thisuser.gold=thisuser.gold+1; /*gives one gold for posting*/
  89. +    npr("3You recieved one gold for this post, you now have 1%d 3gold",(int) thisuser.gold);
  90. +    nl();
  91. =    if ((subboards[curlsub].type) && (syscfg.systemnumber)) {
  92. =      ++thisuser.postnet;
  93. =      if (((subboards[curlsub].anony & anony_val_net)==0) || (lcs()))
  94. =        send_net_post(&p, subboards[curlsub].type, subboards[curlsub].filename);
  95. =    }
  96.  
  97. In void remove_post()
  98.  
  99. =      sprintf(s,"-%s removed from %s",msgs[i].title,subboards[curlsub].name);
  100. =      sysoplog(s);
  101. =      delete(i);
  102. =      savebase();
  103. =      nl();
  104. =      pl("Message removed.");
  105. +      thisuser.gold=thisuser.gold-1;
  106. +      npr("3Removing your message cost you 1 gold, you now have 1%d 3gold",(int) thisuser.gold);
  107. =      nl();
  108. =    }
  109.  
  110. In UEDIT.C
  111.  
  112. In void print_cur_stat
  113.  
  114. =    npr("Note: %s\r\n", u->note);
  115. +    npr("Gold: %d\r\n", (int) u->gold);
  116.  
  117. In void uedit() add the following case after case 'W':
  118.  
  119.         case '$':
  120.            nl();
  121.        npr("Amount of gold in account?\r\n[Current=%d]\r\n", (int) u.gold);
  122.        mpl(5);
  123.        input(s,5);
  124.        i=atoi(s);
  125.        if (s[0]) {
  126.          u.gold=i;
  127.          write_user(un,&u);
  128.        }
  129.        break;
  130.  
  131. In BBSUTL.C
  132.  
  133. In void yourinfo();
  134. =  npr("Time spent on  : %ld Minutes\r\n", (long)
  135. =    ((thisuser.timeon+timer()-timeon)/60.0));
  136. +  npr("Your Gold: %d\r\n",(int) thisuser.gold);
  137.  
  138. Now re-compile. Easy.