xTibia

.com
SK
action

Editar survival

Por SkyDarkyes, 06 de ago. de 2015 em Archived

24
2.9k
SkyDarkyesS
06 de agosto de 2015 às 14:03

Esse é o script survival feito pelo membro omega aqui do fórum, alguem poderia modificar ele e colocar pra tipo, só entrar se tiverem 4 players? tipo uma anihi, e tbm retirar a "medal" quando vc vence vc ganha a medal queria tirar essa parte

 

 

<?xml version="1.0" encoding="UTF-8"?>
<mod name="Ultimate Survival" version="1.0" author="Omega" enabled="yes">
<config name="ultimatelib"><![CDATA[
USurvival = {
posi = {x=1325, y=1910, z=8},
posf = {x=1336, y=1921, z=8},
posc = {x=1331, y=1915, z=8},
 
waves = {
[1] = {monsters = {'bandit'}, count = 30, reward = {exp = 0, item = 2148, amount = 1, money = 100}},
[2] = {monsters = {'beezer'}, count = 6, reward = {exp = 0, item = 2152, amount = 1, money = 1000}},
},
exhaust = 1 * 24 * 60 * 60, -- Tempo em segundos até poder entrar novamente na arena (1 * 24 * 60 * 60 = 1 dia)
 
final_reward = {item = 2160, amount = 100, exp = 10000, money = 100000},
 
storage_ex = 607069,
storage_wave = 607089,
}
 
function isWalkable(pos)-- by Nord / editado por Omega
    if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then
        return false
    elseif isCreature(getTopCreature(pos).uid) then
        return false
    elseif getTileInfo(pos).protection then
        return false
    elseif hasProperty(getThingFromPos(pos).uid, 3) or hasProperty(getThingFromPos(pos).uid, 7) then
        return false
    end
return true
end
 
function doSpawnMonsters(monsters, pos, radius, limit)
if not pos.x or not pos.y or not pos.z or not type(monsters) == 'table' then
return false
end
local radius = tonumber(radius)
if radius > 5 then
radius = 5
elseif radius < 2 then
radius = 2
end
if not limit or limit < 1 then
limit = 1
elseif limit > radius ^ 2 then
limit = math.floor((radius*1.5) ^ 2)
end
 
local k = 0
local tries = 0
repeat
for x = pos.x - radius, pos.x + radius do
for y = pos.y - radius, pos.y + radius do
if isWalkable({x=x, y=y, z=pos.z}) then
local monster = monsters[math.random(1, #monsters)]
local chance = math.random(1, 100)
if k == limit then
break
elseif chance <= 8 and doCreateMonster(monster, {x=x, y=y, z=pos.z}) then
k = k + 1
end
end
end
end
tries = tries + 1
until k >= limit or tries >= 500
return k >= limit and true or false
end
 
function getPlayersInArea(pos1,pos2)
local players = {}
if pos1.x and pos1.y and pos2.x and pos2.y and pos1.z == pos2.z then
for a = pos1.x, pos2.x do
for b = pos1.y,pos2.y do
local pos = {x=a,y=b,z=pos1.z}
if isPlayer(getTopCreature(pos).uid) then
table.insert(players,getTopCreature(pos).uid)
end
end
end
return players
else
return false
end
end 
 
function getMonstersInArea(pos1,pos2)
local players = {}
if pos1.x and pos1.y and pos2.x and pos2.y and pos1.z == pos2.z then
for a = pos1.x, pos2.x do
for b = pos1.y,pos2.y do
local pos = {x=a,y=b,z=pos1.z}
if isMonster(getTopCreature(pos).uid) then
table.insert(players,getTopCreature(pos).uid)
end
end
end
return players
else
return false
end
end
 
function doCleanArena()
local monsters = getMonstersInArea(USurvival.posi, USurvival.posf)
for _, cid in pairs(monsters) do
doRemoveCreature(cid)
end
end
 
function doStartWave(waveID, cid)
if not isCreature(cid) then return false end
if USurvival.waves[waveID] then
wave = USurvival.waves[waveID]
doSpawnMonsters(wave.monsters, USurvival.posc, 5, wave.count)
doPlayerSendTextMessage(cid, 21, 'Wave '..waveID..' has started! FIGHT!')
end
end
]]></config>
 
<action actionid="4599" event="script" override="yes"><![CDATA[
domodlib('ultimatelib')
function onUse(cid, item)
if getPlayerStorageValue(cid, USurvival.storage_ex) <= os.time() then
if #getPlayersInArea(USurvival.posi, USurvival.posf) == 0 then
doCleanArena()
doTeleportThing(cid, USurvival.posc)
doPlayerSendTextMessage(cid, 21, 'The Ultimate Survival will Start in 10 seconds! Be ready to face your destiny!')
addEvent(doStartWave, 10000, 1, cid)
setPlayerStorageValue(cid, USurvival.storage_wave, 1)
setPlayerStorageValue(cid, USurvival.storage_ex, os.time() + USurvival.exhaust)
if item.itemid % 2 == 1 then
doTransformItem(item.uid, item.itemid+1)
else
doTransformItem(item.uid, item.itemid-1)
end
else
doPlayerSendCancel(cid, 'Someone is already in the arena.')
doSendMagicEffect(getThingPos(cid), 2)
end
else
local left = getPlayerStorageValue(cid, USurvival.storage_ex) - os.time()
left = {hour = math.floor(left/3600), minutes = math.ceil((left % 3600)/60)}
doPlayerSendCancel(cid, 'You have to wait '.. left.hour ..'h and '..left.minutes..'min.')
doSendMagicEffect(getThingPos(cid), 2)
end
return true
end
]]></action>
 
<event type="login" name="US Login" event="script"><![CDATA[
domodlib('ultimatelib')
function onLogin(cid)
registerCreatureEvent(cid,'UltimateSurvival1')
registerCreatureEvent(cid,'UltimateSurvival2')
if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
doSendMagicEffect(getThingPos(cid), 10)
end
return true
end
]]></event>
 
<event type="kill" name="UltimateSurvival1" event="script"><![CDATA[
domodlib('ultimatelib')
function onKill(cid, target)
if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
if #getMonstersInArea(USurvival.posi, USurvival.posf) == 1 then
local wave = getPlayerStorageValue(cid, USurvival.storage_wave)
if USurvival.waves[wave+1] then
setPlayerStorageValue(cid, USurvival.storage_wave, wave + 1)
addEvent(doStartWave, 5000, wave + 1, cid)
doPlayerSendTextMessage(cid, 22, 'Congratulations! Next wave will start in 5 seconds!')
else
doPlayerSendTextMessage(cid, 22, 'CONGRATULATIONS! YOU HAVE BEATEN THE ULTIMATE SURVIVAL!')
local reward = USurvival.final_reward
if reward.item then
doPlayerAddItem(cid, reward.item, (reward.amount or 1), false)
end
if reward.exp then
doPlayerAddExp(cid, reward.exp)
end
if reward.money then
doPlayerAddMoney(cid, reward.money)
end
local medal = doPlayerAddItem(cid, 5785, 1, false)
if medal then
doItemSetAttribute(medal, 'description', 'This was awarded to '..getCreatureName(cid)..' for completing the Ultimate Survival.')
doItemSetAttribute(medal,'name', 'Ultimate Survival Medal')
end
doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
end
end
end
return true
end
 
]]></event>
 
<event type="preparedeath" name="UltimateSurvival2" event="script"><![CDATA[
domodlib('ultimatelib')
function onPrepareDeath(cid, killers)
if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
doCreatureAddHealth(cid, getCreatureMaxHealth(cid), 65535, 256, true)
doRemoveConditions(cid, false)
doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
doPlayerSendTextMessage(cid, 21, 'Too bad, you couldn\'t defeat the Ultimate Survival... Better luck next time.')
local reward = USurvival.waves[getPlayerStorageValue(cid, USurvival.storage_wave)].reward
if reward.item then
doPlayerAddItem(cid, reward.item, reward.amount or 1)
end
if reward.exp then
doPlayerAddExp(cid, reward.exp)
end
if reward.money then
doPlayerAddMoney(cid, reward.money)
end
return false
end
return true
end
]]></event>
 
</mod>
SkyLighS
06 de agosto de 2015 às 14:07

posta o link do tópico do script? por que ta meio desorganizado esse code

SkyDarkyesS
06 de agosto de 2015 às 14:20

http://www.xtibia.com/forum/topic/221415-ultimate-survival/

SkyLighS
06 de agosto de 2015 às 14:29




<?xml version="1.0" encoding="UTF-8"?>



<!--



                ULTIMATE SURVIVAL - Código feito por Omega / Pedido por vinnevinne


 



                      Informações: http://www.xtibia.com/forum/topic/221415-ultimate-survival/



-->


 



<mod name="Ultimate Survival" version="1.0" author="Omega" enabled="yes">



<config name="ultimatelib"><![CDATA[



USurvival = {



	posi = {x=104, y=210, z=7},



	posf = {x=115, y=221, z=7},



	posc = {x=109, y=215, z=7},



	pose = {x=110, y=219, z=7},


 



	waves = {



	[1] = {monsters = {'dragon', 'dragon lord'}, count = 30, reward = {exp = 0, item = 2148, amount = 1, money = 100}},



	[2] = {monsters = {'dragon lord', 'frost dragon'}, count = 6, reward = {exp = 0, item = 2152, amount = 1, money = 1000}},



	[3] = {monsters = {'hydra', 'serpent spawn'}, count = 10, reward = {exp = 0, item = 2160, amount = 1, money = 10000}},



	},



	exhaust = 1 * 24 * 60 * 60, -- Tempo em segundos até poder entrar novamente na arena (1 * 24 * 60 * 60 = 1 dia)


 



	final_reward = {item = 2160, amount = 100, exp = 10000, money = 100000},


 



	storage_ex = 607069,



	storage_wave = 607089,



}


 



function isWalkable(pos)-- by Nord / editado por Omega



    if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then



        return false



    elseif isCreature(getTopCreature(pos).uid) then



        return false



    elseif getTileInfo(pos).protection then



        return false



    elseif hasProperty(getThingFromPos(pos).uid, 3) or hasProperty(getThingFromPos(pos).uid, 7) then



        return false



    end



return true



end


 



function doSpawnMonsters(monsters, pos, radius, limit)



	if not pos.x or not pos.y or not pos.z or not type(monsters) == 'table' then



		return false



	end



		local radius = tonumber(radius)



	if radius > 5 then



		radius = 5



	elseif radius < 2 then



		radius = 2



	end



	if not limit or limit < 1 then



		limit = 1



	elseif limit > radius ^ 2 then



		limit = math.floor((radius*1.5) ^ 2)



	end


 



	local k = 0



	local tries = 0



	repeat



		for x = pos.x - radius, pos.x + radius do



			for y = pos.y - radius, pos.y + radius do



				if isWalkable({x=x, y=y, z=pos.z}) then



					local monster = monsters[math.random(1, #monsters)]



					local chance = math.random(1, 100)



					if k == limit then



						break



					elseif chance <= 8 and doCreateMonster(monster, {x=x, y=y, z=pos.z}) then



						k = k + 1



					end



				end



			end



		end



		tries = tries + 1



	until k >= limit or tries >= 500



	return k >= limit and true or false



end


 



function getPlayersInArea(pos1,pos2)



	local players = {}



	if pos1.x and pos1.y and pos2.x and pos2.y and pos1.z == pos2.z then



		for a = pos1.x, pos2.x do



			for b = pos1.y,pos2.y do



				local pos = {x=a,y=b,z=pos1.z}



				if isPlayer(getTopCreature(pos).uid) then



					table.insert(players,getTopCreature(pos).uid)



				end



			end



		end



		return players



	else



		return false



	end



end	


 



function getMonstersInArea(pos1,pos2)



	local players = {}



	if pos1.x and pos1.y and pos2.x and pos2.y and pos1.z == pos2.z then



		for a = pos1.x, pos2.x do



			for b = pos1.y,pos2.y do



				local pos = {x=a,y=b,z=pos1.z}



				if isMonster(getTopCreature(pos).uid) then



					table.insert(players,getTopCreature(pos).uid)



				end



			end



		end



		return players



	else



		return false



	end



end


 



function doCleanArena()



	local monsters = getMonstersInArea(USurvival.posi, USurvival.posf)



	for _, cid in pairs(monsters) do



		doRemoveCreature(cid)



	end



end


 



function doStartWave(waveID, cid)



	if not isCreature(cid) then return false end



	if USurvival.waves[waveID] then



		wave = USurvival.waves[waveID]



		doSpawnMonsters(wave.monsters, USurvival.posc, USurvival.pose, 5, wave.count)



		doPlayerSendTextMessage(cid, 21, 'Wave '..waveID..' has started! FIGHT!')



	end



end



]]></config>


 



<action actionid="4599" event="script" override="yes"><![CDATA[



domodlib('ultimatelib')



function onUse(cid, item)



	if getPlayerStorageValue(cid, USurvival.storage_ex) <= os.time() then



		if #getPlayersInArea(USurvival.posi, USurvival.posf) == 0 then



			doCleanArena()



			doTeleportThing(cid, USurvival.posc, USurvival.pose,)



			doPlayerSendTextMessage(cid, 21, 'The Ultimate Survival will Start in 10 seconds! Be ready to face your destiny!')



			addEvent(doStartWave, 10000, 1, cid)



			setPlayerStorageValue(cid, USurvival.storage_wave, 1)



			setPlayerStorageValue(cid, USurvival.storage_ex, os.time() + USurvival.exhaust)



			if item.itemid % 2 == 1 then



				doTransformItem(item.uid, item.itemid+1)



			else



				doTransformItem(item.uid, item.itemid-1)



			end



		else



			doPlayerSendCancel(cid, 'Someone is already in the arena.')



			doSendMagicEffect(getThingPos(cid), 2)



		end



	else



		local left = getPlayerStorageValue(cid, USurvival.storage_ex) - os.time()



		left = {hour = math.floor(left/3600), minutes = math.ceil((left % 3600)/60)}



		doPlayerSendCancel(cid, 'You have to wait '.. left.hour ..'h and '..left.minutes..'min.')



		doSendMagicEffect(getThingPos(cid), 2)



	end



	return true



end



]]></action>


 



<event type="login" name="US Login" event="script"><![CDATA[



domodlib('ultimatelib')



function onLogin(cid)



	registerCreatureEvent(cid,'UltimateSurvival1')



	registerCreatureEvent(cid,'UltimateSurvival2')



	if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then



		doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))



		doSendMagicEffect(getThingPos(cid), 10)



	end



	return true



end



]]></event>


 



<event type="kill" name="UltimateSurvival1" event="script"><![CDATA[



domodlib('ultimatelib')



function onKill(cid, target)



	if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then



		if #getMonstersInArea(USurvival.posi, USurvival.posf) == 1 then



			local wave = getPlayerStorageValue(cid, USurvival.storage_wave)



			if USurvival.waves[wave+1] then



				setPlayerStorageValue(cid, USurvival.storage_wave, wave + 1)



				addEvent(doStartWave, 5000, wave + 1, cid)



				doPlayerSendTextMessage(cid, 22, 'Congratulations! Next wave will start in 5 seconds!')



			else



				doPlayerSendTextMessage(cid, 22, 'CONGRATULATIONS! YOU HAVE BEATEN THE ULTIMATE SURVIVAL!')



				local reward = USurvival.final_reward



				if reward.item then



					doPlayerAddItem(cid, reward.item, (reward.amount or 1), false)



				end



				if reward.exp then



					doPlayerAddExp(cid, reward.exp)



				end



				if reward.money then



					doPlayerAddMoney(cid, reward.money)



				end



				local medal = doPlayerAddItem(cid, 5785, 1, false)



				if medal then



					doItemSetAttribute(medal, 'description', 'This was awarded to '..getCreatureName(cid)..' for completing the Ultimate Survival.')



					doItemSetAttribute(medal,'name', 'Ultimate Survival Medal')



				end



				doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))



			end



		end



	end



	return true



end


 



]]></event>


 



