• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!
  • New resources must be posted under Resources tab. A discussion thread will be created automatically, you can't open threads manually anymore.

Action Full Demon Oak

tibiek

tibiek

Banned User
Joined
Jun 3, 2009
Messages
320
Reaction score
0
Location
Poland
create demonoak.lua and paste:
function onUse(cid, item, fromPosition, itemEx, toPosition)
treepos = {x=32720, y=32345, z=7, stackpos=1}
treepos2 = {x=32718, y=32351, z=7, stackpos=1} --- position of left arm
treepos3 = {x=32720, y=32349, z=7, stackpos=1} --- position of crow
treepos4 = {x=32720, y=32352, z=7, stackpos=1} --- position of mouth
monster1 = {x=32717, y=32347, z=7}
monster2 = {x=32724, y=32348, z=7}
monster3 = {x=32716, y=32353, z=7}
monster4 = {x=32724, y=32353, z=7}
tree = getThingfromPos(treepos).uid
tree2 = getThingfromPos(treepos2).uid
tree3 = getThingfromPos(treepos3).uid
tree4 = getThingfromPos(treepos4).uid
playerPos = getCreaturePosition(cid)
local randomizer = math.random(1,6)
queststatus = getPlayerStorageValue(cid,8181)
queststatus2 = getPlayerStorageValue(cid,8282)
queststatus3 = getPlayerStorageValue(cid,8383)
queststatus4 = getPlayerStorageValue(cid,8484)
Level = getPlayerLevel(cid)

if itemEx.itemid == 2709 and itemEx.actionid == 7787 and Level >= 120 then
doRemoveItem(tree)
doTeleportThing(cid, toPosition, TRUE)
setPlayerStorageValue(cid,8181,1)
else
doSendMagicEffect(toPosition, CONST_ME_POFF)
end
if itemEx.itemid == 2709 and itemEx.actionid == 7788 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "A player is already doing this quest.")
end
if itemEx.itemid == 8289 and itemEx.actionid == 8181 and (randomizer == 1) and queststatus == 1 then
doSummonCreature("Crypt Shambler", monster1)
doSummonCreature("Crypt Shambler", monster2)
doSummonCreature("Crypt Shambler", monster3)
doSummonCreature("Crypt Shambler", monster4)
elseif itemEx.itemid == 8289 and itemEx.actionid == 8181 and (randomizer == 2) and queststatus == 1 then
doSummonCreature("Bone Beast", monster1)
doSummonCreature("Bone Beast", monster2)
doSummonCreature("Bone Beast", monster3)
doSummonCreature("Bone Beast", monster4)
elseif itemEx.itemid == 8289 and itemEx.actionid == 8181 and (randomizer == 3) and queststatus == 1 then
doSummonCreature("Betrayed Wraith", monster1)
doSummonCreature("Lost Soul", monster2)
setPlayerStorageValue(cid,8181,-1)
setPlayerStorageValue(cid,8282,1)
elseif itemEx.itemid == 8289 and itemEx.actionid == 8181 and (randomizer >= 4) and queststatus == 1 then
doSendMagicEffect(playerPos, 45)
doCreatureAddHealth(cid, -300)
doSendAnimatedText(playerPos, '300', TEXTCOLOR_LIGHTGREEN)
end
if itemEx.itemid == 8289 and itemEx.actionid == 8181 and queststatus == -1 then
doSendMagicEffect(toPosition, CONST_ME_POFF)
end
if itemEx.itemid == 8288 and itemEx.actionid == 8282 and (randomizer == 1) and queststatus2 == 1 then
doSummonCreature("Crypt Shambler", monster1)
doSummonCreature("Mummy", monster2)
doSummonCreature("Mummy", monster3)
doSummonCreature("Crypt Shambler", monster4)
elseif itemEx.itemid == 8288 and itemEx.actionid == 8282 and (randomizer == 2) and queststatus2 == 1 then
doSummonCreature("Giant Spider", monster1)
doSummonCreature("Giant Spider", monster4)
elseif itemEx.itemid == 8288 and itemEx.actionid == 8282 and (randomizer == 3) and queststatus2 == 1 then
doSummonCreature("Blightwalker", monster1)
doSummonCreature("Lost Soul", monster2)
setPlayerStorageValue(cid,8282,-1)
setPlayerStorageValue(cid,8383,1)
elseif itemEx.itemid == 8288 and itemEx.actionid == 8282 and (randomizer >= 4) and queststatus2 == 1 then
doSendMagicEffect(playerPos, 45)
doCreatureAddHealth(cid, -300)
doSendAnimatedText(playerPos, '300', TEXTCOLOR_LIGHTGREEN)
end
if itemEx.itemid == 8288 and itemEx.actionid == 8282 and queststatus2 == -1 then
doSendMagicEffect(toPosition, CONST_ME_POFF)
end
if itemEx.itemid == 8290 and itemEx.actionid == 8383 and (randomizer == 1) and queststatus3 == 1 then
doSummonCreature("Crypt Shambler", monster1)
doSummonCreature("Crypt Shambler", monster2)
doSummonCreature("Crypt Shambler", monster3)
doSummonCreature("Crypt Shambler", monster4)
elseif itemEx.itemid == 8290 and itemEx.actionid == 8383 and (randomizer == 2) and queststatus3 == 1 then
doSummonCreature("Lich", monster1)
doSummonCreature("Lich", monster2)
doSummonCreature("Lich", monster3)
doSummonCreature("Lich", monster4)
elseif itemEx.itemid == 8290 and itemEx.actionid == 8383 and (randomizer == 3) and queststatus3 == 1 then
doSummonCreature("Plaguesmith", monster1)
doSummonCreature("Plaguesmith", monster2)
setPlayerStorageValue(cid,8383,-1)
setPlayerStorageValue(cid,8484,1)
elseif itemEx.itemid == 8290 and itemEx.actionid == 8383 and (randomizer >= 4) and queststatus3 == 1 then
doSendMagicEffect(playerPos, 45)
doCreatureAddHealth(cid, -300)
doSendAnimatedText(playerPos, '300', TEXTCOLOR_LIGHTGREEN)
end
if itemEx.itemid == 8290 and itemEx.actionid == 8383 and queststatus3 == -1 then
doSendMagicEffect(toPosition, CONST_ME_POFF)
end
if itemEx.itemid == 8291 and itemEx.actionid == 8484 and (randomizer == 1) and queststatus4 == 1 then
doSummonCreature("Nightmare", monster1)
doSummonCreature("Mummy", monster2)
doSummonCreature("Mummy", monster3)
doSummonCreature("Nightmare", monster4)
elseif itemEx.itemid == 8291 and itemEx.actionid == 8484 and (randomizer == 2) and queststatus4 == 1 then
doSummonCreature("Giant spider", monster1)
doSummonCreature("Undead Dragon", monster2)
doSummonCreature("Giant Spider", monster2)
doSummonCreature("Giant Spider", monster3)
elseif itemEx.itemid == 8291 and itemEx.actionid == 8484 and (randomizer == 3) and queststatus4 == 1 then
doSummonCreature("Demon", monster1)
doSummonCreature("Juggernaut", monster2)
setPlayerStorageValue(cid,8484,-1)
setPlayerStorageValue(cid,8585,1)
elseif itemEx.itemid == 8291 and itemEx.actionid == 8484 and (randomizer >= 4) and queststatus4 == 1 then
doSendMagicEffect(playerPos, 45)
doCreatureAddHealth(cid, -300)
doSendAnimatedText(playerPos, '300', TEXTCOLOR_LIGHTGREEN)
end
if itemEx.itemid == 8291 and itemEx.actionid == 8484 and queststatus4 == -1 then
doSendMagicEffect(toPosition, CONST_ME_POFF)
end
end
Click to expand...

