sistema de refinamento perfeito 2.0

[Mock 32]

• Autor:
  Mock
  
  
• Servidor testado:
  TFS 0.3.6
  
  

 

Bom pra que nao conheçe olhe esse toipico:

http://forums.otserv.com.br/f285/sistema-de-refinamento-perfeito-110267/

Apartir de todos os bugs que me falaram, e do que eu vi eu pude fazer 2.0 agora com:

Compatibilidade com o slot system: http://forums.otserv.com.br/f154/slots-em-equips-150138/
Possibilidade de refinar bows.
Ir de +1 até + infinito.

 

Bom as explicações estao no outro topico.

Vamos instalar.

Adcione essa tag no actions.xml:

<action itemid="8306" event="script" value="upgrade.lua"/>
<action itemid="8305" event="script" value="upgrade.lua"/>

Bom a segunda é um segundo item que tem 100% a mais de chance de acertou, ou seja esse nunca falha, e o normal com nem uma chance adcional é o itemid 8305.

Agora em upgrade.lua coloque isso:

--- Perfect refine system by Mock the bear (MTB).
--- Email: [email protected]
-- &a = weapon attack
-- &d = weapon defense
-- &s = shield defense
-- &p = armor defense
-- # = nivel do item
-- @ = max level
local gain = {
gainArmor='&p+(1)',loseArmor='&p-(1)',
gainShield='&s+#',loseShield='&s-(#+1)',
gainAttack='&a+(1*(#))',loseAttack='&a-(1*(#+1))',
gainDefense='&d+(1*(#))',loseDefense='&d-(1*(#+1))',
chance='(100/math.sqrt((((@/4)+(#*2))/@)*#))',
maxlvl = 17,
blocked_ids = {8881} -- items que nao podem ser aprimorados
}
local it = {
--[itemid] = [percent]
[8306] = 0, -- 0% additional
[8305] = 100, -- 50%
}
if not setItemName then
   function setItemName(uid,name)
	return doItemSetAttribute(uid,'name',name)
   end
   function setItemArmor(uid,name)
	return doItemSetAttribute(uid,'armor',name)
   end
function setItemDefense(uid,name)
	return doItemSetAttribute(uid,'defense',name)
end
function setItemAttack(uid,name)
	return doItemSetAttribute(uid,'attack',name)
end
function getItemAttack(uid)
	return getItemAttribute(uid,'attack')
end
function getItemDefense(uid)
	return getItemAttribute(uid,'defense')
end
function getItemArmor(uid)
  if type(uid) == 'number' then
     return getItemAttribute(uid,'armor')
  else
     return getItemInfo(uid.itemid).armor
  end
end
end

local function isArmor(uid) -- Function by Mock the bear.
   if (getItemInfo(uid.itemid).armor ~= 0) and (getItemWeaponType(uid.uid) == 0) then
	return true
end
return false
end
local function isWeapon(uid) -- Function by Mock the bear.
uid = uid or 0
local f = getItemWeaponType(uid)
if f == 1 or f == 2 or f == 3 then
	return true
end
return false
end
local function isShield(uid) -- Function by Mock the bear.
uid = uid or 0
if getItemWeaponType(uid) == 4 then
	return true
end
return false
end
local function isBow(uid) -- Function by Mock the bear.
uid = uid or 0
if getItemWeaponType(uid) == 5 then
	return true
end
return false
end
local function getWeaponLevel(uid) -- Function by Mock the bear.
  uid = uid or 0
  local name = getItemName(uid.uid) or getItemInfo(uid.itemid).name or ''
  local lvl = string.match(name,'%s%+(%d+)%s*')
  return tonumber(lvl) or 0
