42 lines
1.8 KiB
TOML
42 lines
1.8 KiB
TOML
|
interact = [
|
||
|
|
[39, 34, "worldmap"],
|
||
|
|
[ 8, 35, "inner_king_palace"]
|
||
|
|
]
|
||
|
|
npc = [
|
||
|
|
[18,24, 'g', 'guardl1', 'guardl_no_caffine', 'yellow_black'],
|
||
|
|
[18,46, 'p', 'guardr1', 'guardr_no_caffine', 'yellow_black'],
|
||
|
|
[15,54, 'C', 'chainmail', 'none', 'cyan_white'],
|
||
|
|
]
|
||
|
|
map_script = """
|
||
|
|
if (exists $game_vars{coffee_consumed}) {
|
||
|
|
$npcs{g}->[2] = 'guardl2';
|
||
|
|
$npcs{g}->[3] = 'guardl_yes_caffine';
|
||
|
|
$npcs{p}->[2] = 'guardr2';
|
||
|
|
$npcs{p}->[3] = 'guardr_yes_caffine';
|
||
|
|
}
|
||
|
|
if (exists $game_vars{chainmail}) {
|
||
|
|
delete $npcs{C};
|
||
|
|
}
|
||
|
|
"""
|
||
|
|
[npc_movements]
|
||
|
|
none = ['w']
|
||
|
|
# taking advantage of 'is_move_ok' where if move is NOT ok, nothing happens
|
||
|
|
guardl_no_caffine = ['r','r','r','r','r','r','r','r','r','d','d','d']
|
||
|
|
guardr_no_caffine = ['l','l','l','l','l','l','l','l','l','d','d','d']
|
||
|
|
guardl_yes_caffine = ['r','w','r','w','r','w','r','w','r','w','r','w','r','w','r','w','r','w','d','w','d','w','d']
|
||
|
|
guardr_yes_caffine = ['l','w','l','w','l','w','l','w','l','w','l','w','l','w','l','w','l','w','d','w','d','w','d']
|
||
|
|
|
||
|
|
[objects]
|
||
|
|
worldmap = "teleport('worldmap', 6, 60)"
|
||
|
|
inner_king_palace = "teleport('inner_king_palace', 38, 39)"
|
||
|
|
guardl1 = "dialog('Guard (left)', qq(Ha, nice try loser. The Honorable, most amazing\nKing, King J.J. Akke is not seeing visitors at\nthis moment. Now shove off.))"
|
||
|
|
guardr1 = "dialog('Guard (right)', qq(Just face it pal; unless you somehow go REAL\nfast, you ain't gettin' past us.\nNow go drink some coffee like a good little rat.))"
|
||
|
|
guardl2 = "dialog('Guard (left)', qq(W-o-a-h w-h-e-r-e d-i-d y-o-u g-e-t\nt-h-a-t s-p-e-e-d-?))"
|
||
|
|
guardr2 = "dialog('Guard (right)', qq(O-h n-o, w-e c-a-n-'t k-e-e-p u--p\nw-i-t-h y-o-u-!))"
|
||
|
|
chainmail = """
|
||
|
|
item(qq(Chainmail Armor)); dialog('', qq(You've acquired 'Chainmail Armor'));
|
||
|
|
addch($npcs{C}->[0], $npcs{C}->[1], ' '); # no more chainmail.
|
||
|
|
delete $npcs{C};
|
||
|
|
$game_vars{chainmail} = 1;
|
||
|
|
"""
|