Pet System 8.1

[akiraspirith 0]

meu pet system nao esta funcionando tudo, nao esta 100% tipo ele sumona o pet mais nao faz ele sumir, quando digito !pet para ele sumir aparece esse erro

 

" 61: attempt to call global 'getCreatureMaxHealth' a nil value> "

 

aki esta o pet config:

 

--// \\--

--( made by FedeVI ) --

--____________ //--

petSystemExhaustion = 0 --in secods, 0 = no exhausted.

frases = {"Men, im still exhausted!", "Ok, in one momment", "afff, again?!", "meh, one second"}

lenght = 39 -- maximun lenght the !petsay can have...

manaGainTicks = 3000 --

--how fast the pet gains mana

manaGainAmmount = 20 --//

manaGainPerLevel = 30 -- mana that gains the pet for each level the player gain

magicLevelRate = 10 -- how faster the pet will gain mlvl compared to real tibia,,

base = 2000 --base storage. All storages will depend of this number

storages = {

petMag = base,

petUid = base+1,

petExha = base+2,

petDamage = base+3,

petManaSpent = base+4,

petIsOnline = base+5,

petMana = base+6,

petIsHealing = base+7,

petCap = base+8,

petSystemExhaustion = base+9

}

 

petItems = {}

maxItems = 10 --Max items the pet can carry

--lol V

x = 0 y = function() x = x + 1 end table.foreach(storages, y)

for i = 1, maxItems do

petItems = base+x+i

end

--Pets, dependiong on the level

pets =

{

{vocations = {4, 8}, pets =

{{level = 350, name = "Juggernaut"}, {level = 255, name = "Dark Torturer"}, {level = 190, name = "Hellfire Fighter"}, {level = 120, name = "Hydra"}, {level = 80, name = "Quara Hydromancer"}, {level = 50, name = "Cyclops Smith"}, {level = 40, name = "Demon Skeleton"}, {level = 30, name = "Barbarian Skullhunter"}, {level = 20, name = "Monk"}, {level = 10, name = "Bear"}, {level = 0, name = "Wolf"}}

},

{vocations = {1, 5}, pets =

{{level = 350, name = "Ferumbras"}, {level = 260, name = "Demon"}, {level = 180, name = "Betrayed Wraith"}, {level = 120, name = "Diabolic Imp"}, {level = 80, name = "Braindeath"}, {level = 50, name = "Ice Golem"}, {level = 40, name = "Acolyte Of The Cult"}, {level = 30, name = "Barbarian Headsplitter"}, {level = 20, name = "Dark Monk"}, {level = 10, name = "Polar Bear"}, {level = 0, name = "Cave Rat"}}

},

{vocations = {2, 6}, pets =

{{level = 350, name = "Ferumbras"}, {level = 260, name = "Hand of Cursed Fate"}, {level = 175, name = "Phantasm"}, {level = 120, name = "Frost Dragon"}, {level = 80, name = "Massive Water Elemental"}, {level = 50, name = "Water Elemental"}, {level = 40, name = "Dwarf Geomancer"}, {level = 30, name = "Barbarian Brutetamer"}, {level = 20, name = "Assassin"}, {level = 10, name = "Lion"}, {level = 0, name = "Rat"}}

},

{vocations = {3, 7}, pets =

{{level = 350, name = "Orshabaal"}, {level = 260, name = "Plaguesmith"}, {level = 185, name = "Destroyer"}, {level = 120, name = "Dragon Lord"}, {level = 80, name = "Quara Hydromancer Scout"}, {level = 50, name = "Orc Leader"}, {level = 40, name = "Elf Arcanist"}, {level = 30, name = "Barbarian Bloodwalker"}, {level = 20, name = "Hunter"}, {level = 10, name = "Panda"}, {level = 0, name = "Bat"}}

}

}

--attacks of the pet. !petattack "param

--It's pretty easy how to config, I think it doesn't need an extra explanation.

