blob: 3095a3f9fabd378588ecc75f6d94960272080f0c [file] [log] [blame]
// MorgenGrauen MUDlib
//
// moving.c
//
// $Id: moving.c 9142 2015-02-04 22:17:29Z Zesstra $
#pragma strict_types
#pragma save_types
#pragma range_check
#pragma no_clone
#pragma pedantic
#define NEED_PROTOTYPES
#include <magier.h>
#include <thing/properties.h>
#include <living/moving.h>
#include <player.h>
#undef NEED_PROTOTYPES
#include <wizlevels.h>
#include <moving.h>
#include <properties.h>
private mixed verfolger()
{
mixed *pur;
if (!pointerp(pur=QueryProp(P_PURSUERS))) return 0;
else return pur[0];
}
// #########
//########################## IN+AT ############################
// #########
static int _move_base(object target, object old_room, string cmd)
{
if (environment()!=target)
if (IS_ARCH(this_object()))
{
__set_environment(this_object(),target);
printf("%s: Bewegung hat nicht geklappt. Versuche es mit "
"set_environment... %s.\n.",query_verb(),
environment()==target?"hat geklappt":"erfolglos");
}
else
printf("%s: Bewegung hat nicht geklappt.\n",query_verb());
if (environment()!=target) return 1;
command(cmd);
if (old_room) move_object(old_room);
else
return printf("%s: Ursprungsraum wurde zerstoert.\n",query_verb()),1;
if (environment()!=old_room)
{
if (IS_ARCH(this_object()))
{
__set_environment(this_object(),old_room);
printf("%s: Zurueckbewegen hat nicht geklappt. Versuche es mit "
"set_environment ... %s.\n",query_verb(),
environment()==old_room?"hat geklappt":"erfolglos");
}
else
printf("at: Zurueckbewegen hat nicht geklappt.\n");
}
return 1;
}
static int _in_room(string str)
{
string room;int size;
object old_room;
string cmd,err;
if (!sizeof(str=_unparsed_args()) ||
!sizeof(str=regreplace(str,"^ *","",1)) ||
sscanf(str, "%s %s", room, cmd) != 2)
return USAGE("in <raum> <befehl>\n");
old_room = environment();
room=(string)call_other(master(),"_get_path",room,getuid());
if (err=catch(move_object(room)))
{
if (catch(size=file_size(room+".c"))||size<1)
printf("%s: %s.c: Datei nicht vorhanden.\n",query_verb(),room);
else
printf("%s: Bewegung nach %s hat nicht funktioniert: %s\n",
query_verb(),room,err);
return 1;
}
return _move_base(find_object(room),old_room,cmd);
}
static int _at_player(string dest)
{
object ob,old_room;
mixed tmp;
string cmd;
if (!sizeof(dest=_unparsed_args()) ||
!sizeof(dest=regreplace(dest,"^ *","",1)) ||
sscanf(dest, "%s %s", dest, cmd) != 2)
return USAGE("at <lebewesen> <befehl>\n");
if (!(ob=find_living(dest)))
{
tmp=match_living(dest,1);
if (stringp(tmp)) ob = find_living(tmp);
}
if (!ob||!(ob=environment(ob)))
return _notify_fail(sprintf("at: Lebewesen \'%s\' nicht gefunden.\n",
dest)),0;
old_room=environment();
move_object(ob);
return _move_base(ob,old_room,cmd);
}
// ########
//############################ GOTO ############################
// ########
static object find_living_nr(string str)
{ string name,check;
int nr;
object*livings;
if(sscanf(str,"%s %d%s",name,nr,check)<2||sizeof(check))
return find_living(str);
if(!sizeof(livings=filter((find_livings(name)||({})),#'environment))
||nr<1||sizeof(livings)<nr)
return 0;
return livings[nr-1];
}
static int _goto(string dest){
mixed target;
string target2,err;
if (!sizeof(dest=_unparsed_args()))
return USAGE("goto [lebewesen|filename]\n");
if (!((target=find_living_nr(dest)) && (target=environment(target))))
{
target2=target=(mixed)call_other(master(),"_get_path",dest,getuid());
if (!find_object(target))
{
if (target2[<1]=='.') target2+="c";
if (target2[<2..<1]!=".c") target2+=".c";
notify_fail(sprintf("goto: Datei %O nicht vorhanden.\n",target));
if (!(file_size(target2)>-1||
file_size(implode(explode(target,"/")[0..<2],"/")+
"/virtual_compiler.c")>-1)||(err=catch(call_other(target,"?"))))
{
if (err)
notify_fail(sprintf("goto: Fehler beim Teleport nach %O:\n%s\n",
dest,implode(explode(err,"\n")," ")));
target=match_living(dest,1);
if (!(stringp(target)&&(target=find_living(target))&&
(target=environment(target))))
return 0;
}
}
}
if (verfolger()) _verfolge("");
if (move(target,M_TPORT|M_NOCHECK)<0)
printf("Bewegung fehlgeschlagen!\n");
return 1;
}
// ########
//############################ HOME ############################
// ########
static int _home()
{
string dest;
if (verfolger()) _verfolge("");
dest="/players/" + getuid() + "/workroom";
if (file_size(dest+".c")<1||catch(call_other(dest,"???")))
{
printf("Fehler beim Laden Deines Workrooms.\n"
"Gehe zum Magiertreff.\n");
dest="/secure/merlin";
}
if (move(dest,M_TPORT|M_NOCHECK)<0)
printf("Bewegung fehlgeschlagen!\n");
return 1;
}
// ###############
//######################### +MAGIERNAME ##########################
// ###############
static int _go_wiz_home(string str)
{
_notify_fail("Syntax: '+magiername'\n");
if(sizeof(query_verb())>1) str=query_verb()[1..];
if(!sizeof(str)) return 0;
if(query_verb()[0]!='+') return 0;
str=(old_explode(str," ")-({0}))[0];
if(!sizeof(str)) return 0;
str=lower_case(str);
if (str=="merlin")
{
move("/secure/merlin",M_TPORT|M_NOCHECK);
return 1;
}
if ((!call_other(master(),"get_userinfo",str))||
!IS_LEARNER(str))
{
printf("Es gibt keinen Magier namens %s.\n",
capitalize(str));
return 1;
}
if (file_size("/players/"+str+"/workroom.c")<1)
{
printf("%s hat keinen Workroom.\n",capitalize(str));
return 1;
}
if (catch(call_other("/players/"+str+"/workroom","???")))
{
printf("Der Workroom von %s hat Fehler.\n",capitalize(str));
return 1;
}
move("/players/"+str+"/workroom",M_TPORT|M_NOCHECK);
return 1;
}
static mixed _query_localcmds()
{
return
({({"goto","_goto",0,LEARNER_LVL}),
({"in","_in_room",0,LEARNER_LVL}),
({"at","_at_player",0,LEARNER_LVL}),
({"home","_home",0,WIZARD_LVL}),
({"+","_go_wiz_home",1,LEARNER_LVL})});
}