Constant Story "A Walk In The Park";
Constant Headline "^An Interactive Stroll Originally by Bob Pelak^
                    Changed by Al^^";
                   
global leak_cap;
global water_leak;                  
                   
Replace CommandsOnSub;
Replace CommandsOffSub;
Replace ScriptOnSub;
Replace NotifyOnSub;
Replace NotifyOffSub;
Replace ScoreSub;

Include "Parser";
Include "WaterElement";
Include "Smartcantgo";
Include "VerbLib";
Include "Grammar";


[Initialise;
location = Park_Entrance;
lookmode=2;
Water_Init();
notify_mode = 0;
move Sponge to Bkt;
print "^It's a beautiful day in the neighborhood, and so, 
rather than waste it in front of a computer terminal, you've 
decided to go for...^^";];

Class Room
has light
;


Room Park_Entrance "Park Entrance"
with description "You are standing just within the bounds of Putnam 
Park. A gateway of wrought iron stands to the 
  northeast, marking the entrance to the grounds. 
  A wide footpath lined with low shrubs leads to the 
  southwest.",
  sw_to Pathway,
  cant_go [;SmartCantGo();],
has light;

Object -> gateway "wrought iron gateway"
with name "archway" "arch" "gate" "gateway" "iron" "wrought",
description "The gateway is formed from a dozen or so strands of 
iron that weave their way to a height of about twelve 
feet before they stretch across the path.  Regular 
coats of black paint have prevented any rust from 
forming, preserving it so that it appears as it did 
when it was erected some seventy years ago.",

before[; 
smell: "The gateway smells of fresh black paint.";
Take, Push, Pull, Turn:
"The archway is firmly planted in the ground.";],

has static
;

Object  Shrubs "Low Shrubs"
with name 'shrubs',
article "some",
description "A bunch of knee-high shrubs lines the pathway.",
found_in Park_Entrance Pathway,
has static scenery
;

Room Pathway "Pathway"
with description "You are on an unpaved pathway within Putnam Park. 
Off to the northeast you can see an entrance to the park, while to
the southwest, you can make out a fountain. Low shrubs line both sides of the path.",

ne_to Park_Entrance,
sw_to Fountain_Area,
has light
;

Room Fountain_Area "Fountain Area"
with description
[; if (self hasnt visited)
{move water to Fountain;
move wine to Fountain;
"You have reached the area with the fountain.^";};],
 
ne_to Pathway
has light
;

Object Fountain "Fountain"
with name 'fountain',
description [;
if (player in Pathway) 
"You'll have to travel to the Fountain Area in order to do that  more thoroughly."; 
"Water and wine gush endlessly from the vaginal areas of the 2 nude female 
figures in this beautiful fountain creating a water-wine mixture.";],

describe [;
if (player in Pathway) "";
if (player in Fountain_Area)
"A beautiful fountain with 2 nude female statues sits here.";],

before [;
enter:
if (player in Pathway) "not from here you don't!";
"You wouldn't want to wet that nice suit of clothes now would ya?";
 
swim:
if (player in Pathway) "not from here you don't!";
"You forgot your bathing suit and nudity is prohibited in R*IF.";],

found_in Pathway Fountain_Area,
has static enterable open transparent container
;

Object  Hammer "Hammer" Fountain_Area
with name 'hammer',
description "plain hammer",
describe [; "There is a plain hammer here.";],
has floater 
;

Object  Saw "Saw"  Fountain_Area
with name 'saw',
description "plain saw",
describe [; "There is a plain saw here.";],
has floater 
;

Object  Nails "Nails"  Fountain_Area
with name 'nails',
article "a bunch of",
description "a bunch of nails",
describe [; "There is a bunch of nails here.";],
has floater 
;

Object  Bkt "Bucket" Fountain_Area
with name  'bucket',
description "A bucket that can be used to hold liquids.",
describe [;
if (sponge in self) "There is a bucket here (with a sponge inside it)";
"There is a bucket here.";],
has container transparent open 
;

[CommandsOnSub;
"Recording disabled.";];

[CommandsOffSub;
"Recording disabled.";];

[ScriptOnSub;
"Scripting disabled.";];

[NotifyOnSub;
"Score notification disabled.";];

[NotifyOffSub;
"Score notification disabled.";];

[ScoreSub;
"There is no score in this game.";];



Extend 'squeeze' * noun 'into'/'in'/'on'/'onto'/'over' noun -> SqueezeInto;