end
local function doTransform(s,i) -- Function by Mock the bear.
   local c = string.gsub(s,'@',gain.maxlvl)
   local c = string.gsub(c,'&a',(getItemAttack(i.uid) ~= 0 and getItemAttack(i.uid) or getItemInfo(i.itemid).attack))
   local c = string.gsub(c,'&d',(getItemDefense(i.uid) ~= 0 and getItemDefense(i.uid) or getItemInfo(i.itemid).defense))
   local c = string.gsub(c,'&s',(getItemDefense(i.uid) ~= 0 and getItemDefense(i.uid) or getItemInfo(i.itemid).defense))
   local c = string.gsub(c,'&p',(getItemArmor(i.uid) ~= 0 and getItemArmor(i.uid) or getItemInfo(i.itemid).armor))
   local c = string.gsub(c,'#',getWeaponLevel(i))
   local q =  assert(loadstring('return '..c))
   return math.floor(assert(q()))
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(gain.blocked_ids, itemEx.itemid)
         or (not getItemWeaponType(itemEx.uid) or getItemWeaponType(itemEx.uid) > 5)
          or (getItemWeaponType(itemEx.uid) == 0 and not isArmor(itemEx))
            or itemEx.itemid == 0 or itemEx.type > 1 or isItemStackable(itemEx.uid) then
               doPlayerSendTextMessage(cid, 24,"You cant refine this item.")
               return TRUE
        end
        if isCreature(itemEx.uid) == TRUE then
           return FALSE
        end
       local level = getWeaponLevel(itemEx)
       local chance = doTransform(gain.chance,itemEx)
	if level == gain.maxlvl then
		doSendMagicEffect(toPosition, 2)
           return doPlayerSendTextMessage(cid, 24,"Your item is on max level, you can't upgrade it.")
	end
	doPlayerSendTextMessage(cid, 24,"Trying refine with "..(chance+it[item.itemid] > 100 and 100 or chance+it[item.itemid]).."% of sucess!")
       if chance+it[item.itemid] >= math.random(0,100) then
		local nm = getItemName(itemEx.uid)
		local slot = nm:match('(%[.+%])') or '' ---If you server use slot system dont change it ^^
		slot = slot~='' and ' '..slot or slot
           setItemName(itemEx.uid, getItemNameById(itemEx.itemid)..' +'..(level+1)..slot)
           addEvent(doPlayerSendTextMessage,500,cid, 24,"Your item has been upgrated to +"..(level+1)..slot..".")
           doSendMagicEffect(toPosition, 12)
           if isArmor(itemEx) then
			local get = doTransform(gain.gainArmor,itemEx)
			setItemArmor(itemEx.uid,get)
		elseif isBow(itemEx.uid) then
			setItemAttack(itemEx.uid, doTransform(gain.gainAttack,itemEx))
		elseif isWeapon(itemEx.uid) then
			setItemAttack(itemEx.uid, doTransform(gain.gainAttack,itemEx))
			setItemDefense(itemEx.uid, doTransform(gain.gainDefense,itemEx))
           elseif isShield(itemEx.uid) then
			setItemDefense(itemEx.uid, doTransform(gain.gainShield,itemEx))
		end
       else
		if level == 0 then
			addEvent(doPlayerSendTextMessage,500,cid, 24,"No effect.")
			doSendMagicEffect(toPosition, 2)
		elseif level > 0 then
		local nm = getItemName(itemEx.uid)
		local slot = nm:match('(%[.+%])') or '' ---If you server use slot system dont change it ^^
			slot = slot~='' and ' '..slot or slot
			if level == 1 then
				setItemName(itemEx.uid, getItemNameById(itemEx.itemid)..slot)
				addEvent(doPlayerSendTextMessage,500,cid, 24,"Your item back to normal.")
			else
				setItemName(itemEx.uid, getItemNameById(itemEx.itemid)..' +'..(level-1)..slot)
				addEvent(doPlayerSendTextMessage,500,cid, 24,"Your item back to +"..(level-1)..slot..".")
			end
			if isArmor(itemEx) then
				setItemArmor(itemEx.uid,doTransform(gain.loseArmor  ,itemEx))
			elseif isWeapon(itemEx.uid) then
				setItemAttack(itemEx.uid, doTransform(gain.loseAttack,itemEx))
				setItemDefense(itemEx.uid, doTransform(gain.loseDefense,itemEx))
			elseif isBow(itemEx.uid) then
				setItemAttack(itemEx.uid, doTransform(gain.loseAttack,itemEx))
			elseif isShield(itemEx.uid) then
				setItemDefense(itemEx.uid, doTransform(gain.loseShield,itemEx))
			end
		end
		doSendMagicEffect(toPosition, 9)
       end
doRemoveItem(item.uid,1)
return true
end

