/* -*- LPC -*- */
/*
* $Locker: $
* $Id: language_inherit.c,v 1.1 1998/01/06 04:27:40 ceres Exp $
* $Log: language_inherit.c,v $
* Revision 1.1 1998/01/06 04:27:40 ceres
* Initial revision
*
*/
#include <fixed_random.h>
#include <tasks.h>
/*
* The standard language unit.
*
* The level of a language ranges from 0-200. At 0 everything is
* garbled, at 200 nothing is. In between the value is basicly
* a percentage (with modifications due to length of word).
*/
string long;
string name;
string start_text_bit;
void setup();
void create() {
setup();
} /* create() */
void set_long(string str) {
long = str;
} /* set_long() */
string query_long() {
return long;
} /* query_long() */
void set_name(string str) {
name = str;
} /* set_name() */
string query_name() {
return name;
} /* set_name() */
/*
* This function should be overwritten higher up the chain.
*/
void setup() {
} /* setup() */
void set_start_text_bit(string str) {start_text_bit = str; }
/*
* Default garbler, over-ridden by functions higher in the
* inherit chain.
*/
string do_garble(string word, string type, object player) {
string ret;
int i;
ret = "";
for (i=0;i<strlen(word);i++)
if (word[i] != ' ')
ret += "*";
else
ret += " ";
return ret;
} /* do_garble() */
void check_level_increase(object player, int difficulty, int level,
string skill, string mess) {
int chance;
if(query_verb() == "shout")
return;
// If they arent speaking this language then don't use their gps and
// don't give them a chance of an increase.
if(player->query_current_language() !=
lower_case(this_object()->query_name()))
return;
if (player->query_property("last message:" + skill) == mess) {
return ;
}
if(player->query_specific_gp("other") < difficulty &&
player->query_gp() < player->query_max_gp())
return;
else
player->adjust_gp(-(difficulty*2));
/* 6 minute timeout... Can get a thingy on it again after 6 minutes */
player->add_property("last message:" + skill, mess, 360);
if (difficulty <= level && level < 100) {
/*
* This is the base chance, hard at the edges and easier in the
* middle.
*/
// chance = 525 + ((level - 50) * (level - 50)) / 8;
// tweaked by ceres to give a slightly higher chance at low
// skill levels.
chance = 700 + ((level - 40) * (level - 40)) / 20;
/* How to modify by difficulty? */
chance -= level - difficulty;
if (random(900) > chance) {
if(player->add_skill_level(skill, 1, 1)) {
/* Give them a level */
TASKER->award_made(player->query_name(), file_name(this_object()),
skill, level);
tell_object(player, "%^YELLOW%^You feel like the language " +
name + " is less confusing.%^RESET%^\n");
}
}
}
} /* check_level_increase() */
string garble_message(string mess, object player, object speaker,
string type, string skill, int no_increase) {
int i, level, num;
int max_difficulty, diff, difference;
string *bits;
int something_garbled;
level = player->query_skill(skill);
if (level > 100) {
player->add_skill_level(skill, 100 - level, 1);
}
num = speaker->query_skill(skill);
if (num > 100) {
speaker->add_skill_level(skill, 100 - num, 1);
}
difference = speaker->query_skill(skill) - player->query_skill(skill);
if (num < level)
level = num;
if (level >= 100) {
return mess;
}
if (level == 0) {
max_difficulty = 0;
} else {
max_difficulty = 1000;
}
/* Otherwise it is more complicated */
/*
* This will always generate the same garbled string from the
* same input
*/
/*
* Don't remove the seed thingy. I want the same random sequence each
* time..
*/
RANDOM_OBJ->set_seed(crc32(mess));
bits = explode(mess, " ");
for (i=0;i<sizeof(bits);i++) {
if (strlen(mess)) {
if (level > 0) {
num = (int)RANDOM_OBJ->random(100);
if (strlen(mess) < 8) {
diff = (level*100) / (strlen(mess)*10);
if (num >= (level*100 / strlen(mess)*10)) {
if (max_difficulty > diff)
max_difficulty = diff;
if (interactive(player)) {
bits[i] = do_garble(bits[i], type, player);
something_garbled = 1;
} else {
/* Don't waste time garbling for npcs. */
bits[i] = "";
}
}
} else {
diff = (level*100) / 90;
if (num >= diff) {
max_difficulty = level*100 / 100;
if (interactive(player)) {
bits[i] = do_garble(bits[i], type, player);
something_garbled = 1;
} else {
/* Don't waste time garbling for npcs. */
bits[i] = "";
}
}
}
} else {
if (interactive(player)) {
bits[i] = do_garble(bits[i], type, player);
something_garbled = 1;
} else {
/* Don't waste time garbling for npcs. */
bits[i] = "";
}
}
}
}
/* Max_diffculty is actually a lower bound, not an upper bound... */
if (something_garbled && (difference > -10) && !no_increase) {
/* Only get a level increase if you did not understand something */
check_level_increase(player, max_difficulty, level, skill, mess);
}
return implode(bits, " ");
} /* garble_message() */
mixed garble_say(string start, string mess, object player,
object from, string type, string skill, int no_increase) {
return ({ start, garble_message(mess, player, from, "speech", skill,
no_increase) });
} /* garble_say() */
string garble_text( mixed text, object thing, object player, string skill) {
string bing;
if (stringp(text))
return start_text_bit +
garble_message(text, player, player, "text", skill, 0);
if ( pointerp( text ) )
if ( ( bing = (string)text[ 0 ]->garble_text( text, thing, player ) ) )
return start_text_bit + bing;
return "You cannot read the spidery writing.\n";
} /* garble_text() */
void dest_me() {
destruct(this_object());
} /* dest_me() */
