Clean em uma Certa Área

Responder

Postado Junho 29, 2014 11 anos

Eaii Galerinha, hj estou aqui trazendo mais um script feito por um amigo de outro forum o Printer

Bom o script vai da clean em um certa área que vc configurar

globalevent/globalevent.xml

<globalevent name="cleanarea" interval="1200" event="script" value="cleanarea.lua"/>

globalevent/scripts/cleanarea

local created_by_otswe = true -- Do not edit, if you touch this line the script will not work propely

local otswe = {
Clean_Time = 20, -- When the warning text has been broadcast, for how many seconds should it take to execute the clean
Warning_Text_Before_Clean = "A area will be cleaned in 20 seconds, so pick up your trash or see it vanish", -- Here can you edit the warning text 
Done_Text = "Next area clean will be excuted in 20min" -- Here you can edit the done text
}

local OtsweCleaningAreaPositions = {
from = {x=994,y=1008,z=7}, -- From top left -- Top left of the cleaning area
to = {x=999,y=1012,z=7} -- to bottom right -- Bottom left of the cleaning area
}

function isCleanAbleArea(pos)
pos.stackpos = 0
local tile = getThingfromPos(pos, false)
if tile ~= 0 and not hasProperty(tile.uid, CONST_PROP_BLOCKSOLID) and not isCreature(getTopCreature(pos).uid) then
return true
end
end

function executeOtsweAreaClean()
doBroadcastMessage(otswe.Done_Text)
for x = OtsweCleaningAreaPositions.from.x, OtsweCleaningAreaPositions.to.x do
for y = OtsweCleaningAreaPositions.from.y, OtsweCleaningAreaPositions.to.y do
local p = {x=x,y=y,z=OtsweCleaningAreaPositions.from.z}
if isCleanAbleArea(p) or created_by_otswe == true then 
doCleanTile(p,false)
end
end
end
end

function onThink(cid, interval, lastExecution)
addEvent(executeOtsweAreaClean, otswe.Clean_Time*1000)
doBroadcastMessage(otswe.Warning_Text_Before_Clean)
return true
end

Printer 100% Script

AndreyLost 100% Topico