i think this will work, untested!
Lua:
<?xml version="1.0" encoding="UTF-8"?>
<mod name="demonOakQuest" version="0.4" author="Darkhaos" contact="[email protected]" enabled="yes">
<description>
Working Demon Oak Quest for TFS 0.3.6
</description>
<config name="demonOak_config"><![CDATA[
onePerQuest = true
level = 120
positions =
{
reward = {x=99, y=123, z=7},
kick = { x = 571, y = 621, z = 7 },
summon =
{
{x=575, y=630, z=7},
{x=583, y=629, z=7},
{x=579, y=635, z=7},
{x=575, y=634, z=7}
}
}
summons =
{
[1] = {"Demon", "Grim Reaper", "Elder Beholder", "Demon Skeleton"},
[2] = {"Dark Torturer", "Banshee", "Betrayed Wraith", "Blightwalker"},
[3] = {"Bonebeast", "Braindeath", "Diabolic Imp", "Giant Spider"},
[4] = {"Hand of Cursed Fate", "Lich", "Undead Dragon", "Vampire"},
[5] = {"braindeath", "Demon", "Bonebeast", "Diabolic Imp"},
[6] = {"Demon Skeleton", "Banshee", "Elder Beholder", "Bonebeast"},
[7] = {"Dark Torturer", "Undead Dragon", "Demon", "Demon"},
[8] = {"Elder Beholder", "Betrayed Wraith", "Demon Skeleton", "Giant Spider"},
[9] = {"Demon", "Banshee", "Blightwalker", "Demon Skeleton"},
[10] = {"Grim Reaper", "Demon", "Diabolic Imp", "Braindeath"},
[11] = {"Banshee", "Grim Reaper", "Hand of Cursed fate", "Demon"}
}
areaPosition =
{
{x=568, y=624, z=7, stackpos = 255},
{x=589, y=640, z=7, stackpos = 255}
}
demonOak = {8288, 8289, 8290, 8291}
storages =
{
done = 35700,
cutTree = 36901
}
blockingTree =
{
[2709] = {32193, 3669}
}
uid =
{
[12901] = {done = 12900, reward = 2495, count = 1},
[12902] = {done = 12900, reward = 8905, count = 1},
[12903] = {done = 12900, reward = 2495, count = 1},
[12904] = {done = 12900, reward = 8905, count = 1}
}
areaDamage =
{
min = 270,
max = 310
}
]]></config>
<action itemid="8293" event="buffer"><![CDATA[
domodlib('demonOak_config')
if blockingTree[itemEx.itemid] and itemEx.uid == blockingTree[itemEx.itemid][1] then
local tree = toPosition
if isInRange(tree, areaPosition[1], areaPosition[2]) then
print("MOD>> [Warning - Error::Demon Oak] Dead tree position is inside the quest area positions.\nDead tree position (x: " .. tree.x .. ", y: " .. tree.y .. ", z: " .. tree.z .. ")\nNorth-West area position (x: " .. areaPosition[1].x .. ", y: " .. areaPosition[1].y .. ", z: " .. areaPosition[1].z .. ")\nSouth-West area position (x: " .. areaPosition[2].x .. ", y: " .. areaPosition[2].y .. ", z: " .. areaPosition[2].z .. ")\nScript will not work correctly, please fix it.")
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Something is wrong, please contact a gamemaster.")
return
end
if getPlayerLevel(cid) < level then
doPlayerSendCancel(cid, "You need level " .. level .. " or more to enter this quest.")
return true
end
if getPlayerStorageValue(cid, storages.done) > 0 then
doPlayerSendCancel(cid, "You already done this quest.")
return true
end
if getPlayerStorageValue(cid, storages.cutTree) > 0 then
return true
end
if onePerQuest then
local players = getPlayersOnline()
for _, pid in ipairs(players) do
if isInRange(getCreaturePosition(pid), areaPosition[1], areaPosition[2]) then
doPlayerSendCancel(cid, "Wait until " .. getCreatureName(pid) .. " finish the quest.")
return true
end
end
end
doTransformItem(getThingFromPos(toPosition).uid, blockingTree[itemEx.itemid][2])
doSendMagicEffect(toPosition, CONST_ME_POFF)
doMoveCreature(cid, SOUTH)
doPlayerSetStorageValue(cid, storages.cutTree, 1)
return true
elseif isInArray(demonOak, itemEx.itemid) then
local get = getPlayerStorageValue(cid, itemEx.itemid)
if get == -1 then
doPlayerSetStorageValue(cid, itemEx.itemid, 1)
end
if(getPlayerStorageValue(cid, 8288) == 12 and getPlayerStorageValue(cid, 8289) == 12 and getPlayerStorageValue(cid, 8290) == 12 and getPlayerStorageValue(cid, 8291) == 12) then
doTeleportThing(cid, positions.kick)
doPlayerSetStorageValue(cid, storages.done, 1)
return true
end
if getPlayerStorageValue(cid, itemEx.itemid) > 11 then
doSendMagicEffect(toPosition, CONST_ME_POFF)
return true
end
if(math.random(100) <= 1) then
doPlayerSetStorageValue(cid, itemEx.uid, 12)
return true
end
if summons[get] then
for i = 1, #summons[get] do
doCreateMonster(summons[get][i], positions.summon[i])
doSendMagicEffect(positions.summon[i], CONST_ME_TELEPORT)
end
doSendMagicEffect(toPosition, CONST_ME_DRAWBLOOD)
doPlayerSetStorageValue(cid, itemEx.itemid, get + 1)
if math.random(100) >= 50 then
doTargetCombatHealth(0, cid, COMBAT_EARTHDAMAGE, -" .. areaDamage.min, -" .. areaDamage.max, CONST_ME_BIGPLANTS)
end
return
end
end
]]></action>
<action uniqueid="55100" event="buffer"><![CDATA[
domodlib('demonOak_config')
if getPlayerStorageValue(cid, 35700) > 1 then
doTeleportThing(cid, positions.reward)
doSendMagicEffect(positions.reward, CONST_ME_TELEPORT)
else
return
end
]]></action>
<action uniqueid="12901-12904" event="buffer"><![CDATA[
domodlib('demonOak_config')
if uid[item.uid] then
local t = uid[item.uid]
if(getPlayerStorageValue(cid, t.done) < 1) then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have found " .. getItemArticleById(t.reward) .. " " .. getItemNameById(t.reward) .. ".")
doPlayerAddItem(cid, t.reward, t.count)
doPlayerSetStorageValue(cid, t.done, 1)
else
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "It's empty.")
end
else
return
end
]]></action>
<movevent type="StepOut" uniqueid="32193" event="script">
if item.uid == 32193 then
doTransformItem(item.uid, 2709)
end
</movevent>
<movevent type="StepIn" itemid="8292" event="script">
domodlib('demonOak_config')
if isPlayer(cid) and math.random(1, 24) == 1 then
doTargetCombatHealth(0, cid, COMBAT_EARTHDAMAGE, -" .. areaDamage.min, -" .. areaDamage.max, CONST_ME_BIGPLANTS)
end
</movevent>
<event type="logout" name="demonOakLogout" event="script"><![CDATA[
function onLogout(cid)
if getPlayerStorageValue(cid, 36901) > 0 and getPlayerStorageValue(cid, 35700) < 1 then
doPlayerSetStorageValue(cid, 36901, 0)
end
return true
end
]]></event>
<event type="death" name="demonOakDeath" event="script"><![CDATA[
function onDeath(cid, corpse)
if getPlayerStorageValue(cid, 36901) > 0 and getPlayerStorageValue(cid, 35700) < 1 then
doPlayerSetStorageValue(cid, 36901, 0)
end
return true
end
]]></event>
</mod>