Muvuka

local arrs = { { {0, 1, 0}, {1, 2, 1}, {0, 1, 0} }, { {0, 1, 1, 1, 0}, {1, 1, 0, 1, 1}, {1, 0, 2, 0, 1}, {1, 1, 0, 1, 1}, {0, 1, 1, 1, 0} }, { {0, 0, 1, 0, 1, 0, 0}, {0, 1, 0, 1, 0, 1, 0}, {1, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 2, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 1, 0}, {0, 0, 1, 1, 1, 0, 0} }, { {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 2, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1}, {0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0}, {0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0} } } local combat = {} for i = 1, 4 do combat[i] = Combat() combat[i]:setParameter(COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE) combat[i]:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_HOLYAREA) combat[i]:setArea(createCombatArea(arrs[i])) function onGetFormulaValues(player, level, magicLevel) local min = (level / 5) + (maglevel * 10) local max = (level / 5) + (maglevel * 14) return -min, -max end function onTargetTile(creature, position) creature:getPosition():sendDistanceEffect(position, CONST_ANI_HOLY) end combat[i]:setCallback(CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues") combat[i]:setCallback(CALLBACK_PARAM_TARGETTILE, "onTargetTile") end local function castSpell(creatureId, variant, counter) local creature = Creature(creatureId) if not creature then return end if counter == 0 then combat[1]:execute(creature, variant) elseif counter == 100 then combat[2]:execute(creature, variant) elseif counter == 250 then combat[3]:execute(creature, variant) elseif counter == 500 then combat[4]:execute(creature, variant) end if counter < 500 then addEvent(castSpell, 50, creatureId, variant, counter + 50) end end function onCastSpell(creature, variant) castSpell(creatureId, variant, 0) return true end local arr1 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 2, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} } local arr2 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 2, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} } local arr3 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} } local arr4 = { {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 2, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1}, {0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0}, {0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0} } local combat = Combat() combat:setParameter(COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE) combat:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_HOLYAREA) combat:setArea(createCombatArea(arr1)) local combat2 = Combat() combat2:setParameter(COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE) combat2:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE) combat2:setArea(createCombatArea(arr2)) local combat3 = Combat() combat3:setParameter(COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE) combat3:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE) combat3:setArea(createCombatArea(arr3)) local combat4 = Combat() combat4:setParameter(COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE) combat4:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_GROUNDSHAKER) combat4:setArea(createCombatArea(arr4)) function onGetFormulaValues(player, level, magicLevel) local min = 1 local max = 1 return -min, -max end function onGetFormulaValues2(player, level, magicLevel) local min = 2 local max = 2 return -min, -max end function onGetFormulaValues3(player, level, magicLevel) local min = 3 local max = 3 return -min, -max end function onGetFormulaValues4(player, level, magicLevel) local min = 4 local max = 4 return -min, -max end function onTargetTile(creature, position) creature:getPosition():sendDistanceEffect(position, CONST_ANI_HOLY) end function onTargetTileTwo(creature, position) creature:getPosition():sendDistanceEffect(position, CONST_ANI_HOLY) end function onTargetTileThree(creature, position) creature:getPosition():sendDistanceEffect(position, CONST_ANI_HOLY) end combat:setCallback(CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues") combat2:setCallback(CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues2") combat3:setCallback(CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues3") combat4:setCallback(CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues4") combat2:setCallback(CALLBACK_PARAM_TARGETTILE, "onTargetTile") combat3:setCallback(CALLBACK_PARAM_TARGETTILE, "onTargetTileTwo") combat4:setCallback(CALLBACK_PARAM_TARGETTILE, "onTargetTileThree") local function castSpell1(creatureId, variant) local creature = Creature(creatureId) if not creature then return end combat:execute(creature, variant) end local function castSpell2(creatureId, variant) local creature = Creature(creatureId) if not creature then return end combat2:execute(creature, variant) end local function castSpell3(creatureId, variant) local creature = Creature(creatureId) if not creature then return end combat3:execute(creature, variant) end local function castSpell4(creatureId, variant) local creature = Creature(creatureId) if not creature then return end combat4:execute(creature, variant) end function onCastSpell(creature, variant) castSpell1(creature, variant) addEvent(castSpell2, 100, creature:getId(), variant) addEvent(castSpell3, 250, creature:getId(), variant) addEvent(castSpell4, 500, creature:getId(), variant) return true end

function onSay(cid, words, param) --[Configurações de Condição]__ config = { --[[verdadeiro / Falso]] needPa = false, -- Precisa de Premium Account? [true / false] needPz = false, -- Precisa estar em Protection Zone? [true / false] battle = false, -- Precisa estar sem Batlle para Resetar? [true / false] withe = false, -- Players PK Withe pode Resetar? [true / false] red = false, -- Players PK Red pode Resetar? [true / false] tp = false, -- Teleportar para o Templo após o reset? [true / false] look = true, -- Mostrar Resets no Look do Player? [true / false] addLimite = true, -- Abilitar Limite de Resets? [true / false] setClasse = false, -- Mudar Vocação do player quando resetar? [true / false] storage = 54676, -- Storage [valor] --[Configurações do Reset]__ resetStatus = { player = getPlayerGUID(cid), -- Não Mude. lvl = 717217, -- Level Necessário para Resetar. [valor] lvlreset = 1, -- Level que retornará após o Reset. [valor] limite = 100, -- Máximo de resets que um player pode chegar. [valor] newClasse = 0, -- Id da Nova Vocação após o Reset. [valor] tempo = 0 }, } --[Funções]__ function Reseting(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doPlayerSetVocation(cid, config.resetStatus.newClasse) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function noAll(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) return TRUE end function noTeleporting(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doPlayerSetVocation(cid, config.resetStatus.newClasse) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) return TRUE end function noLook(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doPlayerSetVocation(cid, config.resetStatus.newClasse) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) return TRUE end function noClasse(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function setClasse(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doPlayerSetVocation(cid, config.resetStatus.newClasse) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function look(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function teleporting(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doRemoveCreature(cid) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function getResets(cid) local resets = getPlayerStorageValue(cid, config.storage) -- If the storage value is less than 0 or invalid, set resets to 0 if type(resets) ~= "number" or resets < 0 then resets = 0 end return resets end local resets = getResets(cid) local needLvl ="Você precisa de "..config.resetStatus.lvl-getPlayerLevel(cid).." level's para resetar." local msg ="~~[Reset: "..getResets(cid).."]~~ 'Sucesso ao Resetar! Você será deslogado em "..config.resetStatus.tempo.." Segundos." --[Condiçoes]__ local storageKey = 13545 local storageKey = 13587 if getCreatureStorage(cid, storageKey) < os.time() then doPlayerPopupFYI(cid, "Somente Player [VIP] Account.") return true elseif(config.needPz == true) and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then doPlayerSendTextMessage(cid,22,"Voce Precisa estar em Protection Zone Para Resetar.") return TRUE elseif(config.addLimite == true) and (getResets(cid) == config.resetStatus.limite) then doPlayerSendTextMessage(cid, 22, "Voce ja atingiu o Limite de Resets.") return TRUE elseif(config.withe == false) and (getCreatureSkullType(cid) == 3) then doPlayerSendTextMessage(cid,22,"Voce ta PK White, por isso não pode resetar.") return TRUE elseif(config.red == false) and (getCreatureSkullType(cid) == 4) then doPlayerSendTextMessage(cid,22,"Voce ta PK Red, por isso não pode resetar.") return TRUE elseif(config.needPa == true) and not isPremium(cid) then doPlayerSendTextMessage(cid,22,"Voce Precisa ser Premium Account para Resetar.") return TRUE elseif(config.battle == true) and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then doPlayerSendTextMessage(cid,22,"Voce Precisa estar sem Battle para Resetar.") return TRUE elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == true) and (config.setClasse == true) then addEvent(Reseting, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == false) and (config.setClasse == false) then addEvent(noAll, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == true) and (config.setClasse == true) then addEvent(noTeleporting, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == false) and (config.setClasse == true) then addEvent(noLook, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == true) and (config.setClasse == false) then addEvent(noClasse, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == false) and (config.setClasse == true) then addEvent(setClasse, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == true) and (config.setClasse == false) then addEvent(look, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == false) and (config.setClasse == false) then addEvent(teleporting, config.resetStatus.tempo* 1000, cid) elseif doPlayerSendCancel(cid, needLvl) then doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return TRUE end return TRUE end --[By: Linnux]__ COMO COLOCO CONDIÇÃO DE VIP INFINITE NO CODIGO ACIMA function onSay(cid, words, param) if words == "!buyacc" then -- Check if the player already has permanent VIP access if getPlayerStorageValue(cid, 13587) == 2^31 - 1 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You already have permanent VIP access !vipacc.") return true end -- Check if the player already has temporary VIP if getPlayerStorageValue(cid, 13587) - os.time() > 0 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You already have VIP. Please wait for your time to expire.") return true end local itemid = 6527 local count = 100 if doPlayerRemoveItem(cid, itemid, count) then -- Set permanent VIP access local permanentAccess = 2^31 - 1 setPlayerStorageValue(cid, 13587, permanentAccess) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have received permanent VIP access on your character.") else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You need [" .. count .. " " .. getItemNameById(itemid) .. "] to get VIP.") end elseif words == "!vipacc" then local timenow = os.time() local quantity = math.floor((getPlayerStorageValue(cid, 13587) - timenow) / (24 * 60 * 60)) if quantity > 0 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have permanent VIP access.") else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You do not have permanent VIP access.") end elseif words == "/checkvip" then if getPlayerAccess(cid) == 5 then if not param then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid parameter specified.") else local player = getPlayerByName(param) if not isPlayer(player) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player " .. param .. " not found.") else local timenow = os.time() local quantity = math.floor((getPlayerStorageValue(player, 13587) - timenow) / (24 * 60 * 60)) if quantity > 0 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Player " .. param .. " has " .. quantity .. " days of VIP.") else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Player " .. param .. " does not have any VIP days.") end end end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You do not have access to this command.") end elseif words == "/addvip" then if getPlayerAccess(cid) == 5 then local t = string.explode(param, ",") if not t[2] then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid parameter specified.") else local playerName = t[1] local player = getPlayerByName(playerName) local days = tonumber(t[2]) if not player then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player with this name doesn't exist or is offline.") return true end local daysvalue = days * 3600 * 24 local storageplayer = getPlayerStorageValue(player, 13587) local timenow = os.time() local time = storageplayer <= 0 and (timenow + daysvalue) or (storageplayer + daysvalue) setPlayerStorageValue(player, 13587, time) local quantity = math.floor((getPlayerStorageValue(player, 13587) - timenow) / (3600 * 24)) doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "You have " .. quantity .. " days of VIP remaining.") end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You do not have access to this command.") end elseif words == "/delvip" then if getPlayerAccess(cid) == 5 then local dec = MESSAGE_INFO_DESCR if param == "" then return true, doPlayerSendTextMessage(cid, 18, "Command parameter required.") end local t = string.explode(param, ",") local C = {} C.pos = getPlayerPosition(cid) C.uid = getCreatureByName(t[1]) C.time = ((tonumber(t[2]) == nil) and 1 or tonumber(t[2])) * 3600 * 24 -- VIP time per day. C.days = (tonumber(t[2]) == nil) and 1 or tonumber(t[2]) -- VIP days. if getPlayerStorageValue(C.uid, 13587) < C.time then doPlayerSendTextMessage(cid, dec, 'The player ' .. t[1] .. ' does not have ' .. C.days .. ' days of VIP.') else doPlayerSendTextMessage(cid, dec, 'You have removed ' .. C.days .. ' days of VIP from player ' .. t[1] .. '.') setPlayerStorageValue(C.uid, 13587, getPlayerStorageValue(C.uid, 13587) - C.time) end doSendMagicEffect(C.pos, math.random(28, 30)) else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You do not have access to this command.") end end return true end function onSay(cid, words, param) if words == "!buyvip" then -- Check if the player already has permanent VIP if getPlayerStorageValue(cid, 13587) == 2^31 - 1 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You already have permanent VIP and cannot buy temporary VIP !vipacc.") return true end -- Check if the player has already used the command if getPlayerStorageValue(cid, 13587) == 1 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have already used this command and cannot use it again.") return true end local itemid = 2159 local count = 50000 if doPlayerRemoveItem(cid, itemid, count) then local days = 372 local daysvalue = days * 24 * 60 * 60 local storageplayer = getPlayerStorageValue(cid, 13545) local timenow = os.time() local time if storageplayer - timenow <= 0 then time = timenow + daysvalue else time = storageplayer + daysvalue end -- Update VIP status without modifying the name doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Added " .. days .. " days of VIP to your character.") setPlayerStorageValue(cid, 13545, time) local quantity = math.floor((getPlayerStorageValue(cid, 13545) - timenow) / (24 * 60 * 60)) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have " .. (quantity < 0 and 0 or quantity) .. " days of VIP remaining.") -- Mark that the player used the command setPlayerStorageValue(cid, 13587, 1) else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You need [" .. count .. " " .. getItemNameById(itemid) .. "] to add VIP.") end elseif words == "!vipdays" then local timenow = os.time() local vipEndTime = getPlayerStorageValue(cid, 13545) local vipDays = 0 if vipEndTime > 0 then -- Calculate the remaining VIP days vipDays = math.ceil((vipEndTime - timenow) / (24 * 60 * 60)) end if vipDays > 0 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have " .. vipDays .. " days of VIP on your character.") else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You do not have VIP days.") end elseif words == "/checkvip" then if getPlayerAccess(cid) == 5 then if not param or param == "" then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid parameter.") else local player = getPlayerByName(param) if not isPlayer(player) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player " .. param .. " not found.") else local timenow = os.time() local quantity = math.floor((getPlayerStorageValue(player, 13545) - timenow) / (24 * 60 * 60)) if quantity > 0 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Player " .. param .. " has " .. quantity .. " days of VIP.") else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Player " .. param .. " does not have VIP days.") end end end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You do not have access to this command.") end elseif words == "/addvip" then if getPlayerAccess(cid) == 5 then local t = string.explode(param, ",") if not t[2] then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid parameter.") else local playerName = t[1] local player = getPlayerByName(playerName) if not isPlayer(player) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player " .. playerName .. " not found.") else local days = tonumber(t[2]) local daysvalue = days * 24 * 60 * 60 local storageplayer = getPlayerStorageValue(player, 13545) local timenow = os.time() local time = storageplayer <= 0 and (timenow + daysvalue) or (storageplayer + daysvalue) -- Update VIP status without modifying the name doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "Added " .. days .. " days of VIP to your character.") setPlayerStorageValue(player, 13545, time) local quantity = math.floor((getPlayerStorageValue(player, 13545) - timenow) / (24 * 60 * 60)) doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "You have " .. quantity .. " days of VIP remaining.") end end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You do not have access to this command.") end elseif words == "/delvip" then if getPlayerAccess(cid) == 5 then local dec = MESSAGE_INFO_DESCR if param == "" then return TRUE, doPlayerSendTextMessage(cid, 18, "Command parameter is required.") end local t = string.explode(param, ",") local player = getPlayerByName(t[1]) if not isPlayer(player) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player " .. t[1] .. " not found.") else local days = tonumber(t[2]) local timeToRemove = days * 24 * 60 * 60 local currentTime = getPlayerStorageValue(player, 13545) if currentTime < timeToRemove then doPlayerSendTextMessage(cid, dec, "Player " .. t[1] .. " does not have " .. days .. " days of VIP.") else doPlayerSendTextMessage(cid, dec, "Removed " .. days .. " days of VIP from player " .. t[1] .. ".") setPlayerStorageValue(player, 13545, currentTime - timeToRemove) end end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You do not have access to this command.") end end return true end

