interact = [
	[0, 36, "worldmap"],
	[28, 23, "cheese_farm"],
]
npc = [
	[35,7,'F', 'F', 'frog','random_movement','green_black'],
	[27,30,'l', 'l', 'landlord', 'random_movement', 'cyan_black'],
	[ 34, 39, "S", 'S', "bush", "none", "red_green"],
]
map_script = """
if (exists $game_vars{witch} and $game_vars{witch} >= 3) {
	delete $npcs{F};
}
if (exists $game_vars{shrubbery} and $game_vars{shrubbery} >= 2) {
	delete $npcs{S};
}
"""

[npc_movements]
none=['w']
[objects]
worldmap = "teleport('worldmap', 30,9)"
frog = """
if (exists $game_vars{witch} and $game_vars{witch} == 2) {
	$game_vars{witch} = 3;                               
	addch($npcs{F}->[0], $npcs{F}->[1], ' '); # put whitespace over
	delete $npcs{F};                                   
	dialog('',qq(You've acquired: "Frog"\n(this creature won't stop yelling)));
	item(qq(Frog));                        
	quest_desc_add(qq(\nI've aquired a frog, perhaps this creature will be suitable as a familiar.), 'witch_quest');
} else {
	dialog('Frog', 'Ribbit.');
}
"""
landlord = """
if (not exists $game_vars{witch} or (exists $game_vars{witch} and $game_vars{witch} <= 1)) {
	dialog(qq(New Cheese's Landlord), qq(AAA! AAA!  FROG FROG!  SOMEONE TAKE CARE OF IT!\nBut humanely!!));
} elsif (exists $game_vars{witch} and $game_vars{witch} >= 2) {
	dialog(qq(New Cheese's Landlord), qq(You're taking the Frog to the witch?  Well...\nShe is nice to animals...));
}
"""
bush = """
if (not exists $game_vars{shrubbery}) {
	dialog('', qq(Some shrubbery bush.  Probably not important.));
}
elsif ($game_vars{shrubbery} == 1) {
	$game_vars{shrubbery} = 2;
	addch($npcs{S}->[0], $npcs{S}->[1], ' '); # put whitespace over shrubbery
	delete $npcs{S};
	dialog('',qq(You've acquired: "Shrubbery"));
	item(qq(Shrubbery));
}
"""
cheese_farm = "dialog('Sign', qq(Cheese Farm: New Cheese's only source of income!\nIt would be BAD if some frog ate all our cheese!))"