mod Evento Pegue O Item

[SkyDangerous 395]

Como Funciona:

O evento começa e X pessoas entram no portal, então ele fecha determinado período.

Items iram aparecer no mapa, o objetivo é quem pegar mais, para ganhar o evento.

 

<?xml version="1.0" encoding="UTF-8"?>
<mod name="Catch the item" version="1.00" author="Kimo" contact="otland.net" enabled="yes">
<config name="catchtheitem_config"><![CDATA[
config = {
center_pos = {x = 2736, y = 3497, z = 7},
item = 8304,
aid = 4003,
effect = CONST_ANI_FIRE,
teleportPosition = {x = 74, y = 136, z = 9, stackpos = 1}, -- Onde o teleporte vai ser criado
teleportToPosition = {x = 78, y = 136, z = 9}, -- Onde o teleporte enviará as pessoas
teleportId = 1387, -- Id do teleporte
spawnItemTime1 = 1, -- Tempo que o primeiro item vai ser criado
spawnItemTime2 = 1, -- Tempo que o primeiro item vai ser criado
timeToStartEvent = 1, -- Minutos após o teleporte ser fechado.
itemRewards = {{2160,10}, {13305,1}, {13539,1}}
}			  
]]></config>

<talkaction words="!catch" event="script"><![CDATA[
function onSay()
	domodlib('catchtheitem_config')
	local tp = doCreateTeleport(config.teleportId, config.teleportToPosition, config.teleportPosition)
	doItemSetAttribute(tp, "aid", config.teleportActionId)
	doBroadcastMessage("Catch the item is starting in "..config.timeToStartEvent.." minute!", MESSAGE_EVENT_ADVANCE)
	addEvent(startEvent, config.timeToStartEvent * 1000 * 10)
	print(getGlobalStorageValue(3333))
   return true
end

function startEvent()
domodlib('catchtheitem_config')
	local get = getThingfromPos(config.teleportPosition)
	if get.itemid == config.teleportId then
			doRemoveItem(get.uid, 1)
			doBroadcastMessage("Catch the item teleport have been removed and the first items wave will start in " .. config.spawnItemTime1 .. " ", MESSAGE_EVENT_ADVANCE)
			addEvent(SpawnItem1, config.timeToStartEvent * 1000 * 10)
	end
end

function SpawnItem1()
domodlib('catchtheitem_config')
	local field = {}
	local k = config.center_pos
	for i = -2, 3 do
			for j = -2, 4 do
					table.insert(field, {x=k.x+i, y=k.y+j, z=k.z})
			end
	end
	for i = 1, 8 do
			local a = math.random(1, #field)
			local c = {x=field[a].x, y=field[a].y, z=field[a].z}
			if getThingFromPos({x=c.x, y=c.y, z=c.z, stackpos=1}).itemid ~= 9767 then
					local b = doCreateItem(config.item, {x=c.x, y=c.y, z=c.z, stackpos=1})
					doItemSetAttribute(b, "aid", config.aid)
					doItemSetAttribute(c, "moveable", 0)
					doSendDistanceShoot(config.center_pos, c, config.effect)
			end
	end
	doBroadcastMessage("Items wave 1 has been finished wave 2 in "..config.spawnItemTime2.." minute ", MESSAGE_EVENT_ADVANCE)
	addEvent(SpawnItem2, config.spawnItemTime2 * 1000 * 10)
end


function SpawnItem2()
domodlib('catchtheitem_config')
	local field = {}
	local k = config.center_pos
	for i = -2, 3 do
			for j = -1, 2 do
					table.insert(field, {x=k.x+i, y=k.y+j, z=k.z})
			end
	end
	for i = 1, 8 do
			local a = math.random(1, #field)
			local c = {x=field[a].x, y=field[a].y, z=field[a].z}
			if getThingFromPos({x=c.x, y=c.y, z=c.z, stackpos=1}).itemid ~= 9767 then
					local b = doCreateItem(config.item, {x=c.x, y=c.y, z=c.z, stackpos=1})
					doItemSetAttribute(b, "aid", config.aid)
					doSendDistanceShoot(config.center_pos, c, config.effect)
			end
	end
	doBroadcastMessage("Items wave 2 is finished and results in 1 minute", MESSAGE_EVENT_ADVANCE)
	addEvent(EndEvent, 1 * 1000 * 10)
end


function EndEvent()
domodlib('catchtheitem_config')
local function maximum(a)
	local mi = 1
	local m = a[mi]
	for i,val in ipairs(a) do
			if val > m then
					mi = i
					m = val
			end
	end
	return m
end

local first = {}
local second = 0
local third = 0
local players = getPlayersOnline()
local winamount = {}
local storage = 7777 --event storage
for i, pid in ipairs(players) do
	if getPlayerStorageValue(pid, storage) >= 0 then
			table.insert(winamount, getPlayerStorageValue(pid, storage))
	end
end
local winningamount = maximum(winamount)
local price = math.random(1, #config.itemRewards)
	for i, pid in ipairs(players) do
			if getPlayerStorageValue(pid, storage) == winningamount then
					table.insert(first, getPlayerName(pid))
			end
	end
	if #first > 1 then
			doBroadcastMessage('[Catch the item]\n We have a draw between '..first[1]..' and '..first[2]..'!\nTherefor NO PRICES will be given!')
	else
			for i, pid in ipairs(players) do
					if getPlayerStorageValue(pid, storage) == winningamount then
							doBroadcastMessage('[Catch the item]\n And the winner is:\n'..first[1]..' with a total score of '..winningamount..'\nYour Price: '..config.itemRewards[price][2]..' x '..getItemNameById(config.itemRewards[price][1])..'\nCongratulations!')
							doPlayerAddItem(pid, config.itemRewards[price][1], config.itemRewards[price][2])
					end
			end
	end
	for i, pid in ipairs(players) do
			if getPlayerStorageValue(pid, storage) == (winningamount-1) then
					if second == 0 then
							doBroadcastMessage('[Catch the item]\n 2nd place is:\n'..getPlayerName(pid)..' with a total score of '..getPlayerStorageValue(pid, storage)..'\nCongratulations!')
							second = 1
					end
			end
	end
	for i, pid in ipairs(players) do
			if getPlayerStorageValue(pid, storage) == (winningamount-2) then
					if third == 0 then
							doBroadcastMessage('[Catch the item]\n 3rd place is:\n'..getPlayerName(pid)..' with a total score of '..getPlayerStorageValue(pid, storage)..'\nCongratulations!')
							third = 1
					end
			end
	end
	addEvent(EndEvent2, 1 * 1000 * 10)
   end

function EndEvent2()
setGlobalStorageValue(4444, 0)
setGlobalStorageValue(3333, 0)
	for _, kid in ipairs(getPlayersOnline()) do
			if(getPlayerStorageValue(kid, 7776) > 0) then
					doTeleportThing(kid, getTownTemplePosition(getPlayerTown(kid)))
					setPlayerStorageValue(kid, 7776, 0)
					setPlayerStorageValue(kid, 7777, 0)
			end
	end
end
]]></talkaction>

<action actionid="4003" event="script"><![CDATA[
function onUse(cid, item, fromPosition, itemEx, toPosition)
	if item.actionid == 4003 then
			doRemoveItem(getThingFromPos(fromPosition).uid, 6119)
			setPlayerStorageValue(cid,7777, getPlayerStorageValue(cid,7777)+1)
			local score = getPlayerStorageValue(cid, 7777)
		  doCreatureSay(cid, "Point!\nScore ="..getPlayerStorageValue(cid, 7777), 34)
		  return true
	end
end
]]></action>

<movevent type="StepIn" actionid="3000" event="script"><![CDATA[
local config = {
	playerCount = 3333, -- Storage global que contara quantos iram participar
	maxPlayers = 20 -- Número máximo que pode participar
}
function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor)
	if getGlobalStorageValue(config.playerCount) < config.maxPlayers then
					setGlobalStorageValue(config.playerCount, getGlobalStorageValue(config.playerCount)+1)
							if getGlobalStorageValue(config.playerCount) == config.maxPlayers then
									doBroadcastMessage("Catch the item event is now full [" .. getGlobalStorageValue(config.playerCount) .. " players]! The event will soon start.")
							else
					doBroadcastMessage(getPlayerName(cid) .. " entered catch the item event! Currently " .. getGlobalStorageValue(config.playerCount) .. " players have joined!", MESSAGE_STATUS_CONSOLE_RED)
			end
	else
			doTeleportThing(cid, fromPosition)
			doPlayerSendCancel(cid, "The event is full. There is already " .. config.maxPlayers .. " players participating in the event.")
			return false
	end
			print(getGlobalStorageValue(config.playerCount) .. " Players in catch the item event.")
	return true
end
]]></movevent>
</mod>

 

 

Créditos:

kimokimo & Skydangerous(Traduzir)

Editado Agosto 9, 2012 por SkyDangerous

[pbottrinks 29]

Bela MOD SkyD.

Obrigado pelo belo conteúdo, creia que será bem utilizado.

Abraços.

[SkyDangerous 395]

vlw.

que bom que gostou ;D

[milbradt 19]

Showww de bola.. mais agora que estou bem loko pegando eventos e adaptando eles para um projeto de narutibia que estou fazendo, dahorinha =D

 

Vlws ae.

[sk8sk8ter 2]

onde coloco isso não intendi não precisa de tag em algum lugar explica melhor pra quem não entend

[FlamesAdmin 261]

onde coloco isso não intendi não precisa de tag em algum lugar explica melhor pra quem não entend

Pasta OtServer/mods