/******
  Tool to make maps of domains, created by Hippo@Star Rift
  (dido.fa.indiana.edu 6666) on June 2, 1995.
  Maps symbols:
   x     : room
   -|/\X : general exits
   E     : other exit
******/

#include <mudlib.h>
#include "/include/fn/linewrap.h"
inherit "/inherit/treasure.c";

#define VER "1.0"
#define MYDIR "/players/hippo/tools/tracker.c"
#define LOGFILE "done_map.log"
#define HERE file_name(environment(this_object()))
#define EX HERE->query_exits()
#define MA member_array
#define EXIT ({"north","northeast","east","southeast","south","southwest","west","northwest"})
#define SYMBOL ({ "|","/","-","\\","|","/","-","\\","E" })
#define PX ({  0, 2,2,2,0,-2,-2,-2,0 })
#define PY ({ -2,-2,0,2,2, 2, 0,-2,0 })

mixed *files;
string map;
int tot;

void reset(status arg) {
  if(arg) return;
  set_name("tracker (Version "+VER+")");
  set_id("tracker");
  set_short("Tracker (Version "+VER+")");
  set_long("\n"+
  "           .------------------. \n"+
  "         /'  T R A C K E R   /| \n"+
  "       /' a tool to help   /' | \n"+
  "     /' you making maps  /'  /' \n"+
  "    |~~~~~~~~~~~~~~~~~~~|  /'   \n"+
  "    |___________________|/'     \n"+
  "       `|:.  `|. |' :|'         \n"+
  "         `:|:.`|.| :|'          \n"+
  "            `:|`||:|'           \n"+
  "               ``X'             \n"+
  "             ====T====          \n"+
  "             || ||# ||          \n"+
  "            _## ##~ ##_         \n"+
  "                ~~              \n"+
  " <'help tracker' for more info> \n");
}

drop() { return 0; }
get() { return 0; }

void init() {
  ::init();
  add_action("start_map","track");
  add_action("bugs","bugs");
  add_action("show_files","files");
  add_action("show_map","showmap");
  add_action("ver","ver");
  add_action("help","help");
}

status ver(string str) {
  if(str=="tracker") {
    write   ("\nVersion\tEditor\tDate\tDescription\n"+
    "~~~~~~~\t~~~~~~\t~~~~   \t~~~~~~~~~~~\n"+
    "1.0.0\tHippo\t06-02-95\tCreation of the tool\n"+
    "1.1.0\tHippo\t06-14-95\tMajor debugging finished\n"+
    "1.1.1\tHippo\t06-20-95\tAdded useful error messages\n"+
    "");
    return 1;
  }
  return 0;
}

status help(string str) {
  if(str=="tracker") {
    write("\n"+
"**************************************************************************\n"+
"           Tool to make maps of domains (Version "+VER+")\n"+
"           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"+
"  maps symbols\n"+
"    x      : room\n"+
"    S      : the room where the tracker started (change later manually to x)\n"+
"    E      : room with an irregular exit\n"+
"    -|/\\X : doorways\n"+
"\n"+
"  possible commands\n"+
"    track        : start map-making of the realm where Tracker is now\n"+
"    files        : shows the filenames and the exit-codes for debugging\n"+
"    showmap      : shows the map Tracker just created \n"+
"                   (also written in /players/"+this_player()->query_real_name()+"/"+LOGFILE+")\n"+
"    help tracker : this info\n"+
"    bugs tracker : what to do in case of new ideas, bugs or problems?\n"+
"    ver tracker  : information on the creation and updating of Tracker\n"+
"**************************************************************************\n");
    return 1;
  }
  return 0;
}

status bugs(string str) {
  if(str=="tracker") {
    writelw("If you discover a problem of any kind while using the tracker, "+
    "please mail Hippo about it. Include a description in that mail of what "+
    "exactly happened (or didn't happen) and where (realm and room) it "+
    "occured. If you have a clue to the "+
    "problem that caused the error, or if you debugged the Tracker "+
    "yourself already, include that information, too! I'll try to fix it, "+
    "or reply, telling what went wrong, as soon as possible.\n"+
    "Finally, if you have any kind of "+
    "comment on this tool, I'd like to hear it from you. Also "+
    "suggestions to upgrade the Tracker, or extending it's "+
    "possibilities are very welcome and will be considered. "+
    "\n\nHippo\n");
    return 1;
  }
  return 0;
}


