#include "path.h"
inherit "room/room";
/* make sure room.c has short(arg) instead of short() and just returns
 * short_desc (without exits) if it gets an argument. (this won't effect
 * normal calls of short() without an arg (like in brief mode)
 */

/*
 * Platforms
 * ---------
 * 
 * This code has been ported to the following drivers: (With a basic mudlib)
 * 
 * 2.4.5, 3.1.2, 3.2 (amylaar), 3.12 -DR, 3.12 -CD
 * 
 * Author
 * ------
 * 
 * This code was written by David Ljung as Jubal E. Harshaw (The LPJubal)
 *                          DaveSource.com/GetDave.com
 * 
 * Copyright
 * ---------
 * 
 * This code is Copyright 1993, David Ljung Madison
 * 
 * It may not be rewritten without consent of the author, except for the sake
 * of fixing bugs or porting to new platforms.
 * 
 * It may be freely redistributed, but it may not be sold in any form.
 */

reset(arg) {
  if (arg) return;

  set_light(5);
  short_desc = "Super-Tag Booth";
  no_castle_flag = 0;
  dest_dir =
    ({ "players/jubal/castle/mainhall", "east",
    });
}

init() {
  add_action("notag","tag");
  add_action("tagwho","tagwho");
  add_action("tagsay","tagsay");
  add_action("register","register");
  add_action("deregister","deregister");
  add_action("deregister","dereg");
  add_action("register","reg");
  add_action("taghelp","taghelp");
  ::init();
}

long() {
#ifdef LONGNUM
  object a;
  int i,c;
#endif
  string exits;

  exits="    There is one obvious exit: east\n";
  write(
   "Jubal's Super-Tag Sign Up Booth.\n"
  +"Use 'register' and 'deregister' to enter/leave the Super-Tag game.\n"
  +"WARNING:  READ TAG HELP FIRST!  (type 'taghelp')\n"
  +"If you register do 'look tag' for extra commands.  You cannot tag here.\n"
   );
#ifdef LONGNUM
  a=users();
  c=0;
  for(i=0;i<sizeof(a);i++)
    if(a[i] && present("__tag",a[i])) c++;
  if(c==0) return write("  No players in the game, start one up!\n"+exits);
  if(c==1) return write("  1 player in the game.  Join up!\n"+exits);
  write("  "+c+" players in the game.  Join up!\n"+exits);
#endif
  return 1;
}

notag() { return write("It is impossible to tag in this room.\n"); }

taghelp(arg) {
  if(query_verb()!="taghelp" && arg!="tag") return 0;
  write("  SUPERTAG HELP:\n"
+"The Game:\n"
+"  The game is much like regular tag, with one main difference,\n"
+"  when you are tagged, you are thrown out of the mud game.\n"
+"  Therefore, it is important you realize a few things:\n"
+"  -  DON'T PLAY THE GAME WITH INVENTORY - You will lose it when tagged\n"
+"  -  Don't forget that you are still in the game when you login!\n\n"
+"The Rules:\n"
+"  You can't tag at the TagBooth\n"
+"  Everyone starts with one point.\n"
+"  If you tag someone, you get all of their points.\n"
+"  When you are tagged, you get half your points back when you login.\n"
+"  You lose a point for trying to tag non-tag-players.\n"
+"  Wizzes:  No teleporting or other wiz-power abuse :-)\n\n"
+"Commands:\n"
+"  register and deregister will work in the tagbooth only.\n"
+"  YOU ARE IN THE TAGBOOTH AND STILL IN THE GAME WHEN YOU LOGIN\n"
+"  'tagsay'         Do a shout to the tagplayers\n"
+"  'tagwho'         See who is in the game and what room they are in\n"
+"  'tag'            Tag a player in the room\n"
+"Have fun!   Jubal\n");
  return 1;
}

tagwho() {
  object a,tag;
  int i,c,pts;

  c=0;
  a=users();
  write("  pts  Super-Tag Players:\n"+BORDER);
  for(i=0;i<sizeof(a);i++)
    if(a[i] && (tag=present("__tag",a[i]))) {
      pts=tag->query_points();
      if(pts<10) write("  "); else if(pts<100) write(" ");
      else if(pts<1000) write(" ");
      write(pts+"   "+a[i]->query_name());
      write(" is hiding in: "+environment(a[i])->short(1));
      if(tag->query_lasttag())
        write(",  last tagged: "+tag->query_lasttag()+"\n");
/*
      else if(tag->query_killedby())
        write(",  tagged by:   "+tag->query_killedby()+"\n");
*/
      else write("\n");
      c++;
    }
  if(c==1)
    return write(BORDER+"There is only one Super-Tag player\n\n");
  write(BORDER+"There are "+c+" people playing Super-Tag\n\n");
  return 1;
}

tagsay(arg) {
  if(!arg) return write("Usage: tagsay <what>\n");
  tagshout(this_player()->query_name()+" tagsays: "+arg+"\n",1);
  return write("You tagsay: "+arg+"\n");
}

tagshout(str,inroomtoo) {
  object a;
  int i;

  a=users();
  for(i=0;i<sizeof(a);i++)
    if(a[i] && present("__tag",a[i]))
      if(a[i]!=this_player()
         && (inroomtoo || environment(a[i])!=environment(this_player())))
           tell_object(a[i],str);
  return 1;
}

register() {
  if(present("__tag",this_player())) {
    write("You are already in the game.\n");
    return 1;
  }
  write("You join the game!\n");
  say(this_player()->query_name()+" joins the game!\n");
  tagshout(this_player()->query_name()+" joins the game!\n",0);
  move_object(clone_object(TAGOBJ_FILE),this_player());
  return 1;
}

deregister() {
  object tag;

  if(tag=present("__tag",this_player())) {
    if(tag->query_points()==1) {
      write("You quit without tagging anyone!\n");
      say(this_player()->query_name()+" quits without tagging anyone!\n");
      tagshout(this_player()->query_name()+" quits without tagging anyone!\n");
    } else {
      write("You leave the game with "+tag->query_points()+" points.\n");
      say(this_player()->query_name()+" leaves the game with "
            +tag->query_points()+" points.\n");
      tagshout(this_player()->query_name()+" leaves the game with "
            +tag->query_points()+" points.\n",0);
    }
#ifdef LOG_FILE
    if(tag->query_points()>=LOGPOINTS)
      log_file(LOG_FILE,this_player()->query_name()+" quits with "
               +tag->query_points()+" points.\n");
#endif
    destruct(tag);
  } else write("You aren't playing.\n");
  return 1;
}