!\---------------------------------------------------------------------------

		THE ITALIAN GARDEN
		Hugo 3 by Kent Tessman (c) 1995-1998
		and PGdE 2020-23

	an Italian garden for interactive messing
	Brief history: as the starting date points, was originally a pet project 
	during the 2020 lokdown, then shelved, but now (2023) I'm attempting to
	complete it once for all.

---------------------------------------------------------------------------\!


! I always include verb stub routines.
#set VERBSTUBS

! I don't need those; removed 4 story file compactness
#set NO_AUX_MATH
#set NO_MENUS

#ifset DEBUG
#switches -d
#endif

!add new verbs here, prior of including verblib.


#include "verblib.g"	! grammar must come first

#ifset PRECOMPILED_LIBRARY
#link "hugolib.hlb"
#else
#include "hugolib.h"
#endif


! INITIALISATION

routine init
{
	counter = -1
	STATUSTYPE = 1                  ! score/turns
	TEXTCOLOR = DEF_FOREGROUND
	BGCOLOR = DEF_BACKGROUND
	SL_TEXTCOLOR = DEF_SL_FOREGROUND
	SL_BGCOLOR = DEF_SL_BACKGROUND
	prompt = ">"
	color TEXTCOLOR, BGCOLOR

	cls
	! Italian pride mode ON - VIVA L' ITALIA !!
	"Somewhere in Central Italy, Early May of mid-2020s.\n
	Italy, with her three millennia of storied history, nearly always at
	the very top in the Arts, is basically an huge museum.\n
	Outside of the beaten path, there's many small museums and public gardens,
	whose are enjoyable and suggestive places, very quiet and inspiring, and
	on top of this, are often empty.\n
	This garden, nearby a small town somewhere in rural Italy, is a prime 
	example of this type of quiet and beautiful places,and after lunchtime in 
	a weekday, as happens in Italy, is not only empty and quiet, giving an 
	adventurous mood but also the wardens are really friendly, even by the 
	rather high Italian standards of friendliness, perhaps because a lone 
	visitor break their boredom.\n\n"
	Font(BOLD_ON | DEFAULT_FONT)
	"THE ITALIAN GARDEN"
	Font(BOLD_OFF)
	"An interactive outdoor afternoon in Italy\n"
	print BANNER
	print "Release 0.2,"; " as of "; serial$; !tiny trowback to early CP/M
	player = you	! player initialization
	location = entrance
	old_location = location        
	
	move player to location
	FindLight(location)
	DescribePlace(location)
	location is visited
	CalculateHolding(player)
	verbosity = 2 ! verbose rulez !!
	
! put ignition of fuses and daemons here

#ifset USE_PLURAL_OBJECTS
	InitPluralObjects
#endif
}

