#include "exits.h"
#include "undef.h"
#include "special.h"

Zone		= limbo
Author		= "Unknown"
EndZone		= limbo




Object		= bcorpse
Name	= "corpse"
Altname	= "body"
Location	= IN_ROOM:limbo@limbo
BaseValue		= 0
Size		= 20
Weight		= 30
State		= 0
MaxState	= 0
Desc0		= "A heavily mutilated corpse lies here on the floor."
OFlags		= NoGet, Container
Trap		= all
@
catch_eet
{
   bprintf("What are you? A canibal?\n");
}
@
EndTrap
EndObject		= bcorpse

Object            = koosh
Location	= IN_ROOM:limbo@limbo
BaseValue          = 0
Size            = 0
Weight          = 0
Desc0         = "A koosh ball lies here, wanting you to toss it to someone."
Examine         = "
The kooshball is a wonderful toy.  It is soft and loves to be tossed around."
Trap		= all
@
   switch(event) {
   case E_ONMISC:
      if (param_s.misc == VERB_KOOSH)
      {  if (pl2 == -1)
         {
             bprintf("Toss the koosh to who?\n");
             fail(-1);
         }
         else if (iscarrby(OBJ_LIMBO_KOOSH, mynum))
         {
             bprintf ("You toss %s the koosh ball.\n", him_or_her (pl1));
             sillytp(pl2, "tosses you a koosh ball.\n");
             send_msg(ploc(pl2), 0, LVL_MIN, LVL_MAX, pl2, mynum, "\001p%s\003 tosses \001p%s\003 the koosh ball.\n", pname(mynum), pname(pl2));
             setoloc(OBJ_LIMBO_KOOSH, pl1, CARRIED_BY);
             fail(-1);
         }
         break;
      }
   default: break;
   }
@
EndTrap
EndObject             = koosh

Object            = Crater
Location	= IN_ROOM:limbo@limbo
OFlags		= noget
MaxState        = 0
BaseValue          = 0
Desc0         = "A small crater has been blasted into the ground."
EndObject             = Crater

Object		= rope
Altname	= "ladder"
Location	= IN_ROOM:limbo@limbo
OFlags		= Destroyed, Rope
MaxState	= 2
BaseValue 		= 30
Desc0		= "A coiled rope ladder lies here."
Desc1		= "A rope has been coiled here."
Desc2		= "A knotted rope has been coiled here."
Trap		= all
@
   switch(event) {
   case E_ONTHROW:
      if (ploc(param_s.plx) == LOC_LEDGE_ON)
	{
	  bprintf("The rope fails to catch on the ledge.\n");
	  param_s.ret = -1;
	}
      if (ploc(param_s.plx) == LOC_VALLEY_STEPS)
	{
	  if (state(OBJ_VALLEY_ROPEEAST) == 1)
	    {
	      bprintf("The rope catches on the other side of the ledge and seems secure.\n");
	      destroy(param_s.ob);
	      setobjstate(OBJ_VALLEY_ROPEEAST, 0);
	      param_s.ret = -1;
	    }
	  else
	    {
	      bprintf("Why do you want to do that?  There is already a rope here.\n");
	      param_s.ret = -1;
	    }
	}
      if (ploc(param_s.plx) == LOC_LEDGE_PIT || ploc(param_s.plx) == LOC_MOOR_PIT)
	{
	  if (state(OBJ_LEDGE_ROPEBOTPIT) == 1)
	    {
	      if (ploc(param_s.plx) == LOC_LEDGE_PIT)
		bprintf("The rope catches high on the lip of the pit.\n");
	      else
		bprintf("The rope now leads down the pit.\n");
	      destroy(param_s.ob);
	      setobjstate(OBJ_LEDGE_ROPEBOTPIT, 0);
	      param_s.ret = -1;
	    }
	  else
	    {
	      bprintf("Why do you want to do that?  There is already a rope here.\n");
	      fail(-1);
	    }
	}
     break;   
  case E_ONTIE:
      if (param_s.loc == LOC_VALLEY_ESIDE || param_s.loc == LOC_TREEHOUSE_TREEHOUSE_1)
      {   setobjstate(OBJ_TREEHOUSE_LADDER,0);
          oclrbit(OBJ_TREEHOUSE_LADDER,OFL_DESTROYED);
          oclrbit(OBJ_VALLEY_LADDER2ELF,OFL_DESTROYED);
          bprintf("You tie the rope ladder to the tree.\n");
          destroy(param_s.misc);
          send_msg(ploc(mynum),MODE_NOBLIND,LVL_MIN,LVL_MAX,mynum,NOBODY,
                   "\001p%s\003 ties the rope to the tree.\n",pname(mynum));
          fail(-1);
       }
       else if (param_s.loc == LOC_VALLEY_STEPS || param_s.loc == LOC_LEDGE_ON)
       {  setobjstate(OBJ_VALLEY_ROPEEAST, 0);
          oclrbit(OBJ_VALLEY_ROPEEAST, OFL_DESTROYED);
          oclrbit(OBJ_LEDGE_ROPEWEST, OFL_DESTROYED);
          setexit(LOC_VALLEY_STEPS, 1, LOC_LEDGE_ON);
          setexit(LOC_LEDGE_ON, 3, LOC_VALLEY_STEPS);
          bprintf("You tie the rope over the gap.\n");
          destroy(param_s.misc);
          send_msg(ploc(mynum), MODE_NSFLAG|MS(SFL_BLIND), LVL_MIN, LVL_MAX,
	     mynum, NOBODY, "\001p%s\003 ties the rope over the gap.\n",
	     pname(mynum));
          fail(-1);
       }
       break;
   default:
     break;
   }
