Added a merchant and a blacksmith on the template map.

They're both using a fully working merchant lua function.

Resolves: Mana-mantis #295.

3 files changed, 113 insertions, 73 deletions

diff --git a/example/serverdata/scripts/maps/desert.lua b/example/serverdata/scripts/maps/desert.lua
index 710f552..812bfa6 100644
--- a/example/serverdata/scripts/maps/desert.lua
+++ b/example/serverdata/scripts/maps/desert.lua
@@ -15,13 +15,27 @@ require "scripts/lua/npclib"
 -- From example/serverdata/scripts
 require "scripts/npcs/banker"
 require "scripts/npcs/barber"
+require "scripts/npcs/merchant"
 
 atinit(function()
+
     -- Barber examples
     create_npc("Barber Twin", 1, 14 * TILESIZE + TILESIZE / 2, 9 * TILESIZE + TILESIZE / 2, Barber, nil)
     create_npc("Barber Twin", 1, 20 * TILESIZE + TILESIZE / 2, 11 * TILESIZE + TILESIZE / 2, npclib.talk(Barber, {14, 15, 16}, {}), nil)
+
     -- A simple banker
     create_npc("Banker", 8, 35 * TILESIZE + TILESIZE / 2, 24 * TILESIZE + TILESIZE / 2, Banker, nil)
+
+    -- A simple merchant.
+    merchant_buy_table = { {1, 10, 20}, {2, 10, 30}, {3, 10, 50} }
+    merchant_sell_table = { {1, 10, 19}, {5, 10, 30}, {6, 10, 200}, {7, 10, 300} }
+    create_npc("Merchant", 3, 4 * TILESIZE + TILESIZE / 2, 16 * TILESIZE + TILESIZE / 2, npclib.talk(Merchant, merchant_buy_table, merchant_sell_table), nil)
+
+    -- Another Merchant, selling some equipment, and buying everything...
+    smith_buy_table = { {5, 10, 50}, {7, 10, 70} }
+    create_npc("Smith", 5, 15 * TILESIZE + TILESIZE / 2, 16 * TILESIZE + TILESIZE / 2, npclib.talk(Merchant, smith_buy_table), nil)
+
+
     -- The most simple NPC - Welcoming new ones around.
     create_npc("Harmony", 11, 4 * TILESIZE + TILESIZE / 2, 25 * TILESIZE + TILESIZE / 2, npclib.talk(Harmony, "Welcome in the template world!\nI hope you'll find here whatever you were searching for.", "Do look around to find some interesting things coming along!"), Harmony_update)
 end)
