Untitled
unknown
lua
a year ago
11 kB
2
Indexable
<config name="ultimatelib"><![CDATA[
USurvival = {
posi = {x=1489, y=897, z=5}, -- parte esquerda superior da arena
posf = {x=1503, y=909, z=5}, -- parte direita inferior da arena
posc = {x=1496, y=903, z=5}, -- onde o player entra na arena
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 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,
min_level = 2000,
posenter = {x=1526,y=899,z=5}, -- posição onde ele transporta o jogador
tpPos = {x=716, y=1029, z=4}, -- onde o teleport aparece
limit_Time = 2 -- em minutos -- tempo que o teleport fica aberto
}
function removeBattleTp()
local t = getTileItemById(USurvival.tpPos, 1387).uid
return t > 0 and doRemoveItem(t) and doSendMagicEffect(USurvival.tpPos, CONST_ME_POFF)
end
function CheckEvent(delay)
if delay > 0 and getGlobalStorageValue(USurvival.storage_count) > 0 then
doBroadcastMessage("[BattleField Event] We are waiting "..getGlobalStorageValue(USurvival.storage_count).." players to Battlefield starts", MESSAGE_STATUS_CONSOLE_RED)
elseif delay == 0 and getGlobalStorageValue(USurvival.storage_count) > 0 then
for _, cid in pairs(getPlayersOnline()) do
end
doBroadcastMessage("The event cannot be started because not had enough players.", MESSAGE_STATUS_CONSOLE_RED)
setGlobalStorageValue(USurvival.storage_count, 0)
resetBattle()
removeBattleTp()
end
addEvent(CheckEvent, 60000, delay-1)
end
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>
<globalevent name="UltimateSurvival" interval="60000" event="script"><![CDATA[
domodlib('ultimatelib')
function onThink(interval, lastExecution)
USurvivalDays = {
["Sunday"] = {
["16:00"] = {players = 12},
["19:00"] = {players = 12}
},
["Monday"] = {
["16:00"] = {players = 12},
["19:00"] = {players = 12}
},
["Tuesday"] = {
["20:23"] = {players = 12},
["19:00"] = {players = 12}
},
["Wednesday"] = {
["16:00"] = {players = 12},
["19:00"] = {players = 12}
},
["Thursday"] = {
["16:00"] = {players = 12},
["19:00"] = {players = 12}
},
["Friday"] = {
["00:06"] = {players = 2},
["19:00"] = {players = 12}
},
["Saturday"] = {
["00:06"] = {players = 2},
["19:00"] = {players = 12}
},
}
if USurvivalDays[os.date("%A")] then
hours = tostring(os.date("%X")):sub(1, 5)
tb = USurvivalDays[os.date("%A")][hours]
if tb and (tb.players % 2 == 0) then
local tp = doCreateItem(1387, 1, USurvival.tpPos)
doItemSetAttribute(tp, "aid", 48000)
CheckEvent(USurvival.limit_Time)
doBroadcastMessage("The Ultimate Survival Event was opened", MESSAGE_STATUS_CONSOLE_BLUE)
return setGlobalStorageValue(USurvival.storage_count, tb.players)
end
end
return true
end
]]></globalevent>
<globalevent name="Ultimatestart" type="start" event="script"><![CDATA[
domodlib('ultimatelib')
function onStartup()
setGlobalStorageValue(USurvival.posenter.storage, 0)
setGlobalStorageValue(USurvival.storage_count, 0)
return true
end
]]></globalevent>
<movevent type="StepIn" actionid="48000" event="script"><![CDATA[
domodlib('ultimatelib')
function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor)
if getStorage(Event_Tile_Close) > 0 then
if getPlayerLevel(cid) < min_level then
doTeleportThing(cid, USurvival.posenter, true)
doSendMagicEffect(fromPosition,10)
doPlayerSendTextMessage(cid,21,"Only players of level "..min_level.." are allowed to pass.")
else
doTeleportThing(cid, USurvival.posenter, true)
doSendMagicEffect(posenter,10)
end
else
doTeleportThing(cid,fromPosition,false)
doSendMagicEffect(fromPosition,10)
doPlayerSendTextMessage(cid,21,"Come back later, event is closed now.")
end
return true
end
]]></movevent>
</mod>