Niedzia?aj?cy annihilator by Rahim

[FerN]

Nie dzia?a mi annihilator. Po u?yciu use na d?wignie nie teleportuje graczy w wyznaczone miejsce. M?g?by kto? naprawi? skrypt?

--Anihilator Script by Rahim
local monsters = {
    [100] = "demon",
    [150] = "demon",
    [200] = "demon"
    }
local config = {
    --Dzwignia
    storage = 6217412,
    tylkoRaz = "nie",
    lvl = 100,
    tylkoRazNaDzien = "nie", 
    summonowacPotwory = "tak",
    startUid = 8000,  
    items = {2494,2400,2431,2112},
    players = {  
        {x=352, y=532, z=14, stackpos=253},
        {x=351, y=532, z=14, stackpos=253},
        {x=350, y=532, z=14, stackpos=253},
        {x=349, y=532, z=14, stackpos=253}},
    npos = {  --pozycje graczy po teleportowaniu
        {x=394, y=536, z=14},
        {x=393, y=536, z=14},
        {x=392, y=536, z=14},
        {x=391, y=536, z=14}},
    monsterPos = { 
        [1] = {"Demon",{x=391,y=534,z=14,stackpos=253}},
        [2] = {"Demon",{x=393,y=534,z=14,stackpos=253}},
        [3] = {"Demon",{x=392,y=538,z=14,stackpos=253}},
        [4] = {"Demon",{x=394,y=538,z=14,stackpos=253}},
        [5] = {"Demon",{x=395,y=536,z=14,stackpos=253}},
        [6] = {"Demon",{x=396,y=536,z=14,stackpos=253}}
        }
}
function onUse(cid,item,frompos,item2,topos)
local found = 0
    if item.itemid == 1945 then
        for i = 1, #config.players do
            local player = getThingfromPos(config.players[i])
            if isPlayer(player.uid) ~= TRUE 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
            found = found + 1
            end
        end
        if found == 4 then
            for i = 1, 4 do
                doTeleportThing(getThingfromPos(config.players[i]).uid,config.npos[i])
                doSendMagicEffect(config.npos[i],12)
                doSendAnimatedText(config.npos[i],"Fight!",192)
            end
            if config.tylkoRazDziennie == "tak" then
                doTransformItem(item.uid,item.itemid+1)
            end
            if config.summonowacPotwory ~= "tak" then
                return TRUE
            end
            for y = 1, 6 do
                local monster = getThingfromPos(config.monsterPos[y][2])
                if monster.uid > 0 then
                    doCreatureAddHealth(monster.uid,-9999999999)
                end
                doSummonCreature(getMonster(getPlayerLevel(cid)),config.monsterPos[y][2])
                doSendMagicEffect(config.monsterPos[y][2],12)
            end
        end
        return TRUE
    end
    if getPlayerStorageValue(cid,config.storage) == 1 then
        doPlayerSendTextMessage(cid,22,"This's empty.")
        return TRUE
    end
    for i = 1, #config.items do  --skrzynki.
        if item.uid == config.startUid+i then
            setPlayerStorageValue(cid,config.storage,1)
            doPlayerAddItem(cid,config.items[i],1)
            return TRUE
        end
    end
    return TRUE
end

 

[TerMoYe]

Odp: Niedzia?aj?cy annihilator by Rahim

Hmmm...a ustawi?e? swoje wsp??rz?dne Demon?w i gdzie ma ich teleportowa?? Jak nie to wiadomo, ?e skrypt nic nie zdzia?a.

 

[Kowol]

Odp: Niedzia?aj?cy annihilator by Rahim

Jest jaki? b??d w konsoli? Je?li tak, skopiuj nam go tutaj, bez niego ci??ko b?dzie rozwik?a? problem.

 

[FerN]

Odp: Niedzia?aj?cy annihilator by Rahim

Wsp??rz?dne demon?w s? ok, a w konsoli b??d?w nie ma. Je?eli nie wiecie jak to naprawi?, dajcie mi skrypt na dzia?aj?cy annih.

 

[piti129]

Odp: Niedzia?aj?cy annihilator by Rahim

Prosze bardzo

data/actions/actions.xml

	<action uniqueid="3030" event="script" value="annihilator.lua"/>

