diff options
Diffstat (limited to 'example/serverdata/scripts/npcs/debugger.lua')
| -rw-r--r-- | example/serverdata/scripts/npcs/debugger.lua | 100 |
1 files changed, 0 insertions, 100 deletions
diff --git a/example/serverdata/scripts/npcs/debugger.lua b/example/serverdata/scripts/npcs/debugger.lua deleted file mode 100644 index 142c3fd8..00000000 --- a/example/serverdata/scripts/npcs/debugger.lua +++ /dev/null @@ -1,100 +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 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 - |