Scripter Sreaching Scripter To Demon Oak And Other Small Things.

[Erikas Kontenis]

So i Sreaching Scripter For Demon Oak And Other Small Things I will By Realy Happy And Glad If Someone Will Help me. I will Wait Pm's ^_^

 

[Erikas Kontenis]

Bump, Scripted Self

 

[Zerak456]

laol -.-

im late hehehe ;P


EDIT//

wrong section -.-

 

[Nemo2010]

here is the demon oak script


http://otland.net/f81/working-demon-oak-quest-v0-3-forgotten-server-0-3-5-a-40244/

 

[Erikas Kontenis]

here is the demon oak script


http://otland.net/f81/working-demon-oak-quest-v0-3-forgotten-server-0-3-5-a-40244/

Xex Thanks. But. I using Tfs 0.2.5 Anyways Thx For Try Help :thumbup:

 

[Nemo2010]

http://otland.net/f81/demon-oak-quest-forgotten-server-0-2-4-a-42038/



rep++ me if my post helped u :d

 

[Erikas Kontenis]

That Script not working gravestone i was checked it 3 days ago but u wanna ur rep so i give it for u To Try For help

 

[Nemo2010]

lol? how it works u only need to change the uniqe id with the uniqe id in the map then it it will works :d right?

 

[Erikas Kontenis]