data/actions/script/annihilator.lua

        -- CONFIG --

        local room = {     -- room with demons
        fromX = 497,
        fromY = 753,
        fromZ = 10,
        --------------
        toX = 502,
        toY = 757,
        toZ = 10
        }

        local monster_pos = {
        [1] = {pos = {498, 753, 10}, monster = "Demon"},
        [2] = {pos = {500, 753, 10}, monster = "Demon"},
        [3] = {pos = {497, 757, 10}, monster = "Demon"},
        [4] = {pos = {499, 757, 10}, monster = "Demon"},
        [5] = {pos = {502, 755, 10}, monster = "Demon"}
        }

        local players_pos = {
        {x = 497, y =755, z = 9, stackpos = 253},
        {x = 498, y =755, z = 9, stackpos = 253},
        {x = 499, y =755, z = 9, stackpos = 253},
        {x = 500, y =755, z = 9, stackpos = 253}
        }

        local new_player_pos = {
        {x = 497, y = 755, z = 10},
        {x = 498, y = 755, z = 10},
        {x = 499, y = 755, z = 10},
        {x = 500, y = 755, z = 10}
        }

        local playersOnly = "yes"
        local questLevel = 100

        ------------------------------------------------------
        --- CONFIG END ---------------------------------------
        ------------------------------------------------------

function onUse(cid, item, fromPosition, itemEx, toPosition)
        local all_ready, monsters, player, level = 0, 0, {}, 0
        if item.itemid == 1945 then
                for i = 1, #players_pos do
                        table.insert(player, 0)
                end
                for i = 1, #players_pos do
                        player[i] = getThingfromPos(players_pos[i])
                        if player[i].itemid > 0 then
                                if string.lower(playersOnly) == "yes" then
                                        if isPlayer(player[i].uid) == TRUE then
                                                all_ready = all_ready+1
                                        else
                                                monsters = monsters+1
                                        end
                                else
                                        all_ready = all_ready+1
                                end
                        end
                end
                if all_ready == #players_pos then
                        for i = 1, #players_pos do
                                player[i] = getThingfromPos(players_pos[i])
                                if isPlayer(player[i].uid) == TRUE then
                                        if getPlayerLevel(player[i].uid) >= questLevel then
                                                level = level+1
                                        end
                                else
                                        level = level+1
                                end
                        end
                        if level == #players_pos then
                                if string.lower(playersOnly) == "yes" and monsters == 0 or string.lower(playersOnly) == "no" then
                                        for _, area in pairs(monster_pos) do
                                                        doSummonCreature(area.monster,{x=area.pos[1],y=area.pos[2],z=area.pos[3]})
                                        end
                                        for i = 1, #players_pos do
                                                doSendMagicEffect(players_pos[i], CONST_ME_POFF)
                                                doTeleportThing(player[i].uid, new_player_pos[i], FALSE)
                                                doSendMagicEffect(new_player_pos[i], CONST_ME_ENERGYAREA)
                                                doTransformItem(item.uid,1946)
                                        end
                                else
                                        doPlayerSendTextMessage(cid,19,"Only players can do this quest.")
                                end
                        else
                                doPlayerSendTextMessage(cid,19,"All Players have to be level "..questLevel.." to do this quest.")
                        end
                else
                        doPlayerSendTextMessage(cid,19,"You need "..table.getn(players_pos).." players to do this quest.")
                end
        elseif item.itemid == 1946 then
                local player_room = 0
                for x = room.fromX, room.toX do
                        for y = room.fromY, room.toY do
                                for z = room.fromZ, room.toZ do
                                        local pos = {x=x, y=y, z=z,stackpos = 253}
                                        local thing = getThingfromPos(pos)
                                        if thing.itemid > 0 then
                                                if isPlayer(thing.uid) == TRUE then
                                                        player_room = player_room+1
                                                end
                                        end
                                end
                        end
                end
                if player_room >= 1 then
                        doPlayerSendTextMessage(cid,19,"There is already a team in the quest room.")          
                elseif player_room == 0 then
                        for x = room.fromX, room.toX do
                                for y = room.fromY, room.toY do
                                        for z = room.fromZ, room.toZ do
                                                local pos = {x=x, y=y, z=z,stackpos = 253}
                                                local thing = getThingfromPos(pos)
                                                if thing.itemid > 0 then
                                                        doRemoveCreature(thing.uid)
                                                end
                                        end
                                end
                        end
                        doTransformItem(item.uid,1945)
                end
        end
        return TRUE
end