/* /daemon/race.c * from the Dead Souls Object Library * handles race configuration and administration * created by Descartes of Borg 960108 * Version: @(#) races.c 1.4@(#) * Fixed by Ashon @ Stargate Atlantis 16 March 2006 */ #include <lib.h> #include <save.h> #include <privs.h> #include <armor_types.h> #include <size_types.h> #include "include/races.h" inherit LIB_DAEMON; private mapping Races = ([]); static private mapping Resistances = ([]); static private mapping Armors = ([]); static private mapping Sizes = ([]); static private mapping Btypes = ([]); string array FlyingRaces = ({}); string array LimblessCombatRaces = ({}); string array LimblessRaces = ({}); string array NonBitingRaces = ({}); string array SwimmingRaces = ({}); string array NonMeatRaces = ({}); static void create() { daemon::create(); if( unguarded((: file_size(SAVE_RACES __SAVE_EXTENSION__) :)) > 0 ) unguarded((: restore_object(SAVE_RACES) :)); if( !Races ) Races = ([]); if(!FlyingRaces) FlyingRaces = ({}); if(!LimblessCombatRaces) LimblessCombatRaces = ({}); if(!LimblessRaces) LimblessRaces = ({}); if(!NonBitingRaces) NonBitingRaces = ({}); if(!NonMeatRaces) NonMeatRaces = ({}); } static private void validate() { if( !((int)master()->valid_apply(({ PRIV_ASSIST }))) ) error("Illegal attempt to modify race data"); } int CanFly(string str){ if( !Races[str] ) return 0; if(member_array(str, FlyingRaces) != -1) return 1; else return 0; } int GetNonMeatRace(string str){ if(member_array(str,NonMeatRaces) == -1) return 0; else return 1; } int GetLimblessCombatRace(string str){ if(member_array(str,LimblessCombatRaces) == -1) return 0; else return 1; } int GetLimblessRace(string str){ if(member_array(str,LimblessRaces) == -1) return 0; else return 1; } int SetNonMeatRace(string str){ if(member_array(str,NonMeatRaces) != -1) return 0; NonMeatRaces += ({ lower_case(str) }); return 1; } int SetLimblessCombatRace(string str){ if(member_array(str,LimblessCombatRaces) != -1) return 0; LimblessCombatRaces += ({ lower_case(str) }); return 1; } int SetLimblessRace(string str){ if(member_array(str,LimblessRaces) != -1) return 0; LimblessRaces += ({ lower_case(str) }); return 1; } int SetFlyingRace(string str){ FlyingRaces += ({ str }); return 1; } int SetNonBitingRace(string str){ NonBitingRaces += ({ str }); return 1; } int SetSwimmingRace(string str){ SwimmingRaces += ({ str }); return 1; } int GetSwimmingRace(string str){ if(member_array(str,SwimmingRaces) != -1) return 1; else return 0; } string *GetNonMeatRaces(){ return copy(NonMeatRaces); } string *GetSwimmingRaces(){ return copy(SwimmingRaces); } string *GetLimblessCombatRaces(){ return copy(LimblessCombatRaces); } string *GetLimblessRaces(){ return copy(LimblessRaces); } string *GetFlyingRaces(){ return copy(FlyingRaces); } int GetBitingRace(string str){ if(member_array(str,NonBitingRaces) == -1) return 1; else return 0; } int RemoveRaceVars(string str){ if(previous_object() != this_object()) return 0; FlyingRaces -= ({ str }); LimblessCombatRaces -= ({ str }); LimblessRaces -= ({ str }); NonBitingRaces -= ({ str }); NonBitingRaces -= ({ str }); SwimmingRaces -= ({ str }); return 1; } int GetRaceMass(string str){ int Mass = Races[str]->Mass; if(Mass) return Mass; else return 0; } int GetRaceSize(string str){ int Size = Races[str]->Size; if(Size) return Size; else return 0; } int GetRaceBodyType(string str){ int Btype = Races[str]->Btype; if(Btype) return Btype; else return 0; } int GetRaceRespirationType(string str){ int Btype = Races[str]->Btype; if(Btype) return Btype; else return 0; } void AddRace(string file, int player) { class Race res; string array tmp, parts; string race, test_string; int x; mixed array limb = allocate(4); mixed array tmp_limb = allocate(4); class Stat s; res = new(class Race); res->Resistance = ([]); res->Skills = ([]); res->Stats = ([]); res->Limbs = ({}); res->Mass = 0; res->Size = 0; res->Btype = 0; res->Rtype = 0; validate(); if( !file_exists(file) ) error("No such file: " + file); race = last_string_element(file,"/"); res->Fingers = ([]); foreach(string line in explode(read_file(file),"\n")){ test_string = first_string_element(line," "); if(!test_string || !sizeof(test_string)) test_string = line; switch(test_string){ string type = ""; case "FLYING_RACE": line = trim(replace_string(line, "FLYING_RACE", "")); if(sizeof(line) && atoi(line) < 1) break; else SetFlyingRace(race); break; case "NOT_MEAT": line = trim(replace_string(line, "NOT_MEAT", "")); if(sizeof(line) && atoi(line) < 1) break; else SetNonMeatRace(race); break; case "LIMBLESS_RACE": line = trim(replace_string(line, "LIMBLESS_RACE", "")); if(sizeof(line) && atoi(line) < 1) break; else SetLimblessRace(race); break; case "LIMBLESS_COMBAT_RACE": line = trim(replace_string(line, "LIMBLESS_COMBAT_RACE", "")); if(sizeof(line) && atoi(line) < 1) break; else SetLimblessCombatRace(race); break; case "NONBITING_RACE": line = trim(replace_string(line, "NONBITING_RACE", "")); if(sizeof(line) && atoi(line) < 1) break; else SetNonBitingRace(race); break; case "SWIMMING_RACE": line = trim(replace_string(line, "SWIMMING_RACE", "")); if(sizeof(line) && atoi(line) < 1) break; else SetSwimmingRace(race); break; case "RACE": race = replace_string(line, "RACE ", ""); if( Races[race] ) error(race+": Race already exists"); break; case "SENSITIVITY": line = replace_string(line, "SENSITIVITY ", ""); res->Sensitivity = map(explode(line, ":"), (: to_int :)); break; case "PLAYER_RACE": line = replace_string(line, "PLAYER_RACE ", ""); if(!player && atoi(line) > 0) player = 1; else player = 0; break; case "LANGUAGE": //TODO: This should be a Language array to handle multiple //languages but further research is required first. res->Language = replace_string(line, "LANGUAGE ", ""); break; case "RESISTANCE": tmp = explode(replace_string(line, "RESISTANCE ", ""), ":"); x = to_int(tmp[0]); if( x == 0 && tmp[0] != "0" ) x = GetResistance(tmp[0]); res->Resistance[x] = tmp[1]; break; case "SKILL": tmp = explode(replace_string(line, "SKILL ", ""), ":"); res->Skills[tmp[0]] = ({ tmp[1], tmp[2], tmp[3], tmp[4] }); break; case "MASS": x = 0; sscanf(line, "MASS %d",x); if(x) res->Mass = x; break; case "SIZE": type = ""; x = 0; if(sscanf(line, "SIZE %s",type)) res->Size = GetSize(type); else res->Size = x; break; case "BODY_TYPE": type = ""; x = 0; if(sscanf(line, "BODY_TYPE %s",type)) res->Btype = GetBodyType(type); else res->Btype = x; break; case "RESPIRATION_TYPE": type = ""; x = 0; if(sscanf(line, "RESPIRATION_TYPE %s",type)) res->Btype = GetRespirationType(type); else res->Btype = x; break; case "STATS": tmp = ({}); s = new (class Stat); tmp = explode(replace_string(line, "STATS ",""), ":"); s->Average = copy(to_int(tmp[1])); s->Class = copy(to_int(tmp[2])); res->Stats[tmp[0]] = s; break; case "LIMB": limb = ({ ({}), ({}), ({}), ({}) }); tmp_limb = explode(replace_string(line, "LIMB ",""), ":"); limb[0] = tmp_limb[0]; limb[1] = (tmp_limb[1] == "0" ? 0 : tmp_limb[1]); limb[2] = to_int(tmp_limb[2]); limb[3] = map(explode(tmp_limb[3], ","), function(string str) { int x = to_int(str); if( x == 0 && str != "0" ) { return GetArmor(str); } return x; }); res->Limbs = ({ res->Limbs..., limb }); res->Limbs += ({limb}); break; case "HAND": parts = explode(replace_string(line, "HAND ",""), ":"); res->Fingers[parts[0]] = to_int(parts[1]); break; default: break; } } res->Complete = 1; if( player ) { res->PlayerFlag = 1; } else { res->PlayerFlag = 0; } Races[race] = res; save_object(SAVE_RACES); } void RemoveRace(string race) { validate(); map_delete(Races, race); RemoveRaceVars(race); if(Races[race]) save_object(SAVE_RACES); } string ConvertPipe(string str){ str = replace_string(str," ",""); str = replace_string(str,"|","+"); return str; } int GetArmor(string foo) { string str = ConvertPipe(foo); string file = DIR_DAEMONS "/tmp/" + str + ".c"; if( !unguarded((: file_exists($(file)) :)) ) { unguarded((: write_file($(file), "#include <armor_types.h>\n" + "int armor() { return " + $(str) + "; }\n") :)); } return call_other(file, "armor"); } int GetSize(string foo) { string str = ConvertPipe(foo); string file = DIR_DAEMONS "/tmp/" + str + ".c"; if( !unguarded((: file_exists($(file)) :)) ) { unguarded((: write_file($(file), "#include <size_types.h>\n" + "int size() { return " + $(str) + "; }\n") :)); } return call_other(file, "size"); } int GetBodyType(string foo) { string str = ConvertPipe(foo); string file = DIR_DAEMONS "/tmp/" + str + ".c"; if( !unguarded((: file_exists($(file)) :)) ) { unguarded((: write_file($(file), "#include <body_types.h>\n" + "int btype() { return " + $(str) + "; }\n") :)); } return call_other(file, "btype"); } int GetRespirationType(string foo) { string str = ConvertPipe(foo); string file = DIR_DAEMONS "/tmp/" + str + ".c"; if( !unguarded((: file_exists($(file)) :)) ) { unguarded((: write_file($(file), "#include <respiration_types.h>\n" + "int rtype() { return " + $(str) + "; }\n") :)); } return call_other(file, "rtype"); } int GetResistance(string str) { string file = DIR_DAEMONS "/tmp/" + str + ".c"; if( !unguarded((: file_exists($(file)) :)) ) { unguarded((: write_file($(file), "#include <damage_types.h>\n" + "int damage() { return " + $(str) + "; }\n") :)); } return call_other(file, "damage"); } varargs mapping GetRemoteRaces(string str) { mapping mp = ([]); mapping foo = ([]); if(str && Races[str]) foo[str] = Races[str]; else foo = copy(Races); foreach(string race, class Race res in foo) { mapping stats = ([]); mp[race] = ([]); mp[race]["limbs"] = res->Limbs; mp[race]["resistance"] = res->Resistance; foreach(string stat, class Stat st in res->Stats) { stats[stat] = ([]); stats[stat]["class"] = st->Class; stats[stat]["average"] = st->Average; } mp[race]["stats"] = stats; mp[race]["fingers"] = res->Fingers; mp[race]["sensitivity"] = res->Sensitivity; mp[race]["player"] = res->PlayerFlag; mp[race]["language"] = res->Language; } return mp; } void SetComplete(string race) { class Race res; validate(); if( !Races[race] ) error("No such race"); else res = Races[race]; res->Complete = 1; save_object(SAVE_RACES); } void SetLightSensitivity(string race, int array sensitivity) { class Race res; validate(); if( !Races[race] ) error("No such race"); else res = Races[race]; if( sensitivity[0] < 1 ) error("Invalid sensitivity value"); if( sensitivity[1] > 99 ) error("Invalid sensitivity value"); if( sensitivity[0] > sensitivity[1] ) error("Invalid sensitivity value"); res->Sensitivity = sensitivity; save_object(SAVE_RACES); } void SetCharacterLimbs(string race, mixed array args) { class Race res = Races[race]; mixed array tmp = ({}); if( !res || !res->Complete || sizeof(args) != 2 ) return; args[0] = copy(res->Limbs); foreach(string finger, int count in res->Fingers) tmp = ({ tmp..., ({ finger, count }) }); args[1] = tmp; } void SetCharacterRace(string race, mixed array args) { class Race res = Races[race]; mixed array tmp; mapping StatMap; string schluss; if( !res || !res->Complete || sizeof(args) != 5 ) return; tmp = ({}); foreach(int key, string val in res->Resistance) tmp = ({ tmp..., ({ key, val }) }); args[0] = tmp; tmp = ({}); StatMap = copy(res->Stats); schluss = ""; foreach(schluss in keys(StatMap)){ tmp = ({ tmp..., ({ schluss, StatMap[schluss]->Average, StatMap[schluss]->Class }) }); } args[1] = tmp; args[2] = res->Language; args[3] = res->Sensitivity; args[4] = res->Skills; } varargs string array GetRaces(int player_only) { return filter(keys(Races), function(string race, int player_only) { class Race res = Races[race]; if( !res->Complete ) return 0; if( player_only && !res->PlayerFlag ) return 0; return 1; }, player_only); } string GetHelp(string race) { class Race res = Races[race]; string array limbs; string help = "Race: " + race + "\n\n"; string tmp, h_file; int x; if( !res ) return 0; h_file = "/doc/help/races/"+lower_case(race); if(file_exists(h_file)) return read_file(h_file); limbs = map(res->Limbs, (: $1[0] :)); limbs = singular_array(limbs); help += "Limbs:\n"; help += capitalize(item_list(map(limbs, (: add_article :)))) + ".\n"; help += "\nFingered limbs:\n"; foreach(string finger, int count in res->Fingers) help += "\t" + finger + " (" + count + ")\n"; limbs = regexp(limbs, ".* wing"); if( sizeof(limbs) ) { help += "\nFlying\n"; } else { help += "\nNon-flying\n"; } x = res->Sensitivity[0]; if( x < 11 ) tmp = "excellent"; else if( x < 16 ) tmp = "above average"; else if( x < 21 ) tmp = "good"; else if( x < 26 ) tmp = "average"; else if( x < 31 ) tmp = "below average"; else if( x < 36 ) tmp = "very poor"; else tmp = "extremely poor"; help += "\nNight vision: " + tmp + "\n"; x = res->Sensitivity[1]; if( x < 61 ) tmp = "extremely poor"; else if( x < 66 ) tmp = "very poor"; else if( x < 71 ) tmp = "below average"; else if( x < 76 ) tmp = "average"; else if( x < 81 ) tmp = "good"; else if( x < 86 ) tmp = "above average"; else tmp = "excellent"; help += "Day vision: " + tmp + "\n\n"; return help; } public mapping GetResistances() { return copy(Resistances); } public mapping GetArmors() { return copy(Armors); }