228
@verb #2502:"@addbug" any any any rxdo #60
@program #2502:"@addbug" any any any
if (!argstr)
  return player:tell("Syntax: @addbug <bug name>")
endif
desc = $cmd_utils:read_lines("bug description")
b = $bug_waif:new()
b.description = desc
b.name = argstr
b.create_date = time()
b.discoverer = player
b.id = this.next_id
this.next_id = this.next_id + 1
this.bugs = {@this.bugs, b}
this:user_notify("<font color=red>New bug added! (#", b.id, ")</font>: ", argstr)
"Last modified by igor (#8954) on Mon Dec 17 15:05:50 2001 MST."
.

0