Dark-Tibia


En este foro encontras ayuda subre tu Otserver
 
ÍndicePortalFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse
Navegación
 Portal
 Índice
 Miembros
 Perfil
 FAQ
 Buscar
Conectarse
Nombre de Usuario:
Contraseña:
Entrar automáticamente en cada visita: 
:: Recuperar mi contraseña
Últimos temas
» johnnathann
Sáb Sep 15, 2012 8:48 pm por johnnathannj

»  [8.70] Real Global Map 1.8 + Imagenes + Scans
Lun Jun 11, 2012 4:53 am por Lazcano

» Speedy War [8.60]
Vie Mar 30, 2012 2:12 pm por GOD ALE

»  [Rpg-Pvp][8.60]Kreuus Easy
Jue Mar 29, 2012 11:42 pm por GOD ALE

» [Script] Royal Crossbow!
Jue Mar 29, 2012 11:22 pm por GOD ALE

» Ayuda con el ot server
Jue Mar 29, 2012 10:45 pm por GOD ALE

»  Tiko ot editado 8.60
Jue Mar 29, 2012 10:34 pm por GOD ALE

»  VikiRanch.'[8.60] war v.1.0
Jue Mar 29, 2012 9:54 pm por GOD ALE

» Abrir Puertos De Tibia En El Router Thomson tg585 de telmex
Vie Oct 28, 2011 1:21 pm por panda

Mejores posteadores
Dj Pacos
 
admin heber723
 
God Maracula
 
GoD Mexicansoul
 
God Dunckan
 
Admin Azteca
 
Slayer
 
God Damubu
 
DJ Punk
 
Glonlova
 

Comparte | 
 

 Ayuda errores en scripts

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Glonlova
Nivel 1
Nivel 1


25

Mensajes : 12
Puntos : 17
Reputación : 0
Fecha de inscripción : 05/05/2011

MensajeTema: Ayuda errores en scripts   Jue Mayo 05, 2011 1:27 pm

Código:
local conditionMP,conditionHP,conditionML,conditionCLUB,conditionSHI,conditionDIST,conditionAMP = {},{},{},{},{},{},{}
for i=1,100 do ---Carrega as conditions
        --- HP
        conditionHP[i] = createConditionObject(CONDITION_ATTRIBUTES)
        setConditionParam(conditionHP[i], CONDITION_PARAM_TICKS, -1)
        setConditionParam(conditionHP[i], CONDITION_PARAM_STAT_MAXHEALTHPERCENT, 100+i)
        setConditionParam(conditionHP[i], CONDITION_PARAM_BUFF, true)
        setConditionParam(conditionHP[i], CONDITION_PARAM_SUBID, 50)
        --MANA
        conditionMP[i] = createConditionObject(CONDITION_ATTRIBUTES)
        setConditionParam(conditionMP[i], CONDITION_PARAM_TICKS, -1)
        setConditionParam(conditionMP[i], CONDITION_PARAM_STAT_MAXMANAPERCENT, 100+i)
        setConditionParam(conditionMP[i], CONDITION_PARAM_BUFF, true)
        setConditionParam(conditionMP[i], CONDITION_PARAM_SUBID, 51)
        --Magic level
        conditionML[i] = createConditionObject(CONDITION_ATTRIBUTES)
        setConditionParam(conditionML[i], CONDITION_PARAM_TICKS, -1)
        setConditionParam(conditionML[i], CONDITION_PARAM_STAT_MAGICLEVELPERCENT, 100+i)
        setConditionParam(conditionML[i], CONDITION_PARAM_BUFF, true)
        setConditionParam(conditionML[i], CONDITION_PARAM_SUBID, 52)
        --club axe sword
        conditionCLUB[i] = createConditionObject(CONDITION_ATTRIBUTES)
        setConditionParam(conditionCLUB[i], CONDITION_PARAM_TICKS, -1)
        setConditionParam(conditionCLUB[i], CONDITION_PARAM_SKILL_CLUBPERCENT, 100+i)
        setConditionParam(conditionCLUB[i], CONDITION_PARAM_SKILL_SWORDPERCENT, 100+i)
        setConditionParam(conditionCLUB[i], CONDITION_PARAM_SKILL_AXEPERCENT, 100+i)
        setConditionParam(conditionCLUB[i], CONDITION_PARAM_BUFF, true)
        setConditionParam(conditionCLUB[i], CONDITION_PARAM_SUBID, 53)
        --- shield
        conditionSHI[i] = createConditionObject(CONDITION_ATTRIBUTES)
        setConditionParam(conditionSHI[i], CONDITION_PARAM_TICKS, -1)
        setConditionParam(conditionSHI[i], CONDITION_PARAM_SKILL_SHIELDPERCENT, 100+i)
        setConditionParam(conditionSHI[i], CONDITION_PARAM_BUFF, true)
        setConditionParam(conditionSHI[i], CONDITION_PARAM_SUBID, 54)
        --- dist
        conditionDIST[i] = createConditionObject(CONDITION_ATTRIBUTES)
        setConditionParam(conditionDIST[i], CONDITION_PARAM_TICKS, -1)
        setConditionParam(conditionDIST[i], CONDITION_PARAM_SKILL_DISTANCEPERCENT, 100+i)
        setConditionParam(conditionDIST[i], CONDITION_PARAM_BUFF, true)
        setConditionParam(conditionDIST[i], CONDITION_PARAM_SUBID, 55)
