Autor: Mock
Esse codigo simples permite que você explore todo o seu mapa em questão de minutos (ou horas), automaticamente.
Existem alguns problemas, esse codigo pode facilmente gerar debug em quem usa, en
tão aconselho usar somente quem tem conexão rapida, ou localhost.
O funcionamento é bem simples, o script teleporta você a cada canto do mapa fazendo você liberar o mapa todo!! Como é muito teleport, e todos sabem que se você se teleportar varias vezes muito rapido, esse code tem uma config simples com a opção de mudar o delay e a quantidade de tiles que você vai pular.
Na configuração padrão ele vai teleportar você para a posição 36,36,7 e vai até a 1024,1024,10 teleportando você a cada 4 blocos a cada 1 segundo, porem você pode reconfigurar a vontade.
Pode repostar onde quiser e usar onde quiser contanto que mantenha os creditos no script. (Y)
--Autor: Mock the bear (matheus.mtb7@gmail.com)
--MTB
local map = {
Xmax=1024;
Ymax=1024;
Xstart=36;
YStrart=36;
Zstart=7;
--
Delay=1000;
Skip_tiles=4;
Floors_skip=1; --Can be 1 or -1
Floors_count=3; --Start form floor Zstart and stop after be teleproted to 3 floors
}
function cycle(cid,x,y,z,c)
if not isPlayer(cid) then
return 0;
end
x = x+map.Skip_tiles;
if x > map.Xmax then
x = map.Xmax;
end
if (getThingFromPos({x=x,y=y,z=z,stackpos=0},false) or {}).uid ~= 0 then
doTeleportThing(cid,{x=x,y=y,z=z})
end
if x == map.Xmax then
x = map.Xstart;
y = y+map.Skip_tiles;
end
if y > map.Ymax then
y = map.YStrart
z = z+Floors_skip;
c = c-1;
if c <= 0 then
return 0;
end
end
addEvent(cycle,map.Delay,cid,x,y,z,c)
end
function onSay(cid, words, param)
cycle(cid,map.Xstart,map.YStrart,map.Zstart,map.Floors_count)
end
--MTB