@program withdraw.muf 1 99999 d i ( withdraw.muf by Wog A simple proggie that will let players withdraw WITHDRAW_AMOUNT pennies a day. --- Change History ---------------------------------- v 1.0 02/24/00 Assignment of version number to programs. --- Distrubution Information ------------------------ Copyright {C} Charles "Wog" Reiss This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or {at your option} any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. For a copy of the GPL: a> see: http://www.gnu.org/copyleft/gpl.html b> write to: the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA ) $def TIMESTAMP "@lastWithdraw" $def WITHDRAW_AMOUNT 500 $ifdef __glowver $def .tell me @ swap ansi_notify $else $include $lib/ansi $def .tell ansi-tell $endif lvar yday lvar year : now-timestamp systime "%Y:%j" swap timefmt ; : main me @ player? not if "~&110 No puppets can use this program!" .tell exit then me @ TIMESTAMP getpropstr now-timestamp strcmp if "~&120 You withdraw " WITHDRAW_AMOUNT intostr strcat " " strcat "pennies" sysparm strcat "." strcat .tell me @ WITHDRAW_AMOUNT addpennies me @ TIMESTAMP now-timestamp setprop else "~&110 You can only withdraw once a day." .tell "~&110 Try again tommorrow!" .tell then ; . c q @set withdraw.muf=VIEWABLE @set withdraw.muf=W