attacks = {{param = "energy", theFunction = false, offensive = 1, needLevel = 20, self = 0, needMag = 10, manaSpent = 120, exhausted = 1, range = 6, combatType = COMBAT_ENERGYDAMAGE, combatAni = CONST_ME_ENERGYAREA, area = 2,

formula = {maxb = 0.4, maxa = 30, minb = 0.5, mina = 0},

},

{param = "exori", theFunction = false, offensive = 1, needLevel = 40, self = 0, needMag = 5, manaSpent = 200, exhausted = 1, range = 0, combatType = COMBAT_PHYSICALDAMAGE, combatAni = CONST_ME_HITAREA, area = 2,

formula = {maxb = 0.6, maxa = 30, minb = 1.2, mina = 0},

},

{param = "fireball", theFunction = false, offensive = 1, needLevel = 50, self = 0, needMag = 15, manaSpent = 100, exhausted = 1, range = 3, combatType = COMBAT_FIREDAMAGE, combatAni = CONST_ME_FIREAREA, area = 6,

formula = {maxb = 0.6, maxa = 30, minb = 1.2, mina = 0}

},

{param = "mini energy", theFunction = false, offensive = 1, needLevel = 0, self = 0, needMag = 0, manaSpent = 80, exhausted = 1, range = 1, combatType = COMBAT_ENERGYDAMAGE, combatAni = CONST_ME_ENERGYAREA, area = 1,

formula = {maxb = 0.13, maxa = 0, minb = 0.262, mina = 0}

},

{param = "health", theFunction = false, offensive = -1, needLevel = 10, self = 1, needMag = 0, manaSpent = 150, exhausted = 2, range = 0, combatType = COMBAT_HEALING, combatAni = CONST_ME_MAGIC_BLUE, area = 1,

formula = {maxb = 0.4, maxa = 20, minb = 0.7, mina = 0}

},

{param = "ultimate explosion", theFunction = false, offensive = 1, needLevel = 150, self = 0, needMag = 20, manaSpent = 600, exhausted = 2, range = 0, combatType = COMBAT_PARAM_DISTANCEEFFECT, combatAni = CONST_ANI_FIRE, area = 8,

formula = {maxb = 1.0, maxa = 50, minb = 1.7, mina = 0}

},

{param = "paralize", needLevel = 1, needMag = 0, manaSpent = 300, exhausted = 2,

theFunction = function (parameters)

daPet = getPlayerStorageValue(parameters.cid, storages.petUid)

if getCreatureTarget(daPet) ~= 0 then

doAddCondition(getCreatureTarget(parameters.cid), 4)

end

end

},

{param = "speed", needLevel = 10, needMag = 4, manaSpent = 60, exhausted = 2,

theFunction = function (parameters)

doAddCondition(getPlayerStorageValue(parameters.cid, storages.petUid), 11)

end

},

{param = "double fire", needLevel = 1, needMag = 0, manaSpent = 220, exhausted = 2,

theFunction = function (parameters)

 

 

local myAttack = formulaAttack(getPlayerLevel(parameters.cid), getPlayerStorageValue(parameters.cid, storages.petMag), 0.7, 0, 1.0, 0)

function doAreaCombatHealthEx(params)

local randoms = {[1] = math.random(-2, 2),

[2] = math.random(-2, 2)

}

 

local attackCreature = getPlayerStorageValue(parameters.cid, storages.petUid)

if getCreatureTarget(getPlayerStorageValue(parameters.cid, storages.petUid)) ~= 0 then

attackCreature = getCreatureTarget(getPlayerStorageValue(parameters.cid, storages.petUid))

end

local posa = getCreaturePosition(attackCreature)

doAreaCombatHealth(getPlayerStorageValue(parameters.cid, storages.petUid), COMBAT_FIREDAMAGE, {x = posa.x + randoms[1], y = posa.y + randoms[2], z = posa.z}, 1, -params.myAttack.minD, -params.myAttack.maxD, CONST_ME_FIREAREA)

doSendDistanceShoot(getCreaturePosition(getPlayerStorageValue(parameters.cid, storages.petUid)), {x = posa.x + randoms[1], y = posa.y + randoms[2], z = posa.z}, CONST_ANI_FIRE)

 

end

doAreaCombatHealthEx({cid = parameters.cid, target = getCreaturePosition(attackCreature), myAttack = myAttack})

for i = 1, 7 do

addEvent(doAreaCombatHealthEx, 200*i, {cid = parameters.cid, target = getCreaturePosition(attackCreature), myAttack = myAttack})

end

end

}

}

function setExhausted(cid)

setPlayerStorageValue(cid, storages.petSystemExhaustion, os.clock()+1)

end

function formulaAttack(magicLevel, level, maxb, maxa, minb, mina)

return {minD = (level * 2 + magicLevel * 3) * (1 + mina) + minb,

maxD = (level * 2 + magicLevel * 3) * (1 + maxb) + maxa

}

end

 

function isExhausted(cid)

if isPlayer(cid) == 1 then

local CRONOMETRO = getPlayerStorageValue(cid, storages.petSystemExhaustion)

local CRONOMETRO2 = os.clock()

local TIEMPO = os.difftime(CRONOMETRO2, CRONOMETRO)

if petSystemExhaustion - TIEMPO > petSystemExhaustion or CRONOMETRO == -1 then

setPlayerStorageValue(cid, storages.petSystemExhaustion, CRONOMETRO2+1)

return 0

end

if petSystemExhaustion - TIEMPO <= 0 then

return 0

end

end

return 1

end

 

function addMana(a)

local cid = a.cid

local petManaMax = getPlayerLevel(cid)*manaGainPerLevel

if getPlayerStorageValue(cid, storages.petMana) < petManaMax then

if petManaMax - getPlayerStorageValue(cid, storages.petMana) < 10 then

setPlayerStorageValue(cid, storages.petMana, getPlayerStorageValue(cid, storages.petMana) + petManaMax - getPlayerStorageValue(cid, storages.petMana))

