jjakkes-fernando-game/assets/witch_village.toml

interact = [
	[0, 38, "worldmap"],
	[19,30, "coffee_sign"],
]
npc = [
	[16,39, "W", "W", "witch", "random_movement", "red_black"]
]
map_script = """
if (exists $game_vars{witch} and $game_vars{witch} == 4) {
	# eg player save the game here then load it; kinda weird to see two Sir Ribbits
	if (not exists $npcs{F}) {
		$npcs{F} = [15, 36, 'F', "frog", "random_movement", "green_black"];
	}
}
"""
[npc_movements]
none=['w']
[objects]
worldmap = "teleport('worldmap', 35, 39)"
witch = """
if (not exists $game_vars{witch}) {
	$game_vars{witch} = 1;
	dialog('Witch Rat', qq(Oh, my precious familiar...  Oh how I wish you\ndidn't pass on... If only I had another\njust as powerful as you...));
} 
elsif ($game_vars{witch} == 1 or $game_vars{witch} == 2) {
	dialog('Witch Rat', qq(Hmm?  You wish to aid me in my time of need?\nWhy thank you Sir Fernando.\nA familiar can be a cat... frog... dog (maybe)...));
	quest('Witch Rat', 'Witch Hut', qq(Aquire familiar), qq(The Witch Rat's old familiar has passed on and she has tasked me with finding\nher another.), 'witch_quest');
	$game_vars{witch} = 2;
}
elsif ($game_vars{witch} == 3) {
	dialog('Witch Rat', qq(Is that FROG? For me??\nThank you thank yoy thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you thank you\nFor being my knight, I shall brew you a coffee!));
	item(qq(Cup of Coffee));
	item_remove(qq(Frog));
	$game_vars{witch} = 4;
	quest_desc_add(qq(\nThe Witch Rat is happy with the frog I gave her and gave me some coffee in\nturn.), 'witch_quest');
	$npcs{F} = [15, 36, 'F', "frog", "random_movement", "green_black"];
	draw_npcs(); # draw Sir Ribbit
}
elsif ($game_vars{witch} == 4) {
	dialog('Witch Rat', qq(Thank you again for bringing me Sir Ribbet.));
}
"""
coffee_sign = "dialog('Sign', qq(Coffee Trees.\nSelf sufficiency is hard work!))"
frog = "dialog('Sir Ribbet', 'Ribbit');"