<event type="preparedeath" name="UltimateSurvival2" event="script"><![CDATA[



domodlib('ultimatelib')



function onPrepareDeath(cid, killers)



	if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then



		doCreatureAddHealth(cid, getCreatureMaxHealth(cid), 65535, 256, true)



		doRemoveConditions(cid, false)



		doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))



		doPlayerSendTextMessage(cid, 21, 'Too bad, you couldn\'t defeat the Ultimate Survival... Better luck next time.')



		local reward = USurvival.waves[getPlayerStorageValue(cid, USurvival.storage_wave)].reward



		if reward.item then



			doPlayerAddItem(cid, reward.item, reward.amount or 1)



		end



		if reward.exp then



			doPlayerAddExp(cid, reward.exp)



		end



		if reward.money then



			doPlayerAddMoney(cid, reward.money)



		end



		return false



	end



	return true



end



]]></event>


 



</mod>






 


SkyDarkyesS
06 de agosto de 2015 às 14:35
Você fez as 2 modificações?
SkyLighS
06 de agosto de 2015 às 14:43
não só coloquei o 4 player vou vê o negocio do medal.
BrunoB
06 de agosto de 2015 às 15:12


@@SkyDarkyes,


 


Tente assim:


 










<?xml version="1.0" encoding="UTF-8"?>
<mod name="Ultimate Survival" version="1.0" author="Omega" enabled="yes">
<config name="ultimatelib"><![CDATA[
USurvival = {
    posi = {x=1325, y=1910, z=8},
    posf = {x=1336, y=1921, z=8},
    posc = {x=1331, y=1915, z=8},

    minPlayers = 4,
    areaLeft = {x = 5, y = 6, z = 7},
    areaRight = {x = 5, y = 6, z = 7},

    waves = {
        [1] = {monsters = {'bandit'}, count = 30, reward = {exp = 0, item = 2148, amount = 1, money = 100}},
        [2] = {monsters = {'beezer'}, count = 6, reward = {exp = 0, item = 2152, amount = 1, money = 1000}}
    },

    exhaust = 1 * 24 * 60 * 60, -- Tempo em segundos até poder entrar novamente na arena (1 * 24 * 60 * 60 = 1 dia)

    final_reward = {item = 2160, amount = 100, exp = 10000, money = 100000},

    storage_ex = 607069,
    storage_wave = 607089
}
 
function isWalkable(pos)-- by Nord / editado por Omega
    if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then
        return false
    elseif isCreature(getTopCreature(pos).uid) then
        return false
    elseif getTileInfo(pos).protection then
        return false
    elseif hasProperty(getThingFromPos(pos).uid, 3) or hasProperty(getThingFromPos(pos).uid, 7) then
        return false
    end
    return true
end
 
function doSpawnMonsters(monsters, pos, radius, limit)
    if not pos.x or not pos.y or not pos.z or not type(monsters) == 'table' then
        return false
    end
    local radius = tonumber(radius)
    if radius > 5 then
        radius = 5
    elseif radius < 2 then
        radius = 2
    end
    if not limit or limit < 1 then
        limit = 1
    elseif limit > radius ^ 2 then
        limit = math.floor((radius*1.5) ^ 2)
    end
    
    local k = 0
    local tries = 0
    repeat
        for x = pos.x - radius, pos.x + radius do
            for y = pos.y - radius, pos.y + radius do
                if isWalkable({x=x, y=y, z=pos.z}) then
                    local monster = monsters[math.random(1, #monsters)]
                    local chance = math.random(1, 100)
                    if k == limit then
                        break
                    elseif chance <= 8 and doCreateMonster(monster, {x=x, y=y, z=pos.z}) then
                        k = k + 1
                    end
                end
            end
        end
        tries = tries + 1
    until k >= limit or tries >= 500
    return k >= limit and true or false
end

function getPlayersInArea(pos1,pos2)
    local players = {}
    if pos1.x and pos1.y and pos2.x and pos2.y and pos1.z == pos2.z then
        for a = pos1.x, pos2.x do
            for b = pos1.y,pos2.y do
                local pos = {x=a,y=b,z=pos1.z}
                if isPlayer(getTopCreature(pos).uid) then
                    table.insert(players,getTopCreature(pos).uid)
                end
            end
        end
        return players
    else
        return false
    end
end

function getMonstersInArea(pos1,pos2)
    local players = {}
    if pos1.x and pos1.y and pos2.x and pos2.y and pos1.z == pos2.z then
        for a = pos1.x, pos2.x do
            for b = pos1.y,pos2.y do
                local pos = {x=a,y=b,z=pos1.z}
                if isMonster(getTopCreature(pos).uid) then
                    table.insert(players,getTopCreature(pos).uid)
                end
            end
        end
        return players
    else
        return false
    end
end

function doCleanArena()
    local monsters = getMonstersInArea(USurvival.posi, USurvival.posf)
    for _, cid in pairs(monsters) do
        doRemoveCreature(cid)
    end
end

function doStartWave(waveID, cid)
    if not isCreature(cid) then return false end
    if USurvival.waves[waveID] then
        wave = USurvival.waves[waveID]
        doSpawnMonsters(wave.monsters, USurvival.posc, 5, wave.count)
        doPlayerSendTextMessage(cid, 21, 'Wave '..waveID..' has started! FIGHT!')
    end
end
]]></config>
 
<action actionid="4599" event="script" override="yes"><![CDATA[
domodlib('ultimatelib')
function onUse(cid, item)
    if #getPlayersInArea(USurvival.areaLeft, USurvival.areaRight) < USurvival.minPlayers then
        doPlayerSendTextMessage(cid, 21, 'Your need ' .. USurvival.minPlayers .. ' or more to start!')
        return true
    end
    if getPlayerStorageValue(cid, USurvival.storage_ex) <= os.time() then
        if #getPlayersInArea(USurvival.posi, USurvival.posf) == 0 then
            doCleanArena()
            doTeleportThing(cid, USurvival.posc)
            doPlayerSendTextMessage(cid, 21, 'The Ultimate Survival will Start in 10 seconds! Be ready to face your destiny!')
            addEvent(doStartWave, 10000, 1, cid)
            setPlayerStorageValue(cid, USurvival.storage_wave, 1)
            setPlayerStorageValue(cid, USurvival.storage_ex, os.time() + USurvival.exhaust)
            if item.itemid % 2 == 1 then
                doTransformItem(item.uid, item.itemid + 1)
            else
                doTransformItem(item.uid, item.itemid - 1)
            end
        else
            doPlayerSendCancel(cid, 'Someone is already in the arena.')
            doSendMagicEffect(getThingPos(cid), 2)
        end
    else
        local left = getPlayerStorageValue(cid, USurvival.storage_ex) - os.time()
        left = {hour = math.floor(left/3600), minutes = math.ceil((left % 3600)/60)}
        doPlayerSendCancel(cid, 'You have to wait '.. left.hour ..'h and '..left.minutes..'min.')
        doSendMagicEffect(getThingPos(cid), 2)
    end
    return true
end
]]></action>
 
<event type="login" name="US Login" event="script"><![CDATA[
domodlib('ultimatelib')
function onLogin(cid)
    registerCreatureEvent(cid,'UltimateSurvival1')
    registerCreatureEvent(cid,'UltimateSurvival2')
    if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
        doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
        doSendMagicEffect(getThingPos(cid), 10)
    end
    return true
end
]]></event>
 
<event type="kill" name="UltimateSurvival1" event="script"><![CDATA[
domodlib('ultimatelib')
function onKill(cid, target)
    if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
        if #getMonstersInArea(USurvival.posi, USurvival.posf) == 1 then
            local wave = getPlayerStorageValue(cid, USurvival.storage_wave)
            if USurvival.waves[wave+1] then
                setPlayerStorageValue(cid, USurvival.storage_wave, wave + 1)
                addEvent(doStartWave, 5000, wave + 1, cid)
                doPlayerSendTextMessage(cid, 22, 'Congratulations! Next wave will start in 5 seconds!')
            else
                doPlayerSendTextMessage(cid, 22, 'CONGRATULATIONS! YOU HAVE BEATEN THE ULTIMATE SURVIVAL!')
                local reward = USurvival.final_reward
                if reward.item then
                    doPlayerAddItem(cid, reward.item, (reward.amount or 1), false)
                end
                if reward.exp then
                    doPlayerAddExp(cid, reward.exp)
                end
                if reward.money then
                    doPlayerAddMoney(cid, reward.money)
                end
                doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
            end
        end
    end
    return true
end
 
]]></event>
 
<event type="preparedeath" name="UltimateSurvival2" event="script"><![CDATA[
domodlib('ultimatelib')
function onPrepareDeath(cid, killers)
    if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
        doCreatureAddHealth(cid, getCreatureMaxHealth(cid), 65535, 256, true)
        doRemoveConditions(cid, false)
        doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
        doPlayerSendTextMessage(cid, 21, 'Too bad, you couldn\'t defeat the Ultimate Survival... Better luck next time.')
        local reward = USurvival.waves[getPlayerStorageValue(cid, USurvival.storage_wave)].reward
        if reward.item then
            doPlayerAddItem(cid, reward.item, reward.amount or 1)
        end
        if reward.exp then
            doPlayerAddExp(cid, reward.exp)
        end
        if reward.money then
            doPlayerAddMoney(cid, reward.money)
        end
        return false
    end
    return true
end
]]></event>
</mod>






 


 


Basta colocar a área em:


minPlayers = 4,


areaLeft = {x = 5, y = 6, z = 7},


areaRight = {x = 5, y = 6, z = 7},


Editado Agosto 6 por Bruno Minervino
SkyDarkyesS
06 de agosto de 2015 às 15:20


Seria isso? O 1347/1348/1349/1350 seria a posição dos 4 tiles que eles ficariam?


 


 


areaLeft = {x = 1347, y = 1869, z = 7},
areaRight = {x = 1350, y = 1869, z = 7},



BrunoB
06 de agosto de 2015 às 15:26




Seria isso? O 1347/1348/1349/1350 seria a posição dos 4 tiles que eles ficariam?


 


 


areaLeft = {x = 1347, y = 1869, z = 7},
areaRight = {x = 1350, y = 1869, z = 7},



 




Parte superior esquerda e parte inferior direita do lugar onde os players precisam estar para entrar no evento...


Vou usar uma parte do mapa de darashia para dar o exemplo, como estou no serviço não tenho outro exemplo...


fMUyzhR.png


SkyDarkyesS
06 de agosto de 2015 às 15:34
Mas nesse caso não seria tipo qualquer lugar ja poderia ir ? O eu estou precisando seria tipo uma anihi mesmo 4 players no x tiles, e so quem pode ativa e o um dos players que está no tile
BrunoB
06 de agosto de 2015 às 15:52


Mas nesse caso não seria tipo qualquer lugar ja poderia ir ? O eu estou precisando seria tipo uma anihi mesmo 4 players no x tiles, e so quem pode ativa e o um dos players que está no tile


Ta aí:


 








 




<?xml version="1.0" encoding="UTF-8"?>
<mod name="Ultimate Survival" version="1.0" author="Omega" enabled="yes">
<config name="ultimatelib"><![CDATA[
USurvival = {
    posi = {x=1325, y=1910, z=8},
    posf = {x=1336, y=1921, z=8},
    posc = {x=1331, y=1915, z=8},

    players_pos = {
        {x = 5, y = 6, z = 13, stackpos = 253},
        {x = 5, y = 6, z = 13, stackpos = 253},
        {x = 5, y = 6, z = 13, stackpos = 253},
        {x = 5, y = 6, z = 13, stackpos = 253}
    },

    waves = {
        [1] = {monsters = {'bandit'}, count = 30, reward = {exp = 0, item = 2148, amount = 1, money = 100}},
        [2] = {monsters = {'beezer'}, count = 6, reward = {exp = 0, item = 2152, amount = 1, money = 1000}}
    },

    exhaust = 1 * 24 * 60 * 60, -- Tempo em segundos até poder entrar novamente na arena (1 * 24 * 60 * 60 = 1 dia)

    final_reward = {item = 2160, amount = 100, exp = 10000, money = 100000},

    storage_ex = 607069,
    storage_wave = 607089
}
 
function isWalkable(pos)-- by Nord / editado por Omega
    if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then
        return false
    elseif isCreature(getTopCreature(pos).uid) then
        return false
    elseif getTileInfo(pos).protection then
        return false
    elseif hasProperty(getThingFromPos(pos).uid, 3) or hasProperty(getThingFromPos(pos).uid, 7) then
        return false
    end
    return true
end
 
function doSpawnMonsters(monsters, pos, radius, limit)
    if not pos.x or not pos.y or not pos.z or not type(monsters) == 'table' then
        return false
    end
    local radius = tonumber(radius)
    if radius > 5 then
        radius = 5
    elseif radius < 2 then
        radius = 2
    end
    if not limit or limit < 1 then
        limit = 1
    elseif limit > radius ^ 2 then
        limit = math.floor((radius*1.5) ^ 2)
    end
    
    local k = 0
    local tries = 0
    repeat
        for x = pos.x - radius, pos.x + radius do
            for y = pos.y - radius, pos.y + radius do
                if isWalkable({x=x, y=y, z=pos.z}) then
                    local monster = monsters[math.random(1, #monsters)]
                    local chance = math.random(1, 100)
                    if k == limit then
                        break
                    elseif chance <= 8 and doCreateMonster(monster, {x=x, y=y, z=pos.z}) then
                        k = k + 1
                    end
                end
            end
        end
        tries = tries + 1
    until k >= limit or tries >= 500
    return k >= limit and true or false
end

function getPlayersInArea(pos1,pos2)
    local players = {}
    if pos1.x and pos1.y and pos2.x and pos2.y and pos1.z == pos2.z then
        for a = pos1.x, pos2.x do
            for b = pos1.y,pos2.y do
                local pos = {x=a,y=b,z=pos1.z}
                if isPlayer(getTopCreature(pos).uid) then
                    table.insert(players,getTopCreature(pos).uid)
                end
            end
        end
        return players
    else
        return false
    end
end

function getMonstersInArea(pos1,pos2)
    local players = {}
    if pos1.x and pos1.y and pos2.x and pos2.y and pos1.z == pos2.z then
        for a = pos1.x, pos2.x do
            for b = pos1.y,pos2.y do
                local pos = {x=a,y=b,z=pos1.z}
                if isMonster(getTopCreature(pos).uid) then
                    table.insert(players,getTopCreature(pos).uid)
                end
            end
        end
        return players
    else
        return false
    end
end

function doCleanArena()
    local monsters = getMonstersInArea(USurvival.posi, USurvival.posf)
    for _, cid in pairs(monsters) do
        doRemoveCreature(cid)
    end
end

function doStartWave(waveID, cid)
    if not isCreature(cid) then return false end
    if USurvival.waves[waveID] then
        wave = USurvival.waves[waveID]
        doSpawnMonsters(wave.monsters, USurvival.posc, 5, wave.count)
        doPlayerSendTextMessage(cid, 21, 'Wave '..waveID..' has started! FIGHT!')
    end
end
]]></config>
 
<action actionid="4599" event="script" override="yes"><![CDATA[
domodlib('ultimatelib')
function onUse(cid, item)
	if getPlayerStorageValue(cid, USurvival.storage_ex) <= os.time() then
		if #getPlayersInArea(USurvival.posi, USurvival.posf) == 0 then
			local player, all_ready = {}, 0
			
			for i = 1, #USurvival.players_pos do
				table.insert(player, 0)
			end
			
			for i = 1, #USurvival.players_pos do
				player[i] = getThingfromPos(players_pos[i])
				if player[i].itemid > 0 then
					if isPlayer(player[i].uid) then
						all_ready = all_ready + 1
					end
				end
			end
			
			if all_ready == #USurvival.players_pos then
				doCleanArena()
				for i = 1, #players_pos do
					doSendMagicEffect(players_pos[i], CONST_ME_POFF)
					doTeleportThing(player[i].uid, USurvival.posc)
					doPlayerSendTextMessage(player[i].uid, 21, 'The Ultimate Survival will Start in 10 seconds! Be ready to face your destiny!')
					addEvent(doStartWave, 10000, 1, player[i].uid)
					setPlayerStorageValue(player[i].uid, USurvival.storage_wave, 1)
					setPlayerStorageValue(player[i].uid, USurvival.storage_ex, os.time() + USurvival.exhaust)
					doSendMagicEffect(USurvival.posc, CONST_ME_ENERGYAREA)
				end
				if item.itemid % 2 == 1 then
					doTransformItem(item.uid, item.itemid + 1)
				else
					doTransformItem(item.uid, item.itemid - 1)
				end
			else
				doPlayerSendTextMessage(cid, 19, "You need " .. #USurvival.players_pos .. " players to do this quest.")
			end
		else
			doPlayerSendCancel(cid, 'Someone is already in the arena.')
			doSendMagicEffect(getThingPos(cid), 2)
		end
	else
		local left = getPlayerStorageValue(cid, USurvival.storage_ex) - os.time()
		left = {hour = math.floor(left/3600), minutes = math.ceil((left % 3600)/60)}
		doPlayerSendCancel(cid, 'You have to wait '.. left.hour ..'h and '..left.minutes..'min.')
		doSendMagicEffect(getThingPos(cid), 2)
	end
	return true
end
]]></action>
 
<event type="login" name="US Login" event="script"><![CDATA[
domodlib('ultimatelib')
function onLogin(cid)
    registerCreatureEvent(cid,'UltimateSurvival1')
    registerCreatureEvent(cid,'UltimateSurvival2')
    if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
        doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
        doSendMagicEffect(getThingPos(cid), 10)
    end
    return true
end
]]></event>
 
<event type="kill" name="UltimateSurvival1" event="script"><![CDATA[
domodlib('ultimatelib')
function onKill(cid, target)
    if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
        if #getMonstersInArea(USurvival.posi, USurvival.posf) == 1 then
            local wave = getPlayerStorageValue(cid, USurvival.storage_wave)
            if USurvival.waves[wave+1] then
                setPlayerStorageValue(cid, USurvival.storage_wave, wave + 1)
                addEvent(doStartWave, 5000, wave + 1, cid)
                doPlayerSendTextMessage(cid, 22, 'Congratulations! Next wave will start in 5 seconds!')
            else
                doPlayerSendTextMessage(cid, 22, 'CONGRATULATIONS! YOU HAVE BEATEN THE ULTIMATE SURVIVAL!')
                local reward = USurvival.final_reward
                if reward.item then
                    doPlayerAddItem(cid, reward.item, (reward.amount or 1), false)
                end
                if reward.exp then
                    doPlayerAddExp(cid, reward.exp)
                end
                if reward.money then
                    doPlayerAddMoney(cid, reward.money)
                end
                doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
            end
        end
    end
    return true
end
 
]]></event>
 
<event type="preparedeath" name="UltimateSurvival2" event="script"><![CDATA[
domodlib('ultimatelib')
function onPrepareDeath(cid, killers)
    if isInArea(getThingPos(cid), USurvival.posi, USurvival.posf) then
        doCreatureAddHealth(cid, getCreatureMaxHealth(cid), 65535, 256, true)
        doRemoveConditions(cid, false)
        doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
        doPlayerSendTextMessage(cid, 21, 'Too bad, you couldn\'t defeat the Ultimate Survival... Better luck next time.')
        local reward = USurvival.waves[getPlayerStorageValue(cid, USurvival.storage_wave)].reward
        if reward.item then
            doPlayerAddItem(cid, reward.item, reward.amount or 1)
        end
        if reward.exp then
            doPlayerAddExp(cid, reward.exp)
        end
        if reward.money then
            doPlayerAddMoney(cid, reward.money)
        end
        return false
    end
    return true
end
]]></event>
</mod>






 


 


Só configurar as 4 posições.


Editado Agosto 6 por Bruno Minervino
SkyDarkyesS
06 de agosto de 2015 às 15:57


stackpos = 253}, seria oque?


 


A medal foi retirada?


BrunoB
06 de agosto de 2015 às 15:58




stackpos = 253}, seria oque?


 



A medal foi retirada?





Configura apenas a posição e deixa o resto como está...



Sim, a medalha foi retirada...


SkyDarkyesS
06 de agosto de 2015 às 18:14
8xYGRJ9.jpg
BrunoB
06 de agosto de 2015 às 20:57


[...]



Editei o script, testa ai...