2000
{{#59, "rxod", "tell", "this", "none", "this", "\"Copied from Cecil (#7407):tell Mar 27 21:06:24 1997\";", "!(this.location == #5494 || $object_utils:connected(this)) && this:notify(tostr(@args));", "if (!$object_utils:isa(player, $guardian))", "  if (#7407:shout_scam(callers()[length(callers())][2]))", "    if (this.kill_shouts == 666)", "      notify(this, tostr(player.name, \"'s shout was killed!\"));", "      this:raise(E_PERM);", "    endif", "    if (this.kill_shouts == -1)", "      player == #8305 && this:raise(E_PERM);", "      player:tell(\"***\");", "      player:tell(\"***\");", "      player:tell(\"Automated message from \" + this:title() + \": Any type of broadcast verb/object/feature is annoying. Use #2353 instead\");", "      player:tell(\"***\");", "      return;", "      player:tell(\"***\");", "    endif", "    if (this.kill_shouts == 1)", "      return;", "    endif", "  endif", "endif", "pass(@args);"}, {#59, "rdod", "shout", "any", "any", "any", "\"Copied from Lily (#6549):@shout Mar  9 19:27:32 1996\";", "\"Copied from Tuxedo Mask (#7153):@shout Feb 13 20:00:04 1996\";", "\"Copied from Daryl (#3887):@shout Jan 28 09:11:39 1996\";", "\"Copied from Drag (#7113):@shout Sep 29 16:45:52 1995\";", "people = connected_players();", "for person in (people)", "  if (!$object_utils:isa(person.location, $room) || person.location in {#50, #49, #48})", "    player:tell(person:title(1) + \" is in \" + person.location:title(1) + \".\");", "  else", "    person:tell(\"From a distance \", player:title(), \" yells, \\\"\", argstr, \"\\\"\");", "  endif", "endfor", "\"Last modified by Dax (#789) on Thu Sep 10 20:09:08 1998 EDT.\";"}, {#59, "rdod", "tease", "any", "with/using", "any", "player.location:announce_all(player.name, \" begins to sing, \", dobj.name, \" and \", iobj.name, \" sitting in a tree, k-i-s-s-i-n-g.\");", "player.location:announce_all(player.name, \" continues, first comes loves, then comes marriage, then comes \", dobj.name, \" with a baby carriage!\");"}, {#59, "rdod", "vit*als", "any", "any", "any", "\"Copied from The_Venomous_One (#2351):vitals Aug 31 09:03:17 1995\";", "if (dobjstr == \"\" || dobj == player)", "  dobj = player;", "  check = 1;", "else", "  dobj = $string_utils:match_player(dobjstr);", "  check = 0;", "endif", "targ = dobj;", "if (!valid(targ))", "  if (!valid(targ = $string_utils:match_player(argstr)))", "    player:tell(argstr, \" doesn't exist.\");", "  endif", "else", "  last = ctime(dobj.last_connect_time);", "  age = ctime(dobj.first_connect_time);", "  place = dobj.location.name;", "  desc = dobj:description();", "  player:tell(\"--------------------\");", "  player:tell(\"			\", dobj.name, \", \", dobj);", "  if (check == 1)", "    if (desc)", "      player:tell(desc);", "    else", "      player:tell(\"You have no description set.\");", "    endif", "    player:tell(\"\");", "    player:tell(\"You are currently in \", dobj.location, \", \", dobj.location.name, \".\");", "    player:tell(\"You have the feature(s): \", toliteral(dobj.features));", "    player:tell(\"Your alias(es) are: \", toliteral(dobj.aliases));", "    player:tell(\"\");", "    player:tell(\"You first connected on \", age, \".\");", "    player:tell(\"You last connected on \", last, \".\");", "    player:tell(\"You are carrying: \", toliteral(dobj.contents));", "    player:tell(\"\");", "    player:(\"@quota\")();", "  else", "    if (desc)", "      player:tell(desc);", "    else", "      player:tell(dobj.name, \" has no description set.\");", "    endif", "    player:tell(\"\");", "    player:tell(dobj.name, \" [\", dobj.gender, \"] is currently in \", dobj.location, \", \", dobj.location.name, \".\");", "    player:tell(dobj.name, \" has the feature(s): \", toliteral(dobj.features));", "    player:tell(dobj.name, \" has the alias(es): \", toliteral(dobj.aliases));", "    player:tell(\"\");", "    player:tell(dobj.name, \" first connected on \", age, \".\");", "    player:tell(dobj.name, \" last connected on \", last, \".\");", "    player:tell(dobj.name, \" is carrying: \", toliteral(dobj.contents));", "    player:tell(\"\");", "    player:(\"@quota\")();", "  endif", "  player:tell(\"--------------------\");", "endif", "\"Last modified by Dax (#789) on Thu May 20 03:55:05 1999 MDT.\";"}, {#59, "od", "tf", "none", "none", "none", "player.location:announce_all(\"    @@@@@@@@@ @@@@@@@@@     @@@@     @@@@@@@@@ @@@@@@@@@                     \");", "player.location:announce_all(\"       @@@    @@@   @@@    @@@@@@    @@@   @@@ @@@                           \");", "player.location:announce_all(\" THE   @@@    @@@ @@@@@   @@@  @@@   @@@   @@@ @@@@@@@@@     MORE THAN       \");", "player.location:announce_all(\"       @@@    @@@  @@@   @@@    @@@  @@@   @@@       @@@     MEETS           \");", "player.location:announce_all(\"       @@@    @@@   @@@ @@@ @@@@@@@@ @@@   @@@ @@@@@@@@@     THE EYE!        \");", "player.location:announce_all(\"    @@@@@@@@ @@@@@@@@@ @@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@ @@@@@@@@@\");", "player.location:announce_all(\"    @@@      @@@   @@@ @@@   @@@ @@@   @@@   @@@ @@@      @@@   @@@ @@@      \");", "player.location:announce_all(\"    @@@@@@   @@@   @@@ @@@ @@@@@ @@@   @@@   @@@ @@@@@@   @@@ @@@@@ @@@@@@@@@\");", "player.location:announce_all(\"    @@@      @@@   @@@ @@@  @@@  @@@   @@@   @@@ @@@      @@@  @@@        @@@\");", "player.location:announce_all(\"    @@@      @@@@@@@@@ @@@   @@@ @@@   @@@   @@@ @@@@@@@@ @@@   @@@ @@@@@@@@@\");"}, {#59, "rdod", "@go", "any", "none", "none", "player:moveto(\",dobj,\");"}, {#59, "rxdod", "blah", "this", "none", "this", "\"Copied from whiz.kid (#3135):blah Sat Jul  8 12:59:49 1995 EDT\";", "if (#1596.sitting == {})", "  desc = {\"No one is sitting on the couch.\"};", "else", "  desc = {\"You see \" + $string_utils:title_list(#1596.sitting) + \" sitting on the couch.\"};", "endif", "desc = {@desc, \"A comfortable looking couch, it is covered in green Velcro.\"};", "return desc;"}, {#59, "rdod", "nexus", "none", "none", "none", "player:moveto(#4765);"}, {#59, "rdod", "sp*oof2", "any", "with/using", "any", "player:tell(\"You have spoofed \", dobj.name, \" with \", iobjstr, \".\");", "dobj:tell(iobjstr);"}, {#59, "rdod", "peer", "any", "none", "none", "player:tell(\"You peer at \", dobj.name, \" suspiciously.\");", "dobj:tell(player.name, \" peers at you suspiciously.\");", "player.location:announce_all_but({player, dobj}, player.name, \" peers at \", dobj.name, \" suspiciously.\");", "if (dobj == everyone)", "  player.location:announce_all_but({player}, player.name, \" peers round at everyone suspiciously, looking in the dark corners VERRRRRY closely.\");", "  player:tell(\"Ya peer at everyone strangely, WOO! :)\");", "endif"}, {#59, "rdod", "@wiz", "any", "any", "any", "\"@wizards [all]\";", "if (caller != player)", "  return E_PERM;", "endif", "if (args)", "  $code_utils:show_who_listing($wiz:leaves());", "else", "  $code_utils:show_who_listing($wiz_utils:connected_wizards()) || player:notify(\"No wizards currently logged in.\");", "endif", "\"Last modified by Dax (#789) on Fri Jul 10 21:49:04 1998 EDT.\";"}, {#59, "rxdod", "+*", "any", "any", "any", "\"Copied from Mat's Wacky FO (#6100):+ by Mat (#5744) Wed Mar  8 20:04:27 1995 EST\";", "x = $string_utils:strip_chars(verb, \"+\");", "v = $player_db:find(x);", "if (!$object_utils:connected(v))", "  return player:tell(v.name, \" isn't connected.\");", "endif", "player:tell(\"Your emote has been sent.\");", "v:tell(\"( \", player.location.name, \" ) \", player.name, \" \", argstr);"}, {#59, "rdod", "caress", "any", "none", "none", "\"Copied from The Ball o' Verbs v2.0 (#1100):caress by Killeen (#562) Fri Dec 30 17:08:23 1994 EST\";", "a = dobjstr;", "if (length(a) == 0)", "  player:tell(#1100.what);", "  return;", "endif", "if (!is_player(dobj))", "  player:tell(#1100.noway);", "  return;", "endif", "if (player.location != dobj.location)", "  player:tell(\"I don't see \", dobj:title(), \" here.\");", "  return;", "endif", "if (player == dobj)", "  player:tell(#1100.heh);", "  return;", "endif", "player:tell(\"...Mmmmmmm.\");", "player.location:announce_all_but({player, dobj}, player:title(), \" is gentl
1513
y caressing \", dobj:title(), \" with a twinkle in \", player.gender, \" eyes.\");", "dobj:tell(player:title(), \" is gently caressing you with a twinkle in \", player.pp, \" eyes.\");"}, {#59, "rdod", "brow", "none", "none", "none", "player:tell(\"You raise an eyebrow, like Spock\");", "player.location:announce(player.name, \" raises an eyebrow.\");"}, {#59, "rdod", "spoof", "any", "any", "any", "this.location:announce_all(argstr);"}, {#59, "rdod", "confuse", "none", "none", "none", "player:tell(\"Off to Confuse-ius' Right mind we go...\");", "player.location:announce(player.name, \" goes of to see the wonderful Wizard of MOO\");", "player:moveto(#610);"}, {#59, "rdod", "inn", "none", "none", "none", "player:tell(\"OFF TO THE INN OF THE LAST HOME!\");", "player.location:announce(player.name, \" has just left for somewhere...\");", "player:moveto(#359);"}, {#59, "rxdod", "_disfunc", "this", "none", "this", "pass(@args);", "suspend(1);", "this.location:announce_all(\"Tas looks around, looking startled, and drops to the ground like rock. He lies there, prone.\");"}, {#59, "rdod", "no", "none", "none", "none", "first = {\"Notta\", \" zip\", \" zilch\", \" fat chance\", \" don't Think so Tim\", \" nice try\", \" ummm... NO\", \" not bloody likely!\", \" if you say so...\", \" what do YOU think?\", \" hmm... not sure... take a wild guess.\"}[random(11)];", "player:tell(first);"}, {#59, "rdod", "ignore", "any", "none", "none", "player.location:announce(player.name, \" studiously ignores \", dobj.name, \".\");", "dobj:tell(player.name, \" studiously ignores you, for you have obviously offended him or hurt him in some way.\");", "player:tell(\"You studiously ignore \", dobj.name, \" because \", dobj.name, \" has offended you or hurt you in some way.\");"}, {#59, "dod", "gg", "none", "none", "none", "player.location:announce_all(\"       ..::''''::..             ..::''''::..           \");", "player.location:announce_all(\"     .;''        ``;.         .;''        ``;.         \");", "player.location:announce_all(\"    ::    ::  ::    ::       ::    ::  ::    ::        \");", "player.location:announce_all(\"   ::     ::  ::     ::     ::     ::  ::     ::       \");", "player.location:announce_all(\"   :: .:' ::  :: `:. ::     :: .:' ::  :: `:. ::       \");", "player.location:announce_all(\"   ::  :          :  ::     ::  :          :  ::       \");", "player.location:announce_all(\"    :: `:.      .:' ::       :: ':.      .:' ::        \");", "player.location:announce_all(\"     `;..``::::''..;'   &     `;..``::::''..;'         \");", "player.location:announce_all(\"       ``::,,,,::''    &&&      ``::,,,,::''           \");", "player.location:announce_all(\"                      &&&&&                            \");", "player.location:announce_all(\"                     &&&&&&&                           \");", "player.location:announce_all(\"     @           &&&&&&&&&&&&&&&             @         \");", "player.location:announce_all(\"       @        &&  &&&&&&&&&  &&          @           \");", "player.location:announce_all(\"      @                                     @          \");", "player.location:announce_all(\"   @ @                                       @ @       \");", "player.location:announce_all(\"@    @                                       @    @    \");", "player.location:announce_all(\"      @                                     @          \");", "player.location:announce_all(\"       @                                   @           \");", "player.location:announce_all(\"        @                                 @            \");", "player.location:announce_all(\"         @      ####           ####      @             \");", "player.location:announce_all(\"          @     ####           ####     @              \");", "player.location:announce_all(\"           @    ####           ####    @               \");", "player.location:announce_all(\"            @@@@@@@@@@@@@@@@@@@@@@@@@@@                \");", "player.location:announce_all(\"                       ####                            \");", "player.location:announce_all(\"                       ####                            \");", "player.location:announce_all(\"                       ####                            \");", "player.location:announce_all(\"                                                       \");", "player.location:announce_all(player.name, \" grins like a big goof! \");"}, {#59, "rdod", "scream", "any", "at/to", "any", "player:tell(\"You scream VERY loudly at \", iobj.name, \" '\", dobjstr, \"'.\");", "iobj:tell(player.name, \" screams VERY loudly at you, '\", dobjstr, \"'.\");", "player.location:announce(player.name, \" screams '\", dobjstr, \"' at \", iobj.name, \".\");"}, {#59, "rod", "bop", "any", "none", "none", "player:tell(\"You just bopped \", dobj.name, \" on the head with a big cartoon hammer!\");", "if (player == \"Tasslehoff\")", "  player.location:announce(\"Tasslehoff bops \", dobj.name, \" on the head with a big cartoon hammer!\");", "  suspend(5);", "  dobj:tell(\"Birdies fly about your head from the bop \", player.name, \" just delievered to your head with a big, HUMONGOUS ... Cartoon hammer?! DOH! You steady yourself as the world and the birdies continue to spin around you.\");", "endif", "if (dobj == \"Tasslehoff\")", "  player:tell(\"DON'T TRY USING TAS'S VERBS ON HIMSELF!\");", "endif"}}
.

0