ok me ajuda exporta minimap no tópico la arquivo anexado dos mapa no formato .otbm

TFS 0.3.6 - 8.60 COMO EU FAÇO PRA DEIXA MINIMAP FULL DO CLIENT CLASSICO DO TIBIA 8.60 C:\Users\Samuel\AppData\Roaming\Tibia\Automap Exemplo: 00000003.map MINIMAP [FULL] OTBM.rar

eu quero quando mata player ganha ponto se player membro ou dono de uma guild 1 ponto ao matar player seja pk red black ou sem justificativa ou com justificativa

[13/02/2025 15:26:38] [Error - CreatureScript Interface] [13/02/2025 15:26:38] In a timer event called from: [13/02/2025 15:26:38] buffer:onKill [13/02/2025 15:26:38] Description: [13/02/2025 15:26:38] not enough memory

https://forums.#####/index.php?/forums/topic/169735-revscript-sistema-guild-level/

TFS 0.3.6 8.60 - Buy & Sell Talkaction System Porem quando eu falo buy pra compra ele nao compra pelo valor item no market exemplo 1000000000 ele compra item sem ser valor do item código fui eu que desenvolvi deve servi 0.4 também BUY -- Inicializar as tabelas globais para compras e vendas ativas activeBuys = activeBuys or {} activeSells = activeSells or {} -- Configuração local config = { validCurrencies = {9971, 2160, 2148, 2152, 2157, 2159}, -- Moedas válidas maxPrice = 1000000000, -- Preço máximo permitido } -- Função para verificar se uma moeda é válida local function isValidCurrency(currencyId) for _, validId in ipairs(config.validCurrencies) do if validId == currencyId then return true end end return false end -- Função para listar itens à venda function listItems(cid) if #activeSells == 0 then doPlayerSendCancel(cid, "No items are currently being sold.") return true end local message = "Items available for sale:\n" for i, sell in ipairs(activeSells) do message = message .. i .. ". " .. sell.itemName .. " (" .. sell.quantity .. "x) - Price: " .. sell.price .. " gold coins - Seller: " .. sell.seller .. "\n" end doPlayerPopupFYI(cid, message) return true end -- Função para comprar o item function buyItem(cid, itemName, quantity, price, currencyId, sellerName) -- Verificar se o item está à venda for i, sell in ipairs(activeSells) do if sell.itemName == itemName and sell.seller == sellerName then -- Verificar se o jogador tem moeda suficiente if getPlayerItemCount(cid, currencyId) < price then doPlayerSendCancel(cid, "You don't have enough currency to buy this item.") return true end -- Verificar se há quantidade suficiente do item if sell.quantity < quantity then doPlayerSendCancel(cid, "Not enough items in stock.") return true end -- Realizar a compra -- Remover o dinheiro do comprador doPlayerRemoveItem(cid, currencyId, price) -- Adicionar o item ao comprador doPlayerAddItem(cid, getItemIdByName(itemName), quantity) -- Atualizar a quantidade do item à venda activeSells[i].quantity = activeSells[i].quantity - quantity -- Informar ao jogador sobre a compra doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have successfully bought " .. quantity .. "x " .. itemName .. " from " .. sellerName .. " for " .. price .. " currency.") -- Caso o item tenha acabado, remover a venda if activeSells[i].quantity <= 0 then table.remove(activeSells, i) end return true end end doPlayerSendCancel(cid, "Item not found in the market.") return true end -- Função para vender o item function sellItem(cid, itemName, quantity, price, currencyId) -- Verificar se o jogador tem o item suficiente local itemId = getItemIdByName(itemName) if itemId == 0 or getPlayerItemCount(cid, itemId) < quantity then doPlayerSendCancel(cid, "You don't have enough of the item '" .. itemName .. "' to sell.") return true end -- Remover os itens do inventário do vendedor doPlayerRemoveItem(cid, itemId, quantity) -- Registrar a venda table.insert(activeSells, { itemName = itemName, quantity = quantity, price = price, currencyId = currencyId, seller = getPlayerName(cid), }) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Your item '" .. itemName .. "' has been listed for sale.") return true end -- Função principal para lidar com os comandos function onSay(cid, words, param) if words == "!sell" then if param == "" then doPlayerSendCancel(cid, "Use: !sell itemName, quantity, price, currencyId") return true end local t = string.explode(param, ",") if #t ~= 4 then doPlayerSendCancel(cid, "Invalid parameters. Use: !sell itemName, quantity, price, currencyId") return true end local itemName = t[1]:trim() local quantity = tonumber(t[2]) local price = tonumber(t[3]) local currencyId = tonumber(t[4]) -- Chama a função para vender o item return sellItem(cid, itemName, quantity, price, currencyId) elseif words == "!buy" then if param == "" then doPlayerSendCancel(cid, "Use: !buy itemName, quantity, price, ID's 9971 - 2160 - 2148 - 2152 - 2157 - 2159, sellerName") return true end -- Separar os parâmetros fornecidos local t = string.explode(param, ",") if #t ~= 5 then doPlayerSendCancel(cid, "Invalid parameters. Use: !buy itemName, quantity, price, ID's 9971 - 2160 - 2148 - 2152 -2157 - 2159, sellerName") return true end local itemName = t[1]:trim() local quantity = tonumber(t[2]) local price = tonumber(t[3]) local currencyId = tonumber(t[4]) local sellerName = t[5]:trim() -- Chama a função para comprar o item return buyItem(cid, itemName, quantity, price, currencyId, sellerName) elseif words == "!list" then -- Exibe os itens à venda return listItems(cid) end return false end SELL -- Inicializar a tabela global para vendas ativas activeBuys = activeBuys or {} activeSells = activeSells or {} -- Configuração local config = { validCurrencies = {9971, 2160, 2148, 2157, 2152, 2159}, -- Moedas válidas maxPrice = 1000000000, -- Preço máximo permitido } -- Verificar se uma moeda é válida local function isValidCurrency(currencyId) for _, validId in ipairs(config.validCurrencies) do if validId == currencyId then return true end end return false end function onSay(cid, words, param) if param == "" then doPlayerSendCancel(cid, "Use: !sell itemName, quantity, price, currencyId") return true end local t = string.explode(param, ",") if #t ~= 4 then doPlayerSendCancel(cid, "Invalid parameters. Use: !sell itemName, quantity, price, currencyId") return true end local itemName = t[1]:trim() local quantity = tonumber(t[2]) local price = tonumber(t[3]) local currencyId = tonumber(t[4]) if not quantity or quantity <= 0 then doPlayerSendCancel(cid, "Invalid quantity.") return true end if not price or price <= 0 or price > config.maxPrice then doPlayerSendCancel(cid, "Invalid price. Maximum allowed: " .. config.maxPrice) return true end if not isValidCurrency(currencyId) then doPlayerSendCancel(cid, "Invalid currency. Valid currencies: " .. table.concat(config.validCurrencies, ", ")) return true end -- Verificar se o jogador tem o item suficiente no inventário local itemId = getItemIdByName(itemName) if itemId == 0 or getPlayerItemCount(cid, itemId) < quantity then doPlayerSendCancel(cid, "You don't have enough of the item '" .. itemName .. "' to sell.") return true end -- Remover os itens do inventário do vendedor doPlayerRemoveItem(cid, itemId, quantity) -- Registrar a venda table.insert(activeSells, { itemName = itemName, quantity = quantity, price = price, currencyId = currencyId, seller = getPlayerName(cid), }) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Your item '" .. itemName .. "' has been listed for sale.") return true end checkselllist -- Inicializar activeSells como tabela, se ainda não foi activeBuys = activeBuys or {} activeSells = activeSells or {} -- Função onSay para mostrar os itens à venda function onSay(cid, words, param) if #activeSells == 0 then doPlayerSendCancel(cid, "No items are currently being sold.") return true end local message = "Items available for sale:\n" for i, sell in ipairs(activeSells) do -- Substituindo a exibição de gold coins pelo ID da moeda local currencyName = getCurrencyName(sell.currencyId) message = message .. i .. ". " .. sell.itemName .. " (" .. sell.quantity .. "x) - Price: " .. sell.price .. " " .. currencyName .. " - Seller: " .. sell.seller .. "\n" end doPlayerPopupFYI(cid, message) return true end -- Função para obter o nome da moeda baseado no ID function getCurrencyName(currencyId) local currencyNames = { [9971] = "- 9971 - [VIP] Coin's", [2160] = "- 2160 - Crystal Coin's", [2148] = "- 2148 - Gold Coin's", [2152] = "- 2152 - Platinum Coins", [2159] = "- 2159 - Donate Coin's", [2157] = "- 2157 - KK Coin's" } -- Retorna o nome da moeda correspondente ao ID ou "Unknown Currency" se não for encontrado return currencyNames[currencyId] or "Unknown Currency" end

