diff options
Diffstat (limited to 'example/scripts/npcs')
| -rw-r--r-- | example/scripts/npcs/banker.lua | 79 | ||||
| -rw-r--r-- | example/scripts/npcs/barber.lua | 139 | ||||
| -rw-r--r-- | example/scripts/npcs/debugger.lua | 100 | ||||
| -rw-r--r-- | example/scripts/npcs/emotemaker.lua | 45 | ||||
| -rw-r--r-- | example/scripts/npcs/healer.lua | 21 | ||||
| -rw-r--r-- | example/scripts/npcs/merchant.lua | 114 | ||||
| -rw-r--r-- | example/scripts/npcs/postman.lua | 30 | ||||
| -rw-r--r-- | example/scripts/npcs/shaker.lua | 48 |
8 files changed, 576 insertions, 0 deletions
diff --git a/example/scripts/npcs/banker.lua b/example/scripts/npcs/banker.lua new file mode 100644 index 0000000..4e04865 --- /dev/null +++ b/example/scripts/npcs/banker.lua @@ -0,0 +1,79 @@ +---------------------------------------------------------- +-- Banker Function -- +---------------------------------------------------------------------------------- +-- Copyright 2008 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 Banker(npc, ch) + if mana.being_get_gender(ch) == GENDER_MALE then + do_message(npc, ch, "Welcome to the bank, sir!") + elseif mana.being_get_gender(ch) == GENDER_FEMALE then + do_message(npc, ch, "Welcome to the bank, madam!") + else + do_message(npc, ch, "Welcome to the bank... uhm... person of unspecified gender!") + end + local account = tonumber(get_quest_var(ch, "BankAccount")) + local result = -1 + do_wait() + + if (account == nil) then --Initial account creation, if needed + do_message(npc, ch, "Hello! Would you like to setup a bank account? There is a sign-on bonus right now!") + result = do_choice(npc, ch, "Yes", "No") + if (result == 1) then + mana.chr_set_quest(ch, "BankAccount", 5) + do_message(npc, ch, "Your account has been made. Your sign-on bonus is 5GP.") + account = 5 + end + end + + if (account ~= nil) then --If the player has an account + local money = 0 + local input = 0 + result = 1 + while (result < 3) do --While they've choosen a valid option that isn't "Never mind" + account = tonumber(get_quest_var(ch, "BankAccount")) --Why do I need to convert this? + do_message(npc, ch, "Your balance: " .. account .. ".\nYour money: " .. mana.chr_money(ch) .. ".") + result = do_choice(npc, ch, "Deposit", "Withdraw", "Never mind") + if (result == 1) then --Deposit + money = mana.chr_money(ch); + if (money > 0) then --Make sure they have money to deposit + do_message(npc, ch, "How much would you like to deposit? (0 will cancel)") + input = do_ask_integer(npc, ch, 0, money, 1) + do_wait() + money = mana.chr_money(ch) + if (input > 0 and input <= money) then --Make sure something weird doesn't happen and they try to deposit more than they have + mana.chr_money_change(ch, -input) + mana.chr_set_quest(ch, "BankAccount", account + input) + do_message(npc, ch, input .. " GP deposited.") + elseif (input > money) then --Chosen more than they have + do_message(npc, ch, "You don't have that much money. But you just did....") + end + else + do_message(npc, ch, "You don't have any money to deposit!") + end + elseif (result == 2) then --Withdraw + if (account > 0) then --Make sure they have money to withdraw + do_message(npc, ch, "How much would you like to withdraw? (0 will cancel)") + input = do_ask_integer(npc, ch, 0, account, 1) + if (input > 0 and input <= account) then --Make sure something weird doesn't happen and they try to withdraw more than they have + mana.chr_money_change(ch, input) + mana.chr_set_quest(ch, "BankAccount", account - input) + do_message(npc, ch, input .. " GP withdrawn.") + elseif (input > account) then --Chosen more than they have + do_message(npc, ch, "You don't have that much in your account. But you just did....") + end + else + do_message(npc, ch, "Your account is empty!") + end + end + end --This ends the while loop + end + + do_message(npc, ch, "Thank you. Come again!") +end diff --git a/example/scripts/npcs/barber.lua b/example/scripts/npcs/barber.lua new file mode 100644 index 0000000..fbb2862 --- /dev/null +++ b/example/scripts/npcs/barber.lua @@ -0,0 +1,139 @@ +---------------------------------------------------------- +-- Barber Function -- +---------------------------------------------------------------------------------- +-- Copyright 2009 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. -- +---------------------------------------------------------------------------------- + +local barber_styles = {"Flat ponytail", "Bowl cut","Combed back", "Emo", "Mohawk", + "Pompadour", "Center parting/Short and slick", "Long and slick", "Short and curly", + "Pigtails", "Long and curly", "Parted", "Perky ponytail", "Wave", "Mane", "Bun"} + +local barber_colors = {"Light brown", "Green", "Dark red", "Light purple", "Gray", "Blonde", + "Blue", "Brown", "Light Bblue", "Dark purple", "Black", "Shock white"} + +function Barber(npc, ch, data) + local style_ids = nil + local color_ids = nil + + -- If extra data was passed, let's have a look at it + if data ~= nil then + style_ids = data[1] + if #data > 1 then + color_ids = data[2] + end + end + + -- Setup up default styles (if needed) + if style_ids == nil then + style_ids = {} + for i = 1, 13 do + style_ids[i] = i + end + end + + -- Setup up default colors (if needed) + if color_ids == nil then + color_ids = {} + for i = 1, 11 do + color_ids[i] = i + end + end + + -- Nothing to show? Then we can return + if #color_ids == 0 and #style_ids == 0 then + return + end + + local result = 0 + + local styles = {} + + -- If we have style IDs, lets get their names + if #style_ids > 0 then + for i = 1, #style_ids do + styles[i] = barber_styles[style_ids[i]] + end + result = 1 + end + + local colors = {} + + -- If we have color style IDs, lets get their names + if #color_ids > 0 then + for i = 1, #color_ids do + colors[i] = barber_colors[color_ids[i]] + end + + if result == 0 then + result = 2 + else + result = 3 + end + end + + -- Choose an appropriate message + if result == 1 then + do_message(npc, ch, "Hello! What style would you like today?") + elseif result == 2 then + do_message(npc, ch, "Hello! What color would you like today?") + else + do_message(npc, ch, "Hello! What can I do for you today?") + end + + print("#styles ==", #styles) + + -- Repeat until the user selects nothing + repeat + if (result == 1) then -- Do styles + result = do_choice(npc, ch, "Bald", styles, "Surprise me", "Never mind") + + result = result -1 + + --Random + if (result == #styles + 1) then + result = math.random(#styles + 1) - 1 + print("Random") + end + + print("Style ==", result) + + if (result == 0) then + mana.chr_set_hair_style(ch, 0) + result = 1 + elseif (result <= #styles) then + mana.chr_set_hair_style(ch, style_ids[result]) + result = 1 + else --"Never mind" + result = 3 + end + elseif (result == 2) then -- Do colors + result = do_choice(npc, ch, colors, "Surprise me", "Never mind") + + --Random + if (result == #colors + 1) then + result = math.random(#colors) + end + + if (result <= #colors) then + mana.chr_set_hair_color(ch, color_ids[result - 1]) + result = 2 + else --"Never mind" + result = 3 + end + end + + -- If we have both styles and colors, show the main menu + if #styles > 0 and #colors > 0 then + result = do_choice(npc, ch, "Change my style", "Change my color", "Never mind") + end + until result >= 3 --While they've choosen a valid option that isn't "Never mind" + + -- Let's close up + do_message(npc, ch, "Thank you. Come again!") +end diff --git a/example/scripts/npcs/debugger.lua b/example/scripts/npcs/debugger.lua new file mode 100644 index 0000000..142c3fd --- /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 + diff --git a/example/scripts/npcs/emotemaker.lua b/example/scripts/npcs/emotemaker.lua new file mode 100644 index 0000000..83d2f56 --- /dev/null +++ b/example/scripts/npcs/emotemaker.lua @@ -0,0 +1,45 @@ +---------------------------------------------------------- +-- Emote use 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. -- +---------------------------------------------------------------------------------- + +emo_count = 0 +emo_state = EMOTE_SURPRISE + +function emote_talk(npc, ch) + if emo_state == EMOTE_SURPRISE then + state = "confused" + elseif emo_state == EMOTE_SAD then + state = "sad" + elseif emo_state == EMOTE_HAPPY then + state = "happy" + end + do_message(npc, ch, string.format("The emotional palm seems %s.", state)) + v = do_choice(npc, ch, + "Stupid palm, you are ugly and everyone hates you!", + "You are such a nice palm, let me give you a hug.", + "Are you a cocos nucifera or a syagrus romanzoffiana?") + + if (v == 1) then + emo_state = EMOTE_SAD + elseif (v == 2) then + emo_state = EMOTE_HAPPY + elseif (v == 3) then + emo_state = EMOTE_SURPRISE + end +end + +function emote_update(npc) + emo_count = emo_count + 1 + if emo_count > 50 then + emo_count = 0 + mana.effect_create(emo_state, npc) + end +end diff --git a/example/scripts/npcs/healer.lua b/example/scripts/npcs/healer.lua new file mode 100644 index 0000000..88335c2 --- /dev/null +++ b/example/scripts/npcs/healer.lua @@ -0,0 +1,21 @@ +---------------------------------------------------------- +-- Healer 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 Healer(npc, ch) + do_message(npc, ch, "Do you need healing?") + local c = do_choice(npc, ch, "Heal me fully", "Heal 100 HP", "Don't heal me") + if c == 1 then + mana.being_heal(ch) + elseif c == 2 then + mana.being_heal(ch, 100) + end +end diff --git a/example/scripts/npcs/merchant.lua b/example/scripts/npcs/merchant.lua new file mode 100644 index 0000000..92eeea3 --- /dev/null +++ b/example/scripts/npcs/merchant.lua @@ -0,0 +1,114 @@ +---------------------------------------------------------- +-- 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) + + local function say(message) + do_message(npc, ch, message) + end + + -- 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 + mana.announce(mana.being_get_name(ch) .. " the big administrator was at my shop!", + mana.being_get_name(npc)) + say "Oh mighty server administrator, how can I avoid your wrath?" + elseif (rights >= 8) then + say "How can I be of assistance, sir gamemaster?" + elseif (rights >= 4) then + say "What feature would you like to debug, developer?" + elseif (rights >= 2) then + say "How can I assist you in your testing duties?" + elseif (rights >= 1) then + if mana.being_get_gender(ch) == GENDER_FEMALE then + say "What do you want, Madam?" + else + say "What do you want, Sir?" + end + else + say "...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, "Tell me about the objects on this map") + 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 + say "What do you want to buy?" + elseif buycase == 1 then + say "I've got no items to sell." + else + say "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 + say "Ok, what do you want to sell?" + elseif sellcase == 1 then + say "I'm not interested by any of your items." + else + say "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 + say "Here we go:" + elseif sellcase == 1 then + say "I'm not that interested in any of your items." + else + say "Hmm, something went wrong... Ask a scripter to fix me!" + end + end + + elseif v == 3 then + + local objects = mana.map_get_objects() + say("There are " .. #objects .. " objects on this map, their names are:") + for i=1,#objects do + say(tostring(i) .. ": " .. objects[i]:name()) + end + + end + + say "See you later!" +end diff --git a/example/scripts/npcs/postman.lua b/example/scripts/npcs/postman.lua new file mode 100644 index 0000000..712ea99 --- /dev/null +++ b/example/scripts/npcs/postman.lua @@ -0,0 +1,30 @@ +---------------------------------------------------------- +-- Postman 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 post_talk(npc, ch) + do_message(npc, ch, "Hello " .. mana.being_get_name(ch)) + local strength = mana.being_get_attribute(ch, ATTR_STRENGTH) + do_message(npc, ch, "You have " .. tostring(strength) .. " strength") + do_message(npc, ch, "What would you like to do?") + local answer = do_choice(npc, ch, "View Mail", "Send Mail", "Nothing") + if answer == 1 then + local sender, post = getpost(ch) + if sender == "" then + do_message(npc, ch, "No Post right now, sorry") + else + do_message(npc, ch, tostring(sender) .. " sent you " .. tostring(post)) + end + end + if answer == 2 then + do_post(npc, ch) + end +end diff --git a/example/scripts/npcs/shaker.lua b/example/scripts/npcs/shaker.lua new file mode 100644 index 0000000..9d7bafb --- /dev/null +++ b/example/scripts/npcs/shaker.lua @@ -0,0 +1,48 @@ +----------------------------------------------------------------------------------
+-- 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. --
+----------------------------------------------------------------------------------
+
+shake_count = 0
+
+function shaker_update(npc)
+ shake_count = shake_count + 1
+ if shake_count > 20 then
+ shake_count = 0
+
+ center_x = mana.posX(npc)
+ center_y = mana.posY(npc)
+ tremor(center_x, center_y, 300)
+
+ end
+end
+
+-- function which causes a screen shake effect for all players near a
+-- certain point with an intensity and direction relative to said point
+function square(x)
+ return x * x
+end
+
+function tremor (center_x, center_y, intensity)
+ for dummy, object in ipairs(mana.get_beings_in_circle(center_x, center_y, intensity)) do
+ if mana.being_type(object) == TYPE_CHARACTER then
+ object_x = mana.posX(object)
+ object_y = mana.posY(object)
+ dist_x = object_x - center_x
+ dist_y = object_y - center_y
+ dist = math.sqrt(square(dist_x) + square(dist_y))
+ intensity_local = intensity - dist
+ intensity_x = (intensity - dist) * (dist_x / dist) / 5
+ intensity_y = (intensity - dist) * (dist_y / dist) / 5
+ mana.chr_shake_screen(object, intensity_x, intensity_y)
+ end
+ end
+end
+
+
+
|