Special Procedure - Meta Physician A ButterMud production Telnet://betterbox.net:4000 This was whipped up, to give our few 30/30 mortals an option other than going immortal. Might have to adjust the prices for your mud. Don't want using the meta to be cheaper than leveling itself ;) -jac jacobin@bellatlantic.net ButterMud - Telnet://betterbox.net:4000 SPECIAL(meta_physician) { /* Special Procedure - meta_physician */ /* Player Characters can train stats or gain */ /* health/mana via a metaphysician */ /* Muerte of ButterMud - Telnet://betterbox.net:4000 */ char meta_type[256]= {" "}; /* Array for meta type name */ long meta_gold = 0; long meta_exp = 0; /* Parse command parm and set meta cost accordingly */ if (CMD_IS("meta")) { argument = one_argument(argument, meta_type); if (strcmp(meta_type,"health")==0) { meta_gold = 400000; meta_exp = 350000;} if (strcmp(meta_type, "mana")==0) { meta_gold = 400000; meta_exp = 350000;} if (strcmp(meta_type, "str")==0) { meta_gold = 750000; meta_exp = 1000000;} if (strcmp(meta_type, "int")==0) { meta_gold = 750000; meta_exp = 1000000;} if (strcmp(meta_type, "wis")==0) { meta_gold = 750000; meta_exp = 1000000;} if (strcmp(meta_type, "dex")==0) { meta_gold = 750000; meta_exp = 1000000;} if (strcmp(meta_type, "con")==0) { meta_gold = 750000; meta_exp = 1000000;} if (strcmp(meta_type, "cha")==0) { meta_gold = 750000; meta_exp = 1000000;} /* Gold and Exp validity check */ if (meta_gold > 300000) { if ((GET_GOLD(ch) < meta_gold)) { send_to_char("You don't have enough gold!\r\n", ch); return (TRUE);} if ((GET_EXP(ch) < meta_exp)) { send_to_char("You haven't the experience!\r\n", ch); return (TRUE);} /* Extract Cash and experience */ GET_GOLD(ch) -= meta_gold; GET_EXP(ch) -= meta_exp; send_to_char("The MetaPhysician accepts your payment and begins the procedure... \r\n",ch); /* Boost Stats */ if (strcmp(meta_type,"health")==0) { GET_MAX_HIT(ch) += number(0, 5); send_to_char("Your vitality increases!\r\n",ch); return 1;} if (strcmp(meta_type,"mana")==0) { GET_MAX_MANA(ch) += number(0, 5); send_to_char("You feel a surge in magical power!\r\n",ch); return 1;} if (strcmp(meta_type,"str")==0) if (GET_STR(ch) <= 17) { GET_STR(ch) += 1; send_to_char("You feel a sudden surge in your strength.\r\n",ch); return 1;} else send_to_char("You are as naturally strong as you can be.\r\n",ch); if (strcmp(meta_type,"int")==0) if (GET_INT(ch) < 18) { GET_INT(ch) += 1; send_to_char("You feel an increase in your understanding.\r\n",ch); return 1;} else send_to_char("Sorry, you can understand no more.\r\n",ch); if (strcmp(meta_type,"wis")==0) if (GET_WIS(ch) < 18) { GET_WIS(ch) += 1; send_to_char("You suddenly feel more wise.\r\n",ch); return 1;} else send_to_char("Sorry, we cannot make you any more wise.\r\n",ch); if (strcmp(meta_type,"dex")==0) if (GET_DEX(ch) < 18) { GET_DEX(ch) += 1; send_to_char("You feel suddenly more agile!\r\n",ch); return 1;} else send_to_char("Sorry, but you are allready as agile as can be.\r\n",ch); if (strcmp(meta_type,"con")==0) if (GET_CON(ch) < 18) { GET_CON(ch) += 1; send_to_char("You feel suddenly more sturdy.\r\n",ch); return 1;} else send_to_char("Sorry, you are as hardy an individual as can be.\r\n",ch); if (strcmp(meta_type,"cha")==0) if (GET_CHA(ch) < 18) { GET_CHA(ch) += 1; send_to_char("You social engineering skills increase!\r\n",ch); return 1;} else send_to_char("Sorry, your charisma stuns me allready.\r\n",ch);} /* If it gets this far, show them the menu */ send_to_char("Select an operation from the following...\r\n",ch); send_to_char("_____________________________ \r\n",ch); send_to_char("Meta Operation Exp Gold \r\n",ch); send_to_char("_____________________________ \r\n",ch); send_to_char("health 350k 400k \r\n",ch); send_to_char("mana 350k 400k \r\n",ch); send_to_char("------ \r\n",ch); send_to_char("str 1mil 750k \r\n",ch); send_to_char("int 1mil 750k \r\n",ch); send_to_char("wis 1mil 750k \r\n",ch); send_to_char("dex 1mil 750k \r\n",ch); send_to_char("con 1mil 750k \r\n",ch); send_to_char("cha 1mil 750k \r\n",ch); return 1; } return 0;}