2023-11-26 02:09:56 -08:00
|
|
|
interact = [
|
|
|
|
|
[0, 36, "worldmap"],
|
|
|
|
|
[28, 23, "cheese_farm"],
|
|
|
|
|
]
|
|
|
|
|
npc = [
|
2023-12-24 22:39:14 -08:00
|
|
|
[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"],
|
2023-11-26 02:09:56 -08:00
|
|
|
]
|
|
|
|
|
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!))"
|
