View/Edit #6161:decrease_money

Name(s): decrease_money

1:  if (caller != this)
2:    raise(E_PERM)
3:  endif
4:  if (!(args[1] in $list_utils:slice(this.money)))
5:    return 0
6:  else
7:    pos = args[1] in $list_utils:slice(this.money)
8:    return this.money[pos][2] = this.money[pos][2] - tofloat(args[2])
9:  endif
10: "Last modified by James (#6397) on Tue Mar 13 20:13:48 2007 EDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: James (#6397)

You are not logged in.