<?php
/*	program VERB.C						*/
/*	WARNING: "advent.c" allocates GLOBAL storage space by	*/
/*		including "advdef.h".				*/
/*		All other modules use "advdec.h".		*/


//#include	"stdio.h"	/* drv = 1.1st file 2.def 3.A	*/
//#include	"advent.h"
//#include	"advdec.h"


/*
	Routine to process a transitive verb
*/
function trverb()
{
global $verb,$CALM,$WALK,$QUIT,$SCORE,$FOO,$BRIEF,$SUSPEND,$HOURS,$LOG,$TAKE,$DROP,$OPEN;
global $LOCK,$SAY,$NOTHING,$ON,$OFF,$WAVE,$KILL,$POUR,$EAT,$DRINK,$RUB,$LAMP,$THROW;
global $FEED,$FIND,$FILL,$INVENTORY,$READ,$BLAST,$BREAK,$WAKE;
	switch($verb){
	case $CALM:
	case $WALK:
	case $QUIT:
	case $SCORE:
	case $FOO:
	case $BRIEF:
	case $SUSPEND:
	case $HOURS:
	case $LOG:
		actspk($verb);
		break;
	case $TAKE:
		vtake();
		break;
	case $DROP:
		vdrop();
		break;
	case $OPEN:
	case $LOCK:
		vopen();
		break;
	case $SAY:
		vsay();
		break;
	case $NOTHING:
		rspeak(54);
		break;
	case $ON:
		von();
		break;
	case $OFF:
		voff();
		break;
	case $WAVE:
		vwave();
		break;
	case $KILL:
		vkill();
		break;
	case $POUR:
		vpour();
		break;
	case $EAT:
		veat();
		break;
	case $DRINK:
		vdrink();
		break;
	case $RUB:
		if (object != $LAMP)
			rspeak(76);
		else
			actspk($RUB);
		break;
	case $THROW:
		vthrow();
		break;
	case $FEED:
		vfeed();
		break;
	case $FIND:
	case $INVENTORY:
		vfind();
		break;
	case $FILL:
		vfill();
		break;
	case $READ:
		vread();
		break;
	case $BLAST:
		vblast();
		break;
	case $BREAK:
		vbreak();
		break;
	case $WAKE:
		vwake();
		break;
	default:
		buffprint("This verb is not implemented yet."); buffprint("\n");
	}
}

/*
	CARRY TAKE etc.
*/
function vtake()
{
global $object,$verb,$PLANT,$prop,$BEAR,$CHAIN,$fixed,$WATER,$OIL,$BOTTLE,$holding;
global $BIRD,$CAGE,$loc,$place;
	$msg=0;
	$i=0;

	if (toting($object)) {
		actspk($verb);
		return;
	}
	/*
	   special case objects and fixed objects
	*/
	$msg = 25;
	if ($object == $PLANT && $prop[$PLANT] <= 0)
		$msg = 115;
	if ($object == $BEAR && $prop[$BEAR] == 1)
		$msg = 169;
	if ($object == $CHAIN && $prop[$BEAR] != 0)
		$msg = 170;
	if ($fixed[$object]) {
		rspeak($msg);
		return;
	}
	/*
	   special case for liquids
	*/
	if ($object == $WATER || $object == $OIL) {
		if (!here($BOTTLE) || liq() != $object) {
			$object = $BOTTLE;
			if (toting($BOTTLE)&&$prop[$BOTTLE] == 1){
				vfill();
				return;
			}
			if ($prop[$BOTTLE] != 1)
				$msg = 105;
			if (!toting($BOTTLE))
				$msg = 104;
			rspeak($msg);
			return;
		}
		$object = $BOTTLE;
	}
	if ($holding >= 7) {
		rspeak(92);
		return;
	}
	/*
	   special case for bird.
	*/
	if ($object == $BIRD && $prop[$BIRD] == 0) {
		if (toting($ROD)) {
			rspeak(26);
			return;
		}
		if (!toting($CAGE)) {
			rspeak(27);
			return;
		}
		$prop[$BIRD] = 1;
	}
	if ( ($object == $BIRD || $object == $CAGE) &&
		$prop[$BIRD] != 0)
		carry(($BIRD+$CAGE)-$object,$loc);
	carry($object,$loc);
	/*
	   handle liquid in bottle
	*/
	$i = liq();
	if ($object == $BOTTLE && $i != 0)
		$place[$i] = -1;
	rspeak(54);
}

