• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!

Lua Slot system mistake

M

_M4G0_

Well-Known Member
Joined
Feb 6, 2016
Messages
504
Solutions
16
Reaction score
98
Im using this system in my server
Action - [TFS 1.1] - Slot system
Lua: 
local conf = {
maxSlotCount=3,
ignoredIds={25880, 25882, 25885, 25886, 25884, 25887, 25888, 26274, 26287, 26306, 26309, 26303, 26296, 26316, 26299, 26294, 26279, 26289, 26285, 26269, 26257, 26258, 26271, 26286, 26291, 26281, 26295, 26301}
}

function choose(...)
  local arg = {...}
  return arg[math.random(1,#arg)]
end


function onUse(cid, item, fromPosition, itemEx, toPosition, isHotkey)
 
    if cid:getExhaustion(1000) <= 0 then
        cid:setExhaustion(1000, 5)
    else
        doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'You\'re exhausted for: '..cid:getExhaustion(1000)..' seconds.')
    return true
    end

  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 doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Este item nao pode receber encantamento.")
  end
  if isCreature(itemEx.uid) then
  return false
  end
  local nam = Item(itemEx.uid):getAttribute(ITEM_ATTRIBUTE_DESCRIPTION)
  function getper()
  local n = 5
  for i=5,10 do
  n = n+math.random(0,10)
  if n < 30*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
end
Code: 
local conditionMP,conditionHP,conditionML,conditionCLUB,conditionSHI,conditionDIST,conditionAMP = {},{},{},{},{},{},{}
for i=1,300 do
  conditionHP[i] = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionHP[i], CONDITION_PARAM_SUBID, 50)
  setConditionParam(conditionHP[i], CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionHP[i], CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionHP[i], CONDITION_PARAM_STAT_MAXHITPOINTSPERCENT, 100+i)

  conditionMP[i] = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionMP[i], CONDITION_PARAM_SUBID, 51)
  setConditionParam(conditionMP[i], CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionMP[i], CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionMP[i], CONDITION_PARAM_STAT_MAXMANAPOINTSPERCENT, 100+i)

  conditionML[i] = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionML[i], CONDITION_PARAM_SUBID, 52)
  setConditionParam(conditionML[i], CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionML[i], CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionML[i], CONDITION_PARAM_STAT_MAGICPOINTSPERCENT, 100+i)


  conditionCLUB[i] = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionCLUB[i], CONDITION_PARAM_SUBID, 53)
  setConditionParam(conditionCLUB[i], CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionCLUB[i], CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionCLUB[i], CONDITION_PARAM_SKILL_MELEEPERCENT, 100+i)


  conditionSHI[i] = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionSHI[i], CONDITION_PARAM_SUBID, 54)
  setConditionParam(conditionSHI[i], CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionSHI[i], CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionSHI[i], CONDITION_PARAM_SKILL_SHIELDPERCENT, 100+i)

  conditionDIST[i] = createConditionObject(CONDITION_ATTRIBUTES)
  setConditionParam(conditionDIST[i], CONDITION_PARAM_SUBID, 55)
  setConditionParam(conditionDIST[i], CONDITION_PARAM_BUFF_SPELL, 1)
  setConditionParam(conditionDIST[i], CONDITION_PARAM_TICKS, -1)
  setConditionParam(conditionDIST[i], CONDITION_PARAM_SKILL_DISTANCEPERCENT, 100+i)
end

function getSlotType(n)
    if not n then
    return false
    end
  
    if n:match('%[(.+)%]') then
        n = n:match('%[(.+)%]')
    if n == '?' then
        return 0,n
    else
        return n:match('(.-)%.([+-])(%d+)%%')
        end
    else
        return false
    end
end

local function loadSet(cid)
    local player = Player(cid)
    if not player then return false end
          local t = {}
        for slot=1,10 do
          t[slot] = ''
        local s = getPlayerSlotItem(player,slot).uid
      if s ~= 0 then
    t[slot] = Item(s):getAttribute('desc')
    end
        end
  return t