BUY .LUA LUA: --[[ Buy & Sell Talkaction System Made by Yohan(me). ]]-- function onSay(cid, words, param) -- script by Yohan local config = { levelNeeded = 8, muteTime = 120, -- time in Seconds that the player will be without broadcasting. storage = 7896 -- storage that controls the broadcasting of the player. } if param == '' then doPlayerPopupFYI(cid, "Say '!buy Item Name, Price in GP'") end t = string.explode(param, ",") if not(t[1]) or not(t[2]) then doPlayerSendCancel(cid, "Command requires more than one parameter.") else if getPlayerLevel(cid) >= config.levelNeeded then if getPlayerStorageValue(cid,config.storage) == -1 then setPlayerStorageValue(cid, config.storage, os.time()) elseif getPlayerStorageValue(cid,config.storage) > os.time() then doPlayerSendCancel(cid, "You can only place one offer in " .. config.muteTime .. " seconds.") elseif getPlayerStorageValue(cid,config.storage) <= os.time() then doBroadcastMessage("Player " .. getPlayerName(cid) .. " is buying " .. t[1] .. " for " .. t[2] .. " gold coins.") setPlayerStorageValue(cid,config.storage, (os.time() + config.muteTime)) end else doPlayerSendCancel(cid, "Only players with level " .. config.levelNeeded .. "+ can broadcast one offer.") end end return true end SELL .LUA LUA: --[[ Buy & Sell Talkaction System Made by Yohan(me). ]]-- function onSay(cid, words, param) -- script by Yohan local config = { levelNeeded = 8, muteTime = 120, -- time in Seconds that the player will be without broadcasting. storage = 7896 -- storage that controls the broadcasting of the player. } if param == '' then doPlayerPopupFYI(cid, "Say '!sell Item Name, Price in GP'") end t = string.explode(param, ",") if not(t[1]) or not(t[2]) then doPlayerSendCancel(cid, "Command requires more than one parameter.") else if getPlayerLevel(cid) >= config.levelNeeded then if getPlayerStorageValue(cid,config.storage) == -1 then setPlayerStorageValue(cid, config.storage, os.time()) elseif getPlayerStorageValue(cid,config.storage) > os.time() then doPlayerSendCancel(cid, "You can only place one offer in " .. config.muteTime .. " seconds.") elseif getPlayerStorageValue(cid,config.storage) <= os.time() then doBroadcastMessage("Player " .. getPlayerName(cid) .. " is selling " .. t[1] .. " for " .. t[2] .. " gold coins.") setPlayerStorageValue(cid,config.storage, (os.time() + config.muteTime)) end else doPlayerSendCancel(cid, "Only players with level " .. config.levelNeeded .. "+ can broadcast one offer.") end end return true end validCurrencies = {9971, 2160, 2148, 2152, 2159}, maxPrice = 1000000000 EXEMPLO SE UM PLAYER VENDE UM ITEM !sell plate armor, 10 preço que for deferido NO COMANDO SELL APARECE A MEMSAGEM EM BROADCAST QUE PLAYER TA VENDENDO O ITEM AI ELE FALA !buy plate armor,10 qualquer item que player estive no set iventario bp

