void create() {
object ob;
::create();
set_gender( random(2)+1 );
/* OBJEDIT { */
set_str( 18 );
set_dex( 10 );
set_con( 24 );
set_spd( 20 );
set_wil( 4 );
set_int( 4 );
set_emp( 4 );
set_cha( 4 );
set_distant( "a fire lizard" );
set_specific( "the fire lizard" );
set_look( "~Name ~verbis small and red with a wingspan no greater than about a meter. ~Pron occasionally emits a small puff of smoke from ~poss nostrils. ~Pron is $(HP)." );
set_alt_name( "fire lizard" );
set_alt_plural( "fire lizards" );
set_plural( "lizards" );
set_name( "lizard" );
set_type( "animal" );
set_droppable( 1 );
set_weight( 12000 );
/* } OBJEDIT */
set_living_name( name );
set_food(query_food_capacity()/2);
set_drink(query_drink_capacity()/2);
set_known_forms( (["dragon": ({"dragon_bite","dragon_hide"}) ]) );
void create() {
object ob;
::create();
if (!clonep(this_object())) {
return; /* blueprints don't get stuff */
}
set_gender( random(2)+1 ); // both male and female guards
/* OBJEDIT { */
set_distant( "a captain" );
set_specific( "the ship captain" );
set_look( "~Name ~verbis one of the captains of the 3 ships. ~Pron ~verbstand watch against rowdy passengers and stowaways. ~Pron ~verbis ?(ISCLOTHED:wearing $(WORN)):(unclothed), and ~verbis holding $(HELD). ~Pron ~verbis $(HP)." );
set_alt_name( "ship captain" );
set_alt_plural( "captain" );
set_plural( "captains" );
set_name( "captain" );
set_type( "human" );
set_droppable( 1 );
set_weight( 60000 );
/* } OBJEDIT */
set_living_name( name );
set_known_forms( (["sword": ({"slash","stab","dodge","parry"}),
"brawl": ({"punch","dodge"}) ]) );
void create() {
::create();
set_gender( random(2)+1 );
/* OBJEDIT { */
set_spd( 11 );
set_con( 4 );
set_str( 4 );
set_dex( 14 );
set_wil( 9 );
set_cha( 15 );
set_int( 3 );
set_emp( 5 );
set_distant( "a rat" );
set_specific( "the rat" );
set_look( "It's a rat, a large, furry pest known for spreading disease and stealing grain. ~Pron is $(HP)." );
set_plural( "rats" );
set_name( "rat" );
set_type( "rodent" );
set_droppable( 1 );
set_weight( 3000 );
/* } OBJEDIT */
set_living_name( name );
set_food(query_food_capacity());
set_drink(query_drink_capacity());
set_product_aspect( C_RAT );
add_product( C_MEAT, 3, 10 );
add_product( C_PELT, 2, 20 );
//add_product( C_TAIL, 1, 10 );
set_known_forms( (["animal": ({ "bite", "dodge"}) ]) );
create_monster()
{
int i;
set_name("goblin");
set_living_name("goblin");
set_long("It's very small but it looks back on you and shows its teeth.\n");
set_race_name("goblin");
set_adj("small");
set_gender(2); /* male = 0, female = 1, other = 2 */
default_config_mobile(10);
set_alignment(-70);
set_aggressive(1);
/* This monster is aggressive to all living objects comming close. He will try
* to make the standard kill command. If the dis is not enough to attack
* someone he won't.
*
* It's of course possible to make monstyers aggressive only to elves and so
* on. You just redefine the init_attack() function, or make one on your
* own.
*/
}
void reset_monster() {
if(!interactive(this_object())) {
set_living_name( query("name") );
seteuid(getuid(this_object()));
link = 0;
}
}
create_monster() {
if (IS_CLONE) {
set_name("bert");
set_living_name("bert");
default_config_npc(100);
config_default_trade();
set_money_give_reduce( ({ 0, 2, 3, 3 }) );
seq_new("foo");
seq_addfirst("foo", ({ "@@do_give" }) );
void setup()
{
set_living_name("johnathon");
set_name("johnathon");
set_short("Johnathon stands in front of the Podium");
set_long(
"Johnathon is positioned at the podium wearing his\n"
"black tuxedo. His brown shaggy hair sways back and\n"
"forth as he goes about seating guests.\n");
set_id( ({"butler", "johnathon", "Johnathon", "john", "John" }) );
void do_tests() {
object tp;
#ifndef __NO_ADD_ACTION__
SAVETP;
enable_commands();
RESTORETP;
ASSERT(!find_living("foo"));
set_living_name("foo");
ASSERT(find_living("foo") == this_object());
disable_commands();
ASSERT(!find_living("foo"));
enable_commands();
RESTORETP;
set_living_name("bar");
ASSERT(!find_living("foo"));
ASSERT(find_living("bar") == this_object());
destruct(this_object());
#endif
}
nomask void enable_player()
{
if( stringp(query("id")) ) set_living_name(query("id"));
else set_living_name(query("name"));
delete_temp("disabled");
enable_commands();
add_action("command_hook", "", 1);
if( !userp(this_object()) )
set_path(NPC_PATH);
else
switch( wizhood(this_object()) ) {
case "(admin)":
set_path(ADM_PATH);
enable_wizard();
break;
case "(arch)":
set_path(ARC_PATH);
enable_wizard();
break;
case "(wizard)":
set_path(WIZ_PATH);
enable_wizard();
break;
case "(apprentice)":
set_path(APR_PATH);
enable_wizard();
break;
case "(immortal)":
set_path(IMM_PATH);
enable_wizard();
break;
case "(elder)":
set_path(ELD_PATH);
enable_wizard();
break;
default:
set_path(PLR_PATH);
}
}
void create() {
object ob;
::create();
set_gender( random(2)+1 );
/* OBJEDIT { */
set_spd( 12 );
set_con( 13 );
set_str( 14 );
set_dex( 15 );
set_wil( 10 );
set_cha( 3 );
set_int( 4 );
set_emp( 3 );
set_distant( "a wolf" );
set_specific( "the wolf" );
set_look( "~Name ~verbhas gray fur, penetrating yellow eyes, and a generally surly disposition. ~Pron is $(HP)." );
set_plural( "wolves" );
set_name( "wolf" );
set_type( "wolf" );
set_droppable( 1 );
set_weight( 45000 );
/* } OBJEDIT */
set_living_name( name );
set_food(query_food_capacity()/2);
set_drink(query_drink_capacity()/2);
add_form("animal");
set_form("animal", 1);
remove_form("brawl");
set_race("canine");
set_wc((["piercing":6]));
set_wimpy(30);
/*
set_env_var( "skin_type", "/monsters/skin/wolf_pelt" );
set_env_var( "meat_type", "/monsters/meat/wolf" );
*/
set_product_aspect( C_WOLF );
add_product( C_MEAT, 3, 40 );
add_product( C_PELT, 7, 20 );
// add_product( C_TOOTH, 4, 40 );
clone_object("/ai/carnivore")->move(this_object());
ob = clone_object("/ai/aggro");
ob->set_aggro_level(10);
ob->move(this_object());
}
#include "../obj/living.h" /* Pell */
reset() { /* Very tough, but no law against that... /Pell */
set_heart_beat(1);
weapon_class=28;
max_hp=800;
armour_class=12; /* Pell */
hit_point=800;
alignment = -750;
level=20; /* Pell, was 18 (american inflation...) */
experience=962500;
is_npc=1;
name = "minotaur";
cap_name = "Minotaur";
set_living_name(name); /* Pell */
enable_commands();
}
void
create_monster()
{
if (!IS_CLONE)
return;
set_name("alchemist");
set_race_name("alchemist");
set_living_name("_alchemist_");
set_adj("town");
set_long("@@my_long");
add_prop(CONT_I_WEIGHT,47000); /* 47 Kg */
add_prop(CONT_I_HEIGHT,87); /* 87 cm */
add_prop(LIVE_I_NEVERKNOWN,1);
/* str dex con int wis dis */
set_stats(({ 22, 27, 21, 70, 70, 34}));
void create() {
object ob;
::create();
set_gender( 0 );
/* OBJEDIT { */
set_distant( "a giant centipede" );
set_specific( "the giant centipede" );
set_look( "~Name ~verbis over one meter long and has more legs than any decent critter should own. While definately not a full hundred, it's close enough to warrant the name. ~Pron is $(HP)." );
set_alt_name( "giant centipede" );
set_alt_plural( "giant centipedes" );
set_plural( "centipedes" );
set_name( "centipede" );
set_type( "animal" );
set_droppable( 1 );
set_weight( 45000 );
/* } OBJEDIT */
set_living_name( name );
set_known_forms( (["animal": ({"bite","poisonbite","dodge"}) ]) );
void create() {
object ob;
::create();
set_gender( 0 );
/* OBJEDIT { */
set_distant( "a giant scorpion" );
set_specific( "the giant scorpion" );
set_look( "~Name is a nasty big crawly thing of the sort that give people nightmares. It has some eight legs, two claws, and a great tail with a nasty barbed stinger on the tip. This is definitely one monster that not even a mother could love. Oh, and the claws could probably cut you in half too. ~Pron is $(HP)." );
set_alt_name( "giant scorpion" );
set_alt_plural( "giant scorpions" );
set_plural( "scorpions" );
set_name( "scorpion" );
set_type( "animal" );
set_droppable( 1 );
set_weight( 45000 );
/* } OBJEDIT */
set_living_name( name );
set_known_forms( (["animal": ({"grab","sting","dodge"}) ]) );
void create() {
object ob;
::create();
set_gender( 0 );
/* OBJEDIT { */
set_distant( "a giant wasp" );
set_specific( "the giant wasp" );
set_look( "~Name ~verbis a great black flying menace. Its wings emit an incessant buzz as it hovers a meter or two off of the ground, searching for prey. ~Pron is $(HP)." );
set_alt_name( "giant wasp" );
set_alt_plural( "giant wasps" );
set_plural( "wasps" );
set_name( "wasp" );
set_type( "animal" );
set_droppable( 1 );
set_weight( 45000 );
/* } OBJEDIT */
set_living_name( name );
set_known_forms( (["animal": ({"sting","dodge"}) ]) );
void do_tests() {
#ifndef __NO_ADD_ACTION__
object tp;
object o1, o2;
if (this_player()) {
ASSERT(!find_player("bar"));
SAVETP;
enable_commands();
set_living_name("bar");
o1 = find_player("bar");
exec(this_object(), tp);
o2 = find_player("bar");
exec(tp, this_object());
disable_commands();
RESTORETP;
ASSERT(!o1);
ASSERT(o2 == this_object());
}
#endif
}
void create()
{
string s;
seteuid(ROOTID);
if (file_size("/etc/maxusers")<=0)
maxusers=0;
else
{
s=read_file("/etc/maxusers",0,1);
sscanf(s,"%d",maxusers);
}
set_living_name("merlin");
enable_commands();
call_out("wandern",25);
move("/gilden/abenteurer",0);
MBanishListe = m_allocate(0,2);
restore_object(SAVEFILE);
EVENTD->RegisterEvent(EVT_LIB_PLAYER_CREATION, "player_change", ME);
EVENTD->RegisterEvent(EVT_LIB_LOGIN, "player_change", ME);
// absichtlich kein EVT_LIB_LOGOUT, s. Kommentar zu notify_player_leave().
}
void create() {
::create();
set_gender( random(2)+1 );
/* OBJEDIT { */
set_spd( 9 );
set_con( 8 );
set_str( 9 );
set_dex( 10 );
set_wil( 8 );
set_cha( 9 );
set_int( 5 );
set_emp( 7 );
set_type( "animal" );
/* } OBJEDIT */
set_living_name( name );
set_food(query_food_capacity());
set_drink(query_drink_capacity());
/*
set_env_var( "skin_type", "/monsters/skin/deer_skin" );
*/
set_product_aspect( C_DEER );
add_product( C_MEAT, 8, 20 );
//add_product( C_GREASE, 2, 30 );
//add_product( C_BONE, 4, 20 );
//add_product( C_HORN, 2, 10 );
add_product( C_PELT, 10, 20 );
add_form("animal");
set_form("animal", 1);
remove_form("brawl");
set_race("bovine");
set_wc((["blunt":4]));
set_wimpy(90);
use_ai_module( "forage" );
}
void f_set_living_name (void)
{
set_living_name(current_object, sp->u.string);
free_string_svalue(sp--);
}
