Babylon/mud
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
mud/lib/lib/interactive.c
Babylon 433e764989 first commit
2020-09-06 05:43:07 -07:00

640 lines
18 KiB
C
Raw Blame History

/* /lib/interactive.c
* from the Dead Souls Object Library
* an interactive object
* created by Descartes of Borg 941001 for the Idea Exchange
* Version: @(#) interactive.c 1.17@(#)
* Last modified: 97/01/03
*/
#ifndef NM_STYLE_EXITS
#define NM_STYLE_EXITS 1
#endif
#include <lib.h>
#include <clock.h>
#include <privs.h>
#include <daemons.h>
#include <objects.h>
#include ROOMS_H
#include <marriage.h>
#include <medium.h>
#include <position.h>
#include <message_class.h>
#include <vision.h>
#include <voting.h>
#include "include/interactive.h"
inherit LIB_DESCRIBE;
inherit LIB_CONTAINER;
inherit LIB_OBJECT;
inherit LIB_AUTOSAVE;
inherit LIB_FILES;
inherit LIB_MOVE;
inherit LIB_PAGER;
inherit LIB_MESSAGES;
inherit LIB_INTERFACE;
inherit LIB_SHADOW_HOOK;
private int Age, WhereBlock, Brief, LoginTime, BirthTime, RescueBit;
private string Password, Email, RealName, Rank, LoginSite, HostSite, WebPage;
private static string globaltmp;
private mapping News;
private class marriage *Marriages;
private static int LastAge, Setup, quitting;
private static object NetDiedHere;
private static mapping LastError;
private static string *UserId;
private mapping Paranoia = ([]);
private static mapping PlayerStatus = ([]);
static void create(){
object::create();
messages::create();
interface::create();
SetOpacity(0);
Marriages = ({});
HostSite = "";
Brief = 0;
Password = 0;
Email = 0;
RealName = 0;
Rank = "citizen";
LoginSite = ROOM_START;
BirthTime = time();
LastAge = time();
News = ([]);
Paranoia = (["homeroom" : user_path(GetKeyName(), 1)+"workroom"]);
RescueBit = 0;
SetShort("$N the unaccomplished");
SetLong("$N is nondescript.");
}
int SetRescueBit(int i){
RescueBit = i;
return i;
}
/* *************** /lib/interactive.c modal functions *************** */
mixed CanDivorce(){
class marriage m;
if( !Marriages || !sizeof(Marriages) )
return GetName() + " is not married!";
m = Marriages[0];
if( m->DivorceDate ) return GetName() + " is not married!";
return 1;
}
mixed CanGet(){
return GetName() + " is a living being!";
}
mixed CanMarry(){
if( !Marriages ) Marriages = ({});
if( GetSpouse() ) return GetName() + " is currently married!";
return 1;
}
/* *************** /lib/interactive.c lfuns *************** */
int Setup(){
mapping mp;
string tmp;
if(Setup) return 0;
else Setup = 1;
set_living_name(GetKeyName());
interface::Setup();
add_action((: cmdQuit :), "quit");
add_action((: cmdParseRefresh :), "parserefresh");
tmp = this_object()->GetTeloptIp();
if(tmp) HostSite = tmp;
else HostSite = query_ip_number(this_object());
LoginTime = time();
SetId(({}));
autosave::Setup();
//call_out("save_player", 2, GetKeyName());
if( VOTING_D->GetStatus() == VOTE_RUNNING ){
if( VOTING_D->GetMode() == VOTE_MODE_CANDIDATES )
eventPrint("%^YELLOW%^Class Elections are in progress! "
"Go nominate candidates!%^RESET%^");
if( VOTING_D->GetMode() == VOTE_MODE_VOTING )
eventPrint("%^YELLOW%^Class Elections are in progress! "
"Go vote for the candidates!%^RESET%^");
}
if( VOTING_D->GetVoteStatus( this_object() ) != VOTE_ALREADY_VOTED ){
eventPrint("%^YELLOW%^You have not yet voted! "
"Please vote now.%^RESET%^");
eventMove( VOTING_D->GetVoteRoom() );
} else {
object room;
if(grepp(LoginSite,"#")){
room = find_object(LoginSite);
}
if(!room) catch(room = load_object(LoginSite));
if( room && room->GetMedium() == MEDIUM_AIR ){
}
if(!sizeof(LoginSite) ||
(!room && !file_exists(LoginSite) && !file_exists(LoginSite+".c")) ||
!eventMove(LoginSite) || RescueBit ){
LoginSite = ROOM_START;
eventMove(ROOM_START);
SetRescueBit(0);
}
}
//environment()->eventPrint(tmp, MSG_ENV, this_object());
if( !(tmp = GetMessage("login")) )
tmp = GetName() + " enters " + mud_name() + ".";
if(!(archp(this_object()) && this_object()->GetInvis())){
PLAYERS_D->PlayerUpdate(GetKeyName(), 1);
log_file("enter", GetCapName()+" (enter): "+ctime(time())+"\n");
CHAT_D->eventSendChannel("SYSTEM","connections","[" +
GetCapName() + " logs into "+mud_name()+"]",0);
}
if(!catch(mp = FOLDERS_D->mail_status(GetKeyName()))){
if(mp["unread"]){
eventPrint("\n%^RED%^%^BOLD%^>>> " + mp["unread"] + " of your " +
(mp["total"] == 1 ? mp["total"] + " letter is" :
mp["total"] + " letters remain") + " unread. <<<%^RESET%^\n",
MSG_SYSTEM);
}
}
NEWS_D->GeneralNews();
return 1;
}
static void net_dead(){
object env = environment();
interface::net_dead();
Age += time() - LastAge;
LastAge = time();
NetDiedHere = environment(this_object());
save_player(GetKeyName());
if(!(archp(this_object()) && this_object()->GetInvis())){
PLAYERS_D->PlayerUpdate(GetKeyName(), -1);
log_file("enter", GetCapName() + " (net-dead): "+ctime(time())+"\n");
if(env) env->eventPrint(GetName() + " suddenly disappears into "
"a sea of irreality.", MSG_ENV, this_object());
CHAT_D->eventSendChannel("SYSTEM","connections","[" +
GetCapName() + " goes net-dead on "+mud_name()+"]",0);
}
SNOOP_D->ReportLinkDeath(this_object()->GetKeyName());
eventMove(ROOM_FREEZER);
if(query_snoop(this_object()))
query_snoop(this_object())->eventPrint(GetCapName() + " has gone "
"net-dead.", MSG_SYSTEM);
}
void eventReconnect(){
interface::eventReconnect();
LastAge = time();
HostSite = query_ip_number(this_object());
eventPrint("Reconnected.", MSG_SYSTEM);
PLAYERS_D->PlayerUpdate(GetKeyName(), 1);
if(!(archp(this_object()) && this_object()->GetInvis())){
CHAT_D->eventSendChannel("SYSTEM","connections","[" +
GetCapName() + " has rejoined " + mud_name() + "]",0);
environment()->eventPrint(GetCapName() + " has rejoined this reality.",
MSG_ENV, this_object());
}
if( NetDiedHere ) eventMove(NetDiedHere);
else eventMove(ROOM_START);
NetDiedHere = 0;
}
int eventDestruct(){
object ob, env = environment();
int ret, inter = interactive(), arc = archp();
int invis = this_object()->GetInvis();
string name = GetCapName(), stack = get_stack();
if(!valid_event(previous_object(), this_object())) return 0;
interface::eventDestruct();
foreach(ob in deep_inventory(this_object())){
if( ob ) catch(ob->eventDestruct());
}
ob = this_object();
INSTANCES_D->UpdateInvis();
if(inter && !(arc && invis) && !quitting){
log_file("enter", name + " (dested): "+ctime(time())+"\n");
log_file("dests", name + " "+ctime(time())+" "+
stack+"\n---\n\n");
CHAT_D->eventSendChannel("SYSTEM","connections","[" +
name + " has been destructed from "+mud_name()+"]", 0);
if(env) env->eventPrint(name + " disintegrates!",
MSG_ENV, (ob || ({})));
}
ret = object::Destruct();
return ret;
}
mixed eventDivorce(){
class marriage m;
m = Marriages[0];
m->DivorceDate = time();
return 1;
}
mixed eventMarry(object who, object to_whom){
class marriage m;
object env;
if( (env = previous_object()) != environment() ) return 0;
m = new(class marriage);
m->Spouse = to_whom->GetCapName();
m->WeddingDate = time();
m->DivorceDate = 0;
m->Location = file_name(env);
Marriages = ({ m }) + Marriages;
return 1;
}
int eventMove(mixed dest){
string str;
int x;
x = move::eventMove(dest);
if( x ){
if( !(str = environment()->GetProperty("login")) ){
if(clonep(environment())) LoginSite = file_name(environment());
else LoginSite = base_name(environment());
}
else LoginSite = str;
}
return x;
}
void cmdParseRefresh(){
parse_refresh();
}
int cmdQuit(){
string tmp;
object env = environment(this_object());
int retain = RETAIN_ON_QUIT;
if(!env) env = load_object(ROOM_FURNACE);
if( previous_object() && !
(master()->valid_apply( ({ GetKeyName() }) )) ) return 0;
if( env->GetProperty("no quit") &&
! sizeof(previous_object(-1)) ){
message("system", "You are unable to escape this reality!",
this_object());
return 0;
}
quitting = 1;
tell_object(this_object(),"Please come back another time!");
if(!creatorp(this_object())){
foreach(object ob in all_inventory(this_object())){
if((!retain && !ob->GetRetain()) || !ob->GetRetain()) ob->eventMove(env);
}
foreach(object ob in deep_inventory(this_object())){
if((!retain && !ob->GetRetain()) || !ob->GetRetain()) ob->eventMove(env);
}
}
this_object()->AddCarriedMass(-(this_object()->GetCarriedMass()));
tmp = GetMessage("logout") || (this_object()->GetName() +
" is gone from this reality!");
save_player(GetKeyName());
if(!(archp(this_object()) && this_object()->GetInvis())){
PLAYERS_D->PlayerUpdate(GetKeyName(), 0);
log_file("enter", GetCapName()+" (quit): "+timestamp()+"\n");
if(env) message("environment", tmp, env, ({this_object()}));
CHAT_D->eventSendChannel("SYSTEM","connections","[" +
GetCapName() + " quits "+mud_name()+"]",0);
}
if(in_edit()){
ed_cmd(".");
ed_cmd("x");
ed_cmd("Q");
}
flush_messages();
this_object()->eventDestruct();
return 1;
}
int GetAge(){
int x;
if(!interactive(this_object())) return Age;
x = time() - LastAge;
Age += x;
LastAge = time();
return Age;
}
int GetBirth(){ return BirthTime - (YEAR * 18); }
string query_cwd(){ return interface::query_cwd(); }
void SetEmail(string str){
if(!(master()->valid_apply(({ GetKeyName() })))) return;
Email = str;
}
string GetEmail(){
if(!(master()->valid_apply(({ GetKeyName() })))) return 0;
else return Email;
}
varargs string array SetId(string *bogus){
int i;
string tmp;
UserId = ({ GetKeyName() });
if(GetCapName()) UserId += ({ lower_case(GetCapName()) });
if(sizeof(bogus)){
if(this_player() && this_player() == this_object()){
if(!arrayp(bogus)) bogus = ({ bogus });
if(!UserId) UserId = bogus;
else UserId += bogus;
}
}
if(tmp = this_object()->GetRace()) UserId += ({ tmp });
if(OBJECT_MATCHING){
UserId = atomize_array(UserId);
}
UserId = distinct_array(UserId);
foreach(string sub in UserId){
if(user_exists(sub) && GetKeyName() != sub){
//if(find_player(sub) && find_player(sub) != this_object()){
UserId -= ({ sub });
//}
}
}
parse_init();
return UserId;
}
string *GetId(){ return UserId; }
int id(string str){
if(!str || !UserId) return 0;
else return member_array(lower_case(str), UserId) != -1;
}
int GetLoginTime(){ return LoginTime; }
string SetKeyName(string str){
if( previous_object() != master() ) return GetKeyName();
return object::SetKeyName(str);
}
string GetKeyName(){ return object::GetKeyName(); }
void SetNews(string type, int sz){ News[type] = sz; }
int GetNews(string type){ return News[type]; }
void SetPassword(string str){
if(!(master()->valid_apply(({ GetKeyName() })))) return;
Password = str;
save_player(GetKeyName());
}
string GetPassword(){
if(!(master()->valid_apply(({ GetKeyName() })))) return 0;
else return Password;
}
void SetRank(string str){ Rank = str; }
string GetRank(){ return Rank; }
void SetRealName(string str){
if(!(master()->valid_apply(({ GetKeyName() })))) return;
RealName = str;
}
string GetRealName(){ return RealName; }
string GetShort(){
string str = object::GetShort();
if( !str ) str = "$N the unaccomplished";
if( strsrch(str, "$N") == -1 ) str = "$N";
str = replace_string(str, "$N", (GetName() || ""));
str += "%^RESET%^";
if(!interactive(this_object())) str += " (net-dead)";
return str;
}
varargs string GetLong(){
string str;
str = object::GetLong(str);
if(!str || strsrch(str, "$N") == -1) str = "$N is nondescript.";
str = replace_string(str, "$N", GetName());
return str;
}
int SetBriefMode(int x){ return (Brief = x); }
int GetBriefMode(){ return Brief; }
int SetWhereBlock(){ return (WhereBlock = !WhereBlock); }
int GetWhereBlock(){ return WhereBlock; }
string get_path(){
return query_cwd();
}
void SetLastError(mapping m){
if (previous_object() != master()) return;
LastError = m;
}
mapping GetLastError(){
string *allowed = ({ "/secure/cmds/creators/dbxwhere", "/secure/cmds/creators/dbxframe", "/secure/cmds/players/bug", file_name(master()) });
string caller = file_name(previous_object());
if(member_array(caller, allowed) != -1 ){
if(LastError) return LastError;
}
else error("Privilege Violation: " + caller);
}
string SetCapName(string str){
if(base_name(previous_object(0)) != LIB_CONNECT){
if(this_player()){
if(!adminp(this_player())) return str;
}
else return str;
}
return object::SetCapName(str);
}
void move_or_destruct(){
string rvoid = ROOMS_D->GetVoid(this_object());
(eventMove(ROOM_START) || eventMove(rvoid));
}
string SetShort(string str){
if( strsrch(str, "$N") == -1 ) return object::GetShort();
else return object::SetShort(str);
}
string SetLong(string str){
if(strsrch(str, "$N") == -1) return object::GetLong();
else return object::SetLong(str);
}
string GetName(){ return object::GetName(); }
varargs int GetInvis(object ob){ return object::GetInvis(ob); }
mixed *GetCommands(){
if( !(master()->valid_apply( ({ GetKeyName() }) )) ) return ({});
else return commands();
}
string GetSpouse(){
if( !Marriages || !sizeof(Marriages) ) return 0;
if( ((class marriage)Marriages[0])->DivorceDate ) return 0;
return ((class marriage)Marriages[0])->Spouse;
}
class marriage *GetMarriages(){ return Marriages; }
string GetHostSite(){
if( WhereBlock ){
if( !(master()->valid_access(({ PRIV_ASSIST }))) )
return "Confidential";
else return HostSite;
}
return HostSite;
}
int GetRadiantLight(int ambient){
return container::GetRadiantLight(ambient);
}
string GetWebPage(){
return WebPage;
}
string SetWebPage(string page){
if( !master()->valid_apply(({ GetKeyName() })) ){
return WebPage;
}
return (WebPage = page);
}
varargs nomask static void validate_paranoia(int prev){
object ob = ( prev ? previous_object() : this_player() );
if( !this_player() || (!archp(this_player()) &&
ob != this_object()) ){
error("Illegal attempt to access paranoia: "+get_stack()+
" "+identify(previous_object(-1)));
log_file("adm/pause",timestamp()+" Illegal attempt to access "+
"paranoia settings on "+identify(this_object())+
" by "+identify(previous_object(-1))+"\n");
}
}
mixed GetParanoia(string str){
//validate_paranoia(1);
if(Paranoia[str]) return copy(Paranoia[str]);
return 0;
}
mixed SetParanoia(string str, mixed val){
validate_paranoia();
Paranoia[str] = val;
return copy(Paranoia[str]);
}
static nomask void NotifyReceipt(object ob){
string what, msg;
if(playerp(this_object())) what = ob->GetShort();
if(creatorp(this_object())) what = identify(ob);
tell_player(this_object(),what+", a thing "+
"that can watch what is going on around you, has "+
"entered your inventory.");
}
nomask int eventReceiveObject(object ob){
int ret = container::eventReceiveObject(ob);
if(ret && GetParanoia("inventory_monitoring")){
tell_player(this_object(),"%^YELLOW%^NOTICE:%^RESET%^ "+identify(ob)+
" enters your inventory.");
}
this_object()->AddCarriedMass(ob->GetMass());
if(environment()) environment()->AddCarriedMass(ob->GetMass());
if(ob->GeteventPrints()) NotifyReceipt(ob);
return ret;
}
static void heart_beat(){
string tip = this_object()->GetTeloptIp();
if(tip && tip != HostSite){
HostSite = tip;
save_player(GetKeyName());
}
if(!interactive() || !find_object(INSTANCES_D)) autosave::heart_beat();
if(!PlayerStatus) PlayerStatus = ([]);
if(!PlayerStatus["Idling"] &&
query_idle(this_object()) > 240){
PlayerStatus["Idling"] = 1;
if(find_object(INSTANCES_D)){
INSTANCES_D->SendWhoUpdate(GetKeyName());
}
}
if(this_object()->GetSleeping()){
if(!PlayerStatus["Sleeping"]){
PlayerStatus["Sleeping"] = 1;
INSTANCES_D->SendWhoUpdate(GetKeyName());
}
}
else if(PlayerStatus["Sleeping"]){
PlayerStatus["Sleeping"] = 0;
INSTANCES_D->SendWhoUpdate(GetKeyName());
}
if(this_object()->GetInCombat()){
if(!PlayerStatus["Combat"]){
PlayerStatus["Combat"] = 1;
INSTANCES_D->SendWhoUpdate(GetKeyName());
}
}
else if(PlayerStatus["Combat"]){
PlayerStatus["Combat"] = 0;
INSTANCES_D->SendWhoUpdate(GetKeyName());
}
if(in_edit(this_object()) || this_object()->GetCedmode()){
if(!PlayerStatus["Edit"]){
PlayerStatus["Edit"] = 1;
INSTANCES_D->SendWhoUpdate(GetKeyName());
}
}
else if(PlayerStatus["Edit"]){
PlayerStatus["Edit"] = 0;
INSTANCES_D->SendWhoUpdate(GetKeyName());
}
if(this_object()->GetTeloptIp() && !GetCharmode()){
int oldlock = GetProperty("screenlock");
SetCharmode(1);
SetProperty("reprompt",1);
SetProperty("keepalive", 5);
SetProperty("screenlock", 0);
SetScreen(80, 25);
SetProperty("screenlock", oldlock);
}
autosave::heart_beat();
}
static string process_input(string str){
if(PlayerStatus["Idling"]){
PlayerStatus["Idling"] = 0;
if(find_object(INSTANCES_D)){
INSTANCES_D->SendWhoUpdate(GetKeyName());
}
}
if(GetProperty("afk") && strsrch(str, "afk")){
SetProperty("afk", 0);
tell_player(this_object(), "You are back from being afk.");
INSTANCES_D->SendWhoUpdate(GetKeyName());
}
return interface::process_input(str);
}
Reference in New Issue View Git Blame Copy Permalink