/*
	DROP etc.
*/
function vdrop()
{
global $ROD2,$ROD,$object,$verb,$BIRD,$SNAKE,$COINS,$VEND,$BATTERIES,$DRAGON;
global $tally2,$BEAR,$TROLL,$MAXOBJ,$TROLL2,$CHASM,$VASE,$PILLOW,$prop,$fixed,$loc;
	$i=0;

	/*
	   check for dynamite
	*/
	if (toting($ROD2) && $object == $ROD && !toting($ROD))
		$object = $ROD2;
	if (!toting($object)){
		actspk($verb);
		return;
	}
	/*
	   snake and bird
	*/
	if ($object == $BIRD && here($SNAKE)) {
		rspeak(30);
		if ($closed)
			dwarfend();
		dstroy($SNAKE);
		$prop[$SNAKE] = -1;
	}
	/*
	   coins and vending machine
	*/
	else if (object == $COINS && here($VEND)) {
		dstroy($COINS);
		drop($BATTERIES,loc);
		pspeak($BATTERIES,0);
		return;
	}
	/*
	   bird and dragon (ouch!!)
	*/
	else if ($object == $BIRD && at($DRAGON) && $prop[$DRAGON] == 0){
		rspeak(154);
		dstroy($BIRD);
		$prop[$BIRD] = 0;
		if ($place[$SNAKE] != 0)
			++$tally2;
		return;
	}
	/*
	   Bear and troll
	*/
	if ($object == $BEAR && at($TROLL)) {
		rspeak(163);
		move($TROLL,0);
		move(($TROLL+$MAXOBJ),0);
		move($TROLL2,117);
		move(($TROLL2+$MAXOBJ),122);
		juggle($CHASM);
		$prop[$TROLL] = 2;
	}
	/*
	   vase
	*/
	else if ($object == $VASE) {
		if ($loc == 96)
			rspeak(54);
		else {
			$prop[$VASE] = at($PILLOW) ? 0 : 2;
			pspeak($VASE,$prop[$VASE]+1);
			if ($prop[$VASE] != 0)
				$fixed[$VASE] = -1;
		}
	}
	/*
	   handle liquid and bottle
	*/
	$i = liq();
	if ($i == $object)
		$object = $BOTTLE;
	if ($object == $BOTTLE && $i != 0)
		$place[$i] = 0;
	/*
	   handle bird and cage
	*/
	if ($object == $CAGE && $prop[$BIRD] != 0)
		drop($BIRD,$loc);
	if ($object == $BIRD)
		$prop[$BIRD] = 0;
	drop($object,$loc);
	rspeak(54); // OK
}

/*
	LOCK, UNLOCK, OPEN, CLOSE etc.
*/
function vopen()
{
global $CLAM,$OYSTER,$object,$verb,$LOCK,$TRIDENT,$PEARL,$DOOR,$prop,$CAGE,$KEYS;
global $CHAIN,$loc,$fixed,$BEAR,$GRATE,$KEYS,$closing,$panic,$clock2;
	$msg=$oyclam=0;

	switch($object) {
	case $CLAM:
	case $OYSTER:
		$oyclam = ($object == $OYSTER ? 1 : 0);
		if ($verb == $LOCK)
			$msg = 61;
		else if (!toting($TRIDENT))
			$msg = 122+$oyclam;
		else if (toting($object))
			$msg = 120+$oyclam;
		else {
			$msg = 124+$oyclam;
			dstroy($CLAM);
			drop($OYSTER,loc);
			drop($PEARL,105);
		}
		break;
	case $DOOR:
		$msg = ($prop[$DOOR] == 1 ? 54 : 111);
		break;
	case $CAGE:
		$msg = 32;
		break;
	case $KEYS:
		$msg = 55;
		break;
	case $CHAIN:
		if (!here($KEYS))
			$msg = 31;
		else if ($verb == $LOCK) {
			if ($prop[$CHAIN] != 0)
				$msg = 34;
			else if ($loc != 130)
				$msg = 173;
			else {
				$prop[$CHAIN] = 2;
				if (toting($CHAIN))
					drop($CHAIN,$loc);
				$fixed[$CHAIN] =  -1;
				$msg = 172;
			}
		}
		else {
			if ($prop[$BEAR] == 0)
				$msg = 41;
			else if ($prop[$CHAIN] == 0)
				$msg = 37;
			else {
				$prop[$CHAIN] = 0;
				$fixed[$CHAIN] = 0;
				if ($prop[$BEAR] != 3)
					$prop[$BEAR] = 2;
				$fixed[$BEAR] = 2-$prop[$BEAR];
				$msg = 171;
			}
		}
		break;
	case $GRATE:
		if (!here($KEYS))
			$msg = 31;
		else if ($closing) {
			if (!$panic) {
				$clock2 = 15;
				++$panic;
			}
			$msg = 130;
		}
		else {
			$msg = 34+$prop[$GRATE];
			$prop[$GRATE] = ($verb == $LOCK ? 0 : 1);
			$msg += 2*$prop[$GRATE];
		}
		break;
	default:
		$msg = 33;
	}
	rspeak($msg);
}

