action Editar survival

SkyDarkyes · Agosto 7, 2015

Tem ctz que tu edito?

Bruno · Agosto 7, 2015

Tem ctz que tu edito?

Sim...

Ta ai dnv:

<?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>

SkyDarkyes · Agosto 7, 2015

Continua

brendoonh · Agosto 7, 2015

Aqui tambem deu este erro...

Bruno · Agosto 7, 2015

Continua

Aqui tambem deu este erro...

E agora?

<?xml version="1.0" encoding="ISO-8859-1"?>
<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 ate 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>

brendoonh · Agosto 7, 2015

O erro ao iniciar o server saiu, mais tarde testo o desenvolver do evento e volto aqui pra qualquer coisa...

SkyDarkyes · Agosto 9, 2015

Continua

@up

brendoonh · Agosto 11, 2015

@Bruno, fui testar o evento aqui e deu erro na distro, quando puxei a alavanca...

Imagem:

Bruno · Agosto 25, 2015

O tópico foi fechado e movido para lixeira por estar inativo a mais de 10 dias. Caso seja preciso reabrir o mesmo, favor entrar em contato com a equipe.

Entrar

action Editar survival

Posts Recomendados

SkyDarkyes 104

Link para o comentário

Compartilhar em outros sites

Bruno 535

Link para o comentário

Compartilhar em outros sites

SkyDarkyes 104

Link para o comentário

Compartilhar em outros sites

brendoonh 14

Link para o comentário

Compartilhar em outros sites

Bruno 535

Link para o comentário

Compartilhar em outros sites

brendoonh 14

Link para o comentário

Compartilhar em outros sites

SkyDarkyes 104

Link para o comentário

Compartilhar em outros sites

brendoonh 14

Link para o comentário

Compartilhar em outros sites

Bruno 535

Link para o comentário

Compartilhar em outros sites

Quem Está Navegando 0 membros estão online

Conteúdo Similar

Healing Machine

catch system Erro catch system

Sacrificar itens em determinadas posições teleporta player

tfs0.3.6 Pedido adaptaçao de scripit

10.x [10.35] Rookgaard (Com Isle of Destiny)

Fóruns

Tutoriais

Suporte