create DOQChests.lua and paste:
function onUse(cid, item, fromPosition, itemEx, toPosition)

if item.uid == 12901 then
queststatus = getPlayerStorageValue(cid,50090)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found demon legs.")
doPlayerAddItem(cid,2495,1)
setPlayerStorageValue(cid,50090,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
elseif item.uid == 12902 then
queststatus = getPlayerStorageValue(cid,50090)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a rainbow shield.")
doPlayerAddItem(cid,8905,1)
setPlayerStorageValue(cid,50090,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
elseif item.uid == 12903 then
queststatus = getPlayerStorageValue(cid,50090)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a royal crossbow.")
doPlayerAddItem(cid,8851,1)
setPlayerStorageValue(cid,50090,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
elseif item.uid == 12904 then
queststatus = getPlayerStorageValue(cid,50090)
if queststatus == -1 then
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Spellbook of Dark Mysteries.")
doPlayerAddItem(cid,8918,1)
setPlayerStorageValue(cid,50090,1)
else
doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.")
end
end
return 1
end
Click to expand...

create DOQgravestone.lua and paste:
function onUse(cid, item, fromPosition, itemEx, toPosition)
newPosition = {x=32701, y=32201, z=9} --- pos to prize room
winner1 = getPlayerStorageValue(cid,20000)
winner2 = getPlayerStorageValue(cid,20001)
winner3 = getPlayerStorageValue(cid,20002)
winner4 = getPlayerStorageValue(cid,20003)
if item.itemid == 8059 and winner1 and winner2 and winner3 and winner4 == 1 then
doTeleportThing(cid, newPosition, TRUE)
doSendMagicEffect(newPosition, 10)
setPlayerStorageValue(cid,20000,-1)
setPlayerStorageValue(cid,20001,-2)
setPlayerStorageValue(cid,20002,2)
setPlayerStorageValue(cid,20003,0)
end
return 1
end
Click to expand...
 
When copying others work and not posting credits please use
[.code]
[./code]
 
no credits
use [.lua][./lua]
post the map link
explain for which TFS does it work
Don't post so messy code
Don't repeat a posted code
Oh, an don't waste your time posting a failure thread
 
Back
Top