athenso
Average Coder
- Joined
- May 31, 2011
- Messages
- 155
- Solutions
- 3
- Reaction score
- 23
I am currently using the extra loot creature script that adds extra loot to the monster drops:
I am also using Mocks Slot upgrade to add + to items, the problem is this: If you loot an item with a rare effect (or any effect outside of normal) and you go to + the item, it turns it back to a regular item and it looses the rare bonus. I was wondering is there a way to perform a check within the action script to keep the bonus of the rare+ item?
Action script:
I have played around with it for a while, but my knowledge with tables is pretty bad so this is way above my knowledge. Thanks
Code:
local rare_popup = true
local rare_text = "*rare*"
local rare_effect = true
local rare_effect_id = CONST_ME_MAGIC_GREEN
local tiers = {
[1] = {
prefix = 'rare',
showattr = true, -- attr prefix will be shown instead
extra = {0, 0},
chance = {
[1] = 10000, -- chance for basic stat
[2] = 5000 -- chance for second stat
}
},
[2] = {
prefix = 'epic',
extra = {7, 20}, -- additional percent bonus
chance = {
[1] = 3333,
[2] = 25000
}
},
[3] = {
prefix = 'legendary',
extra = {20, 35},
chance = {
[1] = 1000,
[2] = 100000 -- 2 bonuses always
}
},
}
--! attributes
local attr = {
atk = {
name = 'atk',
prefix = 'sharpened',
percent = {7, 25},
},
def = {
name = 'def',
prefix = 'fortified',
percent = {7, 25},
},
extradef = {
name = 'extra def',
prefix = 'balanced',
percent = {7, 25},
},
arm = {
name = 'arm',
prefix = 'flawless',
percent = {7, 20},
},
hitchance = {
name = 'accuracy',
prefix = 'accurate',
percent = {10, 25},
},
shootrange = {
name = 'range',
prefix = 'powerful',
percent = {17, 34},
},
charges = {
name = 'charges',
prefix = 'charged',
percent = {30, 45},
},
duration = {
name = 'time',
prefix = 'unique',
percent = {35, 50},
},
--[[ not available in 1.1
attackSpeed = {},
extraAttack = {},
]]
}
local stats = {
[1] = {ITEM_ATTRIBUTE_ATTACK, attr.atk},
[2] = {ITEM_ATTRIBUTE_DEFENSE, attr.def},
[3] = {ITEM_ATTRIBUTE_EXTRADEFENSE, attr.extradef},
[4] = {ITEM_ATTRIBUTE_ARMOR, attr.arm},
[5] = {ITEM_ATTRIBUTE_HITCHANCE, attr.hitchance},
[6] = {ITEM_ATTRIBUTE_SHOOTRANGE, attr.shootrange},
[7] = {ITEM_ATTRIBUTE_CHARGES, attr.charges},
[8] = {ITEM_ATTRIBUTE_DURATION, attr.duration},
-- not available in 1.1
-- [9] = {ITEM_ATTRIBUTE_ATTACKSPEED, attr.attackSpeed},
-- [10] = {ITEM_ATTRIBUTE_EXTRAATTACK, attr.extraAttack},
}
function stat_getItemDuration(item)
local it_id = item:getId()
local tid = ItemType(it_id):getTransformEquipId()
if tid > 0 then
item:transform(tid)
local vx = item:getAttribute(ITEM_ATTRIBUTE_DURATION)
item:transform(it_id)
item:removeAttribute(ITEM_ATTRIBUTE_DURATION)
return vx
end
return 0
end
function loot_attrToVal(item, attr)
local id = ItemType(item:getId())
local v = {
[ITEM_ATTRIBUTE_ATTACK] = id:getAttack(),
[ITEM_ATTRIBUTE_DEFENSE] = id:getDefense(),
[ITEM_ATTRIBUTE_EXTRADEFENSE] = id:getExtraDefense(),
[ITEM_ATTRIBUTE_ARMOR] = id:getArmor(),
[ITEM_ATTRIBUTE_HITCHANCE] = id:getHitChance(),
[ITEM_ATTRIBUTE_SHOOTRANGE] = id:getShootRange(),
[ITEM_ATTRIBUTE_CHARGES] = id:getCharges(),
[ITEM_ATTRIBUTE_DURATION] = stat_getItemDuration(item),
-- not available in 1.1
-- [ITEM_ATTRIBUTE_ATTACKSPEED] = item:getAttackSpeed(),
-- [ITEM_ATTRIBUTE_EXTRAATTACK] = item:getExtraAttack(),
}
return v[attr]
end
function assign_loot_Stat(c)
local rares = 0
local h = c:getItemHoldingCount()
if h > 0 then
for i = 1, h do
local available_stats = {}
local it_u = c:getItem(i - 1)
local it_id = ItemType(it_u:getId())
if it_u:isContainer() then
local crares = assign_loot_Stat(it_u)
rares = rares + crares
else
if not it_id:isStackable() then
local wp = it_id:getWeaponType()
if wp > 0 then
if wp == WEAPON_SHIELD then -- type shield
table.insert(available_stats, stats[2])
elseif wp == WEAPON_DISTANCE then -- type bow
table.insert(available_stats, stats[1])
table.insert(available_stats, stats[5])
table.insert(available_stats, stats[6])
-- not available in 1.1
-- table.insert(available_stats, stats[9])
elseif wp == WEAPON_WAND then -- type wand
table.insert(available_stats, stats[6])
-- not available in 1.1
-- table.insert(available_stats, stats[9])
elseif isInArray({WEAPON_SWORD, WEAPON_CLUB, WEAPON_AXE}, wp) then -- melee weapon
if it_id:getAttack() > 0 then
table.insert(available_stats, stats[1])
end
if it_id:getDefense() > 0 then
table.insert(available_stats, stats[2])
end
if it_id:getExtraDefense() ~= 0 then
table.insert(available_stats, stats[3])
end
-- not available in 1.1
-- table.insert(available_stats, stats[10])
end
else -- armors, amulets, runes and rings
if it_id:getArmor() > 0 then
table.insert(available_stats, stats[4])
end
if it_id:getCharges() > 0 then
table.insert(available_stats, stats[7])
end
local eq_id = it_id:getTransformEquipId()
if eq_id > 0 then
table.insert(available_stats, stats[8])
end
end
end
end
if #available_stats > 0 then
-- skips it all if it's empty
local tier = math.random(1, #tiers)
if #tiers[tier].chance > 0 then
local statsStored = 0
local stats_used = {}
for stat = 1, #tiers[tier].chance do
if #available_stats > 0 then
-- stops if no more stats available
if stat - 1 == statsStored then
-- checks when it's time to stop adding stats
if math.random(1, 100000) <= tiers[tier].chance[stat] then
statsStored = statsStored + 1
local selected_stat = math.random(1, #available_stats)
table.insert(stats_used, available_stats[selected_stat])
table.remove(available_stats, selected_stat)
end
end
end
end
if #stats_used > 0 then
rares = rares + 1
local stat_desc = {}
for stat = 1, #stats_used do
local v = math.random(
stats_used[stat][2].percent[1],
stats_used[stat][2].percent[2]
) + math.random(
tiers[tier].extra[1],
tiers[tier].extra[2]
)
local basestat = loot_attrToVal(it_u, stats_used[stat][1])
it_u:setAttribute(stats_used[stat][1], basestat + math.abs(basestat * v / 100))
table.insert(stat_desc, '[' .. stats_used[stat][2].name .. ': +' .. v .. '%]')
end
if tiers[tier].showattr then
for stat = 1, #stats_used do
it_u:setAttribute(ITEM_ATTRIBUTE_NAME, "[" .. stats_used[stat][2].prefix .. "]" .. it_u:getAttribute(ITEM_ATTRIBUTE_NAME))
end
it_u:setAttribute(ITEM_ATTRIBUTE_NAME, it_u:getAttribute(ITEM_ATTRIBUTE_NAME) .. " " .. it_id:getName())
else
it_u:setAttribute(ITEM_ATTRIBUTE_NAME, tiers[tier].prefix .. " " .. it_id:getName())
end
it_u:setAttribute(ITEM_ATTRIBUTE_DESCRIPTION, table.concat(stat_desc, "\n"))
end
end
end
end
end
return rares
end
function find_loot_Container(pos)
local rares = 0
local c = Tile(pos):getTopDownItem()
if c ~= nil then
if c:isContainer() then
rares = rares + assign_loot_Stat(c)
if rares > 0 then
if rare_popup then
local spectators = Game.getSpectators(pos, false, true, 7, 7, 5, 5)
for i = 1, #spectators do
spectators[i]:say(rare_text, TALKTYPE_MONSTER_SAY, false, spectators[i], pos)
end
end
if rare_effect then
pos:sendMagicEffect(rare_effect_id)
end
end
return true
end
end
end
function onKill(player, target, lastHit)
if (not isSummon(target)) then
addEvent(find_loot_Container, 2, target:getPosition())
end
return true
end
function onLogin(player)
player:registerEvent("randomstats_loot")
return true
endI am also using Mocks Slot upgrade to add + to items, the problem is this: If you loot an item with a rare effect (or any effect outside of normal) and you go to + the item, it turns it back to a regular item and it looses the rare bonus. I was wondering is there a way to perform a check within the action script to keep the bonus of the rare+ item?
Action script:
Code:
local conf = {
maxSlotCount=6,
ignoredIds={}
}
function choose(...)
local arg = {...}
return arg[math.random(1,#arg)]
end
function onUse(cid, item, fromPosition, itemEx, toPosition)
if item.uid == 0 or item.itemid == 0 then return false end
toPosition.stackpos = 255
if isInArray(conf.ignoredIds, itemEx.itemid) or
isItemStackable(itemEx.uid) or
itemEx.itemid == 0 or
itemEx.type > 1 or
not(isArmor(itemEx.uid) or isWeapon(itemEx.uid) or isShield(itemEx.uid)) then
return false
end
if isCreature(itemEx.uid) then
return false
end
local nam = Item(itemEx.uid):getAttribute(ITEM_ATTRIBUTE_DESCRIPTION)
function getper()
local n = 1
for i=1,10 do
n = n+math.random(0,10)
if n < 8*i then
break
end
end
return n
end
function getSlotCount(nam)
local c = 0
for _ in nam:gmatch('%[(.-)%]') do
c = c+1
end
return c
end
if getSlotCount(nam) < conf.maxSlotCount then
local l = choose('hp','mp','ml','melee','shield','dist')
local p = getper()
doSendMagicEffect(toPosition,30)
nam = nam..' ['..l..'.+'..p..'%]'
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,l..'.+'..p..'%')
doSetItemSpecialDescription(itemEx.uid, nam)
doRemoveItem(item.uid,1)
else
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"Slot limit reached.")
end
return true
endI have played around with it for a while, but my knowledge with tables is pretty bad so this is way above my knowledge. Thanks
Last edited:
