jjakkes-fernando-game/assets/old_cheese.toml

88 lines
4.2 KiB
TOML
Raw Normal View History

2023-11-26 02:09:56 -08:00
interact = [
[ 29, 38, "village_sign" ],
[ 24, 29, "fernandos_hut" ],
[ 22, 13, "bobs_hut" ],
[ 35, 13, "joes_hut" ],
[ 17, 52, "landlord_house" ],
[ 31, 34, "stables" ],
[ 12, 18, "cheese_farm" ],
[ 26, 60, "cheese_farm" ],
[ 35, 50, "guard_barracks" ],
[ 33, 28, "horse" ],
[ 35, 30, "horse" ],
[ 37, 30, "horse" ],
[ 10, 66, "r_horse" ],
[ 39, 37, "exit" ],
[ 2, 54, "landlord_sword"],
]
npc = [
[ 26, 26, "m", "m", "mom", "random_movement", "green_black"],
[ 23, 13, "b", "b", "bob", "bob1", "white_black"],
[ 36, 14, "j", "j", "joe", "none", "white_black"],
[ 2, 54, "S", "S", "landlord_sword", "none", "red_black" ],
2023-11-26 02:09:56 -08:00
]
map_script = """
if (exists $game_vars{mom} and $game_vars{mom} >= 2) {
delete $npcs{S};
}
"""
[npc_movements]
bob1 = ['l','l','l','l','l','l','u','u','u','u','u','u','u','r','r','r','r','r','r','r','r','r','d','d','d','d','d','d','d','l','l','l'] # walking around his hut
none = ['w']
[objects]
"village_sign" = " dialog('Sign', 'Welcome to Old Cheese!') "
"fernandos_hut" = " dialog('Sign', \"Fernando's Hut\") "
"bobs_hut" = " dialog('Sign', \"Bob's Hut\") "
"joes_hut" = " dialog('Sign', \"Joe's Hut\") "
"landlord_house" = " dialog('Sign', \"House of the Landlord. Do not steal anything.\") "
2023-11-26 02:09:56 -08:00
stables = "dialog('Sign', 'Stables')"
"cheese_farm" = "dialog('Sign', 'Cheese Farm; our only source of income. It would\nbe BAD if something happened to it.')"
horse = "dialog('Horse','Neigh.')"
r_horse = "dialog('Regal Horse', 'Neeeeeigh.')"
exit = "teleport('worldmap', 14, 14)"
"guard_barracks" = "dialog('Sign', qq(Guards provided by the King))"
mom = """
if (not exists $game_vars{mom}) {
$game_vars{mom} = 1;
dialog('mom',qq(oh dear, if only someone would\nKILL the king for mommy...));
}
elsif ($game_vars{mom} == 1) {
dialog('mom',qq(You should start by stealing a sword (S) from the\nlandlord... but take care!\nDon't let him see you...));
quest('mom', 'Old Cheese', qq(Steal Landlord's Sword), 'Mom has tasked me with killing the King, to do so, I must procure a sword\nfrom the Landlord.', 'mom_quest');
}
elsif ($game_vars{mom} == 2) {
dialog('mom',qq(What's that you STOLE THE SWORD from the\nlandlord? I thought I raised you better than\nthis... *cry*));
$game_vars{mom} = 3;
quest_desc_add('Mom is distraught that I stole the sword at her behest.', 'mom_quest');
} elsif ($game_vars{mom} == 3) {
dialog('mom', qq(Hah! Just kidding!\nFernando... listen closely... YOU must put an end\nto that wretched king, King J.J. Akke.));
quest('mom', 'Old Cheese', qq(Kill the King for mom), "$journal{mom_quest}->[3]\nMom was just joking about being distraught.\n\nI should kill the King for mom.", 'mom_quest');
$game_vars{mom} = 4;
} elsif ($game_vars{mom} == 4) {
dialog('mom', qq(Remember! Kill that horrible King J.J. Akke!!\nHis guards steal all our cheese!));
} elsif ($game_vars{mom} == 5) {
dialog('mom', qq(You did it! You killed that horrible king,\nKing J.J Akke! You're the best son any mother could ask for <3\n(you beat the game! talk to mom one last time to end the game)));
$game_vars{mom} = 6;
} elsif ($game_vars{mom} == 6) {
goodend("Thank you for playing my humble game, my 'second' entry for the\nfirst ever (and probably last) #sqt gamejam!\n\nRules were\n1) no game engine\n2) a WEEK\n3) features Fernando ~~,=,^>\n\nI had to do a lot of really nasty hacks just to make this thing... and leave\nnearly location basicly uneventful and without interactions... :'(\n\nBut you know what? It IS my first ever actual 'game' (even if it is 'low \ntech') after all these years of 'wanting to be a game dev.'\nKinda embarrassing actually.\n\nRegardless, I learned a lot such as 'OOP would've been really useful\nhere' and a bit about curses. I do need to learn how to use a 'window'\n(this game uses none besides the one you get with 'initscr()')\n\nANYWAY, thanks for playing nerd\n\nKing J.J Akke out\n\n(space for the game to exit)");
}
"""
landlord_sword = """
if (not exists $game_vars{mom}){
dialog('',qq(Some smelly old sword));
}
elsif ($game_vars{mom} == 1) {
delete $npcs{S};
$game_vars{mom} = 2;
addch(2, 54, ' '); # put whitespace over sword
dialog('',qq(You've acquired: "Landlord's sword"));
item(qq(Landlord's Sword));
}
"""
bob = """
dialog('Bob', qq(Hey chief.));
"""
joe = "dialog('Joe', qq(I like Cheese.) )"