• 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!

Im so tired of this "Arena quest now"! Need professional help!

Tofflarn

Tofflarn

New Member
Joined
Mar 22, 2008
Messages
360
Reaction score
1
Location
Sweden
Hello everyone after many hours trying to figure out how to make this crappy quest to work i decided to ask someone here!

I made pretty big changes in the script beacause the doors where buged on my ot. The doors seems to work perfect now but not the rewards..

Would be awesome if someone could help me with this...

Posting script here. (mod)
Code: 
<?xml version="1.0" encoding="UTF-8"?>
<mod name="Arena Svargrond"

version="1.0" author="Tommy" contact="[email protected]" enabled="yes">

<config name="arenaFunctions"><![CDATA[
KickPosition = {x=32222, y=31094, z=7} --if the player leave the arena or time is over, where he go.
RewardsRoom = {x=32222, y=31080, z=6} --rewards room position.
arenaRoomMaxTime = 240 --max time for each room 240 = 4 min.
OpenDoorsID = 5127 --if you change doors item ids, change me =D


TimeStor = 42350 --here will be saved the time.
myArenaLevel = 45450 --here will be saved the arena level.
talkNPC = 45451 --Storage to check if the player have paid to the npc and can enter to the arena.
RewardsStor = {42361, 42371, 42381} --Storage for greenshore, scrapper, warlord.
isIN = 42352 --to check if the player is in the arena.
myRoom = 46000 --here will be saved the current room.
MonStor = 47000 --here will be saved the monster uid.


DoorsActID = 42357 --Doors near the npc.
LeavePortals = 42321 --The action id of the portal to leave the rooms (south portals).
GobletTiles = {42360, 42370, 42380} --Action ids of the tiles for Bronze, Silver and Gold Goblets.

Cancel = {
    --message when use door and have not paid to the npc.
    [1] = "You have not paid NPC yet.",
    --message when leave arena.
    [2] = "You have been kicked.!",
    --message when the player can't get the reward.
    [3] = "You can\'t get this item",
    --message when already got any reward.
    [4] = "It is empty.",
    --when try to open a reward door and haven't completed the level.
    [5] = "You have not finished this arena level.",
    --NPC answer if the player completed all arena levels.
    [6] = "You already did all the arena levels.",
    --message when time is over
    [7] = "The time is over.",
    --message when you can go to the next room, LoL >_> this is not a cancel btw.
    [8] = "You can go to the next room.",
    --when try to go to the next room and not killed the monster yet.
    [9] = "Kill the monster first",
    --when try to go to the next room but there is a player yet...this text will be PLAYERNAME + this text
    [10] = "is in the room yet."
    }

Completed = {
    [1] = "Congatulations! you have completed the arena in",
    --HERE WILL BE THE ARENA NAME.
    [2] = "difficulty!, now go and take your reward."}
    --then the message will be "Congatulations! you have completed the arena in greenshore/scrapper/warlord difficulty!, now go and take your reward."
    

Arena = {
    --greenshore
    [0] = {
        Cost = 1000, 
        LevelName = 'greenshore', 
        LevelNeeded = 30,
        Goblet = 5807
        },
    --scrapper
    [1] = {
        Cost = 5000,
        LevelName = 'scrapper',
        LevelNeeded = 50,
        Goblet = 5806
        },
    --warlord
    [2] = {
        Cost = 10000, 
        LevelName = 'warlord',    
        LevelNeeded = 80,
        Goblet = 5805
        }
    }


Rewards = {
    --greenshore
    --present with items.
    [42361] = {
        Stor = RewardsStor[1], 
        Cont = 1990,
        items = {7372, 6569, 6574, 2114},
        count = {1, 10, 1, 1}
        },
    --blacksteel sword.
    [42362] = {
        Stor = RewardsStor[1], 
        Cont = nil,
        item = 7406
        },
    --headchopper.
    [42363] = {
        Stor = RewardsStor[1], 
        Cont = nil,
        item = 7380
        },
    --orcish maul.
    [42364] = {
        Stor = RewardsStor[1], 
        Cont = nil,
        item = 7392
        },
    --backpack with items.
    [42365] = {
        Stor = RewardsStor[1], 
        Cont = 7342,
        items = {7365, 7364},
        count = {100, 100}
        },
    --scrapper
    --present with items.
    [42371] = {
        Stor = RewardsStor[2], 
        Cont = 1990,
        items = {7372, 6569, 6574, 7183},
        count = {1, 10, 1, 1}
        },
    --mystic blade.
    [42372] = {
        Stor = RewardsStor[2], 
        Cont = nil,
        item = 7384
        },
    --heroic axe.
    [42373] = {
        Stor = RewardsStor[2], 
        Cont = nil,
        item = 7389
        },
    --cranial basher
    [42374] = {
        Stor = RewardsStor[2], 
        Cont = nil,
        item = 7415
        },
    --backpack with items.
    [42375] = {
        Stor = RewardsStor[2], 
        Cont = 7342,
        items = {7365, 2547, 2547, 2311, 2304},
        count = {100, 100, 100, 50, 50}
        },
    --warlord
    --present with items.
    [42381] = {
        Stor = RewardsStor[3], 
        Cont = 1990,
        items = {7372, 6569, 6574, 6568},
        count = {1, 10, 1, 1}
        },
    --justice seeker
    [42382] = {
        Stor = RewardsStor[3], 
        Cont = nil,
        item = 7390
        },
    --royal axe.
    [42383] = {
        Stor = RewardsStor[3], 
        Cont = nil,
        item = 7434
        },
    --blessed sceptre.
    [42384] = {
        Stor = RewardsStor[3], 
        Cont = nil,
        item = 7429
        },
    --backpack with items.
    [42385] = {
        Stor = RewardsStor[3], 
        Cont = 7342,
        items = {2273, 2268, 7443, 7440, 7529},
        count = {50, 50, 1, 1, 100}
        }
    }

arena_monsters = {
    --greenshore                            -scrapper                            --warlord
    [45300] = "Frostfur",                [45310] = "Avalanche",            [45320] = "Webster",
    [45301] = "Bloodpaw",                [45311] = "Kreebosh the Exile",    [45321] = "Darakan the Executioner",
    [45302] = "Bovinus",                [45312] = "The Dark Dancer",    [45322] = "Norgle Glacierbeard",
    [45303] = "Achad",                    [45313] = "The Hag",            [45323] = "The Pit Lord",
    [45304] = "Colerian The Barbarian",    [45314] = "Slim",                [45324] = "Svoren the Mad",
    [45305] = "The Hairy One",            [45315] = "Grimgor Guteater",    [45325] = "The Masked Marauder",
    [45306] = "Axeitus Headbanger",        [45316] = "Drasilla",            [45326] = "Gnorre Chyllson",
    [45307] = "Rocky",                    [45317] = "Spirit of Earth",    [45327] = "Fallen Mooh'tah Master Ghar",
    [45308] = "Cursed Gladiator",        [45318] = "Spirit of Water",    [45328] = "Deathbringer",
    [45309] = "Orcus the Cruel",        [45319] = "Spirit of Fire",        [45329] = "The Obliverator"}

Checking = false

RoomsACT = {42301, 42302, 42303, 42304, 42305, 42306, 42307, 42308, 42309}

Goblets = {
    [42360] = {Id=Arena[0].Goblet, txt="It is given to the courageous victor of the barbarian arena "..Arena[0].LevelName.." difficulty."},
    [42370] = {Id=Arena[1].Goblet, txt="It is given to the courageous victor of the barbarian arena "..Arena[1].LevelName.." difficulty."},
    [42380] = {Id=Arena[2].Goblet, txt="It is given to the courageous victor of the barbarian arena "..Arena[2].LevelName.." difficulty."}}

RewardsDoors = {[42366] = 1, [42376] = 2, [42386] = 3}

ArenaAdding = {[0] = 3000, [1] = 3010, [2] = 3020}

function myArenaLevelIs(cid)
    Stor = getPlayerStorageValue(cid, myArenaLevel)
    if Stor == -1 then
        setPlayerStorageValue(cid, myArenaLevel, 0)
        Stor = 0
    elseif Stor == 3 then Stor = 2
    end
    return {
        RC = Arena[Stor].Cost, 
        LN = Arena[Stor].LevelName, 
        RLV = Arena[Stor].LevelNeeded,
        LV = getPlayerStorageValue(cid, myArenaLevel)
    }
end

function getDirectionMove(cid, itempos)
    --function by Nahruto
    p = getCreaturePosition(cid)
    i = itempos
    if p.x > i.x then
        if p.y > i.y then
            ret = NORTHWEST
        elseif p.y < i.y then
            ret = SOUTHWEST
        else
            ret = WEST
        end
    elseif p.x < i.x then
        if p.y > i.y then
            ret = NORTHEAST
        elseif p.y < i.y then
            ret = SOUTHEAST
        else
            ret = EAST
        end
    else
        if p.y > i.y then
            ret = NORTH
        elseif p.y < i.y then
            ret = SOUTH

        else
            ret = nil
        end
    end
    return ret
end

function LeaveArena(cid)
    for i = 45300, 45329 do
        setPlayerStorageValue(cid, i, 0)
    end
    if isCreature(getPlayerStorageValue(cid, MonStor)) == TRUE then
        doRemoveCreature(getPlayerStorageValue(cid, MonStor))
    end
    setGlobalStorageValue(getPlayerStorageValue(cid, myRoom), 0)
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, Cancel[2])
    doTeleportThing(cid, KickPosition, FALSE)
    setPlayerStorageValue(cid, TimeStor, 0)
    setPlayerStorageValue(cid, isIN, 0)
end

function CheckRooms()
    addEvent(CheckRooms, 1000)
    for i = 42300, 42309 do
        local Player = getGlobalStorageValue(i)
        if isPlayer(Player) == TRUE then
            local PlayerTime = getPlayerStorageValue(Player, TimeStor)
            if PlayerTime <= os.time() then
                doTeleportThing(Player, KickPosition, FALSE)
                setPlayerStorageValue(Player, TimeStor, 0)
                setGlobalStorageValue(i, 0)
                doPlayerSendTextMessage(Player,MESSAGE_STATUS_CONSOLE_ORANGE, Cancel[7])
                if isCreature(getPlayerStorageValue(Player, MonStor)) == TRUE then
                    doRemoveCreature(getPlayerStorageValue(Player, MonStor))
                end
            elseif PlayerTime - 10 <= os.time() then
                doPlayerSendTextMessage(Player, MESSAGE_EVENT_DEFAULT, "you have "..PlayerTime - os.time().." seconds left.!")
            end
        else
            setGlobalStorageValue(i, 0)
        end
    end
end

function getArenaMonsterIdByName(name)
    for i = 45300, 45329 do
        if tostring(arena_monsters[i]) == string.lower(tostring(name)) then
            return i
        end
    end
    return false
end]]></config>
        <event type="login" name="arenaRegister" event="script"><![CDATA[
        domodlib('arenaFunctions')
        function onLogin(cid)
    registerCreatureEvent(cid, "PlayerArena")
    registerCreatureEvent(cid, "ArenaKill")
        return true
end]]></event>

        <event type="death" name="PlayerArena" event="script"><![CDATA[
        domodlib('arenaFunctions')
function onDeath(cid, corpse, lastHitKiller, mostDamageKiller)
    if getPlayerStorageValue(cid, isIN) == 1 then
        I = 0        
        for i = 45300, 45329 do
            if getPlayerStorageValue(cid, i) == 1 then
                I = i
            end
        end
        if isCreature(lastHitKiller) == TRUE then
            doRemoveCreature(lastHitKiller)
        end
        GlobalStor = I - ArenaAdding[myArenaLevelIs(cid).LV]
        setGlobalStorageValue(GlobalStor, 0)
        setPlayerStorageValue(cid, isIN, 0)
    end
        return true
end]]></event>

        <event type="kill" name="ArenaKill" event="script"><![CDATA[
        domodlib('arenaFunctions')
function onKill(cid, target, lastHit)
    if getPlayerStorageValue(cid, isIN) == 1 then
        local Room = getArenaMonsterIdByName(getCreatureName(target))
        if Room ~= 0 then
            setPlayerStorageValue(cid, Room, 1)
            doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, Cancel[8])
        end
       end
        return true
end]]></event>

        <action fromaid="42357" toaid="42386" event="script"><![CDATA[
        domodlib('arenaFunctions')
function onUse(cid, item, fromPosition, itemEx, toPosition)
    local myMove = getDirectionMove(cid, fromPosition)

    if myMove == nil then

        return FALSE

    end

    local Reward = Rewards[item.actionid]

    if Reward then

        if getPlayerStorageValue(cid, Reward.Stor) ~= 1 then

            local reward = nil

            if Reward.Cont ~= nil then

                reward = doCreateItemEx(Reward.Cont, 1)

                for i = 1, #Reward.items do

                    doAddContainerItem(reward, Reward.items[i], Reward.count[i])

                end

            else

                reward = doCreateItemEx(Reward.item, 1)


            end

            if reward ~= nil then

                if doPlayerAddItemEx(cid, reward, FALSE) == RETURNVALUE_NOERROR then

                    doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,'You have found a '..getItemNameById(getThing(reward).itemid)..'.')

                    setPlayerStorageValue(cid, Reward.Stor, 1)

                                addPlayerRep(cid, 5, TEXTCOLOR_LIGHTBLUE)

                else

                    doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Cancel[3])

                end

            end

        else

            doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Cancel[4])

        end

    elseif RewardsDoors[item.actionid] then

        if myArenaLevelIs(cid).LV >= RewardsDoors[item.actionid] then

            doTransformItem(item.uid, OpenDoorsID)

            doMoveCreature(cid, myMove)

        else

            doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Cancel[5])

        end

    elseif item.actionid == DoorsActID and getPlayerStorageValue(cid, talkNPC) == 1 then

        doTransformItem(item.uid, OpenDoorsID)

        doMoveCreature(cid, myMove)

    else

        doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Cancel[1])