end
function getSlotType(n) --By mock the bear
        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 t = {}
        for slot=1,9 do
                t[slot] = ''
 
                local s = getPlayerSlotItem(cid,slot).uid
                if s ~= 0 then
                        t[slot] = getItemName(s)
                end
        end
        return t
end
function isInArray2(arr,var) -- Because in some servers it return 1 and 0 and others true and false
        for i,b in pairs(arr) do
                if var == b then
                        return true
                end
        end
        return false
end
function check2(cid,i)
        if i == 5 or i == 6 then
                if isInArray({'head','necklace','backpack','body','legs','feet'
,'ring'},getItemValue(getPlayerSlotItem(cid,i).itemid,'slotType') or '') then
                        return false
                end
        end
        return true
end
function chk(cid,f)
        if not isPlayer(cid) then return end
        local t = loadSet(cid)
        for i=1,#f do
                if f[i] ~= t[i] then
                        equip(cid,nil,slot)
                        break
                end
        end
        addEvent(chk,2000,cid,t)
end
items = { ---- Only to get attr: slotType because getItemName dont return it -.-'
        _VERSION='1.0 By mock',
        XML_DIR='data/items/items.xml',
        }
do
        local ia = os.clock()
        io.write('Loading items')
        local i = io.open(items.XML_DIR,'r')
        local u = i:read(-1)
        i:close()
        local u = u:match('<items>(.+)</items>')
        for mi,id,mid,name,data,me in u:gmatch('<(%a-)%s*id%s*=%s*"(%d+)"%s*(.-)%s*name%s*=%s*"(.-)"%s*>(.-)<
/(%a*)>') do
                if mi == 'item' and me == 'item' then
                        local td = {name=name,id=id,type=1}
                        for key,value in data:gmatch('<attribute key="(.-)" value="(.-)"/>') do
                                td[key] = value
                        end
                        for key,value in mid:gmatch('(.-)="(.-)"') do
                                td[key] = value
                        end
                        items[tonumber(id)] = td
 
                        items[name] = td
                end
        end
        for mi,id,mid,name,data in u:gmatch('<(%a-)%s*id%s*=%s*"(%d*)"%s*(.-)%s*name%s*=%s*"(%a+)"%s*/>'
) do
                if mi == 'item' then
                        local td = {name=name,id=id,type=2}
                        for key,value in mid:gmatch('(.-)="(.-)"') do
                                td[key] = value
                        end
                        items[tonumber(id)] = td
                        items[name] = td
                end
        end
        io.write('[done '..os.clock()-ia..']\n')
end
function getItemValue(item,value)
        return items[item] and items[item][value]
end
function equip(cid,item,slot) --By mock the bear
        local HP = getCreatureHealth(cid)
        local MP = getCreatureMana(cid)
        local t = {}
        if item then
                local mm,sinal,qto = getSlotType(getItemName(item.uid))
                t[mm] = tonumber(qto)
        end
        for i=1,9 do -- Not on slot 10 > arrow
                if i ~= slot then
                        if getPlayerSlotItem(cid,i).itemid ~= 0 then
                                local aab = getPlayerSlotItem(cid,i).uid
                                if aab and check2(cid,i) then
                                        for _ in getItemName(aab):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] > 100 and 100 or t[mm]
                                                end
                                        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
                        doAddCondition(cid,conditionHP[tonumber(n)])
                        doCreatureAddHealth(cid,HP-getCreatureHealth(cid))
                        ca[50] = 1
                        doPlayerSendTutorial(cid,19)
                elseif sl == 'mp' then
                        doAddCondition(cid,conditionMP[tonumber(n)])
                        doCreatureAddMana(cid,HP-getCreatureMana(cid))
                        ca[51] = 1
                        doPlayerSendTutorial(cid,19)
                elseif sl == 'ml' then
                        doAddCondition(cid,conditionML[tonumber(n)])
                        ca[52] = 1
                elseif sl == 'cas' then
                        doAddCondition(cid,conditionCLUB[tonumber(n)])
                        ca[53] = 1
                elseif sl == 'shield' then
                        doAddCondition(cid,conditionSHI[tonumber(n)])
                        ca[54] = 1
                elseif sl == 'dist' then
                        doAddCondition(cid,conditionDIST[tonumber(n)])
                        ca[55] = 1
                end
        end
        if fu > 0 then
                addEvent(doPlayerSendTextMessage,100,cid,24,'You have:\n'..s)
                for i=50,55 do
                        if not ca[i] then
                                doRemoveCondition(cid,CONDITION_ATTRIBUTES,i)
                        end
                end
        else
                for i=50,55 do
                        doRemoveCondition(cid,CONDITION_ATTRIBUTES,i)
                end
        end
        return true
