diff options
Diffstat (limited to 'example/serverdata/scripts/npcs')
| -rw-r--r-- | example/serverdata/scripts/npcs/merchant.lua | 99 | ||||
| -rw-r--r-- | example/serverdata/scripts/npcs/seller.lua | 73 |
2 files changed, 99 insertions, 73 deletions
diff --git a/example/serverdata/scripts/npcs/merchant.lua b/example/serverdata/scripts/npcs/merchant.lua new file mode 100644 index 00000000..46f85545 --- /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 c809f3e2..00000000 --- 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 - |