/*
	SAY etc.
*/
function vsay()
{
global $SAY,$word1,$word2;
	$wtype=$wval=0;

	analyze($word1,$wtype,$wval);
	if ($wval == $SAY) $text=$word2; 
	else $text=$word1;
	buffprint("Okay.\n$text"); buffprint("\n");
}

/*
	ON etc.
*/
function von()
{
global $LAMP,$verb,$limit,$prop,$wzdark;
	if (!here($LAMP))
		actspk($verb);
	else if ($limit<0)
		rspeak(184);
	else {
		$prop[$LAMP] = 1;
		rspeak(39);
		if ($wzdark) {
			$wzdark = 0;
			describe();
			descitem();
		}
	}
}

/*
	OFF etc.
*/
function voff()
{
global $LAMP,$verb,$prop;
	if (!here($LAMP))
		actspk($verb);
	else {
		$prop[$LAMP] = 0;
		rspeak(40);
	}
}

/*
	WAVE etc.
*/
function vwave()
{
global $object,$ROD,$ROD2,$FISSURE,$closing,$verb,$prop;
	if (!toting($object) &&
	   ($object != $ROD || !$toting($ROD2)))
		rspeak(29);
	else if ($object != $ROD || !at($FISSURE) ||
		!toting($object) || $closing)
		actspk($verb);
	else {
		$prop[$FISSURE] = 1-$prop[$FISSURE];
		pspeak($FISSURE,2-$prop[$FISSURE]);
	}
}

/*
	ATTACK, KILL etc.
*/
function vkill()
{
global $object,$BIRD,$place,$prop,$tally2,$CLAM,$OYSTER,$SNAKE,$DWARF,$closed,$STROLL,$BEAR,$DRAGON,$RUG,$MAXOBJ;
global $place,$newloc,$verb,$answer49;
	$msg=0;
	$i=0;

	switch($object) {
	case $BIRD:
		if ($closed)
			$msg = 137;
		else {
			dstroy($BIRD);
			$prop[$BIRD] = 0;
			if ($place[$SNAKE] == 19)
				++$tally2;
			$msg = 45;
		}
		break;
	case 0:
		$msg = 44;
		break;
	case $CLAM:
	case $OYSTER:
		$msg = 150;
		break;
	case $SNAKE:
		$msg = 46;
		break;
	case $DWARF:
		if ($closed)
			dwarfend();
		$msg = 49;
		break;
	case $TROLL:
		$msg = 157;
		break;
	case $BEAR:
		$msg = 165+($prop[$BEAR]+1)/2;
		break;
	case $DRAGON:
		if ($prop[$DRAGON] != 0) {
			$msg = 167;
			$break;
		}
		list($answer49,$ok)=yes(49,0,0);
		if ($answer49 && !$ok) break;
		pspeak($DRAGON,1);
		$prop[$DRAGON] = 2;
		$prop[$RUG] = 0;
		move(($DRAGON+$MAXOBJ),-1);
		move(($RUG+$MAXOBJ),0);
		move($DRAGON,120);
		move($RUG,120);
		for($i = 1;$i<$MAXOBJ;++$i)
			if ($place[$i] == 119 || $place[$i] == 121)
				move($i,120);
		$newloc = 120;
		return;
	default:
		actspk($verb);
		return;
	}
	rspeak($msg);
}

/*
	POUR
*/
function vpour()
{
global $object,$BOTTLE,$verb,$OIL,$WATER,$PLANT,$PLANT2,$DOOR,$prop;
	if ($object == $BOTTLE || $object == 0)
		$object = liq(0);
	if ($object == 0) {
		needobj();
		return;
	}
	if (!toting($object)) {
		actspk($verb);
		return;
	}
	if ($object != $OIL && $object != $WATER) {
		rspeak(78);
		return;
	}
	$prop[$BOTTLE] = 1;
        move($object,0);
	if (at($PLANT)) {
		if ($object != $WATER)
			rspeak(112);
		else {
		        move($WATER,0);
			pspeak($PLANT,$prop[$PLANT]+1);
			$prop[$PLANT] = ($prop[$PLANT]+2)%6;
			$prop[$PLANT2] = $prop[$PLANT]/2;
			describe();
		}
	}
	else if (at($DOOR)) {
		$prop[$DOOR] = ($object == $OIL ? 1 : 0);
		rspeak(113+$prop[$DOOR]);
	}
	else
		rspeak(77);
}

