ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
º Mod Name: DELETE.MOD                          By: Slide  1@1016 EmeraldNet º
º Release Date: 06/19/93                        SysOp of the Blazer BBS      º
º Files Modified: VBBS4.BAS                     (509)468-7809 Spokane WA     º
º Files created: none                                                        º
º                                                                            º
º  Description: This will delete credits from the users account if they      º
º               delete thier posts.  This will prevent users from posting,   º
º               then deleting it just to achieve credits.  It will go to     º
º               negative credits if necessary.                               º
º                                                                            º
º Instructions: As always, back up your source.                              º
º                                                                            º
ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
LEGEND:     ! Search for
            = Line remains as is.
         .... Line continues, but not listed (leave as is...)
            + Add Line
            - Delete Line
        Note: The blank lines in the mod are included only to improve
              readability, do NOT place them in your source.
              The lines surrounded by ------------- are ALL one line.

ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³  In  VBBS4.BAS  ³ Go to SUB readmsg and look for the following lines:
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

!  CASE "D"
!    nr = opendb
!    GET 2, dbptr, d1
!    d1.del = 1
!    PUT 2, dbptr, d1
!    CLOSE 2
!    IF useransi < 2 THEN writeln "Marked for Deletion."
+    IF mc1.credperpost THEN
+      u1.credits = u1.credits + mc1.credperpost
+      writeln "(" + STR$(mc1.credperpost) + " credits were removed from your account)"
+    END IF
=    dbptr = dbptr + 1
=    IF dbptr <= maxdb GOTO rdmsg