end

    return TRUE

end]]></action>

    <movevent type="StepIn" fromaid="42300" toaid="42380" event="script"><![CDATA[
        domodlib('arenaFunctions')
function onStepIn(cid, item, position, fromPosition)
    local ArenaRoom = item.actionid

    if item.actionid == LeavePortals then

        LeaveArena(cid)

    elseif isInArray(GobletTiles, item.actionid) == TRUE then

        local gobletPos = getThingPos(item.uid)

        if getPlayerStorageValue(cid, item.actionid) ~= 1 then

            setPlayerStorageValue(cid, item.actionid, 1)

            local Goblet = doCreateItemEx(Goblets[item.actionid].Id, 1)

            doItemSetAttribute(Goblet, "description", ""..Goblets[item.actionid].txt.."\nAwarded to "..getCreatureName(cid)..".")

            gobletPos.y = gobletPos.y - 1

            doTileAddItemEx(gobletPos, Goblet)

        end

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

    elseif isInArray(RoomsACT, ArenaRoom) == TRUE or ArenaRoom == 42300 then

        if Checking == FALSE then Checking = TRUE CheckRooms() end

        local myLevelArena = myArenaLevelIs(cid).LV

        if ArenaAdding[myLevelArena] then

            Mons = ArenaRoom + ArenaAdding[myLevelArena]

        end

        if getGlobalStorageValue(ArenaRoom) == 0 then

            if isCreature(getPlayerStorageValue(cid, MonStor)) == FALSE then

                if ArenaRoom == 42300 and getPlayerStorageValue(cid, talkNPC) == 1 then

                    setPlayerStorageValue(cid, talkNPC, 0)

                    setPlayerStorageValue(cid, isIN, 1)

                    P = 1

                elseif ArenaRoom ~= 42300 and getPlayerStorageValue(cid, isIN) == 1 then

                    P = 1

                else 

                    P = nil

                end        

                if P ~= nil then

                    local SpawnPos = getThingPos(ArenaRoom)

                    doTeleportThing(cid, SpawnPos, FALSE)

                    SpawnPos.x = SpawnPos.x - 1

                    SpawnPos.y = SpawnPos.y - 1

                    local Monster = doSummonCreature(arena_monsters[Mons], SpawnPos)

                    setGlobalStorageValue(ArenaRoom, cid)

                    setGlobalStorageValue(ArenaRoom - 1, 0)

                    setPlayerStorageValue(cid, TimeStor, os.time()+arenaRoomMaxTime)

                    setPlayerStorageValue(cid, MonStor, Monster)

                    setPlayerStorageValue(cid, myRoom, ArenaRoom)

                else

                    LeaveArena(cid)

                end

            else

                doTeleportThing(cid, fromPosition, TRUE)

                doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, Cancel[9])

            end

        else

            doTeleportThing(cid, fromPosition, TRUE)

            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, ""..getCreatureName(getGlobalStorageValue(cid, ArenaRoom)).." "..Cancel[10].."")

        end

    elseif ArenaRoom == 42310 then

        if isCreature(getPlayerStorageValue(cid, MonStor)) == FALSE then

            doPlayerSendTextMessage(cid,MESSAGE_STATUS_CONSOLE_BLUE,""..Completed[1].." "..myArenaLevelIs(cid).LN.." "..Completed[2].."")

            setPlayerStorageValue(cid, myArenaLevel, getPlayerStorageValue(cid, myArenaLevel) + 1)

            setGlobalStorageValue(ArenaRoom - 1, 0)

            setPlayerStorageValue(cid, TimeStor, 0)

            setPlayerStorageValue(cid, isIN, 0)

            doTeleportThing(cid, RewardsRoom, TRUE)

        else

            doTeleportThing(cid, fromPosition, TRUE)

            doPlayerSendTextMessage(cid,MESSAGE_STATUS_CONSOLE_ORANGE,'Najpierw zabij potwora!')

        end

    end

    return TRUE

