Arena Svargrond 100%

[Adrenalimitz 1]

Bom vamos lá:

1º) vá na pasta "mods", crie um arquivo chamado "arena.xml".

arena.xml

<?xml version="1.0" encoding="UTF-8"?>
<mod name="Arena Svargrond"

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

<config name="arenaFunctions"><![CDATA[
KickPosition = {x=32312, y=31148, z=7} --if the player leave the arena or time is over, where he go.
RewardsRoom = {x=1255, y=831, 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>

2º)Vá na pasta "NPC", crie um arquivo chamado "Halvar.xml".

Halvar.xml:

<npc name="Halvar" script="data/npc/scripts/arena.lua" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="143" head="22" body="113" legs="78" feet="116" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Hello |PLAYERNAME|. Im leader of the Svargrond Arena." />
</parameters>
</npc>

3º)Vá na pasta "data/npc/scripts", crie um arquivo chamado "arena.lua".

arena.lua:

 domodlib('arenaFunctions')
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}

function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
local focus = 0

local talk_start = 0

local TS = 0



function onCreatureDisappear(cid, pos)

if focus == cid then

selfSay('Good bye then.')

focus = 0

talk_start = 0

end

end



local function BYE()

focus = 0

talk_start = 0

TS = 0

end



function msgcontains(txt, str)

return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))

end



function onCreatureSay(cid, type, msg)



msg = string.lower(msg)

if (msgcontains(msg, 'hi') and (focus == 0)) then

selfSay('Hello ' .. getCreatureName(cid) .. ', Do you want to make arena?.')

focus = cid

talk_start = os.clock()

TS = 1

elseif msgcontains(msg, 'hi') and (focus ~= cid) then

selfSay('Im Bussy')

elseif TS == 1 and msgcontains(msg, 'yes') or msgcontains(msg, 'fight') or msgcontains(msg, 'arena') then

if getPlayerStorageValue(cid, myArenaLevel) < 3 then

local enterArena = myArenaLevelIs(cid)

if getPlayerLevel(cid) >= enterArena.RLV then

if getPlayerMoney(cid) >= enterArena.RC then

setPlayerStorageValue(cid, talkNPC, 1)

doPlayerRemoveMoney(cid, enterArena.RC)

selfSay("Now you can go to test... ".. enterArena.LN .."")

BYE()

else

selfSay("You don\'t have "..enterArena.RC.." gp! Come back when you will be ready!")

BYE()

end

else

selfSay("You don\'t have "..enterArena.RLV.." level! Come back when you will be ready!")

BYE()

end

else

selfSay(Cancel[6])

BYE()

end

elseif TS == 1 and msgcontains(msg, 'no') then

selfSay("Bye!.")

BYE()

elseif msgcontains(msg, 'bye') then

selfSay("Bye!.")

BYE()

end

return true

end



function onThink()

doNpcSetCreatureFocus(focus)

if (os.clock() - talk_start) > 60 then

if focus > 0 then

selfSay('Good bye then.')

end

focus = 0

end

end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

4º) Coloque o mapa que vou disponibilizar a seguir sobre sua arena (lembre-se que tem que ser exatamente sqm por sqm)

Arena Svargrond

 

Pronto!

Editado 22 Março, 2010 por Adrenalimitz

[Flatronez 1]

Isso se encaixa melhor em Downloads.

 

[toninhoo1 0]

n funcionou aki, fiz td cm diz ai, + qnd alguem tenta ir pra arena, halvar fala pra ir, so q as portas n abrem, dizem q tem q pagar first ;/

[GuHB 0]

Isso foi copiado da otland.

os créditos não são seus.

 

LINK AQUI

[Alfoy 0]

Ai que coisa, nem poe credito...

 

Flaffytow podia procura no google alguma parte do tuto pra ve se nao eh rip memo -,-

[Pandá s2 0]

É... Independente de onde seja tirado, esse Script almenta o RPG do Tibia (COISA IMPORTANTE). por isso parabéns para você.

 

Proxima vez é so ageitar os Creditos.

[Delo Vicious 0]

ha tipo fera, se vc completar a arena no modo greenhorn, vc pode entrar em todas as salas. e pegar os premios sem ter terminado a quest '-'

[miroki 0]

arrume os creditos