end

function chk(cid,f)
local player = Player(cid)
  if not Player(cid) then return false end
  local t = loadSet(cid)
  if not t then return false end

  for i=1,#f do
  if f[i] ~= t[i] then
  equip(player,nil,slot)
  break
  end
  end
  addEvent(chk,2000,cid,t)
end

function check_slot(aab, i)
    if i == 10 then
        if isAmmoSlot(aab) then
            return true
        end
    elseif i == 5 or i == 6 then
        if isWeapon(aab) or isShield(aab) or isBow(aab) then
            return true
        end
    else
        return true
    end
    return false
end

function equip(cid, item, slot)
    local player = Player(cid)
    local t = {}
    if item then
        local mm,sinal,qto = getSlotType(Item(item.uid):getAttribute(ITEM_ATTRIBUTE_DESCRIPTION))
        t[mm] = tonumber(qto)
    end

    for i=1,10 do
        if i ~= slot then
            if getPlayerSlotItem(player,i).itemid ~= 0 then
                local aab = getPlayerSlotItem(player,i).uid
                if aab and check_slot(aab,i) then
                    local item = Item(aab)
                    if item then
                        for _ in item:getAttribute(ITEM_ATTRIBUTE_DESCRIPTION):gmatch('(%[.-%])') do
                            local mm,sinal,qto2 = getSlotType(_)
                            if mm then
                                if not t[mm] then
                                    t[mm] = 0
                                end
                                t[mm] = t[mm]+tonumber(qto2)
                                t[mm] = t[mm] > 300 and 300 or t[mm]
                            end
                        end
                    else
                        return false
                    end
                end
            end
        end
    end

    local fu = 0
    local ca = {}
    local s = ''
    for sl,n in pairs(t) do
        fu = fu+1
        s = s..''..n..'% more of '..sl..'\n'
        if sl == 'hp' then
            player:addCondition(conditionHP[tonumber(n)])
            ca[50] = 1
            doSendTutorial(player,19)
        elseif sl == 'mp' then
            player:addCondition(conditionMP[tonumber(n)])
            ca[51] = 1
            doSendTutorial(player,19)
        elseif sl == 'ml' then
            player:addCondition(conditionML[tonumber(n)])
            ca[52] = 1
        elseif sl == 'melee' then
            player:addCondition(conditionCLUB[tonumber(n)])
            ca[53] = 1
        elseif sl == 'shield' then
            player:addCondition(conditionSHI[tonumber(n)])
            ca[54] = 1
        elseif sl == 'dist' then
            player:addCondition(conditionDIST[tonumber(n)])
            ca[55] = 1
        end
    end

    if fu > 0 then
        for i=50,55 do
            if not ca[i] then
                doRemoveCondition(player:getId(),CONDITION_ATTRIBUTES,i)
            end
        end
    else
        for i=50,55 do
            doRemoveCondition(player:getId(),CONDITION_ATTRIBUTES,i)
        end
    end

    return true
end

function onLogin(cid)
local player = Player(cid)
  equip(player, nil, slot)
local cid = player:getId()
  addEvent(chk, 2000, cid, loadSet(cid))
  return true
end
it's work fine for a time and then
error
Code: 
Blackjako has logged in.
Lua Script Error: [CreatureScript Interface]
data/creaturescripts/scripts/custom/slot.lua:onLogin
data/creaturescripts/scripts/custom/slot.lua:115: attempt to index a nil value
stack traceback:
        [C]: in function '__index'
        data/creaturescripts/scripts/custom/slot.lua:115: in function 'equip'
        data/creaturescripts/scripts/custom/slot.lua:172: in function <data/creaturescripts/scripts/custom/slot.lua:171>
Blackjako has logged out.
TFS 1.2 10.99
 