else

setPlayerStorageValue(cid, storages.petMana, getPlayerStorageValue(cid, storages.petMana) + 10)

end

addEvent(addMana, manaGainTicks, {cid = cid})

else

setPlayerStorageValue(cid, storages.petIsHealing, 0)

end

end

 

GLOBAL:

TRUE = 1

FALSE = 0

 

LUA_ERROR = -1

LUA_NO_ERROR = 0

 

NORTH = 0

EAST = 1

SOUTH = 2

WEST = 3

SOUTHWEST = 4

SOUTHEAST = 5

NORTHWEST = 6

NORTHEAST = 7

 

COMBAT_FORMULA_UNDEFINED = 0

COMBAT_FORMULA_LEVELMAGIC = 1

COMBAT_FORMULA_SKILL = 2

COMBAT_FORMULA_VALUE = 3

 

CONDITION_PARAM_OWNER = 1

CONDITION_PARAM_TICKS = 2

CONDITION_PARAM_OUTFIT = 3

CONDITION_PARAM_HEALTHGAIN = 4

CONDITION_PARAM_HEALTHTICKS = 5

CONDITION_PARAM_MANAGAIN = 6

CONDITION_PARAM_MANATICKS = 7

CONDITION_PARAM_DELAYED = 8

CONDITION_PARAM_SPEED = 9

CONDITION_PARAM_LIGHT_LEVEL = 10

CONDITION_PARAM_LIGHT_COLOR = 11

CONDITION_PARAM_SOULGAIN = 12

CONDITION_PARAM_SOULTICKS = 13

CONDITION_PARAM_MINVALUE = 14

CONDITION_PARAM_MAXVALUE = 15

CONDITION_PARAM_STARTVALUE = 16

CONDITION_PARAM_TICKINTERVAL = 17

CONDITION_PARAM_FORCEUPDATE = 18

CONDITION_PARAM_SKILL_MELEE = 19

CONDITION_PARAM_SKILL_FIST = 20

CONDITION_PARAM_SKILL_CLUB = 21

CONDITION_PARAM_SKILL_SWORD = 22

CONDITION_PARAM_SKILL_AXE = 23

CONDITION_PARAM_SKILL_DISTANCE = 24

CONDITION_PARAM_SKILL_SHIELD = 25

CONDITION_PARAM_SKILL_FISHING = 26

CONDITION_PARAM_STAT_MAXHITPOINTS = 27

CONDITION_PARAM_STAT_MAXMANAPOINTS = 28

CONDITION_PARAM_STAT_SOULPOINTS = 29

CONDITION_PARAM_STAT_MAGICPOINTS = 30

CONDITION_PARAM_STAT_MAXHITPOINTSPERCENT = 31

CONDITION_PARAM_STAT_MAXMANAPOINTSPERCENT = 32

CONDITION_PARAM_STAT_SOULPOINTSPERCENT = 33

CONDITION_PARAM_STAT_MAGICPOINTSPERCENT = 34

 

 

COMBAT_PARAM_TYPE = 1

COMBAT_PARAM_EFFECT = 2

COMBAT_PARAM_DISTANCEEFFECT = 3

COMBAT_PARAM_BLOCKSHIELD = 4

COMBAT_PARAM_BLOCKARMOR = 5

COMBAT_PARAM_TARGETCASTERORTOPMOST = 6

COMBAT_PARAM_CREATEITEM = 7

COMBAT_PARAM_AGGRESSIVE = 8

COMBAT_PARAM_DISPEL = 9

 

CALLBACK_PARAM_LEVELMAGICVALUE = 1

CALLBACK_PARAM_SKILLVALUE = 2

CALLBACK_PARAM_TARGETTILE = 3

CALLBACK_PARAM_TARGETCREATURE = 4

 

COMBAT_NONE = 0

COMBAT_PHYSICALDAMAGE = 1

COMBAT_ENERGYDAMAGE = 2

COMBAT_POISONDAMAGE = 4

COMBAT_FIREDAMAGE = 8

COMBAT_UNDEFINEDDAMAGE = 16

COMBAT_LIFEDRAIN = 32

COMBAT_MANADRAIN = 64

COMBAT_HEALING = 128

COMBAT_DROWNDAMAGE = 256

COMBAT_ICEDAMAGE = 512

COMBAT_HOLYDAMAGE = 1024

COMBAT_DEATHDAMAGE = 2048

 

CONDITION_NONE = 0

CONDITION_POISON = 1

CONDITION_FIRE = 2

CONDITION_ENERGY = 4

CONDITION_LIFEDRAIN = 8

CONDITION_HASTE = 16

CONDITION_PARALYZE = 32

CONDITION_OUTFIT = 64

CONDITION_INVISIBLE = 128

CONDITION_LIGHT = 256

CONDITION_MANASHIELD = 512

CONDITION_INFIGHT = 1024

