@verb #8438:"clip*board clips addclip delclip" any any any rdo #8438
@program #8438:"clip*board clips addclip delclip" any any any
"Inspired by James's (#6397) clipboard."
if (player != this)
  return E_PERM
endif
if (verb == "addclip")
  this.clipboard = listappend(this.clipboard, argstr)
  return player:tell("Added.")
elseif (verb == "delclip")
  line = toint(args[1])
  this.clipboard = listdelete(this.clipboard, line)
  return player:tell("Deleted.")
elseif (verb in {"clip", "clipboard", "clips"})
  if (!this.clipboard)
    return player:tell("You have nothing posted on your clipboard.")
  endif
  player:tell("Items posted on your clipboard:")
  NUM = 0
  for x in (this.clipboard)
    NUM = NUM + 1
    player:tell("[", NUM, "] ", x)
  endfor
  return player:tell("---End of List---")
endif
"Last modified by Dax (#789) on Tue May  3 14:09:37 2005 MDT."
.