#ifset PRECOMPILED_LIBRARY
replace main
{
#else
routine main
{
#endif
	counter = counter + 1
	PrintStatusLine
	run location.each_turn
	runevents
	RunScripts
	if parent(speaking)~=location
		speaking = 0
}

!PLAYER

! The player char is the classical nameless & faceless one.
player_character you "you"
{nouns "me" "myself"
 long_desc {"An intelligent tourist, whose know where and what to visit\n
	(that is, not only avoiding the turist traps, but also capable of 
finding niftly places off the beaten path)"}
}


! ROOMS

room entrance "Garden's entrance"
{
 long_desc {"The garden's entrance. South of here, a gate leads out,
		and a path leads north."}
 s_to {"The afternoon is just begun, and let's stroll in the garden"}
 n_to xpath
}

room xpath "Crosspath"
{
 long_desc {"Here two separate paths split from the main one: one winding 
	eastward, one much less winding toward southwest, and lastly, the main
	path continues north."}
 n_to centre
 s_to entrance
 e_to roses
 sw_to patio
 }

room centre "Central rotunda"
{
 long_desc {"The central rotunda is at the very centre of the garden, and
	its centerpiece is the gazebo at the centre of the rotunda. Paths lead 
	to the four cardinal directions."}
 n_to mainpath
 s_to xpath
 e_to roses
 w_to ysplit
 in_to gazebo
}

room gazebo "Gazebo"
{
 long_desc {" Inside the gazebo, things are sadly to be fleshed..."}
 out_to centre
}

room mainpath "Main path, north"
{
 long_desc {"The main path continues north. A side path winds northwest"}
 n_to meadow
 s_to centre
 nw_to tree 
}

room meadow "meadow"
{
 long_desc {"Here the garden ends in a large verdant meadow, crossed by a tiny
	brook, gently sloping down east toward a pond, and not-so-gently 
	climbing up and west toward a terrace, reachable thru a staircase 
	carved into the side of the terrace, beside an artificial waterfall."}
	
! here will be the old single Breda 37/54
! undecided: perhaps there will be a tiny-teensy cave, one or two room(s) ?
 s_to mainpath
 w_to terrace 
 e_to pond
 u_to terrace
 d_to pond
}

room patio "Patio"
{
 long_desc {"The winding path opens into this graveled patio, 
	where in the summer concerts are played, and currently is 
	in slight disrepair, because the maintenance work will begin
	the next week.\n 
	South of here is a solarium, and north the winding path lead
	back to the crosspath."}
 n_to xpath
 s_to solarium
}

room solarium "Solarium"
{
 long_desc {"The solarium is kept acceptably well, considering that 
	the maintenance work will begin next week; it's a bit cramped 
	because the patio's furniture are stowed for the off season
	here, but is still an enjoyable spot.\n
	West a door leads into a small courtesy restroom."}
 n_to patio
 w_to {"You don't have much use for in indoor restrooms."}
! Perhaps imp the restroom ? and/or has a tool box/storage room ? if there's 
! a teensy cave, a modicum of light is needed...
}

room roses "Rose garden" 
{
 long_desc {"Here are scores of rose bushes, their variety of colours, 
	sizes and scents gives to this corner of the garden a magnificent 
	appareance, whose surely have netted not few awards and prizes.\n
	Anyway, two winding paths led south and northwest."}
 s_to xpath
 nw_to centre
}

room ysplit "Y bifurcation"
{
 long_desc {"Here the path split into a Y shaped bifurcation,
	nortwest and southwest respectively; East you can return to the
	central rotunda."}
 e_to centre
 sw_to tryst
 nw_to clearing
}

room tryst "Tryst corner" ! more logical place for a bust of Boccaccio...
{
 long_desc {"Here the trees and bushes form a discreet \"tryst corner\"
	and indeed is a very romantic spot, complete with a bench.\n 
	One must admit that the grass here is soft and confortable, and a stump
	gives.. oh, positional variety, so to speak..\n 
	ahem, east you can return to the bifurcation"}
 e_to ysplit
}

room clearing "clearing" !here will be statue of someone TBD
{
 long_desc {"The shades from the tall trees around give to this clearing
	a very peaceful and relaxing atmosphere. South you can return to 
	the bifurcation"}
 s_to ysplit
}

room tree "by the tree"
{
 long_desc {"This corner is easily a favorite one, because of the large and
	tall tree proudly standing at the centre of this roughly circular 
	clearing. \n
	West you can return to the main path."}
 w_to mainpath
}

room terrace "Terrace" 
{
 long_desc {"This terrace is sometimes used for picnic, (and occasional 
	trysting...) East and down, via the staircase, you can return back to
	the meadow you came from."}
 e_to meadow
 d_to meadow
}

room pond "By the pond" !swimmable ? tiny rock (loc) in the middle ?
{
 long_desc {"Here the brook flow into a crystalline pond, oval in shape and
	deep enough to be used as a natural swimming pool. West and up you can
	return to the meadow."} 
 w_to meadow
 u_to meadow
}


! OBJECTS BELOW HERE...

! SCENERY


! Solved thanks to "Juhana", Robb Sherwin & Roody.
scenery facade "facade"
{
 in patio



 nouns "facade"
 adjective "green", "solarium's"
 long_desc {"The facade of the solarium is painted in a light shade of green,
	so it blends well with the environment."}
}


! --- troublesome spot ends here, hopefully forever. ---
scenery sign "sign"
{
 in entrance
 nouns "sign"
 long_desc {"The sign is painted blue with silver lettering."}
 is readable
 before 
 {
  object doRead 
	{"The Italian text here is rather elaborate, and a bit archaic, but the 
gist of it is that this garden's grand opening was in the year 1888"}
 }
}

scenery bushes "rose bushes"
{
 in roses
 nouns "bushes" 
 long_desc {"The bushes are a metre tall, and full of roses of practically
	all the colours conceivable."}
 before
 {
  object DoSmell
	{"I smell the bushes one by one, and indeed the variety of perfumes rival
	the variety of colours and shapes."}
 }
}

scenery flowbed "flower bed"
{
 in clearing
 nouns "flowerbed" 
 long_desc {"The composition of the flowerbed give it a huge variety of
	colours and shapes, but what really matter is the relaxing scent.
	This is definitively the product of a very capable gardening"}
 before
 {
  object DoSmell
	{"The aroma of the flowerbed is very relaxing; sooner will even rival
	the aroma of meditating incense."}
 }
}


! def verb routines

routine DoRead
{
 "there's no writings."
 return true
}