CONDITION_DRUNK = 2048

CONDITION_EXHAUSTED = 4096

CONDITION_FOOD = 8192

CONDITION_REGENERATION = 8192

CONDITION_SOUL = 16384

CONDITION_DROWN = 32768

CONDITION_MUTED = 65536

CONDITION_ATTRIBUTES = 131072

CONDITION_FREEZING = 262144

CONDITION_DAZZLED = 524288

CONDITION_CURSED = 1048576

 

PLAYERLOSS_EXPERIENCE = 0

PLAYERLOSS_MANA = 1

PLAYERLOSS_SKILL = 2

 

CONST_SLOT_HEAD = 1

CONST_SLOT_NECKLACE = 2

CONST_SLOT_BACKPACK = 3

CONST_SLOT_ARMOR = 4

CONST_SLOT_RIGHT = 5

CONST_SLOT_LEFT = 6

CONST_SLOT_LEGS = 7

CONST_SLOT_FEET = 8

CONST_SLOT_RING = 9

CONST_SLOT_AMMO = 10

 

CONST_ME_DRAWBLOOD = 0

CONST_ME_LOSEENERGY = 1

CONST_ME_POFF = 2

CONST_ME_BLOCKHIT = 3

CONST_ME_EXPLOSIONAREA = 4

CONST_ME_EXPLOSIONHIT = 5

CONST_ME_FIREAREA = 6

CONST_ME_YELLOW_RINGS = 7

CONST_ME_GREEN_RINGS = 8

CONST_ME_HITAREA = 9

CONST_ME_ENERGYAREA = 10

CONST_ME_ENERGYHIT = 11

CONST_ME_MAGIC_BLUE = 12

CONST_ME_MAGIC_RED = 13

CONST_ME_MAGIC_GREEN = 14

CONST_ME_HITBYFIRE = 15

CONST_ME_HITBYPOISON = 16

CONST_ME_MORTAREA = 17

CONST_ME_SOUND_BLUE = 18

CONST_ME_SOUND_RED = 19

CONST_ME_POISONAREA = 20

CONST_ME_SOUND_YELLOW = 21

CONST_ME_SOUND_PURPLE = 22

CONST_ME_SOUND_BLUE = 23

CONST_ME_SOUND_WHITE = 24

CONST_ME_BUBBLES = 25

CONST_ME_CRAPS = 26

CONST_ME_GIFT_WRAPS = 27

CONST_ME_FIREWORK_YELLOW = 28

CONST_ME_FIREWORK_RED = 29

CONST_ME_FIREWORK_BLUE = 30

CONST_ME_STUN = 31

CONST_ME_SLEEP = 32

CONST_ME_WATERCREATURE = 33

CONST_ME_GROUNDSHAKER = 34

CONST_ME_HEARTS = 35

CONST_ME_FIREATTACK = 36

CONST_ME_ENERGYAREA = 37

CONST_ME_SMALLCLOUDS = 38

CONST_ME_HOLYDAMAGE = 39

CONST_ME_BIGCLOUDS = 40

CONST_ME_ICEAREA = 41

CONST_ME_ICETORNADO = 42

CONST_ME_ICEATTACK = 43

CONST_ME_STONES = 44

CONST_ME_SMALLPLANTS = 45

CONST_ME_CARNIPHILA = 46

CONST_ME_PURPLEENERGY = 47

CONST_ME_YELLOWENERGY = 48

CONST_ME_HOLYAREA = 49

CONST_ME_BIGPLANTS = 50

CONST_ME_CAKE = 51

CONST_ME_GIANTICE = 52

CONST_ME_WATERSPLASH = 53

CONST_ME_PLANTATTACK = 54

CONST_ME_NONE = 255

 

CONST_ANI_SPEAR = 0

CONST_ANI_BOLT = 1

CONST_ANI_ARROW = 2

CONST_ANI_FIRE = 3

CONST_ANI_ENERGY = 4

CONST_ANI_POISONARROW = 5

CONST_ANI_BURSTARROW = 6

CONST_ANI_THROWINGSTAR = 7

CONST_ANI_THROWINGKNIFE = 8

CONST_ANI_SMALLSTONE = 9

CONST_ANI_SUDDENDEATH = 10

CONST_ANI_LARGEROCK = 11

CONST_ANI_SNOWBALL = 12

CONST_ANI_POWERBOLT = 13

CONST_ANI_POISON = 14

CONST_ANI_INFERNALBOLT = 15

CONST_ANI_HUNTINGSPEAR = 16

CONST_ANI_ENCHANTEDSPEAR = 17

CONST_ANI_ASSASSINSTAR = 18

CONST_ANI_GREENSTAR = 19

CONST_ANI_ROYALSPEAR = 20

CONST_ANI_SNIPERARROW = 21

CONST_ANI_ONYXARROW = 22

CONST_ANI_PIERCINGBOLT = 23