/*
	EAT
*/
function veat()
{
global $object,$FOOD,$BIRD,$SNAKE,$CLAM,$OYSTER,$DWARF,$DRAGON,$TROLL,$BEAR,$verb;
	$msg=0;

	switch($object) {
	case $FOOD:
		dstroy($FOOD);
		$msg = 72;
		break;
	case $BIRD: case $SNAKE: case $CLAM: case $OYSTER:
	case $DWARF: case $DRAGON: case $TROLL: case $BEAR:
		$msg = 71;
		break;
	default:
		actspk($verb);
		return;
	}
	rspeak($msg);
}

/*
	DRINK
*/
function vdrink()
{
global $object,$WATER,$BOTTLE,$prop,$place;
	if ($object != $WATER)
		rspeak(110);
	else if (liq() != $WATER || !here($BOTTLE))
		actspk($verb);
	else {
		$prop[$BOTTLE] = 1;
		$place[$WATER] = 0;
		rspeak(74);
	}
}

/*
	THROW etc.
*/
function vthrow()
{
global $ROD2,$object,$ROD,$verb,$TROLL,$MAXOBJ,$TROLL2,$CHASM,$FOOD,$BEAR,$AXE,$dseen,$dloc,$dkill;
global $DRAGON,$KILL,$loc;
	$msg=0;
	$i=0;

	if (toting($ROD2) && $object == $ROD && !toting($ROD))
		$object = $ROD2;
	if (!toting($object)) {
		actspk($verb);
		return;
	}
	/*
	   treasure to troll
	*/
	if (at($TROLL) && $object >= 50 && $object<$MAXOBJ) {
		rspeak(159);
		drop($object,0);
		move($TROLL,0);
		move(($TROLL+$MAXOBJ),0);
		drop($TROLL2,117);
		drop(($TROLL2+$MAXOBJ),122);
		juggle($CHASM);
		return;
	}
	/*
	   feed the bears...
	*/
	if ($object == $FOOD && here($BEAR)) {
		$object = $BEAR;
		vfeed();
		return;
	}
	/*
	   if not axe, same as drop...
	*/
	if ($object != $AXE) {
		vdrop();
		return;
	}
	/*
	   AXE is THROWN
	*/
	/*
	   at a dwarf...
	*/
	if ($i = dcheck()) {
		$msg = 48;
		if (pct(33)) {
			$dseen[$i] = $dloc[$i] = 0;
			$msg = 47;
			++$dkill;
			if ($dkill == 1)
				$msg = 149;
		}
	}
	/*
	   at a dragon...
	*/
	else if (at($DRAGON) && $prop[$DRAGON] == 0) 
		$msg = 152;
	/*
	   at the troll...
	*/
	else if (at($TROLL))
		$msg = 158;
	/*
	   at the bear...
	*/
	else if (here($BEAR) && $prop[$BEAR] == 0) {
		rspeak(164);
		drop($AXE,$loc);
		$fixed[$AXE] = -1;
		$prop[$AXE] = 1;
		juggle($BEAR);
		return;
	}
	/*
	   otherwise it is an attack
	*/
	else {
		$verb = $KILL;
		$object = 0;
		itverb();
		return;
	}
	/*
	   handle the left over axe...
	*/
	rspeak($msg);
	drop($AXE,$loc);
	describe();
}

/*
	INVENTORY, FIND etc.
*/
function vfind()
{
global $object,$dflag,$DWARF,$BOTTLE,$loc,$verb;
	$msg=0;
	if (toting($object))
		$msg = 24;
	else if ($closed)
		$msg = 138;
	else if (dcheck() && $dflag >= 2 && $object == $DWARF)
		$msg = 94;
	else if (at($object) ||
		(liq() == $object && here($BOTTLE)) ||
		object == liqloc($loc))
		$msg = 94;
	else {
		actspk($verb);
		return;
	}
	rspeak($msg);
}