/****************************************************
* For debugging purposes: show_files() and show_map *
****************************************************/

status show_files() {
  int i;
  write("\n                                                  n . e . s . w . E\n");
  for(i=0;i<=tot;i+=2)
    write(extract(files[i]+"                                                           ",0,50)+files[i+1]+"\n");;
  return 1;
}

status show_map() {
  if(map==0 || map=="")
    writelw("You didn't create a map, as far as I know. "+
    "Type 'help tracker' for more information.");
  else write(map+"\n");
  return 1;
}


/*****************************************************
* make sure the trackers destruct themselves finally *
*****************************************************/

void destmap(int tel) {
  if(tel==0) {
    write("You can find yourself a new Tracker in "+MYDIR+"!!\n");
    write("Tracker has been destructed.\n");
    destruct(this_object());
  }
  else {
    writelw("Tracker will destruct in "+(string)(tel*40)+
    " seconds if you don't command Tracker to track a new map.\n");
    tel--;
    call_out("destmap",40,tel);
  }
}


/***********************************************************
* The realm is bugged => bring tracker back to the wizard. *
***********************************************************/

string bugged_room(int this) {
  int bugged,i,j;
  string *tmp;
  i=1; bugged=0;
  while(bugged<=tot-this) {
    tmp=explode((string)files[this-i]," ");
    for(j=0;j<sizeof(tmp);j++) if(tmp[j]=="1") bugged+=2;
    i+=2;
  }
  return files[this-i+1];
}

status bugged_realm(int this) {
  writelw("The tracker tells you: It seems to me that "+files[this]+
  ((file_size(files[this]) > 1) ? " is bugged." : " doesn't exist.")+
  " Obviously, an exit from room "+bugged_room(this)+
  " refers to that place. Therefore, I can't finish the map now."+
  " If you still want to make the map, and the bug cannot be"+
  " fixed at this moment, change the concerning exit in"+
  " that room into an exitname other than one of "+
  implode(EXIT," ")+" and track the realm again.\n");
  move_object(this_object(),environment(this_player()));
  call_out("destmap",0,5);     // make sure the tracker destructs!
  return 1;
}


/*********************************************************
* Check all rooms for exits (doors are not yet included) *
*********************************************************/

string convert2fil(string str) {
  string s;
  if(sscanf(str,"%s.c",s)==1) str=s;
  if(extract(str,0,0)=="/") str=extract(str,1);
  return str;
}

int is_exit(string str) {
  if(MA(str,EX)!=-1) {
    if(MA(convert2fil(EX[MA(str,EX)-1]),files)==-1) {
      tot+=2;
      files[tot]=convert2fil(EX[MA(str,EX)-1]);
      return 1;
    }
    else { return ((convert2fil(EX[MA(str,EX)-1])==HERE) ? 0 : 2); }
  }
  return 0;
}

status extra_ex() {
  int j;
  for(j=1;j<sizeof(EX);j+=2) if(MA(EX[j],EXIT)==-1) return 1;
  return 0;
}

status make_file_string() {
  int i,this;
  tot=0; this=0;
  files[this]=HERE;
  while(tot>=this && files[this]!="") {
    this++;
    for(i=0;i<sizeof(EXIT);i++)
      files[this] += (string)is_exit(EXIT[i])+" ";
    files[this] += (string)extra_ex()+" ";
    this++;
    call_out("bugged_realm",2,this);
    /* if files[this] is bugged, program will quit at next line */
    if(files[this]!="") move_object(this_object(),files[this]);
    remove_call_out("bugged_realm");   // if files[this] was not bugged
  }
}


/********************************************
*  The files are checked, now make the map: *
********************************************/

