Exemple #1
0
void setup() {
  set_light(100);
  set_short("Small Gods Street outside Temple");
  set_long(
"You are on Small Gods Street outside the Temple of Small Gods.  "+
"A large gateway to the west leads into the Temple.  The "+
"street continues north and south.\n");
 
  add_exit("north", ROOM+"smallgod1", "road");
  add_exit("south", ROOM+"smallgod3", "road");
  add_exit("west", TEMPLE, "gate");
 
  add_item("temple",
"It is the Temple of Small Gods.  It is covered in small statues.\n");
  add_alias("temple of small gods", "temple");
  add_item("gateway",
"This is a large wrought-iron set of gates which have been open for so many years "+
"that they appear to have rusted permanently open.  Various and sundry "+
"religious symbols are situated over the top of the gateway.\n");
  add_alias("gate", "gateway");
  add_alias("gates", "gateway");
  add_item("symbols", "From the look of it the many different symbols are all "+
"collected from the myriad of small obscure gods that are worshipped "+
"in Ankh-Morpork.\n");
  add_alias("symbol", "symbols");
 
  set_zone("ankh morpork");
 
  set_monster(NUM, "city");
}
Exemple #2
0
void extra_create()
{
    
    set_name( "tendrils" );
    add_alias( "tendril" );
    add_alias( "tendrils" );
    set_short( "some writhing black tendrils" );
    set_ansi_short ( sprintf( "%ssome writhing black tendrils%s", HIK, NORM ) );
    set_long( "These horrible black tendrils writhe and grip about wildly."
    );
    set_alignment( DEMONIC_AL );
    set_stat( "str" , 200 );
    set_stat( "con" , 300 );
    set_stat( "wil" , 300 );
    set_stat( "dex" , 130 );
    set_skill( "dodge", 65 );
    set( NoStealP );
    set( NoStunP );
    set_natural_ac( 3 );
    set_heal_rate( 30 );
    set_heal_amount( 6 );
    set_max_damage( 10 );
	set_aggressive( 1 );
	add_combat_message( "grope", "gropes" );
	add_combat_message( "slither on", "slither on" );
}    
Exemple #3
0
void extra_create() 
{
    switch( random( 3 ) )
    {
      case 0 : colorname = "green"  ; color = GRN; break;
      case 1 : colorname = "blue"   ; color = BLU; break;
      case 2 : colorname = "purple" ; color = MAG; break;
    }
    
    set_name( "a slime" );
    add_alias( "slime" );
    add_alias( sprintf( "%s slime", colorname ) );
    
    set_short( sprintf( "a %s slime", colorname ) );
    set_ansi_short ( sprintf( "%sa %s slime", color, colorname )  );
    
    set_long( sprintf( "This slime oozes sloppily through the room absorbing "
      "bits and pieces off of the mushrooms around it. Inside of its "
      "%s colored body you can see quite a bit of material. "
      "Hopefully it doesn't try to digest you!", colorname ) );
    
    set_race( FRACE "slime" );
    set_alignment( NEUTRAL_AL );
    
    set_stat( "str" , 200 );
    set_stat( "con" , 300 );
    
    
    set_proficiency( "hands", 150 );
    set_skill( "dodge", 65 );
    
    set( NoStealP, 1 );
    set( NoStunP, 1 );
    
    set_natural_ac( 10 );
    
    set_heal_rate( 20 );
    set_heal_amount( 60 );
    
    set_chat_rate( 30 );
    set_chat_chance( 50 );
    
    add_phrase( "#emote squelches along." );
    add_phrase( "#emote jiggles wildly." );

    set_move_rate( 40 );
    set_move_chance( 50 );
    
    set_pick_up_rate( 60 );
    set_pick_up_chance( 0 );
    
    set_heart_beat( 30 );
    
    add_special_attack( "mimic", THISO, 30 );
}
void setup_route(string* stops, string colour, string route, string language) {

  string prettystops = "";
  int i;

  set_short(route + " table");
  add_adjective(map(explode(route, " "), (: lower_case($1) :))); 
  add_adjective(colour);
  add_alias("table");
  add_alias("cardboard");
  add_adjective(({"piece", "of", colour}));
void setup() {
  set_dom(DOMAIN);
  set_light(100);
  add_exit("drum", "/d/am/am/mendeddrum", "door");
  set_short("Common room of "+DOM_TITLE);
  set_long("Large relaxing chairs addorn the room.  The walls are covered "+
           "with strange motifs from different lands and the little shelf "+
           "above the fireplace is chocker block full of strange figurines "+
           "and bits of cloth.  It appears to be the common room of "+
           DOM_TITLE+" the large red letters on the wall were the " +
           "give away.\n");
  add_alias("chairs", "chair");
  add_alias("cloths", "cloth");
  add_alias("motifs", "motif");
  add_alias("figurines", "figurine");
  add_item("chair", "The chairs are lazing around the room relaxing it looks "+
                    "like they come here after a hard days working in "+
                    DOM_TITLE+".\n");
  add_item("fireplace", "A nice little fire place with a cheery fire burning "+
                        "in it keeping every one warm.\n");
  add_item("figurine", "Small figurines, they look strangely familiar "+
                         "until you realise they are the members of "+
                         DOM_TITLE+".\n");
  add_item("cloth", "Strange coloured bits of cloth strewn over the "+
                    "mantlepice for no readily apparent reason.\n");
  add_item("motif", "The motifs on close inspection look like stylised "+
                     "signatures of all the members of "+DOM_TITLE+
                     ".  Some of them are very strange, in fact there "+
                     "seem to be more than there are members of the house.  "+
                     "perhaps it is the members of the future.\n");
  add_item("shelf", "A nice normal sort of shelf thing.  It is like all "+
                    "those ones you see in houses all over the place, "+
                    "execpt... the way it has been burnt... hmm it does "+
                    "not look like the fire did it.\n");
  add_item("fire", "There is a fire happily burning away in the fireplace "+
                   "spluttering and crackling to itself.  The flames almost "+
                   "seem afraid of something.  Looking closer you notice a "+
                   "picture tacked to the side of the fire place.\n");
  add_item("picture", "Tacked to the inside wall of the fire thingy, you "+
                      "know the hole bit at the bottom, is a small picture "+
                      "it looks like it was taken with the best of demon "+
                      "photography.  It is a picture of a person holding "+
                      "a small staff, you think it might be "+LORD+
                      " but you are not sure as the fire light sparkles "+
                      "in your eyes.\n");
  board = clone_object("/obj/misc/board");
  board->set_datafile(DOMAIN);
  board->move(this_object());
}
Exemple #6
0
int check_builtin(char *cmd)
{
	/* Arguments:
			cmd = program to run
			
		Purpose:
			this function checks to see if the 
			cmd specified is a built in command
			(in this case only "cd" is built-in)
		
		Returns:
			0  -- if the cmd is built in
			-1 -- if the cmd is NOT built in
	*/

	if(!strcmp(cmd,"cd")) {
		//command was "cd" which is a builtin, so
		//lets handle it
		add_nav_history(fullPath);
		chdir(args[1]); //change directory to first argument
		get_path();
	}
	else if(cmd[0] == '!') {
		//theyre requesting some sort of history
		exec_history(cmd); //execute the argument number 
	}
	else if(cmd[0] == '@') {
		//requesting nav history
		exec_nav_history(cmd);
		get_path();
	}
	else if(!strcmp(cmd,"history")) {
		print_history();
	}
	else if(!strcmp(cmd, "navhist")) {
		print_nav_history();
	}
	else if(!strcmp(cmd,"alias")) {
		//trying to set an alias
		if(args[1] == NULL) {
			//no argument, so just print all
			print_aliases();
		} else {
			add_alias(args[1]);
		}
	}
	else if(!strcmp(cmd,"unalias")) {
		//trying to remove an alias (args[1] is what is being removed)
		remove_alias(args[1]);
	}
	else if(!strcmp(cmd,"cinterp")) {
		//want to use the C interpreter
		//quit raw mode first (will make the cinterp easier)
		quit_raw_mode();
		cinterp();
		tty_raw_mode(); //reenter raw mode
	}
	else { return -1; }
	return 0;
}
void setup() {
  set_name("blue demon");
  set_long("A blue small demon with a large green note book.  He is a demon "+
           "with a purpose.  He scrutinises everyone who passes by looking "+
           "for that special person.  He is on a mission from a frog.\n");
  add_alias("blue");
  add_adjective(({ "small", "blue" }));
Exemple #8
0
int poclidek__add_aliases(struct poclidek_ctx *cctx, tn_hash *htcnf)
{
    tn_array *keys;
    int i, n = 0;

    keys = n_hash_keys(htcnf);

    for (i=0; i < n_array_size(keys); i++) {
        const char *name, *cmdline;

        name = n_array_nth(keys, i);
        if (*name == '_')       /* config macro */
            continue;
        
        if ((cmdline = poldek_conf_get(htcnf, name, NULL)))
            if (add_alias(cctx, name, cmdline))
                n++;
    }
    
    n_array_free(keys);

    if (n)
        find_aliased_commands(cctx);
        
    return n;
}
Exemple #9
0
/******************************************************************************
 *                                                                            *
 * Function: load_aliases                                                     *
 *                                                                            *
 * Purpose: load aliases from configuration                                   *
 *                                                                            *
 * Parameters: lines - aliase entries from configuration file                 *
 *                                                                            *
 * Comments: calls add_alias() for each entry                                 *
 *                                                                            *
 ******************************************************************************/
void	load_aliases(char **lines)
{
	char	**pline, *r, *c;

	for (pline = lines; NULL != *pline; pline++)
	{
		r = *pline;

		if (SUCCEED != parse_key(&r) || ':' != *r)
		{
			zabbix_log(LOG_LEVEL_CRIT, "cannot add alias \"%s\": invalid character at position %ld",
					*pline, (r - *pline) + 1);
			exit(EXIT_FAILURE);
		}

		c = r++;

		if (SUCCEED != parse_key(&r) || '\0' != *r)
		{
			zabbix_log(LOG_LEVEL_CRIT, "cannot add alias \"%s\": invalid character at position %ld",
					*pline, (r - *pline) + 1);
			exit(EXIT_FAILURE);
		}

		*c++ = '\0';

		add_alias(*pline, c);

		*--c = ':';
	}
}
Exemple #10
0
int
rotz_add_alias(rotz_t ctx, rtz_vtx_t v, const char *alias)
{
	size_t aliaz = strlen(alias);
	const_buf_t al;
	rtz_vtxkey_t akey;
	rtz_vtx_t tmp;

	/* first check if V is already there, if not get an id and add that */
	if ((tmp = get_vertex(ctx, alias, aliaz)) && tmp != v) {
		/* alias points to a different vertex already
		 * we return -2 here to indicate this, so that callers that
		 * meant to combine 2 tags can use rotz_combine() */
		return -2;
	} else if (UNLIKELY(tmp)) {
		/* ah, tmp == v, don't bother putting it in again */
		;
	} else if (UNLIKELY(put_vertex(ctx, alias, aliaz, v) < 0)) {
		return -1;
	}
	/* check aliases */
	if ((al = get_aliases(ctx, akey = rtz_vtxkey(v))).d != NULL &&
	    UNLIKELY(find_in_buf(al, alias, aliaz) != NULL)) {
		/* alias is already in the list */
		return 0;
	} else if (UNLIKELY(add_alias(ctx, akey, alias, aliaz) < 0)) {
		return -1;
	}
	return 1;
}
void setup() {
//  string *doms, com;
//  int i;
  
  set_light(100);
  set_short("domain-control room");
  add_property("determinate", "the ");
  set_long("You float in nothingness, before a vast turtle, its shell pocked "
    "by asteroid craters. In all directions stars twinkle in the black " 
    "curtain of space.\n" 
"Available commands:\n"
"  list                         : list all domains.\n"
"  list <domain>                : list members of a domain.\n"
"  create <domain>              : create a domain (you are lord).\n"
"  create <domain> <lord>       : create a domain for someone else.\n" 
"  add <creator> <domain>       : add a creator to a domain you own.\n" 
"  delete <creator> <domain>    : remove a creator from a domain you own.\n" 
"  project <cre> <dom> <proj>   : Set the creators project.\n"
"  deputy <cre> <dom>           : Appoint creator as a deputy.\n"
"  undeputy <cre> <dom>         : Remove creator as a deputy.\n"
);

  add_item("turtle", "On its back you can see four elephants, and they bear " +
    "the weight of the disc upon their wide backs.\n");
  add_item("elephants", "The four great elephants labour endlessly in the " +
    "task of turning the disc upon their backs.\n");
  add_item("disc", "The whole discworld, from hub to rim, rides upon the " +
    "elephant's backs.\n");
  add_alias("elephant", "elephants");
  add_exit("north", ROOM+"development", "corridor");
  add_exit("south", ROOM+"site_control", "corridor");
  add_exit("west", ROOM+"access_control", "corridor");
  seteuid("Admin");
} /* setup() */
Exemple #12
0
void extra_create()
{
    set_name( "a beholder" );
    add_alias( "beholder" );
    set_short( "a beholder" );
    set_long( "This is a beholder. It is essentially a floating head "
      "with one single, cyclops-like eye surrounded by ten smaller eye "
      "stalks. Its massive, gaping maw is set in a permanent grin. "
      "It looks like a sphere covered in eyes, with extra eyes "
      "growing out of it. Little eye sprouts if you will." );
    set_gender( "unknown" );
    set_race( MON "beholder_race" );
    //set_guild()
    //set_specialization
    set_skill( "dodge", 50 );
    set_alignment( -4000 );
    set_stat( "str", random( 5000 ) );
    set_stat( "con", random( 5000 ) );
    set_proficiency( "hands", 50 );
    set_move_rate( 60 );
    set_move_chance( 50 );
    set_aggressive( 3 );
    add_combat_message( "smack", "smacks" );
    add_combat_message( "slup", "slurps" );
    add_combat_message( "grab", "grabs" );
    set_type( "blunt" );
    set_hit_bonus( 2 ); //So many eyes.
    set_heal_rate( 30 );
    set_heal_amount( random( THISO->query_max_hp() ) - random( 300 ) );
    set_natural_ac( 5 );
    set( "loot", 1 );
    add_money( random( 1000 ) );
    add_special_attack( "blastem", THISO, 10 );
}
Exemple #13
0
void extra_create()
{
    set_name("pamela");
    add_alias("pam");
    set_short(SHORT);
    set("sdesc", SHORT);
    set_long("DOH!  What you are looking at probably has to "
          "be the finest specimen of human anatomy ever "
           "created.  Everything is in the right proportion "
           "and she knows how to use it.  The fact that she is "
           "naked almost drives you crazy, and you feel a "
           "sudden urge to stare at her.\n");
    set_race("human");
    set_gender("female");
    set_stat("str",120);
    set_stat("int",20);
    set_stat("wil",100);
    set_stat("con",250);
    set_stat("dex",100);
    set_stat("chr",300);
    set_proficiency("hands", 10 + random(5));
    set_aggressive(0);
    set_alignment("neutral");
    set_natural_ac(2);            //Silicone implants
    set(MonsterP, 1);
    set_chat_chance(95);
    set_chat_rate(random(10)+60);
    add_phrase("Pamela giggles.\n");
    add_phrase("Pamela wonders where the beach is.\n");
    add_phrase("Pamela looks at you.\n");
}
void setup() {
  set_short("Xrazzicaz' Boot Camp");
  add_property("determinate", "");
  set_light( 75 );
  add_property("no teleport", 1);
  
  set_long("This is a small training room, designed to help the new "
           "adventurer get off to a good start on Discworld.  The air is "
           "stale with the combined stench of sweat, beer, and old "
           "warriors.  Off to one side is a rather unusual training "
           "dummy above which is a small plaque.\n");
  add_item( "face", "As you stare at it, squinting and turning your head "
            "side to side, you realise it looks rather like your old maths "
            "teacher!\n");
  add_item( "floor", "The floor is made of flagstones, cemented together "
            "with centuries of accumulated muck.\n");
  add_item( "wall", "The walls are marked with mysterious stains that may or "
            "may not be blood.  But surely training dummies don't bleed.\n");
  add_item( "ceiling", "The ceiling appears to be dingy patches of plaster "
            "stuck between old oak rafters that have turned black with "
            "age.\n");
/* Make it so you cannot godmother out of here */
  add_property("no godmother", 1);

  add_exit( "combat", PATH + "combat", "door" );
  add_alias( "southeast", "foyer");
}/*setup*/
Exemple #15
0
void extra_create()
{
    set_name("ivy");
    add_alias("ivy");
    set_short("The Archive");


    set_long("some generic long");


    set_race("human");
    set_alignment("good");
    set_stat("str",15);
    set_stat("dex",15);
    set_stat("con",45+random(15));

    set_stat("int",275);
    set_stat("chr",15);
    set_stat("wil",15);
    set_skill("dodge", 15);
    set_percent_bonus_exp(10);
    set_max_damage(8);
    set_natural_ac(2);
    set_chat_chance(30);
    set_chat_rate(1);
    add_phrase("The ice around The Archive sweats.\n");
}
Exemple #16
0
void extra_create()
{
    set_name( "The Great Pumpkin" );
    
    add_alias( "pumpkin" );
    add_alias( "great" );
    add_alias( "great pumpkin" );
    add_alias( "the great pumpkin" );
    add_alias( "great pumpkin" );
    
    set_short( "The Great Pumpkin" ); 
    set_ansi_short( YEL "The Great Pumpkin" );
    
    set_long( "Great might be an understatement. This "
      "pumpkin is gargantuan. Its face is comprised of "
      "two oddly spaced eyes and a row of very sharp teeth. "
      "Its legs are a mass of green tendrils. Amongst the tendrils "
      "you can make out a mess of wires. Someone has rebuilt this "
      "creature. They had the technology. They had the capability "
      "to build the world's first bionic pumpkin. Better than it "
      "was before. Better, stronger, faster." );  
    
    set_gender( "unknown" );
    set_race( RACE );
    
    set_alignment( NEUTRAL_AL );
    
    set_percent_bonus_exp( -50 ); //12mil xp was pretty excessive.
    
    set_stat( "str", 5000 );
    set_stat( "con", 5000 );
    
    set_proficiency( "hands", 150 );
    set_skill( "dodge", 200 );
    
    set( NoStealP, 1 );
    set( NoStunP, 1 );
    
    set_natural_ac( 10 );
    
    set_heal_rate( 30 );
    set_heal_amount( 1000 );
    
    set_move_rate( 60 );
    set_move_chance( 50 );
    set_wander_dir( ({ "/zone/null/eternal/", 
      "/zone/guild/" }) );
Exemple #17
0
void setup() {
  set_name("purple demon");
  set_long("A small purple demon with a large note book.  He is looking "+
           "furtively around the room.  He seems in somewhat of a hurry.\n");
  add_alias("demon");
  set_short("Purple demon");
  set_level(-2);
  add_adjective(({ "purple", "short" }));
Exemple #18
0
void extra_create()
{
   object ob;

   set_name(  "Paula Spleen" );
   add_alias( "paula" );
   add_alias( "spleen" );
   add_alias( "paula spleen" );
   add_alias( "Paula Spleen" );
   set_short( "Paula Spleen" );
   set_long(
     "This here be Paula.  She is famous round these parts fer "
     "being the best durn cook this side-a the mississipper.  "
     "She sure must love herself some butter, cuz she's five "
     "hunred pounds if shesa ounce yessireeee yeeehawwww."
   );

   set_race( "pig" );
   set_gender( "female" );
   set_alignment( 250 );

   set_stat( "str",  500 );
   set_stat( "int",    1 );
   set_stat( "wil",  800 );
   set_stat( "con",  500 );
   set_stat( "dex",  300 );
   set_stat( "chr", 1500 );

   set_max_fatigue( 25000 );
   set_natural_ac ( 10 );
   set_proficiency( "pig-fu", 6 );
   set_skill( "dodge", 100 );
   set_percent_bonus_exp( -15 );

   add_special_attack( "chuck_butter", THISO, 10 );

   ob = clone_object( ZOBJ "wig" );
     move_object( ob, THISO );
   ob = clone_object( ZOBJ "muumuu" );
     move_object( ob, THISO );
    ob = clone_object( ZOBJ "diabetes" );
      if( !ob ) ob = clone_object( ZOBJ "butter" );
      move_object( ob, THISO );

   call_out( "gear_up", 2 );
}
Exemple #19
0
void extra_create()
{
    set_name( "a horror" );
    add_alias( "creature" );
    add_alias( "horror" );
    add_alias( "indescribable horror" );
 
    set_short( "an indescribable horror" );
    set_ansi_short( "an indescribable horror", HIK  );
    set_long( "Parts, parts, and more parts! This thing has tentacles, "
      "it has arms, legs, and many mouths. You notice it is missing " 
      "eyes. It is coated in a thick gelatinous black slime. The tentacles "
      "writhe around its back and its mouths chomp. It flicks its tongues "
      "out into the air." );   
    
    set_gender( "other" );
    
    set_damage_bonus( 2 );
       
    set_alignment( EVIL_AL );
    
    set_stat( "str" , 100 );
    set_stat( "con" , 50 );
    set_stat( "wil" , 500 );
    set_stat( "dex" , 200 );
    
    set_proficiency( "hands", 75 );
    
    set_skill( "dodge", 65 );
    
    set_type( "pyschic" );
    
    set( NoStunP, 1 );
    
    set_aggressive( 4 );
    
    set_natural_ac( 3 );
    
    set_chat_rate( 20 );
    set_chat_chance( 20 );
    
    add_phrase( "#say Ack'cthun." );
    add_phrase( "#say Masr'snaff. ct'oon." );
    add_phrase( "#say Snaral d'fan ar'marak" );
}
Exemple #20
0
void	ft_alias(char **tab)
{
	if (tab[1] && tab[2])
	{
		g_alias = del_alias(g_alias, tab[1]);
		g_alias = add_alias(g_alias, tab[1], tab[2]);
	}
	else
		show_alias(g_alias);
}
Exemple #21
0
void extra_create()
{
    object ob;

    set_name(  "Chester" );
    add_alias( "chester" );
    add_alias( "uncle chester" );
    add_alias( "uncle" );
    add_alias( "master of arms" );
    add_alias( "hill wizard master of arms" );
    set_short( "Uncle Chester, Hill Wizard Master of Arms" );
    set_long(
        "Remember that jovial old man who helps teach young boys "
        "how to properly use and care for their weapons on every "
        "TV show ever?  Well, that's Uncle Chester.  He's a kind "
        "middle aged man with time to spare.  He also happens to "
        "know a whole lot about weaponry!  And by that, I mean "
        "even moreso than your average hillbilly."
    );

    set_race( "human" );
    set_gender( "male" );
    set_alignment( 500 );

    set_stat( "str",  800 );
    set_stat( "int",  250 );
    set_stat( "wil", 1000 );
    set_stat( "con", 1000 );
    set_stat( "dex",  400 );
    set_stat( "chr",  250 );
    set_skill( "dodge", 100 );
    set_proficiency( "hands", 50 );

    set_max_fatigue( 25000 );
    set_natural_ac ( 10 );
    set_percent_bonus_exp( -25 );

    ob = clone_object( "/zone/present/hillbilly/obj/armor/overalls.c" );
    move_object( ob, THISO );

    call_out( "gear_up", 1 );
}
Exemple #22
0
void setup() {
  set_weight(10);
  set_value(5);
  set_name("shell");
  add_adjective("sea");
  add_alias("seashell");
  set_short("sea shell");
  set_long("A large conch shell.  It looks like it has been hollowed "+
           "out so that it can be played.  Perhaps if you blew into "+
           "it it might work.\n");
}
Exemple #23
0
void	update_alias(t_info *info, char *init, char *replace)
{
	t_alias	*alias;

	if ((alias = search_alias(info, init)))
	{
		free(alias->replace);
		alias->replace = ft_strdup(replace);
	}
	else
		add_alias(info, ft_strdup(init), ft_strdup(replace));
}
Exemple #24
0
/* Fonction qui est appelée lors de la création d'un alias */
int alias(int argc, char **argv)
{
    char *p;
    alias_ll *tmp;
    tmp = liste_alias;
    /* Manque d'arguments */
    if (argc != 2)
    {
        fprintf(stderr, "philsh : Usage : alias [-L|name=\"command\"\n");
        return ERR_ARG;
    }
    /* L'option -p permet d'afficher les alias de la session en cours */
    if (!strcmp(argv[1], "-L"))
    {
        while(tmp != NULL)
        {
            printf("%s aliased to '%s'\n", tmp->name, tmp->cmd);
            tmp = tmp->next;
        }
        return 0;
    }
    /* Si la commande n'est pas de la forme alias machin=truc alors
     * c'est qu'on cherche à afficher un alias */
    if (NULL == (p = strchr(argv[1], '=')))
    {
        if(NULL == (p = search_alias(liste_alias, argv[1])))
        {
            fprintf(stderr,"philsh: %s is not a valid alias\n", argv[1]);
            return 1;
        }
        return printf("%s aliased to '%s'\n", argv[1], p);
    }
    /* On coupe la chaine au =, ainsi argv[1] = machin et p+1 = truc */
    *p = '\0';
    /* On teste si l'alias n'existe pas déjà */
    while(tmp != NULL)
    {
        if (!strcmp(tmp->name, argv[1]))
        {
            /* Si l'alias existe, on le modifie à sa nouvelle valeur */
            free(tmp->cmd);
            tmp->cmd = malloc(sizeof(char) * (1+strlen(p+1)));
            strcpy(tmp->cmd, p+1);
            return 0;
        }
        tmp = tmp->next;
    }
    /* L'alias n'existe pas ---> on le crée */
    liste_alias = add_alias(liste_alias, argv[1], p+1);
    /* On rajoute l'alias dans la completion */
    command_completion = add_file_completion(argv[1], 0, command_completion);
    return 0;
}
void setup() {

  set_name( "note" );

  set_short(  "Test note" ) ;

  set_long( "This note is probably broken, please contact a "
    "creator. :)\n" ); 
  reset_get();

  add_alias( "table" );

} /* setup() */
Exemple #26
0
void extra_create()
{
    set_name( "the ghost of Rifrad" );
    add_alias( "rifrad" );
    add_alias( "ghost" );
    add_alias( "doctor" );
    add_alias( "ghost of rifrad" );
    
    set_short( "the ghost of Rifrad" );
    set_ansi_short( sprintf( "%sthe ghost of Rifrad", HIK ) );
    
    set_long( "Where there was once a being, there is now a fluctuating "
      "darkness. A cold ghastly presence. All that remains of Rifrad "
      "is his incorporal form." );   
    
    set_gender( "male" );
    set_alignment( NEUTRAL_AL );
    
    set_stat( "str" , 200 );
    set_stat( "con" , 200 );
    set_stat( "wil" , 500 );
    set_stat( "dex" , 200 );
    
    set_proficiency( "hands", 75 );
    set_skill( "dodge", 65 );
    
    set_type( "psychic" );
    
    set( NoStunP, 1 );
    set( UndeadP, 1 );
    
    set_aggressive( 1 );
    
    set_natural_ac( 3 );
    
    call_out( "hello", 1 );
    
    add_special_attack( "soulwell", THISO, 8 );
}    
void create() {
   do_setup++;
   object::create();
   armour_logic::create();
   wearable::create();
   add_alias( "armour" );
   add_plural( "armours" );
   add_help_file("armour");
   if ( !query_property( "shop type" ) )
      add_property( "shop type", "armoury" );
   do_setup--;
   if ( !do_setup )
      this_object()->setup();
} /* create() */
Exemple #28
0
void
foreach(u_char *command, u_char *args, u_char *subargs)
{
	u_char	*struc = NULL,
		*ptr,
		*body = NULL,
		*var = NULL;
	u_char	**sublist;
	int	total;
	int	i;
	int	slen;

	if ((ptr = new_next_arg(args, &args)) == NULL)
	{
		yell("FOREACH: missing structure expression");
		return;
	}
	malloc_strcpy(&struc, ptr);
	malloc_strcat(&struc, UP("."));
	upper(struc);
	if ((var = next_arg(args, &args)) == NULL)
	{
		new_free(&struc);
		yell("FOREACH: missing variable");
		return;
	}
	while (isspace(*args))
		args++;
	if ((body = next_expr(&args, '{')) == NULL)	/* } */
	{
		new_free(&struc);
		yell("FOREACH: missing statement");
		return;
	}
	sublist = match_alias(struc, &total, VAR_ALIAS);
	slen = my_strlen(struc);
	for (i = 0; i < total; i++)
	{
		unsigned	display;

		display = set_display_off();
		add_alias(VAR_ALIAS, var, sublist[i]+slen);
		set_display(display);
		parse_line(NULL, body, subargs ?
		    subargs : empty_string(), 0, 0, 0);
		new_free(&sublist[i]);
	}
	new_free(&sublist);
	new_free(&struc);
}
Exemple #29
0
/**
 * Parse a single line of the configuration file. Returns 0 on success or
 * anything else if an error occurred, it will be rare since most fatal errors
 * will quit the program with an error message anyways.
 */
int
process_config_line(wchar_t *line, int linenum)
{
	int len;
	wchar_t *keyword, *name, *value;

        /* Strip trailing whitespace */
	for (len = wcslen(line) - 1; len > 0; len--) {
		if (wcschr(WHITESPACE, line[len]) == NULL)
			break;
		line[len] = '\0';
	}

	/* Get the keyword. (Each line is supposed to begin with a keyword). */
	if ((keyword = strdelim(&line)) == NULL)
		return 0;

	/* Ignore leading whitespace. */
	if (*keyword == '\0')
		keyword = strdelim(&line);

	if (keyword == NULL || !*keyword || *keyword == '\n' || *keyword == '#')
		return 0;

	/* set varname value */
	if (wcscmp(keyword, L"set") == 0) {
		if ((name = strdelim(&line)) == NULL) {
			fatal("prwdrc: set without variable name on line %d.\n", linenum);
			return -1;
		}
		value = strdelim(&line);
		set_variable(name, value, linenum);

	/* alias short long */
	} else if (wcscmp(keyword, L"alias") == 0) {
		if ((name = strdelim(&line)) == NULL) {
			fatal("prwdrc: alias without name on line %d.\n", linenum);
			return -1;
		}
		value = strdelim(&line);
		add_alias(name, value, linenum);

	/* Unknown operation... God help us. */
	} else {
		fatal("prwdrc: unknown command on line %d.\n", linenum);
		return -1;
	}

	return 0;
}
Exemple #30
0
Fichier : alias.c Projet : Shmuma/z
/*
 * Add alias to the list
 * Returns 1 on success or 0 if alias with that name already exist
*/
int	add_alias_from_config(char *line)
{
	char 	*name = NULL,
		*value = NULL;

	name = line;
	value = strchr(line,':');
	if(NULL == value)
		return FAIL;

	*value = '\0';
	value++;

	return add_alias(name, value);
}