obj/misc/tuete.c

//Asrahel

inherit "std/thing" ;

#include <properties.h>
#include <moving.h>
#include <defines.h>
#include <language.h>

void create()
{
  if (!clonep(this_object())) return;
  ::create() ;

  SetProp( P_SHORT, "Eine Tuete Bonbons" ) ;
  SetProp( P_LONG, "Eine magische Bonbontuete. So oft Du auch hineingreifst, sie wird niemals leer\n"
		+  "und enthaelt immer eine bunte Mischung.\n");

  SetProp( P_WEIGHT, 0 ) ;
  SetProp( P_NOBUY, 1) ;
  SetProp( P_NODROP, "Nein, Du willst doch nicht dieses Geschenk weggeben !?\n");
  SetProp( P_NEVERDROP, 1) ;
  SetProp( P_NAME, "Tuete") ;
  SetProp( P_GENDER, FEMALE ) ;
  AddId( ({ "bonbontuete","tuete", "bonbons" }) ) ;
  SetProp(P_AUTOLOADOBJ, 1);

}

public varargs void init(object origin)
{
	::init(origin);
	add_action("naschen","greife");
	add_action("naschen","greif");
}

int naschen (string str)
{
  notify_fail("Wohinein moechtest Du greifen ?\n");
	if ( str != "tuete" && str != "in tuete" && str != "bonbons" && str != "in bonbontuete")
		 return 0;
	write("Du greifst in Deine Tuete und holst ein Bonbon heraus.\n");
	say( PL->name(WER,2) + " holt ein Bonbon aus einer Tuete.\n");
	clone_object("obj/misc/bonbon")->move(PL);
	return 1;
}