Example #1
0
void init_alias_list() {
    object	obj;

#if 0
    if(!list_ab && this_player()) {
        obj = first_inventory(this_player());
        while(obj) {
            if(obj->query_quicktyper(0)) {
                if(1 || is_debug) {
                    write("retrieving alias from existing quicktyper ");
                    write(obj);
                    write ("\n");
                }
                /* retrieve alias from an existing quicktyper */
                list_ab = obj->query_quicktyper(0);
                list_cmd = obj->query_quicktyper(1);
                break;
            }
            obj = next_inventory(obj);
        }
        if(!list_ab) {
            list_cmd = 0;
        }
        if(!list_cmd) {
            list_ab = 0;
        }
    }
#endif
    if(!list_ab) {
        list_ab = allocate(24);
    }
    if(!list_cmd) {
        list_cmd = allocate(24);
    }
}
Example #2
0
find_dungeon_room(x, y, z) {
    object the_room;

    the_room = first_inventory(this_object());
    while (the_room) {
	if (the_room->match_xyz(x, y, z))
	    return the_room;
	the_room = next_inventory(the_room);
    }
}
Example #3
0
main(string who) {

  WIZ_CHECK

  object victim = first_inventory(environment(this_player()));
  while (victim) {
    victim->stop_combat();
    victim = next_inventory(victim);
  }
  this_player()->msg_local("~CBRT~Name ~verbraise ~poss hands and ~verbcall a time-out.~CDEF");
  return 1;
}
throw_out_players() {
    object obj, this_obj;

    obj = first_inventory(this_object());
    while (obj) {
	this_obj = obj;
	obj = next_inventory(obj);
	if (living(this_obj) && !this_obj->query_npc()) {
	    tell_object(this_obj, "Suddenly, you have a feeling of disorientation.\n");
	    this_obj->move_player("out#players/padrone/tower/hall");
	}
    } /* while */
} /* throw_out_players */
Example #5
0
File: sea.c Project: dartmud/ldmud
int dive() {
    object ob;

    ob = first_inventory(this_player());
    while(ob) {
        if (ob->can_put_and_get()) {
            this_player()->move_player("down#room/sea_bottom");
            return 1;
        }
        ob = next_inventory(ob);
    }
    write("You can't breathe under water !\n");
    write("You should try to get some portable air supply!\n");
    return 1;
}
Example #6
0
int do_pulsar(string str) 
{
  object ob, temp;
  int changed;
  changed = 1;

  if (!stringp(str) || ((str != "boton") && (str != "botón")))
  {
    notify_fail("¿Pulsar qué? Quizá quieras 'pulsar botón'.\n");
    return 0;
  }

  tell_object(this_player(), "Pulsas el botón rojo.\n");
  tell_room(environment(this_object()), this_player()->query_cap_name() +
    " pulsa el botón rojo.\n", this_player());

  while (changed) 
  {
    changed = 0;
    ob = first_inventory(environment(this_object()));

    while (ob) 
    {
      if (ob != this_object() && !query_ip_number(ob)) 
      {
        changed = 1;
        temp = ob;
      }
    
      ob = next_inventory(ob);
    
      if (temp) 
      {
        temp->dest_me();
      }
    }
  }
  return 1;
}
void travelers_requirement_celebration_do_speak(descriptor dxr) {
    if(Speech_Flag_Check(dxr, Speech_Flag_OOC))
        return;
    object who = Speech_Query(dxr, Speech_Speaker);
    if(!who->query_intoxication())
        return;
    string msg = Speech_Query(dxr, Speech_Original_Message);
    if(!regmatch("\\<[Gg][Aa][Nn][Ee][Ss][Hh][Aa]\\>", msg))
        return;
    object env = environment(who);
    if(!env)
        return;
    int count = 0;
    for(object obj = first_inventory(env); obj; obj = next_inventory(obj))
        if(obj != who && obj->is_character() && obj->sentience() && obj->sentience()->query_sentience_emotion() && obj->query_intoxication())
            count++;
    if(count < 3)
        return;
    object challenge = Travelers_Find_Challenge(who);
    if(challenge->ganesha_challenge_query_taboo() == "speaking other than by shouting" && Speech_Query(dxr, Speech_Command) != Speech_Command_Shout)
        return;
    challenge->ganesha_challenge_overcome();
}
Example #8
0
void heart_beat()
{
	int wimpy_ratio, cnd_flag;
	mapping my;
	object ob;

	my = query_entire_dbase();

	// If we are dying because of mortal wounds?
	if( my["eff_kee"] < 0 || my["eff_sen"] < 0 || my["eff_gin"] < 0) {
		remove_all_enemy();
		die();
		return;
	}

	// If we're dying or falling unconcious?
	if( my["kee"] < 0 || my["sen"] < 0 || my["gin"] < 0) {
		remove_all_enemy();
		if( !living(this_object()) ) die();
		else unconcious();
		return;
	}

	// Do attack if we are fighting.
	if( is_busy() ) {
		continue_action();
		// We don't want heart beat be halt eventually, so return here.
		return;
	} else {
		// Is it time to flee?
		if( is_fighting()
		&&	intp(wimpy_ratio = (int)query("env/wimpy"))
		&&	wimpy_ratio > 0
		&&	(	my["kee"] * 100 / my["max_kee"] <= wimpy_ratio
			||	my["sen"] * 100 / my["max_sen"] <= wimpy_ratio
			||	my["gin"] * 100 / my["max_gin"] <= wimpy_ratio) )
			GO_CMD->do_flee(this_object());
		// Do attack or clean up enemy if we have fleed.
		attack();
	}

	if( !userp(this_object()) ) {
		this_object()->chat();
		// chat() may do anything -- include destruct(this_object())
		if( !this_object() ) return;	
	}

	if( tick--  ) return;
	else tick = 5 + random(10);

	cnd_flag = update_condition();

	// If we are compeletely in peace, turn off heart beat.
	// heal_up() must be called prior to other two to make sure it is called
	// because the && operator is lazy :P
	if( ((cnd_flag & CND_NO_HEAL_UP) || !heal_up())
	&&	!is_fighting() 
	&&	!interactive(this_object())) {
		if( environment() ) {
			ob = first_inventory(environment());
			while(ob && !interactive(ob))
				ob = next_inventory(ob);
		}
		if( !ob ) set_heart_beat(0);
	}

	if( !interactive(this_object()) ) return;

	// Make us a bit older. Only player's update_age is defined.
	// Note: update_age() is no need to be called every heart_beat, it
	//       remember how much time has passed since last call.
	this_object()->update_age();

	if(query_idle(this_object()) > IDLE_TIMEOUT)
		this_object()->user_dump(DUMP_IDLE);
}
Example #9
0
int update_sex_status()
{
    mapping my;
    string dodge, force, spells;
    int sex_per, update_flag, sex_affair;

    update_flag = 0;

    my = query_entire_dbase();

    if (!mapp(my)) return 0;

    if (my["want"] > 0 && my["want"] > my["eff_want"]) {
        my["want"] -= 1; update_flag++;
    }
    if (my["enjoy"] > 0) { my["enjoy"] -= 1; update_flag++; }

    sex_per = my["per"] + query_temp("apply/personality");

    dodge = query_skill_mapped("dodge");
    force = query_skill_mapped("force");
    spells = query_skill_mapped("spells");
    sex_affair = 0;
    if (dodge) {
        sex_affair += SKILL_D(dodge)->query_sex_affair();
        if (sex_affair == 0)
            ;
        else if (sex_affair < 0) {
            my["want"] += sex_affair;
            update_flag++;
        }
        else if (sex_affair > 0) {
            sex_per += sex_affair;
        }
    }
    if (force) {
        sex_affair += SKILL_D(force)->query_sex_affair();
        if (sex_affair == 0)
            ;
        else if (sex_affair < 0) {
            my["want"] += sex_affair;
            update_flag++;
        }
        else if (sex_affair > 0) {
            sex_per += sex_affair;
        }
    }
    if (spells) {
        sex_affair += SKILL_D(spells)->query_sex_affair();
         if (sex_affair == 0)
            ;
        else if (sex_affair < 0) {
            my["want"] += sex_affair;
            update_flag++;
        }
        else if (sex_affair > 0) {
            sex_per += sex_affair;
        }
    }

    sex_per += query_temp("apply/sex_personality");

    if (sex_affair > 0)
    {
        object env = environment();
        if (environment()) {
            object ob = first_inventory(environment());
            while (ob) {
                if (living(ob)) {
                    ob->add("want", sex_per);
                    update_flag++;
                }
                ob = next_inventory(ob);
            }
        }
    }

    return update_flag;
}
check_castle() {
    object client, idwand, an_obj;
    string client_name, client_lname;

    if (!present("walking castle", this_object()))
	return 0;
    client = call_other(CASTLE, "who_drove_it_here");
    if (client) {
	client_name = client->query_name();
	client_lname = lower_case(client_name);
	if (!present(client, this_object())) {
	    notify("Padrone says: Excuse me, but I would like to talk to " +
		   client->query_name() + ".\n");
	    return 0;
	}
    }
    else {
	/* Just take any player who happens to be here! */
	an_obj = first_inventory(this_object());
	while (an_obj && !client) {
	    if (living(an_obj) && !an_obj->query_npc())
		client = an_obj;
	    an_obj = next_inventory(an_obj);
	}
	client_name = client->query_name();
	client_lname = lower_case(client_name);
    }
    if (!client)
	return 0;

    if (client->query_quests("padrone")) {
	notify("Padrone says: Hi there, " + client_name+ ". Haven't I seen you before?\n");
	notify("Padrone says: But it doesn't matter. I'll give you a reward this time too.\n");
	log_file("padrone", ctime(time()) + ": " + client_name + " solved the quest (again).\n");
    }
    else {
	notify("Padrone says: You found my castle! I am so happy!\n");
	golem->init_command("kiss " + client_lname);
#ifndef GENESIS
	shout("Padrone shouts: " + client_name + " just solved my quest!\n");
#endif
	client->set_quest("padrone");
	log_file("padrone", ctime(time()) + ": " + client_name +
		 " (level " + client->query_level() +
		 ") solved the quest.\n");
    }

    notify("Padrone says: Here! Take this small token of my appreciation!\n");
    notify("Padrone fetches something from another dimension.\n");

    idwand = clone_object("players/padrone/obj/idwand");
    if (client->add_weight(1)) {
	notify("Padrone gives wand to " + client_name + ".\n");
	move_object(idwand, client);
    }
    else {
	notify("Padrone drops the wand.\n");
	move_object(idwand, this_object());
    }
    notify("Padrone says: I have also arranged for a bodyguard for you.\n");
    notify("Padrone says: Just go to Antonio's Personal Protection Service.\n");

    notify("Padrone quietly opens a small door in reality. Then, he is gone.\n");
    notify("The castle disappears in a puff of smoke.\n");
    call_other(CASTLE, "callable_castle_reset");	/* Also resets the bridge */
    move_object(golem, "players/padrone/store");
    call_out("give_bodyguard", 4, client);

    destruct(golem);
    return 1;
} /* check_castle */
Example #11
0
void heart_beat() {
    int wimpy_ratio, to_wimpy, cnd_flag, oldbusy;
    mapping my;
    object ob;
    string savemyass;

    if(!this_object()) {
        return;
    }

//	command("say start heart_beat");
//	command("say i am busy"+(string)query_busy());
    if (query_temp("in_heart_beat"))
        return;

    my = query_entire_dbase();

    // If we are dying because of mortal wounds?
    if( my["eff_kee"] < 0 || my["eff_sen"] < 0 || my["eff_gin"] < 0
            || my["kee"] < -2 * my["dur"]  || my["sen"] < -2 * my["dur"] || my["gin"] < -2 * my["dur"]) {
        remove_all_enemy();
        die();
        return;
    }

    // If we are unconcious, just return;
    if(query_temp("is_unconcious"))  {
        return;
    }

    // If we're dying or falling unconcious?
    if( my["kee"] < 0 || my["sen"] < 0 || my["gin"] < 0) {
        remove_all_enemy();
        unconcious();
        return;
    }


// let NPC do something in fight that won't be affected by busy...e.g talk
//	all actions in nb_chat will be executed in fight. They should never have busy()
//	as a consequence and they should be allowed to appear at same time.

    if (is_fighting())
        if(objectp(this_object()) && !userp(this_object())) {
            this_object()->nb_chat();
            if(!this_object()) {
                return;
            }
        }

    if (!is_busy()) {

        // (1) Do attack or clean up enemy if we have fleed.
        if(is_fighting()) {
            // Hey, NPC's 心神 doesn't need to be reduced here, let's save some resource
            // my["sen"]--;
            attack();
        }

        // (2) chat() may do anything -- include destruct(this_object())
        if(objectp(this_object()) && !userp(this_object())) {
            this_object()->chat();
            if(!this_object()) {
                return;
            }
        }
    }

    // If busy, continue action and return here.
    if(is_busy()) {
        continue_action();
        return;
    }

    if(tick--) {
        return;
    } else {
        tick = 5 + random(10);
    }

    cnd_flag = update_condition();
    if (!living(this_object())) return;

    // If we are compeletely in peace, turn off heart beat.
    // heal_up() must be called prior to other two to make sure it is called
    // because the && operator is lazy :P

    if( ((cnd_flag & CND_NO_HEAL_UP) || !heal_up()) && !is_fighting()
            && !interactive(this_object())) {
        if(environment()) {
            ob = first_inventory(environment());
            while(ob && !interactive(ob)) {
                ob = next_inventory(ob);
            }
        }
        if(!ob && !query("ALWAYS_ACTIVE")) set_heart_beat(0);
    }
    if(!this_object()) return;
    if(!interactive(this_object())) return;

}
Example #12
0
void heart_beat()
{
        int t;
        int period;
        int wimpy_ratio, cnd_flag;
        mapping my;
        object ob;
	object me;
	string prompt;
	int is_player;

	me = this_object();
        my = query_entire_dbase();

        if (userp(me) && living(me) && mapp(my["env"]))
        {
                // update prompt
		prompt = my["env"]["prompt"];
                if ((prompt == "time" || prompt == "mud" || prompt == "hp") &&
		    is_waiting_command() && ! me->is_attach_system())
                    
                {
                        write_prompt();
                }
                
        }

        // If we're dying or falling unconcious?
        if (my["qi"] < 0 || my["jing"] < 0)
        {
                if (! living(me)) die();
                else unconcious();

                // Why does the living test? Because
                // The wizard may set immortal but his
                // qi was -1, so I don't want return,
                // or the continue_action will never be
                // called in such case.
                if (! me || ! living(me))
                        return;
        }

        if (is_p_busy())
        {
                continue_p_busy();
        }
        
        // Do attack if we are fighting.
        if (is_busy())
        {
                continue_action();
                // We don't want heart beat be halt eventually, so return here.
        } else
	if (living(me))
        {
                string apply;
                object apply_ob;

                // Is it time to flee?
                if (is_fighting() &&
                   intp(wimpy_ratio = (int)query("env/wimpy")) &&
                   wimpy_ratio > 0 &&
                   (my["qi"] * 100 / my["max_qi"] <= wimpy_ratio ||
                    my["jing"] * 100 / my["max_jing"] <= wimpy_ratio))
                {
                        if (stringp(apply = query("env/wimpy_apply")) &&
                            objectp(apply_ob = present(apply, me)) &&
                            apply_ob->query("can_apply_for_wimpy"))
                        {
                                apply_ob->apply_for_wimpy(this_object());
                        } else
                                GO_CMD->do_flee(this_object());
                }
                
                if (query("auto_perform") || me->query_auto_perform())
                {                       
                        if (my["eff_jing"] > 0 && my["jing"] * 100 / my["eff_jing"] <= 70)
                                SKILL_D("force/regenerate")->exert(me, me);
                        if (my["eff_qi"] > 0 && my["qi"] * 100 / my["eff_qi"] <= 70)
                                SKILL_D("force/recover")->exert(me, me);

                        // 如果不在打架而且处于受伤状态,则自行疗伤
                        if (! is_fighting())
                        {
                                if (my["eff_jing"] < my["max_jing"])
                                        SKILL_D("force/inspire")->exert(me, me);
                                if (my["eff_qi"] < my["max_qi"])
                                        SKILL_D("force/heal")->exert(me, me);
                        }
                }
                // Do attack or clean up enemy if we have fleed.
                if (is_busy())
                        continue_action();
                else
                        attack();
        }

        if (my["doing"] == "scheme")
                // executing schedule now
                SCHEME_CMD->execute_schedule(me);

        if (! me) return;

        if (! (is_player = playerp(me)))
        {
                me->scan();
                // scan() may do anything -- include destruct(this_object())
                if (! me) return;
        }

        if ((t = time()) < next_beat) return;
        else next_beat = t + 5 + random(10);

	if (! my["not_living"])
        	cnd_flag = update_condition();
	if (! me) return;

	if (! (cnd_flag & CND_NO_HEAL_UP))
		cnd_flag = heal_up();

        // If we are compeletely in peace, turn off heart beat.
        // heal_up() must be called prior to other two to make sure it is called
        // because the && operator is lazy :P
        if (! cnd_flag &&
	    ! is_player &&
            ! keep_beat_flag &&
            ! is_fighting() &&
	    ! is_busy() &&
            ! interactive(this_object()))
        {
                if (environment() && query("chat_msg"))
                {
                        ob = first_inventory(environment());
                        while (ob && ! interactive(ob))
                                ob = next_inventory(ob);
                } else
                        ob = 0;
                if (! ob) set_heart_beat(0);
        }

        update_all_limb_damage();
        
        if (! me || ! is_player) return;

        // Make us a bit older. Only player's update_age is defined.
        // Note: update_age() is no need to be called every heart_beat, it
        //       remember how much time has passed since last call.
        me->update_age();

#ifdef AUTO_SAVE
        if (living(me))
        {
            	period = t - ((int) my["last_save"]);
                if (period < 0 || period > 15 * 60)
            	{
                	string msg;
                        msg = HBCYN HIW "【档案存储】您的档案已经自动存盘,"
                              "欢迎访问论坛 http://bbs.mudbuilder.com/ 。\n" NOR;
                	if (! me->save())
                    	msg = HIR "【数据保护】由于数据异常,您的档"
                              "案本次存盘失败。\n" NOR;
                	set("last_save", t);
                	tell_object(me, msg);
            }
        }
#endif
	if (! interactive(me))
		return;

        if (my["food"] <= 0 || my["water"] <= 0)
        {
		if (environment() &&
		    ! environment()->is_chat_room() &&
                    ! wizardp(me) &&
                    ! query_condition("hunger"))
		{
			// born & enter the world
                        apply_condition("hunger", 1);
		}
        }

        if (query_idle(me) > IDLE_TIMEOUT && ! wizardp(me) &&
            (! mapp(my["env"]) || ! my["env"]["keep_idle"]))
                me->user_dump(DUMP_IDLE);
}