Greetings,
Here is my do_sacrifice addon snippit for item_corpse
this has the 20 gods of the Dragonlance Pantheon
It has in it some race stuff from my race system,
if youd like my race system email me at
ian_shirm2@yahoo.com and i'll try to throw it into
a snippit for you. This bit of code was added to my
mud Children of the Night 4.0 which is a mindcloud
3.0 mud, you dont have to give me credit anywhere,
just enjoy.. -Ian Shirm (Xrakisis)
switch( number_range(1, 21) )
{
default:
xprintf(buf,
"#0Paladine appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (ch->alignment > 900)
send_to_char("#0Paladine rewards those with a kind heart.\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
break;
case 1:
xprintf(buf,
"#0Astinus appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (get_curr_int(ch) >= 100)
{
send_to_char("Astinus #0rewards those of high Intellegence!!\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}
}
break;
case 2:
xprintf(buf,
"#0Chemosh appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_CLASS(ch, CLASS_UNDEAD_KNIGHT) || IS_CLASS(ch, CLASS_GHOUL)
|| IS_CLASS(ch, CLASS_ZOMBIE))
{
send_to_char("#0The God of the UnDead dropps a pile of bones before you!\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}
}
break;
case 3:
xprintf(buf,
"#0Hiddukel appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_CLASS(ch, CLASS_THIEF))
{
send_to_char("#0The God of Thieves rewards you!\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}
}
break;
case 4:
xprintf(buf,
"#0Nuitari appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (ch->alignment <= -250 && (IS_CLASS(ch, CLASS_MAGE) || IS_CLASS(ch, CLASS_LICH)))
{
send_to_char("#0Nuitari #0rewards Black Robed Mages!\n\r", ch);
send_to_char("#0You Revieve 50,000,000 EXP.\n\r", ch);
ch->exp += 50000000;
}
}
break;
case 5:
xprintf(buf,
"#0Sargonnas appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_RACE(ch, RACE_MINOTAUR))
{
send_to_char("#0Sargonnas Rewards his children the Minotaurs\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}}
break;
case 6:
xprintf(buf,
"#0Zeboim appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_CLASS(ch, CLASS_UNDEAD_KNIGHT))
{
send_to_char("#0Zeboim Rewards knights of EVIL!\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}}
break;
case 7:
xprintf(buf,
"#0Branchala appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_RACE(ch, RACE_ELF) || IS_RACE(ch, RACE_HALFELF)
|| IS_RACE(ch, RACE_DROW) || IS_CLASS(ch, CLASS_DROW)
|| IS_RACE(ch, RACE_KENDER) || IS_RACE(ch, RACE_WILDELF))
{
send_to_char("#0The god reveared by kender and elves rewards you.\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}}
break;
case 8:
xprintf(buf,
"#0Habbakuk appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_RACE(ch, RACE_MINOTAUR) || IS_CLASS(ch, CLASS_GIANT)
|| IS_CLASS(ch, CLASS_DRACONIAN) || IS_CLASS(ch, CLASS_DEMON)
|| IS_CLASS(ch, CLASS_WEREWOLF) || IS_CLASS(ch, CLASS_VAMPIRE)
|| IS_CLASS(ch, CLASS_GHOUL) || IS_CLASS(ch, CLASS_TANARRI)
|| IS_RACE(ch, RACE_TROLL) || IS_RACE(ch, RACE_HALFTROLL)
|| IS_RACE(ch, RACE_OGRE) || IS_RACE(ch, RACE_HALFOGRE)
|| IS_RACE(ch, RACE_ORC) || IS_RACE(ch, RACE_HALFORC))
{
send_to_char("#0The lord of Beasts smiles upon you.\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}}
break;
case 9:
xprintf(buf,
"#0Kiri-Jolith appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_RACE(ch, RACE_MINOTAUR) || IS_CLASS(ch, CLASS_PALADIN))
{
send_to_char("#0Kiri-Jolith looks kindly upon you.\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}}
break;
case 10:
xprintf(buf,
"#0Majere appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_CLASS(ch, CLASS_BLADE_MASTER) || IS_CLASS(ch, CLASS_PALADIN)
|| IS_CLASS(ch, CLASS_MONK) || IS_CLASS(ch, CLASS_SAMURAI)
|| IS_CLASS(ch, CLASS_NINJA))
{
send_to_char("#0Majere Favors those of Discipline.\n\r", ch);
send_to_char("#0You Revieve 50,000,000 EXP.\n\r", ch);
ch->exp += 50000000;
}}
break;
case 11:
xprintf(buf,
"#0Mishakal appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (ch->sex == SEX_FEMALE)
{
send_to_char("#0The Godess of Motherhood looks kindly upon Women.\n\r", ch);
send_to_char("#0You get a Full Restore.\n\r", ch);
ch->hit = ch->max_hit;
ch->mana = ch->max_mana;
ch->move = ch->max_move;
ch->loc_hp[0] = 0;
ch->loc_hp[1] = 0;
ch->loc_hp[2] = 0;
ch->loc_hp[3] = 0;
ch->loc_hp[4] = 0;
ch->loc_hp[5] = 0;
ch->loc_hp[6] = 0;
}
}
break;
case 12:
xprintf(buf,
"#0Solinari appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_CLASS(ch, CLASS_MAGE) && (ch->alignment > 700))
{
send_to_char("#0Solinari rewards Mages of the White Robes.\n\r", ch);
send_to_char("#0You get a Full Restore.\n\r", ch);
ch->hit = ch->max_hit;
ch->mana = ch->max_mana;
ch->move = ch->max_move;
ch->loc_hp[0] = 0;
ch->loc_hp[1] = 0;
ch->loc_hp[2] = 0;
ch->loc_hp[3] = 0;
ch->loc_hp[4] = 0;
ch->loc_hp[5] = 0;
ch->loc_hp[6] = 0;
}
break;
case 13:
xprintf(buf,
"#0Chislev appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (IS_RACE(ch, RACE_HOBBIT) || IS_CLASS(ch, CLASS_ELEMENTAL)
|| IS_CLASS(ch, CLASS_FAE) || IS_CLASS(ch, CLASS_MONK))
{
send_to_char("#0Chislev rewards those who respect Nature.\n\r", ch);
send_to_char("#0You get a Full Restore.\n\r", ch);
ch->hit = ch->max_hit;
ch->mana = ch->max_mana;
ch->move = ch->max_move;
ch->loc_hp[0] = 0;
ch->loc_hp[1] = 0;
ch->loc_hp[2] = 0;
ch->loc_hp[3] = 0;
ch->loc_hp[4] = 0;
ch->loc_hp[5] = 0;
ch->loc_hp[6] = 0;
}}
break;
case 14:
xprintf(buf,
"#0Gilean appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (ch->alignment == 0)
{
send_to_char("#0Gilean rewards those who respect Neutrality.\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}}
break;
case 15:
xprintf(buf,
"#0Lunitari appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_CLASS(ch, CLASS_MAGE) || IS_CLASS(ch, CLASS_LICH))
{
send_to_char("#0Lunitari Favors Mages of the Red Robes.\n\r", ch);
send_to_char("#0500 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 500;
}}
break;
case 16:
xprintf(buf,
"#0Reorx appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_RACE(ch, RACE_GULLYDWARF) || IS_RACE(ch, RACE_HILLDWARF)
|| IS_RACE(ch, RACE_DUERGARDWARF) || IS_RACE(ch, RACE_MTDWARF))
{
send_to_char("#0Reorx patron God of Dwarves looks kindly upon you.\n\r", ch);
send_to_char("#0500 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 500;
}}
break;
case 17:
xprintf(buf,
"#0Shinare appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_RACE(ch, RACE_GNOME))
{
send_to_char("#0Shinare is a friend of the Gnome, a people of Trade.\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}}
break;
case 18:
xprintf(buf,
"#0Sirrion #Ra#7ppreciate#Rs#0 your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (IS_CLASS(ch, CLASS_ELEMENTAL))
{
send_to_char("#0Sirrion Favors children of the #RF#Yl#Ra#Ym#Re#n!!\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}}
break;
case 19:
xprintf(buf,
"#0Zivilyn appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (get_curr_wis(ch) >= 100)
{
send_to_char("Zivilyn #0rewards those of high Wisdom!!\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}}
break;
case 20:
xprintf(buf,
"#0Takhisis appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (ch->alignment <= -250)
{
send_to_char("#RT#ra#wk#7h#Wi#rs#Ri#7s#n #0rewards the Ruthless!!\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}}
break;
case 21:
xprintf(buf,
"#0Paladine appreciates your sacrifice of #w$p#n");
if ((!IS_SET(ch->act, PLR_BRIEF5)) || (ch->position != POS_FIGHTING))
act(buf, ch, obj, NULL, TO_CHAR);
if (number_range(1, 5) == 1)
{
if (ch->alignment > 900 || IS_CLASS(ch, CLASS_ANGEL) || IS_CLASS(ch, CLASS_PALADIN)
|| IS_CLASS(ch, CLASS_PRIEST))
{
send_to_char("#LP#7aladin#Le #0rewards those with a #Lkind #Rh#7ear#Rt#n.\n\r", ch);
send_to_char("#0250 Bones appear in your Money Purse.\n\r", ch);
ch->bones += 250;
}}
break;
}
break;