87 lines
4.2 KiB
TOML
87 lines
4.2 KiB
TOML
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", "mom", "random_movement", "green_black"],
|
|
[ 23, 13, "b", "bob", "bob1", "white_black"],
|
|
[ 36, 14, "j", "joe", "none", "white_black"],
|
|
[ 2, 54, "S", "landlord_sword", "none", "red_black" ],
|
|
]
|
|
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\") "
|
|
"landlords_house" = " dialog('Sign', \"House of the Landlord. Do not steal anything.\") "
|
|
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.) )"
|