Lua Script - Task NPC Grizzly Adams.

[Eldran]

The NPC lets you do the same task countless times always giving the reward for it. I want to restrict players from doing only 1x each task. I using OTHire 0.0.3 distribution.


NPC Script:

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}

function onCreatureAppear(cid) npcHandlernCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandlernCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandlernCreatureSay(cid, type, msg) end
function onThink() npcHandlernThink() end

local choose = {}
local cancel = {}
local available = {}
function creatureSayCallback(cid, type, msg)

if npcHandler.focus ~= cid then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_PRIVATE and 0 or cid

if isInArray({"tasks", "task", "mission"}, msg:lower()) then
local can = getTasksByPlayer(cid)
if #can > 0 then
local text = ""
local sep = ", "
table.sort(can, (function(a, b) return (a < b) end))
local t = 0
for _, id in ipairs(can) do
t = t + 1
if t == #can - 1 then
sep = " and "
elseif t == #can then
sep = "."
end
text = text .. "{" .. (tasks[id].name or tasks[id].raceName) .. "}" .. sep
end
selfSay("The current task" .. (#can > 1 and "s" or "") .. " that you can choose " .. (#can > 1 and "are" or "is") .. " " .. text)
talkState[talkUser] = 0
else
selfSay("I don't have any task for you right now.")
end
elseif msg ~= "" and canStartTask(cid, msg) then
if #getPlayerStartedTasks(cid) >= tasksByPlayer then
selfSay("Sorry, but you already started " .. tasksByPlayer .. " tasks.")
return true
end
local task = getTaskByName(msg)
if task and getPlayerStorageValue(cid, QUESTSTORAGE_BASE + task) > 0 then
return false
end
selfSay("In this task you must defeat " .. tasks[task].killsRequired .. " " .. tasks[task].raceName .. ". Are you sure that you want to start this task?")
choose[cid] = task
talkState[talkUser] = 1
elseif msg:lower() == "yes" and talkState[talkUser] == 1 then
setPlayerStorageValue(cid, QUESTSTORAGE_BASE + choose[cid], 1)
selfSay("Excellent! You can check the status of your task saying report to me.")
choose[cid] = nil
talkState[talkUser] = 0
elseif msg:lower() == "report" then
local started = getPlayerStartedTasks(cid)
local finishedAtLeastOne = false
local finished = 0
if started and #started > 0 then
for _, id in ipairs(started) do
if getPlayerStorageValue(cid, KILLSSTORAGE_BASE + id) >= tasks[id].killsRequired then
for _, reward in ipairs(tasks[id].rewards) do
print("Rewards loaded")
local deny = false
if reward.storage then
if getPlayerStorageValue(cid, reward.storage[1]) >= reward.storage[2] then
deny = true
end
end
if isInArray({REWARD_MONEY, "money"}, reward.type:lower()) and not deny then
doPlayerAddMoney(cid, reward.value[1])
elseif isInArray({REWARD_EXP, "exp", "experience"}, reward.type:lower()) and not deny then
doPlayerAddExp(cid, reward.value[1])
doPlayerSendDefaultCancel(cid, "You gained " .. reward.value[1] .. " experience points.")
elseif isInArray({REWARD_ACHIEVEMENT, "achievement", "ach"}, reward.type:lower()) and not deny then
if doPlayerAddAchievement then
doPlayerAddAchievement(cid, reward.value[1], true)
end
elseif isInArray({REWARD_STORAGE, "storage", "stor"}, reward.type:lower()) and not deny then
setPlayerStorageValue(cid, reward.value[1], reward.value[2])
elseif isInArray({REWARD_POINT, "points", "point"}, reward.type:lower()) and not deny then
setPlayerStorageValue(cid, POINTSSTORAGE, getPlayerStorageValue(cid, POINTSSTORAGE) + reward.value[1])
elseif isInArray({REWARD_ITEM, "item", "items", "object"}, reward.type:lower()) and not deny then
doPlayerAddItem(cid, reward.value[1], reward.value[2])
end

if reward.storage then
setPlayerStorageValue(cid, reward.storage[1], reward.storage[2])
end
end

if tasks[id].norepeatable then
setPlayerStorageValue(cid, QUESTSTORAGE_BASE + id, 2)
else
setPlayerStorageValue(cid, QUESTSTORAGE_BASE + id, 0)
end
setPlayerStorageValue(cid, KILLSSTORAGE_BASE + id, 0)
if getPlayerStorageValue(cid, REPEATSTORAGE_BASE + id) < 1 then
setPlayerStorageValue(cid, REPEATSTORAGE_BASE + id, 0)
end
setPlayerStorageValue(cid, REPEATSTORAGE_BASE + id, getPlayerStorageValue(cid, REPEATSTORAGE_BASE + id) + 1)
finishedAtLeastOne = true
finished = finished + 1
end
end

if not finishedAtLeastOne then
selfSay("You haven't finished any task yet.")
else
selfSay("Awesome! you finished " .. (finished > 1 and "various" or "a") .. " task" .. (finished > 1 and "s" or "") .. ". Talk to me again if you want to start a task.")
end
else
selfSay("You haven't started any task yet.")
end
elseif msg:lower() == "started" then
local started = getPlayerStartedTasks(cid)
if started and #started > 0 then
local text = ""
local sep = ", "
table.sort(started, (function(a, b) return (a < b) end))
local t = 0
for _, id in ipairs(started) do
t = t + 1
if t == #started - 1 then
sep = " and "
elseif t == #started then
sep = "."
end
text = text .. "{" .. (tasks[id].name or tasks[id].raceName) .. "}" .. sep
end

selfSay("The current task" .. (#started > 1 and "s" or "") .. " that you started " .. (#started > 1 and "are" or "is") .. " " .. text)
else
selfSay("You haven't started any task yet.")
end
elseif msg:lower() == "cancel" then
local started = getPlayerStartedTasks(cid)
if started and #started > 0 then
selfSay("Cancelling a task will make the count restart. Wich task you want to cancel?")
talkState[talkUser] = 2
else
selfSay("You haven't started any task yet.")
end
elseif getTaskByName(msg) and talkState[talkUser] == 2 and isInArray(getPlayerStartedTasks(cid), getTaskByName(msg)) then
local task = getTaskByName(msg)
if getPlayerStorageValue(cid, KILLSSTORAGE_BASE + task) > 0 then
selfSay("You currently killed " .. getPlayerStorageValue(cid, KILLSSTORAGE_BASE + task) .. "/" .. tasks[task].killsRequired .. " " .. tasks[task].raceName .. ". Cancelling this task will restart the count. Are you sure you want to cancel this task?")
else
selfSay("Are you sure you want to cancel this task?")
end
talkState[talkUser] = 3
cancel[cid] = task
elseif msg:lower() == "yes" and talkState[talkUser] == 3 then
setPlayerStorageValue(cid, QUESTSTORAGE_BASE + cancel[cid], -1)
setPlayerStorageValue(cid, KILLSSTORAGE_BASE + cancel[cid], -1)
selfSay("You have cancelled the task " .. (tasks[cancel[cid]].name or tasks[cancel[cid]].raceName) .. ".")
talkState[talkUser] = 0
elseif isInArray({"points", "rank"}, msg:lower()) then
selfSay("At this time, you have " .. getPlayerStorageValue(cid, POINTSSTORAGE) .. " Paw & Fur points. You " .. (getPlayerRank(cid) == 5 and "are an Elite Hunter" or getPlayerRank(cid) == 4 and "are a Trophy Hunter" or getPlayerRank(cid) == 3 and "are a Big Game Hunter" or getPlayerRank(cid) == 2 and "are a Ranger" or getPlayerRank(cid) == 1 and "are a Huntsman" or "haven't been ranked yet") .. ".")
talkState[talkUser] = 0
end
end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

Lib:

1. -- TASK
2. 
   
3. 
   
4. RANK_NONE = 0
5. RANK_HUNTSMAN = 1
6. RANK_RANGER = 2
7. RANK_BIGGAMEHUNTER = 3
8. RANK_TROPHYHUNTER = 4
9. RANK_ELITEHUNTER = 5
10. 
    
11. REWARD_MONEY = 1
12. REWARD_EXP = 2
13. REWARD_ACHIEVEMENT = 3
14. REWARD_STORAGE = 4
15. REWARD_POINT = 5
16. REWARD_ITEM = 6
17. 
    
18. QUESTSTORAGE_BASE = 71500
19. KILLSSTORAGE_BASE = 72500
20. REPEATSTORAGE_BASE = 73500
21. POINTSSTORAGE = 72500
22. ONTASKSTORAGE = 74500
23. tasks =
24. {
25. [1] = {killsRequired = 50, raceName = "Noob", level = {1, 666}, premium = false, creatures = {"rat", "cave rat", "spider", "poison spider", "bug"}, rewards = {
26. {type = "exp", value = {8000}},
27. {type = "money", value = {5000}},
28. {type = "points", value = {1}},
29. {type = "storage", value = {81500,1}}
30. }},
31. [2] = {killsRequired = 50, raceName = "Orcs", level = {1, 666}, premium = false, creatures = {"orc", "orc warrior", "orc spearman", "orc berserker", "orc leader"}, rewards = {
32. {type = "exp", value = {10000}},
33. {type = "money", value = {3500}},
34. {type = "points", value = {1}}
35. }},
36. [3] = {bkillsRequired = 300, raceName = "Crocodiles", level = {1, 666}, premium = false, creatures = {"crocodile"}, rewards = {
37. {type = "exp", value = {20000}},
38. {type = "item", value = {2536,1}},
39. {type = "points", value = {1}},
40. {type = "storage", value = {81500,3}}
41. }},
42. [4] = {killsRequired = 300, raceName = "Tarantulas", level = {1, 666}, premium = false, creatures = {"tarantula"}, rewards = {
43. {type = "exp", value = {30000}},
44. {type = "points", value = {1}},
45. {type = "storage", value = {81500,4}}
46. }},
47. [5] = {killsRequired = 150, raceName = "Carniphilas", level = {1, 666}, premium = false, creatures = {"carniphila"}, rewards = {
48. {type = "exp", value = {30000}},
49. {type = "item", value = {2477,1}},
50. {type = "points", value = {1}},
51. {type = "storage", value = {81500,5}}
52. }}
53. }
54. 
    
55. tasksByPlayer = 3
56. repeatTimes = 3
57. 
    
58. function getPlayerRank(cid)
59. return (getPlayerStorageValue(cid, POINTSSTORAGE) >= 100 and RANK_ELITEHUNTER or getPlayerStorageValue(cid, POINTSSTORAGE) >= 70 and RANK_TROPHYHUNTER or getPlayerStorageValue(cid, POINTSSTORAGE) >= 40 and RANK_BIGGAMEHUNTER or getPlayerStorageValue(cid, POINTSSTORAGE) >= 20 and RANK_RANGER or getPlayerStorageValue(cid, POINTSSTORAGE) >= 10 and RANK_HUNTSMAN or RANK_NONE)
60. end
61. 
    
62. function getTaskByName(name, table)
63. local t = (table and table or tasks)
64. for k, v in pairs(t) do
65. if v.name then
66. if v.name:lower() == name:lower() then
67. return k
68. end
69. else
70. if v.raceName:lower() == name:lower() then
71. return k
72. end
73. end
74. end
75. return false
76. end
77. 
    
78. function getTasksByPlayer(cid)
79. local canmake = {}
80. local able = {}
81. for k, v in pairs(tasks) do
82. if getPlayerStorageValue(cid, QUESTSTORAGE_BASE + k) < 1 and getPlayerStorageValue(cid, REPEATSTORAGE_BASE + k) < repeatTimes then
83. able[k] = true
84. if getPlayerLevel(cid) < v.level[1] or getPlayerLevel(cid) > v.level[2] then
85. able[k] = false
86. end
87. if v.storage and getPlayerStorageValue(cid, v.storage[1]) < v.storage[2] then
88. able[k] = false
89. end
90. 
    
91. if v.rank then
92. if getPlayerRank(cid) < v.rank then
93. able[k] = false
94. end
95. end
96. 
    
97. if v.premium then
98. if not isPremium(cid) then
99. able[k] = false
100. end
101. end
102. 
     
103. if able[k] then
104. table.insert(canmake, k)
105. end
106. end
107. end
108. return canmake
109. end
110. 
     
111. 
     
112. function canStartTask(cid, name, table)
113. local v = ""
114. local id = 0
115. local t = (table and table or tasks)
116. for k, i in pairs(t) do
117. if i.name then
118. if i.name:lower() == name:lower() then
119. v = i
120. id = k
121. break
122. end
123. else
124. if i.raceName:lower() == name:lower() then
125. v = i
126. id = k
127. break
128. end
129. end
130. end
131. if v == "" then
132. return false
133. end
134. if getPlayerStorageValue(cid, QUESTSTORAGE_BASE + id) > 0 then
135. return false
136. end
137. if (getPlayerStorageValue(cid, REPEATSTORAGE_BASE + id) >= repeatTimes) or (v.norepeatable and getPlayerStorageValue(cid, REPEATSTORAGE_BASE + id) > 0) then
138. return false
139. end
140. if getPlayerLevel(cid) >= v.level[1] and getPlayerLevel(cid) <= v.level[2] then
141. if v.premium then
142. if isPremium(cid) then
143. if v.rank then
144. if getPlayerRank(cid) >= v.rank then
145. if v.storage then
146. if getPlayerStorageValue(cid, v.storage[1]) >= v.storage[2] then
147. return true
148. end
149. else
150. return true
151. end
152. end
153. else
154. return true
155. end
156. end
157. else
158. return true
159. end
160. end
161. return false
162. end
163. 
     
164. function getPlayerStartedTasks(cid)
165. 
     
166. local tmp = {}
167. for k, v in pairs(tasks) do
168. if getPlayerStorageValue(cid, QUESTSTORAGE_BASE + k) > 0 and getPlayerStorageValue(cid, QUESTSTORAGE_BASE + k) < 2 then
169. table.insert(tmp, k)
170. end
171. end
172. return tmp
173. end
174. 
     
175. function isSummon(target)
176. return (getCreatureMaster(target) ~= target)
177. end

 

[WibbenZ]

How to display CODE properly in your post

 

[Eldran]

@WibbenZ Thanks

@Topic Solved

 

[WibbenZ]

@WibbenZ Thanks

@Topic Solved

Please read the rules; Rules for the Support board
#8