varargs void init_blade(int damage, int flag) {
if(!clonep()) {
set("weapon_prop/damage", damage);
set("flag", (int)flag | LONG | TWO_HANDED);
set("weapon_wielded", W_LONG_BLADE);
set("skill_type", "blade");
if(!query("verbs")) {
set("verbs", ({ "Õ¶", "¿³", "Åü" }) );
varargs void init_musket(int damage, int flag) {
if(!clonep()) {
set("weapon_prop/damage", damage);
set("flag", (int)flag | LONG | TWO_HANDED | POINTED);
set("weapon_wielded", W_MUSKET);
set("skill_type", "musket");
if(!query("verbs")) {
set("verbs", ({ "´Ì", "ÔÒ","µã","´Á" }) );
varargs void init_axe(int damage, int flag) {
if(!clonep()) {
set("weapon_prop/damage", damage);
set("flag", (int)flag | EDGED);
set("weapon_wielded", W_AXE);
set("skill_type", "axe");
if(!query("verbs")) {
set("verbs", ({ "Åü", "¿³", "Õ¶", "ÔÒ" }) );
varargs void init_hammer(int damage, int flag) {
if(!clonep()) {
set("weapon_prop/damage", damage);
set("flag", flag );
set("weapon_wielded", W_HAMMER);
set("skill_type", "hammer");
if(!query("verbs") ) {
set("verbs", ({ "тр" }) );
varargs void init_stick(int damage, int flag) {
if(!clonep()) {
set("weapon_prop/damage", damage);
set("flag", flag );
set("weapon_wielded", W_STICK);
set("skill_type", "staff");
if(!query("verbs")) {
set("verbs", ({ "тр" }) );
void setup()
{
if( clonep(this_object()) ) return;
set("armor_type", TYPE_ARMOR);
if( !query("armor_apply/dodge")
&& weight() > 300000 )
set("armor_prop/dodge", - weight() / 300000 );
}
void create()
{
if (!clonep(this_object())) return;
::create();
SetProp(P_SHORT,"Eine Zeitung");
SetProp(P_LONG,
"Hier stehen immer die neuesten Nachrichten und Geruechte drin.\n");
SetProp(P_NAME,"Zeitung");
AddId(({"zeitung","mpa","servicepaket"}));
void setup()
{
if( clonep(this_object()) ) return;
if( query("armor_prop/armor") > PROP_WAIST )
set("armor_prop/armor", PROP_WAIST);
set("armor_type", TYPE_WAIST);
if( !query("armor_apply/dodge") && weight() > 3000 )
set("armor_prop/dodge", - weight() / 3000 );
}
create()
{
if (clonep(ME))
{
write("Autodest\n");
destruct(this_object());
}
upd();
}
varargs void init_throwing(int damage, int flag) {
if(!clonep()) {
set("weapon_prop/damage", damage);
set("flag", flag);
set("nodrop_weapon",1);
set("weapon_wielded", W_THROWING);
set("skill_type", "throwing");
if(!query("verbs")) {
set("verbs", ({ "Éä" }) );
varargs void init_dagger(int damage, int flag) {
if(!clonep()) {
set("weapon_prop/damage", damage);
// set("flag", flag | EDGED | SECONDARY );
set("flag", flag | EDGED);
set("weapon_wielded", W_DAGGER);
set("skill_type", "dagger");
if(!query("verbs")) {
set("verbs", ({ "´Ì" }) );
init() {
::init();
if(!present("hide"))
move_object(clone_object(OBJ+"gspiplat"), this_object());
// Added clonep check cuz of stupid unique bug - Picard: Easter of 97
if(!present("stinger") && clonep(this_object()))
move_object(clone_object(OBJ+"gstinger"), this_object());
}
varargs void init_spear(int damage, int flag)
{
if( clonep(this_object()) ) return;
set("weapon_prop/damage", damage);
set("flag", (int)flag | LONG | TWO_HANDED | POINTED);
set("skill_type", "spear");
if( !query("actions") ) {
set("actions", (: call_other, WEAPON_D, "query_action" :) );
set("verbs", ({ "thrust", "pierce", "impale", "bash" }) );
varargs void init_dagger(int damage, int flag)
{
if( clonep(this_object()) ) return;
set("weapon_prop/damage", damage);
set("flag", flag | EDGED | SECONDARY );
set("skill_type", "dagger");
if( !query("actions") ) {
set("actions", (: call_other, WEAPON_D, "query_action" :) );
set("verbs", ({ "pierce", "thrust" }) );
void setup()
{
::setup();
if( clonep(this_object()) ) return;
set("skill_type", "stick");
if( !query("actions") ) {
set("actions", (: WEAPON_D, "query_action" :) );
set("verbs", ({ "bash", "crush", "slam" }) );
void setup()
{
::setup();
if( clonep(this_object()) ) return;
set("skill_type", "katana");
if( !query("actions") ) {
set("actions", (: WEAPON_D, "query_action" :) );
set("verbs", ({ "slash", "slice", "thrust" }) );
varargs void init_sword(int damage, int flag)
{
if( clonep(this_object()) ) return;
set("weapon_prop/damage", damage);
set("flag", (int)flag | EDGED);
set("skill_type", "sword");
if( !query("actions") ) {
set("actions", (: call_other, WEAPON_D, "query_action" :) );
set("verbs", ({ "slash", "slice", "thrust", "pierce" }) );
varargs void init_whip(int damage, int flag)
{
if( clonep(this_object()) ) return;
set("weapon_prop/damage", damage);
set("flag", flag );
set("skill_type", "whip");
if( !query("actions") ) {
set("actions", (: call_other, WEAPON_D, "query_action" :) );
set("verbs", ({ "whip" }) );
varargs void init_club(int damage, int flag)
{
if( clonep(this_object()) ) return;
set("weapon_prop/damage", damage);
set("flag", (int)flag | LONG );
set("skill_type", "club");
if( !query("actions") ) {
set("actions", (: call_other, WEAPON_D, "query_action" :) );
set("verbs", ({ "bash", "crush", "slam" }) );
varargs void init_rake(int damage, int flag)
{
if( clonep(this_object()) ) return;
set("weapon_prop/damage", damage);
set("flag", (int)flag | EDGED);
set("skill_type", "rake");
if( !query("actions") ) {
set("actions", (: call_other, WEAPON_D, "query_action" :) );
set("verbs", ({ "rake", "strike", "bash" }) );
void
create() {
#ifndef __NO_ENVIRONMENT__
if (clonep()) {
string s = file_name();
sscanf(s, "%s#%*d", s);
move_object(s);
}
#endif
}
void setup()
{
// ::setup();
seteuid(getuid());
if( clonep(this_object()) ) return;
set("skill_type", "throwing");
if( !query("actions") ) {
set("actions", (: call_other,WEAPON_D, "query_action" :));
set("verbs", ({ "throw" }) );
varargs void init_bow(int damage, int flag)
{
if( clonep(this_object()) ) return;
set("weapon_prop/damage", damage);
set("flag", flag|SECONDARY );
set("skill_type", "blade");
set("apply/skill_type", "archery");
if( !query("actions") ) {
set("actions", (: call_other, WEAPON_D, "query_action" :) );
set("verbs", ({ "slash", "slice", "hack", "chop" }) );
nomask int violate_unique()
{
object *ob;
if( !clonep(this_object()) ) return 0;
// Find all the cloned instance of this_object()
ob = filter_array( children(base_name(this_object())), (: clonep :) );
return sizeof(ob) > 1;
}
varargs void init_mace(int damage, int flag)
{
if( clonep(this_object()) ) return;
set("weapon_prop/damage", damage);
set("flag", flag | SECONDARY);
// set("flag", 2 );
set("skill_type", "mace");
set("rigidity", (int)(damage/3));
if( !query("actions") ) {
set("actions", (: call_other, WEAPON_D, "query_action" :) );
set("verbs", ({ "chop", "bash", "crush", "slam" }) );
varargs void init_fork(int damage, int flag)
{
if( clonep(this_object()) ) return;
set("weapon_prop/damage", damage);
set("flag", (int)flag | POINTED | SECONDARY);
// set("flag", 1);
set("skill_type", "fork");
set("rigidity", (int)(damage/3));
if( !query("actions") ) {
set("actions", (: call_other, WEAPON_D, "query_action" :) );
set("verbs", ({ "impale", "pierce", "thrust" }) );
int DoSomething() {
int rand;
string thing1, thing2, thing3, thing4, thing5;
string thing6, thing7, thing8, thing9, thing10;
if(!this_object() || !clonep() || !environment()) return 0;
rand = random(10);
thing1 = "I think the campus is still under serious construction.";
thing2 = "I wonder when the classroom building will open.";
thing3 = "There's a village up north that's still being built, I heard.";
thing4 = "Any travel north of here may be unsafe, you know.";
thing5 = "Oh man, I need to get that stuff I left in the building basement.";
thing6 = "Why won't Kim ever buy or sell weapons?";
thing7 = "How am I supposed to leave campus if Kim won't sell me a weapon?";
thing8 = "Maybe there's a shop in the village up north where you can buy whatever you need.";
thing9 = "I heard you can get in trouble with the dean if you climb the tree.";
thing10 = "Some dude told me \bree-yark\" is \"we surrender\" in \"Kobold\". Does that even make any sense?";
switch(rand) {
case 1 :
eventForce("say "+thing1);
break;
case 2 :
eventForce("say "+thing2);
break;
case 3 :
eventForce("say "+thing3);
break;
case 4 :
eventForce("say "+thing4);
break;
case 5 :
eventForce("say "+thing5);
break;
case 6 :
eventForce("say "+thing6);
break;
case 7 :
eventForce("say "+thing7);
break;
case 8 :
eventForce("say "+thing8);
break;
case 9 :
eventForce("say "+thing9);
break;
case 10 :
eventForce("say "+thing10);
break;
default :
eventForce("smile");
}
}
void create() {
::create();
set_properties( ([ "no store" : 1, ]) );
set_type("flail");
set_hands(1);
set_weight(1);
set_curr_value("gold", 0);
owner = 0;
if (clonep(this_object()))
set_heart_beat(3);
}
void create()
{
if (!clonep(this_object()) && object_name(this_object())==(PATH+"raum0")) {
set_next_reset(-1);
return;
}
::create();
Set(H_REPORT, 0);
Set(H_REPORT, SAVE, F_MODE);
AddCmd( "erlaube", "erlauben" );
AddCmd( "verbiete", "verbieten" );
AddCmd( "oeffne", "oeffne" );
AddCmd( ({ "schliess", "schliesse" }), "schliesse" );
int main(object me, string str)
{
object ob, where, *ob_list;
int old_size, i;
if (!str) return notify_fail("指令格式：cleanup <档名>\n");
str = resolve_path(me->query("cwd"), str);
ob_list = children(str);
old_size = sizeof(ob_list);
ob_list->clean_up();
for(i=0; i<sizeof(ob_list); i++)
if( ob_list[i] && clonep(ob_list[i]) && !environment(ob_list[i]) )
destruct(ob_list[i]);
ob_list -= ({ 0 });
