kashifshah
/
omega-rpg
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
omega-rpg/mtalk.c

795 lines
21 KiB
C
Raw Permalink Blame History

/* omega copyright (c) 1987,1988,1989 by Laurence Raphael Brothers */
/* mtalk.c */
/* monster talk functions */
#include "glob.h"
/* The druid's altar is in the northern forest */
void m_talk_druid(pmt m)
{
int i;
pml curr;
if (! m_statusp(m,HOSTILE)) {
print1("The Archdruid raises a hand in greeting.");
if (! gamestatusp(SPOKE_TO_DRUID)) {
setgamestatus(SPOKE_TO_DRUID);
morewait();
print1("The Archdruid congratulates you on reaching his sanctum.");
print2("You feel competent.");
/* DAG gain_experience starts with a morewait as well... */
/* morewait(); */
gain_experience(300);
if (Player.patron == DRUID) {
print1("The Archdruid conveys to you the wisdom of nature....");
print2("You feel like a sage.");
morewait();
for(i=0;i<NUMRANKS;i++) {
if (Player.guildxp[i] > 0)
Player.guildxp[i] += 300;
}
}
}
mprint("Do you request a ritual of neutralization? [yn] ");
if (ynq() == 'y') {
if (Phase/2 == 6 || Phase/2 == 0) { /* full or new moon */
mprint("\"Unfortunately, I cannot perform a ritual of balance on");
if (Phase/2 == 6)
mprint("this lawful day.\"");
else
mprint("this chaotic day.\"");
}
else if (Phase/2 == 3 || Phase/2 == 9) { /* half moon */
mprint("You take part in today's holy celebration of balance...");
Player.alignment = 0;
Player.mana = calcmana();
if (Player.patron == DRUID)
gain_experience(200); /* if a druid wants to spend 2 days */
Time+=60; /* celebrating for 1600 xp, why not? */
hourly_check();
Time+=60;
hourly_check();
Time+=60;
hourly_check();
Time+=60;
hourly_check();
Time+=60;
hourly_check();
Time+=60;
hourly_check();
}
else {
mprint("The ArchDruid conducts a sacred rite of balance...");
if (Player.patron == DRUID) {
Player.alignment = 0;
Player.mana = calcmana();
}
else
Player.alignment -= Player.alignment*max(0, 10 - Player.level)/10;
/* the higher level the character is, the more set in his/her ways */
Time+=60;
hourly_check();
}
dataprint();
}
}
else {
mprint("The ArchDruid looks at you and cries: 'Unclean! Unclean!'");
disrupt(Player.x,Player.y,100);
mprint("This seems to have satiated his desire for vengeance.");
mprint("'Have you learned your lesson?' The ArchDruid asks. [yn] ");
/* WDT: this didn't used to have a 'y'. I'm not sure what was
* intended. */
if (ynq() != 'n') {
mprint("'I certainly hope so!' says the ArchDruid.");
for (curr = Level->mlist; curr; curr = curr->next)
m_status_reset(curr->m, HOSTILE);
m_vanish(m);
}
else {
mprint("'Idiot.' mutters the ArchDruid.");
p_damage(500,UNSTOPPABLE,"the ArchDruid's Vengeance");
}
}
}
void m_talk_silent(pmt m)
{
#ifdef NEW_QUOTES
int reply = random_range(8);
#else
int reply = random_range(4);
#endif
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
switch (reply) {
case 0:strcat(Str2," does not reply. "); break;
case 1:strcat(Str2," shrugs silently. "); break;
case 2:strcat(Str2," holds a finger to his mouth. "); break;
case 3:strcat(Str2," glares at you but says nothing. "); break;
case 4:strcat(Str2," is not going to answer you. "); break;
case 5:strcat(Str2," has taken a vow of silence. "); break;
case 6:strcat(Str2," attempts sign language. "); break;
case 7:strcat(Str2," fails to respond."); break;
}
mprint(Str2);
}
void m_talk_stupid(pmt m)
{
int reply = random_range(4);
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
switch (reply) {
case 0:strcat(Str2," looks at you with mute incomprehension."); break;
case 1:strcat(Str2," growls menacingly and ignores you."); break;
case 2:strcat(Str2," does not seem to have heard you."); break;
case 3:strcat(Str2," tries to pretend it didn't hear you."); break;
}
mprint(Str2);
}
void m_talk_greedy(pmt m)
{
int reply = random_range(4);
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
switch (reply) {
case 0:strcat(Str2," says: Give me a treasure.... ");break;
case 1:strcat(Str2," says: Stand and deliver, knave! "); break;
case 2:strcat(Str2," says: Your money or your life! "); break;
case 3:strcat(Str2," says: Yield or Die! "); break;
}
mprint(Str2);
}
void m_talk_hungry(pmt m)
{
int reply = random_range(4);
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
switch (reply) {
case 0:strcat(Str2," says: I hunger, foolish adventurer! "); break;
case 1:strcat(Str2," drools menacingly at you. "); break;
case 2:strcat(Str2," says: You're invited to be lunch! "); break;
case 3:strcat(Str2," says: Feeed Meee! "); break;
}
mprint(Str2);
}
void m_talk_guard(pmt m)
{
if (m_statusp(m,HOSTILE)) {
print1("'Surrender in the name of the Law!'");
print2("Do it? [yn] ");
if (ynq2()=='y') {
Player.alignment++;
if (Current_Environment == E_CITY) {
print1("Go directly to jail. Do not pass go, do not collect 200Au.");
print2("You are taken to the city gaol.");
morewait();
send_to_jail();
drawvision(Player.x,Player.y);
}
else {
clearmsg();
print1("Mollified, the guard disarms you and sends you away.");
dispose_lost_objects(1,Player.possessions[O_WEAPON_HAND]);
pacify_guards();
}
}
else {
clearmsg();
print1("All right, you criminal scum, you asked for it!");
}
}
else /* not hostile */
{
if ( (!CitySiteList[L_TOURIST-CITYSITEBASE][0]) &&
(Current_Environment == E_CITY) )
{
print1("You should visit the tourist information booth and get their guidebook.");
print2("The booth is located near the entrance to the city.");
morewait();
CitySiteList[L_TOURIST-CITYSITEBASE][0] = TRUE;
}
else
if (Player.rank[ORDER]>0)
print1("'Greetings comrade! May you always tread the paths of Law.'");
#ifdef NEW_QUOTES
else {
if (random_range(2))
print1("Move it right along, stranger!");
else print1("Nothing to see here.");
}
#else
else print1("Move it right along, stranger!");
#endif
}
}
void m_talk_mp(pmt m)
{
mprint("The mendicant priest asks you to spare some treasure for the needy");
}
void m_talk_titter(pmt m)
{
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
strcat(Str2," titters obscenely at you.");
mprint(Str2);
}
void m_talk_ninja(pmt m)
{
mprint("The black-garbed figure says apologetically:");
mprint("'Situree simasita, wakarimasen.'");
}
void m_talk_thief(pmt m)
{
if (Player.rank[THIEVES]) {
if (m->level == 2)
m->monstring = "sneak thief";
else m->monstring = "master thief";
print1("The cloaked figure makes a gesture which you recognize...");
print2("...the thieves' guild recognition signal!");
print3("'Sorry, mate, thought you were a mark....'");
morewait();
m_vanish(m);
}
else m_talk_man(m);
}
void m_talk_assassin(pmt m)
{
m->monstring = "master assassin";
print1("The ominous figure does not reply, but hands you an embossed card:");
print2("'Guild of Assassins Ops are forbidden to converse with targets.'");
}
void m_talk_im(pmt m)
{
pol tmp;
if (strcmp(m->monstring,"itinerant merchant") != 0) {
m->monstring = "itinerant merchant";
}
if (m->possessions == NULL)
mprint("The merchant says: Alas! I have nothing to sell!");
else {
m->possessions->thing->known = 2;
clearmsg();
mprint("I have a fine");
mprint(itemid(m->possessions->thing));
mprint("for only");
mlongprint(max(10,4*true_item_value(m->possessions->thing)));
mprint("Au.");
mprint("Want it? [yn] ");
if (ynq()=='y') {
if (Player.cash < (max(10,4*true_item_value(m->possessions->thing)))) {
if (Player.alignment > 10) {
mprint("Well, I'll let you have it for what you've got.");
Player.cash = 0;
gain_item(m->possessions->thing);
}
else mprint("Beat it, you deadbeat!");
}
else {
mprint("Here you are. Have a good day.");
Player.cash -= max(10,(4*item_value(m->possessions->thing)));
gain_item(m->possessions->thing);
}
}
else
{
mprint("Sorry I couldn't help you.");
free_obj( m->possessions->thing, TRUE );
}
tmp = m->possessions;
m->possessions = tmp->next;
free( tmp );
if (NULL != m->possessions)
{
mprint("Well then, I must be off. Good day.");
m_vanish(m);
}
}
}
void m_talk_man(pmt m)
{
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
switch (random_range(5)) {
case 0:strcat(Str2," asks you for the way home."); break;
case 1:strcat(Str2," wishes you a pleasant day."); break;
case 2:strcat(Str2," sneers at you contemptuously."); break;
case 3:strcat(Str2," smiles and nods."); break;
case 4:strcat(Str2," tells you a joke."); break;
}
mprint(Str2);
}
void m_talk_evil(pmt m)
{
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
switch (random_range(14)) {
case 0:strcat(Str2," says: 'THERE CAN BE ONLY ONE!'"); break;
case 1:strcat(Str2," says: 'Prepare to die, Buckwheat!'"); break;
case 2:strcat(Str2," says: 'Time to die!'"); break;
case 3:strcat(Str2," says: 'There will be no mercy.'"); break;
case 4:strcat(Str2," insults your mother-in-law."); break;
case 5:strcat(Str2," says: 'Kurav tu ando mul!'"); break;
case 6:strcat(Str2," says: '!va al infierno!'"); break;
case 7:strcat(Str2," says: 'dame desu, nee.'"); break;
case 8:strcat(Str2," spits on your rug and calls your cat a bastard.");
break;
case 9:strcat(Str2," snickers malevolently and draws a weapon."); break;
case 10:strcat(Str2," sends 'rm -r *' to your shell!"); break;
case 11:strcat(Str2," tweaks your nose and cackles evilly."); break;
case 12:strcat(Str2," thumbs you in the eyes."); break;
case 13:strcat(Str2," kicks you in the groin."); break;
}
mprint(Str2);
}
void m_talk_robot(pmt m)
{
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
switch (random_range(4)) {
case 0:strcat(Str2," says: 'exterminate...Exterminate...EXTERMINATE!!!'");
break;
case 1:strcat(Str2," says: 'Kill ... Crush ... Destroy'");
break;
case 2:strcat(Str2," says: 'Danger -- Danger'");
break;
case 3:strcat(Str2," says: 'Yo Mama -- core dumped.'");
break;
}
mprint(Str2);
}
void m_talk_slithy(pmt m)
{
mprint("It can't talk -- it's too slithy!");
}
void m_talk_mimsy(pmt m)
{
mprint("It can't talk -- it's too mimsy!");
}
void m_talk_burble(pmt m)
{
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
strcat(Str2," burbles hatefully at you.");
mprint(Str2);
}
void m_talk_beg(pmt m)
{
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
strcat(Str2," asks you for alms.");
mprint(Str2);
}
void m_talk_hint(pmt m)
{
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
if (m_statusp(m,HOSTILE)) {
strcat(Str2," only sneers at you. ");
mprint(Str2);
}
else {
strcat(Str2," whispers in your ear: ");
mprint(Str2);
hint();
m->talkf = M_TALK_SILENT;
}
}
void m_talk_gf(pmt m)
{
mprint("The good fairy glints: Would you like a wish?");
if (ynq()=='y') {
mprint("The good fairy glows: Are you sure?");
if (ynq()=='y') {
mprint("The good fairy radiates: Really really sure?");
if (ynq()=='y') {
mprint("The good fairy beams: I mean, like, sure as sure can be?");
if (ynq()=='y') {
mprint("The good fairy dazzles: You don't want a wish, right?");
if (ynq()=='y') mprint("The good fairy laughs: I thought not.");
else wish(0);
}
}
}
}
mprint("In a flash of sweet-smelling light, the fairy vanishes....");
Player.hp = max(Player.hp,Player.maxhp);
Player.mana = max(Player.mana,calcmana());
mprint("You feel mellow.");
m_vanish(m);
}
void m_talk_ef(pmt m)
{
mprint("The evil fairy roils: Eat my pixie dust!");
mprint("She waves her black-glowing wand, which screams thinly....");
m->movef=M_MOVE_SMART;
m->meleef=M_MELEE_POISON;
m->specialf=M_SP_THIEF;
m_status_set(m,HOSTILE);
acquire(-1);
bless(-1);
sleep_player(m->level/2);
summon(-1,-1);
summon(-1,-1);
summon(-1,-1);
summon(-1,-1);
}
void m_talk_seductor(pmt m)
{
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
if (Player.preference == 'n')
{
strcat(Str2, " notices your disinterest and leaves with a pout.");
mprint(Str2);
}
else
{
strcat(Str2," beckons seductively...");
mprint(Str2);
mprint("Flee? [yn] ");
if (ynq()=='y') {
mprint("You feel stupid.");
}
else {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
strcat(Str2," shows you a good time....");
mprint(Str2);
gain_experience(500);
Player.con++;
}
}
m_vanish(m);
}
void m_talk_demonlover(pmt m)
{
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
if (Player.preference == 'n')
{
strcat(Str2, " notices your disinterest and changes with a snarl...");
mprint(Str2);
morewait();
}
else
{
strcat(Str2," beckons seductively...");
mprint(Str2);
mprint("Flee? [yn] ");
if (ynq()=='y')
mprint("You feel fortunate....");
else {
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
strcat(Str2," shows you a good time....");
mprint(Str2);
morewait();
mprint("You feel your life energies draining...");
level_drain(random_range(3)+1,"a demon's kiss");
morewait();
}
}
m->talkf = M_TALK_EVIL;
m->meleef = M_MELEE_SPIRIT;
m->specialf = M_SP_DEMON;
m_status_reset(m,NEEDY);
m_status_set(m,HOSTILE);
if ((m->monchar&0xff) == 's') {
m->monchar = 'I'|CLR(RED);
m->monstring = "incubus";
}
else {
m->monchar = 'S'|CLR(RED);
m->monstring = "succubus";
}
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
strcat(Str2," laughs insanely.");
mprint(Str2);
mprint("You now notice the fangs, claws, batwings...");
}
void m_talk_horse(pmt m)
{
if (m_statusp(m,HOSTILE))
mprint("The horse neighs angrily at you.");
else if (m_statusp(m,HUNGRY))
mprint("The horse noses curiously at your pack.");
else if (gamestatusp(MOUNTED))
mprint("The horse and your steed don't seem to get along.");
else if (Current_Environment == Current_Dungeon)
mprint("The horse shies; maybe he doesn't like the dungeon air....");
else {
mprint("The horse lets you pat his nose. Want to ride him? [yn] ");
if (ynq()=='y') {
m_remove(m);
setgamestatus(MOUNTED);
calc_melee();
mprint("You are now equitating!");
}
}
}
void m_talk_hyena(pmt m)
{
mprint("The hyena only laughs at you...");
}
void m_talk_parrot(pmt m)
{
mprint("Polly wanna cracker?");
}
void m_talk_servant(pmt m)
{
int target,x=Player.x,y=Player.y;
if (m->id == SERV_LAW) {
target = SERV_CHAOS;
mprint("The Servant of Law pauses in thought for a moment.");
mprint("You are asked: Are there any Servants of Chaos hereabouts? [yn] ");
}
else {
target = SERV_LAW;
mprint("The Servant of Chaos grins mischievously at you.");
mprint("You are asked: Are there any Servants of Law hereabouts? [yn] ");
}
if (ynq()=='y') {
print1("Show me.");
show_screen();
drawmonsters(TRUE);
setspot(&x,&y);
if (Level->site[x][y].creature != NULL) {
if (Level->site[x][y].creature->id == target) {
mprint("The Servant launches itself towards its enemy.");
mprint("In a blaze of combat, the Servants annihilate each other!");
gain_experience(m->xpv);
m_death(Level->site[x][y].creature);
Level->site[m->x][m->y].creature = NULL;
m->x = x;
m->y = y;
Level->site[x][y].creature = m;
m_death(Level->site[x][y].creature);
}
else mprint("Right. Tell me about it. Idiot!");
}
else mprint("Right. Tell me about it. Idiot!");
}
else mprint("The servant shrugs and turns away.");
}
void m_talk_animal(pmt m)
{
if (m->uniqueness == COMMON) {
strcpy(Str2,"The ");
strcat(Str2,m->monstring);
}
else strcpy(Str2,m->monstring);
mprint(Str2);
mprint("shows you a scholarly paper by Dolittle, D. Vet.");
mprint("which demonstrates that animals don't have speech centers");
mprint("complex enough to communicate in higher languages.");
mprint("It giggles softly to itself and takes back the paper.");
}
void m_talk_scream(pmt m)
{
mprint("A thinly echoing scream reaches your ears....");
morewait();
mprint("You feel doomed....");
morewait();
mprint("A bird appears and flies three times widdershins around your head.");
summon(-1,QUAIL);
m->talkf = M_TALK_EVIL;
}
void m_talk_archmage(pmt m)
{
if (m_statusp(m,HOSTILE)) {
mprint("The Archmage ignores your attempt at conversation");
mprint("and concentrates on his spellcasting....");
}
else if (Current_Environment == E_COURT) {
mprint("The Archmage congratulates you on getting this far.");
mprint("He invites you to attempt the Throne of High Magic");
mprint("but warns you that it is important to wield the Sceptre");
mprint("before sitting on the throne.");
if (Level->site[m->x][m->y].p_locf == L_THRONE) {
mprint("The Archmage smiles and makes an arcane gesture....");
m_vanish(m);
}
}
else {
mprint("The Archmage tells you to find him again in his");
mprint("Magical Court at the base of his castle in the mountains");
mprint("of the far North-East; if you do he will give you some");
mprint("important information.");
}
}
void m_talk_maharaja(pmt m)
{
if (m_statusp(m,HOSTILE)) {
switch (random_range(4)) {
case 0: mprint("The Maharaja says: 'So Mote it be!'");
break;
case 1: mprint("The Maharaja says: 'Let it be written!'");
break;
case 2: mprint("The Maharaja says: 'Let it be done!'");
break;
case 3: mprint("The Maharaja offers you goat-eyeball soup.'");
break;
}
}
else if (Current_Environment == E_PALACE) {
mprint("The Maharaja insists that you leave. Or die.");
}
else {
mprint("Where did I put those dungeons?");
}
}
void m_talk_merchant(pmt m)
{
if (! m_statusp(m,HOSTILE)) {
if (Current_Environment == E_VILLAGE) {
mprint("The merchant asks you if you want to buy a horse for 250GP.");
mprint("Pay the merchant? [yn] ");
if (ynq()=='y') {
if (Player.cash < 250)
mprint("The merchant says: 'Come back when you've got the cash!'");
else {
Player.cash -= 250;
mprint("The merchant takes your money and tells you to select");
mprint("any horse you want in the stables.");
mprint("He says: 'You'll want to get to know him before trying to");
mprint("ride him. By the way, food for the horse is not included.'");
mprint("The merchant runs off toward the bank, cackling gleefully.");
m_vanish(m);
}
}
else mprint("The merchant tells you to stop wasting his time.");
}
else {
mprint("The merchant tells you to visit his stables at his village");
mprint("for a great deal on a horse.");
}
}
else {
mprint("The merchant ignores you and screams:");
mprint("'Help! Help! I'm being oppressed!'");
}
}
void m_talk_prime(pmt m)
{
if (!m_statusp(m,HOSTILE)) {
if (Current_Environment == E_CIRCLE) {
print1("The Prime nods brusquely at you, removes a gem from his");
print2("sleeve, places it on the floor, and vanishes wordlessly.");
morewait();
m_dropstuff(m);
m_vanish(m);
}
else {
print1("The Prime makes an intricate gesture, which leaves behind");
print2("glowing blue sparks... He winks mischievously at you....");
if (Player.rank[CIRCLE] > 0) {
morewait();
print1("The blue sparks strike you! You feel enhanced!");
print2("You feel more experienced....");
Player.pow+=Player.rank[CIRCLE];
Player.mana += calcmana();
gain_experience(1000);
m_vanish(m);
}
}
}
else m_talk_evil(m);
}
Reference in New Issue View Git Blame Copy Permalink