CONST_ANI_WHIRLWINDSWORD = 24

CONST_ANI_WHIRLWINDAXE = 25

CONST_ANI_WHIRLWINDCLUB = 26

CONST_ANI_ETHEREALSPEAR = 27

CONST_ANI_ICE = 28

CONST_ANI_EARTH = 29

CONST_ANI_HOLY = 30

CONST_ANI_DEATH = 31

CONST_ANI_FLASHARROW = 32

CONST_ANI_FLAMMINGARROW = 33

CONST_ANI_SHIVERARROW = 34

CONST_ANI_ENERGYBALL = 35

CONST_ANI_SMALLICE = 36

CONST_ANI_SMALLHOLY = 37

CONST_ANI_SMALLEARTH = 38

CONST_ANI_EARTHARROW = 39

CONST_ANI_EXPLOSION = 40

CONST_ANI_CAKE = 41

CONST_ANI_WEAPONTYPE = 254

CONST_ANI_NONE = 255

 

TALKTYPE_SAY = 1

TALKTYPE_WHISPER = 2

TALKTYPE_YELL = 3

TALKTYPE_PRIVATE = 4

TALKTYPE_CHANNEL_Y = 5

TALKTYPE_BROADCAST = 9

TALKTYPE_CHANNEL_R1 = 10

TALKTYPE_PRIVATE_RED = 11

TALKTYPE_CHANNEL_O = 12

TALKTYPE_CHANNEL_R2 = 14

TALKTYPE_ORANGE_1 = 16

TALKTYPE_ORANGE_2 = 17

 

MESSAGE_STATUS_WARNING = 18

MESSAGE_EVENT_ADVANCE = 19

MESSAGE_EVENT_DEFAULT = 20

MESSAGE_STATUS_DEFAULT = 21

MESSAGE_INFO_DESCR = 22

MESSAGE_STATUS_SMALL = 23

MESSAGE_STATUS_CONSOLE_BLUE = 24

MESSAGE_STATUS_CONSOLE_RED = 25

 

TEXTCOLOR_BLUE = 5

TEXTCOLOR_LIGHTBLUE = 35

TEXTCOLOR_LIGHTGREEN = 30

TEXTCOLOR_PURPLE = 83

TEXTCOLOR_LIGHTGREY = 129

TEXTCOLOR_DARKRED = 144

TEXTCOLOR_RED = 180

TEXTCOLOR_ORANGE = 198

TEXTCOLOR_YELLOW = 210

TEXTCOLOR_WHITE_EXP = 215

TEXTCOLOR_NONE = 255

 

RETURNVALUE_NOERROR = 1

RETURNVALUE_NOTPOSSIBLE = 2

RETURNVALUE_NOTENOUGHROOM = 3

RETURNVALUE_PLAYERISPZLOCKED = 4

RETURNVALUE_PLAYERISNOTINVITED = 5

RETURNVALUE_CANNOTTHROW = 6

RETURNVALUE_THEREISNOWAY = 7

RETURNVALUE_DESTINATIONOUTOFREACH = 8

RETURNVALUE_CREATUREBLOCK = 9

RETURNVALUE_NOTMOVEABLE = 10

RETURNVALUE_DROPTWOHANDEDITEM = 11

RETURNVALUE_BOTHHANDSNEEDTOBEFREE = 12

RETURNVALUE_CANONLYUSEONEWEAPON = 13

RETURNVALUE_NEEDEXCHANGE = 14

RETURNVALUE_CANNOTBEDRESSED = 15

RETURNVALUE_PUTTHISOBJECTINYOURHAND = 16

RETURNVALUE_PUTTHISOBJECTINBOTHHANDS = 17

RETURNVALUE_TOOFARAWAY = 18

RETURNVALUE_FIRSTGODOWNSTAIRS = 19

RETURNVALUE_FIRSTGOUPSTAIRS = 20

RETURNVALUE_CONTAINERNOTENOUGHROOM = 21

RETURNVALUE_NOTENOUGHCAPACITY = 22

RETURNVALUE_CANNOTPICKUP = 23

RETURNVALUE_THISISIMPOSSIBLE = 24

RETURNVALUE_DEPOTISFULL = 25

RETURNVALUE_CREATUREDOESNOTEXIST = 26

RETURNVALUE_CANNOTUSETHISOBJECT = 27

RETURNVALUE_PLAYERWITHTHISNAMEISNOTONLINE = 28

RETURNVALUE_NOTREQUIREDLEVELTOUSERUNE = 29

RETURNVALUE_YOUAREALREADYTRADING = 30

RETURNVALUE_THISPLAYERISALREADYTRADING = 31

RETURNVALUE_YOUMAYNOTLOGOUTDURINGAFIGHT = 32

RETURNVALUE_DIRECTPLAYERSHOOT = 33

RETURNVALUE_NOTENOUGHLEVEL = 34

RETURNVALUE_NOTENOUGHMAGICLEVEL = 35