@
EndTrap
EndObject		= rope

Object		= bboard
Name	= "board"
Location	= IN_ROOM:haven@haven
OFlags		= NoGet
Desc0		= "A bulletin board is hanging on the wall here."
EndObject		= bboard

Object		= searchboard
Name	= "board"
Location	= IN_ROOM:Stable@TheNewWorld
OFlags		= NoGet
Desc0		= "The Singles board is hanging on the wall here."
EndObject		= searchboard

Object		= wiz_bboard
Name	= "board"
Location	= IN_ROOM:Chat@home
OFlags		= NoGet
Desc0		= "A bulletin board is hanging on the wall here."
EndObject		= wiz_bboard

Object		= awiz_bboard
Name	= "board"
Location	= IN_ROOM:powers_1@powers
OFlags		= NoGet
Desc0		= "A bulletin board is hanging on the wall here."
EndObject		= awiz_bboard

Object		= god_bboard
Name	= "board"
Location	= IN_ROOM:powers_22@powers
OFlags		= NoGet
Desc0		= "A bulletin board is hanging on the wall here."
EndObject		= god_bboard

Object      	= reset
Location	= IN_ROOM:Limbo@limbo
BaseValue    	= -10
Size      	= 1
Weight    	= 1
Desc0   	= "A reset has been left here somewhere."
Examine   	= "
&+RReset in progress....
&+RReset Completed...."
EndObject       	= reset

Object            = Wodka
Location	= IN_ROOM:Limbo@limbo
BaseValue          = 0
Size            = 1
Desc0         = "Some Wodka has been left here."
Examine         = "
Wodka, 30 % alcohol"
OFlags		= Booze
EndObject             = Wodka

Object		= water
Location	= IN_ROOM:limbo@limbo
BaseValue		= 0
Size		= 2
Weight		= 2
Desc0		= "A puddle of water lies here."
Examine		= "
You hold a small amount of water in your hipflask."
Trap		= all
@
if (event == E_ONDROP)
{   destroy(THIS_OBJECT);
    if (ltstflg(ploc(THIS_PLAYER),LFL_ON_WATER) || ltstflg(ploc(THIS_PLAYER),LFL_IN_WATER))
       bprintf("You empty your hipflask in the water.\n");
    else
       bprintf("You empty your hipflask on the ground. The water seeps away.\n");
    fail(-1);
}
@
EndTrap
EndObject		= water


Location	= "limbo"
Title		= "&+WLimbo&*"
Desc		= ^
   You are floating in a formless void, detached from all sensation of physical
matter, surrounded by swirling glowing light, which fades into the relative
darkness around you without any trace of edges or shadow.
   There is a "&+rNo Tipping&*" notice pinned to the darkness.
^
EndLocation	= "limbo"

Location	= "under_construction"
Title		= "&+WWorld under construction&*"
Desc		= ^

	&+YTHERE IS A BLINKING CONSTRUCTION SIGN HERE&*.

				(or something)
^
EndLocation	= "under_construction"