local UPGRADE_ITEM_ID = 5902 -- The upgrade item, in this case, the "scary blue eye" local LIFE_LEECH_INCREMENT = 1 -- Percentage to be added to Life Leech local MANA_LEECH_INCREMENT = 1 -- Percentage to be added to Mana Leech local MAX_LEECH_PERCENT = 100 -- Maximum limit for Life Leech and Mana Leech local FIXED_DAMAGE = 100000000000 -- Fixed damage to be dealt function onUse(cid, item, fromPosition, itemEx, toPosition) -- Check if the player is valid if not isPlayer(cid) then return false end -- Get the weapon the player is holding (left or right hand) local weapon = getPlayerSlotItem(cid, CONST_SLOT_LEFT) if weapon.itemid == 0 then weapon = getPlayerSlotItem(cid, CONST_SLOT_RIGHT) end -- Check if the player is holding a weapon if weapon.itemid == 0 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_SMALL, "You need to be holding a weapon to upgrade it.") return false end -- Get the current Life Leech and Mana Leech values (if they exist) local currentLifeLeech = tonumber(getItemAttribute(weapon.uid, "lifeLeech")) or 0 local currentManaLeech = tonumber(getItemAttribute(weapon.uid, "manaLeech")) or 0 -- Accumulate new leech values, limited by the maximum local newLifeLeech = math.min(currentLifeLeech + LIFE_LEECH_INCREMENT, MAX_LEECH_PERCENT) local newManaLeech = math.min(currentManaLeech + MANA_LEECH_INCREMENT, MAX_LEECH_PERCENT) -- Apply the new Life Leech and Mana Leech values to the weapon doItemSetAttribute(weapon.uid, "lifeLeech", newLifeLeech) doItemSetAttribute(weapon.uid, "manaLeech", newManaLeech) -- Modify the weapon's description to show the new leech values local description = getItemAttribute(weapon.uid, "description") or "" description = "This weapon now has " .. newLifeLeech .. "% Life Leech and " .. newManaLeech .. "% Mana Leech. The maximum is 100%." doItemSetAttribute(weapon.uid, "description", description) -- Send a message to the player informing about the upgrade doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Your weapon has been upgraded! It now has " .. newLifeLeech .. "% Life Leech and " .. newManaLeech .. "% Mana Leech. The maximum is 100%.") -- Display animated text "+Leech!!!" in green (color 35) local position = getCreaturePosition(cid) doSendAnimatedText(position, "+Leech!!!", 35) -- The line that removed the upgrade item has been removed to allow infinite use -- doRemoveItem(item.uid, 1) -- REMOVED -- Combat logic: damage with the weapon local target = getCreatureTarget(cid) if isCreature(target) then -- Check if the weapon has reached the limit for Life Leech and Mana Leech if newLifeLeech == MAX_LEECH_PERCENT and newManaLeech == MAX_LEECH_PERCENT then -- Fixed damage from the weapon local damage = FIXED_DAMAGE -- Apply the damage to the target doTargetCombatHealth(cid, target, COMBAT_UNDEFINEDDAMAGE, -damage, -damage, CONST_ME_EXPLOSIONHIT) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You dealt " .. damage .. " damage with your weapon!") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_SMALL, "Your weapon has not reached the limit to deal damage.") end else doPlayerSendTextMessage(cid, MESSAGE_STATUS_SMALL, "You do not have a valid target to attack.") end return true end

@El Rusher eu to trabalhando nesse aqui aquele nao da erro

TFS 0.3.6 8.60 EU FIZ ESSE CODIGO POREM ELE SÓ ATACA CRITURA SE USA ITEM 5902 ESSE ITEM É FEITO PRA APRIMORA O ITEM EU QUERO QUE NAO DEPENDA 5902 PRA TRANSFERI DANO A CRITURA MAIS SIM O APRIMORAMENTO DO ITEM MAX_LEEECH_PERCENT local UPGRADE_ITEM_ID = 5902 -- O item de aprimoramento, neste caso, o "olho azul assustador" local LIFE_LEECH_INCREMENT = 10 -- Porcentagem a ser adicionada ao Life Leech a cada uso local MANA_LEECH_INCREMENT = 10 -- Porcentagem a ser adicionada ao Mana Leech a cada uso local MAX_LEECH_PERCENT = 100 -- Limite máximo para Life Leech e Mana Leech local BASE_DAMAGE = 100000000000 -- Dano base da arma local STORAGE_KEY = 10000 -- Chave de armazenamento para o nível de aprimoramento function onUse(cid, item, fromPosition, itemEx, toPosition) -- Verifica se o jogador é válido if not isPlayer(cid) then return false end -- Obtém a arma que o jogador está segurando (mão esquerda ou direita) local weapon = getPlayerSlotItem(cid, CONST_SLOT_LEFT) if weapon.itemid == 0 then weapon = getPlayerSlotItem(cid, CONST_SLOT_RIGHT) end -- Verifica se o jogador está segurando uma arma if weapon.itemid == 0 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_SMALL, "Você precisa estar segurando uma arma para aprimorá-la.") return false end -- Obtém os valores atuais de Life Leech e Mana Leech (se existirem) local currentLifeLeech = tonumber(getItemAttribute(weapon.uid, "lifeLeech")) or 0 local currentManaLeech = tonumber(getItemAttribute(weapon.uid, "manaLeech")) or 0 -- Acumula novos valores de leech, limitados pelo máximo local newLifeLeech = math.min(currentLifeLeech + LIFE_LEECH_INCREMENT, MAX_LEECH_PERCENT) local newManaLeech = math.min(currentManaLeech + MANA_LEECH_INCREMENT, MAX_LEECH_PERCENT) -- Aplica os novos valores de Life Leech e Mana Leech à arma doItemSetAttribute(weapon.uid, "lifeLeech", newLifeLeech) doItemSetAttribute(weapon.uid, "manaLeech", newManaLeech) -- Modifica a descrição da arma para exibir os novos valores de leech local description = getItemAttribute(weapon.uid, "description") or "" description = "Esta arma agora tem " .. newLifeLeech .. "% de Life Leech e " .. newManaLeech .. "% de Mana Leech. O máximo é 100%." doItemSetAttribute(weapon.uid, "description", description) -- Envia uma mensagem para o jogador informando sobre o aprimoramento doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Sua arma foi aprimorada! Agora tem " .. newLifeLeech .. "% de Life Leech e " .. newManaLeech .. "% de Mana Leech. O máximo é 100%.") -- Exibe um texto animado "+Leech!!!" em verde (cor 35) local position = getCreaturePosition(cid) doSendAnimatedText(position, "+Leech!!!", 35) -- Remove o item de aprimoramento (olho azul assustador) doRemoveItem(item.uid, 1) -- Armazena o novo nível de aprimoramento da arma setPlayerStorageValue(cid, STORAGE_KEY, newLifeLeech) -- Obtém o alvo atual do jogador local target = getCreatureTarget(cid) -- Verifica se há um alvo válido if isCreature(target) then -- Calcula o dano proporcional ao nível de aprimoramento da arma local damage = (newLifeLeech / 100) * BASE_DAMAGE -- Dano proporcional ao nível de leech doTargetCombatHealth(cid, target, COMBAT_UNDEFINEDDAMAGE, -damage, -damage, CONST_ME_HITAREA) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você realizou um ataque poderoso com sua arma aprimorada! Causou " .. damage .. " de dano.") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_SMALL, "Você não tem um alvo válido para atacar.") end return true end

local UPGRADE_ITEM_ID = 5902 -- The upgrade item, e.g., "spooky blue eye" local LIFE_LEECH_INCREMENT = 1 -- Percentage to be added to Life Leech local MANA_LEECH_INCREMENT = 1 -- Percentage to be added to Mana Leech local MAX_LEECH_PERCENT = 100 -- Maximum limit for Life Leech and Mana Leech local FIXED_DAMAGE = 100000000000 -- Fixed damage that will be dealt to both the creature and the player function onUse(cid, item, fromPosition, itemEx, toPosition) -- Check if the player is valid if not isPlayer(cid) then return false end -- Get the weapon the player is holding (left or right hand) local weapon = getPlayerSlotItem(cid, CONST_SLOT_LEFT) if weapon.itemid == 0 then weapon = getPlayerSlotItem(cid, CONST_SLOT_RIGHT) end -- Check if the player is holding a weapon if weapon.itemid == 0 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_SMALL, "You need to be holding a weapon to upgrade it.") return false end -- Get current values of Life Leech and Mana Leech (if any) local currentLifeLeech = tonumber(getItemAttribute(weapon.uid, "lifeLeech")) or 0 local currentManaLeech = tonumber(getItemAttribute(weapon.uid, "manaLeech")) or 0 -- Accumulate new leech values local newLifeLeech = math.min(currentLifeLeech + LIFE_LEECH_INCREMENT, MAX_LEECH_PERCENT) local newManaLeech = math.min(currentManaLeech + MANA_LEECH_INCREMENT, MAX_LEECH_PERCENT) -- Apply new Life Leech and Mana Leech values to the weapon doItemSetAttribute(weapon.uid, "lifeLeech", newLifeLeech) doItemSetAttribute(weapon.uid, "manaLeech", newManaLeech) -- Modify the weapon description to show the new leech values local description = getItemAttribute(weapon.uid, "description") or "" description = "This weapon now has " .. newLifeLeech .. "% Life Leech and " .. newManaLeech .. "% Mana Leech." doItemSetAttribute(weapon.uid, "description", description) -- Messages and effects doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Your weapon has been upgraded! It now has " .. newLifeLeech .. "% Life Leech and " .. newManaLeech .. "% Mana Leech.") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_FIREATTACK) -- Show animated text local position = getCreaturePosition(cid) -- Define the position for animated text doSendAnimatedText(position, "+Leech", 35) -- Display animated text with color 35 (green) -- Remove the upgrade item doRemoveItem(item.uid, 1) -- Combat logic: use all mana local maxMana = getCreatureMaxMana(cid) -- Check if the player has enough mana if getCreatureMana(cid) >= maxMana then local target = getCreatureTarget(cid) -- Get the target of the creature if isCreature(target) then -- Deal fixed damage to the target creature doTargetCombatHealth(cid, target, COMBAT_UNDEFINEDDAMAGE, -FIXED_DAMAGE, -FIXED_DAMAGE, CONST_ME_SOUND_WHITE) -- Reduce the target's mana by the fixed damage amount (with a cap) local targetMana = getCreatureMana(target) local newTargetMana = math.max(0, targetMana - FIXED_DAMAGE) -- Ensure mana doesn't go below 0 doCreatureAddMana(target, -newTargetMana) -- Reduce the player's mana doCreatureAddMana(cid, -maxMana) -- Send a message about the attack doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You used all your mana to attack! Damage dealt: " .. FIXED_DAMAGE .. " to your target, and drained " .. newTargetMana .. " mana from the target.") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_SMALL, "You do not have a valid target to attack.") end else -- Message if there is not enough mana doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You do not have enough mana to perform the attack!") end return true end

call over flow aparece no console