RETURNVALUE_NOTENOUGHMANA = 36

RETURNVALUE_NOTENOUGHSOUL = 37

RETURNVALUE_YOUAREEXHAUSTED = 38

RETURNVALUE_PLAYERISNOTREACHABLE = 39

RETURNVALUE_CANONLYUSETHISRUNEONCREATURES = 40

RETURNVALUE_ACTIONNOTPERMITTEDINPROTECTIONZONE = 41

RETURNVALUE_YOUMAYNOTATTACKTHISPLAYER = 42

RETURNVALUE_YOUMAYNOTATTACKAPERSONINPROTECTIONZONE = 43

RETURNVALUE_YOUMAYNOTATTACKAPERSONWHILEINPROTECTIONZONE = 44

RETURNVALUE_YOUMAYNOTATTACKTHISCREATURE = 45

RETURNVALUE_YOUCANONLYUSEITONCREATURES = 46

RETURNVALUE_CREATUREISNOTREACHABLE = 47

RETURNVALUE_TURNSECUREMODETOATTACKUNMARKEDPLAYERS = 48

RETURNVALUE_YOUNEEDPREMIUMACCOUNT = 49

RETURNVALUE_YOUNEEDTOLEARNTHISSPELL = 50

RETURNVALUE_YOURVOCATIONCANNOTUSETHISSPELL = 51

RETURNVALUE_YOUNEEDAWEAPONTOUSETHISSPELL = 52

 

ITEM_GOLD_COIN = 2148

ITEM_PLATINUM_COIN = 2152

ITEM_CRYSTAL_COIN = 2160

 

 

function doPlayerGiveItem(cid, itemid, count, charges)

local hasCharges = (isItemRune(itemid) == TRUE or isItemFluidContainer(itemid) == TRUE)

if(hasCharges and charges == nil) then

charges = 1

end

 

while count > 0 do

local tempcount = 1

 

if(hasCharges) then

tempcount = charges

end

if(isItemStackable(itemid) == TRUE) then

tempcount = math.min (100, count)

end

 

local ret = doPlayerAddItem(cid, itemid, tempcount)

if(ret == LUA_ERROR) then

ret = doCreateItem(itemid, tempcount, getPlayerPosition(cid))

end

 

if(ret ~= LUA_ERROR) then

if(hasCharges) then

count = count-1

else

count = count-tempcount

end

else

return LUA_ERROR

end

end

return LUA_NO_ERROR

end

 

 

function doPlayerTakeItem(cid, itemid, count)

if(getPlayerItemCount(cid,itemid) >= count) then

 

while count > 0 do

local tempcount = 0

if(isItemStackable(itemid) == TRUE) then

tempcount = math.min (100, count)

else

tempcount = 1

end

local ret = doPlayerRemoveItem(cid, itemid, tempcount)

 

if(ret ~= LUA_ERROR) then

count = count-tempcount

else

return LUA_ERROR

end

end

 

if(count == 0) then

return LUA_NO_ERROR

end

 

else

return LUA_ERROR

end

end

 

 

function doPlayerAddMoney(cid, amount)

local crystals = math.floor(amount/10000)

amount = amount - crystals*10000

local platinum = math.floor(amount/100)

amount = amount - platinum*100

local gold = amount

local ret = 0

if(crystals > 0) then

ret = doPlayerGiveItem(cid, ITEM_CRYSTAL_COIN, crystals)

if(ret ~= LUA_NO_ERROR) then

return LUA_ERROR

end

end

if(platinum > 0) then

ret = doPlayerGiveItem(cid, ITEM_PLATINUM_COIN, platinum)

if(ret ~= LUA_NO_ERROR) then

return LUA_ERROR

end

end

if(gold > 0) then

ret = doPlayerGiveItem(cid, ITEM_GOLD_COIN, gold)

if(ret ~= LUA_NO_ERROR) then

return LUA_ERROR

end

end

return LUA_NO_ERROR

end

 

 

function doPlayerBuyItem(cid, itemid, count, cost, charges)

if(doPlayerRemoveMoney(cid, cost) == TRUE) then

return doPlayerGiveItem(cid, itemid, count, charges)

else

return LUA_ERROR

end

end

 

 

function doPlayerSellItem(cid, itemid, count, cost)

 

if(doPlayerTakeItem(cid, itemid, count) == LUA_NO_ERROR) then

if(doPlayerAddMoney(cid, cost) ~= LUA_NO_ERROR) then

error('Could not add money to ' .. getPlayerName(cid) .. '(' .. cost .. 'gp)')

end

return LUA_NO_ERROR

else

return LUA_ERROR

end

 

end

 

DIRECTION_NORTH = 0

DIRECTION_EAST = 1

DIRECTION_SOUTH = 2

DIRECTION_WEST = 3

DIRECTION_SOUTHWEST = 4

DIRECTION_SOUTHEAST = 5

DIRECTION_NORTHWEST = 6

