/* remote control by Cratylus @ Frontiers
* Sep 21 2005
*/
#include <lib.h>
#include <vendor_types.h>
inherit LIB_ITEM;
int controlling;
string remote, control_code;
object owner;
void create(){
::create();
SetKeyName("remote control");
SetId(({"device","controller","remote","control"}));
SetAdjectives(({"small","electronic"}));
SetShort("a remote control");
SetLong("This is a small electronic "+
"device with various labeled buttons on it. "+
"It seems you can \"control something\" with "+
"it, and also \"release\" it. To command your "+
"remote servant, you evidently have to preface the command "+
"with the ] character (example: ] look at menu).");
SetProperties(([
"no steal" : 1,
]));
SetMass(20);
SetVendorType(VT_TREASURE);
control_code = alpha_crypt(16);
}
void init(){
::init();
if(living(environment())) owner = environment();
else owner = 0;
add_action("control","control");
add_action("release","release");
add_action("do_control","]");
}
int control(string str){
object ob;
string *eyedees;
if(!str){
return 0;
}
ob=present(str, environment(this_player()));
if(!ob){
write("There is no such thing to be controlled here.");
return 1;
}
if(!builderp(this_player())){
write("Your puny mortal mind can't wrap itself around the use "
"of this powerful instrument.");
log_file("adm/control",capitalize(this_player()->GetKeyName())+
" attempted to use the remote control on "+str+": "+timestamp()+"\n");
tell_creators("SECURITY: "+capitalize(this_player()->GetKeyName())+
" attempted to use the remote control on "+str+".");
return 1;
}
if(!living(ob)){
write(capitalize(ob->GetKeyName())+" is not a living thing.");
return 1;
}
if(!creatorp(this_player()) && strsrch(base_name(ob), homedir(this_player()))){
write("Only creators can control NPC's that don't belong to them.");
say(this_player()->GetName()+" tries to establish control over "+ob->GetName()+" and fails.\n");
return 1;
}
if(!strsrch(base_name(ob),"/secure") ){
write(ob->GetName()+" is not controllable with this device.");
say(this_player()->GetName()+" tries to establish control over "+ob->GetName()+" and fails.\n");
return 1;
}
if(controlling){
write("Your remote control is busy controlling some other creature.");
return 1;
}
if(ob->GetOwner() && ob->GetOwner() != "NONE"){
write("That creature is already in someone's thrall.");
return 1;
}
if(!(ob->GetOwner())) new("/shadows/drone")->eventShadow(ob);
remote=file_name(ob);
ob->SetOwner(this_player()->GetKeyName(), this_player());
ob->SetListen(1);
ob->SetControlCode(control_code);
eyedees = ob->GetId();
eyedees += ({"servant","drone","thrall"});
ob->SetId(eyedees);
write("You establish a remote control connection with "+capitalize(str)+".");
say(this_player()->GetName()+" establishes a control link with "+capitalize(str)+".");
controlling=1;
return 1;
}
int do_control(string str){
object obj;
if(!controlling){
write("You are not currently linked to any living thing.");
return 1;
}
if(!str || str == ""){
write("Nothing happens.");
return 1;
}
if(environment() != owner){
write("You don't seem to be in possession of the remote control.");
tell_object(environment(),"Possible security violation on remote control.");
error("Illegal access of remote control: "+get_stack()+" "+identify(previous_object(-1)));
return 1;
}
obj=find_object(remote);
if(obj) obj->eventReceiveCommand(str);
else {
write("There seems to be a problem.");
this_object()->release();
}
return 1;
}
int release(){
object dingus;
if(remote && dingus=find_object(remote) ){
dingus->SetOwner("NONE");
remove_shadow(dingus);
}
controlling=0;
write("You release your remote link.");
return 1;
}
string GetControlCode(){
if(base_name(previous_object()) != "/shadows/drone") return alpha_crypt(16);
else return control_code;
}
