View/Edit #1409:makeplot

Switch to edit mode.

1:  return
2:  caller_perms().wizard || raise(E_PERM)
3:  {?symbol = "SMFO"} = args
4:  `this:filedelete($su:lowercase(symbol), ".gif") ! ANY'
5:  if (!$gnuplot:request_use())
6:    suspend()
7:  endif
8:  spec = this.makeplot
9:  spec = strsub(toliteral(spec), "$CNAME$", symbol)
10: spec = strsub(spec, "$DIM$", "")
11: spec = strsub(spec, "$OUTFILE$", tostr("/home/moo/MOO/files/1/4/0/9/", $su:lowercase(symbol), ".gif"))
12: spec = strsub(spec, "$INDEX$", tostr($list_utils:iassoc(symbol, this.quotes) + 1))
13: if (listassoc(this.quotes, symbol)[2] == -1)
14:   spec = strsub(spec, "$IVAL$", "500.0")
15: else
16:   spec = strsub(spec, "$IVAL$", tostr(this.initial_prices[$list_utils:iassoc(symbol, this.quotes)]))
17: endif
18: spec = $su:to_value(spec)[2]
19: $gnuplot:write_spec(@spec)
20: player:tell($gnuplot:run())
21: "Last modified by Dax (#789) on Wed Jan 24 17:28:22 2007 EST."

[home | help | who | search | setup | code]