DIRECTION_NORTHEAST = 7

 

DOORSTATE_OPEN = 1

DOORSTATE_CLOSED = 2

 

DoorHandler = {

doors = {

north = {

{ 1212, 1214 },

{ 1213, 1214 },

{ 1221, 1222 },

{ 1225, 1226 },

{ 1229, 1230 },

{ 1234, 1236 },

{ 1235, 1236 },

{ 1239, 1240 },

{ 1243, 1244 },

{ 1247, 1248 },

{ 1252, 1254 },

{ 1253, 1254 },

{ 1257, 1258 },

{ 1261, 1262 },

{ 3535, 3537 },

{ 3536, 3537 },

{ 3538, 3539 },

{ 3540, 3541 },

{ 3542, 3543 },

{ 5084, 5085 },

{ 5098, 5100 },

{ 5099, 5100 },

{ 5101, 5102 },

{ 5103, 5104 },

{ 5116, 5118 },

{ 5117, 5118 },

{ 5119, 5120 },

{ 5121, 5122 },

{ 5123, 5124 },

{ 5134, 5136 },

{ 5135, 5136 },

{ 5137, 5139 },

{ 5138, 5139 },

{ 5278, 5280 },

{ 5279, 5280 },

{ 5286, 5287 },

{ 5290, 5291 },

{ 5294, 5295 },

{ 5517, 5518 },

{ 5748, 5749 },

{ 6253, 6254 }

},

 

west = {

{ 1209, 1211 },

{ 1210, 1211 },

{ 1219, 1220 },

{ 1223, 1224 },

{ 1227, 1228 },

{ 1231, 1233 },

{ 1232, 1233 },

{ 1237, 1238 },

{ 1241, 1242 },

{ 1245, 1246 },

{ 1249, 1251 },

{ 1250, 1251 },

{ 1255, 1256 },

{ 1259, 1260 },

{ 3544, 3546 },

{ 3545, 3546 },

{ 3547, 3548 },

{ 3549, 3550 },

{ 3551, 3552 },

{ 5082, 5083 },

{ 5107, 5109 },

{ 5108, 5109 },

{ 5110, 5111 },

{ 5112, 5113 },

{ 5114, 5115 },

{ 5125, 5127 },

{ 5126, 5127 },

{ 5128, 5129 },

{ 5130, 5131 },

{ 5132, 5133 },

{ 5140, 5142 },

{ 5141, 5142 },

{ 5143, 5145 },

{ 5144, 5145 },

{ 5281, 5283 },

{ 5282, 5283 },

{ 5284, 5285 },

{ 5288, 5289 },

{ 5292, 5293 },

{ 5515, 5516 },

{ 5748, 5749 },

{ 6250, 6251 },

{ 6255, 6256 },

{ 6263, 6264 }

}

}

}

 

function DoorHandler:new(o)

o = o or {} -- create object if user does not provide one

setmetatable(o, self)

self.__index = self

return o

end

 

function DoorHandler:searchArray(arr, itemid)

local ret = nil

local i = 1

while true do

if(arr == nil) then

break

end

 

local tmp = arr

 

if(tmp[1] == itemid or tmp[2] == itemid) then

ret = tmp

break

end

 

i = i+1

end

 

return ret

end

 

function DoorHandler:getDoor(item)

 

local retDoor = {

dir = 0,

id = itemid,

toid = 0,

state = 0,

minlvl = 0,

keyid = 0

}

 

local ret = self:searchArray(self.doors.north, item.itemid)

if(ret == nil) then

ret = self:searchArray(self.doors.west, item.itemid)

if(ret ~= nil) then

retDoor.dir = DIRECTION_WEST

end

else

retDoor.dir = DIRECTION_NORTH

end

 

if(ret == nil) then

return nil

end

 

if(ret[1] == item.itemid) then

retDoor.state = DOORSTATE_CLOSED

retDoor.toid = ret[2]

else

retDoor.state = DOORSTATE_OPEN

retDoor.toid = ret[1]

end

 

if(item.actionid >= 1000 and item.actionid < 2000) then

retDoor.minlvl = item.actionid-1000

elseif(item.actionid > 0) then

retDoor.keyid = item.actionid

end

 

return retDoor

 

end

 

function DoorHandler:getCreatureFromPos(pos)

local ret = 0

 

local tmp = { x=pos.x, y=pos.y, z=pos.z, stackpos=253}

local creature = getThingfromPos(tmp)

 

if(creature ~= nil and creature ~= 0 and creature.itemid > 0) then

ret = creature.uid

end

 

return ret

 

end

 

function DoorHandler:movePlayerTo(cid, toPos)

 

local p = getPlayerPosition(cid)

 

local dist = math.max(math.abs(p.x-toPos.x), math.abs(p.y-toPos.y))

 

if(dist > 1 or p.z ~= toPos.z) then

local ret = doTeleportThing(cid, toPos)

return (ret == LUA_NO_ERROR)