Last edited:
Solution
WibbenZ
_M4G0_ said:
Lua: 
local function loadSet(cid)
    local player = Player(cid)
    if not player then return false end
    local t = {}
    for slot=1,10 do
    t[slot] = ''
    local s = getPlayerSlotItem(player,slot).uid
        if s ~= 0 then
    local targetItem = Item(s)
        if not targetItem then
        print(targetItem, targetItem:getId(), s, slot)
            return false
        end
     t[slot] = targetItem:getAttribute(ITEM_ATTRIBUTE_DESCRIPTION) 
  -- print(ItemType( item_id_here ):getSlotPosition())
  end
  end
  return t
end
View attachment 30257
Click to expand...

Lua: 
local function loadSet(cid)
    local player = Player(cid)
    if not player then
        return false
    end

    local t = {}
    for slot = CONST_SLOT_FIRST, CONST_SLOT_LAST do
        local...
Sort by date Sort by votes
WibbenZ said:
Humm thats strange, try to print it out and see what it could be.
Lua: 
print(targetItem, targetItem:getId(), s, slot)
Click to expand...
Lua: 
local function loadSet(cid)
    local player = Player(cid)
    if not player then return false end
    local t = {}
    for slot=1,10 do
    t[slot] = ''
    local s = getPlayerSlotItem(player,slot).uid
        if s ~= 0 then
    local targetItem = Item(s)
        if not targetItem then
        print(targetItem, targetItem:getId(), s, slot)
            return false
        end
     t[slot] = targetItem:getAttribute(ITEM_ATTRIBUTE_DESCRIPTION)   
  -- print(ItemType( item_id_here ):getSlotPosition())
  end
  end
  return t
end
Sem título.png
 
Upvote 0 Downvote
_M4G0_ said:
Lua: 
local function loadSet(cid)
    local player = Player(cid)
    if not player then return false end
    local t = {}
    for slot=1,10 do
    t[slot] = ''
    local s = getPlayerSlotItem(player,slot).uid
        if s ~= 0 then
    local targetItem = Item(s)
        if not targetItem then
        print(targetItem, targetItem:getId(), s, slot)
            return false
        end
     t[slot] = targetItem:getAttribute(ITEM_ATTRIBUTE_DESCRIPTION) 
  -- print(ItemType( item_id_here ):getSlotPosition())
  end
  end
  return t
end
View attachment 30257
Click to expand...

Lua: 
local function loadSet(cid)
    local player = Player(cid)
    if not player then
        return false
    end

    local t = {}
    for slot = CONST_SLOT_FIRST, CONST_SLOT_LAST do
        local slotItem = player:getSlotItem(slot)
        if slotItem then
            t[slot] = slotItem:getAttribute(ITEM_ATTRIBUTE_DESCRIPTION)
        end
    end
    return true
end
 
Last edited:
Upvote 0 Downvote
Solution

Similar threads

OTcreator
  • Question
TFS 1.X+ Many errors in lua TFS 1.4.2
Replies
4
Views
560
Adorius Black
Adorius Black
tommy91
  • Question
Lua script error, IsPremium
Replies
1
Views
444
tobi132
T
O
  • Question
otx2 function errors
Replies
0
Views
103
OFeFreitas
O
Jpstafe
  • Question
error randomstast console
Replies
0
Views
164
Jpstafe
Jpstafe
J
  • Question
Frestorm Event problem with dead players
Replies
9
Views
606
mano368
M
E
  • Solved
TFS 1.X+ [TFS 1.5] Attribute problems (onHealthChange & getMana)
Replies
7
Views
585
Erna
E
D
  • Question
TFS 1.X+ The Forgotten Server - Version 1.5 (Nekiro's 8.60 downgrade & Movie Updates) Script Errors
Replies
1
Views
516
Vintage ROX
V
J
  • Question
TFS 1.X+ data/creaturescripts/scripts/others/login.lua:48: attempt to index global 'PlayerStorageKeys' (a nil value)
Replies
1
Views
287
Error 502
Error 502
Michcol94
  • Question
TFS 1.X+ Pet heal master error console
Replies
2
Views
303
Michcol94
Michcol94
K
  • Question
TFS 0.X Error on [Error - CreatureScript Interface]
Replies
0
Views
65
Klock
K
Back
Top