#include <objects.h>
#include <save.h>
#include <lib.h>
#include <cfg.h>
#include <daemons.h>
#include <dirs.h>
#ifndef AUTO_ADVANCE
#define AUTO_ADVANCE 0
#endif
#ifndef REQUIRE_QUESTING
#define REQUIRE_QUESTING 1
#endif
inherit LIB_DAEMON;
mapping PlayerDataMap = ([]);
string *PendingEncres = ({});
string *PendingDecres = ({});
string *players = ({});
string *creators = ({});
string *user_list = ({});
static object ob;
static string gplayer;
static int maxlevel;
static string LevelList = "";
string player_save_file;
static string namestr = "";
//Player vars
string InternalDesc, Short, CapName, ExternalDesc, CurrentWorkingDirectory, PreviousWorkingDirectory, Terminal;
string Password, Email, RealName, Rank, LoginSite, HostSite, Torso, DefaultLanguage, Town, Race;
string Gender, Class, WimpyCommand, InternalDesc, WebPage, Clan;
int ProperNoun, Opacity, Modify, Invisible, NoChanColors, Paused, MaxCommandHistSize, HistorySize;
int Age, WhereBlock, Brief, LoginTime, BirthTime, RescueBit, CarriedMass, MaxCarry, Position;
int Undead, UndeadType, Mount, BodyMass, SaveRecurse, Retain, HealthPoints, MagicPoints, ExperiencePoints;
int QuestPoints, melee, Alcohol, Caffeine, Food, Drink, Poison, Sleeping, DeathEvents, Biter;
int Blind, CustomStats, Wimpy, Polyglot, Level, Morality, Dead, isPK, Deaths, TrainingPoints;
int TitleLength, CreatorAge, CreatorBirth;
object Agent;
float StaminaPoints;
mixed array Inventory, CommandHist, Screen, Marriages, Saved, ExtraChannels, LightSensitivity;
mixed array Religion, Titles, Muffed, Quests;
mapping Items, Properties, Messages, RestrictedChannels, Nicknames, Aliases, Xverbs, Blocked;
mapping News, Fingers, Limbs, MissingLimbs, Resistance, Stats, Languages, Skills, SkillModifiers;
mapping Currency, Bank, SpellBook;
//end player vars
mapping Levels = ([]);
static mapping LevelTitles = ([
1:"the utter novice",
2:"the simple novice",
3:"the beginner",
4:"the adventurer",
5:"the experienced adventurer",
6:"the expert adventurer",
7:"the great adventurer",
8:"the master adventurer",
9:"the Freeman",
10:"the Citizen",
11:"the Knight",
12:"the Baron",
13:"the Count",
14:"the Earl",
15:"the Marquis",
16:"the Duke",
17:"the Arch Duke",
18:"the Praetor",
19:"the Quaestor",
20:"the Caesar"
]);
static mapping QuestLevels = ([
10:5,
12:12,
14:21,
16:32,
18:45,
20:60,
22:77,
24:96,
26:117,
28:140,
30:165,
32:192,
34:221,
36:252,
38:285,
40:450,
]);
void validate(){
if(!(int)master()->valid_apply(({ "SECURE", "ASSIST", "LIB_CONNECT" })) &&
base_name(previous_object()) != "/www/cgi/login"){
string offender = identify(previous_object(-1));
debug("PLAYERS_D SECURITY VIOLATION: "+offender+" ",get_stack(),"red");
log_file("security", "\n"+timestamp()+" PLAYERS_D breach: "+offender+" "+get_stack());
error("PLAYERS_D SECURITY VIOLATION: "+offender+" "+get_stack());
}
}
// This function generates a table of required xp per level.
// The xp required for lower levels is high, approximately
// half-again the xp required for the previous level. As the
// player progresses, this ratio decreases.
mapping CompileLevelList(){
int i=1;
int seed=300;
float mod;
LevelList = "";
Levels = ([ 0 : ([ "xp" : 0, "qp" : 0 ]) ]);
Levels[1] = ([ "title" : "the utter novice ", "xp" : 0, "qp" : 0 ]);
//for(i=3,mod = 100/i;i<1000;i++){
while(seed > 0){
i++;
mod = 50/i;
if(mod > 9) mod = 9.0;
if(mod < 1) mod = 0.5;
if(i > 100) mod = 0.1;
mod *= 0.1;
seed = seed * (1+mod);
seed = ((seed/100) * 100);
//tc("mod: "+mod+", level: "+i+", exp: "+seed);
LevelList += "level: "+i+", ";
if(seed > 0){
Levels[i] = (["xp" : seed ]);
if(REQUIRE_QUESTING){
if(QuestLevels[i]){
Levels[i]["qp"] = QuestLevels[i];
}
}
else Levels[i]["qp"] = 0;
if(LevelTitles[i]){
Levels[i]["title"] = LevelTitles[i];
}
maxlevel = i;
LevelList += ( Levels[i]["title"] || "Untitled" );
LevelList += ", exp: "+seed;
LevelList += ( Levels[i]["qp"] ? ", qp: "+Levels[i]["qp"] : "");
LevelList += "\n";
}
if(seed >= 2146000000) break;
}
return copy(Levels);
}
string *CompileCreList(){
string *cre_dirs = unguarded( (: get_dir(DIR_CRES+"/") :) );
string *cres = ({});
foreach(string subdir in cre_dirs){
cres += unguarded( (: get_dir,DIR_CRES+"/"+subdir+"/" :) );
}
foreach(string cre in cres){
if(member_array(cre, user_list) == -1 ||
member_array(cre, creators) == -1)
this_object()->AddPlayerInfo(replace_string(cre, ".o",""));
}
return cres;
}
string *CompilePlayerList(){
string *play_dirs = get_dir(DIR_PLAYERS+"/");
string *plays = ({});
foreach(string subdir in play_dirs){
plays += get_dir(DIR_PLAYERS+"/"+subdir+"/");
}
foreach(string play in plays){
if(member_array(play, user_list) == -1 ||
member_array(play, players) == -1)
this_object()->AddPlayerInfo(replace_string(play, ".o",""));
}
return plays;
}
void create() {
::create();
if(unguarded((: file_exists, SAVE_PLAYER_LIST+__SAVE_EXTENSION__ :)))
unguarded((: restore_object, SAVE_PLAYER_LIST :));
if(PendingEncres) PendingEncres = distinct_array(PendingEncres);
if(PendingDecres) PendingDecres = distinct_array(PendingDecres);
if(players) players = distinct_array(players);
if(creators) creators = distinct_array(creators);
if(user_list) user_list = distinct_array(user_list);
unguarded((: save_object, SAVE_PLAYER_LIST :));
if(!Levels) Levels = ([]);
call_out( (: CompileLevelList :), 3);
call_out( (: CompileCreList :), 1);
call_out( (: CompilePlayerList :), 5);
}
string *eventCre(string str){
str = lower_case(str);
if(member_array(str,creators) == -1) creators += ({ str });
if(member_array(str,players) != -1) players -= ({ str });
unguarded((: save_object, SAVE_PLAYER_LIST :));
return creators + ({});
}
string *eventDecre(string str){
str = lower_case(str);
if(member_array(str,creators) != -1) creators -= ({ str });
if(member_array(str,players) == -1) players += ({ str });
unguarded((: save_object, SAVE_PLAYER_LIST :));
return players + ({});
}
static int AutoAdvance(object ob, int level){
int ret;
ob->ChangeLevel(level);
ret = ob->GetLevel();
if(ret >= level){
ob->eventPrint("%^RED%^%^B_BLACK%^You automatically advance to "+
"level "+level+". Congratulations!%^RESET%^");
ob->AddTrainingPoints(level);
if(Levels[level]["title"]){
ob->AddTitle(Levels[level]["title"]);
ob->RemoveTitle(Levels[level-1]["title"]);
}
}
return ret;
}
int CheckAdvance(object ob){
int dlev, xp, qp;
if(!ob || !playerp(ob)) return 0;
dlev = (ob->GetLevel())+1;
xp = ob->GetExperiencePoints();
qp = ob->GetQuestPoints();
if(xp >= Levels[dlev]["xp"] && qp >= Levels[dlev]["qp"]){
if(AUTO_ADVANCE) AutoAdvance(ob, dlev);
return 1;
}
return 0;
}
void AddPlayerInfo(mixed arg) {
if(!objectp(arg) && !stringp(arg)) return ;
if(objectp(arg)){
if(base_name(previous_object())!=LIB_CONNECT &&!interactive(arg)) return;
else player_save_file = base_name(arg)+".o";
}
else {
arg = lower_case(arg);
if(last(arg,2) != ".o") arg += ".o";
if(!grepp(arg,"/")){
string initial = arg[0..0];
if(!directory_exists(DIR_ESTATES))
mkdir(DIR_ESTATES);
if(!directory_exists(DIR_ESTATES+"/"+initial))
mkdir(DIR_ESTATES + "/"+initial);
mkdir(DIR_ESTATES + "/"+initial+"/"+truncate(arg,2));
mkdir(DIR_ESTATES + "/"+initial+"/"+truncate(arg,2)+"/tmp");
mkdir(DIR_ESTATES + "/"+initial+"/"+truncate(arg,2)+"/log");
mkdir(DIR_ESTATES + "/"+initial+"/"+truncate(arg,2)+"/bak");
mkdir(DIR_ESTATES + "/"+initial+"/"+truncate(arg,2)+"/adm");
player_save_file = DIR_CRES +"/"+initial+"/"+arg;
if(!file_exists(player_save_file))
player_save_file = DIR_PLAYERS +"/"+initial+"/"+arg;
if(!file_exists(player_save_file)) return;
}
else player_save_file = arg;
}
namestr = replace_string(last_string_element(player_save_file,"/"),".o","");
if(grepp(player_save_file, DIR_CRES) && member_array(namestr,creators) == -1)
creators += ({ namestr }) ;
else if(member_array(namestr,players) == -1)
players += ({ namestr }) ;
if(!file_exists(player_save_file)) return;
if(member_array(namestr,user_list) == -1)
user_list += ({ replace_string(last_string_element(player_save_file,"/"),".o","") }) ;
unguarded((: save_object, SAVE_PLAYER_LIST :));
}
string *GetPlayerList(){
return players + ({});
}
string *GetCreatorList(){
return creators + ({});
}
string *GetUserList(){
return user_list + ({});
}
mapping GetLevelList(){
return copy(Levels);
}
string GetLevels(){
return LevelList;
}
int RemoveUser(string str){
if(!str || str == "") return 0;
str = lower_case(str);
if(user_exists(str)) return 0;
if(member_array(str, players) != -1) players -= ({ str });
if(member_array(str, creators) != -1) creators -= ({ str });
if(member_array(str, user_list) != -1) user_list -= ({ str });
return 1;
}
string *AddPendingEncre(string str){
validate();
if(str && str != "") PendingEncres += ({ lower_case(str) });
unguarded((: save_object, SAVE_PLAYER_LIST :));
return PendingEncres + ({});
}
string *RemovePendingEncre(string str){
validate();
if(!str || str == "") return PendingEncres;
str = lower_case(str);
if(member_array(str, PendingEncres) != -1) PendingEncres -= ({ lower_case(str) });
unguarded((: save_object, SAVE_PLAYER_LIST :));
return PendingEncres + ({});
}
string *GetPendingEncres(){
validate();
return PendingEncres + ({});
}
string *AddPendingDecre(string str){
validate();
if(str && str != "") PendingDecres += ({ lower_case(str) });
unguarded((: save_object, SAVE_PLAYER_LIST :));
return PendingDecres + ({});
}
string *RemovePendingDecre(string str){
validate();
if(!str || str == "") return PendingDecres;
str = lower_case(str);
if(member_array(str, PendingDecres) != -1) PendingDecres -= ({ lower_case(str) });
unguarded((: save_object, SAVE_PLAYER_LIST :));
return PendingDecres + ({});
}
string *GetPendingDecres(){
validate();
return PendingDecres + ({});
}
static int LoadPlayer(string str){
string arg = "", initial = "";
if(!user_exists(arg = last_string_element(lower_case(replace_string("/"+str,".o","")),"/"))){
return 0;
}
arg += ".o";
initial = arg[0..0];
player_save_file = DIR_CRES +"/"+initial+"/"+arg;
if(!file_exists(player_save_file))
player_save_file = DIR_PLAYERS +"/"+initial+"/"+arg;
if(!file_exists(player_save_file)) return -1;
restore_object(player_save_file,1);
return 1;
}
int eventDestruct(){
validate();
unguarded((: save_object, SAVE_PLAYER_LIST :));
return ::eventDestruct();
}
static mixed GetVariable(string val){
if(!val){
return variables(this_object());
}
if(member_array(val,variables(this_object())) == -1){
write("No such PLAYER_D variable exists.");
return 0;
}
return fetch_variable(val);
}
mixed GetPlayerVariables(){
string *vars = variables(this_object());
vars -= ({"PlayerDataMap", "PendingEncres", "PendingDecres"});
vars -= ({"players", "creators", "user_list" });
vars -= ({"player_save_file", "namestr", "ob", "gplayer"});
return vars;
}
static mixed GetPlayerVariable(string val){
string vars = GetPlayerVariables();
if(!val) return vars;
if(member_array(val,variables(this_object())) == -1){
write("No such player variable exists.");
return 0;
}
return fetch_variable(val);
}
mixed GetPlayerData(string player, string val){
validate();
if(!player) return 0;
if(!user_exists(player)){
write("No such user exists.");
return 0;
}
gplayer = player;
if(ob = find_player(player)){
unguarded( (: ob->save_player(gplayer) :));
}
unguarded( (: LoadPlayer(gplayer) :) );
return GetPlayerVariable(val);
}
string array GetAdminIPs(){
string array ret_array, name_array, line_array;
string config_file;
config_file = read_file(CFG_GROUPS);
line_array = explode(config_file, "\n");
ret_array = ({});
name_array = ({});
foreach(string line in line_array){
string g,m;
if(sizeof(line)) line = trim(line);
if(sscanf(line,"(%s)%s",g,m) != 2) continue;
if(g == "SECURE") name_array = explode(trim(m),":");
}
if(!sizeof(name_array)) return name_array;
foreach(string nombre in name_array){
ret_array += ({ GetPlayerData(nombre,"HostSite") });
}
return ret_array;
}
int CheckBuilder(object who){
if(creatorp(who)) return 1;
if(builderp(who)){
if(!directory_exists(homedir(who)+"/area")){
unguarded( (: make_workroom($(who)) :) );
}
return 1;
}
return 0;
}
string GetUserPath(mixed name){
string ret;
if(name && objectp(name)) name = name->GetKeyName();
if(!name){
if(!this_player()) return "/tmp/";
else name = this_player()->GetKeyName();
}
if(member_array(name, creators) != -1){
ret = REALMS_DIRS+"/"+name+"/";
}
else ret = DIR_ESTATES + "/"+name[0..0]+"/"+name+"/";
return ret;
}