end

 

if(dist <= 0) then

return true

end

 

local dir = -1

if(p.y < toPos.y) then --SouthXXX

if(p.x < toPos.x) then -- SouthEast

dir = DIRECTION_SOUTHEAST

elseif(p.x > toPos.x) then -- SouthWest

dir = DIRECTION_SOUTHWEST

else --South

dir = DIRECTION_SOUTH

end

elseif(p.y > toPos.y) then --NorthXXX

if(p.x < toPos.x) then -- NorthEast

dir = DIRECTION_NORTHEAST

elseif(p.x > toPos.x) then -- NorthWest

dir = DIRECTION_NORTHWEST

else --North

dir = DIRECTION_NORTH

end

else -- West/East

if(p.x < toPos.x) then -- East

dir = DIRECTION_EAST

elseif(p.x > toPos.x) then -- West

dir = DIRECTION_WEST

else --None

dir = -1

end

end

 

if(dir == -1) then

return false

end

 

local ret = doMoveCreature(cid, dir)

 

 

return (ret == RETURNVALUE_NOERROR)

 

end

 

function DoorHandler:moveCreatures(thisDoor, doorpos)

 

local lastcid = 0

local cid = self:getCreatureFromPos(doorpos)

 

while (cid ~= 0 and cid ~= lastcid) do

lastcid = cid

 

if(thisDoor.dir == DIRECTION_NORTH) then

local ret = doMoveCreature(cid, DIRECTION_SOUTH)

if(ret ~= RETURNVALUE_NOERROR) then

ret = doMoveCreature(cid, DIRECTION_NORTH)

if(ret ~= RETURNVALUE_NOERROR) then

local destPos = { x = doorpos.x, y = doorpos.y+1, z = doorpos.z }

ret = doTeleportThing(cid, destPos)

if(ret ~= LUA_NO_ERROR) then

destPos = { x = doorpos.x, y = doorpos.y-1, z = doorpos.z }

doTeleportThing(cid, destPos)

end

end

end

elseif(thisDoor.dir == DIRECTION_WEST) then

local ret = doMoveCreature(cid, DIRECTION_EAST)

if(ret ~= RETURNVALUE_NOERROR) then

ret = doMoveCreature(cid, DIRECTION_WEST)

if(ret ~= RETURNVALUE_NOERROR) then

local destPos = { x = doorpos.x+1, y = doorpos.y, z = doorpos.z }

ret = doTeleportThing(cid, destPos)

if(ret ~= LUA_NO_ERROR) then

destPos = { x = doorpos.x-1, y = doorpos.y, z = doorpos.z }

doTeleportThing(cid, destPos)

end

end

end

end

 

cid = self:getCreatureFromPos(doorpos)

end

 

end

 

function DoorHandler:useDoor(item, pos, userid, key, playerGenerated)

local thisDoor = self:getDoor(item)

 

if(thisDoor == nil) then

return 0

end

 

 

if(key ~= nil and key.actionid ~= thisDoor.keyid) then

doPlayerSendTextMessage(userid,22,"The key does not match.")

return 1

end

 

 

if(thisDoor.keyid > 0 and key == nil) then

doPlayerSendTextMessage(userid,22,"The door is locked.")

return 1

end

 

if(thisDoor.state == DOORSTATE_OPEN and thisDoor.minlvl == 0) then

self:moveCreatures(thisDoor, pos)

doTransformItem(item.uid, thisDoor.toid)

elseif(thisDoor.state == DOORSTATE_CLOSED) then

if(thisDoor.minlvl > 0) then

local lvl = getPlayerLevel(userid)

if(lvl < thisDoor.minlvl) then

doPlayerSendTextMessage(userid,22,"You need level " .. thisDoor.minlvl .. " to pass this door.")

return 1

else

doTransformItem(item.uid, thisDoor.toid)

self:movePlayerTo(userid, pos)

end

else

doTransformItem(item.uid, thisDoor.toid)

end

elseif(thisDoor.state == DOORSTATE_OPEN and thisDoor.minlvl > 0 and not playerGenerated) then

doTransformItem(item.uid, thisDoor.toid)

end

 

return 1

end

 

if(doorHandler == nil) then

doorHandler = DoorHandler:new(nil)

end

 

function isPlayerOnPos(pos)

local pos2 = pos

pos2.stackpos = 253

local thing = getThingfromPos(pos2)

if(thing ~= nil and thing.itemid > 0) then

if(isPlayer(thing.uid)) then

return true

end

end

return false

end

 

function comparePos(pos1, pos2)

return (pos1.x == pos2.x and pos1.y == pos2.y and pos1.z == pos2.z)

end

 

POR FAVOR ALGUEM ME AJUDE

[merda12 0]

Mesma action do pokémon, mas é por talkaction...

 

@EDIT ------

 

Pelo que ví já tem um topico igualzinho a este no fórum ..

Editado Abril 10, 2011 por merda12