• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!

Lua Annihilation once per server restart (how to remove this restriction)?

P

picachu

Member
Joined
Dec 2, 2007
Messages
970
Reaction score
11
Hi guys, my script of annihilation quest able players to do annihi once 1 time per server restart
How can I remove this restriction?
This is my script:

Lua: 
local starting= {x = 33218, y = 31656, z = 13} -- edit this to the top left sqm of ur annhilator room
local ending= {x = 33225, y = 31661, z = 13} -- edit this to the bottom right sqm of ur annhilator room

function onUse(cid, item, frompos, item2, topos)
    if item.uid == 5000 then
        if item.itemid == 1945 then

            player1pos = {x=33222, y=31671, z=13, stackpos=253}
            player1 = getThingfromPos(player1pos)

            player2pos = {x=33223, y=31671, z=13, stackpos=253}
            player2 = getThingfromPos(player2pos)

            player3pos = {x=33224, y=31671, z=13, stackpos=253}
            player3 = getThingfromPos(player3pos)

            player4pos = {x=33225, y=31671, z=13, stackpos=253}
            player4 = getThingfromPos(player4pos)


            if player1.itemid > 0 and player2.itemid > 0 and player3.itemid > 0 and player4.itemid > 0 then

                player1level = getPlayerLevel(player1.uid)
                player2level = getPlayerLevel(player2.uid)
                player3level = getPlayerLevel(player3.uid)
                player4level = getPlayerLevel(player4.uid)

                questlevel = 100

                if player1level >= questlevel and player2level >= questlevel and player3level >= questlevel and player4level >= questlevel then

                    queststatus1 = getPlayerStorageValue(player1.uid,5000)
                    queststatus2 = getPlayerStorageValue(player2.uid,5000)
                    queststatus3 = getPlayerStorageValue(player3.uid,5000)
                    queststatus4 = getPlayerStorageValue(player4.uid,5000)

                    if queststatus1 == -1 and queststatus2 == -1 and queststatus3 == -1 and queststatus4 == -1 then
           
                        demon1pos = {x=33219, y=31657, z=13}
                        demon2pos = {x=33221, y=31657, z=13}
                        demon3pos = {x=33220, y=31661, z=13}
                        demon4pos = {x=33222, y=31661, z=13}
                        demon5pos = {x=33223, y=31659, z=13}
                        demon6pos = {x=33224, y=31659, z=13}
                         
                        doSummonCreature("Demon", demon1pos)
                        doSummonCreature("Demon", demon2pos)
                        doSummonCreature("Demon", demon3pos)
                        doSummonCreature("Demon", demon4pos)
                        doSummonCreature("Demon", demon5pos)
                        doSummonCreature("Demon", demon6pos)

                        nplayer1pos = {x =33219, y =31659, z =13}
                        nplayer2pos = {x =33220, y =31659, z =13}
                        nplayer3pos = {x =33221, y =31659, z =13}
                        nplayer4pos = {x =33222, y =31659, z =13}

                        doSendMagicEffect(player1pos,2)
                        doSendMagicEffect(player2pos,2)
                        doSendMagicEffect(player3pos,2)
                        doSendMagicEffect(player4pos,2)

                        doTeleportThing(player1.uid,nplayer1pos)
                        doTeleportThing(player2.uid,nplayer2pos)
                        doTeleportThing(player3.uid,nplayer3pos)
                        doTeleportThing(player4.uid,nplayer4pos)

                        doSendMagicEffect(nplayer1pos,10)
                        doSendMagicEffect(nplayer2pos,10)
                        doSendMagicEffect(nplayer3pos,10)
                        doSendMagicEffect(nplayer4pos,10)

                        doTransformItem(item.uid,item.itemid+1)

                    else
                        doPlayerSendCancel(cid,"Sorry, not possible.")
                    end
                else
                    doPlayerSendCancel(cid,"Sorry, not possible.")
                end
            else
                doPlayerSendCancel(cid,"Sorry, not possible.")
            end
        elseif item.itemid == 1946 then
            if(cleanArea()) then
                doTransformItem(item.uid, 1945)
            else
                doPlayerSendCancel(cid,"Sorry, not possible.")
            end
        end
    elseif item.uid == 49111 then
   
        queststatus = getPlayerStorageValue(cid,5000)
       
        if queststatus == -1 then
		doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a demon armor.")
            doPlayerAddItem(cid,2494,1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    elseif item.uid == 49112 then
   
        queststatus = getPlayerStorageValue(cid,5000)
       
        if queststatus == -1 then
		doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a magic sword.")
            doPlayerAddItem(cid,2400,1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    elseif item.uid == 49113 then
   
        queststatus = getPlayerStorageValue(cid,5000)
       
        if queststatus == -1 then
		doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a stonecutter axe.")
            doPlayerAddItem(cid,2431,1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    elseif item.uid == 49114 then
   
        queststatus = getPlayerStorageValue(cid,5000)
       
        if queststatus == -1 then
		doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a present box.")
            box = doPlayerAddItem(cid,1990,1)
			doAddContainerItem(box, 2326, 1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    end

    function cleanArea()
    local checking= {x = starting.x, y = starting.y, z = starting.z, stackpos = 253}
    local monster = {}
    while(checking.y <= ending.y) do
        local creature = getTopCreature(checking).uid or getTopCreature(checking)
        if(isCreature(creature) == TRUE) then
            if(isPlayer(creature) == TRUE) then
                return false
            else
                table.insert(monster, creature)
            end
        end
        if(checking.x == ending.x) then
            checking.x = starting.x
            checking.y = checking.y + 1
        end
        checking.x = checking.x + 1
    end
    for i, c in ipairs(monster) do
        doRemoveCreature(c)
    end
    return true
end
    return 1
end

Ty!
 
Sort by date Sort by votes
Do this in order for the script to work:

1) Make a backup of your annihilator script
2) Open the script (Not the backup) and erase all the code
3) Then paste this:
Lua: 
-- Adapted by Ramirow
local starting= {x = 33218, y = 31656, z = 13} -- edit this to the top left sqm of ur annhilator room
local ending= {x = 33225, y = 31661, z = 13} -- edit this to the bottom right sqm of ur annhilator room
 
function onUse(cid, item, frompos, item2, topos)
    if item.actionid == 5000 then
        if item.itemid == 1945 then
 
            player1pos = {x=33222, y=31671, z=13, stackpos=253}
            player1 = getThingfromPos(player1pos)
 
            player2pos = {x=33223, y=31671, z=13, stackpos=253}
            player2 = getThingfromPos(player2pos)
 
            player3pos = {x=33224, y=31671, z=13, stackpos=253}
            player3 = getThingfromPos(player3pos)
 
            player4pos = {x=33225, y=31671, z=13, stackpos=253}
            player4 = getThingfromPos(player4pos)
 
 
            if player1.itemid > 0 and player2.itemid > 0 and player3.itemid > 0 and player4.itemid > 0 then
 
                player1level = getPlayerLevel(player1.uid)
                player2level = getPlayerLevel(player2.uid)
                player3level = getPlayerLevel(player3.uid)
                player4level = getPlayerLevel(player4.uid)
 
                questlevel = 100
 
                if player1level >= questlevel and player2level >= questlevel and player3level >= questlevel and player4level >= questlevel then
 
                    queststatus1 = getPlayerStorageValue(player1.uid,5000)
                    queststatus2 = getPlayerStorageValue(player2.uid,5000)
                    queststatus3 = getPlayerStorageValue(player3.uid,5000)
                    queststatus4 = getPlayerStorageValue(player4.uid,5000)
 
                    if queststatus1 == -1 and queststatus2 == -1 and queststatus3 == -1 and queststatus4 == -1 then
 
                        demon1pos = {x=33219, y=31657, z=13}
                        demon2pos = {x=33221, y=31657, z=13}
                        demon3pos = {x=33220, y=31661, z=13}
                        demon4pos = {x=33222, y=31661, z=13}
                        demon5pos = {x=33223, y=31659, z=13}
                        demon6pos = {x=33224, y=31659, z=13}
 
                        doSummonCreature("Demon", demon1pos)
                        doSummonCreature("Demon", demon2pos)
                        doSummonCreature("Demon", demon3pos)
                        doSummonCreature("Demon", demon4pos)
                        doSummonCreature("Demon", demon5pos)
                        doSummonCreature("Demon", demon6pos)
 
                        nplayer1pos = {x =33219, y =31659, z =13}
                        nplayer2pos = {x =33220, y =31659, z =13}
                        nplayer3pos = {x =33221, y =31659, z =13}
                        nplayer4pos = {x =33222, y =31659, z =13}
 
                        doSendMagicEffect(player1pos,2)
                        doSendMagicEffect(player2pos,2)
                        doSendMagicEffect(player3pos,2)
                        doSendMagicEffect(player4pos,2)
 
                        doTeleportThing(player1.uid,nplayer1pos)
                        doTeleportThing(player2.uid,nplayer2pos)
                        doTeleportThing(player3.uid,nplayer3pos)
                        doTeleportThing(player4.uid,nplayer4pos)
 
                        doSendMagicEffect(nplayer1pos,10)
                        doSendMagicEffect(nplayer2pos,10)
                        doSendMagicEffect(nplayer3pos,10)
                        doSendMagicEffect(nplayer4pos,10)
 
                        doTransformItem(item.actionid,item.itemid+1)
 
                    else
                        doPlayerSendCancel(cid,"Sorry, not possible.")
                    end
                else
                    doPlayerSendCancel(cid,"Sorry, not possible.")
                end
            else
                doPlayerSendCancel(cid,"Sorry, not possible.")
            end
        elseif item.itemid == 1946 then
            if(cleanArea()) then
                doTransformItem(item.actionid, 1945)
            else
                doPlayerSendCancel(cid,"Sorry, not possible.")
            end
        end
    elseif item.uid == 49111 then
 
        queststatus = getPlayerStorageValue(cid,5000)
 
        if queststatus == -1 then
		doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a demon armor.")
            doPlayerAddItem(cid,2494,1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    elseif item.uid == 49112 then
 
        queststatus = getPlayerStorageValue(cid,5000)
 
        if queststatus == -1 then
		doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a magic sword.")
            doPlayerAddItem(cid,2400,1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    elseif item.uid == 49113 then
 
        queststatus = getPlayerStorageValue(cid,5000)
 
        if queststatus == -1 then
		doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a stonecutter axe.")
            doPlayerAddItem(cid,2431,1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    elseif item.uid == 49114 then
 
        queststatus = getPlayerStorageValue(cid,5000)
 
        if queststatus == -1 then
		doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a present box.")
            box = doPlayerAddItem(cid,1990,1)
			doAddContainerItem(box, 2326, 1)
            setPlayerStorageValue(cid,5000,1)
        else
             doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "The chest is empty.")
        end
    end
 
    function cleanArea()
    local checking= {x = starting.x, y = starting.y, z = starting.z, stackpos = 253}
    local monster = {}
    while(checking.y <= ending.y) do
        local creature = getTopCreature(checking).uid or getTopCreature(checking)
        if(isCreature(creature) == TRUE) then
            if(isPlayer(creature) == TRUE) then
                return false
            else
                table.insert(monster, creature)
            end
        end
        if(checking.x == ending.x) then
            checking.x = starting.x
            checking.y = checking.y + 1
        end
        checking.x = checking.x + 1
    end
    for i, c in ipairs(monster) do
        doRemoveCreature(c)
    end
    return true
end
    return 1
end
4) In the mapeditor, set the lever with Action ID: 5000 and set it's Unique ID to 0.

I hope this works for you!
 
Last edited:
Upvote 0 Downvote

Similar threads

Mateus Robeerto
  • Solved
TFS 1.X+ addevent error tfs 1.5
Replies
3
Views
526
Mateus Robeerto
Mateus Robeerto
Shoorkill
  • Question
someone convert this script to work in tfs 1.5 nekiro 8.0 ?
Replies
11
Views
987
Mateus Robeerto
Mateus Robeerto
OTcreator
  • Question
Lua Boss Room [1.4.2]
Replies
1
Views
429
Mateus Robeerto
Mateus Robeerto
F
  • Question
transf action para tfs 1.4
Replies
6
Views
595
felp
F
G
  • Question
Lua Script Aura (Tibia 8.60-OTX2)
Replies
4
Views
436
Gaber Zen
G
J
  • Question
FireStorm Event
Replies
0
Views
378
jareczekjsp
J
G
  • Question
Lua CTFlib/Error (Lin 1)
Replies
0
Views
106
Gaber Zen
G
bpm91
  • Solved
Lua items sacrificed on the coal
2
Replies
20
Views
608
Mateus Robeerto
Mateus Robeerto
G
  • Question
RevScripts Update Battle Event Script
Replies
5
Views
710
Gaber Zen
G
Back
Top