Merged the example client and server data

It's easier to just talk about world data and to modify it as a whole.
If there is really a need to separate it, a project can still choose to do
that (and in whatever suitable way). There is no need to enforce this
separation or to do it in our example.

Reviewed-by: Erik Schilling

1 files changed, 100 insertions, 0 deletions

diff --git a/example/scripts/npcs/debugger.lua b/example/scripts/npcs/debugger.lua
new file mode 100644
index 00000000..142c3fd8
--- /dev/null
+++ b/example/scripts/npcs/debugger.lua
@@ -0,0 +1,100 @@
+----------------------------------------------------------
+-- 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 npc1_talk(npc, ch)
+  on_remove(ch, function() print "Player has left the map." end);
+  do_message(npc, ch, "Hello! I am the testing NPC.")
+  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, "Guns! Lots of guns!",
+                               "A Christmas party!",
+                               "To make a donation.",
+                               "Slowly count from one to ten.",
+                               "Tablepush Test")
+  if v == 1 then
+    do_message(npc, ch, "Sorry, this is a heroic-fantasy game, I do not have any gun.")
+
+  elseif v == 2 then
+    local n1, n2 = mana.chr_inv_count(ch, 524, 511)
+    if n1 == 0 or n2 ~= 0 then
+      do_message(npc, ch, "Yeah right...")
+    else
+      do_message(npc, ch, "I can't help you with the party. But I see you have a fancy hat. I could change it into Santa's hat. Not much of a party, but it would get you going.")
+      v = do_choice(npc, ch, "Please do.", "No way! Fancy hats are classier.")
+      if v == 1 then
+        mana.chr_inv_change(ch, 524, -1, 511, 1)
+      end
+    end
+
+  elseif v == 3 then
+    if mana.chr_money_change(ch, -100) then
+      do_message(npc, ch, string.format("Thank you for you patronage! You are left with %d GP.", mana.chr_money(ch)))
+      local g = tonumber(get_quest_var(ch, "001_donation"))
+      if not g then g = 0 end
+      g = g + 100
+      mana.chr_set_quest(ch, "001_donation", g)
+      do_message(npc, ch, string.format("As of today, you have donated %d GP.", g))
+    else
+      do_message(npc, ch, "I would feel bad taking money from someone that poor.")
+    end
+
+  elseif v == 4 then
+    mana.being_say(npc, "As you wish...")
+    schedule_in(2, function() mana.being_say(npc, "One") end)
+    schedule_in(4, function() mana.being_say(npc, "Two") end)
+    schedule_in(6, function() mana.being_say(npc, "Three") end)
+    schedule_in(8, function() mana.being_say(npc, "Four") end)
+    schedule_in(10, function() mana.being_say(npc, "Five") end)
+    schedule_in(12, function() mana.being_say(npc, "Six") end)
+    schedule_in(14, function() mana.being_say(npc, "Seven") end)
+    schedule_in(16, function() mana.being_say(npc, "Eight") end)
+    schedule_in(18, function() mana.being_say(npc, "Nine") end)
+    schedule_in(20, function() mana.being_say(npc, "Ten") end)
+
+  elseif v == 5 then
+    function printTable (t)
+      for k,v in pairs(t) do
+        print (k, ":", v)
+      end
+    end
+    local t1, t2, t3, t4, t5 = mana.test_tableget();
+    print("---------------");
+    print ("Table 1:");
+    printTable (t1)
+    print ("Table 2:");
+    printTable (t2)
+    print ("Table 3:");
+    printTable (t3)
+    print ("Table 4:");
+    printTable (t4)
+    print ("Table 5:");
+    printTable (t5)
+    print("---------------");
+  end
+
+  do_message(npc, ch, "See you later!")
+end
+