/*
	FILL
*/
function vfill()
{
global $object,$BOTTLE,$prop,$cond,$loc,$WATOIL,$place,$OIL,$VASE;
	$msg=0;
	$i=0;

	switch($object) {
	case $BOTTLE:
		if (liq() != 0)
			$msg = 105;
		else if (liqloc(loc) == 0)
			$msg = 106;
		else {
			$prop[$BOTTLE] = $cond[$loc] & $WATOIL;
			$i = liq();
			if (toting($BOTTLE))
				$place[$i] = -1;
			$msg = ($i == $OIL ? 108 : 107);
		}
		break;
	case $VASE:
		if (liqloc($loc) == 0) {
			$msg = 144;
			break;
		}
		if (!toting($VASE)) {
			$msg = 29;
			break;
		}
		rspeak(145);
		vdrop();
		return;
	default:
		$msg = 29;
	}
	rspeak($msg);
}

/*
	FEED
*/
function vfeed()
{
global $object,$BIRD,$DWARF,$FOOD,$verb,$dflag,$BEAR,$prop,$verb,$AXE,$DRAGON,$TROLL,$closed,$tally2;
	$msg=0;

	switch($object) {
	case $BIRD:
		$msg = 100;
		break;
	case $DWARF:
		if (!here($FOOD)) {
			actspk($verb);
			return;
		}
		++$dflag;
		$msg = 103;
		break;
	case $BEAR:
		if (!here($FOOD)) {
			if ($prop[$BEAR] == 0)
				$msg = 102;
			else if ($prop[$BEAR] == 3)
				$msg = 110;
			else {
				actspk($verb);
				return;
			}
		break;
		}
		dstroy($FOOD);
		$prop[$BEAR] = 1;
		$fixed[$AXE] = 0;
		$prop[$AXE] = 0;
		$msg = 168;
		break;
	case $DRAGON:
		$msg = ($prop[$DRAGON] != 0 ? 110 : 102);
		break;
	case $TROLL:
		$msg = 182;
		break;
	case $SNAKE:
		if ($closed || !here($BIRD)) {
			$msg = 102;
			break;
		}
		$msg = 101;
		dstroy($BIRD);
		$prop[$BIRD] = 0;
		++$tally2;
		break;
	default:
		$msg = 14;
	}
	rspeak($msg);
}

/*
	READ etc.
*/
function vread()
{
global $object,$MAGAZINE,$TABLET,$MESSAGE,$OYSTER,$verb;
	$msg=0;

	$msg = 0;
	if (dark()) {
		buffprint(sprintf("I see no %s here.\n",probj($object))); buffprint("\n");
		return;
	}
	switch($object) {
	case $MAGAZINE:
		$msg = 190;
		break;
	case $TABLET:
		$msg = 196;
		break;
	case $MESSAGE:
		$msg = 191;
		break;
	case $OYSTER:
		if (!toting($OYSTER) || !closed)
			break;
		yes(192,193,54);
		return;
	default:
		;
	}
	if ($msg)
		rspeak($msg);
	else
		actspk($verb);
}

/*
	BLAST etc.
*/
function vblast()
{
global $prop,$ROD2,$verb,$closed,$bonus,$loc;
	if ($prop[$ROD2] < 0 || !$closed)
		actspk($verb);
	else {
		$bonus = 133;
		if ($loc == 115)
			$bonus = 134;
		if (here($ROD2))
			$bonus = 135;
		rspeak($bonus);
		normend();
	}
}

/*
	BREAK etc.
*/
function vbreak()
{
global $object,$MIRROR,$VASE,$prop,$fixed,$verb;
	$msg=0;
	if (object == $MIRROR) {
		$msg = 148;
		if ($closed) {
			rspeak(197);
			dwarfend();
		}
	}
	else if ($object == $VASE && $prop[$VASE] == 0) {
		$msg = 198;
		if (toting($VASE))
			drop($VASE,loc);
		$prop[$VASE] = 2;
		$fixed[$VASE] = -1;
	}
	else {
		actspk($verb);
		return;
	}
	rspeak($msg);
}

/*
	WAKE etc.
*/
function vwake()
{
global $object,$DWARF,$verb;
	if ($object != $DWARF || !$closed)
		actspk($verb);
	else {
		rspeak(199);
		dwarfend();
	}
}

/*
	Routine to speak default verb message
*/
function actspk($verb)
{
global $verb,$actmsg;
	$i=0;

	if ($verb<1 || $verb>31)
		bug(39);
	$i = $actmsg[$verb];
	if ($i)
		rspeak($i);
}

/*
	Routine to indicate no reasonable
	object for verb found.  Used mostly by
	intransitive verbs.
*/
function needobj()
{
global $word1,$word2;
	$wtype=$wval=0;

	analyze($word1,$wtype,$wval);
	if ($wtype == 2) $text=$word1; 
	else $text=$word2;
	buffprint("$text what?"); 
	buffprint("\n");
}

 

?>