status make_actual_map() {
  int i,j,k,m,n,t,x,y,maxx,maxy;
  mixed *xy,*vx, *vy;
  string *tmp;
  tmp=allocate(sizeof(SYMBOL));
  xy=allocate(tot); for(i=0;i<sizeof(xy);i++) xy[i]=allocate(80);
  vx=allocate(tot); vy=allocate(tot);
  x=0; y=0; t=0; n=0; maxx=0; maxy=0; xy[0][0]="S";
  while(files[t*2] && files[t*2]!="") {
    tmp=explode((string)files[t*2+1]," ");
    for(i=0;i<9;i++) {
      if(tmp[i]!="0") {
        if(tmp[i]=="1") {
          if(i!=8) n++;
          if(x+PX[i]<0) {
            x-=PX[i]; maxx=maxx-PX[i];
            for(j=0;j<=maxy;j++) {
              for(k=maxx;k>=-PX[i];k--) xy[k][j] = xy[k+PX[i]][j];
              for(k=0;k<-PX[i];k++) xy[k][j]=0;
            }
            for(m=n;m>t;m--) vx[m] = vx[m]-PX[i];
          }
          if(y+PY[i]<0) {
            y-=PY[i]; maxy=maxy-PY[i];
            for(j=0;j<=maxx;j++) {
              for(k=maxy;k>=-PY[i];k--) xy[j][k] = xy[j][k+PY[i]];
              for(k=0;k<-PY[i];k++) xy[j][k]=0;
            }
            for(m=n;m>t;m--) vy[m] = vy[m]-PY[i];
          }
          if(i==8) { xy[x+PX[i]][y+PY[i]] = "E"; }
          else {
            if(xy[x+(int)PX[i]/2][y+(int)PY[i]/2] == SYMBOL[1] ||
            xy[x+(int)PX[i]/2][y+(int)PY[i]/2] == SYMBOL[3])
              xy[x+(int)PX[i]/2][y+(int)PY[i]/2] = "X";
            else
              xy[x+(int)PX[i]/2][y+(int)PY[i]/2] = SYMBOL[i];
            xy[x+PX[i]][y+PY[i]] = "x";
            vx[n] = x+PX[i]; vy[n] = y+PY[i];
          }
          if(x+PX[i]>maxx) maxx=x+PX[i]; if(y+PY[i]>maxy) maxy=y+PY[i];
        }
        else { xy[x+(int)PX[i]/2][y+(int)PY[i]/2] = SYMBOL[i]; }
      }
    }
    t++; x=vx[t]; y=vy[t];
  }
  if(maxx>75) {
    map=lw("WARNING: "+
    "The map might seem a bit messed up, because it exceeds 75 chars "+
    "horizontally. The easiest way to solve this problem is to split "+
    "it into 2 parts manually.\n");
  }
  for(y=0;y<=maxy;y++) {
    for(x=0;x<=maxx;x++) {
      map=map+(((string)xy[x][y]==0 || (string)xy[x][y]=="")
      ? " " : (string)xy[x][y]);
    }
    map+="\n";
  }
  map+="\n";
  return 1;
}

status start_map() {
  string creator;
  int i;
  files=allocate(300); for(i=0;i<sizeof(files);i++) files[i]="";
  creator=call_other(this_player(),"query_real_name");
  if(call_other(this_player(),"query_security_level")<20)
  { write("You're not allowed to use this tool!.\n");
    destruct(this_object());
    return 1;
  }
  while(remove_call_out("destmap") > -1) remove_call_out("destmap");
  make_file_string();
  move_object(this_object(),environment(find_living(creator)));
  map="";
  make_actual_map();
  map=map+"\n ** Map created by "+capitalize(creator)+" on "+ctime()+" **\n";
  write_file("/players/"+creator+"/"+LOGFILE,map);
  write("Tracker tells you: Done with map-making.\n"+
  "Final MAP (logged to the file /players/"+creator+"/"+LOGFILE+"): \n"+map+"\n");
  call_out("destmap",0,5);
  return 1;
}