View/Edit #1177:create

Name(s): create

1:  "Create a new DT intersection at coordinates {x, y}"
2:  caller == this || raise(E_PERM)
3:  {x, y} = args
4:  room = $recycler:create($intersection)
5:  typeof(room) == $OBJ || raise(room)
6:  this.intersection_db = {@this.intersection_db, {{x, y}, room}}
7:  room:kick()
8:  for data in ({{1, 0}, {0, 1}, {-1, 0}, {0, -1}})
9:    {dx, dy} = data
10:   suspend(1)
11:   neighbour = this:xy_room(x + dx, y + dy)
12:   if (valid(neighbour))
13:     neighbour:kick()
14:   endif
15: endfor
16: "Last modified by Dax (#789) on Tue May  3 13:49:41 2005 MDT."

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

You are not logged in.