local target = 0

local prevTarget = 0

local origPos = 0

local max_distance = 15

local fighting = false

local challenger = 0

local battle_turn = 1 -- don't change

local challenger_turn = 0 -- don't change

---

 

local pokemons = {

{name = "Parasect", optionalLevel = 90, sex = SEX_MALE, nick = "", ball = "normal"},

{name = "Muk", optionalLevel = 100, sex = SEX_MALE, nick = "", ball = "normal"}, --alterado v1.4

{name = "Crobat", optionalLevel = 110, sex = SEX_MALE, nick = "", ball = "normal"},

{name = "Nidoqueen", optionalLevel = 120, sex = SEX_MALE, nick = "", ball = "normal"},

{name = "Shiny Nidoking", optionalLevel = 120, sex = SEX_MALE, nick = "Pedregulho", ball = "normal"},

}

 

local function beDrunk(target)

if not isCreature(target) then return true end

doChangeSpeed(target, -getCreatureSpeed(target))

doChangeSpeed(target, 100)

if not isSleeping(target) and getPlayerStorageValue(target, 654878) <= 0 then

doPushCreature(target, math.random(0, 3), 1, 0)

end

doChangeSpeed(target, -100)

addEvent(beDrunk, 1000, target)

end

 

local function doSummonGymPokemon(npc)

local this = npc

if not isCreature(this) then return true end

if #getCreatureSummons(this) >= 1 or target == 0 then return true end

local it = pokemons[battle_turn]

if not it then return true end

doSummonMonster(this, it.name)

local summon = getCreatureSummons(this)[1]

local balleffect = pokeballs["normal"].effect

if it.ball and pokeballs[it.ball] then

balleffect = pokeballs[it.ball].effect

end

doSendMagicEffect(getThingPos(summon), balleffect)

setPlayerStorageValue(summon, 10000, balleffect)

setPlayerStorageValue(summon, 10001, gobackmsgs[math.random(#gobackmsgs)].back:gsub("doka", it.nick ~= "" and it.nick or it.name))

setPlayerStorageValue(summon, 1007, it.nick ~= "" and it.nick or it.name)

doSetMonsterGym(summon, target)

addEvent(adjustWildPoke, 15, summon, it.optionalLevel)

local name = it.nick ~= "" and it.nick or getCreatureName(this).."s "..it.name --alterado v1.3

doCreatureSay(this, gobackmsgs[math.random(#gobackmsgs)].go:gsub("doka", getPlayerStorageValue(summon, 1007)), 1)

fighting = true

battle_turn = battle_turn + 1

end

 

local function doRegainNpcSpeed(npc)

if getCreatureSpeed(npc) ~= 0 then return true end

doChangeSpeed(npc, PlayerSpeed)

end

 

local function goToOrigPos()

target = 0

selfFollow(0)

fighting = false

challenger = 0

challenger_turn = 0

if #getCreatureSummons(getNpcCid()) >= 1 then

setPlayerStorageValue(getCreatureSummons(getNpcCid())[1], 1006, 0)

doCreatureAddHealth(getCreatureSummons(getNpcCid())[1], -getCreatureMaxHealth(getCreatureSummons(getNpcCid())[1]))

end

doTeleportThing(getNpcCid(), origPos)

end

 

local function updateTarget()

if not isPlayer(target) then

goToOrigPos()

end

 

if(target == 0) then

local list = getSpectators(getNpcPos(), 9, 9, false)

for i = 1, table.getn(list) do

local _target = list

if(_target ~= 0) then

if(isPlayer(_target) == TRUE) then

if(selfFollow(_target)) then

doNpcSetCreatureFocus(_target)

target = _target

prevTarget = target

break

end

end

end

end

end

end

 

function onCreatureAppear(cid)

end

 

function onCreatureDisappear(cid)

end

 

function onCreatureMove(creature, oldPos, newPos)

--

end

 

function onThink()

if origPos == 0 then

origPos = getNpcPos()

end

updateTarget()

 

if(target == 0) then

goToOrigPos()

return

end

 

local playerPos = getCreaturePosition(target)

local myPos = getNpcPos()

 

if(myPos.z ~= playerPos.z) then

goToOrigPos()

battle_turn = battle_turn == 1 and battle_turn or battle_turn-1

return

end

 

if getDistanceBetween(playerPos, myPos) > max_distance then

goToOrigPos()

battle_turn = battle_turn == 1 and battle_turn or battle_turn-1

return

end

 

if getDistanceBetween(playerPos, myPos) <= 2 then

doChangeSpeed(getNpcCid(), -getCreatureSpeed(getNpcCid()))

else

doRegainNpcSpeed(getNpcCid())

end

 

if getDistanceBetween(playerPos, myPos) <= 5 then

challenger = target

addEvent(doSummonGymPokemon, 850, getNpcCid())

---

local change = false

 

if not isCreature(target) then

target = 0

battle_turn = battle_turn == 1 and battle_turn or battle_turn-1

return true

end

 

if fighting then

 

if not isCreature(getCreatureTarget(getNpcCid())) then

if #getCreatureSummons(challenger) >= 1 then

selfAttackCreature(getCreatureSummons(challenger)[1])

change = true

else

if change then

change = false

challenger_turn = challenger_turn + 1

end

end

end

 

if #getCreatureSummons(getNpcCid()) == 0 and isCreature(target) then

if battle_turn > #pokemons then

addEvent(doCreateNpc, 30000, ".aHunter", myPos)

doRemoveCreature(getNpcCid())

local monster = doCreateMonster("aHunter", myPos)

addEvent(beDrunk, 100, monster)

end

addEvent(doSummonGymPokemon, 1000, getNpcCid())

end

 

if not hasPokemon(challenger) or #getCreatureSummons(challenger) <= 0 then

selfAttackCreature(challenger)

end

end

end

end

<?xml version="1.0" encoding="UTF-8"?>

<monster name="Hunter" nameDescription="a Hunter" race="normal" experience="0" speed="180" manacost="0">

<health now="1500" max="1500"/>

<look type="1015" head="114" body="119" legs="114" feet="114" corpse="3058"/>

<targetchange interval="1000" chance="0"/>

<strategy attack="100" defense="0"/>

<flags>

<flag summonable="1"/>

<flag attackable="1"/>

<flag hostile="0"/>

<flag illusionable="1"/>

<flag convinceable="1"/>

<flag pushable="0"/>

<flag canpushitems="0"/>

<flag canpushcreatures="0"/>

<flag targetdistance="1"/>

<flag staticattack="97"/>

<flag runonhealth="0"/>

</flags>

 

<attacks>

</attacks>

 

 

<defenses armor="0" defense="0">

</defenses>

 

<loot>

</loot>

 

</monster>