-LUA & XML Teleportacja grupowa-anni

[skorapro]

potrzebuj? skryptu na teleportacj? grupow? na 8.6 tfs 0.4
tzn jak na anni, staj? cztery osoby, pierwsza przesuwa d?wigni? i bumc

 

[Eturl]

Odp: Teleportacja grupowa-anni

Trzymaj http://tibia.net.pl/threads/533780-7-x-8-x-Prosty-annihilator-quest-z-przydatnymi-opcjami

[lua]local config = {
daily = "no", -- allow only one enter per day? (like in global Tibia)
level = 100,
storage = 30015
}

local playerPosition =
{
{x = 247, y = 659, z = 13},
{x = 247, y = 660, z = 13},
{x = 247, y = 661, z = 13},
{x = 247, y = 662, z = 13}
}

local newPosition =
{
{x = 189, y = 650, z = 13},
{x = 189, y = 651, z = 13},
{x = 189, y = 652, z = 13},
{x = 189, y = 653, z = 13}
}

config.daily = getBooleanFromString(config.daily)
function onUse(cid, item, fromPosition, itemEx, toPosition)
if(item.itemid == 1946) then
if(config.daily) then
doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
else
doTransformItem(item.uid, item.itemid - 1)
end

return true
end

if(item.itemid ~= 1945) then
return true
end

local players = {}
for _, pos in ipairs(playerPosition) do
local pid = getTopCreature(pos).uid
if(pid == 0 or not isPlayer(pid) or getPlayerStorageValue(pid, config.storage) > 0 or getPlayerLevel(pid) < config.level) then
doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
return true
end

players = pid
end

for i, pid in ipairs(players) do
doSendMagicEffect(playerPosition, CONST_ME_POFF)
doTeleportThing(pid, newPosition, false)
doSendMagicEffect(newPosition, CONST_ME_ENERGYAREA)
end

doTransformItem(item.uid, item.itemid + 1)
return true
end
[/lua]

lub to

[lua]--Anihilator Script by Rahim
local monsters = { --lv, do ktorego jest dany potwor -> nazwa potwora.
[100] = "demon",
[150] = "orshabaal",
[200] = "ghazbaran"
}
local items = { --nagrody. [item.uid skrzynki] = item.itemid nagrody.
[8001] = 2494,
[8002] = 2400,
[8003] = 2431,
[8004] = 2112
}
local config = {
--Dzwignia
storage = 6217412,
tylkoRaz = "nie", --czy gracz, ktory wykonal juz raz quest, nie moze wykonac po raz drugi. Nagrod tak czy siak juz nie otrzyma.
lvl = 100, --level wymagany.
tylkoRazNaDzien = "nie", --czy quest mozna wykonac tylko raz dziennie
summonowacPotwory = "tak", --czy skrypt ma sam summonowac potwory. Nie, jesli masz juz je ustawione w mapie.
--Pozycje do dzwigni
players = { --pozycje graczy
{x=1658, y=351, z=13, stackpos=253},
{x=1659, y=351, z=13, stackpos=253},
{x=1660, y=351, z=13, stackpos=253},
{x=1661, y=351, z=13, stackpos=253}},
npos = { --pozycje graczy po teleportowaniu
{x=1659, y=341, z=13},
{x=1660, y=341, z=13},
{x=1661, y=341, z=13},
{x=1662, y=341, z=13}},
monsterPos = { --nazwy i pozycje potworow.
{"Demon",{x=1659,y=339,z=13,stackpos=253}},
{"Demon",{x=1661,y=339,z=13,stackpos=253}},
{"Demon",{x=1660,y=343,z=13,stackpos=253}},
{"Demon",{x=1662,y=343,z=13,stackpos=253}},
{"Demon",{x=1663,y=341,z=13,stackpos=253}},
{"Demon",{x=1664,y=341,z=13,stackpos=253}}
}
}
local function getMonster(lv)
local x = 100
for i = 2, 4 do
if(monsters[i*50] > lv) then
x = monsters[i*50]
end
end
return monsters[x]
end
function onUse(cid, item, frompos, item2, topos)
if item.itemid == 1945 then
local tbl = {}
for k, v in pairs(config.players) do
local player = getThingfromPos(v)
if(not isPlayer(player.uid)) then
doPlayerSendCancel(cid, "You need four players for this quest.")
return TRUE
end
if(getPlayerLevel(player.uid) < config.lvl) then
doPlayerSendCancel(cid,"Somebody in your team hasn't required level!")
return TRUE
end
if(config.tylkoRaz == "tak") then
if(getPlayerStorageValue(player.uid,config.storage) == 1) then
doPlayerSendCancel(cid,"Somebody in your team already has a quest.")
return TRUE
end
end
table.insert(tbl, player.uid)
end
for i, v in ipairs(tbl) do
doTeleportThing(v, config.npos)
doSendMagicEffect(config.npos, 12)
doSendAnimatedText(config.npos, "Fight!", 192)
end
if(config.tylkoRazDziennie == "tak") then
doTransformItem(item.uid,item.itemid+1)
end
if(config.summonowacPotwory ~= "tak") then
return TRUE
end
local lv = getPlayerLevel(cid)
for k, v in pairs(config.monsterPos) do
local monster = getThingfromPos(v[2])
if monster.uid > 0 then --jesli skrypt znajdzie jakiegos potwora na miejscu summonowania, to go zabije .(moglbym uzyc doRemoveCreature, lecz na ariesach tego nie ma. Jesli masz TFS'a, smialo mozesz to podmienic )
doCreatureAddHealth(monster.uid, -9999999999)
end
doSummonCreature(getMonster(lv), v[2])
doSendMagicEffect(v[2], CONST_ME_MAGIC_BLUE)
end
return TRUE
end
if(getPlayerStorageValue(cid,config.storage) == 1) then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "This's empty.")
return TRUE
end
local nagroda = items[item.uid]
if(not nagroda) then
return FALSE
end
doPlayerAddItem(cid, nagroda, 1)
setPlayerStorageValue(cid, config.storage, 1)
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have found a " .. getItemName(nagroda) .. ".")
return TRUE
end[/lua]