View/Edit #6161:increase_money

Name(s): increase_money

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

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

You are not logged in.