interact = [
	[ 18, 79, "king_side" ],
	[ 19, 0, "other_side" ],
]
npc = [
	[ 15,33, "q", "q", "rat_ni", "random_movement", "yellow_black"],
	[ 22,48, "y", "y", "rat_ni", "random_movement", "yellow_black"],
	[ 17,62, "p", "p", "rat_ni", "random_movement", "yellow_black"],
	[ 22, 6, "d", "d", "rat_ni", "random_movement", "yellow_black"],
	[ 19,12, "U", "U", "shrubbery", "none", "cyan_black"],
]
map_script = """
if (exists $game_vars{shrubbery} and $game_vars{shrubbery} == 3) {
	$npcs{U}->[4] = 'random_movement';
	$npcs{U}->[0] = 14;
	$npcs{U}->[1] = 26;
}
"""
[npc_movements]
none = ['w']

[objects]
king_side = "teleport('worldmap', 7, 54)"
other_side = "teleport('worldmap',7, 51)"
rat_ni = "dialog(qq(Rats that say 'Ni!'), qq(Ni!));"
shrubbery = """
my $quest_string = qq(WE ARE THE RATS THAT SAY 'NI!'\nIF YOU WISH TO GET BY US, YOU MUST PRESENT A\n SHRUBBERY);

if (not exists $game_vars{shrubbery}) {
	quest(qq(Rats that say 'Ni!'), 'Gate to King Palace', qq(Find a shrubbery), qq(The Rats that say 'Ni!' are blocking my way to the King's palace.\nThe leader has demanded that I find and present them a shrubbery.), 'shrubbery');
	dialog(qq(Rats that say 'Ni!'), $quest_string);
	$game_vars{shrubbery} = 1;
}
elsif ($game_vars{shrubbery} == 1) {
	dialog(qq(Rats that say 'Ni!'), $quest_string);
}
elsif ($game_vars{shrubbery} == 2) {
	dialog(qq(Rats that say 'Ni!'), qq(WE ARE THE RATS THAT SAY 'NI!'\nYOU HAVE A SHRUBBERY? VERY WELL, YOU MAY PASS.));
	$game_vars{shrubbery} = 3;
	$npcs{U}->[4] = 'random_movement';
	quest_desc_add(qq(\nI have found the shrubbery and presented it to the Rats that say 'Ni!'.  They\nhave granted me passage though the only gate on this world.), 'shrubbery');
}
elsif ($game_vars{shrubbery} == 3) {
	dialog(qq(Rats that say 'Ni!'), qq(YOU'VE PRESENTED A SHRUBBERY.  YOU MAY PASS.));
}
"""