Sorry But Not im not noob know that But it ain'
t working ;(

 

[Nemo2010]

i was need to help u but wait i will

 

[Aeystin]

I can script demon aok
Just add me
[email protected]

 

[lizz]

This can be use fully :/
function onUse(cid, item, fromPosition, itemEx, toPosition)
treepos = {x=327, y=481, z=7, stackpos=1}
treepos2 = {x=325, y=487, z=7, stackpos=1} --- position of left arm
treepos3 = {x=327, y=485, z=7, stackpos=1} --- position of crow
treepos4 = {x=327, y=488, z=7, stackpos=1} --- position of mouth
newPosition = {x=327, y=482, z=7}
monster1 = {x=323, y=483, z=7}
monster2 = {x=323, y=490, z=7}
monster3 = {x=331, y=483, z=7}
monster4 = {x=331, y=490, 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, newPosition, 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)
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("Crypt Shambler", monster2)
doSummonCreature("Crypt Shambler", 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)
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)
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("Crypt Shambler", monster1)
doSummonCreature("Crypt Shambler", monster2)
doSummonCreature("Crypt Shambler", monster3)
doSummonCreature("Crypt Shambler", monster4)
elseif itemEx.itemid == 8291 and itemEx.actionid == 8484 and (randomizer == 2) and queststatus4 == 1 then
doSummonCreature("Lich", monster1)
doSummonCreature("Lich", 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
u need a hallowed axe script too?
Ehh this can be use fully to i hope :/
!!! !!!
!!! !!!
!!! !!!
!!! !!!
!!! !!!
!!! !!!
!!! !!!
!!! !!!
--Demon Oak 1.1 by Ta4e--
--Some scripts based in script of Mazen--

function onUse(cid, item, frompos, item2, topos)

--Aqui vc escolhe os monstros bases que a arvore irá sumonar--
local monster1 = "Dark Torturer"
local monster2 = "Lich"
local monster3 = "Lost Soul"
local monster4 = "Undead Dragon"
local monster5 = "giant spider"
local boss1 = "Blightwalker"
local boss2 = "Betrayed Wraith"
local boss3 = "necropharus"
local boss4 = "demon"

basepos = {x=61, y=129, z=7} --Aqui é a posição do "rosto" da arvore
local starting={x=53, y=122, z=7, stackpos=253} -- aqui é o mesma coisa da arena, pega a maior posição a noroeste
local ending={x=70, y=136, z=7, stackpos=253} -- aqui a posição mais sudeste
local trash= {x=182, y=240, z=11} --o Lixo pode ser o mesmo da arena ou da anihilator

local tree = 2717 -- id da arvore de entrada


--Monstros Alternativos------------------------------------------------------------------------------------------------------------------------------------------
local altmo = 0 --Escolhe se vai randomizar monstros ou não

local altmonst1 = "braindeath"
local altmonst2 = "necromancer"
local altmonst3 = "vampire"
local altmonst4 = "giant spider"
local altmonst5 = "demon skeleton"
local altboss1 = "plaguesmith"
local altboss2 = "phantasm"
local altboss3 = "hellhound"
local altboss4 = "behemoth"

----------------------------------------------------------------------------------------------------------------------------------

if altmo == 1 then
if math.random (1,5) == 1 or math.random (1,5) == 5 then
monster1 = altmonst1
monster2 = altmonst2
monster5 = altmonst5
boss1 = altboss1
boss3 = altboss3
else
monster3 = altmonst3
monster4 = altmonst4
boss2 = altboss2
boss4 = altboss4
end
end

local fourposition1 = {x=basepos.x-4, y=basepos.y-4, z=7}
local fourposition2 = {x=basepos.x-4, y=basepos.y+1, z=7}
local fourposition3 = {x=basepos.x+3, y=basepos.y-4, z=7}
local fourposition4 = {x=basepos.x+3, y=basepos.y+1, z=7}

local threeposition1 = {x=basepos.x+3, y=basepos.y+4, z=7}
local threeposition2 = {x=basepos.x+5, y=basepos.y+4, z=7}
local threeposition3 = {x=basepos.x+3, y=basepos.y+5, z=7}

local modpos1 = {x=basepos.x-3, y=basepos.y-5, z=7}
local modpos2 = {x=basepos.x, y=basepos.y-4, z=7}
local modpos3 = {x=basepos.x+2, y=basepos.y-5, z=7}

local twopos ={x=basepos.x+5, y=basepos.y+1, z=7}
local twopos1 = {x=basepos.x+2, y=basepos.y+2, z=7}

local doublepos = {x=basepos.x-3, y=basepos.y-1, z=7}

local leftpos = {x=basepos.x-4, y=basepos.y-5, z=7}
local crepos = {x=basepos.x-3, y=basepos.y-9, z=7}
local gopos = {x=basepos.x-3, y=basepos.y-18, z=7}

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

local gtotal = getPlayerStorageValue(cid, 15005)
local gcorvo = getPlayerStorageValue(cid, 15001)
local gleft = getPlayerStorageValue(cid, 15002)
local gright = getPlayerStorageValue(cid, 15003)
local gface = getPlayerStorageValue(cid, 15004)
checking={x=starting.x, y=starting.y, z=starting.z, stackpos=starting.stackpos}


if item2.itemid == tree and item2.uid == 32193 and getPlayerLevel(cid) >= 120 and getPlayerStorageValue(cid, 15005)== 3 then
players=0
totalmonsters=0
monster = {}
repeat
creature= getThingfromPos(checking)
if creature.itemid > 0 then
if getPlayerAccess(creature.uid) == 0 then
players=players+1
end
if getPlayerAccess(creature.uid) ~= 0 and getPlayerAccess(creature.uid) ~= 3 then
totalmonsters=totalmonsters+1
monster[totalmonsters]=creature.uid
end
end
checking.x=checking.x+1
if checking.x>ending.x then
checking.x=starting.x
checking.y=checking.y+1
end
until checking.y>ending.y
if players==0 then
current=0
repeat
current=current+1
doTeleportThing(monster[current],trash)
until current>=totalmonsters
doTeleportThing(cid, topos, 0)
doTransformItem(item2.uid, 3669)
setPlayerStorageValue(cid, 15001,1)
setPlayerStorageValue(cid, 15002,1)
setPlayerStorageValue(cid, 15003,1)
setPlayerStorageValue(cid, 15004,1)
doCreateTeleport(1387, gopos, crepos)
end


elseif item2.itemid == 8288 then
if gcorvo <10 then
effect (cid,15001,gcorvo,topos)
if gcorvo == 3 then
doSummonCreature(monster1, fourposition1)
doSummonCreature(monster1, fourposition2)
doSummonCreature(monster1, fourposition3)
doSummonCreature(monster1, fourposition4)
elseif gcorvo == 5 then
doSummonCreature(monster2, threeposition1)
doSummonCreature(monster2, threeposition2)
doSummonCreature(monster2, threeposition3)
elseif gcorvo == 7 then
doSummonCreature(boss1, fourposition3)
elseif gcorvo == 9 then
gtotal = gtotal + 1
setPlayerStorageValue(cid, 15005,gtotal)
end
else
doSendMagicEffect(topos, 2)
end

elseif item2.itemid == 8289 then
if gleft <10 then
effect (cid,15002,gleft,topos)
if gleft == 3 then
doSummonCreature(monster1, fourposition1)
doSummonCreature(monster1, fourposition2)
doSummonCreature(monster1, fourposition3)
doSummonCreature(monster1, fourposition4)
elseif gleft == 4 then
doSummonCreature(monster3, modpos1)
doSummonCreature(monster3, modpos2)
doSummonCreature(monster3, modpos3)
doSummonCreature(monster3, fourposition2)
elseif gleft == 7 then
doSummonCreature(monster1, fourposition1)
doSummonCreature(monster1, fourposition2)
doSummonCreature(monster1, fourposition3)
doSummonCreature(monster1, fourposition4)
elseif gleft == 9 then
doSummonCreature(boss2, leftpos)
gtotal = gtotal + 1
setPlayerStorageValue(cid, 15005,gtotal)
end
else
doSendMagicEffect(topos, 2)
end

elseif item2.itemid == 8290 then
if gright <10 then
effect (cid,15003,gright,topos)
if gright == 2 then
doSummonCreature(monster4, twopos)
doSummonCreature(monster4, twopos1)
elseif gright == 4 then
doSummonCreature(monster1, fourposition1)
doSummonCreature(monster1, fourposition2)
doSummonCreature(monster1, fourposition3)
doSummonCreature(monster1, fourposition4)
elseif gright == 7 then
doSummonCreature(monster1, fourposition1)
doSummonCreature(monster1, fourposition2)
doSummonCreature(monster1, fourposition3)
doSummonCreature(monster1, fourposition4)
elseif gright == 9 then
doSummonCreature(boss3,leftpos)
gtotal = gtotal + 1
setPlayerStorageValue(cid, 15005,gtotal)
end
else
doSendMagicEffect(topos, 2)
end

elseif item2.itemid == 8291 then
if gface <10 then
effect (cid,15004,gface,topos)
if gface == 1 then
doSummonCreature(monster2, doublepos)
doSummonCreature(monster5, fourposition2)
elseif gface == 4 then
doSummonCreature(monster1, fourposition1)
doSummonCreature(monster1, fourposition2)
doSummonCreature(monster1, fourposition3)
doSummonCreature(monster1, fourposition4)
elseif gface == 6 then
doSummonCreature(boss4, leftpos)
elseif gface == 9 then
gtotal = gtotal + 1
setPlayerStorageValue(cid, 15005,gtotal)
end
else
doSendMagicEffect(topos, 2)
end
end
return 0
end


function effect (cid,storage,valor,topos)
valor = getPlayerStorageValue(cid, storage)
doTargetCombatHealth(0, cid, COMBAT_EARTHDAMAGE, -300, -510, CONST_ME_BIGPLANTS)
valor = valor + 1
setPlayerStorageValue(cid, storage,valor)
doSendMagicEffect(topos, 0)
end