Veja ele funcionando:

 

E agora com a possibilidade do slot ssystem conjunto com esse sistema vc pode fazer coisas assim:

[b]12:02[color="DarkSlateGray"] You see a knife [/color][color="Navy"]+1[/color] [color="Red"][hp.+7%][/color][color="DarkGreen"] (Atk:8, Def:6).[/color][/b]

:coolface: :coolface: :coolface: :coolface: :coolface: :coolface::coolface:

 

Musica dedicada ao script:

[ame]

[/ame] Editado 29 Junho, 2010 por Mock

[neves_prates 0]

Perfeito gostei muito. Oq mais gostei msm é q colokei pra vender por dinheiro os refinadores de 100% chance no meu site. vlws mock.

Editado 28 Junho, 2010 por neves_prates

[Geovane Loucker 0]

olha fico muito rox

mais seria legal se os itens magicos ou so wands e rods aumentassem mana ou se nao dano magico .-.

[ADM MaX DE 0]

Perfeito gostei muito. Oq mais gostei msm é q colokei pra vender por dinheiro os refinadores de 100% chance no meu site. vlws mock.²

 

Da pra fundir uns scripts á esse, e junto com o de slots fica muito bom!! ^^'

 

mock, cria um tutorial mostrando como faz pra mudar slots (tipo de anel, de armor, etc...) virar slots de backpacks!! ou slots de backpacks virar slot de colar, essas coisas... ^^'

[Guiminhah 0]

os caras têm orgulho de falar na cara dura que tão comercializando o suor do Mock (:

[neves_prates 0]

os caras têm orgulho de falar na cara dura que tão comercializando o suor do Mock (:

 

 

vou comercializar com os devidos direitos claro e com a permissão dele....

Posso mock?

[GOD TY 0]

oO muito bom quando eu hostiava meu servers tinha pensado nisso, mas não so scripter e na êpoca improvisei fiz com que um intem quando usasse numa giant sword por exemplo virasse outra sword mais fodona, mais esse seu script ta de parabens, continue assim Mock. Ty.

[Falkon 0]

Muito bom

vlw msm por postar mock.

[Aioria 0]

Mock,tem um bug...

quando vc usa os enchants 100% até +17 e usa um pedra de enchant normal ele volta pra +2 e os stats n reseta,c vc fica fazendo isso vc pode ter um atk infinito

[ShufflezOr 0]

Simplesmente I.R.A.D.O

[R.Death 0]

HAHA, muito fera isso ae

só que o foda é que quando eu uso a pedra de refina da debug, mais o item ainda fica +1,2,3... E tambem como nao so scriptes nem sei onde arruma, se alguem poder ajudar, rsrs

 

uso o : The Crystal Server 0.2.0 - 8.62

[OlhoHell 1]

Boaa Perfect Aprovado

[Proudmore 0]

Só achei ruim o fato que dá pra refinar items como spears, stars (distance weapons), quando estão como uma unidade. E ao jogá-los no chão, voltam ao normal. Mas coloquei como blocked id's e tudo bem. :3

 

E o script está perfeito, parabéns.

[Dargosh 0]

kkk muito legal, nossa tem que ter criatividade

[Malerow 0]

Mock, bem que você podia adicionar chances dos itens quebrar né ?

[Dargosh 0]

Nossa muito LEgal, me ajudou muito do MEu Server

[Kekezito_LHP 1]

zuado de mais nego pega ums 30 desse ja tei uma espada atk alto

mata todos em um hit e qual é a graça? teveria te maximo de ves q pode faze ex: 8 x 3 x e asim vai

Editado 5 Janeiro, 2011 por Kekezito_LHP

[lucasde12 0]

quando eu faço upgrade em shield,e spear aumenta def.

 

aumenta ataque porque?

 

tem como fixar?

[morvy 0]

cada dia q passa melhor, estou de boca aberta, serio

[Fir3z_ 3]

Seguinte:

 

Estou usando o TFS 0.4_dev...

e quando uso em shield ele almenta o atk O.o

 

18:14 You see a crown shield +1 (Atk:1, Def:32).

 

e em spear almenta a def

 

18:15 You see a spear +1 (Atk:25, Def:1).

 

tem como arrumar isso ae? vlws x.x