end]]></movevent>

    <movevent type="StepOut" fromaid="42357" toaid="42387" event="script"><![CDATA[
        domodlib('arenaFunctions')
function onStepOut(cid, item, position, fromPosition)

    if item.actionid == DoorsActID or RewardsDoors[item.actionid] then

        doTransformItem(item.uid, item.itemid - 2)

    elseif isInArray(GobletTiles, item.actionid) == TRUE then

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

    return TRUE

end]]></movevent>

</mod>


Here is the error i got when i use a quest chest (i manage to get the reward).

errorultra.jpg


The errors don't tell me a thing, maybe it does to you?

Thanks in advance!

King regards,
Tofflarn
 
Sort by date Sort by votes
Code: 
<?xml version="1.0" encoding="UTF-8"?>
<mod name="Arena Svargrond" version="1.0" author="Tommy" contact="[email protected]" enabled="yes">
<config name="arenaFunctions"><![CDATA[
KickPosition = {x=32222, y=31094, z=7} --if the player leave the arena or time is over, where he go.
RewardsRoom = {x=32222, y=31080, z=6} --rewards room position.
arenaRoomMaxTime = 240 --max time for each room 240 = 4 min.
OpenDoorsID = 5127 --if you change doors item ids, change me =D

TimeStor = 42350 --here will be saved the time.
myArenaLevel = 45450 --here will be saved the arena level.
talkNPC = 45451 --Storage to check if the player have paid to the npc and can enter to the arena.
RewardsStor = {42361, 42371, 42381} --Storage for greenshore, scrapper, warlord.
isIN = 42352 --to check if the player is in the arena.
myRoom = 46000 --here will be saved the current room.
MonStor = 47000 --here will be saved the monster uid.


DoorsActID = 42357 --Doors near the npc.
LeavePortals = 42321 --The action id of the portal to leave the rooms (south portals).
GobletTiles = {42360, 42370, 42380} --Action ids of the tiles for Bronze, Silver and Gold Goblets.

Cancel = {
	--message when use door and have not paid to the npc.
	[1] = "You have not paid NPC yet.",
	--message when leave arena.
	[2] = "You have been kicked.!",
	--message when the player can't get the reward.
	[3] = "You can\'t get this item",
	--message when already got any reward.
	[4] = "It is empty.",
	--when try to open a reward door and haven't completed the level.
	[5] = "You have not finished this arena level.",
	--NPC answer if the player completed all arena levels.
	[6] = "You already did all the arena levels.",
	--message when time is over
	[7] = "The time is over.",
	--message when you can go to the next room, LoL >_> this is not a cancel btw.
	[8] = "You can go to the next room.",
	--when try to go to the next room and not killed the monster yet.
	[9] = "Kill the monster first",
	--when try to go to the next room but there is a player yet...this text will be PLAYERNAME + this text
	[10] = "is in the room yet."
	}

Completed = {
	[1] = "Congatulations! you have completed the arena in",
	--HERE WILL BE THE ARENA NAME.
	[2] = "difficulty!, now go and take your reward."}
	--then the message will be "Congatulations! you have completed the arena in greenshore/scrapper/warlord difficulty!, now go and take your reward."
	

Arena = {
	--greenshore
	[0] = {
		Cost = 1000, 
		LevelName = 'greenshore', 
		LevelNeeded = 30,
		Goblet = 5807
		},
	--scrapper
	[1] = {
		Cost = 5000,
		LevelName = 'scrapper',
		LevelNeeded = 50,
		Goblet = 5806
		},
	--warlord
	[2] = {
		Cost = 10000, 
		LevelName = 'warlord',    
		LevelNeeded = 80,
		Goblet = 5805
		}
	}


Rewards = {
	--greenshore
	--present with items.
	[42361] = {
		Stor = RewardsStor[1], 
		Cont = 1990,
		items = {7372, 6569, 6574, 2114},
		count = {1, 10, 1, 1}
		},
	--blacksteel sword.
	[42362] = {
		Stor = RewardsStor[1], 
		Cont = nil,
		item = 7406
		},
	--headchopper.
	[42363] = {
		Stor = RewardsStor[1], 
		Cont = nil,
		item = 7380
		},
	--orcish maul.
	[42364] = {
		Stor = RewardsStor[1], 
		Cont = nil,
		item = 7392
		},
	--backpack with items.
	[42365] = {
		Stor = RewardsStor[1], 
		Cont = 7342,
		items = {7365, 7364},
		count = {100, 100}
		},
	--scrapper
	--present with items.
	[42371] = {
		Stor = RewardsStor[2], 
		Cont = 1990,
		items = {7372, 6569, 6574, 7183},
		count = {1, 10, 1, 1}
		},
	--mystic blade.
	[42372] = {
		Stor = RewardsStor[2], 
		Cont = nil,
		item = 7384
		},
	--heroic axe.
	[42373] = {
		Stor = RewardsStor[2], 
		Cont = nil,
		item = 7389
		},
	--cranial basher
	[42374] = {
		Stor = RewardsStor[2], 
		Cont = nil,
		item = 7415
		},
	--backpack with items.
	[42375] = {
		Stor = RewardsStor[2], 
		Cont = 7342,
		items = {7365, 2547, 2547, 2311, 2304},
		count = {100, 100, 100, 50, 50}
		},
	--warlord
	--present with items.
	[42381] = {
		Stor = RewardsStor[3], 
		Cont = 1990,
		items = {7372, 6569, 6574, 6568},
		count = {1, 10, 1, 1}
		},
	--justice seeker
	[42382] = {
		Stor = RewardsStor[3], 
		Cont = nil,
		item = 7390
		},
	--royal axe.
	[42383] = {
		Stor = RewardsStor[3], 
		Cont = nil,
		item = 7434
		},
	--blessed sceptre.
	[42384] = {
		Stor = RewardsStor[3], 
		Cont = nil,
		item = 7429
		},
	--backpack with items.
	[42385] = {
		Stor = RewardsStor[3], 
		Cont = 7342,
		items = {2273, 2268, 7443, 7440, 7529},
		count = {50, 50, 1, 1, 100}
		}
	}

arena_monsters = {
	--greenshore                            -scrapper                            --warlord
	[45300] = "Frostfur",                [45310] = "Avalanche",            [45320] = "Webster",
	[45301] = "Bloodpaw",                [45311] = "Kreebosh the Exile",    [45321] = "Darakan the Executioner",
	[45302] = "Bovinus",                [45312] = "The Dark Dancer",    [45322] = "Norgle Glacierbeard",
	[45303] = "Achad",                    [45313] = "The Hag",            [45323] = "The Pit Lord",
	[45304] = "Colerian The Barbarian",    [45314] = "Slim",                [45324] = "Svoren the Mad",
	[45305] = "The Hairy One",            [45315] = "Grimgor Guteater",    [45325] = "The Masked Marauder",
	[45306] = "Axeitus Headbanger",        [45316] = "Drasilla",            [45326] = "Gnorre Chyllson",
	[45307] = "Rocky",                    [45317] = "Spirit of Earth",    [45327] = "Fallen Mooh'tah Master Ghar",
	[45308] = "Cursed Gladiator",        [45318] = "Spirit of Water",    [45328] = "Deathbringer",
	[45309] = "Orcus the Cruel",        [45319] = "Spirit of Fire",        [45329] = "The Obliverator"}

Checking = false

RoomsACT = {42301, 42302, 42303, 42304, 42305, 42306, 42307, 42308, 42309}

Goblets = {
	[42360] = {Id=Arena[0].Goblet, txt="It is given to the courageous victor of the barbarian arena "..Arena[0].LevelName.." difficulty."},
	[42370] = {Id=Arena[1].Goblet, txt="It is given to the courageous victor of the barbarian arena "..Arena[1].LevelName.." difficulty."},
	[42380] = {Id=Arena[2].Goblet, txt="It is given to the courageous victor of the barbarian arena "..Arena[2].LevelName.." difficulty."}}

RewardsDoors = {[42366] = 1, [42376] = 2, [42386] = 3}

ArenaAdding = {[0] = 3000, [1] = 3010, [2] = 3020}

function myArenaLevelIs(cid)
	Stor = getPlayerStorageValue(cid, myArenaLevel)
	if Stor == -1 then
		setPlayerStorageValue(cid, myArenaLevel, 0)
		Stor = 0
	elseif Stor == 3 then Stor = 2
	end
	return {
		RC = Arena[Stor].Cost, 
		LN = Arena[Stor].LevelName, 
		RLV = Arena[Stor].LevelNeeded,
		LV = getPlayerStorageValue(cid, myArenaLevel)
	}
end

function getDirectionMove(cid, itempos)
	--function by Nahruto
	p = getCreaturePosition(cid)
	i = itempos
	if p.x > i.x then
		if p.y > i.y then
			ret = NORTHWEST
		elseif p.y < i.y then
			ret = SOUTHWEST
		else
			ret = WEST
		end
	elseif p.x < i.x then
		if p.y > i.y then
			ret = NORTHEAST
		elseif p.y < i.y then
			ret = SOUTHEAST
		else
			ret = EAST
		end
	else
		if p.y > i.y then
			ret = NORTH
		elseif p.y < i.y then
			ret = SOUTH

		else
			ret = nil
		end
	end
	return ret
end

function LeaveArena(cid)
	for i = 45300, 45329 do
		setPlayerStorageValue(cid, i, 0)
	end
	if isCreature(getPlayerStorageValue(cid, MonStor)) == TRUE then
		doRemoveCreature(getPlayerStorageValue(cid, MonStor))
	end
	setGlobalStorageValue(getPlayerStorageValue(cid, myRoom), 0)
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, Cancel[2])
	doTeleportThing(cid, KickPosition, FALSE)
	setPlayerStorageValue(cid, TimeStor, 0)
	setPlayerStorageValue(cid, isIN, 0)
end

function CheckRooms()
	addEvent(CheckRooms, 1000)
	for i = 42300, 42309 do
		local Player = getGlobalStorageValue(i)
		if isPlayer(Player) == TRUE then
			local PlayerTime = getPlayerStorageValue(Player, TimeStor)
			if PlayerTime <= os.time() then
				doTeleportThing(Player, KickPosition, FALSE)
				setPlayerStorageValue(Player, TimeStor, 0)
				setGlobalStorageValue(i, 0)
				doPlayerSendTextMessage(Player,MESSAGE_STATUS_CONSOLE_ORANGE, Cancel[7])
				if isCreature(getPlayerStorageValue(Player, MonStor)) == TRUE then
					doRemoveCreature(getPlayerStorageValue(Player, MonStor))
				end
			elseif PlayerTime - 10 <= os.time() then
				doPlayerSendTextMessage(Player, MESSAGE_EVENT_DEFAULT, "you have "..PlayerTime - os.time().." seconds left.!")
			end
		else
			setGlobalStorageValue(i, 0)
		end
	end
end

function getArenaMonsterIdByName(name)
	for i = 45300, 45329 do
		if tostring(arena_monsters[i]) == string.lower(tostring(name)) then
			return i
		end
	end
	return false
end]]></config>
		<event type="login" name="arenaRegister" event="script"><![CDATA[
		domodlib('arenaFunctions')
		function onLogin(cid)
			registerCreatureEvent(cid, "PlayerArena")
			registerCreatureEvent(cid, "ArenaKill")
			return true
		end]]></event>

		<event type="death" name="PlayerArena" event="script"><![CDATA[
		domodlib('arenaFunctions')
		function onDeath(cid, corpse, lastHitKiller, mostDamageKiller)
			if getPlayerStorageValue(cid, isIN) == 1 then
				I = 0        
				for i = 45300, 45329 do
					if getPlayerStorageValue(cid, i) == 1 then
						I = i
					end
				end
				if isCreature(lastHitKiller) == TRUE then
					doRemoveCreature(lastHitKiller)
				end
				GlobalStor = I - ArenaAdding[myArenaLevelIs(cid).LV]
				setGlobalStorageValue(GlobalStor, 0)
				setPlayerStorageValue(cid, isIN, 0)
			end
			return true
		end]]></event>

		<event type="kill" name="ArenaKill" event="script"><![CDATA[
		domodlib('arenaFunctions')
		function onKill(cid, target, lastHit)
			if getPlayerStorageValue(cid, isIN) == 1 then
				local Room = getArenaMonsterIdByName(getCreatureName(target))
				if Room ~= 0 then
					setPlayerStorageValue(cid, Room, 1)
					doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, Cancel[8])
				end
			end
			return true
		end]]></event>

		<action fromaid="42357" toaid="42386" event="script"><![CDATA[
		domodlib('arenaFunctions')
		function onUse(cid, item, fromPosition, itemEx, toPosition)
			local myMove = getDirectionMove(cid, fromPosition)
			if myMove == nil then
				return FALSE
			end
			local Reward = Rewards[item.actionid]
			if Reward then
				if getPlayerStorageValue(cid, Reward.Stor) ~= 1 then
					local reward = nil
					if Reward.Cont then
						reward = doCreateItemEx(Reward.Cont, 1)
						for i = 1, #Reward.items do
							doAddContainerItem(reward, Reward.items[i], Reward.count[i])
						end
					else
						reward = doCreateItemEx(Reward.item, 1)
					end
					if reward then
						if doPlayerAddItemEx(cid, reward, FALSE) == RETURNVALUE_NOERROR then
							doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,'You have found a '..getItemNameById(getThing(reward).itemid)..'.')
							setPlayerStorageValue(cid, Reward.Stor, 1)
						else
							doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Cancel[3])
						end
					end
				else
					doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Cancel[4])
				end
			elseif RewardsDoors[item.actionid] then
				if myArenaLevelIs(cid).LV >= RewardsDoors[item.actionid] then
					doTransformItem(item.uid, OpenDoorsID)
					doMoveCreature(cid, myMove)
				else
					doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Cancel[5])
				end
			elseif item.actionid == DoorsActID and getPlayerStorageValue(cid, talkNPC) == 1 then
				doTransformItem(item.uid, OpenDoorsID)
				doMoveCreature(cid, myMove)
			else
				doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, Cancel[1])
			end
			return TRUE
		end]]></action>
	<movevent type="StepIn" fromaid="42300" toaid="42380" event="script"><![CDATA[
		domodlib('arenaFunctions')
		function onStepIn(cid, item, position, fromPosition)
			local ArenaRoom = item.actionid
			if item.actionid == LeavePortals then
				LeaveArena(cid)
			elseif isInArray(GobletTiles, item.actionid) == TRUE then
				local gobletPos = getThingPos(item.uid)
				if getPlayerStorageValue(cid, item.actionid) ~= 1 then
					setPlayerStorageValue(cid, item.actionid, 1)
					local Goblet = doCreateItemEx(Goblets[item.actionid].Id, 1)
					doItemSetAttribute(Goblet, "description", ""..Goblets[item.actionid].txt.."\nAwarded to "..getCreatureName(cid)..".")
					gobletPos.y = gobletPos.y - 1
					doTileAddItemEx(gobletPos, Goblet)
				end
				doTransformItem(item.uid, item.itemid - 1)
			elseif isInArray(RoomsACT, ArenaRoom) == TRUE or ArenaRoom == 42300 then
				if Checking == FALSE then Checking = TRUE CheckRooms() end
				local myLevelArena = myArenaLevelIs(cid).LV
				if ArenaAdding[myLevelArena] then
					Mons = ArenaRoom + ArenaAdding[myLevelArena]
				end
				if getGlobalStorageValue(ArenaRoom) == 0 then
					if isCreature(getPlayerStorageValue(cid, MonStor)) == FALSE then
						if ArenaRoom == 42300 and getPlayerStorageValue(cid, talkNPC) == 1 then
							setPlayerStorageValue(cid, talkNPC, 0)
							setPlayerStorageValue(cid, isIN, 1)
							P = 1
						elseif ArenaRoom ~= 42300 and getPlayerStorageValue(cid, isIN) == 1 then
							P = 1
						else 
							P = nil
						end        
						if P then
							local SpawnPos = getThingPos(ArenaRoom)
							doTeleportThing(cid, SpawnPos, FALSE)
							SpawnPos.x = SpawnPos.x - 1
							SpawnPos.y = SpawnPos.y - 1
							local Monster = doSummonCreature(arena_monsters[Mons], SpawnPos)
							setGlobalStorageValue(ArenaRoom, cid)
							setGlobalStorageValue(ArenaRoom - 1, 0)
							setPlayerStorageValue(cid, TimeStor, os.time()+arenaRoomMaxTime)
							setPlayerStorageValue(cid, MonStor, Monster)
							setPlayerStorageValue(cid, myRoom, ArenaRoom)
						else
							LeaveArena(cid)
						end
					else
						doTeleportThing(cid, fromPosition, TRUE)
						doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, Cancel[9])
					end
				else
					doTeleportThing(cid, fromPosition, TRUE)
					doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, ""..getCreatureName(getGlobalStorageValue(cid, ArenaRoom)).." "..Cancel[10].."")
				end
			elseif ArenaRoom == 42310 then
				if isCreature(getPlayerStorageValue(cid, MonStor)) == FALSE then
					doPlayerSendTextMessage(cid,MESSAGE_STATUS_CONSOLE_BLUE,""..Completed[1].." "..myArenaLevelIs(cid).LN.." "..Completed[2].."")
					setPlayerStorageValue(cid, myArenaLevel, getPlayerStorageValue(cid, myArenaLevel) + 1)
					setGlobalStorageValue(ArenaRoom - 1, 0)
					setPlayerStorageValue(cid, TimeStor, 0)
					setPlayerStorageValue(cid, isIN, 0)
					doTeleportThing(cid, RewardsRoom, TRUE)
				else
					doTeleportThing(cid, fromPosition, TRUE)
					doPlayerSendTextMessage(cid,MESSAGE_STATUS_CONSOLE_ORANGE,'Najpierw zabij potwora!')
				end
			end
			return TRUE
		end]]></movevent>

	<movevent type="StepOut" fromaid="42357" toaid="42387" event="script"><![CDATA[
		domodlib('arenaFunctions')
		function onStepOut(cid, item, position, fromPosition)
			if item.actionid == DoorsActID or RewardsDoors[item.actionid] then
				doTransformItem(item.uid, item.itemid - 2)
			elseif isInArray(GobletTiles, item.actionid) == TRUE then
				doTransformItem(item.uid, item.itemid + 1)
			end
			return TRUE
		end]]></movevent>
