/****** This room is made my Mithal, learn and enjoy ***/
#include "defs.h"
inherit ROOM_OBJ;
void setup() {
set_short("add_item room #12, Getting character arguments ");
set_light(100);
set_long("add_item room #12, Getting character arguments\n"
+"There is a large stone in the middle of the room. It looks as "
+"if you can engrave your name onto it.\nSource code.\n");
add_item("large stone", ({ "long", "It can be engraved.",
"engrave", ({ this_object(),
"do_engrave", "'into' %D 'the' text' %s" }) }));
add_item("source code", ({ "long", "It looks like some source code.",
"read", "The source code:\n"
+"\n"
+" add_item(\"large stone\", ({\n"
+" \"long\",\n"
+" \"It can be engraved.\"\n"
+" ,\"engrave\",\n"
+" ({ this_object(), \"do_engrave\",\n"
+" \"'into' %D 'the' text' %s\" })\n"
+" }));\n"
+"\n\nRead also: do_engrave\n" }));
add_item("do_engrave", ({ "long",
"It looks like some source code."
,"read",
"The source code:\n"
+"int do_engrave(mixed a1,mixed a2,mixed a3,mixed a4, mixed a5, mixed a6)\n"
+"{\n"
+" string mess;\n"
+" mess = \"$N $V \"+a5[1]+\" into \"+a3+\".\\n\";\n"
+" this_player()->add_succeeded_mess(previous_object(), mess, ({}));\n"
+" return 1;\n"
+"}\n"
+"\n" }));
add_exit("east",ROOM+"args_object","door");
add_exit("west",ROOM+"args_integer","door");
add_exit("north",MAIN,"door" );
}
int do_engrave( mixed a1, mixed a2, mixed a3, mixed a4, mixed a5, mixed a6 ) {
string mess;
mess = "$N $V "+a5[1]+" into "+a3+".\n";
this_player()->add_succeeded_mess(previous_object(), mess, ({}));
return 1;
}