diff --git a/example/serverdata/scripts/npcs/merchant.lua b/example/serverdata/scripts/npcs/merchant.lua
new file mode 100644
index 0000000..46f8554
--- /dev/null
+++ b/example/serverdata/scripts/npcs/merchant.lua
@@ -0,0 +1,99 @@
+----------------------------------------------------------
+-- Merchant Function Sample                                      --
+----------------------------------------------------------------------------------
+--  Copyright 2009-2010 The Mana World Development Team                              --
+--                                                                              --
+--  This file is part of The Mana World.                                        --
+--                                                                              --
+--  The Mana World  is free software; you can redistribute  it and/or modify it --
+--  under the terms of the GNU General  Public License as published by the Free --
+--  Software Foundation; either version 2 of the License, or any later version. --
+----------------------------------------------------------------------------------
+
+function Merchant(npc, ch, buy_sell_table)
+
+-- Important note: You can add two tables made of trinoms here when calling the
+-- merchant function. E.g.: Merchant(npc, ch, buy_table, sell_table)
+-- Even though, the function here will see only one table:
+-- buy_sell_table[1] will corresponds to the first table (used to list
+-- boughtable items, and buy_sell_table[2] listing sellable items.
+
+  local rights = mana.chr_get_rights(ch);
+
+  if (rights >= 128) then
+    do_message(npc, ch, "Oh mighty server administrator, how can I avoid your wrath?")
+  elseif (rights >= 8) then
+    do_message(npc, ch, "How can I be of assistance, sir gamemaster?")
+  elseif (rights >= 4) then
+    do_message(npc, ch, "What feature would you like to debug, developer?")
+  elseif (rights >= 2) then
+    do_message(npc, ch, "How can I assist you in your testing duties?")
+  elseif (rights >= 1) then
+      if mana.chr_get_gender(ch) == GENDER_FEMALE then
+          do_message(npc, ch, "What do you want, Madam?")
+      else
+          do_message(npc, ch, "Wat do you want, Sir?")
+      end
+  else
+    do_message(npc, ch, "...Aren't you supposed to be banned??")
+  end
+
+  -- Constructing the choice list
+  local choice_table = {}
+  table.insert (choice_table, "To Buy...")
+
+  if (buy_sell_table[2] == nil) then
+      table.insert (choice_table, "To sell stuff...")
+  else
+      table.insert (choice_table, "Can you make me a price for what I have?")
+  end
+  table.insert (choice_table, "Nevermind...")
+
+  local v = do_choice(npc, ch, choice_table)
+
+  --Debug and learning purpose
+  --for i,k in ipairs(choice_table) do print(i,k) end
+  -- The buy table first line content
+  --print (((buy_sell_table[1])[1])[1], ((buy_sell_table[1])[1])[2], ((buy_sell_table[1])[1])[3])
+  -- The sell table first line content
+  --print (((buy_sell_table[2])[1])[1], ((buy_sell_table[2])[1])[2], ((buy_sell_table[2])[1])[3])
+
+  if v == 1 then
+    -- "To buy."
+    local buycase = mana.npc_trade(npc, ch, false, buy_sell_table[1])
+    if buycase == 0 then
+      do_message(npc, ch, "What do you want to buy?")
+    elseif buycase == 1 then
+      do_message(npc, ch, "I've got no items to sell.")
+    else
+      do_message(npc, ch, "Hmm, something went wrong... Ask a scripter to fix the buying mode!")
+    end
+
+  elseif v == 2 then
+
+    if buy_sell_table[2] == nil then
+        -- "To sell stuff..."
+        local sellcase = mana.npc_trade(npc, ch, true)
+        if sellcase == 0 then
+          do_message(npc, ch, "Ok, what do you want to sell?")
+        elseif sellcase == 1 then
+          do_message(npc, ch, "I'm not interested by any of your items.")
+        else
+          do_message(npc, ch, "Hmm, something went wrong... Ask a scripter to fix this!")
+        end
+    else
+        -- "Can you make me a price for what I have?"
+        local sellcase = mana.npc_trade(npc, ch, true, buy_sell_table[2])
+        if sellcase == 0 then
+          do_message(npc, ch, "Here we go:")
+        elseif sellcase == 1 then
+          do_message(npc, ch, "I'm not that interested in any of your items.")
+        else
+          do_message(npc, ch, "Hmm, something went wrong... Ask a scripter to fix me!")
+        end
+    end
+
+  end
+  do_message(npc, ch, "See you later!")
+  do_npc_close(npc, ch)
+end
diff --git a/example/serverdata/scripts/npcs/seller.lua b/example/serverdata/scripts/npcs/seller.lua
deleted file mode 100644
index c809f3e..0000000
--- a/example/serverdata/scripts/npcs/seller.lua
+++ /dev/null
@@ -1,73 +0,0 @@
-----------------------------------------------------------
--- Seller Function Sample                                      --
-----------------------------------------------------------------------------------
---  Copyright 2009-2010 The Mana World Development Team                              --
---                                                                              --
---  This file is part of The Mana World.                                        --
---                                                                              --
---  The Mana World  is free software; you can redistribute  it and/or modify it --
---  under the terms of the GNU General  Public License as published by the Free --
---  Software Foundation; either version 2 of the License, or any later version. --
-----------------------------------------------------------------------------------
-
-function Seller(npc, ch)
-  do_message(npc, ch, "Hello! What can I provide you today?")
-  local rights = mana.chr_get_rights(ch);
-
-  if (rights >= 128) then
-    do_message(npc, ch, "Oh mighty server administrator, how can I avoid your wrath?")
-  elseif (rights >= 8) then
-    do_message(npc, ch, "How can I be of assistance, sir gamemaster?")
-  elseif (rights >= 4) then
-    do_message(npc, ch, "What feature would you like to debug, developer?")
-  elseif (rights >= 2) then
-    do_message(npc, ch, "How can I assist you in your testing duties?")
-  elseif (rights >= 1) then
-    do_message(npc, ch, "What do you want, lowly player?")
-  else
-    do_message(npc, ch, "...Aren't you supposed to be banned??")
-  end
-
-  local v = do_choice(npc, ch, "To buy...",
-                               "To sell stuff...",
-                               "Can you make me a price for what I have?")
-  if v == 1 then
-    -- "To buy."
-    local buycase = mana.npc_trade(npc, ch, false, { {1, 10, 20}, {2, 10, 30}, {3, 10, 50} })
-    if buycase == 0 then
-      do_message(npc, ch, "What do you want to buy?")
-    elseif buycase == 1 then
-      do_message(npc, ch, "I've got no items to sell.")
-    else
-      do_message(npc, ch, "Hmm, something went wrong... Ask a scripter to fix the buying mode!")
-    end
-
-  elseif v == 2 then
-
-    -- "To sell stuff..."
-    local sellcase = mana.npc_trade(npc, ch, true)
-    if sellcase == 0 then
-      do_message(npc, ch, "Ok, what do you want to sell?")
-    elseif sellcase == 1 then
-      do_message(npc, ch, "I'm not interested by any of your items.")
-    else
-      do_message(npc, ch, "Hmm, something went wrong... Ask a scripter to fix this!")
-    end
-
-  elseif v == 3 then
-
-    -- "Can you make me a price for what I have?"
-    local sellcase = mana.npc_trade(npc, ch, true, { {4, 10, 20}, {5, 10, 30}, {6, 10, 200}, {7, 10, 300} })
-    if sellcase == 0 then
-      do_message(npc, ch, "Here we go:")
-    elseif sellcase == 1 then
-      do_message(npc, ch, "I'm not that interested in any of your items.")
-    else
-      do_message(npc, ch, "Hmm, something went wrong... Ask a scripter to fix me!")
-    end
-
-  end
-  do_message(npc, ch, "See you later!")
-  do_npc_close(npc, ch)
-end
-