</mod>
 
Upvote 0 Downvote
Tofflarn said:
Well it didn't solve my problem, can you explain why you did it? :)
Click to expand...
because you need the rep system which inculdes the function "addPlayerRep" thats why it gave addPlayerRep a nil value (which means "addPlayerRep" has no meaning (means = 0 here))
 
Upvote 0 Downvote

Similar threads

potinho
  • Question
Lua [TFS 0.X] Improve Reward Chest System
Replies
1
Views
279
potinho
potinho
OTcreator
  • Question
Lua Convert to TFS 1.X
Replies
1
Views
309
Evil Puncker
E
G
  • Question
RevScripts i need auto zombie system
Replies
15
Views
1K
Gaber Zen
G
I
  • Question
Lua TFS 1.3 Task System with points
Replies
4
Views
768
Icaraii
I
J
  • Question
RevScripts tile create monsters
Replies
4
Views
668
mano368
M
A
  • Question
Lua Convert Script TFS 0.4 to TFS 1.5 downgrade
Replies
7
Views
651
stevanmayan
S
L
  • Question
RevScripts I need help TASK SYSTEM TFS 1.3
Replies
3
Views
425
adric21
adric21
OTcreator
  • Question
Collection TFS 1.4.2
Replies
4
Views
762
delikerem
D
L
  • Question
Lua Request Varkhal Addon NPC TFS 1.2
Replies
2
Views
398
LegacyOT
L
Back
Top