end
function onLogin(cid) ---Script by mock the bear!
        equip(cid,nil,slot)
        addEvent(chk,2000,cid,loadSet(cid)) -- Here we check!
        return TRUE
end
y este es el error: Warning: [EventScript] Can not load script. /scripts/slot.lua
[05/05/2011 12:27:01] data/creaturescripts/scripts/slot.lua:109: unfinished string near ''<(%a-)%s*id%s*=%s*"(%d+)"%s*(.-)%s*name%s*=%s*"(.-)"%s*>(.-)<'
Volver arriba Ir abajo
Ver perfil de usuario
admin heber723
Admin
Admin


100

Mensajes : 128
Puntos : 1163
Reputación : 16
Fecha de inscripción : 27/04/2011

MensajeTema: Re: Ayuda errores en scripts   Jue Mayo 05, 2011 1:57 pm

mmm ola man pero en donde te sale eze error cuando esta abriendo tu server?

_________________
Si nesesitas ayuda puedes consultarme en:
Ironmancast@hotmail.com
Volver arriba Ir abajo
Ver perfil de usuario
Glonlova
Nivel 1
Nivel 1


25

Mensajes : 12
Puntos : 17
Reputación : 0
Fecha de inscripción : 05/05/2011

MensajeTema: Re: Ayuda errores en scripts   Jue Mayo 05, 2011 3:18 pm

si ese es el script de el slot system para los items y no funciona x ese error
Volver arriba Ir abajo
Ver perfil de usuario
God Maracula
Admin
Admin


100

Mensajes : 81
Puntos : 102
Reputación : 4
Fecha de inscripción : 04/05/2011
Edad : 23
Localización : C: Vaguiando

MensajeTema: Re: Ayuda errores en scripts   Vie Mayo 06, 2011 5:19 pm

¬¬ explicate para poder ayudarte we ._.!

_________________


Maracula Up!
¡Se Que Es Difisil! Pero;


Den +REP

Visitame en mis mejores post
Spoiler:
 

Tansolo Clickea en spoiler y podras verlos!

Mi Ot Server ESTA!
Volver arriba Ir abajo
Ver perfil de usuario
Glonlova
Nivel 1
Nivel 1


25

Mensajes : 12
Puntos : 17
Reputación : 0
Fecha de inscripción : 05/05/2011

MensajeTema: Re: Ayuda errores en scripts   Vie Mayo 06, 2011 7:55 pm

no ya no ya pude pero gracias igual cierren el tema
Volver arriba Ir abajo
Ver perfil de usuario
admin heber723
Admin
Admin


100

Mensajes : 128
Puntos : 1163
Reputación : 16
Fecha de inscripción : 27/04/2011

MensajeTema: Re: Ayuda errores en scripts   Vie Mayo 06, 2011 9:40 pm

Tema cerrado

_________________
Si nesesitas ayuda puedes consultarme en:
Ironmancast@hotmail.com
Volver arriba Ir abajo
Ver perfil de usuario
Contenido patrocinado




MensajeTema: Re: Ayuda errores en scripts   Hoy a las 9:23 am

Volver arriba Ir abajo
 
Ayuda errores en scripts
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» AYUDA CON INTERNET ME VA LENTÍSIMO. Y AYUDA CON TARJETA SD
» AYUDA POR FAVOR
» Ayuda con menu desplegable
» Ayuda con Categoría de 4 foros en 2 líneas
» ayuda poner dados en mi foro

Permisos de este foro:No puedes responder a temas en este foro.
Dark-Tibia :: Ayudas / Dudas-
Cambiar a: