Nome: Set System 2.0

Versão: 8.4x

Tipo do script: Função

Servidor Testado: The Forgotten Server 0.3 b3

Autor: esK~

Descrição:

Este script é mais uma vantagem para aqueles jogadores que pagam para jogar - os famosos VIPs. Com este Set System, poderá haver um diferencial entre quem o possui e quem não o possui com apenas uma função de simples uso. Resultados de magias diferentes podem ocorrer, falas de NPCs diferenciadas, a possibilidade de entrar em algum lugar, etc.

A partir deste script, vou botar como eu realmente ponho os meus, criando um arquivo com apenas scripts de minha autoria. Isto é para quem gosta de meus scripts e pretender por mais de um.

Vá em data/lib crie um arquivo chamado esK.lua apague tudo e coloque isso lá dentro :

function eskguUsingVIPSet(cid)

local voc = getPlayerVocation(cid)

if voc == 0 then

return FALSE

end

local selSet = piviguSet[voc]

local checkSet = {}

local eskguPoints = 0

local test = 3

for i = 1, 10 do

checkSet[table.maxn(checkSet) + 1] = FALSE

end

 

if selSet.body.id == TRUE then

checkSet[4] = TRUE

end

if selSet.legs.id == 0 then

checkSet[7] = TRUE

end

if selSet.head.id == 0 then

checkSet[1] = TRUE

end

if selSet.necklace.id == 0 then

checkSet[2] = TRUE

end

if selSet.backpack.id == 0 then

checkSet[3] = TRUE

end

if selSet.ring.id == 0 then

checkSet[9] = TRUE

end

if selSet.feet.id == 0 then

checkSet[8] = TRUE

end

if selSet.ammunition.id == 0 then

checkSet[10] = TRUE

end

if selSet.Lhand.id == 0 and (canInvertHands == FALSE or selSet.Rhand.id == 0) then

checkSet[5] = TRUE

end

if selSet.Rhand.id == 0 and (canInvertHands == FALSE or selSet.Lhand.id == 0) then

checkSet[6] = TRUE

end

 

 

if getPlayerSlotItem(cid, 1).itemid == selSet.head.id and (getPlayerSlotItem(cid, 1).type == selSet.head.count or isItemStackable(getPlayerSlotItem(cid, 1).itemid) == FALSE) then

checkSet[1] = TRUE

end

if getPlayerSlotItem(cid, 2).itemid == selSet.necklace.id and (getPlayerSlotItem(cid, 2).type == selSet.necklace.count or isItemStackable(getPlayerSlotItem(cid, 2).itemid) == FALSE) then

checkSet[2] = TRUE

end

if getPlayerSlotItem(cid, 3).itemid == selSet.backpack.id and (getPlayerSlotItem(cid, 3).type == selSet.backpack.count or isItemStackable(getPlayerSlotItem(cid, 3).itemid) == FALSE) then

checkSet[3] = TRUE

end

if getPlayerSlotItem(cid, 4).itemid == selSet.body.id and (getPlayerSlotItem(cid, 4).type == selSet.body.count or isItemStackable(getPlayerSlotItem(cid, 4).itemid) == FALSE) then

checkSet[4] = TRUE

end

 

if eskguSet.canInvertHands == FALSE or checkSet[5] == TRUE or checkSet[6] == TRUE then

if (getPlayerSlotItem(cid, 5).itemid == selSet.Lhand.id and (getPlayerSlotItem(cid, 5).type == selSet.Lhand.count or isItemStackable(getPlayerSlotItem(cid, 5).itemid) == FALSE)) then

checkSet[5] = TRUE

if selSet.Rhand.id == 0 then

checkSet[6] = TRUE

end

end

if (getPlayerSlotItem(cid, 6).itemid == selSet.Rhand.id and (getPlayerSlotItem(cid, 6).type == selSet.Rhand.count or isItemStackable(getPlayerSlotItem(cid, 6).itemid) == FALSE)) then

checkSet[6] = TRUE

if selSet.Lhand.id == 0 then

checkSet[5] = TRUE

end

end

 

else

if (getPlayerSlotItem(cid, 5).itemid == selSet.Lhand.id and (getPlayerSlotItem(cid, 5).type == selSet.Lhand.count or isItemStackable(getPlayerSlotItem(cid, 5).itemid) == FALSE)) then

checkSet[5] = TRUE

if selSet.Rhand.id == 0 then

checkSet[6] = TRUE

end

end

if (getPlayerSlotItem(cid, 6).itemid == selSet.Rhand.id and (getPlayerSlotItem(cid, 6).type == selSet.Rhand.count or isItemStackable(getPlayerSlotItem(cid, 6).itemid) == FALSE)) then

checkSet[6] = TRUE

if selSet.Lhand.id == 0 then

checkSet[5] = TRUE

end

end

 

if ((getPlayerSlotItem(cid, 6).itemid == selSet.Lhand.id and (getPlayerSlotItem(cid, 6).type == selSet.Lhand.count or isItemStackable(getPlayerSlotItem(cid, 6).itemid) == FALSE)) or selSet.Lhand.id == 0) and ((getPlayerSlotItem(cid, 5).itemid == selSet.Rhand.id and (getPlayerSlotItem(cid, 5).type == selSet.Rhand.count or isItemStackable(getPlayerSlotItem(cid, 5).itemid) == FALSE)) or selSet.Rhand.id == 0) then

checkSet[5] = TRUE

checkSet[6] = TRUE

end

 

end

 

if getPlayerSlotItem(cid, 7).itemid == selSet.legs.id and (getPlayerSlotItem(cid, 7).type == selSet.legs.count or isItemStackable(getPlayerSlotItem(cid, 7).itemid) == FALSE) then

checkSet[7] = TRUE

end

if getPlayerSlotItem(cid, 8).itemid == selSet.feet.id and (getPlayerSlotItem(cid, 8).type == selSet.feet.count or isItemStackable(getPlayerSlotItem(cid, 8).itemid) == FALSE) then

checkSet[8] = TRUE

end

if getPlayerSlotItem(cid, 9).itemid == selSet.ring.id and (getPlayerSlotItem(cid, 9).type == selSet.ring.count or isItemStackable(getPlayerSlotItem(cid, 9).itemid) == FALSE) then

checkSet[9] = TRUE

end

if getPlayerSlotItem(cid, 10).itemid == selSet.ammunition.id and (getPlayerSlotItem(cid, 10).type == selSet.ammunition.count or isItemStackable(getPlayerSlotItem(cid, 10).itemid) == FALSE) then

checkSet[10] = TRUE

end

 

for i = 1, 10 do

if checkSet == TRUE then

eskguPoints = eskguPoints + 1

end

end

 

if eskguPoints == 10 then

return TRUE

else

return FALSE

end

 

end

esK_const.lua

eskguSet = {

canInvertHands = 1,

{--Sorcerer

body = {id=2656, count=1},

legs = {id=7730, count=1},

head = {id=2498, count=1},

necklace = {id=0, count=0},

backpack = {id=0, count=0},

ring = {id=0, count=0},

feet = {id=0, count=0},

ammunition = {id=0, count=0},

Lhand = {id=0, count=0},

Rhand = {id=0, count=0}

},{ -- Druid

body = {id=7884, count=1},

legs = {id=7885, count=1},

head = {id=7903, count=1},

necklace = {id=0, count=0},

backpack = {id=0, count=0},

ring = {id=0, count=0},

feet = {id=0, count=0},

ammunition = {id=0, count=0},

Lhand = {id=0, count=0},

Rhand = {id=0, count=0}

},{ -- Paladin

body = {id=7898, count=1},

legs = {id=7895, count=1},

head = {id=7901, count=1},

necklace = {id=0, count=0},

backpack = {id=0, count=0},

ring = {id=0, count=0},

feet = {id=0, count=0},

ammunition = {id=0, count=0},

Lhand = {id=0, count=0},

Rhand = {id=0, count=0}

},{ -- Knight

body = {id=2503, count=1},

legs = {id=2504, count=1},

head = {id=2501, count=1},

necklace = {id=0, count=0},

backpack = {id=0, count=0},

ring = {id=0, count=0},

feet = {id=0, count=0},

ammunition = {id=0, count=0},

Lhand = {id=0, count=0},

Rhand = {id=0, count=0}

}}

Aprendendo a instalar # Melhor :

Instalando

1. Caso você já tenha o esK.lua criado, pule para o passo 2.

Crie um arquivo chamado esK.lua na pasta data/lib

2. Cole o primeiro script para dentro do arquivo criado.

3. Caso você já tenha o esK_const.lua, pule para o passo 4.

Crie um arquivo chamado esK_const.lua na pasta data/lib

4. Cole o segundo script para dentro do arquivo criado.

5. Em data/lib/functions.lua adicione no topo do documento a linha

dofile('data/lib/esK.lua')

6. Em data/lib/constant.lua adicione no topo do documento a linha

dofile('data/lib/esK_const.lua')

Configurando

O sistema é de fácil configuração, você deve apenas editar o ID e a quantidade o jogador deve ter em seu slot, seguindo a ordem de vocações (primeiro é voc 1, segundo, voc 2, etc).

A variável canInvertHands

Esta variável serve para poder inverter os itens das duas mãos, por exemplo:

Você pos para a mão direita ser um shield e a mão esquerda uma arma, caso o canInvertHands esteja com o valor 0, terá que ser deste modo, caso contrário, o shield poderá estar em qualquer uma das mãos e a arma também. Esta função ainda não foi testada de todos os modos possíveis e poderá conter erros.

Como criar sets para novas vocações

Para quem tem mais conhecimento neste assunto, é simples, copie e cole a última parte do script contido em Pivi_const.lua.

O que há de novo

Agora o seu set pode conter as partes do corpo que você quiser e não apenas legs, body e head, como era na versão anterior. Seu set pode conter desde amuleto, backpack a ring e arrow.

Você pode adicionar vip set a novas vocações.

O que está por vir

Na próxima versão pretendo por para apenas premium (configurável) e um set diferencial para a promotion da vocação.

canInvertHands 100%

Variáveis

canInvertHands - Inverter as mãos (1 para verdadeiro e 0 para falso)

body - Armadura

legs - Calça

head - Helmet

necklace - Amuleto

backpack - Mochila

ring - Anel

feet - Bota

ammunition - Munição

Lhand - Mão esquerda

Rhand - Mão direita

id - ID do item

count - Quantidade do item (apenas para contáveis)

Créditos

Todo o sistema foi desenvolvido por Lord Sybian (Neste fórum com o nick de esK~).

A idéia inicial foi do meu primo

Edited

A magia berserk para quem quiser ela já configurada

local combat = createCombatObject()

setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_HITAREA)

setCombatParam(combat, COMBAT_PARAM_USECHARGES, TRUE)

setCombatFormula(combat, COMBAT_FORMULA_SKILL, 0, -90, 0.7, -50)

local area = createCombatArea(AREA_SQUARE1X1)

setCombatArea(combat, area)

local combat2 = createCombatObject()

setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE)

setCombatParam(combat2, COMBAT_PARAM_EFFECT,

CONST_ME_ENERGYAREA)

setCombatParam(combat2, COMBAT_PARAM_DISTANCEEFFECT,

CONST_ANI_ENERGY)

setCombatFormula(combat2, COMBAT_FORMULA_SKILL, 1.5, -290, 2.7, -200)

area = createCombatArea(AREA_SQUARE1X1)

setCombatArea(combat2, area)

function onCastSpell(cid, var)

if esKguUsingVIPSet(cid) == FALSE then

return doCombat(cid, combat, var)

else

return doCombat(cid, combat2, var)

end

end

Vlwo ... Noiiz Fuiii

esK~

Interessante...pode também fazer com quem tenha o set full de algum atributo a mais?

Vou testar.. o unico chato e que sempre que pego um script de alguém que envolva constant.lua da error :x

Bem amigooooo olhe bemm vc copiou este script da concorrencia tudo bem e talz mais achop q vc tinha q pelo menos botar os creditos do pivi neh? ;* isso q vc fez e uma completa falta de etica

Bem amigooooo olhe bemm vc copiou este script da concorrencia tudo bem e talz mais achop q vc tinha q pelo menos botar os creditos do pivi neh? ;* isso q vc fez e uma completa falta de etica

Cara eu não peguei... muito peguei so a primeira parte...pq está com alguns erros e formatei ele...# como meu nao e dele ta com migo esté script #

Mesmo assim voce deveira colocar os creditos dele ai não acha?