46 lines
1.8 KiB
TOML
46 lines
1.8 KiB
TOML
interact = [
|
|
[ 18, 79, "king_side" ],
|
|
[ 19, 0, "other_side" ],
|
|
]
|
|
npc = [
|
|
[ 15,33, "q", "rat_ni", "random_movement", "yellow_black"],
|
|
[ 22,48, "y", "rat_ni", "random_movement", "yellow_black"],
|
|
[ 17,62, "p", "rat_ni", "random_movement", "yellow_black"],
|
|
[ 22, 6, "d", "rat_ni", "random_movement", "yellow_black"],
|
|
[ 19,12, "U", "shrubbery", "none", "cyan_black"], # comment this out
|
|
]
|
|
map_script = """
|
|
if (exists $game_vars{shrubbery} and $game_vars{shrubbery} == 3) {
|
|
$npcs{U}->[3] = '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}->[3] = '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.));
|
|
}
|
|
"""
|