[EVENT~MOD] - Pandora Box - From OTSMATERIA.PL - [EVENT~MOD]

leftTopCorner = {x=33236,y=31693,z=7},
								rightBottomCorner = {x=33247,y=31703,z=7

> Loading pandorabox.xml...[Warning - ScriptingManager::loadFromXml] Duplicated lib in mod pandorabox_conf, previously declared in Military Ranks.xml
[27/11/2012 22:50:41] [Warning - Actions::registerEvent] Duplicate registered item uid: 2000
[27/11/2012 22:50:41] [Warning - GlobalEvents::configureEvent] Duplicate registered globalevent with name: pandoraTime
[27/11/2012 22:50:41] [Warning - TalkAction::configureEvent] Duplicate registered talkaction with words: !pandoraBox

<?xml version="1.0" encoding="UTF-8"?>
<mod name="Pandora Box" version="1.2" author="Oskar" contact="[email protected]" enabled="yes">
<config name="pandoraBox_conf"><![CDATA[
dateToStart = {
				['monday'] = false,
				['tuesday'] = true,
				['wednesday'] = false,
				['thursday'] = false,
				['friday'] = true,
				['saturday'] = true,
				['sunday'] = false
				}

eventDate = {}
for k, v in pairs(dateToStart) do
	if v then
		table.insert(eventDate, k)
	end
end

pandoraBox = {
			monstersPositions = {
								leftTopCorner = {x=1421,y=1248,z=7},
								rightBottomCorner = {x=1441,y=1265,z=7}
								},
			pandoraBoxAccesToUseCommand = 4,
			--box config
			boxId = 9661,
			timeOnPutBox = 10, --in minutes
			chance = 100,
			pandoraBoxPosition = {x=1440,y=1258,z=7},
			
			--monsters config
			monstersName = {'slime',4,'dragon',25}, --'name', chance, 'name1', chance1
			monstersSpawnCount = {80,110}, --{from, to}
			
			--waves config
			wavesCount = {9,11}, --{from, to}
			timeBetweenWaves = 90, --in seconds
			
			timeOnKillAllMonsters = 13, --in minutes
			timeOnGetRewards = 20, --in seconds
			bossPositionToSamePandoraBox = true,
			bossName = 'Pandora',
			pandoraGuards = 'fallen island warlock',
			pandoraGuardsCount = 10,
			expRateValue = 0.25,
			}

pandoraBoxRewards = {
				  --[vocationId] = {itemid, count, itemid1, count1, ...}
					[1] = {2160, 25, 7898, 1, 7899, 1}, --sorc
					[2] = {2160, 25, 7884, 1, 7897, 1}, --druid
					[3] = {2160, 25, 8891, 1, 7368, 100}, --pall
					[4] = {2160, 25, 8889, 1, 5741, 1}, --knight
					[5] = {2160, 30, 8868, 1, 8867, 1}, --ms
					[6] = {2160, 30, 8866, 1, 8869, 1}, --ed
					[7] = {2160, 30, 8888, 1, 2537, 1}, --rp
					[8] = {2160, 30, 8881, 1, 2522, 1}, --ek
					}

function getArea(pandoraBox)
local LTCx, LTCy, LTCz = pandoraBox.monstersPositions.leftTopCorner.x, pandoraBox.monstersPositions.leftTopCorner.y, pandoraBox.monstersPositions.leftTopCorner.z
local RBCx, RBCy, RBCz = pandoraBox.monstersPositions.rightBottomCorner.x, pandoraBox.monstersPositions.rightBottomCorner.y, pandoraBox.monstersPositions.rightBottomCorner.z
local centerPos, rangex, rangey = {x=(LTCx+RBCx)/2,y=(LTCy+RBCy)/2,z=(LTCz+RBCz)/2}, math.abs(RBCx-LTCx), math.abs(RBCy-LTCy)
return centerPos, rangex, rangey
end

function isWalkable(pos, creature, proj, pz)
if getTileThingByPos({x=pos.x,y=pos.y,z=pos.z,stackpos=0}).itemid == 0 then return false end
if getTopCreature(pos).uid > 0 and creature then return false end
if getTileInfo(pos).protection and pz then return false, true end
local n = not proj and 3 or 2
for i = 0, 255 do
	pos.stackpos = i
	local tile = getTileThingByPos(pos)
	if tile.itemid ~= 0 and not isCreature(tile.uid) then
		if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
			return false
		end
	end
end
return true
end

function checkPositions(fromPos, toPos, nb)
local pos = {x=math.random(fromPos.x,toPos.x), y=math.random(fromPos.y,toPos.y), z=math.random(fromPos.z,toPos.z)}
if isWalkable(pos, true, true, true) then
	return pos
end
return (nb < 200 and checkPositions(fromPos, toPos, nb+1) or pos)
end

function setMonster(pandoraBox)
for i = 1, #pandoraBox.monstersName/2 do
	local pos = checkPositions(pandoraBox.monstersPositions.leftTopCorner, pandoraBox.monstersPositions.rightBottomCorner, 0)
	if pos and math.random(100000) <= pandoraBox.monstersName[i*2]*1000 then
		local mon = doCreateMonster(pandoraBox.monstersName[i*2-1], pos, false)
		return (isCreature(mon) and doCreatureSetStorage(mon, 1000, 1) or true)
	end
end
return setMonster(pandoraBox)
end

function setPandoraBoxMonsters(pandoraBox)
for j = 1, math.random(pandoraBox.wavesCount[1], pandoraBox.wavesCount[2]) do
	addEvent(function()
			doBroadcastMessage('Next wave is raid on the city! Beware mortals, death come for you!')
			for i = 1, math.random(pandoraBox.monstersSpawnCount[1], pandoraBox.monstersSpawnCount[2]) do
				addEvent(setMonster, i * 50, pandoraBox)
			end return true end,
			(j == 1 and 1000 or pandoraBox.timeBetweenWaves * 1000 * (j-1)),
			pandoraBox)
end
return true
end

function setPandoraBox(pandoraBox)
if getStorage(5000) ~= -1 then 
	return addEvent(setPandoraBox, pandoraBox.timeOnPutBox * 60 * 1000, pandoraBox) 
end
if math.random(100000) <= pandoraBox.chance*1000 then
	doSetStorage(5000, 0)
	local item = doCreateItem(pandoraBox.boxId, pandoraBox.pandoraBoxPosition)
	doItemSetAttribute(item, 'uid', 2000)
	doItemSetAttribute(item, 'name', 'Pandora Box')
	return doBroadcastMessage('Pandora Box is appeared somewhere in the city!')
end
return doSetStorage(5000, -1) and addEvent(setPandoraBox, pandoraBox.timeOnPutBox * 60 * 1000, pandoraBox)
end

function checkMonsters(pandoraBox, n)
local centerPos, rangex, rangey = getArea(pandoraBox)
local newSpectators = getSpectators(centerPos, rangex, rangey)
if newSpectators then
	for _, v in ipairs(newSpectators) do
		if isMonster(v) and getCreatureStorage(v, 1000) == 1 then
			for _, k in ipairs(getPlayersOnline()) do
				if n == 0 then
					doBroadcastMessage('Experience rate is to decreased by '.. pandoraBox.expRateValue * 100 ..' percent and not grow, until the evil from Pandora Box walk on the city.')
					n = 60
				end
				doPlayerSetExperienceRate(k, pandoraBox.expRateValue)
			end
			return addEvent(checkMonsters, 5000, pandoraBox, n - 1)
		end
	end
end
doBroadcastMessage('Evil from Pandora Box is defeated! '..pandoraBox.bossName..' in his own person be came to the city for revenage!')
local pand = doCreateMonster(pandoraBox.bossName, (pandoraBox.bossPositionToSamePandoraBox and pandoraBox.pandoraBoxPosition or checkPositions(pandoraBox.monstersPositions.leftTopCorner, pandoraBox.monstersPositions.rightBottomCorner, 0)), false)
local pos = getThingPos(pand)
for i = 1, pandoraBox.pandoraGuardsCount do
	pos.x = pos.x + math.random(-4,4)
	pos.y = pos.y + math.random(-4,4)
	doCreateMonster(pandoraBox.pandoraGuards, pos, false)
end
return (isMonster(pand) and registerCreatureEvent(pand, 'pandoraDeath') or false)
end

function isCorrectDate(days, months, years)
local years, months, days = years or {os.date('%Y')}, months or {os.date('%B')}, days or {os.date('%A')}
local year, month, day = os.date('%Y'), os.date('%B'), os.date('%A')
if isInArray(years, year) and isInArray(months, month:lower()) and isInArray(days, day:lower()) then
	return true
end
return false
end
]]></config>

<event type="death" name="pandoraDeath" event="script"><![CDATA[
domodlib('pandoraBox_conf')
function onDeath(cid)
if getTileItemById(pandoraBox.pandoraBoxPosition, pandoraBox.boxId).uid == 2000 then
	item = getTileItemById(pandoraBox.pandoraBoxPosition, pandoraBox.boxId)
end
addEvent(function()
				doSetStorage(5000, -1)
				doBroadcastMessage('Pandora Box is disappeared from the world!')
				if getTileItemById(pandoraBox.pandoraBoxPosition, pandoraBox.boxId).uid == 2000 then
					return doRemoveItem(getTileItemById(pandoraBox.pandoraBoxPosition, pandoraBox.boxId).uid)
				end
				return true end,
				pandoraBox.timeOnGetRewards * 1000,
				pandoraBox
				)
return item and doItemSetAttribute(item.uid, 'pandoraBox', 1000) and doBroadcastMessage('The ancient evil has been defeated! The Pandora\'s Box are the reward for each, but only for '..timeOnGetRewards..' seconds!') or true
end
]]></event>

<action uniqueid="2000" event="script"><![CDATA[
domodlib('pandoraBox_conf')
function onUse(cid, item, fromPosition, itemEx, toPosition)
if item.itemid == pandoraBox.boxId and not getItemAttribute(item.uid, 'pandoraBox') then
	doItemSetAttribute(item.uid, 'pandoraBox', 500)
	addEvent(checkMonsters, pandoraBox.timeOnKillAllMonsters * 1000 * 60, pandoraBox, 0)
	return setPandoraBoxMonsters(pandoraBox)
elseif item.itemid == pandoraBox.boxId and getItemAttribute(item.uid, 'pandoraBox') == 1000 then
	if getCreatureStorage(cid, 150) ~= -1 then
		return doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'It\'s empty.') 
	end
	if pandoraBoxRewards[getPlayerVocation(cid)] then
		doCreatureSetStorage(cid, 150, 0)
		msg = 'You have found '
		for i = 1, #pandoraBoxRewards[getPlayerVocation(cid)]/2 do
			msg = msg .. getItemNameById(pandoraBoxRewards[getPlayerVocation(cid)][i*2-1]) .. (i < #pandoraBoxRewards[getPlayerVocation(cid)]/2-1 and ', ' or i == #pandoraBoxRewards[getPlayerVocation(cid)]/2-1 and ' and ' or '.')
			doPlayerAddItem(cid, pandoraBoxRewards[getPlayerVocation(cid)][i*2-1], pandoraBoxRewards[getPlayerVocation(cid)][i*2])
		end
		return doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg)
	end
end
return false
end
]]></action>

<globalevent name='pandoraTime' time='17:22' event='script'><![CDATA[
domodlib('TeamBattleIslandEvent_conf')
function onTime(time)
if isCorrectDate(eventDate) then
	return doSetStorage(5000, -1) and setPandoraBox(pandoraBox)
end
return true
end
]]></globalevent>

<talkaction words="!pandoraBox" event="script"><![CDATA[
domodlib('pandoraBox_conf')
function onSay(cid, words, param, channel)
return getPlayerAccess(cid) >= pandoraBox.pandoraBoxAccesToUseCommand and doSetStorage(5000, -1) and setPandoraBox(pandoraBox) 
end
]]></talkaction>
</mod>

[Error - Action Interface] 
In a timer event called from: 
buffer:onUse
Description: 
(luaGetThingPosition) Thing not found

[Error - Action Interface] 
In a timer event called from: 
buffer:onUse
Description: 
[string "dateToStart = {..."]:150: attempt to index local 'pos' (a boolean value)
stack traceback:
[string "dateToStart = {..."]:150: in function <[string "dateToStart = {..."]:129>