[anyone|plyr,"merchant_talk", [(eq,"$talk_context", tc_party_encounter), #TODO: For the moment don't let attacking if merchant has paid toll.
(neg|party_slot_ge, "$g_encountered_party", slot_party_last_toll_paid_hours, "$g_current_hours"),
], "I demand something from you!", "merchant_demand",[]],
#####################################################
# Viking: Test to trade with caravan Begin
#####################################################
[anyone|plyr, "merchant_talk",
[(eq, "$talk_context", tc_party_encounter),
(eq, "$g_encountered_party_type", spt_kingdom_caravan)],
"Show me your wares.", "merchant_pretalk", [(change_screen_trade)]],
#####################################################
# Viking: Test to trade with caravan End
#####################################################
[anyone,"merchant_demand", [(eq,"$talk_context", tc_party_encounter)], "What do you want?", "merchant_demand_2",[]],
[anyone|plyr,"merchant_demand_2", [(neq,"$g_encountered_party_faction","$players_kingdom")], "There is a toll for free passage here!", "merchant_demand_toll",[]],