home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / CON-004C.ZIP / CONCORD.ZIP / SCRIPT.ZIP / TIMEBANK.SCR < prev    next >
Encoding:
Text File  |  1996-05-12  |  4.6 KB  |  139 lines
  1. ; TIMEBANK.SCR : Time bank script
  2. ;
  3. ; Users can save the remaining time and download limit for today
  4. ; to the bank for later use.
  5. ;
  6. ; This script is called from GOODBYE.MNU menu.
  7. ;
  8. ; Modify %MAXTIME% and %MAXLIMIT% settings to define the maximum
  9. ; time bank account values.
  10. ;
  11. ; Modify %MAXLOANTIME% and %MAXLOANLIMIT% settings if you want
  12. ; to allow loading from the time bank. (Zero means that loaning
  13. ; is not possible.)
  14.  
  15.         var %SELECTION%    = NUMBER
  16.         var %VALUE%        = NUMBER
  17.         var %TEMP%         = NUMBER
  18.         var %MAX%          = NUMBER
  19.         var %MAXTIME%      = NUMBER
  20.         var %MAXLIMIT%     = NUMBER
  21.         var %MAXLOANTIME%  = NUMBER
  22.         var %MAXLOANLIMIT% = NUMBER
  23.  
  24.         ;
  25.         ; MAXIMUM TIME BANK ACCOUNT VALUES
  26.         ;
  27.         set %MAXTIME%  = 180
  28.         set %MAXLIMIT% = 2000
  29.  
  30.         ;
  31.         ; TIME BANK LOANING SETTINGS
  32.         ;
  33.         set %MAXLOANTIME%  = 0
  34.         set %MAXLOANLIMIT% = 0
  35.  
  36. :START
  37.         write "^C14,0;^E1;Welcome to the bank of El Paso!^M;^M;"
  38.         write "^C15,0;Currently, you have ^C11,0;@TIME_LEFT@ ^C15,0;minutes "
  39.         write "and ^C11,0;@LIMIT_LEFT@ ^C15,0;kilobytes.^M;^M;"
  40.         write "^C15,0;You have on your account :^M;"
  41.         write "^C15,0;Time .........^C7,0; : "
  42.         write "^C11,0;@TIMEINBANK@:05 ^C7,0;min^M;"
  43.         write "^C15,0;Download limit^C7,0; : "
  44.         write "^C11,0;@DLLIMITINBANK@:05^C7,0;K^M;^M;"
  45.         write "^C7,0;(^C14,0;D^C7,0;) ^C15,0;Deposit time     "
  46.         write "^C7,0;(^C14,0;A^C7,0;) ^C15,0;Deposit limit^M;"
  47.         write "^C7,0;(^C14,0;W^C7,0;) ^C15,0;Withdraw time    "
  48.         write "^C7,0;(^C14,0;S^C7,0;) ^C15,0;Withdraw limit^M;"
  49.         write "^C7,0;(^C14,0;R^C7,0;) ^C15,0;Redraw screen    "
  50.         write "^C7,0;(^C14,0;Q^C7,0;) ^C15,0;Exit bank^M;"
  51.         write "^C14,0;Your command "
  52.         write "^C7,0;(^C14,0;~2D~3W~4A~5S~1R~6Q^C7,0;) : ^W;^M;^M;"
  53.         set %SELECTION% = @ANSWER@
  54.  
  55.         if (%SELECTION% = 2)
  56.           gosub DEPOSIT_TIME
  57.         end
  58.         if (%SELECTION% = 3)
  59.           gosub WITHDRAW_TIME
  60.         end
  61.         if (%SELECTION% = 4)
  62.           gosub DEPOSIT_LIMIT
  63.         end
  64.         if (%SELECTION% = 5)
  65.           gosub WITHDRAW_LIMIT
  66.         end
  67.         if (%SELECTION% = 6)
  68.           goto OUT
  69.         end
  70.         goto START
  71.  
  72. :DEPOSIT_TIME
  73.         set %MAX% = (%MAXTIME%-@TIMEINBANK@)
  74.         if ((%MAX% < 0) or (%MAX% > @TIME_LEFT@))
  75.           set %MAX% = @TIME_LEFT@
  76.         end
  77.         if (%MAX% > @EVENT_MINUTES@)
  78.           set %MAX% = @EVENT_MINUTES@
  79.         end
  80.         write "^C12,0;How many minutes do you want to deposit "
  81.         write "(max %MAX%) : ^C14,1;^L3;^C15,0;^M;"
  82.         set %VALUE% = @ANSWER@
  83.         if ((%VALUE% > 0) AND (%VALUE% <= %MAX%))
  84.           set %TEMP% = (@TIME_LEFT@-%VALUE%)
  85.           set @TIME_LEFT@ = %TEMP%
  86.           set %TEMP% = (@TIMEINBANK@+%VALUE%)
  87.           set @TIMEINBANK@ = %TEMP%
  88.         end
  89.         return
  90.  
  91. :WITHDRAW_TIME
  92.         set %MAX% = (@TIMEINBANK@+%MAXLOANTIME%)
  93.         set %TEMP% = (%MAX%+@TIME_LEFT@)
  94.         if (%TEMP% >= @EVENT_MINUTES@)
  95.           set %MAX% = (@EVENT_MINUTES@-@TIME_LEFT@)
  96.         end
  97.         write "^C12,0;How many minutes do you want to withdraw "
  98.         write "(max %MAX%) : ^C14,1;^L3;^C15,0;^M;"
  99.         set %VALUE% = @ANSWER@
  100.         if ((%VALUE% > 0) AND (%VALUE% <= %MAX%))
  101.           set %TEMP% = (@TIME_LEFT@+%VALUE%)
  102.           set @TIME_LEFT@ = %TEMP%
  103.           set %TEMP% = (@TIMEINBANK@-%VALUE%)
  104.           set @TIMEINBANK@ = %TEMP%
  105.         end
  106.         return
  107.  
  108. :DEPOSIT_LIMIT
  109.         set %MAX% = (%MAXLIMIT%-@DLLIMITINBANK@)
  110.         if ((%MAX% < 0) or (%MAX% > @LIMIT_LEFT@))
  111.           set %MAX% = @LIMIT_LEFT@
  112.         end
  113.         write "^C12,0;How many kilobytes do you want to deposit "
  114.         write "(max %MAX%) : ^C14,1;^L4;^C15,0;^M;"
  115.         set %VALUE% = @ANSWER@
  116.         if ((%VALUE% > 0) AND (%VALUE% <= %MAX%))
  117.           set %TEMP% = (@LIMIT_LEFT@-%VALUE%)
  118.           set @LIMIT_LEFT@ = %TEMP%
  119.           set %TEMP% = (@DLLIMITINBANK@+%VALUE%)
  120.           set @DLLIMITINBANK@ = %TEMP%
  121.         end
  122.         return
  123.  
  124. :WITHDRAW_LIMIT
  125.         set %MAX% = (@DLLIMITINBANK@+%MAXLOANLIMIT%)
  126.         write "^C12,0;How many kilobytes do you want to withdraw "
  127.         write "(max %MAX%) : ^C14,1;^L4;^C15,0;^M;"
  128.         set %VALUE% = @ANSWER@
  129.         if ((%VALUE% > 0) AND (%VALUE% <= %MAX%))
  130.           set %TEMP% = (@LIMIT_LEFT@+%VALUE%)
  131.           set @LIMIT_LEFT@ = %TEMP%
  132.           set %TEMP% = (@DLLIMITINBANK@-%VALUE%)
  133.           set @DLLIMITINBANK@ = %TEMP%
  134.         end
  135.         return
  136.  
  137. :OUT
  138.         quit
  139.